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