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

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

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

概要

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

機能の説明

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

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

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

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

Ф画像のセーブ。

н塗りつぶし。

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

プログラムリスト

  1. ’セイミツGRPED by ryotakami
  2. @SYOKI
  3. CLEAR:COLOR 0
  4. CLS:CX=1:CY=1
  5. GPAGE 0:GCLS
  6. GPAGE 1:GCLS
  7. @L_LOOP
  8. LOCATE 0,0:BT=BUTTON()
  9. ?”GRPヲヨミコミマスカ(А)”
  10. IF BT AND 16 GOTO @_LOAD
  11. IF BT GOTO @MENU
  12. GOTO @L_LOOP
  13. @_LOAD
  14. INPUT”ヨミコムナマエ”;A$
  15. A$=”GRP1:”+A$:LOAD A$
  16. @MENU
  17. PNLTYPE”OFF”
  18. SPCLR:CLS
  19. SPPAGE 1:SPSET 0,112,0,0,0,0
  20. LOCATE 0,0:?”┌────────────────┐”
  21. LOCATE 0,17:?”└────────────────┘”
  22. ?”┌──┐  н   PAINT”
  23. ?”│  │  Ф   SAVE”
  24. ?”│  │  А+П PSET”
  25. ?”└──┘  К+П COLOR”
  26. GPAGE 0
  27. FOR Y=1 TO 16
  28.  LOCATE 0,Y:?”│                │”
  29. NEXT
  30. I=0
  31. FOR Y=8 TO 128 STEP 8
  32.   FOR X=8 TO 128 STEP 8
  33.     GFILL X,Y,X+8,Y+8,I
  34.     I=I+1:IF I>255 THEN I=255
  35.   NEXT
  36. NEXT
  37. ’ーー−−ー カラーハ゜レットカ゛メン
  38. @COLLOOP
  39. GPAGE 0
  40. VX=0:VY=0
  41. BT=BUTTON()
  42. GOSUB @COLPAL
  43. IF BT AND 1 THEN VY=−1
  44. IF BT AND 2 THEN VY=1
  45. IF BT AND 4 THEN VX=−1
  46. IF BT AND 8 THEN VX=1
  47. LOCATE CX,CY:?” ”
  48. CX=CX+VX:CY=CY+VY
  49. IF CX<1 THEN CX=16:CY=CY−1
  50. IF CY<1 THEN CY=16:CX=CX−1
  51. IF CX>16 THEN CX=1:CY=CY+1
  52. IF CY>16 THEN CY=1:CX=CX+1
  53. GOSUB @CSR
  54. VSYNC 3
  55. IF (BT AND 256)==FALSE GOTO @PT_LOOP
  56. GOTO @COLLOOP
  57. ’−−−
  58. @COLPAL
  59. COL=GSPOIT(CX*8,CY*8)
  60. GFILL 7,151,24,168,COL
  61. RETURN
  62. ’−−−−− ヒ゛ョウカ゛ ルーフ゜
  63. @PT_LOOP
  64. GPAGE 1
  65. OB=BT
  66. BT=BUTTON()
  67. IF TCHST THEN PX=TCHX:PY=TCHY
  68. IF (BT AND 32)==FALSE AND OB!=0  GOTO @SKIP
  69. IF BT AND 256 GOTO @COLLOOP
  70. IF BT AND 1 THEN PY=PY−1
  71. IF BT AND 2 THEN PY=PY+1
  72. IF BT AND 4 THEN PX=PX−1
  73. IF BT AND 8 THEN PX=PX+1
  74. IF PX<0   THEN PX=255
  75. IF PX>255 THEN PX=0
  76. IF PY<0   THEN PY=191
  77. IF PY>191 THEN PY=0
  78. @SKIP
  79. SPOFS 0,PX,PY
  80. IF BT AND 16 THEN GOSUB @PSET
  81. IF BT AND 512 THEN GOSUB @PAINT
  82. IF BT AND 64 GOTO @_SAVE
  83. GOSUB @CSR
  84. VSYNC 1
  85. GOTO @PT_LOOP
  86. ’−−−
  87. @PSET
  88. IF TCHST THEN RETURN
  89. GPSET PX,PY,COL
  90. RETURN
  91. ’−−−
  92. @PAINT
  93. GPAINT PX,PY,COL
  94. RETURN
  95. ’−−−
  96. @CSR
  97. COLOR RND(16)
  98. LOCATE CX,CY:?”□”
  99. RETURN
  100. ’−−−
  101. @_SAVE
  102. COLOR 0:GPAGE 0:CLS
  103. GFILL 0,0,255,191,0
  104. INPUT”セーフ゛スルナマエ”;N$
  105. N$=”GRP1:”+N$
  106. SAVE N$
  107. GOTO @MENU
  108. END

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

  • この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
  • だれかさん1 : おおおおすげえ (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)
  • 名無しさん : QRコート゛ (2012/05/30 (水) 17:05:27)
  • 名無しさん : QRコート゛ツケロ (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)
  • 名無しさん : test} (&new{2012/07/29 (日) 10:20:14)
  • 名無しさん : QRコート゛ツケロ (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.033 秒 | このページの最終更新 : 2012/10/12 (金) 20:11:08 (2620d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30