Xref: utzoo comp.graphics:7939 comp.lang.pascal:2534
Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!uwm.edu!csd4.csd.uwm.edu!jrn
From: jrn@csd4.csd.uwm.edu (James Ray Norton)
Newsgroups: comp.graphics,comp.lang.pascal
Subject: Turbo Pascal Colors
Message-ID: <503@uwm.edu>
Date: 17 Oct 89 20:40:31 GMT
Sender: news@uwm.edu
Reply-To: jrn@csd4.csd.uwm.edu (James Ray Norton)
Followup-To: comp.graphics
Distribution: usa
Organization: University of Wisconsin-Milwaukee
Lines: 42


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