P182 ORACLE 182 Fri25 Dec ITV 2008:01 35303085NFSN0 STITCH 35303081NFSN0 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 P INTCYAF oosd bump factor 3"|"74 P INTPRINT CYA " point 1 is joined to point 3"|f7 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 joined to 3*N"|p79 PRIN T CYA "( but reduced modulo 240 )"|880 P
P182 ORACLE 182 Fri25 Dec ITV 2000:30 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 gMRMP 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 Fri25 Dec ITV 2030:04 35303085NFSN0 STITCH 35303085NFSN0 1 EM ;2 REM * curve stitchhng by I G GEN(BR * |83 REM * BEACON SCHOOL CROWBOROUGH *|h4 REM ******************************* **|>3 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 PPINT CUR(0,0) GRED N BG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 NCBG RED "Enter jump factor "; : INPUT R|>22 @M
P182 ORACLE 182 Fri21 Dec ITV 2030:04 |$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 Fri25 Dec ITV 2000:31 FGPOINT X(X),Y(X)|*36 NEXT ||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 @D |:47 XP =L*P(X)+(1-L)*P(X+1)|k48 Y H =L*Q )+(1 L)*Q(X+1)|o49 FGPOA 12 RETURN |£13 PRINT CHR$(12 |f54 FN X= 1 TO 25|<55 PR NT GBLU NGBG|B4& NEXT |÷57 RDTURN |(58 X=0|n49 X=X+1|s60 IF X (X)<>0 THEN FGPOINT X(X),Y( )|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 DD *** instructions ***||66 PR INT CHR$(12)|j67 PRINT GRED NCBG DBLE YE L " Curve stitching"|=68 PRINT : P RINT : PRINT CYA "This program will plot 240 points"|—|
P182 ORACLE 182 Fri25 Dec ITV 2041:02 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(M(=L*Q(X)+(1-L)*Q(X+1)|o49 FGPOI NT X(J),Y(J)|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 NgBG DBLE YE L " Curve stitching"|=68 PRINT : P RINT : PRINT CYA "This program will plot 240 points"|—|
P182 ORACLE 182 Fri25 Dec ITV 2001:33 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 Fri25 Dec ITV 2001:00 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 |471 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 boined 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 : PPINT |?81 PRINT GYEL NCB 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 Fri25 Dec ITV 2011:34 |83 @M * BEACON SCHOOL CROgBO 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 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 PRIN CUR(0,0) GGRN NCBG DD "Enter jump factor "; : INPUT R|>22 @M |$23 GOSUB 37|+24 GOSUB 58|/25 PRINT CUR (0,0) GYEL NWBG BLU " press" FLSH "SP ACEBAR" STDY "to continud";|'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 Fri25 Dec ITV 2050:34 35303085NFSN0 STITCH 35303085NFSN0 34 XT9)=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 YXK)=L*Q(X)+(1-L)*Q(X+1)|o49 FGPOI NT XTK8,Y(J)|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)|f67 PRINT GRED NWBG DBLE YE
P182 ORACLE 182 Fri25 Dec ITV 2052:03 **|>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 "DM |$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)|(|