#11 Article 1187 Posted at 1988/03/04 02:45:14 by のりＰー (MAP629) [INF.NL3]
Subject: ＮＬ３フォーマット解説（プログラミング用）
＊＊＊ ＮＬＯＡＤＥＲ３の データーフォーマット ＊＊＊
自分の機械にＮＬＯＡＤＥＲ３を移植してみようと思う方には参考にな
ると思います。これを読んでマイナー機種の人もあきらめずに，みなさん
の素晴らしい絵を見るよう，努力してみて下さい。
このファイル制作にあたり，このＦＯＲＭＡＴの作者ＮＯＺＯＭＵさん
の了解や助言など一切受けてませんが，おゆるし下さい。
なお，ＮＯＺＯＭＵさんのＸ６８Ｋ用ＢＡＳＩＣのＮＬＯＡＤＥＲ３を参
考にアルゴリズムを調べさせていただきました。
＊＊ＮＬ３の概念＊＊
御覧の通り無手順通信によりカラー画像をやりとりしようというもので
す。画面を１６０＊１００分割し，その１ドット毎の色番号を送受信し，
６４０＊２００ドット８色フルカラー以上の機種に対しデーター的に互換
を持たせてもいます。それ以下の機種にでも多少の条件をつけながら，む
りに展開することも可能と思われます。基本的にはアニメを主とするもの
のため，その類を送受信するにはかなりすぐれていると思います。
６４０＊２００の画面を１６０＊１００に分割すると，１ピクセルは４
＊２ドットで表現されます。その８ビットのうちＲＧＢについて何ビット
を発光するかにより色が決定します。Ｒ，Ｇ，Ｂはそれぞれ，０～８の９
段階の濃度を持つことができ，その組合わせにより最大９＾３＝７２９色
が表現できるのです。１ピクセルを１バイトで表現させる為，データーの
効率などを考えた結果１枚の絵について６４色使用可能ということなにっ
ています。（全色使うとデーター量は２倍弱となりますので。）
＊＊圧縮＊＊
データーを１ピクセルを１バイトで表現すると約１６Ｋバイトのデータ
ーになります。そこで，基本的には１：１で取り込み，同じ色番号が並ん
だ部分に対しては，「色番号＋そのバイト数」という２バイトに置きかえ
ることにより，簡単な圧縮を行なっています。手描きの絵は同じ色でベタ
塗りすることが多く，こういった絵に対しては，かなりの圧縮効率を示し
ます。
＊＊データー構成＊＊
データーは２つの部分に分かれます。
１つは，頭から１２８バイトで，色番号０～６３に対する実際の色が格
納されています。１色は２バイトでＲ，Ｇ，Ｂ各プレーンの混入濃度０～
８が２バイトの中に納められています。Ｒ，Ｇ，Ｂ：０～８として，
データーは，「Ｄ＝Ｒ＊８１＋Ｇ＊９＋Ｂ」により，なりたちます。
ただし，このデーターは後に示す通信用データーにコンバートされます。
もう１つは，画像のデーターとなります。１２８バイトの色データーの
すぐ次のからが，それに当たります。画像のストック順序ですが，１６０
＊１００にて，（０，０）より，上から下に走査します。１ライン終わる
と１つ右の列に移ります。（Ｘ，Ｙ）で考えるとＸ方向ループの中にＹ方
向ループがあるようになっています。結果的に１本の長い１６０００個の
点として，扱かいます。
データーの始りと終りには何の印もないので，目で見てどこから始まる
のか確認してデーターだけ抽出します。
データーはＡＳＣＩＩコード２５６バイトのうち以下のコードを使用し
ています。
＄２０～＄７Ｅ，＄Ａ０～＄ＤＦ，＄ＦＥ～＄ＦＦ
これ以外のコード
＄００～＄１Ｆ，＄７Ｆ，＄８０～＄ＡＦ，＄Ｅ０～＄ＦＤ
は，使用しません。コントロールコードは，含まれている場合削除します
。（ＣＲ，ＬＦ，ｅｔｃ．）
＄７Ｆは，以前は使用していたのですが，＄７ＦをＤＥＬコードとみなし
，ダウンロード不可能な機種がある為，Ｖ１．１より使用を禁止し，以後
このままのバージョンが継続されています。
実際にＵＰＬＯＡＤされているデーターは３００番以後のものは全部Ｖ１
．１です。
＊＊サンプルリスト（無気味な言語）＊＊
main()
{
int R[63],G[63],B[63] 各色番号に対応した色をテーブルにします
open("I",#1,"DATA")
for I=0 to 63
D=read()+read()*128
R=int(D/81)
G=int(D-R*81)/9)
B=D-D*81-G*9
next
X=0
while X<160
Y=0
C=READ()
if (C and $40) then {
C=C and not($40)
L=READ()+2
}
else L=1
for I=1 to L
TILE(X,Y,C)
Y=Y+1 if Y=100 then Y=0 X=X+1
next
wend
close(#1)
}
READ(); (*** V1.0 ***)
D=0
while D<$20
D=input$(1,#1)
wend
D=D-$20
if D>=$80 then D=D-$20
return(D)
READ(); (*** V1.1 ***)
D=0
while D<$20
D=INPUT$(1,#1)
wend
D=D-$20
if D>=$7f then D=D-$21
if D>=$bf then D=D-$20
return(D)
TILE(X,Y,C);
１６０＊１００の（Ｘ，Ｙ）座標に対しドットを書くルーチンです。
各プレーンには，R[C],G[C],B[C] の数のドットが打たれます。
例えば，Ｒ［Ｃ］が７ならば，そこの座標のＲプレーンには全ビットの
７／８個のドットを書きます。この場合６４０＊２００の機種では７個
で，６４０＊４００の機種では１４個となります。
return
６４０＊２００を例にドットパターンの一例を示します。
数さえあっていれば，一応表示はされます。
僕は次のパターンを使用しています。
濃度 ０ １ ２ ３ ４ ５ ６ ７ ８
データー ００ ８０ ８２ ８６ Ａ６ Ｂ６ ＢＥ ＦＥ ＦＦ
むりやりＢＡＳＩＣで作るとすれば，次のようなものも考えられないこと
はありません。速度は保証しかねます。
*TILE(X,Y,C)
FOR RGB=0 TO 2
FOR XX=0 TO 3
FOR YY=0 TO 1
PSET(X*4+XX,Y*2+YY),-( 2^RGB)*(2^(7-(XX+YY*4)) AND BIT[-R[C]*(RGB=
0)-G[C]*(RGB=1)-B[C]*(RGB=2)] )
NEXT
NEXT
NEXT
RETURN
ただし″ＢＩＴ［０］～ＢＩＴ［８］″には，それぞれ対応ビットデータ
ーが入いっているとします。
ＴＩＬＥって関数だけはマシン語で作るのが最も楽そうです。
それだけである程度の速度さえ維持できると思います。
では，これを参考にマイナー機種の方も展開ルーチンを作成して（もらっ
て）一刻も早くＮＬ３の素晴らしさを体験しましょう。
このファイルに間違いがありましたら，ＭＡＩＬにてお報せ下さい。
速急に対応したいと思います。ただし，アクセスが３日に１回程度なので
，どのくらい対応できるか分かりませんが。
やっぱり酒井法子はいいなあの， ＭＡＰ６２９ のりＰー
（アニメより，アイドルがぁぁ ぃぃ．．．）
それでも，先日ただ券にて，ＴＡＫＡＫＯ（くん）と一緒に「めぞん一刻
完結編」を見にいったのだが，非常におしりが痛かった。
姫乃樹リカもいいなあ，でも麻田華子はちとパス。
私はいったい誰でしょう。