ひまわりユーザー プログラム掲示板 バックアップ
注意
ひまわりのススメ  □ ひまわり本家Home  □ 新着記事  □ 新規投稿  □ SEARCH  □ 参考プログラム集
ツリー表示

MESSAGE 円を描くセーバー /moka (02/02/01(Fri) 14:10) [373]
......MESSAGE 感想 /くある (02/02/04(Mon) 18:16) [395]


親記事 / ▼[ 395 ]
NO.373  円を描くセーバー
□投稿者/ moka -(2002/02/01(Fri) 14:10:05)
□U R L/ http://www.geocities.jp/moka21/teatime/
{---プログラム掲示板投稿フォーム---
【ソフト名】円を描くセーバー (バージョン 1.00)
【作 成 者】moka (連絡先:moka21@ybb.ne.jp)
   http://www.geocities.jp/moka21/teatime/
【種  別】フリーソフトウェア
【ひまわりのバージョン】ver.1.22
【転  件】可 (転載条件:ご自由に)
【ひまわり本体への梱包】可
【実行時に利用作成するファイル】無
【コメント】
   キー押すかダブルクリックで終了します。
   クリックすると初期化されます。
---投稿フォームここまで---}

{描画設定}
半径=50

母艦の、ダブルクリックした時は、終わる。
母艦の、キー押した時は、終わる。
母艦の、クリックした時は、初期化。
母艦全画面化。
カーソル表示は、オフ。

*初期化
   黒色で、画面クリア。

*ループ
   ペン色=RGB(乱数(256),乱数(256),乱数(256))
   原点X=乱数(デスクトップの幅)
   原点Y=乱数(デスクトップの高さ)
   (原点X,原点Y)へ、移動。
   
   角度を、0から、359まで、繰り返す(
      角度を、度からラジアン。
      角度は、それ。
      x=整数(COS(角度)*半径)+原点X
      y=整数(SIN(角度)*半径)+原点Y
      (x,y)へ、線。
      描画処理反映。
   )

   ループへ、飛ぶ。



▲[ 373 ] / 返信無し
NO.395  感想
□投稿者/ くある -(2002/02/04(Mon) 18:16:57)
□U R L/
おもしろかったです。
短くてもこんなにキレイな物ができるなんてすごいです。



- Child Tree -