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

投稿プログラム : 簡易フォントエディタ

2011年09月13日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ツール 初代対応 QRコード

概要

簡単なフォントエディタのようなものを作ってみました。
簡易なので使える色は白だけです。

使い方

作ったフォントはSTARTボタンでファイルメニューを開いてセーブできます
Rボタン+左ボタン+STARTボタンでリセットできます。
十字キーで選んで
タッチパネルで入力して下さい。

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

HNI_0039.JPG
HNI_0037.JPG
HNI_0038.JPG

ドラクエのフォントを打ち込んでみたりしたけど、これだと逆にカタカナが使えなくなる
RPG作ろうと思ったらBGUを使ったほうがいいと思う。
キーボードのデザインを変更できたらもうちょっと使いやすいんだけど。

qr1.png

プログラムリスト

  1. CLS:CLEAR
  2. PNLTYPE ”OFF”
  3. GPAGE 1:GCLS 5
  4. BGPAGE 1
  5. COLSET ”BG”,0,”000000”
  6. COLSET ”GRP”,0,”000000”
  7. COLSET ”GRP”,15,”FFFFFF”
  8. COLSET ”GRP”,2,”AAAAAA”
  9. GOSUB @FOC
  10. GOTO @START
  11. @FOC
  12. LOCATE 0,15
  13. FOR I=0 TO 255
  14. ?CHR$(I);
  15. NEXT
  16. RETURN
  17. @START
  18. PX=256/2:PY=192/2
  19. S=8*8:SL=S/4:SF=8*15
  20. GBOX PX−S,PY−S,PX+S,PY+S,2
  21. FOR I=0 TO 7
  22. GLINE PX−S+SL*I,PY−S,PX−S+SL*I,PY+S,2
  23. GLINE PX−S,PY−S+SL*I,PX+S,PY−S+SL*I,2
  24. NEXT
  25. FOR I=0 TO 7
  26. FOR J=0 TO 7
  27. GPAINT PX−S+4+SL*I,PY−S+4+SL*J,0
  28. NEXT:NEXT
  29. GOSUB @BGF
  30. @LOOP
  31. VSYNC 1
  32. TCT=TCHTIME
  33. IF TCT==1 THEN GOSUB @TC
  34. IF TCHST THEN GOSUB @MJS
  35. GOSUB @BTN
  36. IF BTN THEN GOSUB @BGF
  37. GOTO @LOOP
  38. @BTN
  39. GPAGE 0:GCLS 0
  40. BTN=BUTTON()
  41. IF BTN THEN BTF=BTF+1
  42. IF BTN==0 THEN BTF=0:BTC=1
  43. GFILL 8*(FN%32),SF+FLOOR(FN/32)*8,8*(FN%32)+7,SF+FLOOR(FN/32)*8+7,2
  44. IF (BTN AND 1)!=0 AND BTF%5==1 THEN FN=FN−32
  45. IF (BTN AND 2)!=0 AND BTF%5==1 THEN FN=FN+32
  46. IF (BTN AND 4)!=0 AND BTF%5==1 THEN FN=FN−1
  47. IF (BTN AND 8)!=0 AND BTF%5==1 THEN FN=FN+1
  48. IF FN>255 THEN FN=255
  49. IF FN<0 THEN FN=0
  50. IF (BTN AND 1024)!=0 AND BTC THEN GOSUB @FM
  51. LOCATE 0,0:?”FONT ”;FN;”   ”
  52. GPAGE 1
  53. RETURN
  54. @TC
  55. X=TCHX:Y=TCHY
  56. IF GSPOIT(X,Y)==15 THEN GPAINT X,Y,0:GOTO @SL
  57. IF GSPOIT(X,Y)==0 THEN GPAINT X,Y,15
  58. @SL
  59. RETURN
  60. `−−−ファイル モート゛
  61. @FM
  62. LOCATE 0,5:?”ファイル モート゛”
  63. LOCATE 0,6:?”S = フォント セーフ゛”
  64. LOCATE 0,7:?”L = フォント ロート゛”
  65. LOCATE 0,8: ?”−−−−−−−−−−−−−−−−−−−−”
  66. INPUT F$
  67. IF F$==”L”THEN INPUT ”ヨミコム ナマエ”;F$:F$=”BGF0:”+F$:LOAD F$,0:BGPAGE 0:LOAD F$:BGPAGE 1
  68. IF F$==”S”THEN INPUT ”カキコム ナマエ”;F$:F$=”BGF0:”+F$:SAVE F$
  69. CLS:GOSUB @FOC
  70. RETURN
  71. `−−−BGF0 ニ カキコミ
  72. @MJS
  73. FO$=””
  74. FOR J=0 TO 7
  75. FOR I=0 TO 7
  76. FO$=FO$+HEX$(GSPOIT(PX−S+4+SL*I,PY−S+4+SL*J))
  77. NEXT:NEXT
  78. BGPAGE 0:CHRSET ”BGF0”,FN,FO$
  79. BGPAGE 1:CHRSET ”BGF0”,FN,FO$
  80. RETURN
  81. `−−−ヨミコンテ゛ ヒョウシ゛
  82. @BGF
  83. CHRREAD (”BGF0”,FN),FO2$
  84. FOR I=0 TO 7
  85. FOR J=0 TO 7
  86. IF MID$(FO2$,J*8+I,1)==”0”THEN GPAINT PX−S+4+SL*I,PY−S+4+SL*J,0
  87. IF MID$(FO2$,J*8+I,1)!=”0”THEN GPAINT PX−S+4+SL*I,PY−S+4+SL*J,15
  88. NEXT:NEXT
  89. RETURN

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

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

  • 投稿者 : youtubeなどに上がってるのとは別物です。 (2011/09/13 (火) 17:43:26)
  • わぁぃ@ : CHREDをちょいといじくればBGFにも対応可。あと、ページのタイトルが「投稿プログラム:<ここにプログラムのタイトルを書きます>」のままになっている。 (2011/09/13 (火) 22:40:10)
  • 投稿者 : すみません。タイトル入れときました。 (2011/09/13 (火) 23:28:34)
  • 投稿者 : 俺には他人の作ったプログラムを改変する勇気(技術)がなかったんだ・・・ (2011/09/13 (火) 23:32:22)
  • 名無し君 : 14行目が"LOCATE 0,15"ではなく"LOCATE 0.15"になっていますよ (2011/09/27 (火) 17:05:50)
  • 投稿者 : 直しました。 (2011/09/27 (火) 20:57:29)
  • バイカウントメルビル : たぶんですが71行目の「:」の位置が違います。 (2011/10/16 (日) 00:36:41)
  • 投稿者 : 修正 (2011/10/17 (月) 12:59:17)
  • 名無しさん : 作って下さりありがとう御座います!! (2012/01/15 (日) 07:04:49)
  • バイカウントメルビル : ↑CHREDの36行目の「BGU」を、「BGF」に変えて、「4」を「1」にすればできるけどね。なんかすいません。 (2012/01/15 (日) 11:20:43)
  • 投稿者 : 他人の作ったプログラムを見てると目が痛くなっちゃうんで、もう一からキャラクターエディタ作っちゃいました。 (2012/01/16 (月) 01:19:56)
  • 名無しさん : ↑↑4は1ではなく0だと思います… (2012/01/16 (月) 17:10:01)
  • バイカウントメルビル : ↑え!?・・・1の方がいいと思うけどな・・・まどっちでもそう変わんないけどね。 (2012/01/16 (月) 19:04:36)
  • 名無しさん : 50行〜53行 上から読んで-+-+ですが、−+−+では? (2012/02/11 (土) 14:05:25)
  • ミジュはると : エラー出た (2013/03/26 (火) 12:47:53)
  • 天郷思音 : ↑2確かに。直しておこう。 (2013/03/26 (火) 13:15:06)
  • みりみり : うえがめんがう (2013/05/25 (土) 11:04:16)
  • みりみり : ↑間違えました 上画面が上手く表示されずに、文字が縦に並んで表示されるんですけど、打ち間違っているとしたらどこでしょうか? (2013/05/25 (土) 11:08:05)
  • みりみり : ;が抜けていただけでしたすみません (2013/05/25 (土) 11:09:16)
  • t.itiiti : 白だけってのもいいよね (2014/01/31 (金) 17:07:08)
  • 天郷思音 : いまさらながら、ページのタグを共通のもの(「QR」→「QRコード」)に変更しておきました。 (2015/03/08 (日) 10:54:13)

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