メインループの頭です。画面にタッチしたら、そこを幹の始点として、カーソルを移動します。 http://t.co/agFHWn5K9S
2013-03-09 22:17:50◎WAITTCHサブルーチンを、プログラムの末尾に追加しておきます。FOR文を使っていますが、NEXTの前でWIにTCHSTを代入しています。これでタッチされるまでFOR文は周り続けるという小技です。 http://t.co/OBPw62Z3ys
2013-03-09 22:20:43ペンが離れるまで、幹となる縦線を引きます。縦線なので、見ているのはY座標だけです。 http://t.co/1xmo44GMfS
2013-03-09 22:22:49幹は下から上へ引かれる想定なので、上から下に引かれたらSYとEYをひっくり返します。また、極端に短い場合はやり直し。幹の長さからレベルを求めます。 http://t.co/C9DabVbSVx
2013-03-09 22:26:42次に枝になる斜め線の入力です。幹の上の点がタッチされるまで待ちます。HOKでX座標、VOKでY座標をチェックします。 http://t.co/wBoKtIGPB3
2013-03-09 22:28:45枝の角度A、幹の割合SR、枝の割合BRを求めます。角度Aはアークタンジェント、枝の長さBLは三平方の定理というちょっとした数字的魔法で求めますが、その解説はしません^^; http://t.co/lSFpDyPjvx
2013-03-09 22:34:23求めたパラメータを表示して、◎TREEを呼びます。前のバージョンの、既定値を代入して三回◎TREEを呼んでENDするところはざっくり削除してください。 http://t.co/GLsVZkZsZs
2013-03-09 22:36:15これで◎TREEを直さずに済めばキレイだったけどそうは行かなかった! CLの求め方を直します。 http://t.co/cGqXfAjDok
2013-03-09 22:38:15斜め線を引くと、これこのように枯れ木に花が咲きまする。これを何度も繰り返すと… http://t.co/HbcUB25pra
2013-03-09 22:40:44最後、◎WAITTCHに画面クリアと終了ボタンを追加して、その10は終わりです。 http://t.co/gOxwvWn0Bj
2013-03-09 22:44:57