目次に戻る
MCFファイル作成のサンプルソース
{
MCFファイル作成のサンプルプログラムです。
Delphi3での動作を確認しています。
サンプルプログラムのためエラーチェックや
リソース保護などは省いています。
}
program Sample;
{$APPTYPE Console}
uses
SysUtils;
var
Red, Green, Blue: 0..255; // 赤・緑・青の輝度(0〜255)
dr, dg, db: integer; // 各色の変化量
f: TextFile;
name: string; // 出力ファイル名
i: integer;
Count: integer; // パレット数
begin
// 初期設定です
name := 'sample.mcf'; // 適当なファイル名を代入してください(拡張子は.mcf)
dr := 2; // お好みの数値を代入してください
dg := 5;
db := 4;
Red := 20; // 各色の初期値です。適当に決めて下さい
Green := 60;
Blue := 200;
Count := 100; // 適当に決めて下さい。この値+1が実際のパレット数になります
AssignFile(f, name); // ファイルに書き込むための準備です
Rewrite(f); // これもファイルに書き込むための準備です
// ここから主処理です
writeln(f, '* Delphiで作成したサンプルです'); // ファイルの説明(なくても良い)
writeln(f);
writeln(f, '000000'); // まんでる色(今回は黒にしてみました)
writeln(f);
for i := 1 to Count do begin
// その他の色をCount個書きます
// IntToHex(n, m)はnをm桁の16進数で表現したものを返す関数です
writeln(f, IntToHex(Red, 2)+IntToHex(Green, 2)+IntToHex(Blue, 2));
Red := (Red + dr) mod 256; // 各色を変化させます
Green := (Green + dg) mod 256;
Blue := (Blue + db) mod 256;
end;
// 後始末
CloseFile(f);
end.
戻る