星座プログラム

　　星座プログラム ひろ 2004/01/28 12:12:02

　　星座プログラム ひろ 2004/01/28 12:12:02  ツリーへ

星座プログラム 返事を書く

ひろ 2004/01/28 12:12:02

やってみてください。
夜、星を見て思いつきました。

RANDOMIZE
SET WINDOW 0,10,0,10
SET COLOR 1
PLOT AREA:0,0;0,10;10,10;10,0
SET COLOR 6
FOR T=1 TO 100
DRAW disk WITH SCALE(0.04/(RND*6+1))*SHIFT(RND*11,RND*11)
NEXT T
END

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

星座プログラム	返事を書く
ひろ 2004/01/28 12:12:02
やってみてください。夜、星を見て思いつきました。 RANDOMIZE SET WINDOW 0,10,0,10 SET COLOR 1 PLOT AREA:0,0;0,10;10,10;10,0 SET COLOR 6 FOR T=1 TO 100 DRAW disk WITH SCALE(0.04/(RND6+1))SHIFT(RND11,RND11) NEXT T END