Re: graphics routines

 BBS: Inland Empire Archive
Date: 11-18-92 (16:05)             Number: 379
From: FRED DISANO                  Refer#: NONE
  To: JOHN GALLAS                   Recvd: NO  
Subj: Re: graphics routines          Conf: (2) Quik_Bas

  Ok bud, maby I can help you out here, to set a pixel in
any screen mode just use interrupts, here check this one:

 REM $include:'qb.bi'
defint a-z
dim shared iregs as Regtypex, oregs as Regtypex

 cls:screen 13 'change this to the mode you want

  ah=&h0c
  Al=2 'This is the color of the pixel 2 being green
  iregs.ax=ah*256+al
  bh=0 'This is the graphics page of which to write on,
ignored if only '1 page is supported.
  iregs.bx=bh*256
  iregs.cx=20 'this is the column
  iregs.dx=20 'this is the row, again change this to whatever position
 interruptx &h10,iregs,oregs

 Okay, there you go.  As far as setting 1024x768x256 I
don't know but I can set the 1024x768x16 here's how

 REM $INCLUDE:'qb.bi'
defint a-z
dim shared iregs as regtypex, oregs as regtypex

cls
ah=&h0
al=&h37
interruptx &h10,iregs,oregs
end

 There you go, good luck and by the way, I don't know if
that last code will work.  Have good one.

--- Maximus 2.01wb
 * Origin: QuickShare Canada Point * Orleans, ON (613)830-2802 (1:163/518)