1 line
3.4 KiB
Plaintext
1 line
3.4 KiB
Plaintext
|
LOAD 'Macros.dump'
INCLUDE 'Pict.equ'
INCLUDE 'Driver.equ'
IMPORT Q_FlipHMap
IMPORT Q_FlipVMap
IMPORT Q_RotLMap
IMPORT Q_RotRMap
****************************************************************
* ;
* Picture flipping and rotating routines ;
* Jeff G. Erickson ;
* ;
****************************************************************
****************************************************************
Q_PictData PROC EXPORT
EXPORT Q_picterr
EXPORT Q_gotPScomm
EXPORT Q_op
EXPORT Q_center
EXPORT Q_addbytes
EXPORT Q_pictSCB
EXPORT Q_thePnSize
EXPORT Q_theMask
EXPORT Q_thePnLoc
EXPORT Q_theFGcolor
EXPORT Q_theBGcolor
EXPORT Q_theTxFont
EXPORT Q_theTxMode
EXPORT Q_theChExtra
EXPORT Q_theSpExtra
EXPORT Q_theFontFlags
EXPORT Q_theTxLoc
EXPORT Q_txtPort
EXPORT Q_txtPortLoc
EXPORT Q_txtSCB
EXPORT Q_txtImage
EXPORT Q_txtWidth
EXPORT Q_txtBounds
EXPORT Q_txtHandle
EXPORT Q_txtHsize
EXPORT Q_txtRect
EXPORT Q_pixSCB
EXPORT Q_pixbounds
EXPORT Q_srcpixsize
EXPORT Q_dstpixsize
EXPORT Q_PixelTable
EXPORT Q_printsquare
EXPORT Q_square
EXPORT Q_half
Q_picterr DS.B 2
Q_gotPScomm DC.W 0
*--------------------------------------------------------------*
* Picture stuff ;
*--------------------------------------------------------------*
Q_op DS.B 2 ; current picture opcode
Q_center DS.B 4 ; TWICE the Q_center of the picture
Q_addbytes DS.B 4 ; how many bytes to add to the pict?
Q_pictSCB DS.B 2 ; picture's original SCB
Q_thePnSize DS.B 4 ; current pen size w/i the D_New picture
Q_theMask DS.B 8 ; ... pen Q_Mask ...
Q_thePnLoc DS.B 4 ; current pen location w/i OLD picture
*--------------------------------------------------------------*
* Q_Text stuff ;
*--------------------------------------------------------------*
Q_theFGcolor DS.B 2 ; ... foreground color ...
Q_theBGcolor DS.B 2 ; ... background color ...
Q_theTxFont DS.B 4 ; ... font ID ...
Q_theTxMode DS.B 2 ; ... Q_Text mode ...
Q_theChExtra DS.B 4 ; ... charExtra ...
Q_theSpExtra DS.B 4 ; ... spaceExtra ...
Q_theFontFlags DS.B 2 ; ... font flags ...
Q_theTxLoc DS.B 4 ; ... the Q_Text location ...
Q_txtPort DS.B 170 ; Q_Text port
Q_txtPortLoc ; ; Q_Text port loc
Q_txtSCB DS.B 2 ; SCB
Q_txtImage DS.B 4 ; pointer to Q_Text image
Q_txtWidth DS.B 2 ; byte width of Q_Text image (mult. of 8)
Q_txtBounds DS.B 8 ; bounds of Q_Text image (adj'd to width)
Q_txtHandle DS.B 4 ; handle on Q_Text image (ptr to Q_txtImage)
Q_txtHsize DS.B 4 ; size of Q_txtHandle
Q_txtRect DS.B 8 ; REAL bounds of Q_Text image
*--------------------------------------------------------------*
* Pixelmap stuff ;
*--------------------------------------------------------------*
Q_pixSCB DS.B 2 ; pixmap's scan-Q_Line control byte
Q_pixbounds DS.B 4 ; bottom right of (old) bounds
Q_srcpixsize DS.B 4 ; size (bytes) of source pixmap
Q_dstpixsize DS.B 4 ; size (bytes) of detination pixmap
Q_PixelTable ; ; routines for mangling pixmaps
DC.L Q_FlipHMap
DC.L Q_FlipVMap
DC.L Q_RotRMap
DC.L Q_RotLMap
*--------------------------------------------------------------*
* Q_Region stuff ;
*--------------------------------------------------------------*
Q_printsquare DC.W 0,0,128,256
Q_square DC.W 0,0,128,128
Q_half DC.W 0,0,128,64
ENDP
END
|