投稿プログラム : Recursive Figure

パンくずリスト

このページの最終更新 : 2022/09/20 (火) 12:44:03

公式アーカイブのリンク:http://wiki.hosiken.jp/petc/html/Toukou/Recursive20-Figure.html

概要
- いろいろ
スクリーンショット・動画
QR コード
プログラムリスト
CHECKER FLAG (ひとことコメント)

2013年3月21日投稿 / 投稿者 : いったん / タグ : ツール QRコード mkII専用鑑賞プログラム

概要

再帰図形を描画します。「再帰図形って知らないんですけど」→ググれ

参考：フラクタルCGコレクション*1

いろいろ

操作説明はプログラムを起動すればわかると思います。
- ちなみにXは縦横に垂直な線、Yは最初の線と同じ長さの線を描きます。
読み込みラベル名を変更すればいろいろな図形が見れます。

スクリーンショット・動画

有名なフラクタル図形、コッホ曲線のデモです。

QR コード

プチコンmkII 向けの QR コードです。

プログラムリスト

’　ＲＥＣＵＲＳＩＶＥ　ＦＩＧＵＲＥ　ｖ２．０
’　　　　　　　　　　　　　ｆｏｒ　ＳｍｉｌｅＢａｓｉｃ
’
’Ｐｒｏｇｒａｍｍｅｄ　ｂｙ　ｉｔｔａｎ
’
’ＬＩＳＴ　＠＿ＤＡＴＡ
’
ＣＬＥＡＲ：ＡＣＬＳ
ＰＮＬＴＹＰＥ”ＯＦＦ”
ＧＰＡＧＥ　０　：ＧＣＬＳ　０
？”ＲＥＡＤ　ＤＡＴＡ→　Ｒ
？”ＭＡＫＥ　ＤＡＴＡ→　Ｍ
ＩＮＰＵＴ　Ｐ＄
ＩＦ　Ｐ＄＝＝”Ｍ”　ＴＨＥＮ　ＧＯＴＯ＠ＭＡＫＥ
ＬＯＣＡＴＥ　０，ＣＳＲＹ＋１：？”＠”：
ＬＯＣＡＴＥ　０，ＣＳＲＹ－２
ＩＮＰＵＴ　”ＬＡＢＥＬ”；Ｌ＄
ＲＥＳＴＯＲＥ　Ｌ＄
ＲＥＡＤ　ＢＲ，Ｎ，ＳＸ１，ＳＹ１，ＳＸ２，ＳＹ２
ＤＩＭ　Ｘ（ＢＲ＋２），Ｙ（ＢＲ＋２）
ＤＩＭ　ＸＡ（２５６），ＹＡ（２５６），ＸＢ（２５６），ＹＢ（２５６）
ＤＩＭ　Ｂ（２５６）
ＣＹ＝１９１
ＦＯＲ　Ｉ＝２　ＴＯ　ＢＲ
　ＲＥＡＤ　Ｘ（Ｉ），Ｙ（Ｉ）
ＮＥＸＴ　Ｉ

