home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l043 / 3.ddi / SETPAL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-11-02  |  643 b   |  30 lines
  1. uses
  2.   Crt, Graph;
  3. var
  4.   GraphDriver, GraphMode : integer;
  5.   Color : word;
  6.   Palette : PaletteType;
  7. begin
  8.   GraphDriver := Detect;
  9.   InitGraph(GraphDriver, GraphMode, '');
  10.   if GraphResult <> grOk then
  11.     Halt(1);
  12.   GetPalette(Palette);
  13.   if Palette.Size <> 1 then
  14.     begin
  15.       for Color := 0 to Pred(Palette.Size) do
  16.       begin
  17.         SetColor(Color);
  18.         Line(0, Color*5, 100, Color*5);
  19.       end;
  20.       Randomize;
  21.       repeat
  22.         SetPalette(Random(Palette.Size),
  23.                    Random(Palette.Size));
  24.       until KeyPressed;
  25.     end
  26.   else
  27.     Line(0, 0, 100, 0);
  28.   Readln;
  29.   CloseGraph
  30. end.