|
|
!扇形のアニメ
SET WINDOW -1.07, 1.02, -1.07, 1.02
SET COLOR MIX(15) .4,.4,.4 !グリッドの色 R,G,B
!
!---扇の原形
LET x0= 0.2 !中心ｘ座標
LET y0=-0.5 !中心ｙ座標
LET r0=1.1 !半径
LET Sa=PI*1.5/6 !開始角度
LET Ea=PI*5.5/6 !終了角度
!
!---扇の変形移動
FOR i=0 TO 2*PI+1e-9 STEP PI/50
LET r=r0+i*(i-2*PI)/10
SET DRAW mode hidden
CLEAR
DRAW grid(.5,.5)
DRAW fan(x0,y0,r,Sa,Ea) WITH ROTATE(i*2)*SHIFT(.3*COS(i)-.3,.3*SIN(i))
SET LINE width 2
DRAW fan(x0,y0,r/2,Sa,Ea) WITH ROTATE(i*2)*SHIFT(.3*COS(i)-.3,.3*SIN(i))
SET DRAW mode explicit
SET LINE width 1
WAIT DELAY .01
NEXT i
!---扇の型
PICTURE fan(x0,y0,r0,Sa,Ea)
PLOT LINES :x0,y0; !中心点～開始角度の点まで直線を引くための、Pen-ON
FOR a=Sa TO Ea +(1e-9) STEP (Ea-Sa)/20
PLOT LINES :r0*COS(a)+x0,r0*SIN(a)+y0; !開始から終了角度の点まで短い直線で、なぞる
NEXT a
PLOT LINES :x0,y0 !終了角度の点から、中心点までの直線を引き、Pen-OFF
END PICTURE
END
|
|