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

投稿プログラム : 精密グラフィックエディタ

パンくずリスト

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

概要

サンプルのGRPEDとは違い、１ピクセル単位で細かいグラフィックを作成できます。 もちろん、作成したグラフィックは保存して、自分のプログラムに使用することができます。

機能の説明

Пカーソルの移動。Кボタンを押しながらだと色選択のカーソル側が移動します。

Аボタンを押すことで、その位置に点を打ちます。

Бボタンを押しながら十字キーで、高速移動できます。高速移動中にも点は打てます。線を引くときなどおすすめです。

画面タッチで、その場所に描画カーソルが移動します。タッチでは点は打てません。

Ф画像のセーブ。

н塗りつぶし。

24,25,32行目には、文字が16個入っています。

プログラムリスト

  1. ’セイミツＧＲＰＥＤ　ｂｙ　ｒｙｏｔａｋａｍｉ
  3. ＠ＳＹＯＫＩ
  4. ＣＬＥＡＲ：ＣＯＬＯＲ　０
  5. ＣＬＳ：ＣＸ＝１：ＣＹ＝１
  6. ＧＰＡＧＥ　０：ＧＣＬＳ
  7. ＧＰＡＧＥ　１：ＧＣＬＳ
  9. ＠Ｌ＿ＬＯＯＰ
  10. ＬＯＣＡＴＥ　０，０：ＢＴ＝ＢＵＴＴＯＮ（）
  11. ？”ＧＲＰヲヨミコミマスカ（А）”
  12. ＩＦ　ＢＴ　ＡＮＤ　１６　ＧＯＴＯ　＠＿ＬＯＡＤ
  13. ＩＦ　ＢＴ　ＧＯＴＯ　＠ＭＥＮＵ
  14. ＧＯＴＯ　＠Ｌ＿ＬＯＯＰ
  16. ＠＿ＬＯＡＤ
  17. ＩＮＰＵＴ”ヨミコムナマエ”；Ａ＄
  18. Ａ＄＝”ＧＲＰ１：”＋Ａ＄：ＬＯＡＤ　Ａ＄
  20. ＠ＭＥＮＵ
  21. ＰＮＬＴＹＰＥ”ＯＦＦ”
  22. ＳＰＣＬＲ：ＣＬＳ
  23. ＳＰＰＡＧＥ　１：ＳＰＳＥＴ　０，１１２，０，０，０，０
  24. ＬＯＣＡＴＥ　０，０：？”┌────────────────┐”
  25. ＬＯＣＡＴＥ　０，１７：？”└────────────────┘”
  26. ？”┌──┐　　н　　　ＰＡＩＮＴ”
  27. ？”│　　│　　Ф　　　ＳＡＶＥ”
  28. ？”│　　│　　А＋П　ＰＳＥＴ”
  29. ？”└──┘　　К＋П　ＣＯＬＯＲ”
  30. ＧＰＡＧＥ　０
  31. ＦＯＲ　Ｙ＝１　ＴＯ　１６
  32. 　ＬＯＣＡＴＥ　０，Ｙ：？”│　　　　　　　　　　　　　　　　│”
  33. ＮＥＸＴ
  34. Ｉ＝０
  35. ＦＯＲ　Ｙ＝８　ＴＯ　１２８　ＳＴＥＰ　８
  36. 　　ＦＯＲ　Ｘ＝８　ＴＯ　１２８　ＳＴＥＰ　８
  37. 　　　　ＧＦＩＬＬ　Ｘ，Ｙ，Ｘ＋８，Ｙ＋８，Ｉ
  38. 　　　　Ｉ＝Ｉ＋１：ＩＦ　Ｉ＞２５５　ＴＨＥＮ　Ｉ＝２５５
  39. 　　ＮＥＸＴ
  40. ＮＥＸＴ
  41. ’ーー−−ー　カラーハ゜レットカ゛メン
  42. ＠ＣＯＬＬＯＯＰ
  43. ＧＰＡＧＥ　０
  44. ＶＸ＝０：ＶＹ＝０
  45. ＢＴ＝ＢＵＴＴＯＮ（）
  46. ＧＯＳＵＢ　＠ＣＯＬＰＡＬ
  47. ＩＦ　ＢＴ　ＡＮＤ　１　ＴＨＥＮ　ＶＹ＝−１
  48. ＩＦ　ＢＴ　ＡＮＤ　２　ＴＨＥＮ　ＶＹ＝１
  49. ＩＦ　ＢＴ　ＡＮＤ　４　ＴＨＥＮ　ＶＸ＝−１
  50. ＩＦ　ＢＴ　ＡＮＤ　８　ＴＨＥＮ　ＶＸ＝１
  51. ＬＯＣＡＴＥ　ＣＸ，ＣＹ：？”　”
  52. ＣＸ＝ＣＸ＋ＶＸ：ＣＹ＝ＣＹ＋ＶＹ
  53. ＩＦ　ＣＸ＜１　ＴＨＥＮ　ＣＸ＝１６：ＣＹ＝ＣＹ−１
  54. ＩＦ　ＣＹ＜１　ＴＨＥＮ　ＣＹ＝１６：ＣＸ＝ＣＸ−１
  55. ＩＦ　ＣＸ＞１６　ＴＨＥＮ　ＣＸ＝１：ＣＹ＝ＣＹ＋１
  56. ＩＦ　ＣＹ＞１６　ＴＨＥＮ　ＣＹ＝１：ＣＸ＝ＣＸ＋１
  57. ＧＯＳＵＢ　＠ＣＳＲ
  58. ＶＳＹＮＣ　３
  59. ＩＦ　（ＢＴ　ＡＮＤ　２５６）＝＝ＦＡＬＳＥ　ＧＯＴＯ　＠ＰＴ＿ＬＯＯＰ
  60. ＧＯＴＯ　＠ＣＯＬＬＯＯＰ
  61. ’−−−
  62. ＠ＣＯＬＰＡＬ
  63. ＣＯＬ＝ＧＳＰＯＩＴ（ＣＸ＊８，ＣＹ＊８）
  64. ＧＦＩＬＬ　７，１５１，２４，１６８，ＣＯＬ
  65. ＲＥＴＵＲＮ
  66. ’−−−−−　ヒ゛ョウカ゛　ルーフ゜
  67. ＠ＰＴ＿ＬＯＯＰ
  68. ＧＰＡＧＥ　１
  69. ＯＢ＝ＢＴ
  70. ＢＴ＝ＢＵＴＴＯＮ（）
  71. ＩＦ　ＴＣＨＳＴ　ＴＨＥＮ　ＰＸ＝ＴＣＨＸ：ＰＹ＝ＴＣＨＹ
  72. ＩＦ　（ＢＴ　ＡＮＤ　３２）＝＝ＦＡＬＳＥ　ＡＮＤ　ＯＢ！＝０　　ＧＯＴＯ　＠ＳＫＩＰ
  73. ＩＦ　ＢＴ　ＡＮＤ　２５６　ＧＯＴＯ　＠ＣＯＬＬＯＯＰ
  74. ＩＦ　ＢＴ　ＡＮＤ　１　ＴＨＥＮ　ＰＹ＝ＰＹ−１
  75. ＩＦ　ＢＴ　ＡＮＤ　２　ＴＨＥＮ　ＰＹ＝ＰＹ＋１
  76. ＩＦ　ＢＴ　ＡＮＤ　４　ＴＨＥＮ　ＰＸ＝ＰＸ−１
  77. ＩＦ　ＢＴ　ＡＮＤ　８　ＴＨＥＮ　ＰＸ＝ＰＸ＋１
  78. ＩＦ　ＰＸ＜０　　　ＴＨＥＮ　ＰＸ＝２５５
  79. ＩＦ　ＰＸ＞２５５　ＴＨＥＮ　ＰＸ＝０
  80. ＩＦ　ＰＹ＜０　　　ＴＨＥＮ　ＰＹ＝１９１
  81. ＩＦ　ＰＹ＞１９１　ＴＨＥＮ　ＰＹ＝０
  82. ＠ＳＫＩＰ
  83. ＳＰＯＦＳ　０，ＰＸ，ＰＹ
  84. ＩＦ　ＢＴ　ＡＮＤ　１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＳＥＴ
  85. ＩＦ　ＢＴ　ＡＮＤ　５１２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＡＩＮＴ
  86. ＩＦ　ＢＴ　ＡＮＤ　６４　ＧＯＴＯ　＠＿ＳＡＶＥ
  87. ＧＯＳＵＢ　＠ＣＳＲ
  88. ＶＳＹＮＣ　１
  89. ＧＯＴＯ　＠ＰＴ＿ＬＯＯＰ
  90. ’−−−
  91. ＠ＰＳＥＴ
  92. ＩＦ　ＴＣＨＳＴ　ＴＨＥＮ　ＲＥＴＵＲＮ
  93. ＧＰＳＥＴ　ＰＸ，ＰＹ，ＣＯＬ
  94. ＲＥＴＵＲＮ
  95. ’−−−
  96. ＠ＰＡＩＮＴ
  97. ＧＰＡＩＮＴ　ＰＸ，ＰＹ，ＣＯＬ
  98. ＲＥＴＵＲＮ
  99. ’−−−
  100. ＠ＣＳＲ
  101. ＣＯＬＯＲ　ＲＮＤ（１６）
  102. ＬＯＣＡＴＥ　ＣＸ，ＣＹ：？”□”
  103. ＲＥＴＵＲＮ
  104. ’−−−
  105. ＠＿ＳＡＶＥ
  106. ＣＯＬＯＲ　０：ＧＰＡＧＥ　０：ＣＬＳ
  107. ＧＦＩＬＬ　０，０，２５５，１９１，０
  108. ＩＮＰＵＴ”セーフ゛スルナマエ”；Ｎ＄
  109. Ｎ＄＝”ＧＲＰ１：”＋Ｎ＄
  110. ＳＡＶＥ　Ｎ＄
  111. ＧＯＴＯ　＠ＭＥＮＵ
  113. ＥＮＤ

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

  • この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
  • だれかさん１ : おおおおすげえ (2011/10/02 (日) 08:52:53)
  • 名無しさん : こんなのつくろーかなーとか思ったらもう出てたww (2011/10/02 (日) 16:07:54)
  • わぁぃ@ : 普通のGRPEDに文字スタンプ追加できたから多分これでもできる。 (2011/10/15 (土) 22:21:24)
  • 名無しさん : サンプルプログラム、もういらないですね。 (2011/10/23 (日) 23:36:44)
  • 暇人a : 使いやすいなぁ (2011/12/23 (金) 17:54:13)
  • 名無しさん : これいいですねえ。すごい (2012/02/11 (土) 14:08:02)
  • 名無しさん : 色がつきません　どこが間違っていますか (2012/02/11 (土) 15:25:56)
  • 名無しさん : すいません (2012/02/11 (土) 15:46:53)
  • 島田紳助 : これええな (2012/03/16 (金) 08:14:35)
  • ウイング : まってました！！ (2012/03/16 (金) 15:30:06)
  • 名無しさん : QRないと辛い... (2012/03/16 (金) 16:10:49)
  • SOS : QRコードを付けてくださいな (2012/03/23 (金) 13:46:42)
  • みゃ？ : いいですね。ZOOM機能追加してみた！もうちょっと改造してみたいけど…。 (2012/04/01 (日) 23:05:11)
  • みゃ？ : ↑正確にはルーペ機能でした。 (2012/04/02 (月) 07:02:33)
  • QRコードを付けて : &basic｛QRこーどをつけろ｝； (2012/05/30 (水) 17:04:20)
  • 名無しさん : &basic｛TESTてすと｝； (2012/05/30 (水) 17:04:33)
  • 名無しさん : ＱＲコート゛ (2012/05/30 (水) 17:05:27)
  • 名無しさん : ＱＲコート゛ツケロ (2012/05/30 (水) 17:05:51)
  • 名無しさん : ↑は？ (2012/05/30 (水) 17:08:12)
  • 名無しさん : つhttp://www2.u-netsurf.ne.jp/~ozawa/petitcom/petiteditor.html (2012/05/30 (水) 17:08:56)
  • 名無しさん : 初代で作ったんじゃないの？ (2012/05/30 (水) 18:42:19)
  • 名無しさん : ↑＞2011年07月19日投稿 (2012/05/30 (水) 20:54:54)
  • Petit : どうやってルーペ付けたの。 リスト教えてください。 (2012/06/11 (月) 22:34:30)
  • 名無しさん : リストなら書いてあるけど・・・ (2012/06/11 (月) 23:15:22)
  • 名無しさん : ｔｅｓｔ｝　（＆ａｍｐ；ｎｅｗ｛２０１２／０７／２９　（日）　１０：２０：１４)
  • 名無しさん : ＱＲコート゛ツケロ (2012/07/29 (日) 10:22:15)
  • 名無しさん : 初代で作ったんだからQRコード無くて当たり前なのに何でそう上から目線なの？ (2012/07/29 (日) 12:58:58)
  • 名無しさん : ↑↑↑↑↑ルーペなくね？ (2012/07/29 (日) 13:08:44)
  • hata0401 : QRコード求む (2012/08/02 (木) 14:03:54)
  • 名無しさん : http://www2.u-netsurf.ne.jp/~ozawa/petitcom/petiteditor.htmlで作れ (2012/08/02 (木) 14:27:41)
  • わぁぃ＠ : QR添付しました。http://wiki.hosiken.jp/petc/?plugin=attach&pcmd=open&file=qr.png&refer=Toukou%2F%C0%BA%CC%A9%A5%B0%A5%E9%A5%D5%A5%A3%A5%C3%A5%AF%A5%A8%A5%C7%A5%A3%A5%BFへどうぞ。行末に余計なスペースがついているのはコピペしたせいです。ご了承ください。 (2012/08/02 (木) 14:32:46)
  • みゃ？ : すみません。私は作者ではないので、ルーペ機能は個人で改造したものです。しばらくプチコンから遠ざかっていまして、まだ復帰には時間がかかるかもしれません。 (2012/10/08 (月) 21:58:59)
  • 名無しさん : すげぇのあったww (2012/10/08 (月) 22:03:57)
  • 道産子の初心者 : 拡大機能あったらいいのに… (2012/10/12 (金) 20:11:07)

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