＠ＳＴＡＲＴ
Ｘ（１）＝０：Ｙ（１）＝０
Ｘ（ＢＲ＋１）＝１：Ｙ（ＢＲ＋１）＝０
Ｉ＝０
ＸＡ（Ｉ）＝ＳＸ１：ＹＡ（Ｉ）＝ＳＹ１
ＸＢ（Ｉ）＝ＳＸ２：ＹＢ（Ｉ）＝ＳＹ２
ＧＰＳＥＴ　ＸＡ（Ｉ），ＣＹ－ＹＡ（Ｉ），５
ＯＸ＝ＸＡ（Ｉ）：ＯＹ＝ＣＹ－ＹＡ（Ｉ）
＠Ｇ１
Ｉ＝Ｉ＋１
ＩＦ　Ｉ＞Ｎ　ＧＯＴＯ　＠ＬＩ
Ｋ＝１
＠Ｇ２
ＸＸ＝ＸＢ（Ｉ－１）－ＸＡ（Ｉ－１）
ＹＹ＝ＹＢ（Ｉ－１）－ＹＡ（Ｉ－１）
ＸＡ（Ｉ）＝Ｘ（Ｋ）＊ＸＸ－Ｙ（Ｋ）＊ＹＹ＋ＸＡ（Ｉ－１）
ＹＡ（Ｉ）＝Ｘ（Ｋ）＊ＹＹ＋Ｙ（Ｋ）＊ＸＸ＋ＹＡ（Ｉ－１）
ＸＢ（Ｉ）＝Ｘ（Ｋ＋１）＊ＸＸ－Ｙ（Ｋ＋１）＊ＹＹ＋ＸＡ（Ｉ－１）
ＹＢ（Ｉ）＝Ｘ（Ｋ＋１）＊ＹＹ＋Ｙ（Ｋ＋１）＊ＸＸ＋ＹＡ（Ｉ－１）
Ｂ（Ｉ）＝Ｂ（Ｉ）＋１
ＧＯＴＯ＠Ｇ１
＠ＬＩ
ＧＬＩＮＥ　ＯＸ，ＯＹ，ＸＢ（Ｎ），ＣＹ－ＹＢ（Ｎ），５
’ＧＰＳＥＴ　ＸＢ（Ｎ），ＣＹ－ＹＢ（Ｎ），５
ＯＸ＝ＸＢ（Ｎ）：ＯＹ＝ＣＹ－ＹＢ（Ｎ）
＠Ｇ３
Ｂ（Ｉ）＝０
Ｉ＝Ｉ－１
ＩＦ　Ｉ＜１　ＧＯＴＯ　＠Ｅ
ＩＦ　Ｂ（Ｉ）＞＝ＢＲ　ＧＯＴＯ　＠Ｇ３
Ｋ＝Ｂ（Ｉ）＋１
ＧＯＴＯ　＠Ｇ２
＠Ｅ
ＣＬＳ
ＰＮＬＳＴＲ　０，０，”ＬＩＮＥ　：”＋ＳＴＲ＄（ＢＲ）
ＰＮＬＳＴＲ　０，１，”ＬＥＶＥＬ：”＋ＳＴＲ＄（Ｎ）
ＰＮＬＳＴＲ　０，２，”ＳＸ：”＋ＳＴＲ＄（ＳＸ１）
ＰＮＬＳＴＲ　０，３，”ＳＹ：”＋ＳＴＲ＄（ＳＹ１）
ＰＮＬＳＴＲ　０，４，”ＥＸ：”＋ＳＴＲ＄（ＳＸ２）
ＰＮＬＳＴＲ　０，５，”ＥＸ：”＋ＳＴＲ＄（ＳＹ２）
？”А：ＬＥＶＥＬ　ＳＥＴ
？”Б：ＥＸＩＴ
ＩＦ　ＭＫ　ＴＨＥＮ　？”Ф：ＭＡＫＥ
ＶＳＹＮＣ　０
＠ＬＰ
ＶＳＹＮＣ　１
ＢＴ＝ＢＴＲＩＧ（）
ＩＦ　ＢＴ＝＝１６　ＴＨＥＮ　ＩＮＰＵＴ　Ｎ：ＧＯＴＯ＠ＥＸ１
ＩＦ　ＢＴ＝＝３２　ＴＨＥＮ　ＧＯＴＯ＠ＥＸ２
ＩＦ　ＢＴ＝＝６４　ＡＮＤ　ＭＫ　ＴＨＥＮ　ＧＯＴＯ＠ＥＸ３
ＧＯＴＯ＠ＬＰ
＠ＥＸ１
ＧＣＬＳ：ＣＬＳ
ＧＯＴＯ＠ＳＴＡＲＴ
＠ＥＸ２
ＥＮＤ
＠ＥＸ３
ＣＬＳ
ＧＯＴＯ　＠ＲＴ

＠ＭＡＫＥ
ＤＩＭ　Ｘ（２５６），Ｙ（２５６）
ＤＩＭ　ＸＡ（２５６），ＹＡ（２５６），ＸＢ（２５６），ＹＢ（２５６）
ＤＩＭ　Ｂ（２５６）
ＤＩＭ　ＭＸ（２５６），ＭＹ（２５６）
ＧＰＡＧＥ　１
ＭＸ（０）＝５：ＭＹ（０）＝１００
ＭＸ（１）＝２５０：ＭＹ（１）＝１００
ＢＲ＝１：ＴＣＨＦ＝－１
＠ＲＴ
ＢＴ＝ＢＵＴＴＯＮ（）
ＢＧＭＰＬＡＹ”＠１４７Ｃ１６Ｇ１６
ＷＡＩＴ　１
ＣＬＳ
？”А　Ｃｒｅａｔｅ　ｐｏｉｎｔ
？”Б　Ｄｅｌｅｔｅ　ｐｏｉｎｔ
？”Ф　Ｄｒａｗ　Ｖｅｒｔｉｃａｌ　Ｌｉｎｅ－－スイチョク
？”Х　Ｄｒａｗ　Ｌｉｎｅ　ｏｆ　ｓａｍｅ　ｌｅｎｇｔｈ
？”　　　　　　　　　　　　　　　　　－－オナシ゛ナカ゛サ
？”ＳＴＡＲＴ：ＧＯ！！
＠ＬＯＯＰ
ＧＯＳＵＢ　＠ＤＲＡＷ
ＯＴ＝Ｔ
Ｔ＝ＴＣＨＳＴ
ＢＴＲ＝ＮＯＴ（ＢＴ）　ＡＮＤ　ＢＵＴＴＯＮ（）
ＢＴ＝ＢＵＴＴＯＮ（）
ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ
ＩＦ　！ＯＴ　ＡＮＤ　Ｔ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＣＨ
ＩＦ　ＴＣＨＦ＞＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＣＨＭＯＶＥ
ＩＦ　ＢＴＲ　ＡＮＤ　１０２４　ＴＨＥＮ　＠ＩＮ
ＶＳＹＮＣ　１
ＧＯＴＯ＠ＬＯＯＰ

