100 '***************************************
110 '　歯車創成プログラム
120 '		　designed by takuma tsuji
130 '		   date 2010.6.3
140 '***************************************
150 SCREEN 3:CLS 3
160 X0=320 : Y0=200 : PI=3.141592653 : RAD=PI/180.0
170 ZOOM=30
180 NUMBER=5
190 '***************************************
200 RB=3.0
210 FAIS=0*RAD
220 FAIU=+30*RAD
230 MAKIKAKU=100
240 MAKIKAKU2=70
250 SSS=360/NUMBER
260 LINE(0,0)-(640,399),7,BF
270 '****************************************
280 '歯車創成手順
290 FOR I=0 TO  MAKIKAKU STEP 1
300 	FAI1=I*RAD : FAI2=(I+1)*RAD
310 	X1=(RB*COS(FAI1+FAIS)+RB*(FAI1)*SIN(FAI1+FAIS))*ZOOM
320 	X2=(RB*COS(FAI2+FAIS)+RB*(FAI2)*SIN(FAI2+FAIS))*ZOOM
330 	Y1=(RB*SIN(FAI1+FAIS)-RB*(FAI1)*COS(FAI1+FAIS))*ZOOM
340 	Y2=(RB*SIN(FAI2+FAIS)-RB*(FAI2)*COS(FAI2+FAIS))*ZOOM
350 	CIRCLE(X0,Y0),RB*ZOOM,0
360 	LINE(X0+X1,Y0-Y1)-(X0+X2,Y0-Y2),0
370 NEXT I
380 FOR I=0 TO -MAKIKAKU STEP -1
390 	FAI1=I*RAD : FAI2=(I+1)*RAD
400 	X1=(RB*COS(FAI1+FAIU)+RB*(FAI1)*SIN(FAI1+FAIU))*ZOOM
410 	X2=(RB*COS(FAI2+FAIU)+RB*(FAI2)*SIN(FAI2+FAIU))*ZOOM
420 	Y1=(RB*SIN(FAI1+FAIU)-RB*(FAI1)*COS(FAI1+FAIU))*ZOOM
430 	Y2=(RB*SIN(FAI2+FAIU)-RB*(FAI2)*COS(FAI2+FAIU))*ZOOM
440 	LINE(X0+X1,Y0-Y1)-(X0+X2,Y0-Y2),2
450 NEXT I
460 '
470 FOR NNN=0 TO 360 STEP SSS
475	NN=NNN*RAD
480 	FOR I=0 TO MAKIKAKU2
490		FAI2=(I+1)*RAD
495		FAI1=I*RAD
500		FAI3=-I*RAD
505		FAI4=-(I+1)*RAD
510 		X1=(RB*COS(FAI1+FAIS+NN)+RB*(FAI1)*SIN(FAI1+FAIS+NN))*ZOOM
520 		X2=(RB*COS(FAI2+FAIS+NN)+RB*(FAI2)*SIN(FAI2+FAIS+NN))*ZOOM
530 		Y1=(RB*SIN(FAI1+FAIS+NN)-RB*(FAI1)*COS(FAI1+FAIS+NN))*ZOOM
540 		Y2=(RB*SIN(FAI2+FAIS+NN)-RB*(FAI2)*COS(FAI2+FAIS+NN))*ZOOM
550 'PRINT FAI1,FAI3
560 		X3=(RB*COS(FAI3+FAIU+NN)+RB*(FAI3)*SIN(FAI3+FAIU+NN) )*ZOOM
570 		X4=(RB*COS(FAI4+FAIU+NN)+RB*(FAI4)*SIN(FAI4+FAIU+NN))*ZOOM
580 		Y3=(RB*SIN(FAI3+FAIU+NN)-RB*(FAI3)*COS(FAI3+FAIU+NN))*ZOOM
590 		Y4=(RB*SIN(FAI4+FAIU+NN)-RB*(FAI4)*COS(FAI4+FAIU+NN))*ZOOM
600 '
610 		LINE(X0+X1,Y0-Y1)-(X0+X2,Y0-Y2),0
620 		LINE(X0+X3,Y0-Y3)-(X0+X4,Y0-Y4),2
630 	NEXT I
640 NEXT NNN
650 '
660 END