※タイトル　詩によるスマイルフェイス乱数表示プログラム
※　Version1.0(1986-03-07)
※　リンク　ALL
※　木村　明
※　修正：片桐　明(2023-09-20) Mind8 新版暫定 向けに修正
※　リンク　filew - guiLib - 9801Lib


夢は　　　　　　　　　　変数と　　　　　等価。
着飾るは　　　　　　　　描画色設定と　　等価。
…は　　　　　　　　　　つぎと　　　　　等価。
眠りとは　　　　　　　　角度設定と　　　等価。
喜劇は　　　　　　　　　回数指定と　　　等価。
酔うは　　　　　　　　　入れると　　　　等価。
タンゴを踊るは　　　　　円を塗ると　　　等価。
ワルツを踊るは　　　　　円弧をかくと　　等価。
グッバイは　　　　　　　割ると　　　　　等価。
言うは　　　　　　　　　引くと　　　　　等価。
おまじないを言うは　　　無処理と　　　　等価。
戸惑うとは　　　　　　　五百ミリ秒待と　等価。

明日は　５日。
あさっては　１０日。
昨日は　３日。
今日は　０日。

悪夢とは　範囲？と　等価。

きちがい星は　夢。

らんちき騒ぎとは　（・　→　・）
        ※−−−−−−−−−−※
        ※　乱数の種を初期化　※
        ※−−−−−−−−−−※
        日時を得て
　　　　日を　分けて　和む
　　　　きちがい星のうたに　酔う。

☆とは
　　　　生は　夢　　死は　夢　　生と　死に　酔う
　　　　死に　１日を　加え　生を　引き　死に　入れ
　　　　１０１日を　きちがい星に　掛け
　　　　１０００１日間　余を　きちがい星に　酔う
　　　　きちがい星と　死の　余を　生に　加え。

文字作画１は    変数。
文字作画２は    変数。

テキスト描画とは
                オフセットは　　数値　５
                フォントは　　　文字列定数　「{ＭＳＰ 明朝} 12」
                文言１は　　　　文字列定数　「作： 木村　明 (1986)」
                文言２は　　　　文字列定数　「Mind8 + guiLib + 9801Lib」
                テキスト幅１は　数値　２４０
                テキスト幅２は　数値　２４０

　　左上座標は
        オフセットと　オフセット

　　右下座標は
        キャンバスの右下座標を　交換し　オフセットを　引き
        　交換し　オフセットを　引き

　　本体とは
        キャンバス記憶と 文言１を
        　　左上座標で 図形としてテキストのＩＤを取得し　文字作画１に　入れ
        白色を          文字作画１に　文字色を設定し
        フォントを      文字作画１に　フォントを設定し
        テキスト幅１を  文字作画１に　幅を設定し
        左上隅を        文字作画１に　基準点を設定し
        文字作画１を　有効化

        キャンバス記憶と 文言２を
        　　右下座標で 図形としてテキストのＩＤを取得し　文字作画２に　入れ
        白色を          文字作画２に　文字色を設定し
        フォントを      文字作画２に　フォントを設定し
        テキスト幅２を  文字作画２に　幅を設定し
        右下隅を　      文字作画２に　基準点を設定し
        文字作画２を　有効化。

扉を開けるとは
        グラフ初期化し
        テキスト描画する。

扉を閉めるとは
        文字作画１を　図形の重なりを最上位へ
        文字作画２を　図形の重なりを最上位へ。

メインは
　　愛は　夢　　恋は　夢　　幸福は　夢　　不幸は　夢
　　　　らんちき騒ぎのあとに
　　　　　　扉を開け
　　　　　　　２８日の　喜劇
　　　　　　　　明日から　３９５日　☆　愛に　酔う
　　　　　　　　　明日から　６３５日　☆　恋に　酔う
　　　　　　　　　　あさってから　７７日　☆　幸福に　酔う
　　　　　　　　　　 １日目から  ７日目まで　☆  着飾って
　　　　　　　　　　 　愛と　恋と  幸福の  タンゴを踊る
　　　　　　　　　　幸福を　２つに　割って　不幸に　入れ
　　　　　　　　　２１０日目から　３３０日目まで　眠る
　　　　　　　　黒を　着飾って
　　　　　　　愛と　恋と　不幸の　ワルツを踊る
　　　　　　愛と　幸福と　昨日に　グッバイと　言って
　　　　　愛に　酔う
　　　　恋が　不幸を　引きよせる
　　　恋に　酔う
　　不幸と　明日に　グッバイして
　 不幸に　酔う
　 愛が  今日から　３９９日間の  悪夢　でなければ　もう一度　…
　 恋が  今日から　６３９日間の  悪夢　ならば
　　愛と　恋と　不幸の　タンゴを踊る　…
　　　恋に　幸福を　加えれば　恋に　酔う
　　　　恋が　今日から　６３９日間の　悪夢　でなければ　もう一度　…
　　　　　愛と　恋と　不幸の　タンゴを踊りつつ　戸惑う
　　　　　　繰り返しくりかえしくりかえし
　　　　　　　扉を閉める。