VGA graphics/Palette

 BBS: Inland Empire Archive
Date: 11-21-92 (22:40)             Number: 369
From: MATHIEU BOUCHARD             Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: VGA graphics/Palette           Conf: (2) Quik_Bas

Here is my LIGHTNING FAST palette writer...

load QB.QLB...

$include:'qb.bi'
dim rin as regtypex
dim rout as regtypex

dim pal as string * 768

...

'to change palette: c=color, r=red 0-63, g=green 0-63, b=blue 0-63
mid$(pal,c*3+1,3)=chr$(r)+chr$(g)+chr$(b)

'after all your changes, let's update:
rin.ax=&h1012:rin.bx=0:rin.cx=256:rin.dx=varptr(pal):rin.es=varseg(pal)
interruptx &h10,rin,rout


--- Maximus 2.01wb
 * Origin: R&D BBS, (819) 772-2952 HST/V32 (Line 2) (1:163/506)