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

パンくずリスト

• トップ
• Toukou
• 塗りつぶしルーチン

• 追加された行はこの色です。
• 削除された行はこの色です。
• Toukou/塗りつぶしルーチン へ行く。
• 変更を無効にして元に戻す
• Toukou/塗りつぶしルーチン の差分を削除

---

#title(投稿プログラム : 塗りつぶしルーチン)
#contents
// ↑この2行は削除しないでください。
// ←このように「//」で始まる行はコメントです。ページ本文には反映されません。
//------------------------------------------------------------------------------
// ・投稿年月日は、このページを投稿しようとしている今日の日付を半角数字で入力してください。
//   この日付は、投稿プログラムを自動的に年月日順に並べる際に使用されます。
// ↓↓↓
2013年02月23日投稿
// ↑↑↑
//------------------------------------------------------------------------------
// ・投稿者名は、将来的に投稿プログラム一覧に表示するために使用します。
// ・「名無しさん」のままにしておくと、匿名の方からの投稿として扱われます。
// ↓↓↓
/ 投稿者 : otya
// ↑↑↑
//------------------------------------------------------------------------------
// ・適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。
// ★次に該当するプログラムは、特定のタグを設定するようご協力お願いします。
//   これらを設定すると、将来的に投稿プログラム一覧に目立つマークが付くようになる予定です。
// ・短いプログラム → 「1行プログラム」「数行プログラム」「1画面プログラム」タグのいずれか1つ
// ・初代プチコンでも動作するプログラム → 「初代対応」タグ
// ・mkII 以降専用のプログラム → 「mkII専用」タグ
// ・QRコードを掲載している → 「QRコード」タグ
// ・該当するなら「ゲーム」「実用ツール」「音楽」タグのいずれか
// ↓↓↓
/ &tag(投稿プログラム,1画面プログラム,QRコード,mkII専用);
/ &tag(投稿プログラム,QRコード,mkII専用);
// ↑↑↑

//------------------------------------------------------------------------------
// ここに概要とか書きます。
// ・** や *** で始まる行は子見出しとなります。* の数で深さが決まります。
// ・[#英数字] はページ内リンクに使用されるアンカーですが、
//   書かなかったり、消したりしてもかまいません。ない場合はランダムな文字列が自動付与されます。

* 概要 [#yee17470]
塗りつぶしルーチンです。

/////////////////////////////////

* スクリーンショット・動画 [#t64ebf34]
// 動作しているところを撮影した写真や動画があれば貼り付けてください。

// ページを作成すると、画像の添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// 画像をアップロードしたら、以下の書式でページ内に貼り付けられます。
// #ref(添付ファイル名)

// 以下の書式で、YouTube やニコニコ動画を貼り付けられます。
// #youtube(0HWX7kovgY8)
// #nicovideo(sm13684820)

/////////////////////////////////
// QR コードがない場合は、この部分は削除してください

* QR コード [#n45208cf]
プチコンmkII 向けの QR コードです。

// 【重要】旧プチコンから mkII に転送したプログラムは、mkII で保存しなおしてから
// QR コード化すると、枚数が半分ぐらいに減ります。ぜひお試し下さい。
// 【重要】添付できるのは画像ファイルのみです。zip ファイルは解凍してください。

// ページを作成すると、QR コードの添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// QR コードをアップロードしたら、以下の書式でページ内に貼り付けられます。
// #ref(アップロードしたファイル名)

// QR コードを大きくしたい場合は、倍率指定ができます。コンマは必ず 2 つ指定してください。
// ブラウザによっては補完がかかってボケますが、それでも問題なく読み込み可能です。
#ref(qr.png,,100%)

// 複数の QR コードを貼り付けるために表組みを用いる場合、&ref(); を使用します。
// (#ref() を表に埋め込んでしまうと、古い Internet Explorer でうまく表示されません)
// |>|>|~PRG:FILENAME|
// |~1/3|~2/3|~3/3|
// |&ref(qr0.png,,200%);|&ref(qr1.png,,200%);|&ref(qr2.png,,200%);|

/////////////////////////////////

* プログラムリスト [#lb31b476]
#basic{{
DIM SX[256*192],SY[256*192]
@PAINT
 P=0
 SX[0]=X:SY[0]=Y
 B=GSPOIT(SX,SY)
@FILL
 IF P==-1THEN RETURN
 GPSET SX[P],SY[P],C
 G1=GSPOIT(SX[P]-1,SY[P])
 G2=GSPOIT(SX[P],SY[P]-1)
 G3=GSPOIT(SX[P]-1,SY[P])
 G4=GSPOIT(SX[P],SY[P]-1)
 IF G1==B THEN P=P+1SX[P]=SX[P-1]-1SY[P]=SY[P-1]GOTO@FILL
 IF G2==B THEN P=P+1SX[P]=SX[P-1]SY[P]=SY[P-1]-1GOTO@FILL
 IF G3==B THEN P=P+1SX[P]=SX[P-1]+1SY[P]=SY[P-1]GOTO@FILL
 IF G4==B THEN P=P+1SX[P]=SX[P-1]SY[P]=SY[P-1]-1GOTO@FILL
 P=P-1
GOTO@FILL
}}

/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

* CHECKER FLAG (ひとことコメント) [#g0d72399]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''キービィ'' : タグ修正。ちょっと関係ないタグあったので… (&new{2013/02/24 (日) 23:03:12};)
- ''otya'' : タグ完全に忘れてました　どうせやるなr1画面も消して欲しかった (&new{2013/02/25 (月) 01:21:31};)
- ''キービィ'' : ありゃ、1画面じゃありませんでしたか…直します。 (&new{2013/02/25 (月) 07:16:01};)

#comment