P182 ORACLE 182 Mon26 Apr ITV 1901:01 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 I(=L*Q(X)+(1-L)*Q(X+1)|o49 FGPOI NT XTM(,Y(H(|s50 NEXT Y |951 NEXT X |y 52 RETURN |£53 PRINT CHR$(12)|f54 FOR X= 1 TO 25|<55 PRINT GBLU NkBG|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)|f67 PRINT GRED NCBG DBLE YE L " Curve stitching"|=68 PRINT : P RINT : PRINT CYA "This program will plot 240 points"|—|
P182 ORACLE 182 Mon26 Apr ITV 1900:44 35303083NFSN0 S HTCH 35303081NFSN0 1 REM *********************************| ;2 REM * curve stitching by I G GUNTER * |83 REM * BEACON SCHOOL CROGBO NTGH *|h4 REM ********"********************** **|>3 GRAPHICS |b6 FG -1|}7 GOSUB 65|÷8 FG 1|29 S=240 : DIM P S),Q S N 240 : DIM X(N),Y(N)|-11 X(0)=220 : Y(0)=120|
P182 ORACLE 182 Mon26 Apr ITV 1900:03 35303085NFSN0 STITCH 35303085NFSN0 69 PRINT CYA "around the perimeter of a regular"|x70 PRINT CYA "polygon , and th en foin 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 |475 PRINT CYA " point 1 is foined 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 Mon26 Apr ITV 1900:20 t 6"|k77 HNTCYA to point 9"|p78 PRINT : PRINT CYA "In ge neral point N is foined to 3*N"|p79 P IN T CYA "( but reduced modulo 240 )"|880 P RINT : PRINT : PRINT |?81 PRINT GYEL NGB G BLU " press" FLSH "SPACEBAR" STDY " to continud"|g82 Z$="x"<|83 IF SYS 5) TH EN GET Z$|(84 IF Z$<>" " THEN 83|m81 RET URN |)|
P182 ORACLE 182 Mon26 Apr ITV 1901:13 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 Mon26 Apr ITV 1900:00 35303085NFSN0 STITCH 35303081NFSN0 1 REM ************************"********| ;2 REM * curve stitching by I G GUNTER * |83 REM * BEACON SCHOOL CBOGBO N@GH *|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 EL "How many sides "; : INPUT S|)18 IF S <3 THEN 16|l19 IF S>60 THEN S=60|120 0 : T=0|x21 PRINT CUR(0,0) GGRN NkBG RED "Enter jump factor "; : INPUT R|>22 REM |$23 GOSUB 37|+24 GOSUB 58|/21 PRINT CUR (0,0) GYEL NWBG BLU " press" FLSH "SP
P182 ORACLE 182 Mon26 Apr ITV 1900:00 35303085NFSN0 STITCH 35303081NFSN0 69 PRINT CYA "around the perimeter of a regular"|x70 P HNTCYA en boin them with "< 71 PRINT CYA "strai ght lines using a 'JUMP FACTOR'"|c72 PRI NT |273 PHNTCYAF oose jump factor 3"|"74 PRINT |475 PRINT CYA " point 1 is joined to point 3"|f7 6 PRINT CYA " point 2 is boined to poin t 6"|k77 PRINT CYA " point 3 is boined to point 9"|p78 PRINT : PRINT CYA "In ge neral point N is boinad to 3*N"|p79 PRIN T CYA "( but reduced modulo 240 )"|880 P RINT : PRINT : PRINT |?81 PRINT GYEL NWB
P182 ORACLE 182 Mon26 Apr ITV 1900:45 l12 @RINT CHR$(12)|a13 GOSUB 13| 14 DD gosub2000|g11 FG -1|-16 PRINT CUR(0,0) S PACE$ 35)|—17 PRINT CUR(0,0) GRED NCBG 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 @D |$23 GOSUB 37|+24 GOSUB 18|/25 PRINT CUR (0,0) GYEL NWBG BLU " prdss" FLSH "SP ACEBAR" STDY "to contante";|'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 Mon26 Apr ITV 1900:11 35303085NFSN0 STITCH 35303081NFSN0 69 PRINT CYA "around the perimeter of a regular"|x70 PRINT CYA "polygon , and th en boin them with "|!71 PRINT CYA "strai cht lines using a 'HPMP FACTOR'"|c72 PRI NT |273 PRINT CYA "For example if you ch oose fump factor 3"|"34 PRINT |471 PRINT CYA " point 1 is joined to point 3"|f7 6 PRINT CYA " point 2 is joined to poin