SuperPut (if you thought SetVideoSeg was cool, check this..)

[Plasma]

No libraries, interrupts, or call absolute...source and example are here. Hope you PureQB nuts find a use for it.

Code:

'===============================================================
  ' SuperPut by Plasma
  ' Props to Rel for the original idea and RelSpriteFlip
  '---------------------------------------------------------------
  ' Replaces QB's graphics PUT with Rel's optimized routine that
  ' supports clipping, transparency, and flipping.
  '---------------------------------------------------------------
  ' Clipping: Sprites will be clipped if they are partially
  '           off-screen, rather than returning "Illegal Function
  '           Call". This also means you can pass negative
  '           coordinates.
  '
  ' Transparency: Color 0 is always the transparent color,
  '               except when the PSET actionverb is passed
  '               (transparency is then ignored).
  '
  ' New PUT actionverbs:     XOR - not flipped  (default)
  '                         PSET - not flipped &
  '                                  no transparency
  '                       PRESET - flipped horizontally
  '                           OR - flipped vertically
  '                          AND - flipped horizontally &
  '                                  vertically
  '---------------------------------------------------------------
  ' * Works with SCREEN 13 only
  ' * Fully compatible with SetVideoSeg :)
  ' * Compatible with:      QBasic 1.x
  '                     QuickBasic 4.x (IDE & compiled)
  '                         QB PDS 7.1 (IDE & compiled)
  '                          VBDOS 1.0 (IDE & compiled)
  '
  '   Note: If you compile your program, it must be compiled as
  '         a stand-alone EXE!
  '===============================================================

[Sterling Christensen]

Sweet.

[relsoft]

:o :o :o :o

Yes!!!! I never thought you were that close!!!!! This is like a dream!!! Man can't wait to get home to test this out. :*)

Great friggin job dude!!!!

:king: =Plasma

[KiZ]

Oh YEA!!! Sweet man!!! Ill test it out asap!!

[na_th_an]

Astonishing work. Added to the FAQ.

I fear about PureQB-ers. They are always complaining, and they will complain about the embedded assembly here just ignore them 8)

[potato]

omgomgomgomg!!!!1111oneoneone

i want this!

[Dav]

Cool!

[Agamemnus]

Cool.

Rel/Plasma, since Rel apparently is not planning to put up RelSpriteFlip, why not lowercase it?

[Plasma]

Thanks guys.

I made a few changes, now you can install/remove the patch multiple times during runtime without any problems. (The updated version is at the original link.)

Rel/Plasma, since Rel apparently is not planning to put up RelSpriteFlip, why not lowercase it?

eh?

[Agamemnus]

the FAQ links everything with two capitals.....

In this case ppl would be copying question marks..