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