＠ＴＣＨ
ＩＦ　ＢＴ　ＡＮＤ　１６　ＧＯＴＯ　＠ＮＥＷＰＯＩＮＴ
ＴＣＨＦ＝－１
ＦＯＲ　Ｉ＝０　ＴＯ　ＢＲ
　ＰＸ＝ＭＸ（Ｉ）
　ＰＹ＝ＭＹ（Ｉ）
　ＩＦ　ＡＢＳ（ＰＸ－ＴＸ）＜＝５　ＡＮＤ　ＡＢＳ（ＰＹ－ＴＹ）＜＝５　ＴＨＥＮ　ＴＣＨＦ＝Ｉ
　ＩＦ　ＴＣＨＦ＞＝０　ＡＮＤ　（ＢＴ　ＡＮＤ　３２）＝＝３２　ＴＨＥＮ　＠ＤＥＬＰＯＩＮＴ
ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＴＣＨＭＯＶＥ
ＩＦ　Ｔ＝＝０　ＴＨＥＮ　ＴＣＨＦ＝－１：ＲＥＴＵＲＮ
ＭＸ（ＴＣＨＦ）＝ＴＸ
ＭＹ（ＴＣＨＦ）＝ＴＹ
ＩＦ　ＢＴ　ＡＮＤ　１２８　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＭＶ３
ＩＦ　ＢＴ　ＡＮＤ　６４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＭＶ２
ＩＦ　ＴＣＨＦ＝＝ＢＲ　ＴＨＥＮ　ＭＹ（０）＝ＭＹ（ＢＲ）
ＩＦ　ＴＣＨＦ＝＝０　ＴＨＥＮ　ＭＹ（ＢＲ）＝ＭＹ（０）
ＲＥＴＵＲＮ

＠ＴＭＶ２
ＩＦ　ＴＣＨＦ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
ＩＦ　（ＢＴ　ＡＮＤ　１２８）＝＝１２８　ＡＮＤ　ＴＣＨＦ＞＝２　ＴＨＥＮ　＠ＴＭＶ２３
ＩＦ　ＡＢＳ（ＭＸ（ＴＣＨＦ－１）－ＴＸ）＜ＡＢＳ（ＭＹ（ＴＣＨＦ－１）－ＴＹ）　ＴＨＥＮ　＠ＴＭＶ２２
ＭＸ（ＴＣＨＦ）＝ＴＸ
ＭＹ（ＴＣＨＦ）＝ＭＹ（ＴＣＨＦ－１）
ＲＥＴＵＲＮ
＠ＴＭＶ２２
ＭＹ（ＴＣＨＦ）＝ＴＹ
ＭＸ（ＴＣＨＦ）＝ＭＸ（ＴＣＨＦ－１）
ＲＥＴＵＲＮ
＠ＴＭＶ２３
ＩＦ　ＡＢＳ（ＭＸ（ＴＣＨＦ－１）－ＴＸ）＜ＡＢＳ（ＭＹ（ＴＣＨＦ－１）－ＴＹ）　ＴＨＥＮ　＠ＴＭＶ２４
ＭＸ（ＴＣＨＦ）＝ＭＸ（ＴＣＨＦ－１）＋Ｌ＊ＳＧＮ（ＴＸ－ＭＸ（ＴＣＨＦ－１））
ＭＹ（ＴＣＨＦ）＝ＭＹ（ＴＣＨＦ－１）
ＲＥＴＵＲＮ
＠ＴＭＶ２４
ＭＹ（ＴＣＨＦ）＝ＭＹ（ＴＣＨＦ－１）＋Ｌ＊ＳＧＮ（ＴＹ－ＭＹ（ＴＣＨＦ－１））
ＭＸ（ＴＣＨＦ）＝ＭＸ（ＴＣＨＦ－１）

