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

投稿プログラム : フォントアレンジ7種詰め合わせ

パンくずリスト

2012年5月22日投稿 / 投稿者 : Sunny Clouds / タグ : 投稿プログラム 実用ツール フォント サブルーチン QRコード

概要

昔MSXでよくやっていたフォントの加工をプチコンでやってみました。 ゲーム等に組み込んで使っていただければと思い、投稿することにしました。 いくつかのサブルーチンでできていますので、必要なものを組み合わせて使用してください。

使い方

  1. 実行すると数字とフォント名が列挙され、どれかを選ぶように聞かれます。
  2. １から７の数字を入力すると選ばれたフォントのタイプフェイスで文字の一覧が表示されます。
  3. その下にフォント名とサブルーチン名が表示されますので、このプログラムからそれらをご自身のプログラムにコピペしてください。

補足

  • もちろん、わざわざタイプフェイスを確認する必要のない方は本プログラムを実行しなくてかまいません。そのまま使用したいルーチンをコピペして使ってください。
  • 基本的に前処理の「@FONT2BIN」とフォントデータ書き換え処理の「@BIN2FONT」は必須です。その間に使いたいフォントへの加工ルーチンが入る形になります。
  • リスト冒頭で宣言している配列変数BとWはワーク変数として必要です。同じように確保して使用してください。
  1. ＤＩＭ　Ｂ（２５６，８）
  2. ＤＩＭ　Ｗ（１６）
  • 加工するフォントの最初と最後の文字コードは変数STとEDで指定しています。すべての文字を対象とするならST=0,ED=255になります。お望みの範囲に変えてください。
  1. ＳＴ＝３２　　’Ｓｔａｒｔ　ｃｏｄｅ　ｎｕｍ
  2. ＥＤ＝１２５　’Ｅｎｄ　ｃｏｄｅ　ｎｕｍ

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

FONTDEMO1.jpg
FONTDEMO2.jpg

QR コード

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

PRG:FONTDEMO
1/22/2
qr0.pngqr1.png

