{ This file is part of the Free Pascal run time library. A file in Amiga system run time library. Copyright (c) 1998-2003 by Nils Sjoholm member of the Amiga RTL development team. 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. **********************************************************************} { History: Found bugs in, WritePixelArray8, WritePixelLine8, ReadPixelArray8, ReadPixelLine8, WriteChunkyPixels. They all had one argument(array_) defined as pchar, should be pointer, fixed. 20 Aug 2000. InitTmpRas had wrong define for the buffer arg. Changed from pchar to PLANEPTR. 23 Aug 2000. Compiler had problems with Text, changed to GText. 24 Aug 2000. Added functions and procedures with array of const. For use with fpc 1.0.7. They are in systemvartags. 11 Nov 2002. Added the defines use_amiga_smartlink and use_auto_openlib. 13 Jan 2003. Update for AmifaOS 3.9. Changed start code for unit. Bugs in ChangeSprite, GetRGB32, LoadRGB32, LoadRGB4 and PolyDraw, fixed. 01 Feb 2003. Changed integer > smallint, cardinal > longword. 09 Feb 2003. nils.sjoholm@mailbox.swipnet.se } {$I useamigasmartlink.inc} {$ifdef use_amiga_smartlink} {$smartlink on} {$endif use_amiga_smartlink} 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 : ULONG; 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 : STRPTR; { 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 : STRPTR; { 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 APTR; {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 } AreaPtrn : 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 ULONG; 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 : STRPTR; 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 : ULONG; 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 : ULONG; { 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 : ULONG; 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 : ULONG; dbi_SafeMessage : tMessage; { replied to when safe to write to old bitmap } dbi_UserData1 : Pointer; { first user data } dbi_Link2 : Pointer; dbi_Count2 : ULONG; dbi_DispMessage : tMessage; { replied to when new bitmap has been displayed at least once } dbi_UserData2 : Pointer; { second user data } dbi_MatchLong : ULONG; 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 = APTR; { 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 : ULONG; { length of local data in double-longwords } END; pDisplayInfo = ^tDisplayInfo; tDisplayInfo = record Header : tQueryHeader; NotAvailable : Word; { IF NULL available, else see defines } PropertyFlags : ULONG; { 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 ULONG; { 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 : ULONG; reserved : Array[0..1] of ULONG; { 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 ULONG; { 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 ULONG; 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 : ULONG; { 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 ULONG; hedley_sprites : Array[0..7] of ULONG; { sprite ptrs for intuition mouse } hedley_sprites1 : Array[0..7] of ULONG; { 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 ULONG; 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 : ULONG; IVector, IData : Pointer; SpecialCounter : ULONG; { 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 : ULONG; 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 : pLibrary; PROCEDURE AddAnimOb(anOb : pAnimOb; anKey : ppAnimOb; rp : pRastPort); PROCEDURE AddBob(bob : pBob; rp : pRastPort); PROCEDURE AddFont(textFont : pTextFont); PROCEDURE AddVSprite(vSprite : pVSprite; rp : pRastPort); FUNCTION AllocBitMap(sizex : ULONG; sizey : ULONG; depth : ULONG; flags : ULONG;const friend_bitmap : pBitMap) : pBitMap; FUNCTION AllocDBufInfo(vp : pViewPort) : pDBufInfo; FUNCTION AllocRaster(width : ULONG; height : ULONG) : pCHAR; FUNCTION AllocSpriteDataA(const bm : pBitMap;const tags : pTagItem) : pExtSprite; PROCEDURE AndRectRegion(region : pRegion;const rectangle : pRectangle); FUNCTION AndRegionRegion(const srcRegion : pRegion; destRegion : pRegion) : BOOLEAN; PROCEDURE Animate(anKey : ppAnimOb; rp : pRastPort); FUNCTION AreaDraw(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT; FUNCTION AreaEllipse(rp : pRastPort; xCenter : LONGINT; yCenter : LONGINT; a : LONGINT; b : LONGINT) : LONGINT; FUNCTION AreaEnd(rp : pRastPort) : LONGINT; FUNCTION AreaMove(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT; PROCEDURE AskFont(rp : pRastPort; textAttr : pTextAttr); FUNCTION AskSoftStyle(rp : pRastPort) : ULONG; FUNCTION AttachPalExtra(cm : pColorMap; vp : pViewPort) : LONGINT; FUNCTION AttemptLockLayerRom(layer : pLayer) : BOOLEAN; FUNCTION BestModeIDA(const tags : pTagItem) : ULONG; PROCEDURE BitMapScale(bitScaleArgs : pBitScaleArgs); FUNCTION BltBitMap(const srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destBitMap : pBitMap; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG; mask : ULONG; tempA : pCHAR) : LONGINT; PROCEDURE BltBitMapRastPort(const srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG); PROCEDURE BltClear(memBlock : pCHAR; byteCount : ULONG; flags : ULONG); PROCEDURE BltMaskBitMapRastPort(const srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG;const bltMask : pCHAR); PROCEDURE BltPattern(rp : pRastPort;const mask : pCHAR; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT; maskBPR : ULONG); PROCEDURE BltTemplate(const source : pCHAR; xSrc : LONGINT; srcMod : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT); FUNCTION CalcIVG(v : pView; vp : pViewPort) : WORD; PROCEDURE CBump(copList : pUCopList); FUNCTION ChangeExtSpriteA(vp : pViewPort; oldsprite : pExtSprite; newsprite : pExtSprite;const tags : pTagItem) : LONGINT; PROCEDURE ChangeSprite(vp : pViewPort; sprite : pSimpleSprite; newData : pWORD); PROCEDURE ChangeVPBitMap(vp : pViewPort; bm : pBitMap; db : pDBufInfo); PROCEDURE ClearEOL(rp : pRastPort); FUNCTION ClearRectRegion(region : pRegion;const rectangle : pRectangle) : BOOLEAN; PROCEDURE ClearRegion(region : pRegion); PROCEDURE ClearScreen(rp : pRastPort); PROCEDURE ClipBlit(srcRP : pRastPort; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG); PROCEDURE CloseFont(textFont : pTextFont); FUNCTION CloseMonitor(monitorSpec : pMonitorSpec) : BOOLEAN; PROCEDURE CMove(copList : pUCopList; destination : POINTER; data : LONGINT); FUNCTION CoerceMode(vp : pViewPort; monitorid : ULONG; flags : ULONG) : ULONG; PROCEDURE CopySBitMap(layer : pLayer); PROCEDURE CWait(copList : pUCopList; v : LONGINT; h : LONGINT); PROCEDURE DisownBlitter; PROCEDURE DisposeRegion(region : pRegion); PROCEDURE DoCollision(rp : pRastPort); PROCEDURE Draw(rp : pRastPort; x : LONGINT; y : LONGINT); PROCEDURE DrawEllipse(rp : pRastPort; xCenter : LONGINT; yCenter : LONGINT; a : LONGINT; b : LONGINT); PROCEDURE DrawGList(rp : pRastPort; vp : pViewPort); PROCEDURE EraseRect(rp : pRastPort; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT); FUNCTION ExtendFont(font : pTextFont;const fontTags : pTagItem) : ULONG; FUNCTION FindColor(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG; maxcolor : LONGINT) : LONGINT; FUNCTION FindDisplayInfo(displayID : ULONG) : POINTER; FUNCTION Flood(rp : pRastPort; mode : ULONG; x : LONGINT; y : LONGINT) : BOOLEAN; PROCEDURE FontExtent(const font : pTextFont; fontExtent : pTextExtent); PROCEDURE FreeBitMap(bm : pBitMap); PROCEDURE FreeColorMap(colorMap : pColorMap); PROCEDURE FreeCopList(copList : pCopList); PROCEDURE FreeCprList(cprList : pcprlist); PROCEDURE FreeDBufInfo(dbi : pDBufInfo); PROCEDURE FreeGBuffers(anOb : pAnimOb; rp : pRastPort; flag : LONGINT); PROCEDURE FreeRaster(p : pCHAR; width : ULONG; height : ULONG); PROCEDURE FreeSprite(num : LONGINT); PROCEDURE FreeSpriteData(sp : pExtSprite); PROCEDURE FreeVPortCopLists(vp : pViewPort); FUNCTION GetAPen(rp : pRastPort) : ULONG; FUNCTION GetBitMapAttr(const bm : pBitMap; attrnum : ULONG) : ULONG; FUNCTION GetBPen(rp : pRastPort) : ULONG; FUNCTION GetColorMap(entries : LONGINT) : pColorMap; FUNCTION GetDisplayInfoData(const handle : POINTER; buf : pCHAR; size : ULONG; tagID : ULONG; displayID : ULONG) : ULONG; FUNCTION GetDrMd(rp : pRastPort) : ULONG; FUNCTION GetExtSpriteA(ss : pExtSprite;const tags : pTagItem) : LONGINT; FUNCTION GetGBuffers(anOb : pAnimOb; rp : pRastPort; flag : LONGINT) : BOOLEAN; FUNCTION GetOutlinePen(rp : pRastPort) : ULONG; PROCEDURE GetRGB32(const cm : pColorMap; firstcolor : ULONG; ncolors : ULONG; table : pulong); FUNCTION GetRGB4(colorMap : pColorMap; entry : LONGINT) : ULONG; PROCEDURE GetRPAttrsA(const rp : pRastPort;const tags : pTagItem); FUNCTION GetSprite(sprite : pSimpleSprite; num : LONGINT) : smallint; FUNCTION GetVPModeID(const vp : pViewPort) : LONGINT; PROCEDURE GfxAssociate(const associateNode : POINTER; gfxNodePtr : POINTER); PROCEDURE GfxFree(gfxNodePtr : POINTER); FUNCTION GfxLookUp(const associateNode : POINTER) : POINTER; FUNCTION GfxNew(gfxNodeType : ULONG) : POINTER; PROCEDURE InitArea(areaInfo : pAreaInfo; vectorBuffer : POINTER; maxVectors : LONGINT); PROCEDURE InitBitMap(bitMap : pBitMap; depth : LONGINT; width : LONGINT; height : LONGINT); PROCEDURE InitGels(head : pVSprite; tail : pVSprite; gelsInfo : pGelsInfo); PROCEDURE InitGMasks(anOb : pAnimOb); PROCEDURE InitMasks(vSprite : pVSprite); PROCEDURE InitRastPort(rp : pRastPort); FUNCTION InitTmpRas(tmpRas : pTmpRas; buffer : PLANEPTR; size : LONGINT) : pTmpRas; PROCEDURE InitView(view : pView); PROCEDURE InitVPort(vp : pViewPort); PROCEDURE LoadRGB32(vp : pViewPort;const table : pULONG); PROCEDURE LoadRGB4(vp : pViewPort;const colors : pWord; count : LONGINT); PROCEDURE LoadView(view : pView); PROCEDURE LockLayerRom(layer : pLayer); FUNCTION MakeVPort(view : pView; vp : pViewPort) : ULONG; FUNCTION ModeNotAvailable(modeID : ULONG) : LONGINT; PROCEDURE Move(rp : pRastPort; x : LONGINT; y : LONGINT); PROCEDURE MoveSprite(vp : pViewPort; sprite : pSimpleSprite; x : LONGINT; y : LONGINT); FUNCTION MrgCop(view : pView) : ULONG; FUNCTION NewRegion : pRegion; FUNCTION NextDisplayInfo(displayID : ULONG) : ULONG; FUNCTION ObtainBestPenA(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG;const tags : pTagItem) : LONGINT; FUNCTION ObtainPen(cm : pColorMap; n : ULONG; r : ULONG; g : ULONG; b : ULONG; f : LONGINT) : ULONG; FUNCTION OpenFont(textAttr : pTextAttr) : pTextFont; FUNCTION OpenMonitor(const monitorName : pCHAR; displayID : ULONG) : pMonitorSpec; FUNCTION OrRectRegion(region : pRegion;const rectangle : pRectangle) : BOOLEAN; FUNCTION OrRegionRegion(const srcRegion : pRegion; destRegion : pRegion) : BOOLEAN; PROCEDURE OwnBlitter; PROCEDURE PolyDraw(rp : pRastPort; count : LONGINT;const polyTable : pLongint); PROCEDURE QBlit(blit : pbltnode); PROCEDURE QBSBlit(blit : pbltnode); FUNCTION ReadPixel(rp : pRastPort; x : LONGINT; y : LONGINT) : ULONG; FUNCTION ReadPixelArray8(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pointer; temprp : pRastPort) : LONGINT; FUNCTION ReadPixelLine8(rp : pRastPort; xstart : ULONG; ystart : ULONG; width : ULONG; array_ : pointer; tempRP : pRastPort) : LONGINT; PROCEDURE RectFill(rp : pRastPort; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT); PROCEDURE ReleasePen(cm : pColorMap; n : ULONG); PROCEDURE RemFont(textFont : pTextFont); PROCEDURE RemIBob(bob : pBob; rp : pRastPort; vp : pViewPort); PROCEDURE RemVSprite(vSprite : pVSprite); FUNCTION ScalerDiv(factor : ULONG; numerator : ULONG; denominator : ULONG) : WORD; PROCEDURE ScrollRaster(rp : pRastPort; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT); PROCEDURE ScrollRasterBF(rp : pRastPort; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT); PROCEDURE ScrollVPort(vp : pViewPort); PROCEDURE SetABPenDrMd(rp : pRastPort; apen : ULONG; bpen : ULONG; drawmode : ULONG); PROCEDURE SetAPen(rp : pRastPort; pen : ULONG); PROCEDURE SetBPen(rp : pRastPort; pen : ULONG); FUNCTION SetChipRev(want : ULONG) : ULONG; PROCEDURE SetCollision(num : ULONG; routine : tPROCEDURE; gelsInfo : pGelsInfo); PROCEDURE SetDrMd(rp : pRastPort; drawMode : ULONG); FUNCTION SetFont(rp : pRastPort;const textFont : pTextFont) : LONGINT; PROCEDURE SetMaxPen(rp : pRastPort; maxpen : ULONG); FUNCTION SetOutlinePen(rp : pRastPort; pen : ULONG) : ULONG; PROCEDURE SetRast(rp : pRastPort; pen : ULONG); PROCEDURE SetRGB32(vp : pViewPort; n : ULONG; r : ULONG; g : ULONG; b : ULONG); PROCEDURE SetRGB32CM(cm : pColorMap; n : ULONG; r : ULONG; g : ULONG; b : ULONG); PROCEDURE SetRGB4(vp : pViewPort; index : LONGINT; red : ULONG; green : ULONG; blue : ULONG); PROCEDURE SetRGB4CM(colorMap : pColorMap; index : LONGINT; red : ULONG; green : ULONG; blue : ULONG); PROCEDURE SetRPAttrsA(rp : pRastPort;const tags : pTagItem); FUNCTION SetSoftStyle(rp : pRastPort; style : ULONG; enable : ULONG) : ULONG; FUNCTION SetWriteMask(rp : pRastPort; msk : ULONG) : ULONG; PROCEDURE SortGList(rp : pRastPort); PROCEDURE StripFont(font : pTextFont); PROCEDURE SyncSBitMap(layer : pLayer); FUNCTION GText(rp : pRastPort;const string_ : pCHAR; count : ULONG) : LONGINT; FUNCTION TextExtent(rp : pRastPort;const string_ : pCHAR; count : LONGINT; _textExtent : pTextExtent) : smallint; FUNCTION TextFit(rp : pRastPort;const string_ : pCHAR; strLen : ULONG; textExtent : pTextExtent; constrainingExtent : pTextExtent; strDirection : LONGINT; constrainingBitWidth : ULONG; constrainingBitHeight : ULONG) : ULONG; FUNCTION TextLength(rp : pRastPort;const string_ : pCHAR; count : ULONG) : smallint; FUNCTION UCopperListInit(uCopList : pUCopList; n : LONGINT) : pCopList; PROCEDURE UnlockLayerRom(layer : pLayer); FUNCTION VBeamPos : LONGINT; FUNCTION VideoControl(colorMap : pColorMap; tagarray : pTagItem) : BOOLEAN; PROCEDURE WaitBlit; PROCEDURE WaitBOVP(vp : pViewPort); PROCEDURE WaitTOF; FUNCTION WeighTAMatch(reqTextAttr : pTextAttr; targetTextAttr : pTextAttr; targetTags : pTagItem) : smallint; PROCEDURE WriteChunkyPixels(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pointer; bytesperrow : LONGINT); FUNCTION WritePixel(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT; FUNCTION WritePixelArray8(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pointer; temprp : pRastPort) : LONGINT; FUNCTION WritePixelLine8(rp : pRastPort; xstart : ULONG; ystart : ULONG; width : ULONG; array_ : pointer; tempRP : pRastPort) : LONGINT; FUNCTION XorRectRegion(region : pRegion;const rectangle : pRectangle) : BOOLEAN; FUNCTION XorRegionRegion(const srcRegion : pRegion; destRegion : pRegion) : BOOLEAN; { 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); {Here we read how to compile this unit} {You can remove this include and use a define instead} {$I useautoopenlib.inc} {$ifdef use_init_openlib} procedure InitGRAPHICSLibrary; {$endif use_init_openlib} {This is a variable that knows how the unit is compiled} var GRAPHICSIsCompiledHow : longint; IMPLEMENTATION uses {$ifndef dont_use_openlib} msgbox; {$endif dont_use_openlib} PROCEDURE BNDRYOFF (w: pRastPort); BEGIN WITH w^ DO BEGIN Flags := Flags AND (NOT AREAOUTLINE); END; END; PROCEDURE InitAnimate (animkey: ppAnimOb); BEGIN animkey^ := NIL; END; PROCEDURE SetAfPt(w: pRastPort;p: Pointer; n: Byte); BEGIN WITH w^ DO BEGIN AreaPtrn := 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; PROCEDURE AddAnimOb(anOb : pAnimOb; anKey : ppAnimOb; rp : pRastPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L anOb,A0 MOVEA.L anKey,A1 MOVEA.L rp,A2 MOVEA.L GfxBase,A6 JSR -156(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE AddBob(bob : pBob; rp : pRastPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L bob,A0 MOVEA.L rp,A1 MOVEA.L GfxBase,A6 JSR -096(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE AddFont(textFont : pTextFont); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L textFont,A1 MOVEA.L GfxBase,A6 JSR -480(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE AddVSprite(vSprite : pVSprite; rp : pRastPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vSprite,A0 MOVEA.L rp,A1 MOVEA.L GfxBase,A6 JSR -102(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION AllocBitMap(sizex : ULONG; sizey : ULONG; depth : ULONG; flags : ULONG;const friend_bitmap : pBitMap) : pBitMap; BEGIN ASM MOVE.L A6,-(A7) MOVE.L sizex,D0 MOVE.L sizey,D1 MOVE.L depth,D2 MOVE.L flags,D3 MOVEA.L friend_bitmap,A0 MOVEA.L GfxBase,A6 JSR -918(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION AllocDBufInfo(vp : pViewPort) : pDBufInfo; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVEA.L GfxBase,A6 JSR -966(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION AllocRaster(width : ULONG; height : ULONG) : pCHAR; BEGIN ASM MOVE.L A6,-(A7) MOVE.L width,D0 MOVE.L height,D1 MOVEA.L GfxBase,A6 JSR -492(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION AllocSpriteDataA(const bm : pBitMap;const tags : pTagItem) : pExtSprite; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L bm,A2 MOVEA.L tags,A1 MOVEA.L GfxBase,A6 JSR -1020(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE AndRectRegion(region : pRegion;const rectangle : pRectangle); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L region,A0 MOVEA.L rectangle,A1 MOVEA.L GfxBase,A6 JSR -504(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION AndRegionRegion(const srcRegion : pRegion; destRegion : pRegion) : BOOLEAN; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L srcRegion,A0 MOVEA.L destRegion,A1 MOVEA.L GfxBase,A6 JSR -624(A6) MOVEA.L (A7)+,A6 TST.W D0 BEQ.B @end MOVEQ #1,D0 @end: MOVE.B D0,@RESULT END; END; PROCEDURE Animate(anKey : ppAnimOb; rp : pRastPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L anKey,A0 MOVEA.L rp,A1 MOVEA.L GfxBase,A6 JSR -162(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION AreaDraw(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L x,D0 MOVE.L y,D1 MOVEA.L GfxBase,A6 JSR -258(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION AreaEllipse(rp : pRastPort; xCenter : LONGINT; yCenter : LONGINT; a : LONGINT; b : LONGINT) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L xCenter,D0 MOVE.L yCenter,D1 MOVE.L a,D2 MOVE.L b,D3 MOVEA.L GfxBase,A6 JSR -186(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION AreaEnd(rp : pRastPort) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L GfxBase,A6 JSR -264(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION AreaMove(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L x,D0 MOVE.L y,D1 MOVEA.L GfxBase,A6 JSR -252(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE AskFont(rp : pRastPort; textAttr : pTextAttr); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L textAttr,A0 MOVEA.L GfxBase,A6 JSR -474(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION AskSoftStyle(rp : pRastPort) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L GfxBase,A6 JSR -084(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION AttachPalExtra(cm : pColorMap; vp : pViewPort) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L cm,A0 MOVEA.L vp,A1 MOVEA.L GfxBase,A6 JSR -834(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION AttemptLockLayerRom(layer : pLayer) : BOOLEAN; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L layer,A5 MOVEA.L GfxBase,A6 JSR -654(A6) MOVEA.L (A7)+,A6 TST.W D0 BEQ.B @end MOVEQ #1,D0 @end: MOVE.B D0,@RESULT END; END; FUNCTION BestModeIDA(const tags : pTagItem) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L tags,A0 MOVEA.L GfxBase,A6 JSR -1050(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE BitMapScale(bitScaleArgs : pBitScaleArgs); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L bitScaleArgs,A0 MOVEA.L GfxBase,A6 JSR -678(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION BltBitMap(const srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destBitMap : pBitMap; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG; mask : ULONG; tempA : pCHAR) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L srcBitMap,A0 MOVE.L xSrc,D0 MOVE.L ySrc,D1 MOVEA.L destBitMap,A1 MOVE.L xDest,D2 MOVE.L yDest,D3 MOVE.L xSize,D4 MOVE.L ySize,D5 MOVE.L minterm,D6 MOVE.L mask,D7 MOVEA.L tempA,A2 MOVEA.L GfxBase,A6 JSR -030(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE BltBitMapRastPort(const srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L srcBitMap,A0 MOVE.L xSrc,D0 MOVE.L ySrc,D1 MOVEA.L destRP,A1 MOVE.L xDest,D2 MOVE.L yDest,D3 MOVE.L xSize,D4 MOVE.L ySize,D5 MOVE.L minterm,D6 MOVEA.L GfxBase,A6 JSR -606(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE BltClear(memBlock : pCHAR; byteCount : ULONG; flags : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L memBlock,A1 MOVE.L byteCount,D0 MOVE.L flags,D1 MOVEA.L GfxBase,A6 JSR -300(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE BltMaskBitMapRastPort(const srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG;const bltMask : pCHAR); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L srcBitMap,A0 MOVE.L xSrc,D0 MOVE.L ySrc,D1 MOVEA.L destRP,A1 MOVE.L xDest,D2 MOVE.L yDest,D3 MOVE.L xSize,D4 MOVE.L ySize,D5 MOVE.L minterm,D6 MOVEA.L bltMask,A2 MOVEA.L GfxBase,A6 JSR -636(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE BltPattern(rp : pRastPort;const mask : pCHAR; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT; maskBPR : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L mask,A0 MOVE.L xMin,D0 MOVE.L yMin,D1 MOVE.L xMax,D2 MOVE.L yMax,D3 MOVE.L maskBPR,D4 MOVEA.L GfxBase,A6 JSR -312(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE BltTemplate(const source : pCHAR; xSrc : LONGINT; srcMod : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L source,A0 MOVE.L xSrc,D0 MOVE.L srcMod,D1 MOVEA.L destRP,A1 MOVE.L xDest,D2 MOVE.L yDest,D3 MOVE.L xSize,D4 MOVE.L ySize,D5 MOVEA.L GfxBase,A6 JSR -036(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION CalcIVG(v : pView; vp : pViewPort) : WORD; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L v,A0 MOVEA.L vp,A1 MOVEA.L GfxBase,A6 JSR -828(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE CBump(copList : pUCopList); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L copList,A1 MOVEA.L GfxBase,A6 JSR -366(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION ChangeExtSpriteA(vp : pViewPort; oldsprite : pExtSprite; newsprite : pExtSprite;const tags : pTagItem) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVEA.L oldsprite,A1 MOVEA.L newsprite,A2 MOVEA.L tags,A3 MOVEA.L GfxBase,A6 JSR -1026(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE ChangeSprite(vp : pViewPort; sprite : pSimpleSprite; newData : pWORD); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVEA.L sprite,A1 MOVEA.L newData,A2 MOVEA.L GfxBase,A6 JSR -420(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE ChangeVPBitMap(vp : pViewPort; bm : pBitMap; db : pDBufInfo); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVEA.L bm,A1 MOVEA.L db,A2 MOVEA.L GfxBase,A6 JSR -942(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE ClearEOL(rp : pRastPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L GfxBase,A6 JSR -042(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION ClearRectRegion(region : pRegion;const rectangle : pRectangle) : BOOLEAN; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L region,A0 MOVEA.L rectangle,A1 MOVEA.L GfxBase,A6 JSR -522(A6) MOVEA.L (A7)+,A6 TST.W D0 BEQ.B @end MOVEQ #1,D0 @end: MOVE.B D0,@RESULT END; END; PROCEDURE ClearRegion(region : pRegion); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L region,A0 MOVEA.L GfxBase,A6 JSR -528(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE ClearScreen(rp : pRastPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L GfxBase,A6 JSR -048(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE ClipBlit(srcRP : pRastPort; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L srcRP,A0 MOVE.L xSrc,D0 MOVE.L ySrc,D1 MOVEA.L destRP,A1 MOVE.L xDest,D2 MOVE.L yDest,D3 MOVE.L xSize,D4 MOVE.L ySize,D5 MOVE.L minterm,D6 MOVEA.L GfxBase,A6 JSR -552(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE CloseFont(textFont : pTextFont); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L textFont,A1 MOVEA.L GfxBase,A6 JSR -078(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION CloseMonitor(monitorSpec : pMonitorSpec) : BOOLEAN; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L monitorSpec,A0 MOVEA.L GfxBase,A6 JSR -720(A6) MOVEA.L (A7)+,A6 TST.W D0 BEQ.B @end MOVEQ #1,D0 @end: MOVE.B D0,@RESULT END; END; PROCEDURE CMove(copList : pUCopList; destination : POINTER; data : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L copList,A1 MOVE.L destination,D0 MOVE.L data,D1 MOVEA.L GfxBase,A6 JSR -372(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION CoerceMode(vp : pViewPort; monitorid : ULONG; flags : ULONG) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVE.L monitorid,D0 MOVE.L flags,D1 MOVEA.L GfxBase,A6 JSR -936(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE CopySBitMap(layer : pLayer); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L layer,A0 MOVEA.L GfxBase,A6 JSR -450(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE CWait(copList : pUCopList; v : LONGINT; h : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L copList,A1 MOVE.L v,D0 MOVE.L h,D1 MOVEA.L GfxBase,A6 JSR -378(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE DisownBlitter; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L GfxBase,A6 JSR -462(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE DisposeRegion(region : pRegion); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L region,A0 MOVEA.L GfxBase,A6 JSR -534(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE DoCollision(rp : pRastPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L GfxBase,A6 JSR -108(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE Draw(rp : pRastPort; x : LONGINT; y : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L x,D0 MOVE.L y,D1 MOVEA.L GfxBase,A6 JSR -246(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE DrawEllipse(rp : pRastPort; xCenter : LONGINT; yCenter : LONGINT; a : LONGINT; b : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L xCenter,D0 MOVE.L yCenter,D1 MOVE.L a,D2 MOVE.L b,D3 MOVEA.L GfxBase,A6 JSR -180(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE DrawGList(rp : pRastPort; vp : pViewPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L vp,A0 MOVEA.L GfxBase,A6 JSR -114(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE EraseRect(rp : pRastPort; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L xMin,D0 MOVE.L yMin,D1 MOVE.L xMax,D2 MOVE.L yMax,D3 MOVEA.L GfxBase,A6 JSR -810(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION ExtendFont(font : pTextFont;const fontTags : pTagItem) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L font,A0 MOVEA.L fontTags,A1 MOVEA.L GfxBase,A6 JSR -816(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION FindColor(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG; maxcolor : LONGINT) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L cm,A3 MOVE.L r,D1 MOVE.L g,D2 MOVE.L b,D3 MOVE.L maxcolor,D4 MOVEA.L GfxBase,A6 JSR -1008(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION FindDisplayInfo(displayID : ULONG) : POINTER; BEGIN ASM MOVE.L A6,-(A7) MOVE.L displayID,D0 MOVEA.L GfxBase,A6 JSR -726(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION Flood(rp : pRastPort; mode : ULONG; x : LONGINT; y : LONGINT) : BOOLEAN; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L mode,D2 MOVE.L x,D0 MOVE.L y,D1 MOVEA.L GfxBase,A6 JSR -330(A6) MOVEA.L (A7)+,A6 TST.W D0 BEQ.B @end MOVEQ #1,D0 @end: MOVE.B D0,@RESULT END; END; PROCEDURE FontExtent(const font : pTextFont; fontExtent : pTextExtent); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L font,A0 MOVEA.L fontExtent,A1 MOVEA.L GfxBase,A6 JSR -762(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE FreeBitMap(bm : pBitMap); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L bm,A0 MOVEA.L GfxBase,A6 JSR -924(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE FreeColorMap(colorMap : pColorMap); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L colorMap,A0 MOVEA.L GfxBase,A6 JSR -576(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE FreeCopList(copList : pCopList); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L copList,A0 MOVEA.L GfxBase,A6 JSR -546(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE FreeCprList(cprList : pcprlist); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L cprList,A0 MOVEA.L GfxBase,A6 JSR -564(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE FreeDBufInfo(dbi : pDBufInfo); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L dbi,A1 MOVEA.L GfxBase,A6 JSR -972(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE FreeGBuffers(anOb : pAnimOb; rp : pRastPort; flag : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L anOb,A0 MOVEA.L rp,A1 MOVE.L flag,D0 MOVEA.L GfxBase,A6 JSR -600(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE FreeRaster(p : pCHAR; width : ULONG; height : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L p,A0 MOVE.L width,D0 MOVE.L height,D1 MOVEA.L GfxBase,A6 JSR -498(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE FreeSprite(num : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVE.L num,D0 MOVEA.L GfxBase,A6 JSR -414(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE FreeSpriteData(sp : pExtSprite); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L sp,A2 MOVEA.L GfxBase,A6 JSR -1032(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE FreeVPortCopLists(vp : pViewPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVEA.L GfxBase,A6 JSR -540(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION GetAPen(rp : pRastPort) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVEA.L GfxBase,A6 JSR -858(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION GetBitMapAttr(const bm : pBitMap; attrnum : ULONG) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L bm,A0 MOVE.L attrnum,D1 MOVEA.L GfxBase,A6 JSR -960(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION GetBPen(rp : pRastPort) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVEA.L GfxBase,A6 JSR -864(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION GetColorMap(entries : LONGINT) : pColorMap; BEGIN ASM MOVE.L A6,-(A7) MOVE.L entries,D0 MOVEA.L GfxBase,A6 JSR -570(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION GetDisplayInfoData(const handle : POINTER; buf : pCHAR; size : ULONG; tagID : ULONG; displayID : ULONG) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L handle,A0 MOVEA.L buf,A1 MOVE.L size,D0 MOVE.L tagID,D1 MOVE.L displayID,D2 MOVEA.L GfxBase,A6 JSR -756(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION GetDrMd(rp : pRastPort) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVEA.L GfxBase,A6 JSR -870(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION GetExtSpriteA(ss : pExtSprite;const tags : pTagItem) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L ss,A2 MOVEA.L tags,A1 MOVEA.L GfxBase,A6 JSR -930(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION GetGBuffers(anOb : pAnimOb; rp : pRastPort; flag : LONGINT) : BOOLEAN; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L anOb,A0 MOVEA.L rp,A1 MOVE.L flag,D0 MOVEA.L GfxBase,A6 JSR -168(A6) MOVEA.L (A7)+,A6 TST.W D0 BEQ.B @end MOVEQ #1,D0 @end: MOVE.B D0,@RESULT END; END; FUNCTION GetOutlinePen(rp : pRastPort) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVEA.L GfxBase,A6 JSR -876(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE GetRGB32(const cm : pColorMap; firstcolor : ULONG; ncolors : ULONG; table : pUlong); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L cm,A0 MOVE.L firstcolor,D0 MOVE.L ncolors,D1 MOVEA.L table,A1 MOVEA.L GfxBase,A6 JSR -900(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION GetRGB4(colorMap : pColorMap; entry : LONGINT) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L colorMap,A0 MOVE.L entry,D0 MOVEA.L GfxBase,A6 JSR -582(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE GetRPAttrsA(const rp : pRastPort;const tags : pTagItem); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVEA.L tags,A1 MOVEA.L GfxBase,A6 JSR -1044(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION GetSprite(sprite : pSimpleSprite; num : LONGINT) : smallint; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L sprite,A0 MOVE.L num,D0 MOVEA.L GfxBase,A6 JSR -408(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION GetVPModeID(const vp : pViewPort) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVEA.L GfxBase,A6 JSR -792(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE GfxAssociate(const associateNode : POINTER; gfxNodePtr : POINTER); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L associateNode,A0 MOVEA.L gfxNodePtr,A1 MOVEA.L GfxBase,A6 JSR -672(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE GfxFree(gfxNodePtr : POINTER); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L gfxNodePtr,A0 MOVEA.L GfxBase,A6 JSR -666(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION GfxLookUp(const associateNode : POINTER) : POINTER; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L associateNode,A0 MOVEA.L GfxBase,A6 JSR -702(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION GfxNew(gfxNodeType : ULONG) : POINTER; BEGIN ASM MOVE.L A6,-(A7) MOVE.L gfxNodeType,D0 MOVEA.L GfxBase,A6 JSR -660(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE InitArea(areaInfo : pAreaInfo; vectorBuffer : POINTER; maxVectors : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L areaInfo,A0 MOVEA.L vectorBuffer,A1 MOVE.L maxVectors,D0 MOVEA.L GfxBase,A6 JSR -282(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE InitBitMap(bitMap : pBitMap; depth : LONGINT; width : LONGINT; height : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L bitMap,A0 MOVE.L depth,D0 MOVE.L width,D1 MOVE.L height,D2 MOVEA.L GfxBase,A6 JSR -390(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE InitGels(head : pVSprite; tail : pVSprite; gelsInfo : pGelsInfo); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L head,A0 MOVEA.L tail,A1 MOVEA.L gelsInfo,A2 MOVEA.L GfxBase,A6 JSR -120(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE InitGMasks(anOb : pAnimOb); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L anOb,A0 MOVEA.L GfxBase,A6 JSR -174(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE InitMasks(vSprite : pVSprite); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vSprite,A0 MOVEA.L GfxBase,A6 JSR -126(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE InitRastPort(rp : pRastPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L GfxBase,A6 JSR -198(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION InitTmpRas(tmpRas : pTmpRas; buffer : PLANEPTR; size : LONGINT) : pTmpRas; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L tmpRas,A0 MOVEA.L buffer,A1 MOVE.L size,D0 MOVEA.L GfxBase,A6 JSR -468(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE InitView(view : pView); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L view,A1 MOVEA.L GfxBase,A6 JSR -360(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE InitVPort(vp : pViewPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVEA.L GfxBase,A6 JSR -204(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE LoadRGB32(vp : pViewPort;const table : pULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVEA.L table,A1 MOVEA.L GfxBase,A6 JSR -882(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE LoadRGB4(vp : pViewPort;const colors : pWord; count : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVEA.L colors,A1 MOVE.L count,D0 MOVEA.L GfxBase,A6 JSR -192(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE LoadView(view : pView); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L view,A1 MOVEA.L GfxBase,A6 JSR -222(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE LockLayerRom(layer : pLayer); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L layer,A5 MOVEA.L GfxBase,A6 JSR -432(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION MakeVPort(view : pView; vp : pViewPort) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L view,A0 MOVEA.L vp,A1 MOVEA.L GfxBase,A6 JSR -216(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION ModeNotAvailable(modeID : ULONG) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVE.L modeID,D0 MOVEA.L GfxBase,A6 JSR -798(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE Move(rp : pRastPort; x : LONGINT; y : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L x,D0 MOVE.L y,D1 MOVEA.L GfxBase,A6 JSR -240(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE MoveSprite(vp : pViewPort; sprite : pSimpleSprite; x : LONGINT; y : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVEA.L sprite,A1 MOVE.L x,D0 MOVE.L y,D1 MOVEA.L GfxBase,A6 JSR -426(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION MrgCop(view : pView) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L view,A1 MOVEA.L GfxBase,A6 JSR -210(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION NewRegion : pRegion; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L GfxBase,A6 JSR -516(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION NextDisplayInfo(displayID : ULONG) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVE.L displayID,D0 MOVEA.L GfxBase,A6 JSR -732(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION ObtainBestPenA(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG;const tags : pTagItem) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L cm,A0 MOVE.L r,D1 MOVE.L g,D2 MOVE.L b,D3 MOVEA.L tags,A1 MOVEA.L GfxBase,A6 JSR -840(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION ObtainPen(cm : pColorMap; n : ULONG; r : ULONG; g : ULONG; b : ULONG; f : LONGINT) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L cm,A0 MOVE.L n,D0 MOVE.L r,D1 MOVE.L g,D2 MOVE.L b,D3 MOVE.L f,D4 MOVEA.L GfxBase,A6 JSR -954(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION OpenFont(textAttr : pTextAttr) : pTextFont; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L textAttr,A0 MOVEA.L GfxBase,A6 JSR -072(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION OpenMonitor(const monitorName : pCHAR; displayID : ULONG) : pMonitorSpec; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L monitorName,A1 MOVE.L displayID,D0 MOVEA.L GfxBase,A6 JSR -714(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION OrRectRegion(region : pRegion;const rectangle : pRectangle) : BOOLEAN; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L region,A0 MOVEA.L rectangle,A1 MOVEA.L GfxBase,A6 JSR -510(A6) MOVEA.L (A7)+,A6 TST.W D0 BEQ.B @end MOVEQ #1,D0 @end: MOVE.B D0,@RESULT END; END; FUNCTION OrRegionRegion(const srcRegion : pRegion; destRegion : pRegion) : BOOLEAN; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L srcRegion,A0 MOVEA.L destRegion,A1 MOVEA.L GfxBase,A6 JSR -612(A6) MOVEA.L (A7)+,A6 TST.W D0 BEQ.B @end MOVEQ #1,D0 @end: MOVE.B D0,@RESULT END; END; PROCEDURE OwnBlitter; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L GfxBase,A6 JSR -456(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE PolyDraw(rp : pRastPort; count : LONGINT;const polyTable : pLongint); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L count,D0 MOVEA.L polyTable,A0 MOVEA.L GfxBase,A6 JSR -336(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE QBlit(blit : pbltnode); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L blit,A1 MOVEA.L GfxBase,A6 JSR -276(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE QBSBlit(blit : pbltnode); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L blit,A1 MOVEA.L GfxBase,A6 JSR -294(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION ReadPixel(rp : pRastPort; x : LONGINT; y : LONGINT) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L x,D0 MOVE.L y,D1 MOVEA.L GfxBase,A6 JSR -318(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION ReadPixelArray8(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pointer; temprp : pRastPort) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVE.L xstart,D0 MOVE.L ystart,D1 MOVE.L xstop,D2 MOVE.L ystop,D3 MOVEA.L array_,A2 MOVEA.L temprp,A1 MOVEA.L GfxBase,A6 JSR -780(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION ReadPixelLine8(rp : pRastPort; xstart : ULONG; ystart : ULONG; width : ULONG; array_ : pointer; tempRP : pRastPort) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVE.L xstart,D0 MOVE.L ystart,D1 MOVE.L width,D2 MOVEA.L array_,A2 MOVEA.L tempRP,A1 MOVEA.L GfxBase,A6 JSR -768(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE RectFill(rp : pRastPort; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L xMin,D0 MOVE.L yMin,D1 MOVE.L xMax,D2 MOVE.L yMax,D3 MOVEA.L GfxBase,A6 JSR -306(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE ReleasePen(cm : pColorMap; n : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L cm,A0 MOVE.L n,D0 MOVEA.L GfxBase,A6 JSR -948(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE RemFont(textFont : pTextFont); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L textFont,A1 MOVEA.L GfxBase,A6 JSR -486(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE RemIBob(bob : pBob; rp : pRastPort; vp : pViewPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L bob,A0 MOVEA.L rp,A1 MOVEA.L vp,A2 MOVEA.L GfxBase,A6 JSR -132(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE RemVSprite(vSprite : pVSprite); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vSprite,A0 MOVEA.L GfxBase,A6 JSR -138(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION ScalerDiv(factor : ULONG; numerator : ULONG; denominator : ULONG) : WORD; BEGIN ASM MOVE.L A6,-(A7) MOVE.L factor,D0 MOVE.L numerator,D1 MOVE.L denominator,D2 MOVEA.L GfxBase,A6 JSR -684(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE ScrollRaster(rp : pRastPort; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L dx,D0 MOVE.L dy,D1 MOVE.L xMin,D2 MOVE.L yMin,D3 MOVE.L xMax,D4 MOVE.L yMax,D5 MOVEA.L GfxBase,A6 JSR -396(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE ScrollRasterBF(rp : pRastPort; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L dx,D0 MOVE.L dy,D1 MOVE.L xMin,D2 MOVE.L yMin,D3 MOVE.L xMax,D4 MOVE.L yMax,D5 MOVEA.L GfxBase,A6 JSR -1002(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE ScrollVPort(vp : pViewPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVEA.L GfxBase,A6 JSR -588(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE SetABPenDrMd(rp : pRastPort; apen : ULONG; bpen : ULONG; drawmode : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L apen,D0 MOVE.L bpen,D1 MOVE.L drawmode,D2 MOVEA.L GfxBase,A6 JSR -894(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE SetAPen(rp : pRastPort; pen : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L pen,D0 MOVEA.L GfxBase,A6 JSR -342(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE SetBPen(rp : pRastPort; pen : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L pen,D0 MOVEA.L GfxBase,A6 JSR -348(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION SetChipRev(want : ULONG) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVE.L want,D0 MOVEA.L GfxBase,A6 JSR -888(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE SetCollision(num : ULONG; routine : tPROCEDURE; gelsInfo : pGelsInfo); BEGIN ASM MOVE.L A6,-(A7) MOVE.L num,D0 MOVEA.L routine,A0 MOVEA.L gelsInfo,A1 MOVEA.L GfxBase,A6 JSR -144(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE SetDrMd(rp : pRastPort; drawMode : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L drawMode,D0 MOVEA.L GfxBase,A6 JSR -354(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION SetFont(rp : pRastPort;const textFont : pTextFont) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L textFont,A0 MOVEA.L GfxBase,A6 JSR -066(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE SetMaxPen(rp : pRastPort; maxpen : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVE.L maxpen,D0 MOVEA.L GfxBase,A6 JSR -990(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION SetOutlinePen(rp : pRastPort; pen : ULONG) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVE.L pen,D0 MOVEA.L GfxBase,A6 JSR -978(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE SetRast(rp : pRastPort; pen : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L pen,D0 MOVEA.L GfxBase,A6 JSR -234(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE SetRGB32(vp : pViewPort; n : ULONG; r : ULONG; g : ULONG; b : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVE.L n,D0 MOVE.L r,D1 MOVE.L g,D2 MOVE.L b,D3 MOVEA.L GfxBase,A6 JSR -852(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE SetRGB32CM(cm : pColorMap; n : ULONG; r : ULONG; g : ULONG; b : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L cm,A0 MOVE.L n,D0 MOVE.L r,D1 MOVE.L g,D2 MOVE.L b,D3 MOVEA.L GfxBase,A6 JSR -996(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE SetRGB4(vp : pViewPort; index : LONGINT; red : ULONG; green : ULONG; blue : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVE.L index,D0 MOVE.L red,D1 MOVE.L green,D2 MOVE.L blue,D3 MOVEA.L GfxBase,A6 JSR -288(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE SetRGB4CM(colorMap : pColorMap; index : LONGINT; red : ULONG; green : ULONG; blue : ULONG); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L colorMap,A0 MOVE.L index,D0 MOVE.L red,D1 MOVE.L green,D2 MOVE.L blue,D3 MOVEA.L GfxBase,A6 JSR -630(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE SetRPAttrsA(rp : pRastPort;const tags : pTagItem); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVEA.L tags,A1 MOVEA.L GfxBase,A6 JSR -1038(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION SetSoftStyle(rp : pRastPort; style : ULONG; enable : ULONG) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L style,D0 MOVE.L enable,D1 MOVEA.L GfxBase,A6 JSR -090(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION SetWriteMask(rp : pRastPort; msk : ULONG) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVE.L msk,D0 MOVEA.L GfxBase,A6 JSR -984(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE SortGList(rp : pRastPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L GfxBase,A6 JSR -150(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE StripFont(font : pTextFont); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L font,A0 MOVEA.L GfxBase,A6 JSR -822(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE SyncSBitMap(layer : pLayer); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L layer,A0 MOVEA.L GfxBase,A6 JSR -444(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION GText(rp : pRastPort;const string_ : pCHAR; count : ULONG) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L string_,A0 MOVE.L count,D0 MOVEA.L GfxBase,A6 JSR -060(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION TextExtent(rp : pRastPort;const string_ : pCHAR; count : LONGINT; _textExtent : pTextExtent) : smallint; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L string_,A0 MOVE.L count,D0 MOVEA.L _textExtent,A2 MOVEA.L GfxBase,A6 JSR -690(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION TextFit(rp : pRastPort;const string_ : pCHAR; strLen : ULONG; textExtent : pTextExtent; constrainingExtent : pTextExtent; strDirection : LONGINT; constrainingBitWidth : ULONG; constrainingBitHeight : ULONG) : ULONG; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L string_,A0 MOVE.L strLen,D0 MOVEA.L textExtent,A2 MOVEA.L constrainingExtent,A3 MOVE.L strDirection,D1 MOVE.L constrainingBitWidth,D2 MOVE.L constrainingBitHeight,D3 MOVEA.L GfxBase,A6 JSR -696(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION TextLength(rp : pRastPort;const string_ : pCHAR; count : ULONG) : smallint; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVEA.L string_,A0 MOVE.L count,D0 MOVEA.L GfxBase,A6 JSR -054(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION UCopperListInit(uCopList : pUCopList; n : LONGINT) : pCopList; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L uCopList,A0 MOVE.L n,D0 MOVEA.L GfxBase,A6 JSR -594(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE UnlockLayerRom(layer : pLayer); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L layer,A5 MOVEA.L GfxBase,A6 JSR -438(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION VBeamPos : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L GfxBase,A6 JSR -384(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION VideoControl(colorMap : pColorMap; tagarray : pTagItem) : BOOLEAN; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L colorMap,A0 MOVEA.L tagarray,A1 MOVEA.L GfxBase,A6 JSR -708(A6) MOVEA.L (A7)+,A6 TST.W D0 BEQ.B @end MOVEQ #1,D0 @end: MOVE.B D0,@RESULT END; END; PROCEDURE WaitBlit; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L GfxBase,A6 JSR -228(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE WaitBOVP(vp : pViewPort); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L vp,A0 MOVEA.L GfxBase,A6 JSR -402(A6) MOVEA.L (A7)+,A6 END; END; PROCEDURE WaitTOF; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L GfxBase,A6 JSR -270(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION WeighTAMatch(reqTextAttr : pTextAttr; targetTextAttr : pTextAttr; targetTags : pTagItem) : smallint; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L reqTextAttr,A0 MOVEA.L targetTextAttr,A1 MOVEA.L targetTags,A2 MOVEA.L GfxBase,A6 JSR -804(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; PROCEDURE WriteChunkyPixels(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pointer; bytesperrow : LONGINT); BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVE.L xstart,D0 MOVE.L ystart,D1 MOVE.L xstop,D2 MOVE.L ystop,D3 MOVEA.L array_,A2 MOVE.L bytesperrow,D4 MOVEA.L GfxBase,A6 JSR -1056(A6) MOVEA.L (A7)+,A6 END; END; FUNCTION WritePixel(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A1 MOVE.L x,D0 MOVE.L y,D1 MOVEA.L GfxBase,A6 JSR -324(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION WritePixelArray8(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pointer; temprp : pRastPort) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVE.L xstart,D0 MOVE.L ystart,D1 MOVE.L xstop,D2 MOVE.L ystop,D3 MOVEA.L array_,A2 MOVEA.L temprp,A1 MOVEA.L GfxBase,A6 JSR -786(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION WritePixelLine8(rp : pRastPort; xstart : ULONG; ystart : ULONG; width : ULONG; array_ : pointer; tempRP : pRastPort) : LONGINT; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L rp,A0 MOVE.L xstart,D0 MOVE.L ystart,D1 MOVE.L width,D2 MOVEA.L array_,A2 MOVEA.L tempRP,A1 MOVEA.L GfxBase,A6 JSR -774(A6) MOVEA.L (A7)+,A6 MOVE.L D0,@RESULT END; END; FUNCTION XorRectRegion(region : pRegion;const rectangle : pRectangle) : BOOLEAN; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L region,A0 MOVEA.L rectangle,A1 MOVEA.L GfxBase,A6 JSR -558(A6) MOVEA.L (A7)+,A6 TST.W D0 BEQ.B @end MOVEQ #1,D0 @end: MOVE.B D0,@RESULT END; END; FUNCTION XorRegionRegion(const srcRegion : pRegion; destRegion : pRegion) : BOOLEAN; BEGIN ASM MOVE.L A6,-(A7) MOVEA.L srcRegion,A0 MOVEA.L destRegion,A1 MOVEA.L GfxBase,A6 JSR -618(A6) MOVEA.L (A7)+,A6 TST.W D0 BEQ.B @end MOVEQ #1,D0 @end: MOVE.B D0,@RESULT END; END; const { Change VERSION and LIBVERSION to proper values } VERSION : string[2] = '0'; LIBVERSION : longword = 0; {$ifdef use_init_openlib} {$Info Compiling initopening of graphics.library} {$Info don't forget to use InitGRAPHICSLibrary in the beginning of your program} var graphics_exit : Pointer; procedure ClosegraphicsLibrary; begin ExitProc := graphics_exit; if GfxBase <> nil then begin CloseLibrary(GfxBase); GfxBase := nil; end; end; procedure InitGRAPHICSLibrary; begin GfxBase := nil; GfxBase := OpenLibrary(GRAPHICSNAME,LIBVERSION); if GfxBase <> nil then begin graphics_exit := ExitProc; ExitProc := @ClosegraphicsLibrary; end else begin MessageBox('FPC Pascal Error', 'Can''t open graphics.library version ' + VERSION + #10 + 'Deallocating resources and closing down', 'Oops'); halt(20); end; end; begin GRAPHICSIsCompiledHow := 2; {$endif use_init_openlib} {$ifdef use_auto_openlib} {$Info Compiling autoopening of graphics.library} var graphics_exit : Pointer; procedure ClosegraphicsLibrary; begin ExitProc := graphics_exit; if GfxBase <> nil then begin CloseLibrary(GfxBase); GfxBase := nil; end; end; begin GfxBase := nil; GfxBase := OpenLibrary(GRAPHICSNAME,LIBVERSION); if GfxBase <> nil then begin graphics_exit := ExitProc; ExitProc := @ClosegraphicsLibrary; GRAPHICSIsCompiledHow := 1; end else begin MessageBox('FPC Pascal Error', 'Can''t open graphics.library version ' + VERSION + #10 + 'Deallocating resources and closing down', 'Oops'); halt(20); end; {$endif use_auto_openlib} {$ifdef dont_use_openlib} begin GRAPHICSIsCompiledHow := 3; {$Warning No autoopening of graphics.library compiled} {$Warning Make sure you open graphics.library yourself} {$endif dont_use_openlib} END. (* UNIT GRAPHICS *)