100 '機械運動学　ピストンクランク機構 アニメーションプログラム  2005.5.31  T.Oku
110 '------------------------------------------------------------------
120 CLS 3
130 SCREEN 3
140 W=1
150 R=30:alp=0.4
160 XO=200:YO=200
170 Z=3
180 FOR T=0 TO 360 STEP 1
190  TR=T*3.1415926#/180
200  XC=R*COS(TR)
210  YC=R*SIN(TR)
220  XP=XC+r/alp*SQR(1-(alp*SIN(TR))^2)
230 SC=W MOD 2:DP=1+((W+1) MOD 2)*16
240 SCREEN ,,SC,DP
250 CLS 2
260  LINE (XO-100,YO)-(XO+400,YO)
270  LINE (XO,YO-100)-(XO,YO+100)
280  LINE (XO,YO)-(XO+XC*Z,YO-YC*Z),7
290  LINE (XO+XC*Z,YO-YC*Z)-(XO+XP*Z,YO),7
300  CIRCLE (XO+XC*Z,YO-YC*Z),5
310  CIRCLE (XO+XP*Z,YO),5
320 FOR WT=0 TO 300 :NEXT WT
330 W=W+1
340 NEXT T
350 GOTO 180