[comp.lang.pascal] Turbo Pascal Colors

jrn@csd4.csd.uwm.edu (James Ray Norton) (10/18/89)

Hi got a question:

I am using Turbo Pascal V 5.0.  And I am trying to set the RGB color palette
by doing the following......

program  TestColors(input, output);

uses Graph, Crt;

var Mode, Driver:  integer;
    i,c:  word;

begin
  Mode:=VGAHI;
  Driver:=VGA;
  InitGraph(Drover, Mode, 'a:\');
  for i:=1 to 16 do
    begin
      c:=(i*10)+40;
      SetRGBPalette(i,c,0,0);
    end;
  for i:=1 to 16 do
   PutPixel (i*20,200,i);
end.


Now,  I would think that this should give me a bunch of points that are varying
shades of Red..  But this is not so.  It gives me points having the standard
default colors..

Does anyone know what I am doing wrong?

Any and all help would be greatly appreciated...

Jim Norton
jrn@csd4.csd.uwm.edu
--
_______________________________________________________________________________
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 _    _ _       _ _ _
' )  / ' )   / ' ) ) )                                  jrn@csd4.csd.uwm.edu