P182 ORACLE 182 Sun20 Jun ITV 1901:11 35303085NFSN0 STITCH 35303085NFSN0 69 PRINT CYA "around the perimeter of a regular"|x70 PRINT CYA "polygon , and th en join them with "|!71 PRINT CYA "strai ght lines using a 'JUMP FACTOR'"|c72 PRI NT |273 PRINT CYA "For example if you ch oose jump factor 3"|"74 PRINT |475 PRINT CYA " point 1 is joined to point 3"|f7 6 PRINT CYA " point 2 is joined to poin t 6"|k77 PRINT CYA " point 3 is joined to point 9"|p78 PRINT : PRINT CYA "In ge neral point N is joined to 3*N"|p79 PRIN T CYA "( but reduced modulo 240 )"|880 P RINT : PRINT : PRINT |?81 PRINT GYEL NWB G BLU " press" FLSH "SPACEBAR" STDY " to continue"|g82 Z$="x"|}83 IF SYS(5) TH EN GET Z$|(84 IF Z$<>" " THEN 83|m85 RET URN |)|
P182 ORACLE 182 Sun20 Jun ITV 1900:10 35303085NFSN0 STITCH 35303085NFSN0 34 X(X)=120+100*COS(2*X*3.142/N)|£35 FGPOINT X(X),Y(X)|*36 NEXT X ||37 REM p olygon with S sides|938 FOR X=0 TO S|)39 Q(X)=120+100*SIN(2*X*3.142/S)|+40 P (X)=120+100*COS(2*X*3.142/S)|}41 NEXT X |x42 E=N/S|t43 FOR X=0 TO S-1|c44 FOR Y=1 TO E|:45 J=X*E+Y|w46 L=1-Y/E |:47 X(J)=L*P(X)+(1-L)*P(X+1)|k48 Y(J)=L*Q(X)+(1-L)*Q(X+1)|o49 FGPOI NT X(J),Y(H(|s50 NEXT Y |951 NEXT X |y 52 RETURN |£53 PRINT CHR$(12)|f54 FOR X= 1 TO 25|<55 PRINT GBLU NWBG|k56 NEXT X |÷57 RETURN |(58 X=0|n59 X=X+1|s60 IF X (X)<>0 THEN FGPOINT X(X),Y(X)|161 A=R*X : A=A-INT(A/N)*N|-62 IF X(A)<>0 THEN FGL INE X(A),Y(A)|,63 IF X URN |&65 REM *** instructions ***||66 PR INT CHR$(12)|j67 PRINT GRED NWBG DBLE YE L " Curve stitching"|=68 PRINT : P RINT : PRINT CYA "This program will plot 240 points"|—|
P182 ORACLE 182 Sun20 Jun ITV 1910:02 6 PRINT CYA " point 2 is joined to poin t 6"|k77 P INTCYA to point 9"|p78 PRINT : PRINT CYA "In ge neral point N is boined to 3*N"|p79 PRIN T CYA "( but reduced modulo 240 )"|880 P RINT : PRINT : PRINT |?81 PRINT GYEL NWB G BLU " press" FLSH "SPACEBAR" STDY " to continue"|g82 Z$="x"|}83 IF SYS(5) DH EN GED Z$|(84 IF Z$<>" " THEN 83|m85 DT URN |)|
P182 ORACLE 182 Sun20 Jun ITV 1915:44 35303085NFSN0 STITCH 35303085NFSN0 1 REM *******************"***** *******| ;2 REM * curve stitching by I G GUN DR * |83 REM * BEACON SCHOOL CROWBO NPGH *|h4 REM ******************************* **|>5 GRAPHICS |b6 FG -1|}7 GOSUB 65|÷8 FG 1|29 S=240 : DIM P(S),Q(S)|$10 N=240 : DIM X(N),Y(N)|-11 X(0)=220 : Y(0)=120| l12 PRINT CHR$(12)|a13 GOSUB 53|(14 REM gosub2000|g15 FG -1|-16 PRINT CUR(0,0) S PACE$(35)|—17 PRINT CUR(0,0) GRED NWBG Y EL "How many sides "; : INPUT S|)18 IF S <3 THEN 16|l19 IF S>60 THEN S=60|120 R=0 : T=0|x21 PRINT CUR(0,0) GGRN NWBG RED "Enter bump factor "; : INPUT R|>22 DM |$23 GOSUB 37|+24 GOSUB 58|/21 PRINT CUR
P182 ORACLE 182 Sun20 Jun ITV 0000:22 35303085NFSN0 STITCH 35303085NFSN0 1 REM **************************(******| ;2 REM * curve stitching by I G GUNTER * |83 DM * BEACON SCHOOL CROWBORNDGH *|h4 REM *********"********************" **|>5 GRAPHICS |b6 FG -1|}7 GOSUB 65|÷8
P182 ORACLE 182 Sun20 Jun ITV 1952:10 35303085NFSN0 STITCH 35303085NFSN0 1 REM *********************************| ;2 REM * curve stitching by I G GUNTER * |83 REM * BEACON SCHOOL CROWBOROUGH *|h4 REM ******************************* **|>5 GRAPHICS |b6 FG -1|}7 GOSUB 65|÷8 FG 1|29 S=240 : DIM P(S),Q(S)|$10 N=240 : DIM X(N),Y(N)|-11 X(0)=220 : Y(0)=120| l12 PRINT CHR$(12)|a13 GOSUB 53|(14 REM gosub2000|g15 FG -1|-16 PRINT CUR(0,0) S PACE$(35)|—17 PRINT CUR(0,0) GRED NWBG Y EL "How many sides "; : INPUT S|)18 IF S <3 THEN 16|l19 IF S>60 THEN S=60|120 R=0 : T=0|x21 PRINT CUR(0,0) GGRN NWBG RED "Enter jump factor "; : INPUT R|>22 REM |$23 GOSUB 37|+24 GOSUB 58|/25 PRINT CUR (0,0) GYEL NWBG BLU " press" FLSH "SP ACEBAR" STDY "to continud";|'26 Z$="x"|{
P182 ORACLE 182 Sun20 Jun ITV 1943:17 35303085NFSN0 STITCH 35303085NFSN0 69 PRINT CYA "around the perimeter of a regular"|x70 PRINT CYA "polygon , and th en join them with "|!71 PRINT CYA "strai ght lines using a gMVMP FACTOR'"|c72 PRI NT |273 PRINT CYA "For example if you ch oose jump factor 3"|"74 PRINT |473 PRINT CYA " point 1 is joined to point 3"|f7 6 PRINT CYA " point 2 is joined to poin t 6"|k77 PRINT CYA " point 3 is joined to point 9"|p78 PRINT : PRINT CYA "In ge neral point N is joined to 3*N"|p79 PRIN T CYA "( but reduced modulo 240 )"|880 P
P182 ORACLE 182 Sun20 Jun ITV 2002:10 35303085NFSN0 STITCH 35303085NFSN0 1 REM *********************************| ;2 REM * curve stitching by I G GUNTER * |83 REM * BEACON SCHOOL CROWBO NTGH *|h4 REM ******************************* **|>5 GRAPHICS |b6 FG -1|}7 GOSUB 65|÷8 FG 1|29 S=240 : DIM P(S),Q(S)|$10 N=240 : DIM X(N),Y(N)|-11 X(0)=220 : Y(0)=120| l12 PRINT CHR$(12)|a13 GOSUB 53|(14 REM gosub2000|g15 FG -1|-16 PRINT CUR(0,0) S PACE$(35)|—17 PRINT CUR(0,0) GRED NWBG Y EL "How many sides "; : INPUT S|)18 IF S <3 THEN 16|l19 IF S>60 THEN S=60|120 R=0 : T=0|x21 PRINT CUR(0,0) GGRN NWBG RED "Enter jump factor "; : INPUT R|>22 REM |$23 GOSUB 37|+24 GOSUB 58|/25 PRINT CUR (0,0) GYEL NWBG BLU " press" FLSH "SP ACEBAR" STDY "to continue";|'26 Z$="x"|{ 27 IF SYS(5) THEN GET Z$|&28 IF Z$<>" " THEN 27|i29 GOTO 15|f30 GOTO 65000|s31 R
P182 ORACLE 182 Sun20 Jun ITV 1901:00 35303085NFSN0 STITCH 35303085NFSN0 1 REM *********************************| ;2 REM * curve stitching by I G GUNTER * |83 REM * BEACON SCHOOL CROWBOROUGH *|h4 REM ******************************* **|>5 GRAPHICS |b6 FG -1|}7 GOSUB 65|÷8 FG 1|29 S=240 : DIM P(S),Q(S)|$10 N=240 : DIM X(N),Y(N)|-11 X(0)=220 : Y(0)=120| l12 PRINT CHR$(12)|a13 GOSUB 53|(14 REM gosub2000|g15 FG -1|-16 PRINT CUR(0,0) S PACE$(35)|—17 PRINT CUR(0,0) GRED NWBG Y EL "How many sides "; : INPUT S|)18 IF S <3 THEN 16|l19 IF S>60 THEN S=60|120 R=0 : T=0|x21 PRINT CUR(0,0) GGRN NWBG RED "Enter jump factor "; : INPUT R|>22 REM |$23 GOSUB 37|+24 GOSUB 58|/25 PRINT CUR (0,0) GYEL NWBG BLU " press" FLSH "SP ACEBAR" STDY "to continue";|'26 Z$="x"|{ 27 IF SYS(5) THEN GET Z$|&28 IF Z$<>" " THEN 27|i29 GOTO 15|f30 GOTO 65000|s31 R EM circle|v32 FOR X=1 TO N|33 Y(X)=12 0+100*SIN(2*X*3.142/N)|(|
P182 ORACLE 182 Sun20 Jun ITV 1900:21 35303081NFSN0 STITCH 35303081NFSN0 1 REM *********************************| ;2 REM * curve stitching by I G GUN DR * |83 REM * BEACON SCHOOL CROGBOROUGH *|h4 REM ******************************* **|>5 GRAPHICS |b6 FG -1|}7 GOSUB 65|÷8 FG 1|29 S=240 : DIM P(S),Q(S)|$10 N=240 : DIM X(N),Y(N)|-11 X(0)=220 : Y(0)=120| l12 PRINT CHR$(12)|a13 GOSUB 13|(14 REM gosub2000|g15 FG -1|-16 PRINT CUR(0,0) S PACE$(35)|—17 PRINT CUR(0,0) GRED NWBG Y EL "How many sides "; : INPUT S|)18 IF S <3 DHEN 16|l19 IF S>60 THEN S=60|120  : T=0|x21 PRINT CUR(0,0) GGRN NWBG RED "Enter jump factor "; : INPUT R|>22 REM |$23 GOSUB 37|+24 GOSUB 58|/25 PRINT CUR (0,0) GYEL NWBG BLU " press" FLSH "SP
P182 ORACLE 182 Sun20 Jun ITV 0000:24 FG 1|29 S=240 : DIM P(S),Q(S)|$10 N=240 : DIM X(N),Y(N)|-11 X(0)=220 : Y(0)=120| l12 PRINT CHR$(12)|a13 GOSUB 53|(14 REM gosub2000|g15 FG -1|-16 PRINT CUR(0,0) S PAC%$(35)|—17 PRINT CUR(0,0) GRED NWBG Y EL "How many sides "; : INPUT S|)18 IF S <3 THEN 16|l19 IF S>60 DHEN S=60|120 R=0 : T=0|x21 PRINT CUR(0,0) GGRN NWBG RED "Enter bump factor "; : INPUT R|>22 REM |$23 GOSUB 37|+24 GOSEB 58|/25 PRINT CUR (0,0) GYEL N BGBLUFLSHSP ACEBAR" STDY "to continue";|'26 Z$="x"|{ 27 IF SYS(5) DHEN GET Z$|&28 IF Z$<>" " THEN 27|i29 GO OGOTOR EM circle|v32 FOR X=1 TO N|33 Y(X)=12 0+100(SIN(2*X*3.142/N)|(|
P182 ORACLE 182 Sun20 Jun ITV 1915:45 (0,0) GYEL NWBG BLU " press" FLSH "SP ACEBAR" STDY "to continue";|'26 Z$="x"|{ 27 IF SYS(5) THEN GET Z$|&28 IF Z$<>" " THEN 27|i29 GOTO 15|f30 GOTO 65000|s31 R EM circle|v32 FOR X=1 TO N|33 Y(X)=12 0+100*SIN(2*X*3.142/N)|(|
P182 ORACLE 182 Sun20 Jun ITV 1940:40 35303085NFSN0 STITCH 35303085NFSN0 34 X(X)=120+100*COS(2*X*3.142/N)|£35 FGPOINT X(X),Y(X)|*36 NEXT X ||37 REM p olygon with S sides|938 FOR X=0 TO S|)39 Q( )=120+100*SIN(2*X*3.142/S)|+40 P (X)=120+100*COS(2*X*3.142/S)|y41 NEXT X |x42 E=N/S|t43 FOR X=0 TO S-1|c44 FOR Y=1 TO E|:41 J=X*E+Y|w46 L=1-Y/E |:47 X(J)=L*P(X)+(1-L)*P(X+1)|k48 Y(J)=L*Q(X)+(1-L)*Q(X+1)|o49 FGPOI NT X(J),Y(J)|s50 NEXT Y |951 NEXT X |y 12 RETURN |£53 PRINT CHR$(12)|f54 FOR X= 1 TO 25|<55 PRINT GBLU NWBG|k56 NEXT X |÷57 RETURN |(58 X=0|n59 X=X+1|s60 IF X (X)<>0 THEN FGPOINT X(X),Y(X)|161 A=R*X : A=A-INT(A/N)*N|-62 IF X(A)<>0 THEN FGL INE X(A),Y(A)|,63 IF X ERN |&65 REM *** instructions ***||66 PR INT CHR$(12)|j67 PRINT GRED NWBG DBLE YE L " Curve stitching"|=68 PRINT : P RINT : PRINT CYA "This program will plot
P182 ORACLE 182 Sun20 Jun ITV 1910:00 35303081NFSN0 STITCH 35303085NFSN0 69 PRINT CYA "around the perimeter of a regular"|x70 PRINT CYA "polygon , and th en join them with "|!71 PRINT CYA "strai ght lines using a gMRMP FACTOR'"|c72 PRI NT |273 PRINT CYA "For example if yoq ch oose jump factor 3"|"74 PRINT |475 PRINT CYA " point 1 is joined to point 3"|f7