ＲＥＴＵＲＮ

＠ＴＭＶ３
ＩＦ　ＴＣＨＦ＜＝１　ＴＨＥＮ　ＲＥＴＵＲＮ
Ｌ＝ＳＱＲ（ＰＯＷ（ＡＢＳ（ＭＸ（１）－ＭＸ（０）），２）＋ＰＯＷ（ＡＢＳ（ＭＹ（１）－ＭＹ（０）），２））
ＣＣ＝ＡＴＡＮ（ＴＹ－ＭＹ（ＴＣＨＦ－１），ＴＸ－ＭＸ（ＴＣＨＦ－１））
ＭＸ（ＴＣＨＦ）＝ＭＸ（ＴＣＨＦ－１）＋ＣＯＳ（ＣＣ）＊Ｌ
ＭＹ（ＴＣＨＦ）＝ＭＹ（ＴＣＨＦ－１）＋ＳＩＮ（ＣＣ）＊Ｌ
ＲＥＴＵＲＮ

＠ＮＥＷＰＯＩＮＴ
ＢＲ＝ＢＲ＋１
ＭＸ（ＢＲ）＝ＭＸ（ＢＲ－１）
ＭＹ（ＢＲ）＝ＭＹ（ＢＲ－１）
ＭＸ（ＢＲ－１）＝ＴＸ
ＭＹ（ＢＲ－１）＝ＴＹ
ＲＥＴＵＲＮ

＠ＤＥＬＰＯＩＮＴ
ＩＦ　ＴＣＨＦ＝＝０　ＯＲ　ＴＣＨＦ＝＝ＢＲ　ＴＨＥＮ　ＲＥＴＵＲＮ
ＦＯＲ　Ｊ＝Ｉ　ＴＯ　ＢＲ
ＭＸ（Ｊ）＝ＭＸ（Ｊ＋１）
ＭＹ（Ｊ）＝ＭＹ（Ｊ＋１）
ＮＥＸＴ
ＢＲ＝ＢＲ－１
ＴＣＨＦ＝－１
ＲＥＴＵＲＮ

＠ＤＲＡＷ
ＧＰＡＧＥ　１，２，１
ＧＣＬＳ
ＦＯＲ　Ｉ＝０　ＴＯ　ＢＲ－１
ＧＬＩＮＥ　ＭＸ（Ｉ），ＭＹ（Ｉ），ＭＸ（Ｉ＋１），ＭＹ（Ｉ＋１），５
ＮＥＸＴ
ＦＯＲ　Ｉ＝０　ＴＯ　ＢＲ
ＧＢＯＸ　ＭＸ（Ｉ）－３，ＭＹ（Ｉ）－３，ＭＸ（Ｉ）＋３，ＭＹ（Ｉ）＋３，２
ＮＥＸＴ
ＧＰＡＧＥ　１，１，１
ＧＣＯＰＹ　２，０，０，２５５，１９１，０，０，１

ＲＥＴＵＲＮ

＠ＩＮ
ＣＹ＝１９１
ＳＸ１＝ＭＸ（０）
ＳＹ１＝ＭＹ（０）
ＳＸ２＝ＭＸ（ＢＲ）
ＳＹ２＝ＭＹ（ＢＲ）
ＬＸ＝ＳＸ２－ＳＸ１
ＦＯＲ　Ｉ＝１　ＴＯ　ＢＲ－１
Ｘ（Ｉ＋１）＝（ＭＸ（Ｉ）－ＳＸ１）／ＬＸ
Ｙ（Ｉ＋１）＝－（ＭＹ（Ｉ）－ＳＹ１）／ＬＸ
ＮＥＸＴ
ＳＹ１＝ＣＹ－ＳＹ１
ＳＹ２＝ＣＹ－ＳＹ２
ＧＰＡＧＥ　０：ＧＣＬＳ
ＢＧＭＰＬＡＹ　”＠１４７Ｇ１６Ｅ１６＜Ｃ１６
Ｎ＝１
ＭＫ＝ＴＲＵＥ
ＧＯＴＯ＠ＳＴＡＲＴ

