新しく発言する EXIT インデックスへ
つづき

  つづき もりの 2004/02/10 23:09:14 

  つづき もりの 2004/02/10 23:09:14  ツリーへ

つづき 返事を書く
もりの 2004/02/10 23:09:14
30 for q=0 to 4500 step 500
LET o=90-q/5000*360
PLOT TEXT ,AT COS(o)*0.45-0.04,SIN(o)*0.45: STR$(q)
next q
PLOT TEXT ,AT -0.5,-1:"※単位はグラム。"
SET LINE WIDTH 2
FOR R=1 TO 360 STEP 360/100
SET COLOR 1
PLOT LINES:COS(r)*0.5,SIN(r)*0.5;COS(r)*0.48,SIN(r)*0.48
NEXT r
GOTO 40
40
DO
MOUSE POLL x,y,l,r
IF l=1 THEN LET g=ANGLE(x,y)-90
DRAW hari(2) WITH ROTATE(g)
WAIT DELAY 0.02
set draw mode explicit
set draw mode hidden
DRAW hari(38) WITH ROTATE(g)
LOOP
END



EXTERNAL PICTURE hari(n)
SET COLOR n
PLOT AREA:0,0;-0.01,0.3;0,0.4;0.01,0.3
END PICTURE


インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。