クリスマスツリー
作品プログラム
- 動作環境
- 投稿者
- たか年
- 投稿日
- 2013-12-19 17:08:33
- ダウンロード数
- 457
作品のプログラム
「Produire.PGraphics.dll」を利用
////////////////////////////////////////////
プログラム名は、「クリスマスツリー」
// TTS・原作者 ゆうと様 リメイク TAKA。 //
////////////////////////////////////////////
LEDは、0
筆というカメを作る
タイマー１というタイマーを作る
葉色は、「#00C500」
色配列は、｛「緑」、「赤」、「黄色」、「ピンク」、「水色」、「オレンジ」｝
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
メイン画面を表示する
待機する
時間になった手順
LEDを点灯する
0.7秒待つ
LEDは、0
終わり
メイン画面とは
ウィンドウを継承する
はじめ手順
タイマー１というタイマーを作る
タイマー１の時間になった時の手順は、時間になった
タイマー１の間隔を800に変える
タイマー１を開始する
この内部領域大きさを｛320，350｝に変える
この位置と大きさを｛30，30，320，350｝に変える
この内容をプログラム名に変える
窓というピクチャーを作る
その位置と大きさを｛0，0，304，350｝に変える
ツリー表示する
終わり
ツリー表示の手順
場所は、窓
筆を窓に表示する
筆を隠す
ーー地面を描く
図形描画：円を、窓に｛60,270｝から｛180,30｝まで、「白」色で、描く
図形描画：窓を白で｛80,280｝へ図形描画によって塗りつぶす
ーー幹を描く
筆の向きは、180
筆の太さは、2
筆の色は、茶
筆の位置を｛135,228｝に変える
筆を55だけ前へ進ませる
筆を90だけ左へ回転させる
筆を30だけ前へ進ませる
筆を90だけ左へ回転させる
筆を55だけ前へ進ませる
ーー左の枝を描く
筆の太さは、3
筆の色は、葉色
筆の位置を｛150,70｝に変える
筆を145だけ左へ回転させる
筆を80だけ前へ進ませる
２回繰り返せ
筆を145だけ左へ回転させる
筆を30だけ前へ進ませる
筆を145だけ右へ回転させる
筆を80だけ前へ進ませる
繰り返し終わり
筆を145だけ左へ回転させる
筆を50だけ前へ進ませる
ーー右の枝を描く
筆の向きは、０
筆の位置は、{150，70}
筆の色は、葉色
筆を145だけ右へ回転させる
筆を80だけ前へ進ませる
2回繰り返せ
筆を145だけ右へ回転させる
筆を30だけ前へ進ませる
筆を145だけ左へ回転させる
筆を80だけ前へ進ませる
繰り返し終わり
筆の太さは、3
筆を145だけ右へ回転させる
筆を50だけ前へ進ませる
筆を20だけ左へ回転させる
筆を70だけ前へ進ませる
ーー星を描くーー
筆の位置は、｛151，42｝
筆の色は、黄色
筆の太さは、1
筆を110だけ右へ回転させる
S＝38
Pを5から5ずつ増やしながら25まで繰り返す
5回繰り返せ
筆を144だけ右へ回転させる
筆をSだけ前へ進ませる
繰り返し終わり
筆の位置は、｛151，42+P｝
S＝S-10
繰り返し終わり
ーー枝を塗りつぶす
筆に｛150，100｝を「緑色」で、塗りつぶす
ーー幹をを塗りつぶす
筆に｛150，240｝を「茶色」で、塗りつぶす
筆に｛150，270｝を「茶色」で、塗りつぶす
ーー背景塗りつぶし
筆に｛50，50｝を「紺色」で、塗りつぶす
筆を隠す
LEDを点灯する
終わり
ーーーーーーーーーーーーーーーーーー
LEDを点灯する手順
場所は、窓
筆の位置は、｛-5，-5｝
筆を窓に表示する
筆を隠す
（LEDが50）になるまで繰り返す
Cは、1から30までの乱数
もしC＞7なら。C=1。もし終わり
Xは、（80から220までの乱数）*2
Xは、（Xを1で四捨五入したもの）/2
Yは、（90から225までの乱数）*2
Yは、（Yを1で四捨五入したもの）/2
筆の向きは、135
筆の太さは、4
もしX<150ならば
補正は、-8
そうでなければ
補正は、8
もし終わり
筆の位置は、{X+補正，Y+5}
DCは、筆の下部色
筆の位置は、{X，Y}
もし（DCが「#008000」）なら
筆の色は、色配列（C）
筆を4だけ前へ進ませる
LED=LED+1
もし終わり
繰り返し終わり
終わり