雪が降る夜のクリスマスツリー
作品プログラム
- 動作環境
- プロデル 2.0.1362
- 投稿者
- ゆうと
- 投稿日
- 2025-12-24 20:00:33
- ダウンロード数
- 54
作品のプログラム
LEDは0
葉色は「#00C500」
色配列は｛「緑」,「赤」,「黄色」,「ピンク」,「水色」,「オレンジ」｝
メイン画面を表示する
待機する
メイン画面とは
ウィンドウを受け継ぐ
+雪一覧={}
はじめの手順
初期化する
描画幅は、幅/キャンバス1の倍率
描画高さは、高さ/キャンバス1の倍率
雪色という色情報({25,255,255,255})を作る
100回繰り返す
キャンバス1に子キャンバスを作って雪とする
雪の位置は{0から描画幅までの乱数,0から描画高さまでの乱数}
雪一覧に雪を加える
サイズは20.0
20回繰り返す
雪へ円を描く
その位置と大きさは｛-サイズ/2,-サイズ/2,サイズ,サイズ｝
その背景色は、雪色
その線色は、透明
サイズをサイズ/20だけ減らす
そして
そして
タイマー1というタイマーを作る
タイマー1の時間になった時の手順は、時間になった
タイマー1の間隔は、100
タイマー1を開始する
カメさんというカメを作る
カメさんの位置は｛-5，-5｝
カメさんをキャンバス1に表示する
カメさんを隠す
キャンバス1へ「Merry Christmas!」という文字を描く
その位置は｛80,5｝
そのフォントは「Yu Gothic」
その文字色は、緑色
その文字サイズは20
キャンバス1へ「Merry Christmas!」という文字を描く
その位置は｛82,7｝
そのフォントは「Yu Gothic」
その文字色は、赤
その文字サイズは20
クリスマスツリーを表示する
タイマー2というタイマーを作る
タイマー2の時間になった時の手順は、ライト時間になった
タイマー2の間隔は800
タイマー2を開始する
終わり
初期化する手順
ーー自動生成された手順です。ここにプログラムを書き加えても消える場合があります
初期化開始する
この実質大きさは｛600,460｝
この内容は「Merry Christmas!」
この間隔は｛4｝
キャンバス1というキャンバスを作る
その位置と大きさは｛0,0,640,461｝
その自動更新は×
その移動順は1
その背景色は「黒」
そのドッキング方向は「全体」
初期化終了する
この設計スケール比率は｛144,144｝
終わり
大きさが変化した時の手順
キャンバス1が無なら返す
描画幅は、幅/キャンバス1の倍率
描画高さは、高さ/キャンバス1の倍率
雪一覧のすべての雪についてそれぞれ繰り返す
雪の位置は{0から描画幅までの乱数,0から描画高さまでの乱数}
そして
キャンバス1を更新する
終わり
時間になった手順
雪一覧のすべての雪についてそれぞれ繰り返す
雪の縦は、雪の縦+10
雪の横は、雪の横+[(雪の縦/2)度のサイン]*3
雪の縦が描画高さ以上なら
雪の位置は｛0から描画幅までの乱数,-(0から描画高さ/2までの乱数)}
そして
そして
キャンバス1を更新する
終わり
ライト時間になった手順
LEDを点灯する
0.7秒待つ
LEDは0
終わり
クリスマスツリーを表示する手順
左=100
上=50
ーー地面を描く
図形描画によって円をキャンバス1に｛左+60,上+270｝から｛180,30｝まで白で描く
図形描画によってキャンバス1を白で｛左+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｝を「茶色」で塗りつぶす
ーー背景塗りつぶし
カメさんを隠す
LEDを点灯する
終わり
ーーーーーーーーーーーーーーーーーー
LEDを点灯する手順
カメさんを隠す
（LEDが50）になるまで繰り返す
Cは、1から30までの乱数
C＞6なら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
そして
そして
終わり
終わり