home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Global Amiga Experience
/
globalamigaexperience.iso
/
compressed
/
development
/
clusterdemo.dms
/
clusterdemo.adf
/
Modules.lha
/
modules
/
txt
/
Graphics.def
< prev
next >
Wrap
Text File
|
1994-05-25
|
54KB
|
1,838 lines
|##########|
|#MAGIC #|CLABLJBN
|#PROJECT #|"IMPORTALL"
|#PATHS #|"StdProject"
|#FLAGS #|xx-x-x-xx---x-x-----------------
|#USERSW #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x----x----------
|##########|
DEFINITION MODULE Graphics;
(* $A- *)
|
| WB 23 May 1992 added CharLoc and changed ANYPTRs to POINTERs to ARRAYs
| WB 25 May 1992 added TextStr() and TextLengthStr for direct calling with
| STRINGs
| WB 27 May 1992 re-added Groups. Who removed them ? Who created this file ?
| WB 26 Aug 1992 TextAttr.name should be a SysStringPtr. Need to do cosmetics
|
FROM System IMPORT BITSET,LONGSET,SHORTSET,Regs,PROC, SysStringPtr;
FROM Hardware IMPORT BltNodePtr,Beam0Flags,Beam0FlagSet;
FROM Exec IMPORT Interrupt,Library,List,Message,MinList,Node,NodePtr,
NodeType,SignalSemaphore,SignalSemaphorePtr,TaskPtr,
MsgPortPtr,LibraryPtr;
FROM Utility IMPORT HookPtr,StdTags;
TYPE WindowPtr = DEFERRED POINTER Intuition.WindowPtr;
TYPE
ViewPortExtraPtr = POINTER TO ViewPortExtra;
ViewPortPtr = POINTER TO ViewPort;
VTagListPtr = POINTER TO VTagList;
|
| BitMaps & Raster
|
BitMapPtr = POINTER TO BitMap;
BitMap = RECORD
bytesPerRow : CARDINAL;
rows : CARDINAL;
flags : SHORTSET;
depth : SHORTCARD;
pad : CARDINAL;
planes : ARRAY [0..7] OF ANYPTR;
END;
BitScaleArgsPtr = POINTER TO BitScaleArgs;
BitScaleArgs = RECORD
srcX,
srcY : CARDINAL;
srcWidth,
srcHeight : CARDINAL;
srcXFactor,
srcYFactor : CARDINAL;
destX,
destY : CARDINAL;
destWidth,
destHeight : CARDINAL;
xDestFactor,
yDestFactor : CARDINAL;
srcBitMap : BitMapPtr;
destBitMap : BitMapPtr;
flags : LONGSET;
xDDA,
yDDA : CARDINAL;
reserved : ARRAY [2] OF LONGINT;
END;
|
| Layers & Regions
|
LayerInfoPtr = POINTER TO LayerInfo;
LayerPtr = POINTER TO Layer;
RectanglePtr = POINTER TO Rectangle;
Rectangle = RECORD
minX : INTEGER;
minY : INTEGER;
maxX : INTEGER;
maxY : INTEGER;
END;
ClipRectPtr = POINTER TO ClipRect;
ClipRect = RECORD
next : ClipRectPtr;
prev : ClipRectPtr;
lobs : LayerPtr;
bitMap : BitMapPtr;
bounds : Rectangle;
p1 : ClipRectPtr;
p2 : ClipRectPtr;
reserved : LONGINT;
flags : LONGINT;
END;
RegionRectanglePtr = POINTER TO RegionRectangle;
RegionRectangle = RECORD
next : RegionRectanglePtr;
prev : RegionRectanglePtr;
bounds : Rectangle;
END;
RegionPtr = POINTER TO Region;
Region = RECORD
bounds : Rectangle;
regionRectangle : RegionRectanglePtr;
END;
CONST
needsNoConcealedRasters = 1;
isLessX = 1;
isLessY = 2;
isGrtrX = 4;
isGrtrY = 8;
TYPE
LayerFlags = (layerSimple,layerSmart,layerSuper,lf3,layerUpdating,
lf5,layerBackdrop,layerRefresh,layerClipRectsLost);
LayerFlagSet = SET OF LayerFlags;
RastPortPtr = POINTER TO RastPort;
Layer = RECORD
front : LayerPtr;
back : LayerPtr;
clipRect : ClipRectPtr;
rp : RastPortPtr;
bounds : Rectangle;
reserved : ARRAY [4] OF SHORTCARD;
priority : CARDINAL;
flags : LayerFlagSet;
superBitMap : BitMapPtr;
superClipRect : ClipRectPtr;
window : WindowPtr;
scrollX : INTEGER;
scrollY : INTEGER;
cr : ClipRectPtr;
cr2 : ClipRectPtr;
crnew : ClipRectPtr;
superSaveClipRects : ClipRectPtr;
cliprects : ClipRectPtr;
layerInfo : LayerInfoPtr;
lock : SignalSemaphore;
backFill : HookPtr;
reserved1 : LONGCARD;
clipRegion : RegionPtr;
saveClipRects : RegionPtr;
width,
height : INTEGER;
reserved2 : ARRAY [18] OF SHORTCARD;
damageList : RegionPtr;
END;
LayerInfo = RECORD
layer : LayerPtr;
lp : LayerPtr;
obs : LayerPtr;
freeClipRects : MinList;
lock : SignalSemaphore;
head : List;
longreserved : LONGINT;
flags : LayerFlagSet;
count : SHORTINT;
lockLayersCount : SHORTINT;
layerInfoExtraSize : CARDINAL;
blitbuff : ANYPTR;
layerInfoExtra : ANYPTR;
END;
CONST
lmnRegion = -1;
newLayerInfoCalled = 1;
alertLayersNoMem = $83010000;
|
| Colors
|
TYPE
DisplayInfoPtr = POINTER TO DisplayInfo;
ColorMapType = (cmapV33,cmapV36);
ColorMapFlags = (colormapTransparency,colorPlaneTransparency,
borderBlanking,borderNoTransparency,
videoControlBatch,userCopperClip);
ColorMapFlagSet = SET OF ColorMapFlags;
ColorMapPtr = POINTER TO ColorMap;
ColorMap = RECORD
flags : ColorMapFlagSet;
type : ColorMapType;
count : CARDINAL;
colorTable : ANYPTR;
vpe : ViewPortExtraPtr;
transparencyBits : ANYPTR;
transparencyPlane : SHORTCARD;
reserved1 : SHORTCARD;
reserved2 : CARDINAL;
vp : ViewPortPtr;
normalDisplayInfo : ANYPTR;
coerceDisplayInfo : ANYPTR;
batchItems : VTagListPtr;
vpModeID : LONGCARD;
END;
|
| Copper & Views
|
CONST
move = 0;
wait = 1;
next = 2;
sys = 13;
sht = 14;
lof = 15;
TYPE
CopListPtr = POINTER TO CopList;
CopInsPtr = POINTER TO CopIns;
CopIns = RECORD
IF KEY opCode:CARDINAL
OF move THEN destAddr:INTEGER;
destData:INTEGER;
OF wait THEN vWaitPos:INTEGER;
hWaitPos:INTEGER;
OF next THEN nxtlist:CopListPtr;
END;
END;
CprListPtr = POINTER TO CprList;
CprList = RECORD
next : CprListPtr;
start : ANYPTR;
maxCount : INTEGER;
END;
CopList = RECORD
next : CopListPtr;
copList : CopListPtr;
viewPort : ViewPortPtr;
copIns : CopInsPtr;
copPtr : CopInsPtr;
copLStart : ANYPTR;
copSStart : ANYPTR;
count : INTEGER;
maxCount : INTEGER;
dyOffset : INTEGER;
cop2Start : ANYPTR;
cop3Start : ANYPTR;
cop4Start : ANYPTR;
cop5Start : ANYPTR;
END;
UCopListPtr = POINTER TO UCopList;
UCopList = RECORD
next : UCopListPtr;
firstCopList : CopListPtr;
copList : CopListPtr;
END;
CopInitPtr = POINTER TO CopInit;
CopInit = RECORD
vsyncHBlank : ARRAY [2] OF CARDINAL;
diwstart : ARRAY [4] OF CARDINAL;
diagstrt : ARRAY [4] OF CARDINAL;
sprstrtup : ARRAY [2*8*2] OF CARDINAL;
wait14 : ARRAY [2] OF CARDINAL;
normHBlank : ARRAY [2] OF CARDINAL;
genloc : ARRAY [4] OF CARDINAL;
jump : ARRAY [(2*2)] OF CARDINAL;
sprstop : ARRAY [4] OF CARDINAL;
END;
|
| Text & Gfx
|
TYPE
FontStyles = (underlined,bold,italic,extended,fs4,fs5,colorFont,
tagged);
FontStyleSet = SET OF FontStyles;
FontFlags = (romFont,diskFont,revPath,tallDot,wideDot,proportional,
designed,removed);
FontFlagSet = SET OF FontFlags;
CONST
normalFont = FontStyleSet:{};
TYPE
FontTags = TAGS OF StdTags
DeviceDPI = $80000001 : RECORD x,y : CARDINAL END;
END;
FontTagList = ARRAY OF FontTags;
FontTagListPtr = POINTER TO FontTagList;
TextAttrPtr = POINTER TO TextAttr;
TextAttr = RECORD
name : SysStringPtr;
ySize : CARDINAL;
style : FontStyleSet;
flags : FontFlagSet;
END;
TTextAttrPtr = POINTER TO TTextAttr;
TTextAttr = RECORD OF TextAttr
tags : FontTagListPtr;
END;
CONST
maxFontMatchWeight = 32767;
TYPE
CharLocPtr = POINTER TO CharLoc;
CharLoc = RECORD
pos,width : INTEGER;
END;
TextFontPtr = POINTER TO TextFont;
TextFont = RECORD OF Message
ySize : CARDINAL;
style : FontStyleSet;
flags : FontFlagSet;
xSize : CARDINAL;
baseline : CARDINAL;
boldSmear : CARDINAL;
accessors : CARDINAL;
loChar : CHAR;
hiChar : CHAR;
charData : ANYPTR;
modulo : CARDINAL;
charLoc : POINTER TO ARRAY OF CharLoc;
charSpace : POINTER TO ARRAY OF INTEGER;
charKern : POINTER TO ARRAY OF INTEGER;
END;
CONST
noRemFont = 0;
TYPE
TextFontExtensionPtr= POINTER TO TextFontExtension;
TextFontExtension = RECORD
matchWord : CARDINAL;
flags0 : SHORTSET;
flags1 : SHORTSET;
backPtr : TextFontPtr;
origReplyPort : MsgPortPtr;
tags : FontTagListPtr;
oFontPatchS : ANYPTR;
oFontPatchK : ANYPTR;
END;
CONST
ctColormask= $000F;
ctColorfont= $0001;
ctGreyfont= $0002;
ctAntialias= $0004;
ctbMapcolor= 0;
ctfMapcolor= $0001;
TYPE
ColorFontColorsPtr= POINTER TO ColorFontColors;
ColorFontColors = RECORD
reserved : CARDINAL;
count : CARDINAL;
colorTable : POINTER TO ARRAY OF CARDINAL;
END;
ColorTextFontPtr = POINTER TO ColorTextFont;
ColorTextFont = RECORD
tf : TextFont;
flags : CARDINAL;
depth : SHORTCARD;
fgColor : SHORTCARD;
low : SHORTCARD;
high : SHORTCARD;
planePick : SHORTCARD;
planeOnOff : SHORTCARD;
colorFontColors : ColorFontColorsPtr;
charData : ARRAY [8] OF ANYPTR;
END;
TextExtentPtr = POINTER TO TextExtention;
TextExtention = RECORD
width : CARDINAL;
height : CARDINAL;
extend : Rectangle;
END;
|
| Gels
|
CONST
ringtrigger = 1;
anfracsize = 6;
animhalf =$20;
b2Norm = 0;
b2Swap = 1;
b2Bobber = 2;
TYPE
BobPtr = POINTER TO Bob;
SimpleSpritePtr = POINTER TO SimpleSprite;
DBufPacketPtr = POINTER TO DBufPacket;
SimpleSprite = RECORD
posctldata : ANYPTR;
height : CARDINAL;
x : CARDINAL;
y : CARDINAL;
num : INTEGER;
END;
VSpriteFlags = (vsprite,saveBack,overlay,mustDraw,vf4,vf5,vf6,vf7,
backSaved,bobUpdate,gelGone,vsOverflow,vf12,vf13,
vf14,vf15);
VSpriteFlagSet = SET OF VSpriteFlags;
VSpritePtr = POINTER TO VSprite;
VSprite = RECORD
nextVSprite : VSpritePtr;
prevVSprite : VSpritePtr;
drawPath : VSpritePtr;
clearPath : VSpritePtr;
oldY : INTEGER;
oldX : INTEGER;
flags : VSpriteFlagSet;
y : INTEGER;
x : INTEGER;
height : INTEGER;
width : INTEGER;
depth : INTEGER;
meMask : BITSET;
hitMask : BITSET;
imageData : ANYPTR;
borderLine : ANYPTR;
collMask : ANYPTR;
sprColors : ANYPTR;
vsBob : BobPtr;
planePick : SHORTSET;
planeOnOff : SHORTSET;
END;
BobFlags = (saveBob,bobIsComp,bf2,bf3,bf4,bf5,bf6,bf7,bWaiting,
bDrawn,bobsAway,bobNix,savePreserve,outStep,
bf14,bf15);
BobFlagSet = SET OF BobFlags;
AnimCompPtr = POINTER TO AnimComp;
Bob = RECORD
flags : BobFlagSet;
saveBuffer : ANYPTR;
imageShadow : ANYPTR;
before : BobPtr;
after : BobPtr;
bobVSprite : VSpritePtr;
bobComp : AnimCompPtr;
dBuffer : DBufPacketPtr;
END;
AnimObPtr = POINTER TO AnimOb;
AnimComp = RECORD
flags : INTEGER;
timer : INTEGER;
timeSet : INTEGER;
nextComp : AnimCompPtr;
prevComp : AnimCompPtr;
nextSeq : AnimCompPtr;
prevSeq : AnimCompPtr;
animCRoutine : PROCEDURE;
yTrans : INTEGER;
xTrans : INTEGER;
headOb : AnimObPtr;
animBob : BobPtr;
END;
AnimOb = RECORD
nextOb : AnimObPtr;
prevOb : AnimObPtr;
clock : LONGINT;
anOldY : INTEGER;
anOldX : INTEGER;
anY : INTEGER;
anX : INTEGER;
yVel : INTEGER;
xVel : INTEGER;
yAccel : INTEGER;
xAccel : INTEGER;
ringYTrans : INTEGER;
ringXTrans : INTEGER;
animORoutine : PROCEDURE;
headComp : AnimCompPtr;
END;
DBufPacket = RECORD
bufY : INTEGER;
bufX : INTEGER;
bufPath : VSpritePtr;
bufBuffer : ANYPTR;
END;
CONST
borderHit = 0;
topHit = 1;
bottomHit = 2;
leftHit = 4;
rightHit = 8;
TYPE
CollTablePtr = POINTER TO CollTable;
CollTable = RECORD
collPtrs : ARRAY [16] OF ANYPTR
END;
GelsInfoPtr = POINTER TO GelsInfo;
GelsInfo = RECORD
sprRsrvd : SHORTSET;
flags : SHORTCARD;
gelHead : VSpritePtr;
gelTail : VSpritePtr;
nextLine : ANYPTR;
lastColor : ANYPTR;
collHandler : CollTablePtr;
leftmost : INTEGER;
rightmost : INTEGER;
topmost : INTEGER;
bottommost : INTEGER;
firstBlissObj : ANYPTR;
lastBlissObj : ANYPTR;
END;
|
| GfxNodes
|
CONST
viewExtraType = NodeType(1);
viewportExtraType = NodeType(2);
specialMonitorType = NodeType(3);
monitorSpecType = NodeType(4);
TYPE
ExtendedNodePtr = POINTER TO ExtendedNode;
ExtendedNode = RECORD OF Node
subsystem : SHORTCARD;
subtype : SHORTCARD;
library : LibraryPtr;
init : PROCEDURE():LONGINT;
END;
|
| Monitor
|
TYPE
SpecialMonitorPtr= POINTER TO SpecialMonitor;
CONST
toMonitor = 0;
fromMonitor = 1;
standardXoffset = 9;
standardYoffset = 0;
requestNtsc = 1;
requestPal = 2;
requestSpecial = 4;
requestA2024 = 8;
standardMonitorMask= requestNtsc + requestPal;
defaultMonitorName = "default.monitor";
ntscMonitorName = "ntsc.monitor";
palMonitorName = "pal.monitor";
vgaMonitorName = "vga.monitor";
vga70MonitorName = "vga70.monitor";
standardNtscRows = 262;
standardPalRows = 312;
standardColorclocks= 226;
standardDeniseMax = 455;
standardDeniseMin = 93;
standardNtscBeamcon= Beam0FlagSet:{};
standardPalBeamcon = displayPal; |???
specialBeamcon = Beam0FlagSet:{varVBlank,loLDis,varVSync,varBeam,
csBlank};
minNtscRow = 21;
minPalRow = 29;
standardViewX = $81;
standardViewY = $2C;
standardHbstrt = $06;
standardHsstrt = $0B;
standardHsstop = $1C;
standardHbstop = $2C;
standardVbstrt = $122;
standardVsstrt = $2A6;
standardVsstop = $3AA;
standardVbstop = $1066;
vgaColorclocks = standardColorclocks DIV 2;
vgaTotalRows = standardNtscRows*2;
vgaDeniseMin = 59;
minVgaRow = 29;
vgaHbstrt = $08;
vgaHsstrt = $0E;
vgaHsstop = $1C;
vgaHbstop = $1E;
vgaVbstrt = $000;
vgaVsstrt = $153;
vgaVsstop = $235;
vgaVbstop = $CCD;
vga70Colorclocks = standardColorclocks DIV 2;
vga70TotalRows = 449;
vga70DeniseMin = 59;
minVga70Row = 35;
vga70Hbstrt = $08;
vga70Hsstrt = $0E;
vga70Hsstop = $1C;
vga70Hbstop = $1E;
vga70Vbstrt = $000;
vga70Vsstrt = $2A6;
vga70Vsstop = $388;
vga70Vbstop = $F73;
vga70Beamcon = specialBeamcon/Beam0FlagSet:{vSyncTrue};
broadcastHbstrt = $01;
broadcastHsstrt = $06;
broadcastHsstop = $17;
broadcastHbstop = $27;
broadcastVbstrt = $000;
broadcastVsstrt = $2A6;
broadcastVsstop = $54C;
broadcastVbstop = $1C40;
broadcastBeamcon = Beam0FlagSet:{loLDis,csBlank};
ratioFixedpart = 4;
ratioUnity = LONGCARD(1) SHL ratioFixedpart;
TYPE
LongProc = PROCEDURE():LONGINT;
MonitorSpecPtr = POINTER TO MonitorSpec;
MonitorSpec = RECORD OF ExtendedNode
flags : BITSET;
ratioh : LONGINT;
ratiov : LONGINT;
totalRows : CARDINAL;
totalColorclocks : CARDINAL;
deniseMaxDisplayColumn : CARDINAL;
beamCon0 : CARDINAL;
minRow : CARDINAL;
special : SpecialMonitorPtr;
openCount : CARDINAL;
transform,
translate,
scale : LongProc;
xoffset : CARDINAL;
yoffset : CARDINAL;
legalView : Rectangle;
maxoscan : LongProc;
videoscan : LongProc;
deniseMinDisplayColumn : CARDINAL;
displayCompatible : LONGCARD;
displayInfoDataBase : List;
displayInfoDataBaseSemaphore : SignalSemaphore;
reserved : ARRAY [2] OF LONGINT;
END;
AnalogSignalIntervalPtr = POINTER TO AnalogSignalInterval;
AnalogSignalInterval=RECORD
strt,
stop : CARDINAL;
END;
SpecialMonitor = RECORD OF ExtendedNode
flags : BITSET;
doMonitor : LongProc;
reserved1,
reserved2,
reserved3 : LongProc;
hblank : AnalogSignalInterval;
vblank : AnalogSignalInterval;
hsync : AnalogSignalInterval;
vsync : AnalogSignalInterval;
END;
|
| DisplayInfo etc.
|
TYPE
DisplayInfoHandle=ANYPTR;
CONST
dtagDisp = $80000000;
dtagDims = $80001000;
dtagMntr = $80002000;
dtagName = $80003000;
TYPE
QueryHeaderPtr= POINTER TO QueryHeader;
QueryHeader = RECORD
structID : LONGCARD;
displayID : LONGCARD;
skipID : LONGCARD;
length : LONGCARD;
END;
TYPE
PropertyFlags = (isLace,isDualpf,isPf2pri,isHam,isEcs,isPal,isSprites,
isGenlock,isWb,isDraggable,isPanelled,isBeamsync,
isExtrahalfbrite,is13,is14,is15,is16);
PropertyFlagSet = SET OF PropertyFlags;
CONST
diAvailNochips = $0001;
diAvailNomonitor = $0002;
diAvailNotwithgenlock = $0004;
TYPE
PointPtr = POINTER TO Point;
Point = RECORD
x,y:INTEGER;
END;
DisplayInfo = RECORD OF QueryHeader
notAvailable : CARDINAL;
propertyFlags : PropertyFlagSet;
resolution : Point;
pixelSpeed : CARDINAL;
numStdSprites : CARDINAL;
paletteRange : CARDINAL;
spriteResolution : Point;
pad : ARRAY [4] OF SHORTCARD;
reserved2 : ARRAY [2] OF LONGINT;
END;
DimensionInfoPtr= POINTER TO DimensionInfo;
DimensionInfo = RECORD OF QueryHeader
maxDepth : CARDINAL;
minRasterWidth : CARDINAL;
minRasterHeight : CARDINAL;
maxRasterWidth : CARDINAL;
maxRasterHeight : CARDINAL;
nominal : Rectangle;
maxOScan : Rectangle;
videoOScan : Rectangle;
txtOScan : Rectangle;
stdOScan : Rectangle;
pad : ARRAY [14] OF SHORTCARD;
reserved : ARRAY [2] OF LONGINT;
END;
CONST
mcompatMixed = 0;
mcompatSelf = 1;
mcompatNobody =-1;
TYPE
MonitorInfoPtr = POINTER TO MonitorInfo;
MonitorInfo = RECORD OF QueryHeader
mspc : MonitorSpecPtr;
viewPosition : Point;
viewResolution : Point;
viewPositionRange : Rectangle;
totalRows : CARDINAL;
totalColorClocks : CARDINAL;
minRow : CARDINAL;
compatibility : INTEGER;
pad : ARRAY [36] OF SHORTCARD;
reserved : ARRAY [2] OF LONGINT;
END;
CONST
displayNameLen=32;
TYPE
NameInfoPtr = POINTER TO NameInfo;
NameInfo = RECORD
header : QueryHeader;
name : ARRAY [displayNameLen] OF CHAR;
reserved : ARRAY [2] OF LONGINT;
END;
CONST
invalidID = -1;
monitorIDmask = $FFFF1000;
defaultMonitorID = $00000000;
ntscMonitorID = $00011000;
palMonitorID = $00021000;
vgaMonitorID = $00031000;
a2024MonitorID = $00041000;
protoMonitorID = $00051000;
loresKey = $00000000;
hiresKey = $00008000;
superKey = $00008020;
hamKey = $00000800;
loreslaceKey = $00000004;
hireslaceKey = $00008004;
superlaceKey = $00008024;
hamlaceKey = $00000804;
loresdpfKey = $00000400;
hiresdpfKey = $00008400;
superdpfKey = $00008420;
loreslacedpfKey = $00000404;
hireslacedpfKey = $00008404;
superlacedpfKey = $00008424;
loresdpf2Key = $00000440;
hiresdpf2Key = $00008440;
superdpf2Key = $00008460;
loreslacedpf2Key = $00000444;
hireslacedpf2Key = $00008444;
superlacedpf2Key = $00008464;
extrahalfbriteKey = $00000080;
extrahalfbritelaceKey = $00000084;
vgaextraloresKey = $00031004;
vgaloresKey = $00039004;
vgaproductKey = $00039024;
vgahamKey = $00031804;
vgaextraloreslaceKey = $00031005;
vgaloreslaceKey = $00039005;
vgaproductlaceKey = $00039025;
vgahamlaceKey = $00031805;
vgaextraloresdpfKey = $00031404;
vgaloresdpfKey = $00039404;
vgaproductdpfKey = $00039424;
vgaextraloreslacedpfKey = $00031405;
vgaloreslacedpfKey = $00039405;
vgaproductlacedpfKey = $00039425;
vgaextraloresdpf2Key = $00031444;
vgaloresdpf2Key = $00039444;
vgaproductdpf2Key = $00039464;
vgaextraloreslacedpf2Key = $00031445;
vgaloreslacedpf2Key = $00039445;
vgaproductlacedpf2Key = $00039465;
vgaextrahalfbriteKey = $00031084;
vgaextrahalfbritelaceKey = $00031085;
a2024tenhertzKey = $00041000;
a2024fifteenhertzKey = $00049000;
|
| Ints
|
CONST
blitMsgFault=4;
TYPE
IsrvstrPtr = POINTER TO Isrvstr;
Isrvstr = RECORD OF Node
iptr : IsrvstrPtr;
code : ANYPTR;
ccode : ANYPTR;
carg : LONGINT;
END;
|
| RastPort
|
TYPE
AreaInfoPtr = POINTER TO AreaInfo;
AreaInfo = RECORD
vctrTbl : ANYPTR;
vctrPtr : ANYPTR;
flagTbl : ANYPTR;
flagPtr : ANYPTR;
count : INTEGER;
maxCount : INTEGER;
firstX : INTEGER;
firstY : INTEGER;
END;
TmpRasPtr = POINTER TO TmpRas;
TmpRas = RECORD
rasPtr : ANYPTR;
size : LONGINT;
END;
DrawModes = (dm0,complement,inversvid);
DrawModeSet = SET OF DrawModes;
CONST
jam1 = DrawModeSet:{};
jam2 = DrawModeSet:{dm0};
TYPE
Pen = SHORTCARD; | The actual pen variables
PenArrayPtr = POINTER TO PenArray;
PenArray = ARRAY OF CARDINAL; | like in Intuition.DrawInfo
RastPortFlags = (firstDot,oneDot,dBuffer,areaOutline,noCrossFill=5,
rpf8=8);
RastPortFlagSet = SET OF RastPortFlags;
RastPort = RECORD
layer : LayerPtr;
bitMap : BitMapPtr;
areaPtrn : ANYPTR;
tmpRas : TmpRasPtr;
areaInfo : AreaInfoPtr;
gelsInfo : GelsInfoPtr;
mask : SHORTSET; | used to be SHORTCARD
fgPen : SHORTCARD;
bgPen : SHORTCARD;
aOlPen : SHORTCARD; | areafill outline pen
drawMode : DrawModeSet;
areaPtSz : SHORTCARD;
linPatCnt : SHORTCARD;
dummy : SHORTCARD;
flags : RastPortFlagSet;
linePtrn : CARDINAL;
x : INTEGER; | current position
y : INTEGER;
minterms : ARRAY [8] OF SHORTCARD;
penWidth : INTEGER;
penHeight : INTEGER;
font : TextFontPtr;
algoStyle : FontStyleSet;
txFlags : FontFlagSet;
txHeight : CARDINAL;
txWidth : CARDINAL;
txBaseline : CARDINAL;
txSpacing : INTEGER;
user : ANYPTR;
longreserved : ARRAY [0..1] OF LONGINT;
wordreserved : ARRAY [0..6] OF CARDINAL;
reserved : ARRAY [0..7] OF SHORTCARD;
END;
|
| Viewport
|
TYPE
VTags = (VTAG_END = 0,
ChromaKey_Clr = $8000000,
ChromaKey_Set,
BitPlaneKey_Clr,
BitPlaneKey_Set,
BorderBlank_Clr,
BorderBlank_Set,
BorderNotrans_Clr,
BorderNotrans_Set,
ChromaPen_Clr,
ChromaPen_Set,
ChromaPlane_Set,
AttachCm_Set,
NextBufCm,
BatchCm_Clr,
BatchCm_Set,
NormalDisp_Get,
NormalDisp_Set,
CoerceDisp_Get,
CoerceDisp_Set,
ViewPortExtra_Get,
ViewPortExtra_Set,
ChromaKey_Get,
BitPlaneKey_Get,
BorderNotTrans_Get,
ChromaPen_Get,
ChromaPlane_Get,
AttachCm_Get,
BatchCm_Get,
BatchItems_Get,
BatchItems_Set,
BatchItems_Add,
VpModeId_Get,
VpModeId_Set,
VpModeId_Clr,
UserClip_Get,
UserClip_Set,
UserClip_Clr);
VTagList = ARRAY OF VTags;
ViewModes = (vm0,genlocVideo,lace,vm3,vm4,superHires,pfba,
extraHalfbrite,genlocAudio,vm9,dualpf,ham,
extendedMode,vpHide,sprites,hires);
ViewModeSet = SET OF ViewModes;
RasInfoPtr = POINTER TO RasInfo;
RasInfo = RECORD
next : RasInfoPtr;
bitMap : BitMapPtr;
rxOffset : INTEGER;
ryOffset : INTEGER;
END;
ViewPort = RECORD
next : ViewPortPtr;
colorMap : ColorMapPtr;
dspIns : CopListPtr;
sprIns : CopListPtr;
clrIns : CopListPtr;
uCopIns : UCopListPtr;
dWidth : INTEGER;
dHeight : INTEGER;
dxOffset : INTEGER;
dyOffset : INTEGER;
modes : ViewModeSet;
spritePriorities : SHORTCARD;
extendedModes : SHORTSET;
rasInfo : RasInfoPtr;
END;
ViewPtr = POINTER TO View;
View = RECORD
viewPort : ViewPortPtr;
lofCprList : CprListPtr;
shfCprList : CprListPtr;
dyOffset : INTEGER;
dxOffset : INTEGER;
modes : ViewModeSet;
END;
ViewExtraPtr = POINTER TO ViewExtra;
ViewExtra = RECORD OF ExtendedNode
view : ViewPtr;
monitor : MonitorSpecPtr;
END;
ViewPortExtra = RECORD OF ExtendedNode
viewPort : ViewPortPtr;
displayClip : Rectangle;
END;
|
| GfxBase
|
DisplayFlags = (ntsc,genloc,pal,todaSafe,df4,df5,df6,df7,
df8,df9,df10,df11,df12,df13,df14,df15);
DisplayFlagSet = SET OF DisplayFlags;
ChipRevs = (hrAgnus,hrDenise,cr2,cr3,cr4,cr5,cr6,cr7);
ChipRevSet = SET OF ChipRevs;
TYPE
GfxBasePtr = POINTER TO GfxBaseType;
GfxBaseType = RECORD OF Library
actiView : ViewPtr;
copinit : CopInitPtr;
cia : ANYPTR;
blitter : ANYPTR;
loFlist : ANYPTR;
shFlist : ANYPTR;
blthd : BltNodePtr;
blttl : BltNodePtr;
bsblthd : BltNodePtr;
bsblttl : BltNodePtr;
vbsrv : Interrupt;
timsrv : Interrupt;
bltsrv : Interrupt;
textFonts : List;
defaultFont : TextFontPtr;
modes : BITSET;
vBlank : SHORTCARD;
debug : SHORTCARD;
beamSync : INTEGER;
bplcon0 : BITSET;
spriteReserved : SHORTCARD;
bytereserved : SHORTCARD;
flags : BITSET;
blitLock : INTEGER;
blitNest : INTEGER;
blitWaitQ : List;
blitOwner : TaskPtr;
waitQ : List;
displayFlags : DisplayFlagSet;
simpleSprites : ANYPTR;
maxDisplayRow : CARDINAL;
maxDisplayColumn : CARDINAL;
normalDisplayRows : CARDINAL;
normalDisplayColumns : CARDINAL;
normalDPMX : CARDINAL;
normalDPMY : CARDINAL;
lastChanceMemory : SignalSemaphorePtr;
lcMptr : ANYPTR;
microsPerLine : CARDINAL;
minDisplayColumn : CARDINAL;
chipRevBits0 : ChipRevSet;
reservedPad : SHORTCARD;
reserved : ARRAY [4] OF SHORTCARD;
monitorId : CARDINAL;
hedley : ARRAY [8] OF ANYPTR;
hedleySprites : ARRAY [8] OF ANYPTR;
hedleySprites1 : ARRAY [8] OF ANYPTR;
hedleyCount : INTEGER;
hedleyFlags : BITSET;
hedleyTmp : INTEGER;
hashTable : ANYPTR;
currentTotRows : CARDINAL;
currentTotCclks : CARDINAL;
hedleyHint : SHORTCARD;
hedleyHint2 : SHORTCARD;
nreserved : ARRAY [4] OF LONGINT;
a2024SyncRaster : ANYPTR;
controlDeltaPal : INTEGER;
controlDeltaNtsc : INTEGER;
currentMonitor : MonitorSpecPtr;
monitorList : List;
defaultMonitor : MonitorSpecPtr;
monitorListSemaphore : SignalSemaphorePtr;
displayInfoDataBase : ANYPTR;
actiViewCprSemaphore : SignalSemaphorePtr;
utilityBase : LibraryPtr;
execBase : LibraryPtr;
END;
VAR GfxBase : GfxBasePtr;
LIBRARY GfxBase BY -156
PROCEDURE AddAnimOb( anOb IN A0 : AnimObPtr;
VAR anKey IN A1 : AnimObPtr;
rp IN A2 : RastPortPtr);
LIBRARY GfxBase BY -96
PROCEDURE AddBob( Bob IN A0 : BobPtr;
rp IN A1 : RastPortPtr);
LIBRARY GfxBase BY -480
PROCEDURE AddFont( textFont IN A1 : TextFontPtr );
LIBRARY GfxBase BY -102
PROCEDURE AddVSprite( vs IN A0 : VSpritePtr;
rp IN A1 : RastPortPtr );
LIBRARY GfxBase BY -492
PROCEDURE AllocRaster( width IN D0 : CARDINAL;
height IN D1 : CARDINAL ): ANYPTR;
LIBRARY GfxBase BY -504
PROCEDURE AndRectRegion( region IN A0 : RegionPtr;
rectangle IN A1 : RectanglePtr );
LIBRARY GfxBase BY -624
PROCEDURE AndRegionRegion( region1 IN A0 : RegionPtr;
region2 IN A1 : RegionPtr ): BOOLEAN;
LIBRARY GfxBase BY -162
PROCEDURE Animate( VAR anKey IN A0 : AnimObPtr;
rp IN A1 : RastPortPtr );
LIBRARY GfxBase BY -258
PROCEDURE AreaDraw( rp IN A1 : RastPortPtr;
x IN D0 : INTEGER;
y IN D1 : INTEGER ): BOOLEAN;
LIBRARY GfxBase BY -186
PROCEDURE AreaEllipse( rp IN A1 : RastPortPtr;
cX IN D0 : INTEGER;
cY IN D1 : INTEGER;
a IN D2 : INTEGER;
b IN D3 : INTEGER): BOOLEAN;
LIBRARY GfxBase BY -264
PROCEDURE AreaEnd( rp IN A1 : RastPortPtr ): BOOLEAN;
LIBRARY GfxBase BY -252
PROCEDURE AreaMove( rp IN A1 : RastPortPtr;
x IN D0 : INTEGER;
y IN D1 : INTEGER ): BOOLEAN;
LIBRARY GfxBase BY -474
PROCEDURE AskFont( rp IN A1 : RastPortPtr;
textAttr IN A0 : TextAttrPtr );
LIBRARY GfxBase BY -84
PROCEDURE AskSoftStyle( rp IN A1 : RastPortPtr ): FontStyleSet;
LIBRARY GfxBase BY -654
PROCEDURE AttemptLockLayerRom( layer IN A5 : LayerPtr ): BOOLEAN;
LIBRARY GfxBase BY -30
PROCEDURE BltBitMap( srcBitMap IN A0 : BitMapPtr;
srcX IN D0 : INTEGER;
srcY IN D1 : INTEGER;
dstBitMap IN A1 : BitMapPtr;
dstX IN D2 : INTEGER;
dstY IN D3 : INTEGER;
sizeX IN D4 : INTEGER;
sizeY IN D5 : INTEGER;
minterm IN D6 : SHORTCARD;
mask IN D7 : SHORTCARD;
tempA IN A2 : ANYPTR ): LONGCARD;
LIBRARY GfxBase BY -606
PROCEDURE BltBitMapRastPort( srcbm IN A0 : BitMapPtr;
srcX IN D0 : INTEGER;
srcY IN D1 : INTEGER;
destRp IN A1 : RastPortPtr;
destX IN D2 : INTEGER;
destY IN D3 : INTEGER;
sizeX IN D4 : INTEGER;
sizeY IN D5 : INTEGER;
minterm IN D6 : SHORTCARD );
LIBRARY GfxBase BY -300
PROCEDURE BltClear( memBlock IN A1 : ANYPTR;
bytecount IN D0 : LONGCARD;
flags IN D1 : LONGSET );
LIBRARY GfxBase BY -636
PROCEDURE BltMaskBitMapRastPort( srcbm IN A0 : BitMapPtr;
srcX IN D0 : INTEGER;
srcY IN D1 : INTEGER;
destRp IN A1 : RastPortPtr;
destX IN D2 : INTEGER;
destY IN D3 : INTEGER;
sizeX IN D4 : INTEGER;
sizeY IN D5 : INTEGER;
minterm IN D6 : SHORTCARD;
bltmask IN A2 : ANYPTR );
LIBRARY GfxBase BY -312
PROCEDURE BltPattern( rp IN A1 : RastPortPtr;
mask IN A0 : ANYPTR;
xl IN D0 : INTEGER;
yl IN D1 : INTEGER;
maxX IN D2 : INTEGER;
maxY IN D3 : INTEGER;
bytecnt IN D4 : INTEGER );
LIBRARY GfxBase BY -36
PROCEDURE BltTemplate( srcTemplate IN A0 : ANYPTR;
srcX IN D0 : INTEGER;
srcMod IN D1 : INTEGER;
rp IN A1 : RastPortPtr;
dstX IN D2 : INTEGER;
dstY IN D3 : INTEGER;
sizeX IN D4 : INTEGER;
sizeY IN D5 : INTEGER );
LIBRARY GfxBase BY -366
PROCEDURE CBump( c IN A1 : UCopListPtr );
LIBRARY GfxBase BY -420
PROCEDURE ChangeSprite( vp IN A0 : ViewPortPtr;
s IN A1 : SimpleSpritePtr;
newdata IN A2 : ANYPTR );
LIBRARY GfxBase BY -42
PROCEDURE ClearEOL( rp IN A1 : RastPortPtr );
LIBRARY GfxBase BY -522
PROCEDURE ClearRectRegion( region IN A0 : RegionPtr;
rectangle IN A1 : RectanglePtr ): BOOLEAN;
LIBRARY GfxBase BY -528
PROCEDURE ClearRegion( region IN A0 : RegionPtr );
LIBRARY GfxBase BY -48
PROCEDURE ClearScreen(rp IN A1 : RastPortPtr);
LIBRARY GfxBase BY -552
PROCEDURE ClipBlit( src IN A0 : RastPortPtr;
srcX IN D0 : INTEGER;
srcY IN D1 : INTEGER;
dest IN A1 : RastPortPtr;
destX IN D2 : INTEGER;
destY IN D3 : INTEGER;
xSize IN D4 : INTEGER;
ySize IN D5 : INTEGER;
minterm IN D6 : SHORTCARD );
LIBRARY GfxBase BY -78
PROCEDURE CloseFont( font IN A1 : TextFontPtr );
LIBRARY GfxBase BY -372
PROCEDURE CMove( c IN A1 : UCopListPtr;
a IN D0 : ANYPTR;
v IN D1 : INTEGER );
LIBRARY GfxBase BY -450
PROCEDURE CopySBitMap( layer IN A0 : LayerPtr );
LIBRARY GfxBase BY -378
PROCEDURE CWait( c IN A1 : UCopListPtr;
v IN D0 : INTEGER;
h IN D1 : INTEGER );
LIBRARY GfxBase BY -462
PROCEDURE DisownBlitter();
LIBRARY GfxBase BY -534
PROCEDURE DisposeRegion( region IN A0 : RegionPtr );
LIBRARY GfxBase BY -108
PROCEDURE DoCollision( rp IN A1 : RastPortPtr );
LIBRARY GfxBase BY -246
PROCEDURE Draw( rp IN A1 : RastPortPtr;
x IN D0 : INTEGER;
y IN D1 : INTEGER );
LIBRARY GfxBase BY -180
PROCEDURE DrawEllipse( rp IN A1 : RastPortPtr;
cX IN D0 : INTEGER;
cY IN D1 : INTEGER;
a IN D2 : INTEGER;
b IN D3 : INTEGER );
LIBRARY GfxBase BY -114
PROCEDURE DrawGList( rp IN A1 : RastPortPtr;
vp IN A0 : ViewPortPtr );
LIBRARY GfxBase BY -330
PROCEDURE Flood( rp IN A1 : RastPortPtr;
mode IN D2 : LONGCARD;
x IN D0 : INTEGER;
y IN D1 : INTEGER ): BOOLEAN;
LIBRARY GfxBase BY -576
PROCEDURE FreeColorMap( colorMap IN A0 : ColorMapPtr );
LIBRARY GfxBase BY -546
PROCEDURE FreeCopList( coplist IN A0 : CopListPtr );
LIBRARY GfxBase BY -564
PROCEDURE FreeCprList( cprlist IN A0 : CprListPtr );
LIBRARY GfxBase BY -600
PROCEDURE FreeGBuffers( anOb IN A0 : AnimObPtr;
rp IN A1 : RastPortPtr;
db IN D0 : BOOLEAN );
LIBRARY GfxBase BY -498
PROCEDURE FreeRaster( p IN A0 : ANYPTR;
width IN D0 : CARDINAL;
height IN D1 : CARDINAL );
LIBRARY GfxBase BY -414
PROCEDURE FreeSprite( pick IN D0 : INTEGER );
LIBRARY GfxBase BY -540
PROCEDURE FreeVPortCopLists( vp IN A0 : ViewPortPtr );
LIBRARY GfxBase BY -570
PROCEDURE GetColorMap( entries IN D0 : LONGINT ): ColorMapPtr;
LIBRARY GfxBase BY -168
PROCEDURE GetGBuffers( anOb IN A0 : AnimObPtr;
rp IN A1 : RastPortPtr;
db IN D0 : BOOLEAN ): BOOLEAN;
LIBRARY GfxBase BY -582
PROCEDURE GetRGB4( colorMap IN A0 : ColorMapPtr;
entry IN D0 : LONGINT ): LONGINT;
LIBRARY GfxBase BY -408
PROCEDURE GetSprite( sprite IN A0 : SimpleSpritePtr;
pick IN D0 : INTEGER ): INTEGER;
LIBRARY GfxBase BY -282
PROCEDURE InitArea( VAR areainfo IN A0 : AreaInfo;
buffer IN A1 : ANYPTR;
maxvectors IN D0 : INTEGER );
LIBRARY GfxBase BY -390
PROCEDURE InitBitMap( VAR bm IN A0 : BitMap;
depth IN D0 : INTEGER;
width IN D1 : INTEGER;
height IN D2 : INTEGER );
LIBRARY GfxBase BY -120
PROCEDURE InitGels( head IN A0 : VSpritePtr;
tail IN A1 : VSpritePtr;
gInfo IN A2 : GelsInfoPtr );
LIBRARY GfxBase BY -174
PROCEDURE InitGMasks( anOb IN A0 : AnimObPtr );
LIBRARY GfxBase BY -126
PROCEDURE InitMasks( vs IN A0 : VSpritePtr );
LIBRARY GfxBase BY -198
PROCEDURE InitRastPort( VAR rp IN A1 : RastPort );
LIBRARY GfxBase BY -468
PROCEDURE InitTmpRas( VAR tmpras IN A0 : TmpRas;
buffer IN A1 : ANYPTR;
size IN D0 : LONGINT );
LIBRARY GfxBase BY -360
PROCEDURE InitView( VAR view IN A1 : View );
LIBRARY GfxBase BY -204
PROCEDURE InitVPort( VAR vp IN A0 : ViewPort );
LIBRARY GfxBase BY -192
PROCEDURE LoadRGB4( vp IN A0 : ViewPortPtr;
colors IN A1 : ANYPTR;
count IN D0 : INTEGER );
LIBRARY GfxBase BY -222
PROCEDURE LoadView( view IN A1 : ViewPtr );
LIBRARY GfxBase BY -432
PROCEDURE LockLayerRom( layer IN A5 : LayerPtr );
LIBRARY GfxBase BY -216
PROCEDURE MakeVPort( view IN A0 : ViewPtr;
viewport IN A1 : ViewPortPtr );
LIBRARY GfxBase BY -240
PROCEDURE Move( rp IN A1 : RastPortPtr;
x IN D0 : INTEGER;
y IN D1 : INTEGER );
LIBRARY GfxBase BY -426
PROCEDURE MoveSprite( vp IN A0 : ViewPortPtr;
sprite IN A1 : SimpleSpritePtr;
x IN D0 : INTEGER;
y IN D1 : INTEGER );
LIBRARY GfxBase BY -210
PROCEDURE MrgCop( view IN A1 : ViewPtr );
LIBRARY GfxBase BY -516
PROCEDURE NewRegion(): RegionPtr;
LIBRARY GfxBase BY -72
PROCEDURE OpenFont( textAttr IN A0 : TextAttrPtr ): TextFontPtr;
LIBRARY GfxBase BY -510
PROCEDURE OrRectRegion( region IN A0 : RegionPtr;
rectangle IN A1 : RectanglePtr): BOOLEAN;
LIBRARY GfxBase BY -612
PROCEDURE OrRegionRegion( region1 IN A0 : RegionPtr;
region2 IN A1 : RegionPtr ): BOOLEAN;
LIBRARY GfxBase BY -456
PROCEDURE OwnBlitter();
LIBRARY GfxBase BY -336
PROCEDURE PolyDraw( rp IN A1 : RastPortPtr;
count IN D0 : INTEGER;
array IN A0 : ANYPTR );
LIBRARY GfxBase BY -276
PROCEDURE QBlit( bp IN A1 : BltNodePtr );
LIBRARY GfxBase BY -294
PROCEDURE QBSBlit( bsp IN A1 : BltNodePtr );
LIBRARY GfxBase BY -318
PROCEDURE ReadPixel( rp IN A1 : RastPortPtr;
x IN D0 : INTEGER;
y IN D1 : INTEGER ): LONGINT;
LIBRARY GfxBase BY -306
PROCEDURE RectFill( rp IN A1 : RastPortPtr;
xMin IN D0 : INTEGER;
yMin IN D1 : INTEGER;
xMax IN D2 : INTEGER;
yMax IN D3 : INTEGER );
LIBRARY GfxBase BY -486
PROCEDURE RemFont( textFont IN A1 : TextFontPtr );
LIBRARY GfxBase BY -132
PROCEDURE RemIBob( bob IN A0 : BobPtr;
rp IN A1 : RastPortPtr;
vp IN A2 : ViewPortPtr );
LIBRARY GfxBase BY -138
PROCEDURE RemVSprite( vs IN A0 : VSpritePtr );
LIBRARY GfxBase BY -396
PROCEDURE ScrollRaster( rp IN A1 : RastPortPtr;
dx IN D0 : INTEGER;
dy IN D1 : INTEGER;
xMin IN D2 : INTEGER;
yMin IN D3 : INTEGER;
xMax IN D4 : INTEGER;
yMax IN D5 : INTEGER );
LIBRARY GfxBase BY -588
PROCEDURE ScrollVPort( vp IN A0 : ViewPortPtr );
LIBRARY GfxBase BY -342
PROCEDURE SetAPen( rp IN A1 : RastPortPtr;
pen IN D0 : CARDINAL );
LIBRARY GfxBase BY -348
PROCEDURE SetBPen( rp IN A1 : RastPortPtr;
pen IN D0 : CARDINAL );
LIBRARY GfxBase BY -144
PROCEDURE SetCollision( num IN D0 : LONGCARD;
routine IN A0 : PROC;
gInfo IN A1 : GelsInfoPtr );
LIBRARY GfxBase BY -354
PROCEDURE SetDrMd( rp IN A1 : RastPortPtr;
mode IN D0 : DrawModeSet );
LIBRARY GfxBase BY -66
PROCEDURE SetFont( rp IN A1 : RastPortPtr;
font IN A0 : TextFontPtr );
LIBRARY GfxBase BY -234
PROCEDURE SetRast( rp IN A1 : RastPortPtr;
pen IN D0 : CARDINAL );
LIBRARY GfxBase BY -288
PROCEDURE SetRGB4( vp IN A0 : ViewPortPtr;
n IN D0 : CARDINAL;
r IN D1 : CARDINAL;
g IN D2 : CARDINAL;
b IN D3 : CARDINAL );
LIBRARY GfxBase BY -630
PROCEDURE SetRGB4CM( cm IN A0 : ColorMapPtr;
n IN D0 : CARDINAL;
r IN D1 : CARDINAL;
g IN D2 : CARDINAL;
b IN D3 : CARDINAL );
LIBRARY GfxBase BY -90
PROCEDURE SetSoftStyle( rp IN A1 : RastPortPtr;
style IN D0 : FontStyleSet;
enable IN D1 : FontStyleSet ): FontStyleSet;
LIBRARY GfxBase BY -150
PROCEDURE SortGList( rp IN A1 : RastPortPtr );
LIBRARY GfxBase BY -444
PROCEDURE SyncSBitMap( layer IN A0 : LayerPtr );
LIBRARY GfxBase BY -60
PROCEDURE Text( rp IN A1 : RastPortPtr;
string IN A0 : ANYPTR;
count IN D0 : LONGINT );
LIBRARY GfxBase BY -60
PROCEDURE TextStr( rp IN A1 : RastPortPtr;
REF string IN A0 : STRING;
count IN D0 : LONGINT );
LIBRARY GfxBase BY -54
PROCEDURE TextLength( rp IN A1 : RastPortPtr;
string IN A0 : ANYPTR;
count IN D0 : INTEGER ): INTEGER;
LIBRARY GfxBase BY -54
PROCEDURE TextLengthStr( rp IN A1 : RastPortPtr;
REF string IN A0 : STRING;
count IN D0 : INTEGER ): INTEGER;
LIBRARY GfxBase BY -594
PROCEDURE UCopperListInit( copperList IN A0 : UCopListPtr;
num IN D0 : LONGINT ): UCopListPtr;
LIBRARY GfxBase BY -438
PROCEDURE UnlockLayerRom( layer IN A5 : LayerPtr );
LIBRARY GfxBase BY -384
PROCEDURE VBeamPos(): LONGINT;
LIBRARY GfxBase BY -228
PROCEDURE WaitBlit();
LIBRARY GfxBase BY -402
PROCEDURE WaitBOVP( vp IN A0 : ViewPortPtr );
LIBRARY GfxBase BY -270
PROCEDURE WaitTOF();
LIBRARY GfxBase BY -324
PROCEDURE WritePixel( rp IN A1 : RastPortPtr;
x IN D0 : INTEGER;
y IN D1 : INTEGER ): BOOLEAN;
LIBRARY GfxBase BY -558
PROCEDURE XorRectRegion( region IN A0 : RegionPtr;
rectangle IN A1 : RectanglePtr ): BOOLEAN;
LIBRARY GfxBase BY -618
PROCEDURE XorRegionRegion( region1 IN A0 : RegionPtr;
region2 IN A1 : RegionPtr ): BOOLEAN;
LIBRARY GfxBase BY -660
PROCEDURE GfxNew( gfxNodeType IN D0 : LONGINT ): ANYPTR;
LIBRARY GfxBase BY -666
PROCEDURE GfxFree( gfxNodePtr IN A0 : ANYPTR );
LIBRARY GfxBase BY -672
PROCEDURE GfxAssociate( associateNode IN A0 : ANYPTR;
gfxNodePtr IN A1 : ANYPTR);
LIBRARY GfxBase BY -678
PROCEDURE BitMapScale( VAR bitScaleArgs IN A0 : BitScaleArgs );
LIBRARY GfxBase BY -684
PROCEDURE ScalerDiv( factor IN D0 : CARDINAL;
numerator IN D1 : CARDINAL;
denominator IN D2 : CARDINAL ): CARDINAL;
LIBRARY GfxBase BY -690
PROCEDURE TextExtent( rp IN A1 : RastPortPtr;
string IN A0 : ANYPTR;
count IN D0 : INTEGER;
VAR textExtent IN A2 : TextExtention );
LIBRARY GfxBase BY -690
PROCEDURE TextExtentStr( rp IN A1 : RastPortPtr;
REF string IN A0 : STRING;
count IN D0 : INTEGER;
VAR textExtent IN A2 : TextExtention );
LIBRARY GfxBase BY -696
PROCEDURE TextFit( rp IN A1 : RastPortPtr;
string IN A0 : ANYPTR;
strLen IN D0 : CARDINAL;
VAR textExtent IN A2 : TextExtention;
constrainingExtent IN A3 : TextExtentPtr;
strDirection IN D1 : INTEGER;
constrainingBitWidth IN D2 : CARDINAL;
constrainingBitHeight IN D3 : CARDINAL):LONGCARD;
LIBRARY GfxBase BY -696
PROCEDURE TextFitStr( rp IN A1 : RastPortPtr;
REF string IN A0 : STRING;
strLen IN D0 : CARDINAL;
VAR textExtent IN A2 : TextExtention;
constrainingExtent IN A3 : TextExtentPtr;
strDirection IN D1 : INTEGER;
constrainingBitWidth IN D2 : CARDINAL;
constrainingBitHeight IN D3 : CARDINAL):LONGCARD;
LIBRARY GfxBase BY -702
PROCEDURE GfxLookUp( associateNode IN A0 : ANYPTR ): ANYPTR;
LIBRARY GfxBase BY -708
PROCEDURE VideoControl( VAR colorMap IN A0 : ColorMap;
tagarray IN A1 : VTagListPtr ): BOOLEAN;
LIBRARY GfxBase BY -714
PROCEDURE OpenMonitor( VAR monitorName IN A1 : STRING;
displayID IN D0 : LONGCARD): MonitorSpecPtr;
LIBRARY GfxBase BY -720
PROCEDURE CloseMonitor( monitorSpec IN A0 : MonitorSpecPtr ): BOOLEAN;
LIBRARY GfxBase BY -726
PROCEDURE FindDisplayInfo(displayID IN D0 : LONGCARD):DisplayInfoHandle;
LIBRARY GfxBase BY -732
PROCEDURE NextDisplayInfo( displayID IN D0 : LONGCARD ): LONGCARD;
LIBRARY GfxBase BY -756
PROCEDURE GetDisplayInfoData( handle IN A0 : DisplayInfoHandle;
buf IN A1 : ANYPTR;
size IN D0 : LONGCARD;
tagID IN D1 : LONGCARD;
displayID IN D2 : LONGCARD ): LONGCARD;
LIBRARY GfxBase BY -762
PROCEDURE FontExtent( font IN A0 : TextFontPtr;
VAR fontExtent IN A1 : TextExtention );
LIBRARY GfxBase BY -768
PROCEDURE ReadPixelLine8( rp IN A0 : RastPortPtr;
xstart IN D0 : CARDINAL;
ystart IN D1 : CARDINAL;
width IN D2 : CARDINAL;
array IN A2 : ANYPTR;
tempRP IN A1 : RastPortPtr ): LONGINT;
LIBRARY GfxBase BY -774
PROCEDURE WritePixelLine8( rp IN A0 : RastPortPtr;
xstart IN D0 : CARDINAL;
ystart IN D1 : CARDINAL;
width IN D2 : CARDINAL;
array IN A2 : ANYPTR;
tempRP IN A1 : RastPortPtr ): LONGINT;
LIBRARY GfxBase BY -780
PROCEDURE ReadPixelArray8( rp IN A0 : RastPortPtr;
xstart IN D0 : CARDINAL;
ystart IN D1 : CARDINAL;
xstop IN D2 : CARDINAL;
ystop IN D3 : CARDINAL;
array IN A2 : ANYPTR;
temprp IN A1 : RastPortPtr ): LONGINT;
LIBRARY GfxBase BY -786
PROCEDURE WritePixelArray8( rp IN A0 : RastPortPtr;
xstart IN D0 : CARDINAL;
ystart IN D1 : CARDINAL;
xstop IN D2 : CARDINAL;
ystop IN D3 : CARDINAL;
array IN A2 : ANYPTR;
temprp IN A1 : RastPortPtr ): LONGINT;
LIBRARY GfxBase BY -792
PROCEDURE GetVPModeID( vp IN A0 : ViewPortPtr ): LONGCARD;
LIBRARY GfxBase BY -798
PROCEDURE ModeNotAvailable( modeID IN D0 : LONGCARD ): LONGCARD;
LIBRARY GfxBase BY -804
PROCEDURE WeighTAMatch( reqTextAttr IN A0 : TextAttrPtr;
targetTextAttr IN A1 : TextAttrPtr;
targetTags IN A2 : FontTagListPtr):CARDINAL;
LIBRARY GfxBase BY -810
PROCEDURE EraseRect( rp IN A1 : RastPortPtr;
xMin IN D0 : INTEGER;
yMin IN D1 : INTEGER;
xMax IN D2 : INTEGER;
yMax IN D3 : INTEGER );
LIBRARY GfxBase BY -816
PROCEDURE ExtendFont( font IN A0 : TextFontPtr;
fontTags IN A1 : FontTagListPtr ): LONGCARD;
LIBRARY GfxBase BY -822
PROCEDURE StripFont( font IN A0 : TextFontPtr );
GROUP
ViewGrp = RasInfo, RasInfoPtr, View,
ViewModes, ViewModeSet, ViewPort,
ViewPtr;
RasterGrp = BitMap, RastPort, RastPortFlags,
RastPortFlagSet, RastPortPtr,
AllocRaster, FreeRaster, InitBitMap,
InitRastPort;
DrMdGrp = RasterGrp,
jam1, jam2,
DrawModes, DrawModeSet,
SetAPen, SetBPen, SetDrMd,
SetRast;
| SetDrPt SetWrMsk,
DrawGrp = RastPortPtr,
ClearEOL, ClearScreen, Draw,
DrawEllipse, Move, PolyDraw,
ReadPixel, ScrollRaster, Text,
TextLength, TextLengthStr, TextStr,
WritePixel;
|DrawCircle, |TestPixel,
AreaGrp = AreaInfo, AreaInfoPtr, RastPortPtr,
TmpRas, TmpRasPtr,
AreaDraw, AreaEllipse,
AreaEnd, AreaMove, (*BndryOff,*)
Flood, InitArea, InitTmpRas,
RectFill;
|SetAfPt, SetOPen, AreaCircle;
ColorGrp = ColorMap, ColorMapPtr, Pen,
PenArray, PenArrayPtr, ViewPortPtr,
FreeColorMap, GetColorMap, GetRGB4,
LoadRGB4, SetRGB4, SetRGB4CM;
BltGrp = BitMapPtr, LONGSET, RastPortPtr,
SHORTSET,
BltBitMap, BltBitMapRastPort, BltClear,
BltClear, BltTemplate, ClipBlit,
DisownBlitter, OwnBlitter, QBlit,
QBSBlit, WaitBlit;
CopGrp = ViewGrp,
lof, move, next,
sht, wait,
CopInit, CopInitPtr, CopIns,
CopInsPtr, CopList, CopListPtr,
CprList, CprListPtr, UCopList,
UCopListPtr, ViewPortPtr, ViewPtr,
CBump, CMove, CWait,
FreeCopList, FreeVPortCopLists, InitView,
InitVPort, LoadView, MakeVPort,
MrgCop, ScrollRaster, UCopList,
UCopperListInit, VBeamPos, WaitBOVP,
WaitTOF;
|CEnd
LayerGrp = ClipRect, Isrvstr, IsrvstrPtr,
Layer, LayerFlags, LayerFlagSet,
LayerInfo, LayerPtr, Rectangle,
RectanglePtr, Region, RegionPtr,
RegionRectangle,
AndRectRegion, AndRegionRegion,
AttemptLockLayerRom,
ClearRectRegion, ClearRegion, CopySBitMap,
DisposeRegion, LockLayerRom, NewRegion,
OrRectRegion, OrRegionRegion, SyncSBitMap,
UnlockLayerRom, XorRectRegion, XorRegionRegion;
FontGrp = AddFont, AskFont, AskSoftStyle,
CloseFont, OpenFont, RemFont,
SetFont, SetSoftStyle, TextFont,
FontStyles, FontStyleSet, FontFlags,
FontFlagSet, normalFont, TextAttrPtr,
TextAttr, TextFontPtr;
GelGrp = AddAnimOb, AnimOb, RastPortPtr,
AddBob, Bob, AddVSprite,
Animate, ChangeSprite, SimpleSprite,
ViewPortPtr, DoCollision, DrawGList,
FreeGBuffers, FreeSprite, GetGBuffers,
GetSprite, |InitAnimate, InitGels,
InitGMasks, InitMasks, VSprite,
VSpritePtr, MoveSprite, |RemBob,
RemIBob, RemVSprite, SetCollision,
PROC, GelsInfoPtr, SortGList,
DBufPacketPtr, DBufPacket, BobPtr,
AnimObPtr, AnimCompPtr, AnimComp,
BobFlags, BobFlagSet, VSpriteFlags,
VSpriteFlagSet, SimpleSpritePtr, CollTablePtr,
CollTable, GelsInfo;
GfxBasicGrp = DrMdGrp, DrawGrp, AreaGrp,
ColorGrp;
All = ViewGrp, RasterGrp, DrMdGrp,
DrawGrp, AreaGrp, ColorGrp,
BltGrp, CopGrp, LayerGrp,
FontGrp, GelGrp, DisplayFlags,
DisplayFlagSet, GfxBasePtr, GfxBaseType,
GfxBase;
END Graphics.