□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ ＭＡＧＩＣ専用　グラフィック　ライブラリ　″ＧＲＡＰＨ．ＬＩＢ″ ＃１５６　黒木淳一 □□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ 　＊ＧＲＡＰＨ．ＬＩＢについての説明 　　このライブラリは、私がＭＡＧＩＣを使う時に作成したＭＡＧＩＣを使用するサ 　ブルーチンを集めたものです。ですから、かなりくせのある関数がいくつかありま 　すが、どうか使ってやってください。 　＊ＧＲＡＰＨ．ＬＩＢのメモリ節約について 　　このライブラリは他のソースからインクルードして使うので、ライブラリの部分 　だけで４Ｋｂｙｔｅぐらいを楽に消費してくれます。しかも′ＳＯＲＯＢＡＮ．Ｌ− −ＩＢ′も読み込むので、かなりのメモリの無駄になります（すべての関数をフルに 　使う人は別）。そこで、このライブラリの関数をいくつかに区切って必要な関数だ けコンパイルするようにしました。 　　次の定数をライブラリを呼び出すＭＡＩＮプログラムの先頭で、定義してくださ 　い。１で使用する。０で使用しないとなっています。 ＿ＳＩＮＣＯＳ 整数三角関数と整数逆三角関数、そしてその関数を使用する関数が使 　　　えなくなります。 ＿ＦＬＯＡＴ ′ＳＯＲＯＢＡＮ．ＬＩＢ′を使用してる関数が使えなくなります。 ＿ＰＬＯＴＳＷ プロッタ出力関数が使えなくなります。これはほとんどキャラメルの 　　　オマケのようなものなので、使うことはない．．．と思います。 ＿ＴＨＲＥＥ ＭＡＧＩＣの３Ｄ表示関数が使えなくなります。 ＿ＴＩＬＥＳＷ タイリング・パターンが無効となり、タイリング・パターンを使用し 　　　ている関数の一部が使えなくなります。 ＿ＧＨＩＮ 上記の定数を使用してもまだメモリが足りない。又は使わない関数が 多いということがあります。そういうときはこの定数を使用して使用頻 度の低い７つの関数を任意に削除することができます。消したい関数に 対応するビットを０にしてコンパイルしてください。逆にいうと、使う 関数に対応するビットを１にしてコンパイルしてください。 [FEDC BA89 7654 3210] |||| |||| |||| |||+--- : @SPLINE |||| |||| |||| ||+---- : @CPOLY |||| |||| |||| |+----- : @ROAD |||| |||| |||| +------ : @CFULL |||| |||| |||| |||| |||| |||+-------- : -------- |||| |||| ||+--------- : @TLINE |||| |||| |+---------- : @CLINE |||| |||| +----------- : @CBOX |||| |||| |||| |||+------------- : -------- |||| ||+-------------- : -------- |||| |+--------------- : -------- |||| +---------------- : -------- |||| |||+------------------ : -------- ||+------------------- : -------- |+-------------------- : -------- +--------------------- : -------- ＊定義済みの定数について ＿ＨＥＡＤ ＝ ６ ＿ＰＩＴＣＨ ＝ ７ ＿ＢＡＮＫ ＝ ８ これらの定数はＰＡＲ［］をアクセスするとき少しでもソースのわかりやすさ を追及するためにつけました。使い方は ＰＡＲ［ＨＥＡＤ］＋＋； というふうにお使い下さい。 　＊グローバル変数についての説明 　　＿ＣＯ［３１］ 　　この配列はＭＡＧＩＣのコマンドを格納するためのもので、ＬＩＮＥ等の関数が 　呼び出されたりすると、ＭＡＧＩＣのＬＩＮＥコマンドを実行するためのコマンド 　が生成されます。この配列は、普段ユーザーが使うことはありません。 　　＿ＺＡＨＹＯ［２５５］［２］：＄Ｃ６Ｂ６　 ＿ＷＩＲＥ　［２５５］［１］：＄ＣＣＢ６ 　　＿ＬＰＣＴ　［１］　　　　　：＄Ｃ６Ｂ４ 　　＿ＤＩＳＰ　［２５５］［１］：＄Ｃ２Ｂ４ 　　＿ＰＡＲ　　［８］　　　　　：＄Ｃ２０３ 　　この５つの配列は、ＭＡＧＩＣの３Ｄ表示機能を使用するときに使うものです。 　どの配列もユーザーの手で直接書き込むことができますが、　＿ＺＡＨＹＯ［］， 　＿ＷＩＲＥ［］，＿ＬＰＣＴ［］＿ＤＩＳＰ［］の４つには関数とＭＡＧＩＣが書 　き込んでくれますが、＿ＰＡＲ［］だけはユーザーの手で直接書き込んでやらなけ 　ればいけません。これら５つの配列はＭＡＧＩＣの共通ワークエリアにかぶせて定 　義しています。ですからこの配列への代入→ＭＡＳＩＣへの定義となります。当然 　この配列への定義用関数も用意されていますので、ＳＥＴＯＤ，ＳＥＴＷＤの方を 　参照してください。 　　ＭＡＧＩＣはＸ，Ｙ，Ｚの座標をもつ複数の頂点を２つの頂点番号をもつ線分デ 　ータによって管理されています。普通はこの配列に直接アクセスする事はないんで 　すが。変則的な使い方をする時、例えばアニメーションを複数パターンをつかわず 　に座標の変更だけで行なうときは直接書きかえることができます。 ＿ＺＡＨＹＯ［Ｐ］［Ｉ］＝座標 Ｐ＝０〜２５５（座標番号） Ｉ＝０ ： 　 Ｘ １ ： 　 Ｙ ２ ：　 Ｚ ＿ＷＩＲＥ［Ｐ］［Ｉ］＝頂点番号 Ｐ＝０〜２５５（線分番号） Ｉ＝０ ： 　 頂点１ １ ： 　 頂点２ ＿ＬＰＣＴ［０］＝頂点の数 ＿ＬＰＣＴ［１］＝線分の数 ＿ＤＩＳＰ［Ｐ］［Ｉ］ （ＲＥＡＤ　ＯＮＬＹ） Ｐ＝０〜２５５（変換後の座標番号｛＿ＺＡＨＹＯ［Ｐ］［Ｉ］の 　　　　　　　　　　　 Ｐと対応｝） Ｉ＝０ ： 　 Ｘ １ ： 　 Ｙ ＿ＰＡＲ［Ｉ］＝パラメータ （物体の位置｛オフセット座標｝） Ｉ＝０ ： ＣＸ １ ： ＣＹ ２ ： ＣＺ （回転の中心座標） ３ ： ＤＸ ４ ： ＤＹ ５ ： ＤＺ （回転角度） ６ ： ＨＥＡＤ ７ ： ＰＩＴＣＨ ８ ： ＢＡＮＫ 　　＿ＴＩＬＥ１ 　　＿ＴＩＬＥ２ 　　この変数はＭＡＧＩＣの　ＣＩＲＣＬＥ，ＴＲＩＡＭＧＬＥ，ＢＯＸ　ＦＩＬＬ 　を描画するときに必要なタイリング・パターンを格納しておくためのもので、２つ 　で１組となっています。特殊な形でなくてもいいのなら、＠ＧＲＡＤ関数でタイリ 　グ・パターンを生成してくれるので、これもユーザーが直接さわる事は少ないでし 　ょう。 　　＿ＭＳＣＲＥＥＮ 　　この変数は＠ＣＲＴＫＮ関数を使用するときに　ｂｌｕｅ，ｒｅｄのどのプレー 　ンに書き込むかという情報を記憶しています。これもユーザーがさわることはない 　でしょうが、なかなかセコイ事をするときには役にたちます。 　　＿ＳＰＩＴＣＨ （ＰＩＴＣＨ角） 　　＿ＳＨＥＡＤ （ＨＥＡＤ角） 　　＿ＳＢＡＮＫ （ＢＡＮＫ角） ＿ＯＦＳＺ （オフセット座標Ｘ） ＿ＯＦＳＹ （オフセット座標Ｙ） 　　＿ＯＦＳＺ （オフセット座標Ｚ） このライブラリでは２つの座標を同時にあつかえます。１つはＰＡＲ［］にユ− 　ザーが直接セットした座標と上記６つの変数にユーザーがセットした座標です。前　 　者ではユーザーが定義した空間図形を表示するときに使用し、後者では＠ＴＬＩＮ− −Ｅ，＠ＣＰＯＬＹ，＠ＷＡＶＥ等の直接３次元のグラフィック描画関数を実行した 　ときに使用されます。 　　＿ＤＥＭＯＤＥ 　　＠ＣＬＩＮＥ，＠ＣＢＯＸの表示モードを格納します。１でＸＯＲモード、２で 　ＰＳＥＴモードになります。 　　＿ＫＳＴＥＰ 　　＠ＷＡＶＥ，＠ＣＰＯＬＹ，＠ＫＹＵのステップ角度を格納します。デフォルト 　は１５です。 　　＿ＳＢＬＵＥ 　　＿ＳＲＥＤ 　　＿ＳＧＲＥＥＮ ＠ＣＰＯＬＹ，＠ＫＹＵ，＠ＷＡＶＥのポリゴン表示のときの表面の色を格納し 　ます。範囲は０から７迄です。 　　＿ＬＸ 　　＿ＬＹ 　　＿ＬＺ 　　＠ＣＰＯＬＹ，＠ＫＹＵ，＠ＷＡＶＥ実行時の光線ベクトルを格納します。 ＊関数の説明 　　＠ＬＩＮＥ（Ｘ１，Ｙ１，Ｘ２，Ｙ２） 　　（Ｘ１，Ｙ１），（Ｘ２，Ｙ２）を結ぶ直線を単プレーンに書き込みます。 　　＠ＳＰＬＩＮＥ（Ｘ１，Ｙ１，Ｘ２，Ｙ２，Ｘ３，Ｙ３） 　　（Ｘ１，Ｙ１），（Ｘ２，Ｙ２），（Ｘ３，Ｙ３）を結ぶなめらかな曲線を単プ 　レーンに書き込みます。又＿ＧＨＩＮの０ｂｉｔを０にしてコンパイルすると削除 　することができます。 　　＠ＢＯＸ（Ｘ１，Ｙ１，Ｘ２，Ｙ２） 　　（Ｘ１，Ｙ１），（Ｘ２，Ｙ２）を通る４角形を単プレーンに書き込みます。 　　＠ＴＲＩＡＮＧＬＥ（Ｘ１，Ｙ１，Ｘ２，Ｙ２，Ｘ３，Ｙ３） 　　（Ｘ１，Ｙ１），（Ｘ２，Ｙ２），（Ｘ３，Ｙ３）を結ぶ三角形を＿ＴＩＬＥ１，　　 　＿ＴＩＬＥ２で定義したタイル・パターンで塗り潰します。又、＿ＴＩＬＥＳＷを 　０にしてコンパイルする事により、削除することができます。 　　＠ＦＵＬＬ（Ｘ１，Ｙ１，Ｘ２，Ｙ２） 　　（Ｘ１，Ｙ１），（Ｘ２，Ｙ２）を通る四角形を＿ＴＩＬＥ１，＿ＴＩＬＥ２で 　定義したタイル・パターンで塗り潰します。又、＿ＴＩＬＥＳＷを０にしてコンパ 　イルする事により、削除することができます。 　　＠ＣＩＲＣＬＥ（Ｘ１，Ｙ１，Ｒ１） 　　（Ｘ１，Ｙ１）を中心とした半径Ｒ１の円を＿ＴＩＬＥ１，＿ＴＩＬＥ２で定義 　したタイル・パターンで塗り潰します。又、＿ＴＩＬＥＳＷを０にしてコンパイル する事により、削除することができます。 　　＠ＷＩＮＤＯＷ（Ｘ１，Ｙ１，Ｘ２，Ｙ２） 　　この関数を呼ぶと、呼びだされてからは、（Ｘ１，Ｙ１），（Ｘ２，Ｙ２）の範 　囲内でしかグラフィック画面への書き込みができません。 　　＠ＭＯＤＥ（ＭＯＤＥ，ＰＬＡＮＥ） 　　この関数は単プレーン書き込み関数の書き込むプレーンの設定とモードの設定を 　します。モードは０でＰＲＥＳＥＴ、１でＸＯＲ、２でＯＲ、プレーンは０でｂｌ− −ｕｅ，１でｒｅｄ，２でｇｒｅｅｎになります。 　　＠ＣＬＳ（　） 　　単プレーンの画面消去を行ないます。 　　＠ＰＡＬＥＴ（Ａ０，Ａ１，Ａ２，Ａ３，Ａ４，Ａ５，Ａ６，Ａ７） 　　パレットの変更を行ないます。 　　＠ＩＮＩＴ（　） 　　ＧＲＡＰＨ．ＬＩＢの初期化を行ないます。必ず最初に実行してください。 　　＠ＳＥＴＯＤ（ＰＯＳＩＴ，ＬＥＮＧＴＨ） 　　＠ＳＥＴＷＤ（ＰＯＳＩＴ，ＬＥＮＧＴＨ） ユーザーが作成した空間図形をＭＡＧＩＣに登録します。又、＿ＴＨＲＥＥを０ 　にしてコンパイルする事により、削除することができます。 　　 　（例） ARRAY WORD OBJD0[7][2]=[ %-50 , % 50 , %-50 , %-50 , % 50 , % 50 , % 50 , % 50 , % 50 , % 50 , % 50 , %-50 , %-50 , %-50 , %-50 , %-50 , %-50 , % 50 , % 50 , %-50 , % 50 , % 50 , %-50 , %-50 ], BYTE OBJW0[11][1]=[ 0,1, 1,2, 2,3, 3,0, 4,5, 5,6, 6,7, 7,4, 0,4, 1,5, 2,6, 3,7 ]; MAIN() [ @INIT(); (* 初期化 *) @SETOD(&OBJD0,7); (* 座標登録 *) @SETWD(&OBJW0,11); (* 線分登録 *) MAGIC(0); (* ３Ｄ→２Ｄ *) MAGIC(1); (* 表示 *) ] 　　＠ＭＡＧＩＣ（ＣＯＭ） 　　ＣＯＭを０にしてこの関数を呼ぶとＭＡＧＩＣに登録された空間図形を３次元変 　換し、１にして呼ぶと３次元変換された空間図形を画面に表示します。 　　＠ＣＲＴＫＮ（ＣＯＬＯＲ，ＧＲ，ＰＲＷ） 　　この関数の実行前に画面表示を行ない、この関数の実行後にＣＬＳ（　）を実行 　すると、完全に画面のちらつきをなくすことができます。このときｂｌｕｅ，ｒｅ− −ｄを交互に表示するので単色のキャラクターしか表示できません。又、余ったｇｒ− −ｅｅｎプレーンはバックグラウンドとして使う事ができます。ＣＯＬＯＲはキャラ 　クターの色、ＧＲはバックグラウンドの色、ＰＲＷは０でキャラクターをバックグ 　ラウンドの上に表示、１でバックグラウンドの下に表示します。 　　＠ＧＲＡＤ（ＧＲ） 　　ＧＲに０から７迄の値をいれて呼びだすことにより、７段階の濃度のタイル・パ 　ターンを生成し、＿ＴＩＬＥ１，＿ＴＩＬＥ２に格納します。又、＿ＴＩＬＥＳＷ 　を０にしてコンパイルする事により、削除することができます。 　　＠ＰＬＩＮＩＴ（　） 　　プロッタを初期化します。又、＿ＰＬＯＴＳＷ０にしてコンパイルする事により、 　削除することができます。使用可能なプロッタは、プリンタのポートにつないで、 　ＭＭＬ風にコマンドを送るものならたぶん大丈夫でしょう。ちなみにＭＹＰＬＯＴ 　での動作は確認しております。（ＭＹＰＬＯＴにもいろいろあるかもしれませんが、 　プロッタを買う方は注意してください。データの形式が違ったら使えませんから。） 　　＠ＰＬＩＮＥ（Ｘ１，Ｙ１，Ｘ２，Ｙ２） 　　（Ｘ１，Ｙ１），（Ｘ２，Ｙ２）を結ぶ直線をプロッタでひきます。又、＿ＰＬ− −ＯＴＳＷを０にしてコンパイルする事により、削除することができます。 　　＠ＰＬＯＴ（　） 　　３次元変換した空間図形をプロッタに出力します。又、＿ＰＬＯＴＳＷを０にし 　てコンパイルする事により、削除することができます。 　　＠ＴＬＩＮＥ（ＸＳ，ＹＳ，ＺＳ，ＸＥ，ＹＥ，ＺＥ） 　　（ＸＳ，ＹＳ，ＺＳ），（ＸＥ，ＹＥ，ＺＥ）を結ぶ空間を直線で結びます。又、 　＿ＴＨＲＥＥ又は＿ＧＨＩＮの第５ｂｉｔを０にしてコンパイルする事により、削 　除することができます。オフセット座標等のパラメータは，＿ＳＨＥＡＤ，＿ＳＰ 　ＩＴＣＨ，＿ＳＢＡＮＫ，＿ＳＨＥＡＤ，＿ＯＦＳＸ，＿ＯＦＳＹ，＿ＯＦＳＺで 　与えてください。 　　＠ＣＬＩＮＥ（Ｘ１，Ｙ１，Ｘ２，Ｙ２，Ｃ） 　　（Ｘ１，Ｙ１），（Ｘ２，Ｙ２）を結ぶ直線をカラーコードＣで結びます。又、 　＿ＧＨＩＮの第７ｂｉｔを０にしてコンパイルする事により、削除することができ 　ます。 　　＠ＣＢＯＸ（Ｘ１，Ｙ１，Ｘ２，Ｙ２，Ｃ） 　　（Ｘ１，Ｙ１），（Ｘ２，Ｙ２）を通る四角形をカラ−コードＣで塗り潰します。 　又、＿ＧＨＩＮの第７ｂｉｔを０にしてコンパイルする事により、削除することが 　できます。 　　＠ＣＦＵＬＬ（Ｘ１，Ｙ１，Ｘ２，Ｙ２，Ｃ１，Ｃ２，Ｃ３） 　（Ｘ１，Ｙ１），（Ｘ２，Ｙ２）を通る四角形をＣ１（ｂｌｕｅ），Ｃ２（ｒｅｄ） 　，Ｃ３（ｇｒｅｅｎ）の濃度のタイル・パターンで塗り潰します。又、＿ＴＩＬＥ− −ＳＷ又はＧＨＩＮの第３ｂｉｔを０にしてコンパイルする事により、削除すること 　ができます。濃度の範囲は０から７迄です。 　　＠ＣＰＯＬＹ（　ＸＶ［］，ＹＶ［］，ＺＶ［］　） 　　（ＸＶ［０］，ＹＶ［０］，ＺＶ［０］），（ＸＶ［１］，ＹＶ［１］，ＺＶ［ 　１］），（ＸＶ［２］，ＹＶ［２］，ＺＶ［２］），（ＸＶ［３］，ＹＶ［３］， 　ＺＶ［３］）の４点を頂点とする面（ポリゴン）を描画します。又、＿ＴＨＲＥＥ 　又は＿ＧＨＩＮの第１ｂｉｔを０にしてコンパイルする事により、削除することが 　できます。オフセット座標等のパラメータは，＿ＳＨＥＡＤ，＿ＳＰＩＴＣＨ，＿ 　ＳＢＡＮＫ，＿ＳＨＥＡＤ，＿ＯＦＳＸ，＿ＯＦＳＹ，＿ＯＦＳＺで与えてくださ 　い。 　（例） ARRAY WORD POLYX[3]=[ %-50 , %-50 , % 50 , % 50 ], %000 , %000 , %000 , WORD POLYY[3]=[ %-50 , % 50 , % 50 , %-50 ], %000 , %000 , %000 , WORD POLYZ[3]=[ %000 , %000 , %000 , %000 ]; %000 , %000 , %000 , MAIN() [ @INIT(); _SBLUE=3; _SRED=3; _SGREEN=7; _OFSX=0; _OFSZ=100; _OFSY=0; CPOLY(POLYX,POLYY,POLYZ); ] 　　＠ＫＹＵ（ＭＤＸ，ＭＤＹ，ＭＤＺ，ＨＮＫ） 　　（ＭＤＸ，ＭＤＹ，ＭＤＺ）を中心とした半径ＨＮＫの球体を描画します。又、 　＿ＴＨＲＥＥ又は＿ＳＩＮＣＯＳを０にしてコンパイルする事により、削除するこ 　とができます。オフセット座標等のパラメータは，＿ＳＨＥＡＤ，＿ＳＰＩＴＣＨ， 　＿ＳＢＡＮＫ，＿ＳＨＥＡＤ，＿ＯＦＳＸ，＿ＯＦＳＹ，＿ＯＦＳＺで与えてくだ さい。 　（例） MAIN() [ @INIT(); _SBLUE=3; _SRED=3; _SGREEN=7; _OFSX=0; _OFSZ=0; _OFSY=0; KYU(Y(0,0,300,100); ] 　　＠ＩＳＩＮ（ＫＡＫＵ，ＨＡＮ） 　　＠ＩＣＯＳ（ＫＡＫＵ，ＨＡＮ） 　　半径０から３２７６７迄の三角関数を整数でもとめます。で塗り潰します。又、 　＿ＳＩＮＣＯＳを０にしてコンパイルする事により、削除することができます。 　　＠ＩＡＴＮ（ＸＸ，ＹＹ） 　　ＸＸ，ＹＹからアーク・タンジェントを求めます。又、＿ＳＩＮＣＯＳを０にし 　てコンパイルする事により、削除することができます。使い道としては、ＡとＢの 　２つの物体がいたとします。そして、ＡがＢの方向に（度単位で）向こうとしたと 　します。このとき、考えられるアルゴリズムとしては、Ａの座標を（ＡＸ，ＡＹ）， Ｂの座標を（ＢＸ，ＢＹ）として、Ｒ＝＠ＩＡＴＮ（ＢＸ−ＡＸ，ＢＹ−ＡＹ）と 　いう風に呼びだします。すると、ＲにＡから見たＢへの角度がはいります。この角 　度を使えば問題は解決します。 　　＠ＷＡＶＥ（ＸＳＩＺＥ，ＺＳＩＺＥ，ＰＯＳＹ，ＳＮＰ） 　　波を描画します。こればっかりは実際にやってもらわないと説明できません。又、 　＿ＳＩＮＣＯＳ又は＿ＴＨＲＥＥ又は＿ＧＨＩＮの第１ｂｉｔを０にしてコンパイ 　ルすにより、削除することができます。ＸＳＩＺＥは横方向の大きさ、ＺＳＩＺＥ 　はＺ方向の大きさ、ＰＯＳＹはオフセットＹ座標、ＳＮＰは振幅となっております。 　オフセット座標等のパラメータは，＿ＳＨＥＡＤ，＿ＳＰＩＴＣＨ，＿ＳＢＡＮＫ， ＿ＳＨＥＡＤ，＿ＯＦＳＸ，＿ＯＦＳＹ，＿ＯＦＳＺで与えてください。 　（例） MAIN() [ @INIT(); _SBLUE=3; _SRED=3; _SGREEN=7; _OFSX=0; _OFSZ=0; _OFSY=0; WAVE(300,300,0,50); ] 　＊ポリゴン描画関数について 　　このライブラリは、ポリゴンを描画する関数が入っております。しかもただのポ 　リゴンではなく、光線ベクトルと法線ベクトルとの関係を計算して、表面の明るさ 　によって色の濃度を調節してくれます。はっきりいって僕は頭が悪いので、個人的 　に代数の先生に教えてもらったり、先輩の家で夜９時まで教えてもらったりしてな 　んとか実現しました（ウルウル）。ポリゴンを使うときの注意としては、コンパイ 　ルするときに＿ＦＬＯＡＴを１に設定してください。′ＳＯＲＯＢＡＮ．ＬＩＢ′ 　をインクルードします。ちなみにそんなに精度はいらないので単精度５バイトで使 　ってます。 ＊　サンプル　プログラム 　　どんなにプログラムを楽にするライブラリでもサンプルがなければ使い慣れるの 　に時間がかかります。とりあえず、′ＧＲＡＰＨ．ＬＩＢ′の機能を使用したたの 　しい？ＤＥＭＯをつくりました。′ＳＯＲＯＢＡＮ′と′ＳＯＲＯＢＡＮ．ＬＩＢ′ 　も使うので、用意してください。′ＳＯＲＯＢＡＮ．ＬＩＢ′はＣＯＮＳＴ命令で 　＿ＦＬＯＡＴを１にしてコンパイルすると自動的にインクルードしてくれます。 　ＳＯＲＯＢＡＮは＄９Ｆ００番地からリロケートしてＭＡＧＩＣと一緒にセーブし 　てください。コンパイル方法は、ＳＬＡＮＧを起動してから ]C TANOSI.SL [CR] 　と入力してください。コンパイルが終ると３０００番地から格納されるのでアドレ 　スをかえてセーブしてください。 ]S 3000 終了番地 3000 9000:TANOSI [CR] 　次にＳＬＡＮＧを終えたあと #L SOROBAN [CR] ※＄９Ｆ００にアロケートしたＳＯＲＯＢＡＮ #L MAGIC [CR] ※各機種用のＭＡＧＩＣ # TANOSI [CR] ※実行 　以上です。 　＊最後に 　　静止画像から動画までこのライブラリ１本（と′ＳＯＲＯＢＡＮ．ＬＩＢ′）で 　なんでもできてしまいます（欲張らなければ）。マシン語ではとっつきにくく、バ 　グっても原因をつきとめるのに時間がかかります。そんな時、マシン語のようなス 　ピードと、ドキュメントのような言語仕様をもつＳＬＡＮＧでＭＡＧＩＣが手軽に 　使えれば．．．このライブラリがそういう人の役に立ち、Ｘ６８０００以上に８ビ 　ットマシンのＭＡＧＩＣ対応ソフトが増えてくれれば嬉しいです。最後にいろいろ 　「こうこうこうしてほしい。」と注文してくれた深谷さん、ありがとうございまし　 　た。 (EOF)