From: "Wiebe Zoon" 
Subject: Re: 256 Color Palette
 
 
Don Schullian heeft geschreven in bericht
...
>Hi,
Hi,
>
>  Has anyone figured out some numerical progression in the layout of the
256
>color palette?
256 colors ??? in POWERbasic ????
are you using VESA modes or are you using a self-made SCREEN 13 ???
 
>In other words.. If I start with the standard VGA palette and
>take #32 (true blue) is there some factor I could add to get a lighter blue
>and/or a darker blue?
if you are using VESA you could use interrupt 10 to change the palette to
whatever you like.
64 shades of blue for instance ;)
fill an array with the colors you like just like this :
first color (color 0)
red              byte
green            byte
blue             byte
empty one        byte
second color (color 1)
red              byte
green            byte
 
etc.
 
 
sub SetPalette (tabel() as byte) public
  reg %ax,&h4f09             'vesa paletfunctions
  reg %bx,&0000              'subfunction set palette
  reg %cx,128                'number (the first 128, bacause you can't enter
                             '256 in a byte to do them all at once. )
  reg %dx,0                  'first palletindex
  reg %es,varseg(tabel(0))   let them kow where the colors are
  reg %di,varptr(tabel(0))
  call interrupt &h10        'do the job
 
  reg %ax,&h4f09             'vesa paletfunctions
  reg %bx,&0000              'subfunction set palette
  reg %cx,128                'number
  reg %dx,128                  'first palletindex
 
  reg %es,varseg(tabel(512))
  reg %di,varptr(tabel(512))
  call interrupt &h10
end sub
 
>
>  I'm attempting to create a 3D effect for box frames, etc. and require AT
*AAAAAAAAHHHHHHHHHHH !!!!!! (good luck :)
 
 
>LEAST 3 hues of the same color to do so. 4 or 5 would be better but I'll
>settle for 3..
>
>TIA,
>
>
>
>        Don Schullian
>Reply to: d83@ath.forthnet.gr
> www.basicguru.com/schullian
 
 
*** QwkNews (tm) v2.1
 * [TN71] Toast House Import
--- GEcho 1.20/Pro
---------------