プログラムリスト

  1. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  2. ’ＦＯＮＴ　ＡＲＲＡＮＧＥ
  3. ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  4. ＣＬＥＡＲ
  5. ＤＩＭ　Ｂ（２５６，８）
  6. ＤＩＭ　Ｗ（１６）
  7. ＳＴ＝３２　　’Ｓｔａｒｔ　ｃｏｄｅ　ｎｕｍ
  8. ＥＤ＝１２５　’Ｅｎｄ　ｃｏｄｅ　ｎｕｍ
  9. ’−−−−−−−−−−−−−−−−−−−−−−−−−−−−
  10. ＤＩＭ　Ａ＄（７）
  11. Ａ＄（０）＝”ＢＯＬＤ”
  12. Ａ＄（１）＝”ＨＥＡＶＹ”
  13. Ａ＄（２）＝”ＯＢＬＩＱＵＥ”
  14. Ａ＄（３）＝”ＯＢＬＩＱＵＥ＿ＢＯＬＤ”
  15. Ａ＄（４）＝”ＳＴＥＮＣＩＬ”
  16. Ａ＄（５）＝”ＨＵＳＫ”
  17. Ａ＄（６）＝”ＨＵＳＫ＿ＢＯＬＤ”
  19. ＠ＳＴＡＲＴ
  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. 　　　Ｂ（Ｎ，Ｉ）＝Ｙ
  112. 　　ＮＥＸＴ
  113. 　ＮＥＸＴ
  114. 　ＲＥＴＵＲＮ
  115. ’−−−−−−−−−−−−−−−　ＯＢＬＩＱＵＥ　ＢＯＬＤ
  116. ＠ＯＢＬＩＱＵＥ＿ＢＯＬＤ
  117. 　ＦＯＲ　Ｎ＝ＳＴ　ＴＯ　ＥＤ
  118. 　　ＦＯＲ　Ｉ＝０　ＴＯ　７
  119. 　　　Ｘ＝Ｂ（Ｎ，Ｉ）＊２
  120. 　　　Ｙ＝Ｘ
  121. 　　　ＩＦ　Ｉ＜５　ＴＨＥＮ　Ｙ＝ＦＬＯＯＲ（Ｘ／２）
  122. 　　　ＩＦ　Ｉ＜２　ＴＨＥＮ　Ｙ＝ＦＬＯＯＲ（Ｘ／４）
  123. 　　　Ｂ（Ｎ，Ｉ）＝Ｙ　ＯＲ　ＦＬＯＯＲ（Ｙ／２）
  124. 　　ＮＥＸＴ
  125. 　ＮＥＸＴ
  126. 　ＲＥＴＵＲＮ
  127. ’−−−−−−−−−−−−−−−−−−−−　ＳＴＥＮＣＩＬ
  128. ＠ＳＴＥＮＣＩＬ
  129. 　ＦＯＲ　Ｎ＝ＳＴ　ＴＯ　ＥＤ
  130. 　　ＦＯＲ　Ｉ＝０　ＴＯ　７
  131. 　　　Ｘ＝Ｂ（Ｎ，Ｉ）
  132. 　　　Ｙ＝Ｘ　ＯＲ　ＦＬＯＯＲ（Ｘ／２）
  133. 　　　Ｙ＝Ｙ　ＯＲ　ＦＬＯＯＲ（Ｘ／４）
  134. ’　　Ｂ（Ｎ，Ｉ）＝Ｙ　ＡＮＤ　＆ＨＥＦ
  135. 　　　Ｂ（Ｎ，Ｉ）＝Ｙ　ＡＮＤ　＆ＨＦ７
  136. ’　　Ｂ（Ｎ，Ｉ）＝Ｙ　ＡＮＤ　＆ＨＦＢ
  137. 　　ＮＥＸＴ
  138. 　ＮＥＸＴ
  139. 　ＲＥＴＵＲＮ
  140. ’−−−−−−−−−−−−−−−−−−−−−−−　ＨＵＳＫ
  141. ＠ＨＵＳＫ
  142. 　ＦＯＲ　Ｎ＝ＳＴ　ＴＯ　ＥＤ
  143. 　　ＦＯＲ　Ｉ＝０　ＴＯ　７
  144. 　　　ＩＦ　Ｉ＞６　ＴＨＥＮ　Ｊ＝７　ＥＬＳＥ　Ｊ＝Ｉ＋１
  145. 　　　Ｘ＝Ｂ（Ｎ，Ｉ）
  146. 　　　Ｙ＝Ｘ　ＯＲ　ＦＬＯＯＲ（Ｘ／２）
  147. 　　　Ｂ（Ｎ，Ｉ）＝Ｙ　ＡＮＤ　ＮＯＴ（Ｂ（Ｎ，Ｊ））
  148. 　　ＮＥＸＴ
  149. 　ＮＥＸＴ
  150. 　ＲＥＴＵＲＮ
  151. ’−−−−−−−−−−−−−−−−−−　ＨＵＳＫ　ＢＯＬＤ
  152. ＠ＨＵＳＫ＿ＢＯＬＤ
  153. 　ＦＯＲ　Ｎ＝ＳＴ　ＴＯ　ＥＤ
  154. 　　ＦＯＲ　Ｉ＝０　ＴＯ　７
  155. 　　　ＩＦ　Ｉ＞６　ＴＨＥＮ　Ｊ＝７　ＥＬＳＥ　Ｊ＝Ｉ＋１
  156. 　　　Ｘ＝Ｂ（Ｎ，Ｉ）
  157. 　　　Ｙ＝Ｘ　ＯＲ　ＦＬＯＯＲ（Ｘ／２）
  158. 　　　Ｙ＝Ｙ　ＯＲ　ＦＬＯＯＲ（Ｘ／４）
  159. 　　　Ｂ（Ｎ，Ｉ）＝Ｙ　ＡＮＤ　ＮＯＴ（Ｂ（Ｎ，Ｊ））
  160. 　　ＮＥＸＴ
  161. 　ＮＥＸＴ
  162. 　ＲＥＴＵＲＮ

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

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

  • 投稿者 : スクリーンショット汚くってごめんなさい。かなりボケボケになってしまいましたね。 (2012/05/22 (火) 18:18:32)
  • hatena : QRコードの表を整理しました。 (2012/09/07 (金) 20:47:16)
  • 木 : なんで3番と4ばんの=の記号がないんですか？ (2022/01/29 (土) 15:27:59)

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