目次に戻る

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.

戻る