プチコンまとめWiki (初代/mkII)

投稿プログラム : ベジェ曲線を表示するだけのプログラム

パンくずリスト

2011年07月07日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム 初代対応

概要

ベジェ曲線のようなものを表示します。
12行目のNの数値を変更することで、曲線のなめらかさを変更できます。
Nの数値を2の累乗の数にするときれいに表示できます(1024ぐらいまでは)

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

HNI_0013.JPG

プログラムリスト

  1. ＩＦ　ＶＣＬＥＡＲ＿１＝＝０　ＴＨＥＮ　ＡＸ＝５０：ＢＸ＝１３０：ＣＸ＝２３０：ＤＸ＝２１０：ＡＹ＝１５０：ＢＹ＝２０：ＣＹ＝７０：ＤＹ＝１５０
  2. ＣＬＳ：ＧＣＬＳ：ＫＥＹ　５，”ＢＥＺＩＥ”
  3. ＶＣＬＥＡＲ＿１＝１
  4. ＧＰＡＧＥ　１：ＰＮＬＴＹＰＥ　”ＯＦＦ”
  5. ＠ＬＯＯＰ
  6. ＧＣＬＳ：Ｔ＝０
  7. ＩＦ　Ｚ＝＝１　ＴＨＥＮ　ＡＸ＝ＴＣＨＸ：ＡＹ＝ＴＣＨＹ
  8. ＩＦ　Ｚ＝＝２　ＴＨＥＮ　ＢＸ＝ＴＣＨＸ：ＢＹ＝ＴＣＨＹ
  9. ＩＦ　Ｚ＝＝３　ＴＨＥＮ　ＣＸ＝ＴＣＨＸ：ＣＹ＝ＴＣＨＹ
  10. ＩＦ　Ｚ＝＝４　ＴＨＥＮ　ＤＸ＝ＴＣＨＸ：ＤＹ＝ＴＣＨＹ
  12. Ｎ＝３２
  13. ＦＯＲ　Ｉ＝０　ＴＯ　Ｎ−１
  14. Ｘ１＝ＡＸ：Ｙ１＝ＡＹ：Ｘ２＝ＢＸ：Ｙ２＝ＢＹ
  15. Ｘ３＝ＣＸ：Ｙ３＝ＣＹ：Ｘ４＝ＤＸ：Ｙ４＝ＤＹ
  16. Ｘ＿１＝（１−Ｔ）＊（１−Ｔ）＊（１−Ｔ）＊Ｘ１＋３＊（１−Ｔ）＊（１−Ｔ）＊Ｔ＊Ｘ２＋３＊（１−Ｔ）＊Ｔ＊Ｔ＊Ｘ３＋Ｔ＊Ｔ＊Ｔ＊Ｘ４
  17. Ｙ＿１＝（１−Ｔ）＊（１−Ｔ）＊（１−Ｔ）＊Ｙ１＋３＊（１−Ｔ）＊（１−Ｔ）＊Ｔ＊Ｙ２＋３＊（１−Ｔ）＊Ｔ＊Ｔ＊Ｙ３＋Ｔ＊Ｔ＊Ｔ＊Ｙ４
  19. Ｔ＝Ｔ＋１／Ｎ
  20. Ｘ＿２＝（１−Ｔ）＊（１−Ｔ）＊（１−Ｔ）＊Ｘ１＋３＊（１−Ｔ）＊（１−Ｔ）＊Ｔ＊Ｘ２＋３＊（１−Ｔ）＊Ｔ＊Ｔ＊Ｘ３＋Ｔ＊Ｔ＊Ｔ＊Ｘ４
  21. Ｙ＿２＝（１−Ｔ）＊（１−Ｔ）＊（１−Ｔ）＊Ｙ１＋３＊（１−Ｔ）＊（１−Ｔ）＊Ｔ＊Ｙ２＋３＊（１−Ｔ）＊Ｔ＊Ｔ＊Ｙ３＋Ｔ＊Ｔ＊Ｔ＊Ｙ４
  23. ＩＦ　ＰＬＣＬ＝＝０　ＴＨＥＮ　ＧＬＩＮＥ　Ｘ１，Ｙ１，Ｘ２，Ｙ２，３
  24. ＩＦ　ＰＬＣＬ＝＝０　ＴＨＥＮ　ＧＢＯＸ　Ｘ２＋１，Ｙ２−１，Ｘ２−１，Ｙ２＋１，３
  25. ＩＦ　ＰＬＣＬ＝＝０　ＴＨＥＮ　ＧＬＩＮＥ　Ｘ３，Ｙ３，Ｘ４，Ｙ４，３
  26. ＩＦ　ＰＬＣＬ＝＝０　ＴＨＥＮ　ＧＢＯＸ　Ｘ３＋１，Ｙ３−１，Ｘ３−１，Ｙ３＋１，３
  28. ＧＬＩＮＥ　Ｘ＿１，Ｙ＿１，Ｘ＿２，Ｙ＿２，２
  29. ＧＰ＝１
  30. ＮＥＸＴ　Ｉ
  31. ＠ＢＴＮ＿Ｏ
  32. ＢＴＮ＝ＢＵＴＴＯＮ（）
  33. ＩＦ　ＢＴＮ＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＬＯＯＰ２
  34. ＧＯＴＯ　＠ＢＴＮ＿Ｏ
  35. ＠ＬＯＯＰ２
  36. ＢＴＮ＝ＢＵＴＴＯＮ（）
  37. ＩＦ　ＰＬＣＬ＝＝０　ＡＮＤ　ＢＴＮ＝＝６４　ＴＨＥＮ　ＰＬＣＬ＝１：ＧＯＴＯ　＠ＬＯＯＰ
  38. ＩＦ　ＰＬＣＬ＝＝１　ＡＮＤ　ＢＴＮ＝＝６４　ＴＨＥＮ　ＰＬＣＬ＝０：ＧＯＴＯ　＠ＬＯＯＰ
  39. ＩＦ　ＴＣＨＳＴ＝＝１　ＴＨＥＮ　ＧＯＴＯ　＠ＬＯＯＰ
  40. ＶＳＹＮＣ　１
  42. ＩＦ　（ＡＸ−１０＜ＴＣＨＸ　ＡＮＤ　ＡＸ＋１０＞ＴＣＨＸ）　ＡＮＤ　（ＡＹ−１０＜ＴＣＨＹ　ＡＮＤ　ＡＹ＋１０＞ＴＣＨＹ）　ＴＨＥＮ　Ｚ＝１
  43. ＩＦ　（ＢＸ−１０＜ＴＣＨＸ　ＡＮＤ　ＢＸ＋１０＞ＴＣＨＸ）　ＡＮＤ　（ＢＹ−１０＜ＴＣＨＹ　ＡＮＤ　ＢＹ＋１０＞ＴＣＨＹ）　ＴＨＥＮ　Ｚ＝２
  44. ＩＦ　（ＣＸ−１０＜ＴＣＨＸ　ＡＮＤ　ＣＸ＋１０＞ＴＣＨＸ）　ＡＮＤ　（ＣＹ−１０＜ＴＣＨＹ　ＡＮＤ　ＣＹ＋１０＞ＴＣＨＹ）　ＴＨＥＮ　Ｚ＝３
  45. ＩＦ　（ＤＸ−１０＜ＴＣＨＸ　ＡＮＤ　ＤＸ＋１０＞ＴＣＨＸ）　ＡＮＤ　（ＤＹ−１０＜ＴＣＨＹ　ＡＮＤ　ＤＹ＋１０＞ＴＣＨＹ）　ＴＨＥＮ　Ｚ＝４
  46. ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　ＴＣＺ＝０：Ｚ＝０
  47. ＧＯＴＯ　＠ＬＯＯＰ２

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

  • この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
  • バイカウントメルビル : ４行目のイコールはスペースではないのですか？ (2011/07/28 (木) 18:42:26)
  • 作者 : そうですね、修整しました。 (2011/07/28 (木) 19:20:07)
  • バイカウントメルピル : 23・25行はGLINEでは？ (2012/01/07 (土) 14:43:44)
  • 投稿者 : すいません。直しました。 (2012/01/07 (土) 22:56:14)
  • おうぎょく : 自身の作品に、このプログラムを利用してもよろしいでしょうか。 (2012/10/05 (金) 11:32:31)
  • 投稿者 : いいですよ (2012/10/05 (金) 18:43:38)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.114 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:15 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30