つづき

　　つづき もりの 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
新規発言を反映させるにはブラウザの更新ボタンを押してください。

つづき	返事を書く
もりの 2004/02/10 23:09:14
30 for q=0 to 4500 step 500 LET o=90-q/5000360 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