アーティクル

#99 Article 432 Posted at 1992/09/13 20:37:14 by てこ (MAP2384) [Q.PASCAL]

Subject: まだ登録書も出してないパスカルの質問。

あたしがここに質問を持ち込むなんて
    誰が予想し得たでありましょう！どんどんっ（笑）

    えーと、それで（笑）パレットＲＧＢの変更をしたくて
    下のようなものがあるんですけど、
    これだとグラフィック画面がクリアされちゃうんで困ってるんです。
      どうすればいいのでしょう？


uses Graph;

var
  grDriber: Integer;
  grMode: Integer;

begin
  grDriber := PC98;
  grMode := PC98C16;
  InitGraph(grDriber,grMode,'');

begin
  SetRGBPalette(  0,  0, 0, 0);
  SetRGBPalette(  1,  0, 0, 6);
  SetRGBPalette(  2,  6, 0, 0);
  SetRGBPalette(  3,  6, 0, 6);
  SetRGBPalette(  4,  0, 3, 0);
  SetRGBPalette(  5,  0, 3, 6);
  SetRGBPalette(  6,  6, 3, 0);
  SetRGBPalette(  7,  6, 3, 6);
  SetRGBPalette(  8,  0, 5, 0);
  SetRGBPalette(  9,  0, 5, 6);
  SetRGBPalette( 10,  6, 5, 0);
  SetRGBPalette( 11,  6, 5, 6);
  SetRGBPalette( 12,  0, 6, 0);
  SetRGBPalette( 13,  0, 6, 6);
  SetRGBPalette( 14,  6, 6, 0);
  SetRGBPalette( 15,  6, 6, 6);
end
end.

      これだけの為に一昨日ＴＰ６．０買ってきたのよ（うそですけど／笑）

                                        てこMAP2384