＠＿ＤＡＴＡ
’シ゛ェネレ－タ　サクセイノ　ヒント
’Ｔｉｐｓ　ｆｏｒ　ｃｒｅａｔｉｎｇ　ａ
’ｇｅｎｅｒａｔｏｒ
’
’セントウノ　テ゛－タ
’Ｔｈｅ　ｆｉｒｓｔ　ｄａｔａ
’СТТТТТТТТТТТТТТТТТТТТТТТТТТУ
’УＤＡＴＡ　ＢＲ，Ｎ，ＳＸ１，ＳＹ１，ＳＸ２，ＳＹ２　У
’УＢＲ：シ゛ェネレ－タノ　センノ　カス゛　　　　　　　У
’У　　Ｔｈｅ　ｔｏｔａｌ　ｎｕｍｂｅｒ　ｏｆ　ｌｉｎｅУ
’УＮ　：セタ゛イ，ナント゛クリカエスカ　　　　　　　　У
’У　　Ｌｅｖｅｌ　　　　　　　　　　　　　　　　　　　У
’УＳＸ１，ＳＹ１：シテンサ゛ヒョウ　　　　　　　　　　У
’У　　　　　　　Ｃｏｏｒｄｉｎａｔｅｓ　ｏｆ　　　　　У
’У　　　　　　　ｔｈｅ　Ｓｔａｒｔ　　　　　　　　　　У
’УＳＸ２，ＳＹ２：シュウテンサ゛ヒョウ　　　　　　　　У
’У　　　　　　　Ｃｏｏｒｄｉｎａｔｅｓ　ｏｆ　　　　　У
’У　　　　　　　ｔｈｅ　Ｅｎｄ　　　　　　　　　　　　У
’У（Ｙシ゛クハ　サ゛ヒョウハンテン）　　　　　　　　　У
’ТТТТТТТТТТТТТТТТТТТТТТТТТТТ
’シ゛ェネレ－タノ　テ゛－タ
’ＤＡＴＡ　ｏｆ　ｇｅｎｅｒａｔｏｒ
’
’ＳＸ１＝０，ＳＹ１＝０
’ＳＸ２＝１，ＳＹ２＝０

’０　　　　　　０．５　０．７５　１
’・－－－－－－－・－－－・－－－・
’ＳＸ１　　　　　　　　　　　　ＳＸ２
’
’ＤＡＴＡ　Ｘ１，Ｙ１，Ｘ２，Ｙ２．．．．
’

’ＳＡＭＰＬＥ　ＤＡＴＡ
＠Ｓ０１
’　　　ййй　　　
’　　　з　и　　　
’　　　з　и　　　
’йййз　иййй
’　　　　　　　　　
ＤＡＴＡ　５，１
ＤＡＴＡ　０，５，２５５，５
ＤＡＴＡ　０．３３，０
ＤＡＴＡ　０．３３，０．３３
ＤＡＴＡ　０．６７，０．３３
ＤＡＴＡ　０．６７，０

’ＳＡＭＰＬＥ０２　
’　　　　йй　　　
’　　　　л　л　　
’жжл　　жкж　
’　　　жжж　　　
＠Ｓ０２
ＤＡＴＡ　１１，３
ＤＡＴＡ　　　０，　　９６，２５６，　　９６
ＤＡＴＡ　０．１６７，０．０
ＤＡＴＡ　０．３３３，－０．１２１
ＤＡＴＡ　０．５　　，－０．１６
ＤＡＴＡ　０．６６７，－０．１２１
ＤＡＴＡ　０．８３３，０
ＤＡＴＡ　０．６６７，０．１２１
ＤＡＴＡ　０．５　　，０．１６
ＤＡＴＡ　０．３３３，０．０４
ＤＡＴＡ　０．５　　，－０．０４
ＤＡＴＡ　０．６６７，０

＠Ｓ０３
’フラクタル－－－
ＤＡＴＡ　２，１３
ＤＡＴＡ　５０，４０，２００，４０
ＤＡＴＡ　０．３，０．４

＠Ｓ０４
’コッホ　キョクセン
ＤＡＴＡ　４，４
ＤＡＴＡ　０，３，２５５，３
ＤＡＴＡ　０．３３３，０
ＤＡＴＡ　０．５　　，０．２８６
ＤＡＴＡ　０．６６７，０

＠Ｓ０５
ＤＡＴＡ　２，１４
ＤＡＴＡ　５０，５０，２０５，５０
ＤＡＴＡ　０．５，０．２

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

キービィ : QR作った方がいいですよ。 (2013/03/21 (木) 17:41:02)
チクチク : ダウンロードしてみよ♪ (2013/03/24 (日) 08:49:42)
Rfhrsewa : RNycMNki (2014/03/10 (月) 19:48:30)

プチコンまとめArchive

投稿プログラム : Recursive Figure

パンくずリスト

概要

いろいろ

スクリーンショット・動画

QR コード

プログラムリスト

CHECKER FLAG (ひとことコメント)

メニュー

外部リンク

プチコン4

プチコン3号&BIG

プチコン初代&mkII