paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 14:59:37 +01:00
Code Issues Packages Projects Releases Wiki Activity
614a0703c8
fpc/rtl/morphos/graphics.pas
fpc 790a4fe2d3 * log and id tags removed 
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

2837 lines
101 KiB
ObjectPascal
Raw Blame History

{
This file is part of the Free Pascal run time library.
Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
graphics.library interface unit for MorphOS/PowerPC
Based on work of Nils Sjoholm member of the Amiga RTL
development team.
MorphOS port was done on a free Pegasos II/G4 machine
provided by Genesi S.a.r.l. <www.genesi.lu>
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$PACKRECORDS 2}
unit graphics;
interface
uses exec, hardware, utility;
const
BITSET = $8000;
BITCLR = 0;
type
pRectangle = ^tRectangle;
tRectangle = record
MinX,MinY : Word;
MaxX,MaxY : Word;
end;
pRect32 = ^tRect32;
tRect32 = record
MinX,MinY : Longint;
MaxX,MaxY : Longint;
end;
pPoint = ^tPoint;
tPoint = record
x,y : Word;
end;
PLANEPTR = Pointer;
pBitMap = ^tBitMap;
tBitMap = record
BytesPerRow : Word;
Rows : Word;
Flags : Byte;
Depth : Byte;
pad : Word;
Planes : Array [0..7] of PLANEPTR;
end;
{* flags for AllocBitMap, etc. *}
const
BMB_CLEAR = 0;
BMB_DISPLAYABLE = 1;
BMB_INTERLEAVED = 2;
BMB_STANDARD = 3;
BMB_MINPLANES = 4;
BMF_CLEAR = (1 shl BMB_CLEAR);
BMF_DISPLAYABLE = (1 shl BMB_DISPLAYABLE);
BMF_INTERLEAVED = (1 shl BMB_INTERLEAVED);
BMF_STANDARD = (1 shl BMB_STANDARD);
BMF_MINPLANES = (1 shl BMB_MINPLANES);
{* the following are for GetBitMapAttr() *}
BMA_HEIGHT = 0;
BMA_DEPTH = 4;
BMA_WIDTH = 8;
BMA_FLAGS = 12;
{ structures used by and constructed by windowlib.a }
{ understood by rom software }
type
pClipRect = ^tClipRect;
tClipRect = record
Next : pClipRect; { roms used to find next ClipRect }
prev : pClipRect; { ignored by roms, used by windowlib }
lobs : Pointer; { ignored by roms, used by windowlib (LayerPtr)}
BitMap : pBitMap;
bounds : tRectangle; { set up by windowlib, used by roms }
_p1,
_p2 : Pointer; { system reserved }
reserved : Longint; { system use }
Flags : Longint; { only exists in layer allocation }
end;
pLayer = ^tLayer;
tLayer = record
front,
back : pLayer; { ignored by roms }
ClipRect : pClipRect; { read by roms to find first cliprect }
rp : Pointer; { (RastPortPtr) ignored by roms, I hope }
bounds : tRectangle; { ignored by roms }
reserved : Array [0..3] of Byte;
priority : Word; { system use only }
Flags : Word; { obscured ?, Virtual BitMap? }
SuperBitMap : pBitMap;
SuperClipRect : pClipRect; { super bitmap cliprects if
VBitMap != 0}
{ else damage cliprect list for refresh }
Window : Pointer; { reserved for user interface use }
Scroll_X,
Scroll_Y : Word;
cr,
cr2,
crnew : pClipRect; { used by dedice }
SuperSaveClipRects : pClipRect; { preallocated cr's }
cliprects : pClipRect; { system use during refresh }
LayerInfo : Pointer; { points to head of the list }
Lock : tSignalSemaphore;
BackFill : pHook;
reserved1 : Cardinal;
ClipRegion : Pointer;
saveClipRects : Pointer; { used to back out when in trouble}
Width,
Height : smallint;
reserved2 : Array [0..17] of Byte;
{ this must stay here }
DamageList : Pointer; { list of rectangles to refresh
through }
end;
const
{ internal cliprect flags }
CR_NEEDS_NO_CONCEALED_RASTERS = 1;
CR_NEEDS_NO_LAYERBLIT_DAMAGE = 2;
{ defines for code values for getcode }
ISLESSX = 1;
ISLESSY = 2;
ISGRTRX = 4;
ISGRTRY = 8;
{------ Font Styles ------------------------------------------------}
FS_NORMAL = 0; { normal text (no style bits set) }
FSB_EXTENDED = 3; { extended face (wider than normal) }
FSF_EXTENDED = 8;
FSB_ITALIC = 2; { italic (slanted 1:2 right) }
FSF_ITALIC = 4;
FSB_BOLD = 1; { bold face text (ORed w/ shifted) }
FSF_BOLD = 2;
FSB_UNDERLINED = 0; { underlined (under baseline) }
FSF_UNDERLINED = 1;
FSB_COLORFONT = 6; { this uses ColorTextFont structure }
FSF_COLORFONT = $40;
FSB_TAGGED = 7; { the TextAttr is really an TTextAttr, }
FSF_TAGGED = $80;
{------ Font Flags -------------------------------------------------}
FPB_ROMFONT = 0; { font is in rom }
FPF_ROMFONT = 1;
FPB_DISKFONT = 1; { font is from diskfont.library }
FPF_DISKFONT = 2;
FPB_REVPATH = 2; { designed path is reversed (e.g. left) }
FPF_REVPATH = 4;
FPB_TALLDOT = 3; { designed for hires non-interlaced }
FPF_TALLDOT = 8;
FPB_WIDEDOT = 4; { designed for lores interlaced }
FPF_WIDEDOT = 16;
FPB_PROPORTIONAL = 5; { character sizes can vary from nominal }
FPF_PROPORTIONAL = 32;
FPB_DESIGNED = 6; { size is "designed", not constructed }
FPF_DESIGNED = 64;
FPB_REMOVED = 7; { the font has been removed }
FPF_REMOVED = 128;
{***** TextAttr node, matches text attributes in RastPort *********}
type
pTextAttr = ^tTextAttr;
tTextAttr = record
ta_Name : PChar; { name of the font }
ta_YSize : Word; { height of the font }
ta_Style : Byte; { intrinsic font style }
ta_Flags : Byte; { font preferences and flags }
end;
pTTextAttr = ^tTTextAttr;
tTTextAttr = record
tta_Name : PChar; { name of the font }
tta_YSize : Word; { height of the font }
tta_Style : Byte; { intrinsic font style }
tta_Flags : Byte; { font preferences AND flags }
tta_Tags : pTagItem; { extended attributes }
end;
{***** Text Tags **************************************************}
CONST
TA_DeviceDPI = (1+TAG_USER); { Tag value is Point union: }
{ Hi Longint XDPI, Lo Longint YDPI }
MAXFONTMATCHWEIGHT = 32767; { perfect match from WeighTAMatch }
{***** TextFonts node *********************************************}
Type
pTextFont = ^tTextFont;
tTextFont = record
tf_Message : tMessage; { reply message for font removal }
{ font name in LN \ used in this }
tf_YSize : Word; { font height | order to best }
tf_Style : Byte; { font style | match a font }
tf_Flags : Byte; { preferences and flags / request. }
tf_XSize : Word; { nominal font width }
tf_Baseline : Word; { distance from the top of char to baseline }
tf_BoldSmear : Word; { smear to affect a bold enhancement }
tf_Accessors : Word; { access count }
tf_LoChar : Byte; { the first character described here }
tf_HiChar : Byte; { the last character described here }
tf_CharData : Pointer; { the bit character data }
tf_Modulo : Word; { the row modulo for the strike font data }
tf_CharLoc : Pointer; { ptr to location data for the strike font }
{ 2 words: bit offset then size }
tf_CharSpace : Pointer; { ptr to words of proportional spacing data }
tf_CharKern : Pointer; { ptr to words of kerning data }
end;
{----- tfe_Flags0 (partial definition) ----------------------------}
CONST
TE0B_NOREMFONT = 0; { disallow RemFont for this font }
TE0F_NOREMFONT = $01;
Type
pTextFontExtension = ^tTextFontExtension;
tTextFontExtension = record { this structure is read-only }
tfe_MatchWord : Word; { a magic cookie for the extension }
tfe_Flags0 : Byte; { (system private flags) }
tfe_Flags1 : Byte; { (system private flags) }
tfe_BackPtr : pTextFont; { validation of compilation }
tfe_OrigReplyPort : pMsgPort; { original value in tf_Extension }
tfe_Tags : pTagItem; { Text Tags for the font }
tfe_OFontPatchS, { (system private use) }
tfe_OFontPatchK : Pointer; { (system private use) }
{ this space is reserved for future expansion }
END;
{***** ColorTextFont node *****************************************}
{----- ctf_Flags --------------------------------------------------}
CONST
CT_COLORMASK = $000F; { mask to get to following color styles }
CT_COLORFONT = $0001; { color map contains designer's colors }
CT_GREYFONT = $0002; { color map describes even-stepped }
{ brightnesses from low to high }
CT_ANTIALIAS = $0004; { zero background thru fully saturated char }
CTB_MAPCOLOR = 0; { map ctf_FgColor to the rp_FgPen IF it's }
CTF_MAPCOLOR = $0001; { is a valid color within ctf_Low..ctf_High }
{----- ColorFontColors --------------------------------------------}
Type
pColorFontColors = ^tColorFontColors;
tColorFontColors = record
cfc_Reserved, { *must* be zero }
cfc_Count : Word; { number of entries in cfc_ColorTable }
cfc_ColorTable : Pointer; { 4 bit per component color map packed xRGB }
END;
{----- ColorTextFont ----------------------------------------------}
pColorTextFont = ^tColorTextFont;
tColorTextFont = record
ctf_TF : tTextFont;
ctf_Flags : Word; { extended flags }
ctf_Depth, { number of bit planes }
ctf_FgColor, { color that is remapped to FgPen }
ctf_Low, { lowest color represented here }
ctf_High, { highest color represented here }
ctf_PlanePick, { PlanePick ala Images }
ctf_PlaneOnOff : Byte; { PlaneOnOff ala Images }
ctf_ColorFontColors : pColorFontColors; { colors for font }
ctf_CharData : Array[0..7] of Pointer; {pointers to bit planes ala tf_CharData }
END;
{***** TextExtent node ********************************************}
pTextExtent = ^tTextExtent;
tTextExtent = record
te_Width, { same as TextLength }
te_Height : Word; { same as tf_YSize }
te_Extent : tRectangle; { relative to CP }
END;
const
COPPER_MOVE = 0; { pseude opcode for move #XXXX,dir }
COPPER_WAIT = 1; { pseudo opcode for wait y,x }
CPRNXTBUF = 2; { continue processing with next buffer }
CPR_NT_LOF = $8000; { copper instruction only for Longint frames }
CPR_NT_SHT = $4000; { copper instruction only for long frames }
CPR_NT_SYS = $2000; { copper user instruction only }
type
{ Note: The combination VWaitAddr and HWaitAddr replace a three way
union in C. The three possibilities are:
nxtList : CopListPtr; or
VWaitPos : Longint;
HWaitPos : Longint; or
DestAddr : Longint;
DestData : Longint;
}
pCopIns = ^tCopIns;
tCopIns = record
OpCode : smallint; { 0 = move, 1 = wait }
VWaitAddr : smallint; { vertical or horizontal wait position }
HWaitData : smallint; { destination Pointer or data to send }
end;
{ structure of cprlist that points to list that hardware actually executes }
pcprlist = ^tcprlist;
tcprlist = record
Next : pcprlist;
start : psmallint; { start of copper list }
MaxCount : smallint; { number of long instructions }
end;
pCopList = ^tCopList;
tCopList = record
Next : pCopList; { next block for this copper list }
CopList : pCopList; { system use }
ViewPort : Pointer; { system use }
CopIns : pCopIns; { start of this block }
CopPtr : pCopIns; { intermediate ptr }
CopLStart : psmallint; { mrgcop fills this in for Long Frame}
CopSStart : psmallint; { mrgcop fills this in for Longint Frame}
Count : smallint; { intermediate counter }
MaxCount : smallint; { max # of copins for this block }
DyOffset : smallint; { offset this copper list vertical waits }
SLRepeat : Word;
Flags : Word;
end;
pUCopList = ^tUCopList;
tUCopList = record
Next : pUCopList;
FirstCopList : pCopList; { head node of this copper list }
CopList : pCopList; { node in use }
end;
pcopinit = ^tcopinit;
tcopinit = record
vsync_hblank : array [0..1] of word;
diagstrt : Array [0..11] of word;
fm0 : array [0..1] of word;
diwstart : array [0..9] of word;
bplcon2 : array [0..1] of word;
sprfix : array [0..(2*8)] of word;
sprstrtup : Array [0..(2*8*2)] of Word;
wait14 : array [0..1] of word;
norm_hblank : array [0..1] of word;
jump : array [0..1] of word;
wait_forever : array [0..5] of word;
sprstop : Array [0..7] of Word;
end;
pAreaInfo = ^tAreaInfo;
tAreaInfo = record
VctrTbl : Pointer; { ptr to start of vector table }
VctrPtr : Pointer; { ptr to current vertex }
FlagTbl : Pointer; { ptr to start of vector flag table }
FlagPtr : Pointer; { ptrs to areafill flags }
Count : smallint; { number of vertices in list }
MaxCount : smallint; { AreaMove/Draw will not allow Count>MaxCount}
FirstX,
FirstY : smallint; { first point for this polygon }
end;
pTmpRas = ^tTmpRas;
tTmpRas = record
RasPtr : Pointer;
Size : Longint;
end;
{ unoptimized for 32bit alignment of pointers }
pGelsInfo = ^tGelsInfo;
tGelsInfo = record
sprRsrvd : Shortint; { flag of which sprites to reserve from
vsprite system }
Flags : Byte; { system use }
gelHead,
gelTail : Pointer; { (VSpritePtr) dummy vSprites for list management}
{ pointer to array of 8 WORDS for sprite available lines }
nextLine : Pointer;
{ pointer to array of 8 pointers for color-last-assigned to vSprites }
lastColor : Pointer;
collHandler : Pointer; { (collTablePtr) Pointeres of collision routines }
leftmost,
rightmost,
topmost,
bottommost : smallint;
firstBlissObj,
lastBlissObj : Pointer; { system use only }
end;
pRastPort = ^tRastPort;
tRastPort = record
Layer : pLayer; { LayerPtr }
BitMap : pBitMap; { BitMapPtr }
ArePointern : Pointer; { ptr to areafill pattern }
TmpRas : pTmpRas;
AreaInfo : pAreaInfo;
GelsInfo : pGelsInfo;
Mask : Byte; { write mask for this raster }
FgPen : Shortint; { foreground pen for this raster }
BgPen : Shortint; { background pen }
AOlPen : Shortint; { areafill outline pen }
DrawMode : Shortint; { drawing mode for fill, lines, and text }
AreaPtSz : Shortint; { 2^n words for areafill pattern }
linpatcnt : Shortint; { current line drawing pattern preshift }
dummy : Shortint;
Flags : Word; { miscellaneous control bits }
LinePtrn : Word; { 16 bits for textured lines }
cp_x,
cp_y : smallint; { current pen position }
minterms : Array [0..7] of Byte;
PenWidth : smallint;
PenHeight : smallint;
Font : pTextFont; { (TextFontPtr) current font Pointer }
AlgoStyle : Byte; { the algorithmically generated style }
TxFlags : Byte; { text specific flags }
TxHeight : Word; { text height }
TxWidth : Word; { text nominal width }
TxBaseline : Word; { text baseline }
TxSpacing : smallint; { text spacing (per character) }
RP_User : Pointer;
longreserved : Array [0..1] of Cardinal;
wordreserved : Array [0..6] of Word; { used to be a node }
reserved : Array [0..7] of Byte; { for future use }
end;
const
{ drawing modes }
JAM1 = 0; { jam 1 color into raster }
JAM2 = 1; { jam 2 colors into raster }
COMPLEMENT = 2; { XOR bits into raster }
INVERSVID = 4; { inverse video for drawing modes }
{ these are the flag bits for RastPort flags }
FRST_DOT = $01; { draw the first dot of this line ? }
ONE_DOT = $02; { use one dot mode for drawing lines }
DBUFFER = $04; { flag set when RastPorts are double-buffered }
{ only used for bobs }
AREAOUTLINE = $08; { used by areafiller }
NOCROSSFILL = $20; { areafills have no crossovers }
{ there is only one style of clipping: raster clipping }
{ this preserves the continuity of jaggies regardless of clip window }
{ When drawing into a RastPort, if the ptr to ClipRect is nil then there }
{ is no clipping done, this is dangerous but useful for speed }
Const
CleanUp = $40;
CleanMe = CleanUp;
BltClearWait = 1; { Waits for blit to finish }
BltClearXY = 2; { Use Row/Bytes per row method }
{ Useful minterms }
StraightCopy = $C0; { Vanilla copy }
InvertAndCopy = $30; { Invert the source before copy }
InvertDest = $50; { Forget source, invert dest }
{ mode coercion definitions }
const
{ These flags are passed (in combination) to CoerceMode() to determine the
* type of coercion required.
}
{ Ensure that the mode coerced to can display just as many colours as the
* ViewPort being coerced.
}
PRESERVE_COLORS = 1;
{ Ensure that the mode coerced to is not interlaced. }
AVOID_FLICKER = 2;
{ Coercion should ignore monitor compatibility issues. }
IGNORE_MCOMPAT = 4;
BIDTAG_COERCE = 1; { Private }
const
{ VSprite flags }
{ user-set VSprite flags: }
SUSERFLAGS = $00FF; { mask of all user-settable VSprite-flags }
VSPRITE_f = $0001; { set if VSprite, clear if Bob }
{ VSPRITE had to be changed for name conflict }
SAVEBACK = $0002; { set if background is to be saved/restored }
OVERLAY = $0004; { set to mask image of Bob onto background }
MUSTDRAW = $0008; { set if VSprite absolutely must be drawn }
{ system-set VSprite flags: }
BACKSAVED = $0100; { this Bob's background has been saved }
BOBUPDATE = $0200; { temporary flag, useless to outside world }
GELGONE = $0400; { set if gel is completely clipped (offscreen) }
VSOVERFLOW = $0800; { VSprite overflow (if MUSTDRAW set we draw!) }
{ Bob flags }
{ these are the user flag bits }
BUSERFLAGS = $00FF; { mask of all user-settable Bob-flags }
SAVEBOB = $0001; { set to not erase Bob }
BOBISCOMP = $0002; { set to identify Bob as AnimComp }
{ these are the system flag bits }
BWAITING = $0100; { set while Bob is waiting on 'after' }
BDRAWN = $0200; { set when Bob is drawn this DrawG pass}
BOBSAWAY = $0400; { set to initiate removal of Bob }
BOBNIX = $0800; { set when Bob is completely removed }
SAVEPRESERVE = $1000; { for back-restore during double-buffer}
OUTSTEP = $2000; { for double-clearing if double-buffer }
{ defines for the animation procedures }
ANFRACSIZE = 6;
ANIMHALF = $0020;
RINGTRIGGER = $0001;
{ UserStuff definitions
* the user can define these to be a single variable or a sub-structure
* if undefined by the user, the system turns these into innocuous variables
* see the manual for a thorough definition of the UserStuff definitions
*
}
type
VUserStuff = smallint; { Sprite user stuff }
BUserStuff = smallint; { Bob user stuff }
AUserStuff = smallint; { AnimOb user stuff }
{********************** GEL STRUCTURES **********************************}
pVSprite = ^tVSprite;
tVSprite = record
{ --------------------- SYSTEM VARIABLES ------------------------------- }
{ GEL linked list forward/backward pointers sorted by y,x value }
NextVSprite : pVSprite;
PrevVSprite : pVSprite;
{ GEL draw list constructed in the order the Bobs are actually drawn, then
* list is copied to clear list
* must be here in VSprite for system boundary detection
}
DrawPath : pVSprite; { pointer of overlay drawing }
ClearPath : pVSprite; { pointer for overlay clearing }
{ the VSprite positions are defined in (y,x) order to make sorting
* sorting easier, since (y,x) as a long Longint
}
OldY, OldX : smallint; { previous position }
{ --------------------- COMMON VARIABLES --------------------------------- }
Flags : smallint; { VSprite flags }
{ --------------------- USER VARIABLES ----------------------------------- }
{ the VSprite positions are defined in (y,x) order to make sorting
* sorting easier, since (y,x) as a long Longint
}
Y, X : smallint; { screen position }
Height : smallint;
Width : smallint; { number of words per row of image data }
Depth : smallint; { number of planes of data }
MeMask : smallint; { which types can collide with this VSprite}
HitMask : smallint; { which types this VSprite can collide with}
ImageData : Pointer; { pointer to VSprite image }
{ borderLine is the one-dimensional logical OR of all
* the VSprite bits, used for fast collision detection of edge
}
BorderLine : Pointer; { logical OR of all VSprite bits }
CollMask : Pointer; { similar to above except this is a matrix }
{ pointer to this VSprite's color definitions (not used by Bobs) }
SprColors : Pointer;
VSBob : Pointer; { (BobPtr) points home if this VSprite
is part of a Bob }
{ planePick flag: set bit selects a plane from image, clear bit selects
* use of shadow mask for that plane
* OnOff flag: if using shadow mask to fill plane, this bit (corresponding
* to bit in planePick) describes whether to fill with 0's or 1's
* There are two uses for these flags:
* - if this is the VSprite of a Bob, these flags describe how the Bob
* is to be drawn into memory
* - if this is a simple VSprite and the user intends on setting the
* MUSTDRAW flag of the VSprite, these flags must be set too to describe
* which color registers the user wants for the image
}
PlanePick : Shortint;
PlaneOnOff : Shortint;
VUserExt : VUserStuff; { user definable: see note above }
end;
{ dBufPacket defines the values needed to be saved across buffer to buffer
* when in double-buffer mode
}
pDBufPacket = ^tDBufPacket;
tDBufPacket = record
BufY,
BufX : Word; { save other buffers screen coordinates }
BufPath : pVSprite; { carry the draw path over the gap }
{ these pointers must be filled in by the user }
{ pointer to other buffer's background save buffer }
BufBuffer : Pointer;
end;
pBob = ^tBob;
tBob = record
{ blitter-objects }
{ --------------------- SYSTEM VARIABLES --------------------------------- }
{ --------------------- COMMON VARIABLES --------------------------------- }
Flags : smallint; { general purpose flags (see definitions below) }
{ --------------------- USER VARIABLES ----------------------------------- }
SaveBuffer : Pointer; { pointer to the buffer for background save }
{ used by Bobs for "cookie-cutting" and multi-plane masking }
ImageShadow : Pointer;
{ pointer to BOBs for sequenced drawing of Bobs
* for correct overlaying of multiple component animations
}
Before : pBob; { draw this Bob before Bob pointed to by before }
After : pBob; { draw this Bob after Bob pointed to by after }
BobVSprite : pVSprite; { this Bob's VSprite definition }
BobComp : Pointer; { (AnimCompPtr) pointer to this Bob's AnimComp def }
DBuffer : Pointer; { pointer to this Bob's dBuf packet }
BUserExt : BUserStuff; { Bob user extension }
end;
pAnimComp = ^tAnimComp;
tAnimComp = record
{ --------------------- SYSTEM VARIABLES --------------------------------- }
{ --------------------- COMMON VARIABLES --------------------------------- }
Flags : smallint; { AnimComp flags for system & user }
{ timer defines how long to keep this component active:
* if set non-zero, timer decrements to zero then switches to nextSeq
* if set to zero, AnimComp never switches
}
Timer : smallint;
{ --------------------- USER VARIABLES ----------------------------------- }
{ initial value for timer when the AnimComp is activated by the system }
TimeSet : smallint;
{ pointer to next and previous components of animation object }
NextComp : pAnimComp;
PrevComp : pAnimComp;
{ pointer to component component definition of next image in sequence }
NextSeq : pAnimComp;
PrevSeq : pAnimComp;
AnimCRoutine : Pointer; { Pointer of special animation procedure }
YTrans : smallint; { initial y translation (if this is a component) }
XTrans : smallint; { initial x translation (if this is a component) }
HeadOb : Pointer; { AnimObPtr }
AnimBob : pBob;
end;
pAnimOb = ^tAnimOb;
tAnimOb = record
{ --------------------- SYSTEM VARIABLES --------------------------------- }
NextOb,
PrevOb : pAnimOb;
{ number of calls to Animate this AnimOb has endured }
Clock : Longint;
AnOldY,
AnOldX : smallint; { old y,x coordinates }
{ --------------------- COMMON VARIABLES --------------------------------- }
AnY,
AnX : smallint; { y,x coordinates of the AnimOb }
{ --------------------- USER VARIABLES ----------------------------------- }
YVel,
XVel : smallint; { velocities of this object }
YAccel,
XAccel : smallint; { accelerations of this object }
RingYTrans,
RingXTrans : smallint; { ring translation values }
AnimORoutine : Pointer; { Pointer of special animation
procedure }
HeadComp : pAnimComp; { pointer to first component }
AUserExt : AUserStuff; { AnimOb user extension }
end;
ppAnimOb = ^pAnimOb;
{ ************************************************************************ }
const
B2NORM = 0;
B2SWAP = 1;
B2BOBBER = 2;
{ ************************************************************************ }
type
{ a structure to contain the 16 collision procedure addresses }
collTable = Array [0..15] of Pointer;
pcollTable = ^collTable;
const
{ These bit descriptors are used by the GEL collide routines.
* These bits are set in the hitMask and meMask variables of
* a GEL to describe whether or not these types of collisions
* can affect the GEL. BNDRY_HIT is described further below;
* this bit is permanently assigned as the boundary-hit flag.
* The other bit GEL_HIT is meant only as a default to cover
* any GEL hitting any other; the user may redefine this bit.
}
BORDERHIT = 0;
{ These bit descriptors are used by the GEL boundry hit routines.
* When the user's boundry-hit routine is called (via the argument
* set by a call to SetCollision) the first argument passed to
* the user's routine is the Pointer of the GEL involved in the
* boundry-hit, and the second argument has the appropriate bit(s)
* set to describe which boundry was surpassed
}
TOPHIT = 1;
BOTTOMHIT = 2;
LEFTHIT = 4;
RIGHTHIT = 8;
Type
pExtendedNode = ^tExtendedNode;
tExtendedNode = record
xln_Succ,
xln_Pred : pNode;
xln_Type : Byte;
xln_Pri : Shortint;
xln_Name : PChar;
xln_Subsystem : Byte;
xln_Subtype : Byte;
xln_Library : Longint;
xln_Init : Pointer;
END;
CONST
SS_GRAPHICS = $02;
VIEW_EXTRA_TYPE = 1;
VIEWPORT_EXTRA_TYPE = 2;
SPECIAL_MONITOR_TYPE = 3;
MONITOR_SPEC_TYPE = 4;
type
{ structure used by AddTOFTask }
pIsrvstr = ^tIsrvstr;
tIsrvstr = record
is_Node : tNode;
Iptr : pIsrvstr; { passed to srvr by os }
code : Pointer;
ccode : Pointer;
Carg : Pointer;
end;
Type
pAnalogSignalInterval = ^tAnalogSignalInterval;
tAnalogSignalInterval = record
asi_Start,
asi_Stop : Word;
END;
pSpecialMonitor = ^tSpecialMonitor;
tSpecialMonitor = record
spm_Node : tExtendedNode;
spm_Flags : Word;
do_monitor,
reserved1,
reserved2,
reserved3 : Pointer;
hblank,
vblank,
hsync,
vsync : tAnalogSignalInterval;
END;
pMonitorSpec = ^tMonitorSpec;
tMonitorSpec = record
ms_Node : tExtendedNode;
ms_Flags : Word;
ratioh,
ratiov : Longint;
total_rows,
total_colorclocks,
DeniseMaxDisplayColumn,
BeamCon0,
min_row : Word;
ms_Special : pSpecialMonitor;
ms_OpenCount : Word;
ms_transform,
ms_translate,
ms_scale : Pointer;
ms_xoffset,
ms_yoffset : Word;
ms_LegalView : tRectangle;
ms_maxoscan, { maximum legal overscan }
ms_videoscan : Pointer; { video display overscan }
DeniseMinDisplayColumn : Word;
DisplayCompatible : Cardinal;
DisplayInfoDataBase : tList;
DisplayInfoDataBaseSemaphore : tSignalSemaphore;
ms_MrgCop,
ms_LoadView,
ms_KillView : Longint;
END;
const
TO_MONITOR = 0;
FROM_MONITOR = 1;
STANDARD_XOFFSET = 9;
STANDARD_YOFFSET = 0;
MSB_REQUEST_NTSC = 0;
MSB_REQUEST_PAL = 1;
MSB_REQUEST_SPECIAL = 2;
MSB_REQUEST_A2024 = 3;
MSB_DOUBLE_SPRITES = 4;
MSF_REQUEST_NTSC = 1;
MSF_REQUEST_PAL = 2;
MSF_REQUEST_SPECIAL = 4;
MSF_REQUEST_A2024 = 8;
MSF_DOUBLE_SPRITES = 16;
{ obsolete, v37 compatible definitions follow }
REQUEST_NTSC = 1;
REQUEST_PAL = 2;
REQUEST_SPECIAL = 4;
REQUEST_A2024 = 8;
DEFAULT_MONITOR_NAME : PChar = 'default.monitor';
NTSC_MONITOR_NAME : PChar = 'ntsc.monitor';
PAL_MONITOR_NAME : PChar = 'pal.monitor';
STANDARD_MONITOR_MASK = ( REQUEST_NTSC OR REQUEST_PAL ) ;
STANDARD_NTSC_ROWS = 262;
STANDARD_PAL_ROWS = 312;
STANDARD_COLORCLOCKS = 226;
STANDARD_DENISE_MAX = 455;
STANDARD_DENISE_MIN = 93 ;
STANDARD_NTSC_BEAMCON = $0000;
STANDARD_PAL_BEAMCON = DISPLAYPAL ;
SPECIAL_BEAMCON = ( VARVBLANK OR LOLDIS OR VARVSYNC OR VARHSYNC OR VARBEAM OR CSBLANK OR VSYNCTRUE);
MIN_NTSC_ROW = 21 ;
MIN_PAL_ROW = 29 ;
STANDARD_VIEW_X = $81 ;
STANDARD_VIEW_Y = $2C ;
STANDARD_HBSTRT = $06 ;
STANDARD_HSSTRT = $0B ;
STANDARD_HSSTOP = $1C ;
STANDARD_HBSTOP = $2C ;
STANDARD_VBSTRT = $0122;
STANDARD_VSSTRT = $02A6;
STANDARD_VSSTOP = $03AA;
STANDARD_VBSTOP = $1066;
VGA_COLORCLOCKS = (STANDARD_COLORCLOCKS/2);
VGA_TOTAL_ROWS = (STANDARD_NTSC_ROWS*2);
VGA_DENISE_MIN = 59 ;
MIN_VGA_ROW = 29 ;
VGA_HBSTRT = $08 ;
VGA_HSSTRT = $0E ;
VGA_HSSTOP = $1C ;
VGA_HBSTOP = $1E ;
VGA_VBSTRT = $0000;
VGA_VSSTRT = $0153;
VGA_VSSTOP = $0235;
VGA_VBSTOP = $0CCD;
VGA_MONITOR_NAME : PChar = 'vga.monitor';
{ NOTE: VGA70 definitions are obsolete - a VGA70 monitor has never been
* implemented.
}
VGA70_COLORCLOCKS = (STANDARD_COLORCLOCKS/2) ;
VGA70_TOTAL_ROWS = 449;
VGA70_DENISE_MIN = 59;
MIN_VGA70_ROW = 35 ;
VGA70_HBSTRT = $08 ;
VGA70_HSSTRT = $0E ;
VGA70_HSSTOP = $1C ;
VGA70_HBSTOP = $1E ;
VGA70_VBSTRT = $0000;
VGA70_VSSTRT = $02A6;
VGA70_VSSTOP = $0388;
VGA70_VBSTOP = $0F73;
VGA70_BEAMCON = (SPECIAL_BEAMCON XOR VSYNCTRUE);
VGA70_MONITOR_NAME : PChar = 'vga70.monitor';
BROADCAST_HBSTRT = $01 ;
BROADCAST_HSSTRT = $06 ;
BROADCAST_HSSTOP = $17 ;
BROADCAST_HBSTOP = $27 ;
BROADCAST_VBSTRT = $0000;
BROADCAST_VSSTRT = $02A6;
BROADCAST_VSSTOP = $054C;
BROADCAST_VBSTOP = $1C40;
BROADCAST_BEAMCON = ( LOLDIS OR CSBLANK );
RATIO_FIXEDPART = 4;
RATIO_UNITY = 16;
Type
pRasInfo = ^tRasInfo;
tRasInfo = record { used by callers to and InitDspC() }
Next : pRasInfo; { used for dualpf }
BitMap : pBitMap;
RxOffset,
RyOffset : smallint; { scroll offsets in this BitMap }
end;
pView = ^tView;
tView = record
ViewPort : Pointer; { ViewPortPtr }
LOFCprList : pcprlist; { used for interlaced and noninterlaced }
SHFCprList : pcprlist; { only used during interlace }
DyOffset,
DxOffset : smallint; { for complete View positioning }
{ offsets are +- adjustments to standard #s }
Modes : WORD; { such as INTERLACE, GENLOC }
end;
{ these structures are obtained via GfxNew }
{ and disposed by GfxFree }
Type
pViewExtra = ^tViewExtra;
tViewExtra = record
n : tExtendedNode;
View : pView; { backwards link } { view in C-Includes }
Monitor : pMonitorSpec; { monitors for this view }
TopLine : Word;
END;
pViewPort = ^tViewPort;
tViewPort = record
Next : pViewPort;
ColorMap : Pointer; { table of colors for this viewport } { ColorMapPtr }
{ if this is nil, MakeVPort assumes default values }
DspIns : pCopList; { user by MakeView() }
SprIns : pCopList; { used by sprite stuff }
ClrIns : pCopList; { used by sprite stuff }
UCopIns : pUCopList; { User copper list }
DWidth,
DHeight : smallint;
DxOffset,
DyOffset : smallint;
Modes : Word;
SpritePriorities : Byte; { used by makevp }
reserved : Byte;
RasInfo : pRasInfo;
end;
{ this structure is obtained via GfxNew }
{ and disposed by GfxFree }
pViewPortExtra = ^tViewPortExtra;
tViewPortExtra = record
n : tExtendedNode;
ViewPort : pViewPort; { backwards link } { ViewPort in C-Includes }
DisplayClip : tRectangle; { makevp display clipping information }
{ These are added for V39 }
VecTable : Pointer; { Private }
DriverData : Array[0..1] of Pointer;
Flags : WORD;
Origin : Array[0..1] of tPoint; { First visible point relative to the DClip.
* One for each possible playfield.
}
cop1ptr, { private }
cop2ptr : Cardinal; { private }
END;
pColorMap = ^tColorMap;
tColorMap = record
Flags : Byte;
CType : Byte; { This is "Type" in C includes }
Count : Word;
ColorTable : Pointer;
cm_vpe : pViewPortExtra;
LowColorBits : Pointer;
TransparencyPlane,
SpriteResolution,
SpriteResDefault,
AuxFlags : Byte;
cm_vp : pViewPort; { ViewPortPtr }
NormalDisplayInfo,
CoerceDisplayInfo : Pointer;
cm_batch_items : pTagItem;
VPModeID : Cardinal;
PalExtra : Pointer;
SpriteBase_Even,
SpriteBase_Odd,
Bp_0_base,
Bp_1_base : Word;
end;
{ if Type == 0 then ColorMap is V1.2/V1.3 compatible }
{ if Type != 0 then ColorMap is V36 compatible }
{ the system will never create other than V39 type colormaps when running V39 }
CONST
COLORMAP_TYPE_V1_2 = $00;
COLORMAP_TYPE_V1_4 = $01;
COLORMAP_TYPE_V36 = COLORMAP_TYPE_V1_4; { use this definition }
COLORMAP_TYPE_V39 = $02;
{ Flags variable }
COLORMAP_TRANSPARENCY = $01;
COLORPLANE_TRANSPARENCY = $02;
BORDER_BLANKING = $04;
BORDER_NOTRANSPARENCY = $08;
VIDEOCONTROL_BATCH = $10;
USER_COPPER_CLIP = $20;
CONST
EXTEND_VSTRUCT = $1000; { unused bit in Modes field of View }
{ defines used for Modes in IVPargs }
CONST
GENLOCK_VIDEO = $0002;
LACE = $0004;
SUPERHIRES = $0020;
PFBA = $0040;
EXTRA_HALFBRITE= $0080;
GENLOCK_AUDIO = $0100;
DUALPF = $0400;
HAM = $0800;
EXTENDED_MODE = $1000;
VP_HIDE = $2000;
SPRITES = $4000;
HIRES = $8000;
VPF_A2024 = $40;
VPF_AGNUS = $20;
VPF_TENHZ = $20;
BORDERSPRITES = $40;
CMF_CMTRANS = 0;
CMF_CPTRANS = 1;
CMF_BRDRBLNK = 2;
CMF_BRDNTRAN = 3;
CMF_BRDRSPRT = 6;
SPRITERESN_ECS = 0;
{ ^140ns, except in 35ns viewport, where it is 70ns. }
SPRITERESN_140NS = 1;
SPRITERESN_70NS = 2;
SPRITERESN_35NS = 3;
SPRITERESN_DEFAULT = -1;
{ AuxFlags : }
CMAB_FULLPALETTE = 0;
CMAF_FULLPALETTE = 1;
CMAB_NO_INTERMED_UPDATE = 1;
CMAF_NO_INTERMED_UPDATE = 2;
CMAB_NO_COLOR_LOAD = 2;
CMAF_NO_COLOR_LOAD = 4;
CMAB_DUALPF_DISABLE = 3;
CMAF_DUALPF_DISABLE = 8;
Type
pPaletteExtra = ^tPaletteExtra;
tPaletteExtra = record { structure may be extended so watch out! }
pe_Semaphore : tSignalSemaphore; { shared semaphore for arbitration }
pe_FirstFree, { *private* }
pe_NFree, { number of free colors }
pe_FirstShared, { *private* }
pe_NShared : WORD; { *private* }
pe_RefCnt : Pointer; { *private* }
pe_AllocList : Pointer; { *private* }
pe_ViewPort : pViewPort; { back pointer to viewport }
pe_SharableColors : WORD; { the number of sharable colors. }
end;
{ flags values for ObtainPen }
Const
PENB_EXCLUSIVE = 0;
PENB_NO_SETCOLOR = 1;
PENF_EXCLUSIVE = 1;
PENF_NO_SETCOLOR = 2;
{ obsolete names for PENF_xxx flags: }
PEN_EXCLUSIVE = PENF_EXCLUSIVE;
PEN_NO_SETCOLOR = PENF_NO_SETCOLOR;
{ precision values for ObtainBestPen : }
PRECISION_EXACT = -1;
PRECISION_IMAGE = 0;
PRECISION_ICON = 16;
PRECISION_GUI = 32;
{ tags for ObtainBestPen: }
OBP_Precision = $84000000;
OBP_FailIfBad = $84000001;
{ From V39, MakeVPort() will return an error if there is not enough memory,
* or the requested mode cannot be opened with the requested depth with the
* given bitmap (for higher bandwidth alignments).
}
MVP_OK = 0; { you want to see this one }
MVP_NO_MEM = 1; { insufficient memory for intermediate workspace }
MVP_NO_VPE = 2; { ViewPort does not have a ViewPortExtra, and
* insufficient memory to allocate a temporary one.
}
MVP_NO_DSPINS = 3; { insufficient memory for intermidiate copper
* instructions.
}
MVP_NO_DISPLAY = 4; { BitMap data is misaligned for this viewport's
* mode and depth - see AllocBitMap().
}
MVP_OFF_BOTTOM = 5; { PRIVATE - you will never see this. }
{ From V39, MrgCop() will return an error if there is not enough memory,
* or for some reason MrgCop() did not need to make any copper lists.
}
MCOP_OK = 0; { you want to see this one }
MCOP_NO_MEM = 1; { insufficient memory to allocate the system
* copper lists.
}
MCOP_NOP = 2; { MrgCop() did not merge any copper lists
* (eg, no ViewPorts in the list, or all marked as
* hidden).
}
Type
pDBufInfo = ^tDBufInfo;
tDBufInfo = record
dbi_Link1 : Pointer;
dbi_Count1 : Cardinal;
dbi_SafeMessage : tMessage; { replied to when safe to write to old bitmap }
dbi_UserData1 : Pointer; { first user data }
dbi_Link2 : Pointer;
dbi_Count2 : Cardinal;
dbi_DispMessage : tMessage; { replied to when new bitmap has been displayed at least
once }
dbi_UserData2 : Pointer; { second user data }
dbi_MatchLong : Cardinal;
dbi_CopPtr1,
dbi_CopPtr2,
dbi_CopPtr3 : Pointer;
dbi_BeamPos1,
dbi_BeamPos2 : WORD;
end;
{ include define file for graphics display mode IDs. }
const
INVALID_ID = NOT 0;
{ With all the new modes that are available under V38 and V39, it is highly
* recommended that you use either the asl.library screenmode requester,
* and/or the V39 graphics.library function BestModeIDA().
*
* DO NOT interpret the any of the bits in the ModeID for its meaning. For
* example, do not interpret bit 3 ($4) as meaning the ModeID is interlaced.
* Instead, use GetDisplayInfoData() with DTAG_DISP, and examine the DIPF_...
* flags to determine a ModeID's characteristics. The only exception to
* this rule is that bit 7 ($80) will always mean the ModeID is
* ExtraHalfBright, and bit 11 ($800) will always mean the ModeID is HAM.
}
{ normal identifiers }
MONITOR_ID_MASK = $FFFF1000;
DEFAULT_MONITOR_ID = $00000000;
NTSC_MONITOR_ID = $00011000;
PAL_MONITOR_ID = $00021000;
{ the following 22 composite keys are for Modes on the default Monitor.
* NTSC & PAL "flavors" of these particular keys may be made by or'ing
* the NTSC or PAL MONITOR_ID with the desired MODE_KEY...
*
* For example, to specifically open a PAL HAM interlaced ViewPort
* (or intuition screen), you would use the modeid of
* (PAL_MONITOR_ID OR HAMLACE_KEY)
}
LORES_KEY = $00000000;
HIRES_KEY = $00008000;
SUPER_KEY = $00008020;
HAM_KEY = $00000800;
LORESLACE_KEY = $00000004;
HIRESLACE_KEY = $00008004;
SUPERLACE_KEY = $00008024;
HAMLACE_KEY = $00000804;
LORESDPF_KEY = $00000400;
HIRESDPF_KEY = $00008400;
SUPERDPF_KEY = $00008420;
LORESLACEDPF_KEY = $00000404;
HIRESLACEDPF_KEY = $00008404;
SUPERLACEDPF_KEY = $00008424;
LORESDPF2_KEY = $00000440;
HIRESDPF2_KEY = $00008440;
SUPERDPF2_KEY = $00008460;
LORESLACEDPF2_KEY = $00000444;
HIRESLACEDPF2_KEY = $00008444;
SUPERLACEDPF2_KEY = $00008464;
EXTRAHALFBRITE_KEY = $00000080;
EXTRAHALFBRITELACE_KEY = $00000084;
{ New for AA ChipSet (V39) }
HIRESHAM_KEY = $00008800;
SUPERHAM_KEY = $00008820;
HIRESEHB_KEY = $00008080;
SUPEREHB_KEY = $000080a0;
HIRESHAMLACE_KEY = $00008804;
SUPERHAMLACE_KEY = $00008824;
HIRESEHBLACE_KEY = $00008084;
SUPEREHBLACE_KEY = $000080a4;
{ Added for V40 - may be useful modes for some games or animations. }
LORESSDBL_KEY = $00000008;
LORESHAMSDBL_KEY = $00000808;
LORESEHBSDBL_KEY = $00000088;
HIRESHAMSDBL_KEY = $00008808;
{ VGA identifiers }
VGA_MONITOR_ID = $00031000;
VGAEXTRALORES_KEY = $00031004;
VGALORES_KEY = $00039004;
VGAPRODUCT_KEY = $00039024;
VGAHAM_KEY = $00031804;
VGAEXTRALORESLACE_KEY = $00031005;
VGALORESLACE_KEY = $00039005;
VGAPRODUCTLACE_KEY = $00039025;
VGAHAMLACE_KEY = $00031805;
VGAEXTRALORESDPF_KEY = $00031404;
VGALORESDPF_KEY = $00039404;
VGAPRODUCTDPF_KEY = $00039424;
VGAEXTRALORESLACEDPF_KEY = $00031405;
VGALORESLACEDPF_KEY = $00039405;
VGAPRODUCTLACEDPF_KEY = $00039425;
VGAEXTRALORESDPF2_KEY = $00031444;
VGALORESDPF2_KEY = $00039444;
VGAPRODUCTDPF2_KEY = $00039464;
VGAEXTRALORESLACEDPF2_KEY = $00031445;
VGALORESLACEDPF2_KEY = $00039445;
VGAPRODUCTLACEDPF2_KEY = $00039465;
VGAEXTRAHALFBRITE_KEY = $00031084;
VGAEXTRAHALFBRITELACE_KEY = $00031085;
{ New for AA ChipSet (V39) }
VGAPRODUCTHAM_KEY = $00039824;
VGALORESHAM_KEY = $00039804;
VGAEXTRALORESHAM_KEY = VGAHAM_KEY;
VGAPRODUCTHAMLACE_KEY = $00039825;
VGALORESHAMLACE_KEY = $00039805;
VGAEXTRALORESHAMLACE_KEY = VGAHAMLACE_KEY;
VGAEXTRALORESEHB_KEY = VGAEXTRAHALFBRITE_KEY;
VGAEXTRALORESEHBLACE_KEY = VGAEXTRAHALFBRITELACE_KEY;
VGALORESEHB_KEY = $00039084;
VGALORESEHBLACE_KEY = $00039085;
VGAEHB_KEY = $000390a4;
VGAEHBLACE_KEY = $000390a5;
{ These ModeIDs are the scandoubled equivalents of the above, with the
* exception of the DualPlayfield modes, as AA does not allow for scandoubling
* dualplayfield.
}
VGAEXTRALORESDBL_KEY = $00031000;
VGALORESDBL_KEY = $00039000;
VGAPRODUCTDBL_KEY = $00039020;
VGAEXTRALORESHAMDBL_KEY = $00031800;
VGALORESHAMDBL_KEY = $00039800;
VGAPRODUCTHAMDBL_KEY = $00039820;
VGAEXTRALORESEHBDBL_KEY = $00031080;
VGALORESEHBDBL_KEY = $00039080;
VGAPRODUCTEHBDBL_KEY = $000390a0;
{ a2024 identifiers }
A2024_MONITOR_ID = $00041000;
A2024TENHERTZ_KEY = $00041000;
A2024FIFTEENHERTZ_KEY = $00049000;
{ prototype identifiers (private) }
PROTO_MONITOR_ID = $00051000;
{ These monitors and modes were added for the V38 release. }
EURO72_MONITOR_ID = $00061000;
EURO72EXTRALORES_KEY = $00061004;
EURO72LORES_KEY = $00069004;
EURO72PRODUCT_KEY = $00069024;
EURO72HAM_KEY = $00061804;
EURO72EXTRALORESLACE_KEY = $00061005;
EURO72LORESLACE_KEY = $00069005;
EURO72PRODUCTLACE_KEY = $00069025;
EURO72HAMLACE_KEY = $00061805;
EURO72EXTRALORESDPF_KEY = $00061404;
EURO72LORESDPF_KEY = $00069404;
EURO72PRODUCTDPF_KEY = $00069424;
EURO72EXTRALORESLACEDPF_KEY = $00061405;
EURO72LORESLACEDPF_KEY = $00069405;
EURO72PRODUCTLACEDPF_KEY = $00069425;
EURO72EXTRALORESDPF2_KEY = $00061444;
EURO72LORESDPF2_KEY = $00069444;
EURO72PRODUCTDPF2_KEY = $00069464;
EURO72EXTRALORESLACEDPF2_KEY = $00061445;
EURO72LORESLACEDPF2_KEY = $00069445;
EURO72PRODUCTLACEDPF2_KEY = $00069465;
EURO72EXTRAHALFBRITE_KEY = $00061084;
EURO72EXTRAHALFBRITELACE_KEY = $00061085;
{ New AA modes (V39) }
EURO72PRODUCTHAM_KEY = $00069824;
EURO72PRODUCTHAMLACE_KEY = $00069825;
EURO72LORESHAM_KEY = $00069804;
EURO72LORESHAMLACE_KEY = $00069805;
EURO72EXTRALORESHAM_KEY = EURO72HAM_KEY;
EURO72EXTRALORESHAMLACE_KEY = EURO72HAMLACE_KEY ;
EURO72EXTRALORESEHB_KEY = EURO72EXTRAHALFBRITE_KEY;
EURO72EXTRALORESEHBLACE_KEY = EURO72EXTRAHALFBRITELACE_KEY;
EURO72LORESEHB_KEY = $00069084;
EURO72LORESEHBLACE_KEY = $00069085;
EURO72EHB_KEY = $000690a4;
EURO72EHBLACE_KEY = $000690a5;
{ These ModeIDs are the scandoubled equivalents of the above, with the
* exception of the DualPlayfield modes, as AA does not allow for scandoubling
* dualplayfield.
}
EURO72EXTRALORESDBL_KEY = $00061000;
EURO72LORESDBL_KEY = $00069000;
EURO72PRODUCTDBL_KEY = $00069020;
EURO72EXTRALORESHAMDBL_KEY = $00061800;
EURO72LORESHAMDBL_KEY = $00069800;
EURO72PRODUCTHAMDBL_KEY = $00069820;
EURO72EXTRALORESEHBDBL_KEY = $00061080;
EURO72LORESEHBDBL_KEY = $00069080;
EURO72PRODUCTEHBDBL_KEY = $000690a0;
EURO36_MONITOR_ID = $00071000;
{ Euro36 modeids can be ORed with the default modeids a la NTSC and PAL.
* For example, Euro36 SuperHires is
* (EURO36_MONITOR_ID OR SUPER_KEY)
}
SUPER72_MONITOR_ID = $00081000;
{ Super72 modeids can be ORed with the default modeids a la NTSC and PAL.
* For example, Super72 SuperHiresLace (80$600) is
* (SUPER72_MONITOR_ID OR SUPERLACE_KEY).
* The following scandoubled Modes are the exception:
}
SUPER72LORESDBL_KEY = $00081008;
SUPER72HIRESDBL_KEY = $00089008;
SUPER72SUPERDBL_KEY = $00089028;
SUPER72LORESHAMDBL_KEY = $00081808;
SUPER72HIRESHAMDBL_KEY = $00089808;
SUPER72SUPERHAMDBL_KEY = $00089828;
SUPER72LORESEHBDBL_KEY = $00081088;
SUPER72HIRESEHBDBL_KEY = $00089088;
SUPER72SUPEREHBDBL_KEY = $000890a8;
{ These monitors and modes were added for the V39 release. }
DBLNTSC_MONITOR_ID = $00091000;
DBLNTSCLORES_KEY = $00091000;
DBLNTSCLORESFF_KEY = $00091004;
DBLNTSCLORESHAM_KEY = $00091800;
DBLNTSCLORESHAMFF_KEY = $00091804;
DBLNTSCLORESEHB_KEY = $00091080;
DBLNTSCLORESEHBFF_KEY = $00091084;
DBLNTSCLORESLACE_KEY = $00091005;
DBLNTSCLORESHAMLACE_KEY = $00091805;
DBLNTSCLORESEHBLACE_KEY = $00091085;
DBLNTSCLORESDPF_KEY = $00091400;
DBLNTSCLORESDPFFF_KEY = $00091404;
DBLNTSCLORESDPFLACE_KEY = $00091405;
DBLNTSCLORESDPF2_KEY = $00091440;
DBLNTSCLORESDPF2FF_KEY = $00091444;
DBLNTSCLORESDPF2LACE_KEY = $00091445;
DBLNTSCHIRES_KEY = $00099000;
DBLNTSCHIRESFF_KEY = $00099004;
DBLNTSCHIRESHAM_KEY = $00099800;
DBLNTSCHIRESHAMFF_KEY = $00099804;
DBLNTSCHIRESLACE_KEY = $00099005;
DBLNTSCHIRESHAMLACE_KEY = $00099805;
DBLNTSCHIRESEHB_KEY = $00099080;
DBLNTSCHIRESEHBFF_KEY = $00099084;
DBLNTSCHIRESEHBLACE_KEY = $00099085;
DBLNTSCHIRESDPF_KEY = $00099400;
DBLNTSCHIRESDPFFF_KEY = $00099404;
DBLNTSCHIRESDPFLACE_KEY = $00099405;
DBLNTSCHIRESDPF2_KEY = $00099440;
DBLNTSCHIRESDPF2FF_KEY = $00099444;
DBLNTSCHIRESDPF2LACE_KEY = $00099445;
DBLNTSCEXTRALORES_KEY = $00091200;
DBLNTSCEXTRALORESHAM_KEY = $00091a00;
DBLNTSCEXTRALORESEHB_KEY = $00091280;
DBLNTSCEXTRALORESDPF_KEY = $00091600;
DBLNTSCEXTRALORESDPF2_KEY = $00091640;
DBLNTSCEXTRALORESFF_KEY = $00091204;
DBLNTSCEXTRALORESHAMFF_KEY = $00091a04;
DBLNTSCEXTRALORESEHBFF_KEY = $00091284;
DBLNTSCEXTRALORESDPFFF_KEY = $00091604;
DBLNTSCEXTRALORESDPF2FF_KEY = $00091644;
DBLNTSCEXTRALORESLACE_KEY = $00091205;
DBLNTSCEXTRALORESHAMLACE_KEY = $00091a05;
DBLNTSCEXTRALORESEHBLACE_KEY = $00091285;
DBLNTSCEXTRALORESDPFLACE_KEY = $00091605;
DBLNTSCEXTRALORESDPF2LACE_KEY = $00091645;
DBLPAL_MONITOR_ID = $000a1000;
DBLPALLORES_KEY = $000a1000;
DBLPALLORESFF_KEY = $000a1004;
DBLPALLORESHAM_KEY = $000a1800;
DBLPALLORESHAMFF_KEY = $000a1804;
DBLPALLORESEHB_KEY = $000a1080;
DBLPALLORESEHBFF_KEY = $000a1084;
DBLPALLORESLACE_KEY = $000a1005;
DBLPALLORESHAMLACE_KEY = $000a1805;
DBLPALLORESEHBLACE_KEY = $000a1085;
DBLPALLORESDPF_KEY = $000a1400;
DBLPALLORESDPFFF_KEY = $000a1404;
DBLPALLORESDPFLACE_KEY = $000a1405;
DBLPALLORESDPF2_KEY = $000a1440;
DBLPALLORESDPF2FF_KEY = $000a1444;
DBLPALLORESDPF2LACE_KEY = $000a1445;
DBLPALHIRES_KEY = $000a9000;
DBLPALHIRESFF_KEY = $000a9004;
DBLPALHIRESHAM_KEY = $000a9800;
DBLPALHIRESHAMFF_KEY = $000a9804;
DBLPALHIRESLACE_KEY = $000a9005;
DBLPALHIRESHAMLACE_KEY = $000a9805;
DBLPALHIRESEHB_KEY = $000a9080;
DBLPALHIRESEHBFF_KEY = $000a9084;
DBLPALHIRESEHBLACE_KEY = $000a9085;
DBLPALHIRESDPF_KEY = $000a9400;
DBLPALHIRESDPFFF_KEY = $000a9404;
DBLPALHIRESDPFLACE_KEY = $000a9405;
DBLPALHIRESDPF2_KEY = $000a9440;
DBLPALHIRESDPF2FF_KEY = $000a9444;
DBLPALHIRESDPF2LACE_KEY = $000a9445;
DBLPALEXTRALORES_KEY = $000a1200;
DBLPALEXTRALORESHAM_KEY = $000a1a00;
DBLPALEXTRALORESEHB_KEY = $000a1280;
DBLPALEXTRALORESDPF_KEY = $000a1600;
DBLPALEXTRALORESDPF2_KEY = $000a1640;
DBLPALEXTRALORESFF_KEY = $000a1204;
DBLPALEXTRALORESHAMFF_KEY = $000a1a04;
DBLPALEXTRALORESEHBFF_KEY = $000a1284;
DBLPALEXTRALORESDPFFF_KEY = $000a1604;
DBLPALEXTRALORESDPF2FF_KEY = $000a1644;
DBLPALEXTRALORESLACE_KEY = $000a1205;
DBLPALEXTRALORESHAMLACE_KEY = $000a1a05;
DBLPALEXTRALORESEHBLACE_KEY = $000a1285;
DBLPALEXTRALORESDPFLACE_KEY = $000a1605;
DBLPALEXTRALORESDPF2LACE_KEY = $000a1645;
{ Use these tags for passing to BestModeID() (V39) }
SPECIAL_FLAGS = $100E;
{ Original:
SPECIAL_FLAGS = DIPF_IS_DUALPF OR DIPF_IS_PF2PRI OR DIPF_IS_HAM OR DIPF_IS_EXTRAHALFBRITE;
( Mu?te aufgrund eines Fehler in PCQ ge?ndert werden )
}
BIDTAG_DIPFMustHave = $80000001; { mask of the DIPF_ flags the ModeID must have }
{ Default - NULL }
BIDTAG_DIPFMustNotHave = $80000002; { mask of the DIPF_ flags the ModeID must not have }
{ Default - SPECIAL_FLAGS }
BIDTAG_ViewPort = $80000003; { ViewPort for which a ModeID is sought. }
{ Default - NULL }
BIDTAG_NominalWidth = $80000004; { \ together make the aspect ratio and }
BIDTAG_NominalHeight = $80000005; { / override the vp->Width/Height. }
{ Default - SourceID NominalDimensionInfo,
* or vp->DWidth/Height, or (640 * 200),
* in that preferred order.
}
BIDTAG_DesiredWidth = $80000006; { \ Nominal Width and Height of the }
BIDTAG_DesiredHeight = $80000007; { / returned ModeID. }
{ Default - same as Nominal }
BIDTAG_Depth = $80000008; { ModeID must support this depth. }
{ Default - vp->RasInfo->BitMap->Depth or 1 }
BIDTAG_MonitorID = $80000009; { ModeID must use this monitor. }
{ Default - use best monitor available }
BIDTAG_SourceID = $8000000a; { instead of a ViewPort. }
{ Default - VPModeID(vp) if BIDTAG_ViewPort is
* specified, else leave the DIPFMustHave and
* DIPFMustNotHave values untouched.
}
BIDTAG_RedBits = $8000000b; { \ }
BIDTAG_BlueBits = $8000000c; { > Match up from the database }
BIDTAG_GreenBits = $8000000d; { / }
{ Default - 4 }
BIDTAG_GfxPrivate = $8000000e; { Private }
const
{ bplcon0 defines }
MODE_640 = $8000;
PLNCNTMSK = $7; { how many bit planes? }
{ 0 = none, 1->6 = 1->6, 7 = reserved }
PLNCNTSHFT = 12; { bits to shift for bplcon0 }
PF2PRI = $40; { bplcon2 bit }
COLORON = $0200; { disable color burst }
DBLPF = $400;
HOLDNMODIFY = $800;
INTERLACE = 4; { interlace mode for 400 }
{ bplcon1 defines }
PFA_FINE_SCROLL = $F;
PFB_FINE_SCROLL_SHIFT = 4;
PF_FINE_SCROLL_MASK = $F;
{ display window start and stop defines }
DIW_HORIZ_POS = $7F; { horizontal start/stop }
DIW_VRTCL_POS = $1FF; { vertical start/stop }
DIW_VRTCL_POS_SHIFT = $7;
{ Data fetch start/stop horizontal position }
DFTCH_MASK = $FF;
{ vposr bits }
VPOSRLOF = $8000;
{ include define file for displayinfo database }
{ the "public" handle to a DisplayInfoRecord }
Type
DisplayInfoHandle = Pointer;
{ datachunk type identifiers }
CONST
DTAG_DISP = $80000000;
DTAG_DIMS = $80001000;
DTAG_MNTR = $80002000;
DTAG_NAME = $80003000;
DTAG_VEC = $80004000; { internal use only }
Type
pQueryHeader = ^tQueryHeader;
tQueryHeader = record
tructID, { datachunk type identifier }
DisplayID, { copy of display record key }
SkipID, { TAG_SKIP -- see tagitems.h }
Length : Cardinal; { length of local data in double-longwords }
END;
pDisplayInfo = ^tDisplayInfo;
tDisplayInfo = record
Header : tQueryHeader;
NotAvailable : Word; { IF NULL available, else see defines }
PropertyFlags : Cardinal; { Properties of this mode see defines }
Resolution : tPoint; { ticks-per-pixel X/Y }
PixelSpeed : Word; { aproximation in nanoseconds }
NumStdSprites : Word; { number of standard amiga sprites }
PaletteRange : Word; { distinguishable shades available }
SpriteResolution : tPoint; { std sprite ticks-per-pixel X/Y }
pad : Array[0..3] of Byte;
RedBits : Byte;
GreenBits : Byte;
BlueBits : Byte;
pad2 : array [0..4] of Byte;
reserved : Array[0..1] of Cardinal; { terminator }
END;
{ availability }
CONST
DI_AVAIL_NOCHIPS =$0001;
DI_AVAIL_NOMONITOR =$0002;
DI_AVAIL_NOTWITHGENLOCK =$0004;
{ mode properties }
DIPF_IS_LACE = $00000001;
DIPF_IS_DUALPF = $00000002;
DIPF_IS_PF2PRI = $00000004;
DIPF_IS_HAM = $00000008;
DIPF_IS_ECS = $00000010; { note: ECS modes (SHIRES, VGA, AND **
PRODUCTIVITY) do not support **
attached sprites. **
}
DIPF_IS_AA = $00010000; { AA modes - may only be available
** if machine has correct memory
** type to support required
** bandwidth - check availability.
** (V39)
}
DIPF_IS_PAL = $00000020;
DIPF_IS_SPRITES = $00000040;
DIPF_IS_GENLOCK = $00000080;
DIPF_IS_WB = $00000100;
DIPF_IS_DRAGGABLE = $00000200;
DIPF_IS_PANELLED = $00000400;
DIPF_IS_BEAMSYNC = $00000800;
DIPF_IS_EXTRAHALFBRITE = $00001000;
{ The following DIPF_IS_... flags are new for V39 }
DIPF_IS_SPRITES_ATT = $00002000; { supports attached sprites }
DIPF_IS_SPRITES_CHNG_RES = $00004000; { supports variable sprite resolution }
DIPF_IS_SPRITES_BORDER = $00008000; { sprite can be displayed in the border }
DIPF_IS_SCANDBL = $00020000; { scan doubled }
DIPF_IS_SPRITES_CHNG_BASE = $00040000;
{ can change the sprite base colour }
DIPF_IS_SPRITES_CHNG_PRI = $00080000;
{ can change the sprite priority
** with respect to the playfield(s).
}
DIPF_IS_DBUFFER = $00100000; { can support double buffering }
DIPF_IS_PROGBEAM = $00200000; { is a programmed beam-sync mode }
DIPF_IS_FOREIGN = $80000000; { this mode is not native to the Amiga }
Type
pDimensionInfo =^tDimensionInfo;
tDimensionInfo = record
Header : tQueryHeader;
MaxDepth, { log2( max number of colors ) }
MinRasterWidth, { minimum width in pixels }
MinRasterHeight, { minimum height in pixels }
MaxRasterWidth, { maximum width in pixels }
MaxRasterHeight : Word; { maximum height in pixels }
Nominal, { "standard" dimensions }
MaxOScan, { fixed, hardware dependant }
VideoOScan, { fixed, hardware dependant }
TxtOScan, { editable via preferences }
StdOScan : tRectangle; { editable via preferences }
pad : Array[0..13] of Byte;
reserved : Array[0..1] of Longint; { terminator }
END;
pMonitorInfo = ^tMonitorInfo;
tMonitorInfo = record
Header : tQueryHeader;
Mspc : pMonitorSpec; { pointer to monitor specification }
ViewPosition, { editable via preferences }
ViewResolution : tPoint; { standard monitor ticks-per-pixel }
ViewPositionRange : tRectangle; { fixed, hardware dependant }
TotalRows, { display height in scanlines }
TotalColorClocks, { scanline width in 280 ns units }
MinRow : Word; { absolute minimum active scanline }
Compatibility : smallint; { how this coexists with others }
pad : Array[0..31] of Byte;
MouseTicks : tPoint;
DefaultViewPosition : tPoint;
PreferredModeID : Cardinal;
reserved : Array[0..1] of Cardinal; { terminator }
END;
{ monitor compatibility }
CONST
MCOMPAT_MIXED = 0; { can share display with other MCOMPAT_MIXED }
MCOMPAT_SELF = 1; { can share only within same monitor }
MCOMPAT_NOBODY= -1; { only one viewport at a time }
DISPLAYNAMELEN = 32;
Type
pNameInfo = ^tNameInfo;
tNameInfo = record
Header : tQueryHeader;
Name : Array[0..DISPLAYNAMELEN-1] of Char;
reserved : Array[0..1] of Cardinal; { terminator }
END;
{****************************************************************************}
{ The following VecInfo structure is PRIVATE, for our use only
* Touch these, and burn! (V39)
}
Type
pVecInfo = ^tVecInfo;
tVecInfo = record
Header : tQueryHeader;
Vec : Pointer;
Data : Pointer;
vi_Type : WORD; { Type in C Includes }
pad : Array[0..2] of WORD;
reserved : Array[0..1] of Cardinal;
end;
CONST
VTAG_END_CM = $00000000;
VTAG_CHROMAKEY_CLR = $80000000;
VTAG_CHROMAKEY_SET = $80000001;
VTAG_BITPLANEKEY_CLR = $80000002;
VTAG_BITPLANEKEY_SET = $80000003;
VTAG_BORDERBLANK_CLR = $80000004;
VTAG_BORDERBLANK_SET = $80000005;
VTAG_BORDERNOTRANS_CLR = $80000006;
VTAG_BORDERNOTRANS_SET = $80000007;
VTAG_CHROMA_PEN_CLR = $80000008;
VTAG_CHROMA_PEN_SET = $80000009;
VTAG_CHROMA_PLANE_SET = $8000000A;
VTAG_ATTACH_CM_SET = $8000000B;
VTAG_NEXTBUF_CM = $8000000C;
VTAG_BATCH_CM_CLR = $8000000D;
VTAG_BATCH_CM_SET = $8000000E;
VTAG_NORMAL_DISP_GET = $8000000F;
VTAG_NORMAL_DISP_SET = $80000010;
VTAG_COERCE_DISP_GET = $80000011;
VTAG_COERCE_DISP_SET = $80000012;
VTAG_VIEWPORTEXTRA_GET = $80000013;
VTAG_VIEWPORTEXTRA_SET = $80000014;
VTAG_CHROMAKEY_GET = $80000015;
VTAG_BITPLANEKEY_GET = $80000016;
VTAG_BORDERBLANK_GET = $80000017;
VTAG_BORDERNOTRANS_GET = $80000018;
VTAG_CHROMA_PEN_GET = $80000019;
VTAG_CHROMA_PLANE_GET = $8000001A;
VTAG_ATTACH_CM_GET = $8000001B;
VTAG_BATCH_CM_GET = $8000001C;
VTAG_BATCH_ITEMS_GET = $8000001D;
VTAG_BATCH_ITEMS_SET = $8000001E;
VTAG_BATCH_ITEMS_ADD = $8000001F;
VTAG_VPMODEID_GET = $80000020;
VTAG_VPMODEID_SET = $80000021;
VTAG_VPMODEID_CLR = $80000022;
VTAG_USERCLIP_GET = $80000023;
VTAG_USERCLIP_SET = $80000024;
VTAG_USERCLIP_CLR = $80000025;
{ The following tags are V39 specific. They will be ignored (returing error -3) by
earlier versions }
VTAG_PF1_BASE_GET = $80000026;
VTAG_PF2_BASE_GET = $80000027;
VTAG_SPEVEN_BASE_GET = $80000028;
VTAG_SPODD_BASE_GET = $80000029;
VTAG_PF1_BASE_SET = $8000002a;
VTAG_PF2_BASE_SET = $8000002b;
VTAG_SPEVEN_BASE_SET = $8000002c;
VTAG_SPODD_BASE_SET = $8000002d;
VTAG_BORDERSPRITE_GET = $8000002e;
VTAG_BORDERSPRITE_SET = $8000002f;
VTAG_BORDERSPRITE_CLR = $80000030;
VTAG_SPRITERESN_SET = $80000031;
VTAG_SPRITERESN_GET = $80000032;
VTAG_PF1_TO_SPRITEPRI_SET = $80000033;
VTAG_PF1_TO_SPRITEPRI_GET = $80000034;
VTAG_PF2_TO_SPRITEPRI_SET = $80000035;
VTAG_PF2_TO_SPRITEPRI_GET = $80000036;
VTAG_IMMEDIATE = $80000037;
VTAG_FULLPALETTE_SET = $80000038;
VTAG_FULLPALETTE_GET = $80000039;
VTAG_FULLPALETTE_CLR = $8000003A;
VTAG_DEFSPRITERESN_SET = $8000003B;
VTAG_DEFSPRITERESN_GET = $8000003C;
{ all the following tags follow the new, rational standard for videocontrol tags:
* VC_xxx,state set the state of attribute 'xxx' to value 'state'
* VC_xxx_QUERY,&var get the state of attribute 'xxx' and store it into the longword
* pointed to by &var.
*
* The following are new for V40:
}
VC_IntermediateCLUpdate = $80000080;
{ default=true. When set graphics will update the intermediate copper
* lists on color changes, etc. When false, it won't, and will be faster.
}
VC_IntermediateCLUpdate_Query = $80000081;
VC_NoColorPaletteLoad = $80000082;
{ default = false. When set, graphics will only load color 0
* for this ViewPort, and so the ViewPort's colors will come
* from the previous ViewPort's.
*
* NB - Using this tag and VTAG_FULLPALETTE_SET together is undefined.
}
VC_NoColorPaletteLoad_Query = $80000083;
VC_DUALPF_Disable = $80000084;
{ default = false. When this flag is set, the dual-pf bit
in Dual-Playfield screens will be turned off. Even bitplanes
will still come from the first BitMap and odd bitplanes
from the second BitMap, and both R[xy]Offsets will be
considered. This can be used (with appropriate palette
selection) for cross-fades between differently scrolling
images.
When this flag is turned on, colors will be loaded for
the viewport as if it were a single viewport of depth
depth1+depth2 }
VC_DUALPF_Disable_Query = $80000085;
const
SPRITE_ATTACHED = $80;
type
pSimpleSprite = ^tSimpleSprite;
tSimpleSprite = record
posctldata : Pointer;
height : Word;
x,y : Word; { current position }
num : Word;
end;
pExtSprite = ^tExtSprite;
tExtSprite = record
es_SimpleSprite : tSimpleSprite; { conventional simple sprite structure }
es_wordwidth : WORD; { graphics use only, subject to change }
es_flags : WORD; { graphics use only, subject to change }
end;
const
{ tags for AllocSpriteData() }
SPRITEA_Width = $81000000;
SPRITEA_XReplication = $81000002;
SPRITEA_YReplication = $81000004;
SPRITEA_OutputHeight = $81000006;
SPRITEA_Attached = $81000008;
SPRITEA_OldDataFormat = $8100000a; { MUST pass in outputheight if using this tag }
{ tags for GetExtSprite() }
GSTAG_SPRITE_NUM = $82000020;
GSTAG_ATTACHED = $82000022;
GSTAG_SOFTSPRITE = $82000024;
{ tags valid for either GetExtSprite or ChangeExtSprite }
GSTAG_SCANDOUBLED = $83000000; { request "NTSC-Like" height if possible. }
Type
pBitScaleArgs = ^tBitScaleArgs;
tBitScaleArgs = record
bsa_SrcX, bsa_SrcY, { source origin }
bsa_SrcWidth, bsa_SrcHeight, { source size }
bsa_XSrcFactor, bsa_YSrcFactor, { scale factor denominators }
bsa_DestX, bsa_DestY, { destination origin }
bsa_DestWidth, bsa_DestHeight, { destination size result }
bsa_XDestFactor, bsa_YDestFactor : Word; { scale factor numerators }
bsa_SrcBitMap, { source BitMap }
bsa_DestBitMap : pBitMap; { destination BitMap }
bsa_Flags : Cardinal; { reserved. Must be zero! }
bsa_XDDA, bsa_YDDA : Word; { reserved }
bsa_Reserved1,
bsa_Reserved2 : Longint;
END;
{ tag definitions for GetRPAttr, SetRPAttr }
const
RPTAG_Font = $80000000; { get/set font }
RPTAG_APen = $80000002; { get/set apen }
RPTAG_BPen = $80000003; { get/set bpen }
RPTAG_DrMd = $80000004; { get/set draw mode }
RPTAG_OutlinePen = $80000005; { get/set outline pen. corrected case. }
RPTAG_WriteMask = $80000006; { get/set WriteMask }
RPTAG_MaxPen = $80000007; { get/set maxpen }
RPTAG_DrawBounds = $80000008; { get only rastport draw bounds. pass &rect }
TYPE
pRegionRectangle = ^tRegionRectangle;
tRegionRectangle = record
Next, Prev : pRegionRectangle;
bounds : tRectangle;
END;
pRegion = ^tRegion;
tRegion = record
bounds : tRectangle;
RegionRectangle : pRegionRectangle;
END;
type
pGfxBase = ^tGfxBase;
tGfxBase = record
LibNode : tLibrary;
ActiView : pView; { ViewPtr }
copinit : pcopinit; { (copinitptr) ptr to copper start up list }
cia : Pointer; { for 8520 resource use }
blitter : Pointer; { for future blitter resource use }
LOFlist : Pointer;
SHFlist : Pointer;
blthd,
blttl : pbltnode;
bsblthd,
bsblttl : pbltnode; { Previous four are (bltnodeptr) }
vbsrv,
timsrv,
bltsrv : tInterrupt;
TextFonts : tList;
DefaultFont : pTextFont; { TextFontPtr }
Modes : Word; { copy of current first bplcon0 }
VBlank : Shortint;
Debug : Shortint;
BeamSync : smallint;
system_bplcon0 : smallint; { it is ored into each bplcon0 for display }
SpriteReserved : Byte;
bytereserved : Byte;
Flags : Word;
BlitLock : smallint;
BlitNest : smallint;
BlitWaitQ : tList;
BlitOwner : pTask; { TaskPtr }
TOF_WaitQ : tList;
DisplayFlags : Word; { NTSC PAL GENLOC etc}
{ Display flags are determined at power on }
SimpleSprites : Pointer; { SimpleSpritePtr ptr }
MaxDisplayRow : Word; { hardware stuff, do not use }
MaxDisplayColumn : Word; { hardware stuff, do not use }
NormalDisplayRows : Word;
NormalDisplayColumns : Word;
{ the following are for standard non interlace, 1/2 wb width }
NormalDPMX : Word; { Dots per meter on display }
NormalDPMY : Word; { Dots per meter on display }
LastChanceMemory : pSignalSemaphore; { SignalSemaphorePtr }
LCMptr : Pointer;
MicrosPerLine : Word; { 256 time usec/line }
MinDisplayColumn : Word;
ChipRevBits0 : Byte;
MemType : Byte;
crb_reserved : Array[0..3] of Byte;
monitor_id : Word; { normally null }
hedley : Array[0..7] of Cardinal;
hedley_sprites : Array[0..7] of Cardinal; { sprite ptrs for intuition mouse }
hedley_sprites1 : Array[0..7] of Cardinal; { sprite ptrs for intuition mouse }
hedley_count : smallint;
hedley_flags : Word;
hedley_tmp : smallint;
hash_table : Pointer;
current_tot_rows : Word;
current_tot_cclks : Word;
hedley_hint : Byte;
hedley_hint2 : Byte;
nreserved : Array[0..3] of Cardinal;
a2024_sync_raster : Pointer;
control_delta_pal : Word;
control_delta_ntsc : Word;
current_monitor : pMonitorSpec;
MonitorList : tList;
default_monitor : pMonitorSpec;
MonitorListSemaphore : pSignalSemaphore;
DisplayInfoDataBase : Pointer;
TopLine : Word;
ActiViewCprSemaphore : pSignalSemaphore;
UtilityBase : Pointer; { for hook AND tag utilities }
ExecBase : Pointer; { to link with rom.lib }
bwshifts : Pointer;
StrtFetchMasks,
StopFetchMasks,
Overrun,
RealStops : Pointer;
SpriteWidth, { current width (in words) of sprites }
SpriteFMode : WORD; { current sprite fmode bits }
SoftSprites, { bit mask of size change knowledgeable sprites }
arraywidth : Shortint;
DefaultSpriteWidth : WORD; { what width intuition wants }
SprMoveDisable : Shortint;
WantChips,
BoardMemType,
Bugs : Byte;
gb_LayersBase : Pointer;
ColorMask : Cardinal;
IVector,
IData : Pointer;
SpecialCounter : Cardinal; { special for double buffering }
DBList : Pointer;
MonitorFlags : WORD;
ScanDoubledSprites,
BP3Bits : Byte;
MonitorVBlank : tAnalogSignalInterval;
natural_monitor : pMonitorSpec;
ProgData : Pointer;
ExtSprites : Byte;
pad3 : Byte;
GfxFlags : WORD;
VBCounter : Cardinal;
HashTableSemaphore : pSignalSemaphore;
HWEmul : Array[0..8] of Pointer;
end;
const
NTSC = 1;
GENLOC = 2;
PAL = 4;
TODA_SAFE = 8;
BLITMSG_FAULT = 4;
{ bits defs for ChipRevBits }
GFXB_BIG_BLITS = 0 ;
GFXB_HR_AGNUS = 0 ;
GFXB_HR_DENISE = 1 ;
GFXB_AA_ALICE = 2 ;
GFXB_AA_LISA = 3 ;
GFXB_AA_MLISA = 4 ; { internal use only. }
GFXF_BIG_BLITS = 1 ;
GFXF_HR_AGNUS = 1 ;
GFXF_HR_DENISE = 2 ;
GFXF_AA_ALICE = 4 ;
GFXF_AA_LISA = 8 ;
GFXF_AA_MLISA = 16; { internal use only }
{ Pass ONE of these to SetChipRev() }
SETCHIPREV_A = GFXF_HR_AGNUS;
SETCHIPREV_ECS = (GFXF_HR_AGNUS OR GFXF_HR_DENISE);
SETCHIPREV_AA = (GFXF_AA_ALICE OR GFXF_AA_LISA OR SETCHIPREV_ECS);
SETCHIPREV_BEST= $ffffffff;
{ memory type }
BUS_16 = 0;
NML_CAS = 0;
BUS_32 = 1;
DBL_CAS = 2;
BANDWIDTH_1X = (BUS_16 OR NML_CAS);
BANDWIDTH_2XNML= BUS_32;
BANDWIDTH_2XDBL= DBL_CAS;
BANDWIDTH_4X = (BUS_32 OR DBL_CAS);
{ GfxFlags (private) }
NEW_DATABASE = 1;
GRAPHICSNAME : PChar = 'graphics.library';
var
GfxBase : Pointer;
function BltBitMap(srcBitMap : pBitMap location 'a0'; xSrc : LongInt location 'd0'; ySrc : LongInt location 'd1'; destBitMap : pBitMap location 'a1'; xDest : LongInt location 'd2'; yDest : LongInt location 'd3'; xSize : LongInt location 'd4'; ySize : LongInt location 'd5'; minterm : CARDINAL location 'd6'; mask : CARDINAL location 'd7'; tempA : pCHAR location 'a2') : LongInt;
SysCall GfxBase 030;
procedure BltTemplate(source : pCHAR location 'a0'; xSrc : LongInt location 'd0'; srcMod : LongInt location 'd1'; destRP : pRastPort location 'a1'; xDest : LongInt location 'd2'; yDest : LongInt location 'd3'; xSize : LongInt location 'd4'; ySize : LongInt location 'd5');
SysCall GfxBase 036;
procedure ClearEOL(rp : pRastPort location 'a1');
SysCall GfxBase 042;
procedure ClearScreen(rp : pRastPort location 'a1');
SysCall GfxBase 048;
function TextLength(rp : pRastPort location 'a1'; string1 : pSHORTINT location 'a0'; count : CARDINAL location 'd0') : INTEGER;
SysCall GfxBase 054;
function Text(rp : pRastPort location 'a1'; string1: pSHORTINT location 'a0'; count : CARDINAL location 'd0') : LongInt;
SysCall GfxBase 060;
function SetFont(rp : pRastPort location 'a1'; textFont : pTextFont location 'a0') : LongInt;
SysCall GfxBase 066;
function OpenFont(textAttr : pTextAttr location 'a0') : pTextFont;
SysCall GfxBase 072;
procedure CloseFont(textFont : pTextFont location 'a1');
SysCall GfxBase 078;
function AskSoftStyle(rp : pRastPort location 'a1') : CARDINAL;
SysCall GfxBase 084;
function SetSoftStyle(rp : pRastPort location 'a1'; style : CARDINAL location 'd0'; enable : CARDINAL location 'd1') : CARDINAL;
SysCall GfxBase 090;
procedure AddBob(bob : pBob location 'a0'; rp : pRastPort location 'a1');
SysCall GfxBase 096;
procedure AddVSprite(vSprite : pVSprite location 'a0'; rp : pRastPort location 'a1');
SysCall GfxBase 102;
procedure DoCollision(rp : pRastPort location 'a1');
SysCall GfxBase 108;
procedure DrawGList(rp : pRastPort location 'a1'; vp : pViewPort location 'a0');
SysCall GfxBase 114;
procedure InitGels(head : pVSprite location 'a0'; tail : pVSprite location 'a1'; gelsInfo : pGelsInfo location 'a2');
SysCall GfxBase 120;
procedure InitMasks(vSprite : pVSprite location 'a0');
SysCall GfxBase 126;
procedure RemIBob(bob : pBob location 'a0'; rp : pRastPort location 'a1'; vp : pViewPort location 'a2');
SysCall GfxBase 132;
procedure RemVSprite(vSprite : pVSprite location 'a0');
SysCall GfxBase 138;
procedure SortGList(rp : pRastPort location 'a1');
SysCall GfxBase 150;
procedure AddAnimOb(anOb : pAnimOb location 'a0'; anKey : ppAnimOb location 'a1'; rp : pRastPort location 'a2');
SysCall GfxBase 156;
procedure Animate(anKey : ppAnimOb location 'a0'; rp : pRastPort location 'a1');
SysCall GfxBase 162;
function GetGBuffers(anOb : pAnimOb location 'a0'; rp : pRastPort location 'a1'; flag : LongInt location 'd0') : BOOLEAN;
SysCall GfxBase 168;
procedure InitGMasks(anOb : pAnimOb location 'a0');
SysCall GfxBase 174;
procedure DrawEllipse(rp : pRastPort location 'a1'; xCenter : LongInt location 'd0'; yCenter : LongInt location 'd1'; a : LongInt location 'd2'; b : LongInt location 'd3');
SysCall GfxBase 180;
function AreaEllipse(rp : pRastPort location 'a1'; xCenter : LongInt location 'd0'; yCenter : LongInt location 'd1'; a : LongInt location 'd2'; b : LongInt location 'd3') : LongInt;
SysCall GfxBase 186;
procedure LoadRGB4(vp : pViewPort location 'a0'; VAR colors : Integer location 'a1'; count : LongInt location 'd0');
SysCall GfxBase 192;
procedure InitRastPort(rp : pRastPort location 'a1');
SysCall GfxBase 198;
procedure InitVPort(vp : pViewPort location 'a0');
SysCall GfxBase 204;
function MrgCop(view : pView location 'a1') : CARDINAL;
SysCall GfxBase 210;
function MakeVPort(view : pView location 'a0'; vp : pViewPort location 'a1') : CARDINAL;
SysCall GfxBase 216;
procedure LoadView(view : pView location 'a1');
SysCall GfxBase 222;
procedure WaitBlit;
SysCall GfxBase 228;
procedure SetRast(rp : pRastPort location 'a1'; pen : CARDINAL location 'd0');
SysCall GfxBase 234;
procedure Move(rp : pRastPort location 'a1'; x : LongInt location 'd0'; y : LongInt location 'd1');
SysCall GfxBase 240;
procedure Draw(rp : pRastPort location 'a1'; x : LongInt location 'd0'; y : LongInt location 'd1');
SysCall GfxBase 246;
function AreaMove(rp : pRastPort location 'a1'; x : LongInt location 'd0'; y : LongInt location 'd1') : LongInt;
SysCall GfxBase 252;
function AreaDraw(rp : pRastPort location 'a1'; x : LongInt location 'd0'; y : LongInt location 'd1') : LongInt;
SysCall GfxBase 258;
function AreaEnd(rp : pRastPort location 'a1') : LongInt;
SysCall GfxBase 264;
procedure WaitTOF;
SysCall GfxBase 270;
procedure QBlit(blit : pbltnode location 'a1');
SysCall GfxBase 276;
procedure InitArea(areaInfo : pAreaInfo location 'a0'; vectorBuffer : POINTER location 'a1'; maxVectors : LongInt location 'd0');
SysCall GfxBase 282;
procedure SetRGB4(vp : pViewPort location 'a0'; index : LongInt location 'd0'; red : CARDINAL location 'd1'; green : CARDINAL location 'd2'; blue : CARDINAL location 'd3');
SysCall GfxBase 288;
procedure QBSBlit(blit : pbltnode location 'a1');
SysCall GfxBase 294;
procedure BltClear(memBlock : pCHAR location 'a1'; byteCount : CARDINAL location 'd0'; flags : CARDINAL location 'd1');
SysCall GfxBase 300;
procedure RectFill(rp : pRastPort location 'a1'; xMin : LongInt location 'd0'; yMin : LongInt location 'd1'; xMax : LongInt location 'd2'; yMax : LongInt location 'd3');
SysCall GfxBase 306;
procedure BltPattern(rp : pRastPort location 'a1'; mask : pCHAR location 'a0'; xMin : LongInt location 'd0'; yMin : LongInt location 'd1'; xMax : LongInt location 'd2'; yMax : LongInt location 'd3'; maskBPR : CARDINAL location 'd4');
SysCall GfxBase 312;
function ReadPixel(rp : pRastPort location 'a1'; x : LongInt location 'd0'; y : LongInt location 'd1') : CARDINAL;
SysCall GfxBase 318;
function WritePixel(rp : pRastPort location 'a1'; x : LongInt location 'd0'; y : LongInt location 'd1') : LongInt;
SysCall GfxBase 324;
function Flood(rp : pRastPort location 'a1'; mode : CARDINAL location 'd2'; x : LongInt location 'd0'; y : LongInt location 'd1') : BOOLEAN;
SysCall GfxBase 330;
procedure PolyDraw(rp : pRastPort location 'a1'; count : LongInt location 'd0'; VAR polyTable : INTEGER location 'a0');
SysCall GfxBase 336;
procedure SetAPen(rp : pRastPort location 'a1'; pen : CARDINAL location 'd0');
SysCall GfxBase 342;
procedure SetBPen(rp : pRastPort location 'a1'; pen : CARDINAL location 'd0');
SysCall GfxBase 348;
procedure SetDrMd(rp : pRastPort location 'a1'; drawMode : CARDINAL location 'd0');
SysCall GfxBase 354;
procedure InitView(view : pView location 'a1');
SysCall GfxBase 360;
procedure CBump(copList : pUCopList location 'a1');
SysCall GfxBase 366;
procedure CMove(copList : pUCopList location 'a1'; destination : POINTER location 'd0'; data : LongInt location 'd1');
SysCall GfxBase 372;
procedure CWait(copList : pUCopList location 'a1'; v : LongInt location 'd0'; h : LongInt location 'd1');
SysCall GfxBase 378;
function VBeamPos : LongInt;
SysCall GfxBase 384;
procedure InitBitMap(bitMap : pBitMap location 'a0'; depth : LongInt location 'd0'; width : LongInt location 'd1'; height : LongInt location 'd2');
SysCall GfxBase 390;
procedure ScrollRaster(rp : pRastPort location 'a1'; dx : LongInt location 'd0'; dy : LongInt location 'd1'; xMin : LongInt location 'd2'; yMin : LongInt location 'd3'; xMax : LongInt location 'd4'; yMax : LongInt location 'd5');
SysCall GfxBase 396;
procedure WaitBOVP(vp : pViewPort location 'a0');
SysCall GfxBase 402;
function GetSprite(sprite : pSimpleSprite location 'a0'; num : LongInt location 'd0') : INTEGER;
SysCall GfxBase 408;
procedure FreeSprite(num : LongInt location 'd0');
SysCall GfxBase 414;
procedure ChangeSprite(vp : pViewPort location 'a0'; sprite : pSimpleSprite location 'a1'; VAR newData : Integer location 'a2');
SysCall GfxBase 420;
procedure MoveSprite(vp : pViewPort location 'a0'; sprite : pSimpleSprite location 'a1'; x : LongInt location 'd0'; y : LongInt location 'd1');
SysCall GfxBase 426;
procedure LockLayerRom(layer : pLayer location 'a5');
SysCall GfxBase 432;
procedure UnlockLayerRom(layer : pLayer location 'a5');
SysCall GfxBase 438;
procedure SyncSBitMap(layer : pLayer location 'a0');
SysCall GfxBase 444;
procedure CopySBitMap(layer : pLayer location 'a0');
SysCall GfxBase 450;
procedure OwnBlitter;
SysCall GfxBase 456;
procedure DisownBlitter;
SysCall GfxBase 462;
function InitTmpRas(tmpRas : pTmpRas location 'a0'; buffer : pCHAR location 'a1'; size : LongInt location 'd0') : pTmpRas;
SysCall GfxBase 468;
procedure AskFont(rp : pRastPort location 'a1'; textAttr : pTextAttr location 'a0');
SysCall GfxBase 474;
procedure AddFont(textFont : pTextFont location 'a1');
SysCall GfxBase 480;
procedure RemFont(textFont : pTextFont location 'a1');
SysCall GfxBase 486;
function AllocRaster(width : CARDINAL location 'd0'; height : CARDINAL location 'd1') : pCHAR;
SysCall GfxBase 492;
procedure FreeRaster(p : pCHAR location 'a0'; width : CARDINAL location 'd0'; height : CARDINAL location 'd1');
SysCall GfxBase 498;
procedure AndRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1');
SysCall GfxBase 504;
function OrRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : BOOLEAN;
SysCall GfxBase 510;
function NewRegion : pRegion;
SysCall GfxBase 516;
function ClearRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : BOOLEAN;
SysCall GfxBase 522;
procedure ClearRegion(region : pRegion location 'a0');
SysCall GfxBase 528;
procedure DisposeRegion(region : pRegion location 'a0');
SysCall GfxBase 534;
procedure FreeVPortCopLists(vp : pViewPort location 'a0');
SysCall GfxBase 540;
procedure FreeCopList(copList : pCopList location 'a0');
SysCall GfxBase 546;
procedure ClipBlit(srcRP : pRastPort location 'a0'; xSrc : LongInt location 'd0'; ySrc : LongInt location 'd1'; destRP : pRastPort location 'a1'; xDest : LongInt location 'd2'; yDest : LongInt location 'd3'; xSize : LongInt location 'd4'; ySize : LongInt location 'd5'; minterm : CARDINAL location 'd6');
SysCall GfxBase 552;
function XorRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : BOOLEAN;
SysCall GfxBase 558;
procedure FreeCprList(cprList : pcprlist location 'a0');
SysCall GfxBase 564;
function GetColorMap(entries : LongInt location 'd0') : pColorMap;
SysCall GfxBase 570;
procedure FreeColorMap(colorMap : pColorMap location 'a0');
SysCall GfxBase 576;
function GetRGB4(colorMap : pColorMap location 'a0'; entry : LongInt location 'd0') : CARDINAL;
SysCall GfxBase 582;
procedure ScrollVPort(vp : pViewPort location 'a0');
SysCall GfxBase 588;
function UCopperListInit(uCopList : pUCopList location 'a0'; n : LongInt location 'd0') : pCopList;
SysCall GfxBase 594;
procedure FreeGBuffers(anOb : pAnimOb location 'a0'; rp : pRastPort location 'a1'; flag : LongInt location 'd0');
SysCall GfxBase 600;
procedure BltBitMapRastPort(srcBitMap : pBitMap location 'a0'; xSrc : LongInt location 'd0'; ySrc : LongInt location 'd1'; destRP : pRastPort location 'a1'; xDest : LongInt location 'd2'; yDest : LongInt location 'd3'; xSize : LongInt location 'd4'; ySize : LongInt location 'd5'; minterm : CARDINAL location 'd6');
SysCall GfxBase 606;
function OrRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : BOOLEAN;
SysCall GfxBase 612;
function XorRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : BOOLEAN;
SysCall GfxBase 618;
function AndRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : BOOLEAN;
SysCall GfxBase 624;
procedure SetRGB4CM(colorMap : pColorMap location 'a0'; index : LongInt location 'd0'; red : CARDINAL location 'd1'; green : CARDINAL location 'd2'; blue : CARDINAL location 'd3');
SysCall GfxBase 630;
procedure BltMaskBitMapRastPort(srcBitMap : pBitMap location 'a0'; xSrc : LongInt location 'd0'; ySrc : LongInt location 'd1'; destRP : pRastPort location 'a1'; xDest : LongInt location 'd2'; yDest : LongInt location 'd3'; xSize : LongInt location 'd4'; ySize : LongInt location 'd5'; minterm : CARDINAL location 'd6'; bltMask : pCHAR location 'a2');
SysCall GfxBase 636;
function AttemptLockLayerRom(layer : pLayer location 'a5') : BOOLEAN;
SysCall GfxBase 654;
function GfxNew(gfxNodeType : CARDINAL location 'd0') : POINTER;
SysCall GfxBase 660;
procedure GfxFree(gfxNodePtr : POINTER location 'a0');
SysCall GfxBase 666;
procedure GfxAssociate(associateNode : POINTER location 'a0'; gfxNodePtr : POINTER location 'a1');
SysCall GfxBase 672;
procedure BitMapScale(bitScaleArgs : pBitScaleArgs location 'a0');
SysCall GfxBase 678;
function ScalerDiv(factor : CARDINAL location 'd0'; numerator : CARDINAL location 'd1'; denominator : CARDINAL location 'd2') : Integer;
SysCall GfxBase 684;
function TextExtent(rp : pRastPort location 'a1'; string1: pSHORTINT location 'a0'; count : LongInt location 'd0'; textExtent : pTextExtent location 'a2') : INTEGER;
SysCall GfxBase 690;
function TextFit(rp : pRastPort location 'a1'; string1: pSHORTINT location 'a0'; strLen : CARDINAL location 'd0'; textExtent : pTextExtent location 'a2'; constrainingExtent : pTextExtent location 'a3'; strDirection : LongInt location 'd1'; constrainingBitWidth : CARDINAL location 'd2'; constrainingBitHeight : CARDINAL location 'd3') : CARDINAL;
SysCall GfxBase 696;
function GfxLookUp(associateNode : POINTER location 'a0') : POINTER;
SysCall GfxBase 702;
function VideoControl(colorMap : pColorMap location 'a0'; tagarray : pTagItem location 'a1') : BOOLEAN;
SysCall GfxBase 708;
function OpenMonitor(monitorName : pSHORTINT location 'a1'; displayID : CARDINAL location 'd0') : pMonitorSpec;
SysCall GfxBase 714;
function CloseMonitor(monitorSpec : pMonitorSpec location 'a0') : BOOLEAN;
SysCall GfxBase 720;
function FindDisplayInfo(displayID : CARDINAL location 'd0') : POINTER;
SysCall GfxBase 726;
function NextDisplayInfo(displayID : CARDINAL location 'd0') : CARDINAL;
SysCall GfxBase 732;
function GetDisplayInfoData(handle : POINTER location 'a0'; buf : POINTER location 'a1'; size : CARDINAL location 'd0'; tagID : CARDINAL location 'd1'; displayID : CARDINAL location 'd2') : CARDINAL;
SysCall GfxBase 756;
procedure FontExtent(font : pTextFont location 'a0'; fontExtent : pTextExtent location 'a1');
SysCall GfxBase 762;
function ReadPixelLine8(rp : pRastPort location 'a0'; xstart : CARDINAL location 'd0'; ystart : CARDINAL location 'd1'; width : CARDINAL location 'd2'; array1 : pCHAR location 'a2'; tempRP : pRastPort location 'a1') : LongInt;
SysCall GfxBase 768;
function WritePixelLine8(rp : pRastPort location 'a0'; xstart : CARDINAL location 'd0'; ystart : CARDINAL location 'd1'; width : CARDINAL location 'd2'; array1 : pCHAR location 'a2'; tempRP : pRastPort location 'a1') : LongInt;
SysCall GfxBase 774;
function ReadPixelArray8(rp : pRastPort location 'a0'; xstart : CARDINAL location 'd0'; ystart : CARDINAL location 'd1'; xstop : CARDINAL location 'd2'; ystop : CARDINAL location 'd3'; array1: pCHAR location 'a2'; temprp : pRastPort location 'a1') : LongInt;
SysCall GfxBase 780;
function WritePixelArray8(rp : pRastPort location 'a0'; xstart : CARDINAL location 'd0'; ystart : CARDINAL location 'd1'; xstop : CARDINAL location 'd2'; ystop : CARDINAL location 'd3'; array1: pCHAR location 'a2'; temprp : pRastPort location 'a1') : LongInt;
SysCall GfxBase 786;
function GetVPModeID(vp : pViewPort location 'a0') : LongInt;
SysCall GfxBase 792;
function ModeNotAvailable(modeID : CARDINAL location 'd0') : LongInt;
SysCall GfxBase 798;
function WeighTAMatch(reqTextAttr : pTTextAttr location 'a0'; targetTextAttr : pTextAttr location 'a1'; targetTags : pTagItem location 'a2') : INTEGER;
SysCall GfxBase 804;
procedure EraseRect(rp : pRastPort location 'a1'; xMin : LongInt location 'd0'; yMin : LongInt location 'd1'; xMax : LongInt location 'd2'; yMax : LongInt location 'd3');
SysCall GfxBase 810;
function ExtendFont(font : pTextFont location 'a0'; fontTags : pTagItem location 'a1') : CARDINAL;
SysCall GfxBase 816;
procedure StripFont(font : pTextFont location 'a0');
SysCall GfxBase 822;
function CalcIVG(v : pView location 'a0'; vp : pViewPort location 'a1') : Integer;
SysCall GfxBase 828;
function AttachPalExtra(cm : pColorMap location 'a0'; vp : pViewPort location 'a1') : LongInt;
SysCall GfxBase 834;
function ObtainBestPenA(cm : pColorMap location 'a0'; r : CARDINAL location 'd1'; g : CARDINAL location 'd2'; b : CARDINAL location 'd3'; tags : pTagItem location 'a1') : LongInt;
SysCall GfxBase 840;
procedure SetRGB32(vp : pViewPort location 'a0'; n : CARDINAL location 'd0'; r : CARDINAL location 'd1'; g : CARDINAL location 'd2'; b : CARDINAL location 'd3');
SysCall GfxBase 852;
function GetAPen(rp : pRastPort location 'a0') : CARDINAL;
SysCall GfxBase 858;
function GetBPen(rp : pRastPort location 'a0') : CARDINAL;
SysCall GfxBase 864;
function GetDrMd(rp : pRastPort location 'a0') : CARDINAL;
SysCall GfxBase 870;
function GetOutlinePen(rp : pRastPort location 'a0') : CARDINAL;
SysCall GfxBase 876;
procedure LoadRGB32(vp : pViewPort location 'a0'; VAR table : CARDINAL location 'a1');
SysCall GfxBase 882;
function SetChipRev(want : CARDINAL location 'd0') : CARDINAL;
SysCall GfxBase 888;
procedure SetABPenDrMd(rp : pRastPort location 'a1'; apen : CARDINAL location 'd0'; bpen : CARDINAL location 'd1'; drawmode : CARDINAL location 'd2');
SysCall GfxBase 894;
procedure GetRGB32(cm : pColorMap location 'a0'; firstcolor : CARDINAL location 'd0'; ncolors : CARDINAL location 'd1'; VAR table : CARDINAL location 'a1');
SysCall GfxBase 900;
function AllocBitMap(sizex : CARDINAL location 'd0'; sizey : CARDINAL location 'd1'; depth : CARDINAL location 'd2'; flags : CARDINAL location 'd3'; friend_bitmap : pBitMap location 'a0') : pBitMap;
SysCall GfxBase 918;
procedure FreeBitMap(bm : pBitMap location 'a0');
SysCall GfxBase 924;
function GetExtSpriteA(ss : pExtSprite location 'a2'; tags : pTagItem location 'a1') : LongInt;
SysCall GfxBase 930;
function CoerceMode(vp : pViewPort location 'a0'; monitorid : CARDINAL location 'd0'; flags : CARDINAL location 'd1') : CARDINAL;
SysCall GfxBase 936;
procedure ChangeVPBitMap(vp : pViewPort location 'a0'; bm : pBitMap location 'a1'; db : pDBufInfo location 'a2');
SysCall GfxBase 942;
procedure ReleasePen(cm : pColorMap location 'a0'; n : CARDINAL location 'd0');
SysCall GfxBase 948;
function ObtainPen(cm : pColorMap location 'a0'; n : CARDINAL location 'd0'; r : CARDINAL location 'd1'; g : CARDINAL location 'd2'; b : CARDINAL location 'd3'; f : LongInt location 'd4') : CARDINAL;
SysCall GfxBase 954;
function GetBitMapAttr(bm : pBitMap location 'a0'; attrnum : CARDINAL location 'd1') : CARDINAL;
SysCall GfxBase 960;
function AllocDBufInfo(vp : pViewPort location 'a0') : pDBufInfo;
SysCall GfxBase 966;
procedure FreeDBufInfo(dbi : pDBufInfo location 'a1');
SysCall GfxBase 972;
function SetOutlinePen(rp : pRastPort location 'a0'; pen : CARDINAL location 'd0') : CARDINAL;
SysCall GfxBase 978;
function SetWriteMask(rp : pRastPort location 'a0'; msk : CARDINAL location 'd0') : CARDINAL;
SysCall GfxBase 984;
procedure SetMaxPen(rp : pRastPort location 'a0'; maxpen : CARDINAL location 'd0');
SysCall GfxBase 990;
procedure SetRGB32CM(cm : pColorMap location 'a0'; n : CARDINAL location 'd0'; r : CARDINAL location 'd1'; g : CARDINAL location 'd2'; b : CARDINAL location 'd3');
SysCall GfxBase 996;
procedure ScrollRasterBF(rp : pRastPort location 'a1'; dx : LongInt location 'd0'; dy : LongInt location 'd1'; xMin : LongInt location 'd2'; yMin : LongInt location 'd3'; xMax : LongInt location 'd4'; yMax : LongInt location 'd5');
SysCall GfxBase 1002;
function FindColor(cm : pColorMap location 'a3'; r : CARDINAL location 'd1'; g : CARDINAL location 'd2'; b : CARDINAL location 'd3'; maxcolor : LongInt location 'd4') : LongInt;
SysCall GfxBase 1008;
function AllocSpriteDataA(bm : pBitMap location 'a2'; tags : pTagItem location 'a1') : pExtSprite;
SysCall GfxBase 1020;
function ChangeExtSpriteA(vp : pViewPort location 'a0'; oldsprite : pExtSprite location 'a1'; newsprite : pExtSprite location 'a2'; tags : pTagItem location 'a3') : LongInt;
SysCall GfxBase 1026;
procedure FreeSpriteData(sp : pExtSprite location 'a2');
SysCall GfxBase 1032;
procedure SetRPAttrsA(rp : pRastPort location 'a0'; tags : pTagItem location 'a1');
SysCall GfxBase 1038;
procedure GetRPAttrsA(rp : pRastPort location 'a0'; tags : pTagItem location 'a1');
SysCall GfxBase 1044;
function BestModeIDA(tags : pTagItem location 'a0') : CARDINAL;
SysCall GfxBase 1050;
procedure WriteChunkyPixels(rp : pRastPort location 'a0'; xstart : CARDINAL location 'd0'; ystart : CARDINAL location 'd1'; xstop : CARDINAL location 'd2'; ystop : CARDINAL location 'd3'; array1: pCHAR location 'a2'; bytesperrow : LongInt location 'd4');
SysCall GfxBase 1056;
function OpenFontTagList(textattr : pTextAttr location 'a0'; tags : pTagItem location 'a1') : pTextFont;
SysCall GfxBase 1062;
{ gfxmacros }
procedure BNDRYOFF (w: pRastPort);
procedure InitAnimate (animkey: ppAnimOb);
procedure SetAfPt(w: pRastPort;p: Pointer; n: Byte);
procedure SetDrPt(w: pRastPort;p: Word);
procedure SetOPen(w: pRastPort;c: Byte);
procedure SetWrMsk(w: pRastPort; m: Byte);
procedure SafeSetOutlinePen(w : pRastPort; c : byte);
procedure SafeSetWriteMask( w : pRastPort ; m : smallint ) ;
procedure OFF_DISPLAY (cust: pCustom);
procedure ON_DISPLAY (cust: pCustom);
procedure OFF_SPRITE (cust: pCustom);
procedure ON_SPRITE (cust: pCustom);
procedure OFF_VBLANK (cust: pCustom);
procedure ON_VBLANK (cust: pCustom);
{ unit/library initialization }
function InitGraphicsLibrary : boolean;
implementation
procedure BNDRYOFF (w: pRastPort);
begin
with w^ do Flags := Flags And (Not AREAOUTLINE);
end;
procedure InitAnimate (animkey: ppAnimOb);
begin
animkey^ := NIL;
end;
procedure SetAfPt(w: pRastPort;p: Pointer; n: Byte);
begin
with w^ do begin
ArePointern := p;
AreaPtSz := n;
end;
end;
procedure SetDrPt(w: pRastPort;p: Word);
begin
with w^ do begin
LinePtrn := p;
Flags := Flags or FRST_doT;
linpatcnt := 15;
end;
end;
procedure SetOPen(w: pRastPort;c: Byte);
begin
with w^ do begin
AOlPen := c;
Flags := Flags or AREAOUTLINE;
end;
end;
{ This function is fine, but For OS39 the SetWriteMask() gfx function
should be prefered because it SHOULD operate with gfx boards as well.
At least I hope it does.... }
procedure SetWrMsk(w: pRastPort; m: Byte);
begin
w^.Mask := m;
end;
procedure SafeSetOutlinePen(w : pRastPort; c : byte);
begin
IF pGfxBase(GfxBase)^.LibNode.Lib_Version < 39 THEN begin
w^.AOlPen := c;
w^.Flags := w^.Flags or AREAOUTLINE;
end ELSE begin
c := SetOutlinePen(w,c);
end;
end;
procedure SafeSetWriteMask( w : pRastPort ; m : smallint ) ;
VAR x : smallint ;
begin
IF pGfxBase(GfxBase)^.LibNode.Lib_Version < 39 THEN w^.Mask := BYTE(m)
ELSE x := SetWriteMask( w, m );
end;
procedure OFF_DISPLAY (cust: pCustom);
begin
cust^.dmacon := BITCLR or DMAF_RASTER;
end;
procedure ON_DISPLAY (cust: pCustom);
begin
cust^.dmacon := BITSET or DMAF_RASTER;
end;
procedure OFF_SPRITE (cust: pCustom);
begin
cust^.dmacon := BITCLR or DMAF_SPRITE;
end;
procedure ON_SPRITE (cust: pCustom);
begin
cust^.dmacon := BITSET or DMAF_SPRITE;
end;
procedure OFF_VBLANK (cust: pCustom);
begin
cust^.intena := BITCLR or INTF_VERTB;
end;
procedure ON_VBLANK (cust: pCustom);
begin
cust^.intena := BITSET or INTF_VERTB;
end;
const
{ Change VERSION and LIBVERSION to proper values }
VERSION : string[2] = '50';
LIBVERSION : longword = 50;
var
graphics_exit : Pointer;
procedure CloseGraphicsLibrary;
begin
ExitProc := graphics_exit;
if GfxBase <> nil then begin
CloseLibrary(GfxBase);
GfxBase := nil;
end;
end;
function InitGraphicsLibrary : boolean;
begin
GfxBase := nil;
GfxBase := OpenLibrary(GRAPHICSNAME,LIBVERSION);
if GfxBase <> nil then begin
graphics_exit := ExitProc;
ExitProc := @CloseGraphicsLibrary;
InitGraphicsLibrary:=True;
end else begin
InitGraphicsLibrary:=False;
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink