?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Initial revision
[AROS-Contrib.git] / development / compilers / freepascal / rtl / aros / graphics.pas
blob615b35b446074aed97bceca0d400f936a5676618
1 {
2 This file is part of the Free Pascal run time library.
3
4 A file in Amiga system run time library.
5 Copyright (c) 1998 by Nils Sjoholm
6 member of the Amiga RTL development team.
7
8 See the file COPYING.FPC, included in this distribution,
9 for details about the copyright.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14
15 **********************************************************************}
16
17 unit graphics;
18
19 INTERFACE
20
21 uses exec, hardware, utility;
22
23
24 const
25
26 BITSET = $8000;
27 BITCLR = 0;
28
29 type
30
31
32 pRectangle = ^tRectangle;
33 tRectangle = record
34 MinX,MinY : Word;
35 MaxX,MaxY : Word;
36 end;
37
38 pRect32 = ^tRect32;
39 tRect32 = record
40 MinX,MinY : Longint;
41 MaxX,MaxY : Longint;
42 end;
43
44 pPoint = ^tPoint;
45 tPoint = record
46 x,y : Word;
47 end;
48
49 PLANEPTR = Pointer;
50
51 pBitMap = ^tBitMap;
52 tBitMap = record
53 BytesPerRow : Word;
54 Rows : Word;
55 Flags : Byte;
56 Depth : Byte;
57 pad : Word;
58 Planes : Array [0..7] of PLANEPTR;
59 end;
60 {* flags for AllocBitMap, etc. *}
61 const
62 BMB_CLEAR = 0;
63 BMB_DISPLAYABLE = 1;
64 BMB_INTERLEAVED = 2;
65 BMB_STANDARD = 3;
66 BMB_MINPLANES = 4;
67
68 BMF_CLEAR = (1 shl BMB_CLEAR);
69 BMF_DISPLAYABLE = (1 shl BMB_DISPLAYABLE);
70 BMF_INTERLEAVED = (1 shl BMB_INTERLEAVED);
71 BMF_STANDARD = (1 shl BMB_STANDARD);
72 BMF_MINPLANES = (1 shl BMB_MINPLANES);
73
74 {* the following are for GetBitMapAttr() *}
75 BMA_HEIGHT = 0;
76 BMA_DEPTH = 4;
77 BMA_WIDTH = 8;
78 BMA_FLAGS = 12;
79
80
81 { structures used by and constructed by windowlib.a }
82 { understood by rom software }
83 type
84 pClipRect = ^tClipRect;
85 tClipRect = record
86 Next : pClipRect; { roms used to find next ClipRect }
87 prev : pClipRect; { ignored by roms, used by windowlib }
88 lobs : Pointer; { ignored by roms, used by windowlib (LayerPtr)}
89 BitMap : pBitMap;
90 bounds : tRectangle; { set up by windowlib, used by roms }
91 _p1,
92 _p2 : Pointer; { system reserved }
93 reserved : Longint; { system use }
94 Flags : Longint; { only exists in layer allocation }
95 end;
96
97 pLayer = ^tLayer;
98 tLayer = record
99 front,
100 back : pLayer; { ignored by roms }
101 ClipRect : pClipRect; { read by roms to find first cliprect }
102 rp : Pointer; { (RastPortPtr) ignored by roms, I hope }
103 bounds : tRectangle; { ignored by roms }
104 reserved : Array [0..3] of Byte;
105 priority : Word; { system use only }
106 Flags : Word; { obscured ?, Virtual BitMap? }
107 SuperBitMap : pBitMap;
108 SuperClipRect : pClipRect; { super bitmap cliprects if
109 VBitMap != 0}
110 { else damage cliprect list for refresh }
111 Window : Pointer; { reserved for user interface use }
112 Scroll_X,
113 Scroll_Y : Word;
114 cr,
115 cr2,
116 crnew : pClipRect; { used by dedice }
117 SuperSaveClipRects : pClipRect; { preallocated cr's }
118 cliprects : pClipRect; { system use during refresh }
119 LayerInfo : Pointer; { points to head of the list }
120 Lock : tSignalSemaphore;
121 BackFill : pHook;
122 reserved1 : ULONG;
123 ClipRegion : Pointer;
124 saveClipRects : Pointer; { used to back out when in trouble}
125 Width,
126 Height : Integer;
127 reserved2 : Array [0..17] of Byte;
128 { this must stay here }
129 DamageList : Pointer; { list of rectangles to refresh
130 through }
131 end;
132
133 const
134
135 { internal cliprect flags }
136
137 CR_NEEDS_NO_CONCEALED_RASTERS = 1;
138 CR_NEEDS_NO_LAYERBLIT_DAMAGE = 2;
139
140
141 { defines for code values for getcode }
142
143 ISLESSX = 1;
144 ISLESSY = 2;
145 ISGRTRX = 4;
146 ISGRTRY = 8;
147
148
149 {------ Font Styles ------------------------------------------------}
150
151 FS_NORMAL = 0; { normal text (no style bits set) }
152 FSB_EXTENDED = 3; { extended face (wider than normal) }
153 FSF_EXTENDED = 8;
154 FSB_ITALIC = 2; { italic (slanted 1:2 right) }
155 FSF_ITALIC = 4;
156 FSB_BOLD = 1; { bold face text (ORed w/ shifted) }
157 FSF_BOLD = 2;
158 FSB_UNDERLINED = 0; { underlined (under baseline) }
159 FSF_UNDERLINED = 1;
160
161 FSB_COLORFONT = 6; { this uses ColorTextFont structure }
162 FSF_COLORFONT = $40;
163 FSB_TAGGED = 7; { the TextAttr is really an TTextAttr, }
164 FSF_TAGGED = $80;
165
166
167 {------ Font Flags -------------------------------------------------}
168 FPB_ROMFONT = 0; { font is in rom }
169 FPF_ROMFONT = 1;
170 FPB_DISKFONT = 1; { font is from diskfont.library }
171 FPF_DISKFONT = 2;
172 FPB_REVPATH = 2; { designed path is reversed (e.g. left) }
173 FPF_REVPATH = 4;
174 FPB_TALLDOT = 3; { designed for hires non-interlaced }
175 FPF_TALLDOT = 8;
176 FPB_WIDEDOT = 4; { designed for lores interlaced }
177 FPF_WIDEDOT = 16;
178 FPB_PROPORTIONAL = 5; { character sizes can vary from nominal }
179 FPF_PROPORTIONAL = 32;
180 FPB_DESIGNED = 6; { size is "designed", not constructed }
181 FPF_DESIGNED = 64;
182 FPB_REMOVED = 7; { the font has been removed }
183 FPF_REMOVED = 128;
184
185 {***** TextAttr node, matches text attributes in RastPort *********}
186
187 type
188
189 pTextAttr = ^tTextAttr;
190 tTextAttr = record
191 ta_Name : STRPTR; { name of the font }
192 ta_YSize : Word; { height of the font }
193 ta_Style : Byte; { intrinsic font style }
194 ta_Flags : Byte; { font preferences and flags }
195 end;
196
197 pTTextAttr = ^tTTextAttr;
198 tTTextAttr = record
199 tta_Name : STRPTR; { name of the font }
200 tta_YSize : Word; { height of the font }
201 tta_Style : Byte; { intrinsic font style }
202 tta_Flags : Byte; { font preferences AND flags }
203 tta_Tags : pTagItem; { extended attributes }
204 end;
205
206 {***** Text Tags **************************************************}
207 CONST
208 TA_DeviceDPI = (1+TAG_USER); { Tag value is Point union: }
209 { Hi Longint XDPI, Lo Longint YDPI }
210
211 MAXFONTMATCHWEIGHT = 32767; { perfect match from WeighTAMatch }
212
213
214
215 {***** TextFonts node *********************************************}
216 Type
217
218 pTextFont = ^tTextFont;
219 tTextFont = record
220 tf_Message : tMessage; { reply message for font removal }
221 { font name in LN \ used in this }
222 tf_YSize : Word; { font height | order to best }
223 tf_Style : Byte; { font style | match a font }
224 tf_Flags : Byte; { preferences and flags / request. }
225 tf_XSize : Word; { nominal font width }
226 tf_Baseline : Word; { distance from the top of char to baseline }
227 tf_BoldSmear : Word; { smear to affect a bold enhancement }
228
229 tf_Accessors : Word; { access count }
230
231 tf_LoChar : Byte; { the first character described here }
232 tf_HiChar : Byte; { the last character described here }
233 tf_CharData : Pointer; { the bit character data }
234
235 tf_Modulo : Word; { the row modulo for the strike font data }
236 tf_CharLoc : Pointer; { ptr to location data for the strike font }
237 { 2 words: bit offset then size }
238 tf_CharSpace : Pointer; { ptr to words of proportional spacing data }
239 tf_CharKern : Pointer; { ptr to words of kerning data }
240 end;
241
242
243 {----- tfe_Flags0 (partial definition) ----------------------------}
244 CONST
245 TE0B_NOREMFONT = 0; { disallow RemFont for this font }
246 TE0F_NOREMFONT = $01;
247
248 Type
249
250 pTextFontExtension = ^tTextFontExtension;
251 tTextFontExtension = record { this structure is read-only }
252 tfe_MatchWord : Word; { a magic cookie for the extension }
253 tfe_Flags0 : Byte; { (system private flags) }
254 tfe_Flags1 : Byte; { (system private flags) }
255 tfe_BackPtr : pTextFont; { validation of compilation }
256 tfe_OrigReplyPort : pMsgPort; { original value in tf_Extension }
257 tfe_Tags : pTagItem; { Text Tags for the font }
258 tfe_OFontPatchS, { (system private use) }
259 tfe_OFontPatchK : Pointer; { (system private use) }
260 { this space is reserved for future expansion }
261 END;
262
263 {***** ColorTextFont node *****************************************}
264 {----- ctf_Flags --------------------------------------------------}
265 CONST
266 CT_COLORMASK = $000F; { mask to get to following color styles }
267 CT_COLORFONT = $0001; { color map contains designer's colors }
268 CT_GREYFONT = $0002; { color map describes even-stepped }
269 { brightnesses from low to high }
270 CT_ANTIALIAS = $0004; { zero background thru fully saturated char }
271
272 CTB_MAPCOLOR = 0; { map ctf_FgColor to the rp_FgPen IF it's }
273 CTF_MAPCOLOR = $0001; { is a valid color within ctf_Low..ctf_High }
274
275 {----- ColorFontColors --------------------------------------------}
276 Type
277 pColorFontColors = ^tColorFontColors;
278 tColorFontColors = record
279 cfc_Reserved, { *must* be zero }
280 cfc_Count : Word; { number of entries in cfc_ColorTable }
281 cfc_ColorTable : Pointer; { 4 bit per component color map packed xRGB }
282 END;
283
284 {----- ColorTextFont ----------------------------------------------}
285
286 pColorTextFont = ^tColorTextFont;
287 tColorTextFont = record
288 ctf_TF : tTextFont;
289 ctf_Flags : Word; { extended flags }
290 ctf_Depth, { number of bit planes }
291 ctf_FgColor, { color that is remapped to FgPen }
292 ctf_Low, { lowest color represented here }
293 ctf_High, { highest color represented here }
294 ctf_PlanePick, { PlanePick ala Images }
295 ctf_PlaneOnOff : Byte; { PlaneOnOff ala Images }
296 ctf_ColorFontColors : pColorFontColors; { colors for font }
297 ctf_CharData : Array[0..7] of APTR; {pointers to bit planes ala tf_CharData }
298 END;
299
300 {***** TextExtent node ********************************************}
301
302 pTextExtent = ^tTextExtent;
303 tTextExtent = record
304 te_Width, { same as TextLength }
305 te_Height : Word; { same as tf_YSize }
306 te_Extent : tRectangle; { relative to CP }
307 END;
308
309
310 const
311
312 COPPER_MOVE = 0; { pseude opcode for move #XXXX,dir }
313 COPPER_WAIT = 1; { pseudo opcode for wait y,x }
314 CPRNXTBUF = 2; { continue processing with next buffer }
315 CPR_NT_LOF = $8000; { copper instruction only for Longint frames }
316 CPR_NT_SHT = $4000; { copper instruction only for long frames }
317 CPR_NT_SYS = $2000; { copper user instruction only }
318 type
319
320 { Note: The combination VWaitAddr and HWaitAddr replace a three way
321 union in C. The three possibilities are:
322
323 nxtList : CopListPtr; or
324
325 VWaitPos : Longint;
326 HWaitPos : Longint; or
327
328 DestAddr : Longint;
329 DestData : Longint;
330 }
331
332 pCopIns = ^tCopIns;
333 tCopIns = record
334 OpCode : Integer; { 0 = move, 1 = wait }
335 VWaitAddr : Integer; { vertical or horizontal wait position }
336 HWaitData : Integer; { destination Pointer or data to send }
337 end;
338
339 { structure of cprlist that points to list that hardware actually executes }
340
341 pcprlist = ^tcprlist;
342 tcprlist = record
343 Next : pcprlist;
344 start : pInteger; { start of copper list }
345 MaxCount : Integer; { number of long instructions }
346 end;
347
348 pCopList = ^tCopList;
349 tCopList = record
350 Next : pCopList; { next block for this copper list }
351 CopList : pCopList; { system use }
352 ViewPort : Pointer; { system use }
353 CopIns : pCopIns; { start of this block }
354 CopPtr : pCopIns; { intermediate ptr }
355 CopLStart : pInteger; { mrgcop fills this in for Long Frame}
356 CopSStart : pInteger; { mrgcop fills this in for Longint Frame}
357 Count : Integer; { intermediate counter }
358 MaxCount : Integer; { max # of copins for this block }
359 DyOffset : Integer; { offset this copper list vertical waits }
360 SLRepeat : Word;
361 Flags : Word;
362 end;
363
364 pUCopList = ^tUCopList;
365 tUCopList = record
366 Next : pUCopList;
367 FirstCopList : pCopList; { head node of this copper list }
368 CopList : pCopList; { node in use }
369 end;
370
371 pcopinit = ^tcopinit;
372 tcopinit = record
373 vsync_hblank : array [0..1] of word;
374 diagstrt : Array [0..11] of word;
375 fm0 : array [0..1] of word;
376 diwstart : array [0..9] of word;
377 bplcon2 : array [0..1] of word;
378 sprfix : array [0..(2*8)] of word;
379 sprstrtup : Array [0..(2*8*2)] of Word;
380 wait14 : array [0..1] of word;
381 norm_hblank : array [0..1] of word;
382 jump : array [0..1] of word;
383 wait_forever : array [0..5] of word;
384 sprstop : Array [0..7] of Word;
385 end;
386
387
388
389 pAreaInfo = ^tAreaInfo;
390 tAreaInfo = record
391 VctrTbl : Pointer; { ptr to start of vector table }
392 VctrPtr : Pointer; { ptr to current vertex }
393 FlagTbl : Pointer; { ptr to start of vector flag table }
394 FlagPtr : Pointer; { ptrs to areafill flags }
395 Count : Integer; { number of vertices in list }
396 MaxCount : Integer; { AreaMove/Draw will not allow Count>MaxCount}
397 FirstX,
398 FirstY : Integer; { first point for this polygon }
399 end;
400
401 pTmpRas = ^tTmpRas;
402 tTmpRas = record
403 RasPtr : Pointer;
404 Size : Longint;
405 end;
406
407 { unoptimized for 32bit alignment of pointers }
408
409 pGelsInfo = ^tGelsInfo;
410 tGelsInfo = record
411 sprRsrvd : Shortint; { flag of which sprites to reserve from
412 vsprite system }
413 Flags : Byte; { system use }
414 gelHead,
415 gelTail : Pointer; { (VSpritePtr) dummy vSprites for list management}
416
417 { pointer to array of 8 WORDS for sprite available lines }
418
419 nextLine : Pointer;
420
421 { pointer to array of 8 pointers for color-last-assigned to vSprites }
422
423 lastColor : Pointer;
424 collHandler : Pointer; { (collTablePtr) Pointeres of collision routines }
425 leftmost,
426 rightmost,
427 topmost,
428 bottommost : Integer;
429 firstBlissObj,
430 lastBlissObj : Pointer; { system use only }
431 end;
432
433 pRastPort = ^tRastPort;
434 tRastPort = record
435 Layer : pLayer; { LayerPtr }
436 BitMap : pBitMap; { BitMapPtr }
437 AreaPtrn : Pointer; { ptr to areafill pattern }
438 TmpRas : pTmpRas;
439 AreaInfo : pAreaInfo;
440 GelsInfo : pGelsInfo;
441 Mask : Byte; { write mask for this raster }
442 FgPen : Shortint; { foreground pen for this raster }
443 BgPen : Shortint; { background pen }
444 AOlPen : Shortint; { areafill outline pen }
445 DrawMode : Shortint; { drawing mode for fill, lines, and text }
446 AreaPtSz : Shortint; { 2^n words for areafill pattern }
447 linpatcnt : Shortint; { current line drawing pattern preshift }
448 dummy : Shortint;
449 Flags : Word; { miscellaneous control bits }
450 LinePtrn : Word; { 16 bits for textured lines }
451 cp_x,
452 cp_y : Integer; { current pen position }
453 minterms : Array [0..7] of Byte;
454 PenWidth : Integer;
455 PenHeight : Integer;
456 Font : pTextFont; { (TextFontPtr) current font Pointer }
457 AlgoStyle : Byte; { the algorithmically generated style }
458 TxFlags : Byte; { text specific flags }
459 TxHeight : Word; { text height }
460 TxWidth : Word; { text nominal width }
461 TxBaseline : Word; { text baseline }
462 TxSpacing : Integer; { text spacing (per character) }
463 RP_User : Pointer;
464 longreserved : Array [0..1] of ULONG;
465 wordreserved : Array [0..6] of Word; { used to be a node }
466 reserved : Array [0..7] of Byte; { for future use }
467 end;
468
469 const
470
471 { drawing modes }
472
473 JAM1 = 0; { jam 1 color into raster }
474 JAM2 = 1; { jam 2 colors into raster }
475 COMPLEMENT = 2; { XOR bits into raster }
476 INVERSVID = 4; { inverse video for drawing modes }
477
478 { these are the flag bits for RastPort flags }
479
480 FRST_DOT = $01; { draw the first dot of this line ? }
481 ONE_DOT = $02; { use one dot mode for drawing lines }
482 DBUFFER = $04; { flag set when RastPorts are double-buffered }
483
484 { only used for bobs }
485
486 AREAOUTLINE = $08; { used by areafiller }
487 NOCROSSFILL = $20; { areafills have no crossovers }
488
489 { there is only one style of clipping: raster clipping }
490 { this preserves the continuity of jaggies regardless of clip window }
491 { When drawing into a RastPort, if the ptr to ClipRect is nil then there }
492 { is no clipping done, this is dangerous but useful for speed }
493
494
495 Const
496 CleanUp = $40;
497 CleanMe = CleanUp;
498
499 BltClearWait = 1; { Waits for blit to finish }
500 BltClearXY = 2; { Use Row/Bytes per row method }
501
502 { Useful minterms }
503
504 StraightCopy = $C0; { Vanilla copy }
505 InvertAndCopy = $30; { Invert the source before copy }
506 InvertDest = $50; { Forget source, invert dest }
507
508
509 { mode coercion definitions }
510
511 const
512 { These flags are passed (in combination) to CoerceMode() to determine the
513 * type of coercion required.
514 }
515
516 { Ensure that the mode coerced to can display just as many colours as the
517 * ViewPort being coerced.
518 }
519 PRESERVE_COLORS = 1;
520
521 { Ensure that the mode coerced to is not interlaced. }
522 AVOID_FLICKER = 2;
523
524 { Coercion should ignore monitor compatibility issues. }
525 IGNORE_MCOMPAT = 4;
526
527
528 BIDTAG_COERCE = 1; { Private }
529
530 const
531
532 { VSprite flags }
533 { user-set VSprite flags: }
534
535 SUSERFLAGS = $00FF; { mask of all user-settable VSprite-flags }
536 VSPRITE_f = $0001; { set if VSprite, clear if Bob }
537 { VSPRITE had to be changed for name conflict }
538 SAVEBACK = $0002; { set if background is to be saved/restored }
539 OVERLAY = $0004; { set to mask image of Bob onto background }
540 MUSTDRAW = $0008; { set if VSprite absolutely must be drawn }
541
542 { system-set VSprite flags: }
543
544 BACKSAVED = $0100; { this Bob's background has been saved }
545 BOBUPDATE = $0200; { temporary flag, useless to outside world }
546 GELGONE = $0400; { set if gel is completely clipped (offscreen) }
547 VSOVERFLOW = $0800; { VSprite overflow (if MUSTDRAW set we draw!) }
548
549 { Bob flags }
550 { these are the user flag bits }
551
552 BUSERFLAGS = $00FF; { mask of all user-settable Bob-flags }
553 SAVEBOB = $0001; { set to not erase Bob }
554 BOBISCOMP = $0002; { set to identify Bob as AnimComp }
555
556 { these are the system flag bits }
557
558 BWAITING = $0100; { set while Bob is waiting on 'after' }
559 BDRAWN = $0200; { set when Bob is drawn this DrawG pass}
560 BOBSAWAY = $0400; { set to initiate removal of Bob }
561 BOBNIX = $0800; { set when Bob is completely removed }
562 SAVEPRESERVE = $1000; { for back-restore during double-buffer}
563 OUTSTEP = $2000; { for double-clearing if double-buffer }
564
565 { defines for the animation procedures }
566
567 ANFRACSIZE = 6;
568 ANIMHALF = $0020;
569 RINGTRIGGER = $0001;
570
571
572 { UserStuff definitions
573 * the user can define these to be a single variable or a sub-structure
574 * if undefined by the user, the system turns these into innocuous variables
575 * see the manual for a thorough definition of the UserStuff definitions
576 *
577 }
578
579 type
580
581 VUserStuff = Integer; { Sprite user stuff }
582 BUserStuff = Integer; { Bob user stuff }
583 AUserStuff = Integer; { AnimOb user stuff }
584
585 {********************** GEL STRUCTURES **********************************}
586
587 pVSprite = ^tVSprite;
588 tVSprite = record
589
590 { --------------------- SYSTEM VARIABLES ------------------------------- }
591 { GEL linked list forward/backward pointers sorted by y,x value }
592
593 NextVSprite : pVSprite;
594 PrevVSprite : pVSprite;
595
596 { GEL draw list constructed in the order the Bobs are actually drawn, then
597 * list is copied to clear list
598 * must be here in VSprite for system boundary detection
599 }
600
601 DrawPath : pVSprite; { pointer of overlay drawing }
602 ClearPath : pVSprite; { pointer for overlay clearing }
603
604 { the VSprite positions are defined in (y,x) order to make sorting
605 * sorting easier, since (y,x) as a long Longint
606 }
607
608 OldY, OldX : Integer; { previous position }
609
610 { --------------------- COMMON VARIABLES --------------------------------- }
611
612 Flags : Integer; { VSprite flags }
613
614
615 { --------------------- USER VARIABLES ----------------------------------- }
616 { the VSprite positions are defined in (y,x) order to make sorting
617 * sorting easier, since (y,x) as a long Longint
618 }
619
620 Y, X : Integer; { screen position }
621
622 Height : Integer;
623 Width : Integer; { number of words per row of image data }
624 Depth : Integer; { number of planes of data }
625
626 MeMask : Integer; { which types can collide with this VSprite}
627 HitMask : Integer; { which types this VSprite can collide with}
628
629 ImageData : Pointer; { pointer to VSprite image }
630
631 { borderLine is the one-dimensional logical OR of all
632 * the VSprite bits, used for fast collision detection of edge
633 }
634
635 BorderLine : Pointer; { logical OR of all VSprite bits }
636 CollMask : Pointer; { similar to above except this is a matrix }
637
638 { pointer to this VSprite's color definitions (not used by Bobs) }
639
640 SprColors : Pointer;
641
642 VSBob : Pointer; { (BobPtr) points home if this VSprite
643 is part of a Bob }
644
645 { planePick flag: set bit selects a plane from image, clear bit selects
646 * use of shadow mask for that plane
647 * OnOff flag: if using shadow mask to fill plane, this bit (corresponding
648 * to bit in planePick) describes whether to fill with 0's or 1's
649 * There are two uses for these flags:
650 * - if this is the VSprite of a Bob, these flags describe how the Bob
651 * is to be drawn into memory
652 * - if this is a simple VSprite and the user intends on setting the
653 * MUSTDRAW flag of the VSprite, these flags must be set too to describe
654 * which color registers the user wants for the image
655 }
656
657 PlanePick : Shortint;
658 PlaneOnOff : Shortint;
659
660 VUserExt : VUserStuff; { user definable: see note above }
661 end;
662
663
664
665
666 { dBufPacket defines the values needed to be saved across buffer to buffer
667 * when in double-buffer mode
668 }
669
670 pDBufPacket = ^tDBufPacket;
671 tDBufPacket = record
672 BufY,
673 BufX : Word; { save other buffers screen coordinates }
674 BufPath : pVSprite; { carry the draw path over the gap }
675
676 { these pointers must be filled in by the user }
677 { pointer to other buffer's background save buffer }
678
679 BufBuffer : Pointer;
680 end;
681
682
683
684
685
686 pBob = ^tBob;
687 tBob = record
688 { blitter-objects }
689
690 { --------------------- SYSTEM VARIABLES --------------------------------- }
691
692 { --------------------- COMMON VARIABLES --------------------------------- }
693
694 Flags : Integer; { general purpose flags (see definitions below) }
695
696 { --------------------- USER VARIABLES ----------------------------------- }
697
698 SaveBuffer : Pointer; { pointer to the buffer for background save }
699
700 { used by Bobs for "cookie-cutting" and multi-plane masking }
701
702 ImageShadow : Pointer;
703
704 { pointer to BOBs for sequenced drawing of Bobs
705 * for correct overlaying of multiple component animations
706 }
707 Before : pBob; { draw this Bob before Bob pointed to by before }
708 After : pBob; { draw this Bob after Bob pointed to by after }
709
710 BobVSprite : pVSprite; { this Bob's VSprite definition }
711
712 BobComp : Pointer; { (AnimCompPtr) pointer to this Bob's AnimComp def }
713
714 DBuffer : Pointer; { pointer to this Bob's dBuf packet }
715
716 BUserExt : BUserStuff; { Bob user extension }
717 end;
718
719 pAnimComp = ^tAnimComp;
720 tAnimComp = record
721
722 { --------------------- SYSTEM VARIABLES --------------------------------- }
723
724 { --------------------- COMMON VARIABLES --------------------------------- }
725
726 Flags : Integer; { AnimComp flags for system & user }
727
728 { timer defines how long to keep this component active:
729 * if set non-zero, timer decrements to zero then switches to nextSeq
730 * if set to zero, AnimComp never switches
731 }
732
733 Timer : Integer;
734
735 { --------------------- USER VARIABLES ----------------------------------- }
736 { initial value for timer when the AnimComp is activated by the system }
737
738 TimeSet : Integer;
739
740 { pointer to next and previous components of animation object }
741
742 NextComp : pAnimComp;
743 PrevComp : pAnimComp;
744
745 { pointer to component component definition of next image in sequence }
746
747 NextSeq : pAnimComp;
748 PrevSeq : pAnimComp;
749
750 AnimCRoutine : Pointer; { Pointer of special animation procedure }
751
752 YTrans : Integer; { initial y translation (if this is a component) }
753 XTrans : Integer; { initial x translation (if this is a component) }
754
755 HeadOb : Pointer; { AnimObPtr }
756
757 AnimBob : pBob;
758 end;
759
760 pAnimOb = ^tAnimOb;
761 tAnimOb = record
762
763 { --------------------- SYSTEM VARIABLES --------------------------------- }
764
765 NextOb,
766 PrevOb : pAnimOb;
767
768 { number of calls to Animate this AnimOb has endured }
769
770 Clock : Longint;
771
772 AnOldY,
773 AnOldX : Integer; { old y,x coordinates }
774
775 { --------------------- COMMON VARIABLES --------------------------------- }
776
777 AnY,
778 AnX : Integer; { y,x coordinates of the AnimOb }
779
780 { --------------------- USER VARIABLES ----------------------------------- }
781
782 YVel,
783 XVel : Integer; { velocities of this object }
784 YAccel,
785 XAccel : Integer; { accelerations of this object }
786
787 RingYTrans,
788 RingXTrans : Integer; { ring translation values }
789
790 AnimORoutine : Pointer; { Pointer of special animation
791 procedure }
792
793 HeadComp : pAnimComp; { pointer to first component }
794
795 AUserExt : AUserStuff; { AnimOb user extension }
796 end;
797
798 ppAnimOb = ^pAnimOb;
799
800
801 { ************************************************************************ }
802
803 const
804
805 B2NORM = 0;
806 B2SWAP = 1;
807 B2BOBBER = 2;
808
809 { ************************************************************************ }
810
811 type
812
813 { a structure to contain the 16 collision procedure addresses }
814
815 collTable = Array [0..15] of Pointer;
816 pcollTable = ^collTable;
817
818 const
819
820 { These bit descriptors are used by the GEL collide routines.
821 * These bits are set in the hitMask and meMask variables of
822 * a GEL to describe whether or not these types of collisions
823 * can affect the GEL. BNDRY_HIT is described further below;
824 * this bit is permanently assigned as the boundary-hit flag.
825 * The other bit GEL_HIT is meant only as a default to cover
826 * any GEL hitting any other; the user may redefine this bit.
827 }
828
829 BORDERHIT = 0;
830
831 { These bit descriptors are used by the GEL boundry hit routines.
832 * When the user's boundry-hit routine is called (via the argument
833 * set by a call to SetCollision) the first argument passed to
834 * the user's routine is the Pointer of the GEL involved in the
835 * boundry-hit, and the second argument has the appropriate bit(s)
836 * set to describe which boundry was surpassed
837 }
838
839 TOPHIT = 1;
840 BOTTOMHIT = 2;
841 LEFTHIT = 4;
842 RIGHTHIT = 8;
843
844 Type
845 pExtendedNode = ^tExtendedNode;
846 tExtendedNode = record
847 xln_Succ,
848 xln_Pred : pNode;
849 xln_Type : Byte;
850 xln_Pri : Shortint;
851 xln_Name : STRPTR;
852 xln_Subsystem : Byte;
853 xln_Subtype : Byte;
854 xln_Library : Longint;
855 xln_Init : Pointer;
856 END;
857
858 CONST
859 SS_GRAPHICS = $02;
860
861 VIEW_EXTRA_TYPE = 1;
862 VIEWPORT_EXTRA_TYPE = 2;
863 SPECIAL_MONITOR_TYPE = 3;
864 MONITOR_SPEC_TYPE = 4;
865
866 type
867
868 { structure used by AddTOFTask }
869
870 pIsrvstr = ^tIsrvstr;
871 tIsrvstr = record
872 is_Node : tNode;
873 Iptr : pIsrvstr; { passed to srvr by os }
874 code : Pointer;
875 ccode : Pointer;
876 Carg : Pointer;
877 end;
878
879 Type
880 pAnalogSignalInterval = ^tAnalogSignalInterval;
881 tAnalogSignalInterval = record
882 asi_Start,
883 asi_Stop : Word;
884 END;
885
886 pSpecialMonitor = ^tSpecialMonitor;
887 tSpecialMonitor = record
888 spm_Node : tExtendedNode;
889 spm_Flags : Word;
890 do_monitor,
891 reserved1,
892 reserved2,
893 reserved3 : Pointer;
894 hblank,
895 vblank,
896 hsync,
897 vsync : tAnalogSignalInterval;
898 END;
899
900
901 pMonitorSpec = ^tMonitorSpec;
902 tMonitorSpec = record
903 ms_Node : tExtendedNode;
904 ms_Flags : Word;
905 ratioh,
906 ratiov : Longint;
907 total_rows,
908 total_colorclocks,
909 DeniseMaxDisplayColumn,
910 BeamCon0,
911 min_row : Word;
912 ms_Special : pSpecialMonitor;
913 ms_OpenCount : Word;
914 ms_transform,
915 ms_translate,
916 ms_scale : Pointer;
917 ms_xoffset,
918 ms_yoffset : Word;
919 ms_LegalView : tRectangle;
920 ms_maxoscan, { maximum legal overscan }
921 ms_videoscan : Pointer; { video display overscan }
922 DeniseMinDisplayColumn : Word;
923 DisplayCompatible : ULONG;
924 DisplayInfoDataBase : tList;
925 DisplayInfoDataBaseSemaphore : tSignalSemaphore;
926 ms_MrgCop,
927 ms_LoadView,
928 ms_KillView : Longint;
929 END;
930
931 const
932 TO_MONITOR = 0;
933 FROM_MONITOR = 1;
934 STANDARD_XOFFSET = 9;
935 STANDARD_YOFFSET = 0;
936
937 MSB_REQUEST_NTSC = 0;
938 MSB_REQUEST_PAL = 1;
939 MSB_REQUEST_SPECIAL = 2;
940 MSB_REQUEST_A2024 = 3;
941 MSB_DOUBLE_SPRITES = 4;
942 MSF_REQUEST_NTSC = 1;
943 MSF_REQUEST_PAL = 2;
944 MSF_REQUEST_SPECIAL = 4;
945 MSF_REQUEST_A2024 = 8;
946 MSF_DOUBLE_SPRITES = 16;
947
948
949 { obsolete, v37 compatible definitions follow }
950 REQUEST_NTSC = 1;
951 REQUEST_PAL = 2;
952 REQUEST_SPECIAL = 4;
953 REQUEST_A2024 = 8;
954
955 DEFAULT_MONITOR_NAME : PChar = 'default.monitor';
956 NTSC_MONITOR_NAME : PChar = 'ntsc.monitor';
957 PAL_MONITOR_NAME : PChar = 'pal.monitor';
958 STANDARD_MONITOR_MASK = ( REQUEST_NTSC OR REQUEST_PAL ) ;
959
960 STANDARD_NTSC_ROWS = 262;
961 STANDARD_PAL_ROWS = 312;
962 STANDARD_COLORCLOCKS = 226;
963 STANDARD_DENISE_MAX = 455;
964 STANDARD_DENISE_MIN = 93 ;
965 STANDARD_NTSC_BEAMCON = $0000;
966 STANDARD_PAL_BEAMCON = DISPLAYPAL ;
967
968 SPECIAL_BEAMCON = ( VARVBLANK OR LOLDIS OR VARVSYNC OR VARHSYNC OR VARBEAM OR CSBLANK OR VSYNCTRUE);
969
970 MIN_NTSC_ROW = 21 ;
971 MIN_PAL_ROW = 29 ;
972 STANDARD_VIEW_X = $81 ;
973 STANDARD_VIEW_Y = $2C ;
974 STANDARD_HBSTRT = $06 ;
975 STANDARD_HSSTRT = $0B ;
976 STANDARD_HSSTOP = $1C ;
977 STANDARD_HBSTOP = $2C ;
978 STANDARD_VBSTRT = $0122;
979 STANDARD_VSSTRT = $02A6;
980 STANDARD_VSSTOP = $03AA;
981 STANDARD_VBSTOP = $1066;
982
983 VGA_COLORCLOCKS = (STANDARD_COLORCLOCKS/2);
984 VGA_TOTAL_ROWS = (STANDARD_NTSC_ROWS*2);
985 VGA_DENISE_MIN = 59 ;
986 MIN_VGA_ROW = 29 ;
987 VGA_HBSTRT = $08 ;
988 VGA_HSSTRT = $0E ;
989 VGA_HSSTOP = $1C ;
990 VGA_HBSTOP = $1E ;
991 VGA_VBSTRT = $0000;
992 VGA_VSSTRT = $0153;
993 VGA_VSSTOP = $0235;
994 VGA_VBSTOP = $0CCD;
995
996 VGA_MONITOR_NAME : PChar = 'vga.monitor';
997
998 { NOTE: VGA70 definitions are obsolete - a VGA70 monitor has never been
999 * implemented.
1000 }
1001 VGA70_COLORCLOCKS = (STANDARD_COLORCLOCKS/2) ;
1002 VGA70_TOTAL_ROWS = 449;
1003 VGA70_DENISE_MIN = 59;
1004 MIN_VGA70_ROW = 35 ;
1005 VGA70_HBSTRT = $08 ;
1006 VGA70_HSSTRT = $0E ;
1007 VGA70_HSSTOP = $1C ;
1008 VGA70_HBSTOP = $1E ;
1009 VGA70_VBSTRT = $0000;
1010 VGA70_VSSTRT = $02A6;
1011 VGA70_VSSTOP = $0388;
1012 VGA70_VBSTOP = $0F73;
1013
1014 VGA70_BEAMCON = (SPECIAL_BEAMCON XOR VSYNCTRUE);
1015 VGA70_MONITOR_NAME : PChar = 'vga70.monitor';
1016
1017 BROADCAST_HBSTRT = $01 ;
1018 BROADCAST_HSSTRT = $06 ;
1019 BROADCAST_HSSTOP = $17 ;
1020 BROADCAST_HBSTOP = $27 ;
1021 BROADCAST_VBSTRT = $0000;
1022 BROADCAST_VSSTRT = $02A6;
1023 BROADCAST_VSSTOP = $054C;
1024 BROADCAST_VBSTOP = $1C40;
1025 BROADCAST_BEAMCON = ( LOLDIS OR CSBLANK );
1026 RATIO_FIXEDPART = 4;
1027 RATIO_UNITY = 16;
1028
1029
1030
1031 Type
1032 pRasInfo = ^tRasInfo;
1033 tRasInfo = record { used by callers to and InitDspC() }
1034 Next : pRasInfo; { used for dualpf }
1035 BitMap : pBitMap;
1036 RxOffset,
1037 RyOffset : Integer; { scroll offsets in this BitMap }
1038 end;
1039
1040
1041 pView = ^tView;
1042 tView = record
1043 ViewPort : Pointer; { ViewPortPtr }
1044 LOFCprList : pcprlist; { used for interlaced and noninterlaced }
1045 SHFCprList : pcprlist; { only used during interlace }
1046 DyOffset,
1047 DxOffset : Integer; { for complete View positioning }
1048 { offsets are +- adjustments to standard #s }
1049 Modes : WORD; { such as INTERLACE, GENLOC }
1050 end;
1051
1052 { these structures are obtained via GfxNew }
1053 { and disposed by GfxFree }
1054 Type
1055 pViewExtra = ^tViewExtra;
1056 tViewExtra = record
1057 n : tExtendedNode;
1058 View : pView; { backwards link } { view in C-Includes }
1059 Monitor : pMonitorSpec; { monitors for this view }
1060 TopLine : Word;
1061 END;
1062
1063
1064 pViewPort = ^tViewPort;
1065 tViewPort = record
1066 Next : pViewPort;
1067 ColorMap : Pointer; { table of colors for this viewport } { ColorMapPtr }
1068 { if this is nil, MakeVPort assumes default values }
1069 DspIns : pCopList; { user by MakeView() }
1070 SprIns : pCopList; { used by sprite stuff }
1071 ClrIns : pCopList; { used by sprite stuff }
1072 UCopIns : pUCopList; { User copper list }
1073 DWidth,
1074 DHeight : Integer;
1075 DxOffset,
1076 DyOffset : Integer;
1077 Modes : Word;
1078 SpritePriorities : Byte; { used by makevp }
1079 reserved : Byte;
1080 RasInfo : pRasInfo;
1081 end;
1082
1083
1084 { this structure is obtained via GfxNew }
1085 { and disposed by GfxFree }
1086
1087 pViewPortExtra = ^tViewPortExtra;
1088 tViewPortExtra = record
1089 n : tExtendedNode;
1090 ViewPort : pViewPort; { backwards link } { ViewPort in C-Includes }
1091 DisplayClip : tRectangle; { makevp display clipping information }
1092 { These are added for V39 }
1093 VecTable : Pointer; { Private }
1094 DriverData : Array[0..1] of Pointer;
1095 Flags : WORD;
1096 Origin : Array[0..1] of tPoint; { First visible point relative to the DClip.
1097 * One for each possible playfield.
1098 }
1099 cop1ptr, { private }
1100 cop2ptr : ULONG; { private }
1101 END;
1102
1103
1104 pColorMap = ^tColorMap;
1105 tColorMap = record
1106 Flags : Byte;
1107 CType : Byte; { This is "Type" in C includes }
1108 Count : Word;
1109 ColorTable : Pointer;
1110 cm_vpe : pViewPortExtra;
1111 LowColorBits : Pointer;
1112 TransparencyPlane,
1113 SpriteResolution,
1114 SpriteResDefault,
1115 AuxFlags : Byte;
1116 cm_vp : pViewPort; { ViewPortPtr }
1117 NormalDisplayInfo,
1118 CoerceDisplayInfo : Pointer;
1119 cm_batch_items : pTagItem;
1120 VPModeID : ULONG;
1121 PalExtra : Pointer;
1122 SpriteBase_Even,
1123 SpriteBase_Odd,
1124 Bp_0_base,
1125 Bp_1_base : Word;
1126 end;
1127
1128 { if Type == 0 then ColorMap is V1.2/V1.3 compatible }
1129 { if Type != 0 then ColorMap is V36 compatible }
1130 { the system will never create other than V39 type colormaps when running V39 }
1131
1132 CONST
1133 COLORMAP_TYPE_V1_2 = $00;
1134 COLORMAP_TYPE_V1_4 = $01;
1135 COLORMAP_TYPE_V36 = COLORMAP_TYPE_V1_4; { use this definition }
1136 COLORMAP_TYPE_V39 = $02;
1137
1138
1139 { Flags variable }
1140 COLORMAP_TRANSPARENCY = $01;
1141 COLORPLANE_TRANSPARENCY = $02;
1142 BORDER_BLANKING = $04;
1143 BORDER_NOTRANSPARENCY = $08;
1144 VIDEOCONTROL_BATCH = $10;
1145 USER_COPPER_CLIP = $20;
1146
1147
1148 CONST
1149 EXTEND_VSTRUCT = $1000; { unused bit in Modes field of View }
1150
1151
1152 { defines used for Modes in IVPargs }
1153
1154 CONST
1155 GENLOCK_VIDEO = $0002;
1156 LACE = $0004;
1157 SUPERHIRES = $0020;
1158 PFBA = $0040;
1159 EXTRA_HALFBRITE= $0080;
1160 GENLOCK_AUDIO = $0100;
1161 DUALPF = $0400;
1162 HAM = $0800;
1163 EXTENDED_MODE = $1000;
1164 VP_HIDE = $2000;
1165 SPRITES = $4000;
1166 HIRES = $8000;
1167
1168 VPF_A2024 = $40;
1169 VPF_AGNUS = $20;
1170 VPF_TENHZ = $20;
1171
1172 BORDERSPRITES = $40;
1173
1174 CMF_CMTRANS = 0;
1175 CMF_CPTRANS = 1;
1176 CMF_BRDRBLNK = 2;
1177 CMF_BRDNTRAN = 3;
1178 CMF_BRDRSPRT = 6;
1179
1180 SPRITERESN_ECS = 0;
1181 { ^140ns, except in 35ns viewport, where it is 70ns. }
1182 SPRITERESN_140NS = 1;
1183 SPRITERESN_70NS = 2;
1184 SPRITERESN_35NS = 3;
1185 SPRITERESN_DEFAULT = -1;
1186
1187 { AuxFlags : }
1188 CMAB_FULLPALETTE = 0;
1189 CMAF_FULLPALETTE = 1;
1190 CMAB_NO_INTERMED_UPDATE = 1;
1191 CMAF_NO_INTERMED_UPDATE = 2;
1192 CMAB_NO_COLOR_LOAD = 2;
1193 CMAF_NO_COLOR_LOAD = 4;
1194 CMAB_DUALPF_DISABLE = 3;
1195 CMAF_DUALPF_DISABLE = 8;
1196
1197 Type
1198 pPaletteExtra = ^tPaletteExtra;
1199 tPaletteExtra = record { structure may be extended so watch out! }
1200 pe_Semaphore : tSignalSemaphore; { shared semaphore for arbitration }
1201 pe_FirstFree, { *private* }
1202 pe_NFree, { number of free colors }
1203 pe_FirstShared, { *private* }
1204 pe_NShared : WORD; { *private* }
1205 pe_RefCnt : Pointer; { *private* }
1206 pe_AllocList : Pointer; { *private* }
1207 pe_ViewPort : pViewPort; { back pointer to viewport }
1208 pe_SharableColors : WORD; { the number of sharable colors. }
1209 end;
1210 { flags values for ObtainPen }
1211 Const
1212 PENB_EXCLUSIVE = 0;
1213 PENB_NO_SETCOLOR = 1;
1214
1215 PENF_EXCLUSIVE = 1;
1216 PENF_NO_SETCOLOR = 2;
1217
1218 { obsolete names for PENF_xxx flags: }
1219
1220 PEN_EXCLUSIVE = PENF_EXCLUSIVE;
1221 PEN_NO_SETCOLOR = PENF_NO_SETCOLOR;
1222
1223 { precision values for ObtainBestPen : }
1224
1225 PRECISION_EXACT = -1;
1226 PRECISION_IMAGE = 0;
1227 PRECISION_ICON = 16;
1228 PRECISION_GUI = 32;
1229
1230
1231 { tags for ObtainBestPen: }
1232 OBP_Precision = $84000000;
1233 OBP_FailIfBad = $84000001;
1234
1235 { From V39, MakeVPort() will return an error if there is not enough memory,
1236 * or the requested mode cannot be opened with the requested depth with the
1237 * given bitmap (for higher bandwidth alignments).
1238 }
1239
1240 MVP_OK = 0; { you want to see this one }
1241 MVP_NO_MEM = 1; { insufficient memory for intermediate workspace }
1242 MVP_NO_VPE = 2; { ViewPort does not have a ViewPortExtra, and
1243 * insufficient memory to allocate a temporary one.
1244 }
1245 MVP_NO_DSPINS = 3; { insufficient memory for intermidiate copper
1246 * instructions.
1247 }
1248 MVP_NO_DISPLAY = 4; { BitMap data is misaligned for this viewport's
1249 * mode and depth - see AllocBitMap().
1250 }
1251 MVP_OFF_BOTTOM = 5; { PRIVATE - you will never see this. }
1252
1253 { From V39, MrgCop() will return an error if there is not enough memory,
1254 * or for some reason MrgCop() did not need to make any copper lists.
1255 }
1256
1257 MCOP_OK = 0; { you want to see this one }
1258 MCOP_NO_MEM = 1; { insufficient memory to allocate the system
1259 * copper lists.
1260 }
1261 MCOP_NOP = 2; { MrgCop() did not merge any copper lists
1262 * (eg, no ViewPorts in the list, or all marked as
1263 * hidden).
1264 }
1265 Type
1266 pDBufInfo = ^tDBufInfo;
1267 tDBufInfo = record
1268 dbi_Link1 : Pointer;
1269 dbi_Count1 : ULONG;
1270 dbi_SafeMessage : tMessage; { replied to when safe to write to old bitmap }
1271 dbi_UserData1 : Pointer; { first user data }
1272
1273 dbi_Link2 : Pointer;
1274 dbi_Count2 : ULONG;
1275 dbi_DispMessage : tMessage; { replied to when new bitmap has been displayed at least
1276 once }
1277 dbi_UserData2 : Pointer; { second user data }
1278 dbi_MatchLong : ULONG;
1279 dbi_CopPtr1,
1280 dbi_CopPtr2,
1281 dbi_CopPtr3 : Pointer;
1282 dbi_BeamPos1,
1283 dbi_BeamPos2 : WORD;
1284 end;
1285
1286
1287
1288 { include define file for graphics display mode IDs. }
1289
1290
1291 const
1292
1293 INVALID_ID = NOT 0;
1294
1295 { With all the new modes that are available under V38 and V39, it is highly
1296 * recommended that you use either the asl.library screenmode requester,
1297 * and/or the V39 graphics.library function BestModeIDA().
1298 *
1299 * DO NOT interpret the any of the bits in the ModeID for its meaning. For
1300 * example, do not interpret bit 3 ($4) as meaning the ModeID is interlaced.
1301 * Instead, use GetDisplayInfoData() with DTAG_DISP, and examine the DIPF_...
1302 * flags to determine a ModeID's characteristics. The only exception to
1303 * this rule is that bit 7 ($80) will always mean the ModeID is
1304 * ExtraHalfBright, and bit 11 ($800) will always mean the ModeID is HAM.
1305 }
1306
1307 { normal identifiers }
1308
1309 MONITOR_ID_MASK = $FFFF1000;
1310
1311 DEFAULT_MONITOR_ID = $00000000;
1312 NTSC_MONITOR_ID = $00011000;
1313 PAL_MONITOR_ID = $00021000;
1314
1315 { the following 22 composite keys are for Modes on the default Monitor.
1316 * NTSC & PAL "flavors" of these particular keys may be made by or'ing
1317 * the NTSC or PAL MONITOR_ID with the desired MODE_KEY...
1318 *
1319 * For example, to specifically open a PAL HAM interlaced ViewPort
1320 * (or intuition screen), you would use the modeid of
1321 * (PAL_MONITOR_ID OR HAMLACE_KEY)
1322 }
1323
1324 LORES_KEY = $00000000;
1325 HIRES_KEY = $00008000;
1326 SUPER_KEY = $00008020;
1327 HAM_KEY = $00000800;
1328 LORESLACE_KEY = $00000004;
1329 HIRESLACE_KEY = $00008004;
1330 SUPERLACE_KEY = $00008024;
1331 HAMLACE_KEY = $00000804;
1332 LORESDPF_KEY = $00000400;
1333 HIRESDPF_KEY = $00008400;
1334 SUPERDPF_KEY = $00008420;
1335 LORESLACEDPF_KEY = $00000404;
1336 HIRESLACEDPF_KEY = $00008404;
1337 SUPERLACEDPF_KEY = $00008424;
1338 LORESDPF2_KEY = $00000440;
1339 HIRESDPF2_KEY = $00008440;
1340 SUPERDPF2_KEY = $00008460;
1341 LORESLACEDPF2_KEY = $00000444;
1342 HIRESLACEDPF2_KEY = $00008444;
1343 SUPERLACEDPF2_KEY = $00008464;
1344 EXTRAHALFBRITE_KEY = $00000080;
1345 EXTRAHALFBRITELACE_KEY = $00000084;
1346 { New for AA ChipSet (V39) }
1347 HIRESHAM_KEY = $00008800;
1348 SUPERHAM_KEY = $00008820;
1349 HIRESEHB_KEY = $00008080;
1350 SUPEREHB_KEY = $000080a0;
1351 HIRESHAMLACE_KEY = $00008804;
1352 SUPERHAMLACE_KEY = $00008824;
1353 HIRESEHBLACE_KEY = $00008084;
1354 SUPEREHBLACE_KEY = $000080a4;
1355 { Added for V40 - may be useful modes for some games or animations. }
1356 LORESSDBL_KEY = $00000008;
1357 LORESHAMSDBL_KEY = $00000808;
1358 LORESEHBSDBL_KEY = $00000088;
1359 HIRESHAMSDBL_KEY = $00008808;
1360
1361
1362 { VGA identifiers }
1363
1364 VGA_MONITOR_ID = $00031000;
1365
1366 VGAEXTRALORES_KEY = $00031004;
1367 VGALORES_KEY = $00039004;
1368 VGAPRODUCT_KEY = $00039024;
1369 VGAHAM_KEY = $00031804;
1370 VGAEXTRALORESLACE_KEY = $00031005;
1371 VGALORESLACE_KEY = $00039005;
1372 VGAPRODUCTLACE_KEY = $00039025;
1373 VGAHAMLACE_KEY = $00031805;
1374 VGAEXTRALORESDPF_KEY = $00031404;
1375 VGALORESDPF_KEY = $00039404;
1376 VGAPRODUCTDPF_KEY = $00039424;
1377 VGAEXTRALORESLACEDPF_KEY = $00031405;
1378 VGALORESLACEDPF_KEY = $00039405;
1379 VGAPRODUCTLACEDPF_KEY = $00039425;
1380 VGAEXTRALORESDPF2_KEY = $00031444;
1381 VGALORESDPF2_KEY = $00039444;
1382 VGAPRODUCTDPF2_KEY = $00039464;
1383 VGAEXTRALORESLACEDPF2_KEY = $00031445;
1384 VGALORESLACEDPF2_KEY = $00039445;
1385 VGAPRODUCTLACEDPF2_KEY = $00039465;
1386 VGAEXTRAHALFBRITE_KEY = $00031084;
1387 VGAEXTRAHALFBRITELACE_KEY = $00031085;
1388 { New for AA ChipSet (V39) }
1389 VGAPRODUCTHAM_KEY = $00039824;
1390 VGALORESHAM_KEY = $00039804;
1391 VGAEXTRALORESHAM_KEY = VGAHAM_KEY;
1392 VGAPRODUCTHAMLACE_KEY = $00039825;
1393 VGALORESHAMLACE_KEY = $00039805;
1394 VGAEXTRALORESHAMLACE_KEY = VGAHAMLACE_KEY;
1395 VGAEXTRALORESEHB_KEY = VGAEXTRAHALFBRITE_KEY;
1396 VGAEXTRALORESEHBLACE_KEY = VGAEXTRAHALFBRITELACE_KEY;
1397 VGALORESEHB_KEY = $00039084;
1398 VGALORESEHBLACE_KEY = $00039085;
1399 VGAEHB_KEY = $000390a4;
1400 VGAEHBLACE_KEY = $000390a5;
1401 { These ModeIDs are the scandoubled equivalents of the above, with the
1402 * exception of the DualPlayfield modes, as AA does not allow for scandoubling
1403 * dualplayfield.
1404 }
1405 VGAEXTRALORESDBL_KEY = $00031000;
1406 VGALORESDBL_KEY = $00039000;
1407 VGAPRODUCTDBL_KEY = $00039020;
1408 VGAEXTRALORESHAMDBL_KEY = $00031800;
1409 VGALORESHAMDBL_KEY = $00039800;
1410 VGAPRODUCTHAMDBL_KEY = $00039820;
1411 VGAEXTRALORESEHBDBL_KEY = $00031080;
1412 VGALORESEHBDBL_KEY = $00039080;
1413 VGAPRODUCTEHBDBL_KEY = $000390a0;
1414
1415 { a2024 identifiers }
1416
1417 A2024_MONITOR_ID = $00041000;
1418
1419 A2024TENHERTZ_KEY = $00041000;
1420 A2024FIFTEENHERTZ_KEY = $00049000;
1421
1422 { prototype identifiers (private) }
1423
1424 PROTO_MONITOR_ID = $00051000;
1425
1426
1427 { These monitors and modes were added for the V38 release. }
1428
1429 EURO72_MONITOR_ID = $00061000;
1430
1431 EURO72EXTRALORES_KEY = $00061004;
1432 EURO72LORES_KEY = $00069004;
1433 EURO72PRODUCT_KEY = $00069024;
1434 EURO72HAM_KEY = $00061804;
1435 EURO72EXTRALORESLACE_KEY = $00061005;
1436 EURO72LORESLACE_KEY = $00069005;
1437 EURO72PRODUCTLACE_KEY = $00069025;
1438 EURO72HAMLACE_KEY = $00061805;
1439 EURO72EXTRALORESDPF_KEY = $00061404;
1440 EURO72LORESDPF_KEY = $00069404;
1441 EURO72PRODUCTDPF_KEY = $00069424;
1442 EURO72EXTRALORESLACEDPF_KEY = $00061405;
1443 EURO72LORESLACEDPF_KEY = $00069405;
1444 EURO72PRODUCTLACEDPF_KEY = $00069425;
1445 EURO72EXTRALORESDPF2_KEY = $00061444;
1446 EURO72LORESDPF2_KEY = $00069444;
1447 EURO72PRODUCTDPF2_KEY = $00069464;
1448 EURO72EXTRALORESLACEDPF2_KEY = $00061445;
1449 EURO72LORESLACEDPF2_KEY = $00069445;
1450 EURO72PRODUCTLACEDPF2_KEY = $00069465;
1451 EURO72EXTRAHALFBRITE_KEY = $00061084;
1452 EURO72EXTRAHALFBRITELACE_KEY = $00061085;
1453 { New AA modes (V39) }
1454 EURO72PRODUCTHAM_KEY = $00069824;
1455 EURO72PRODUCTHAMLACE_KEY = $00069825;
1456 EURO72LORESHAM_KEY = $00069804;
1457 EURO72LORESHAMLACE_KEY = $00069805;
1458 EURO72EXTRALORESHAM_KEY = EURO72HAM_KEY;
1459 EURO72EXTRALORESHAMLACE_KEY = EURO72HAMLACE_KEY ;
1460 EURO72EXTRALORESEHB_KEY = EURO72EXTRAHALFBRITE_KEY;
1461 EURO72EXTRALORESEHBLACE_KEY = EURO72EXTRAHALFBRITELACE_KEY;
1462 EURO72LORESEHB_KEY = $00069084;
1463 EURO72LORESEHBLACE_KEY = $00069085;
1464 EURO72EHB_KEY = $000690a4;
1465 EURO72EHBLACE_KEY = $000690a5;
1466 { These ModeIDs are the scandoubled equivalents of the above, with the
1467 * exception of the DualPlayfield modes, as AA does not allow for scandoubling
1468 * dualplayfield.
1469 }
1470 EURO72EXTRALORESDBL_KEY = $00061000;
1471 EURO72LORESDBL_KEY = $00069000;
1472 EURO72PRODUCTDBL_KEY = $00069020;
1473 EURO72EXTRALORESHAMDBL_KEY = $00061800;
1474 EURO72LORESHAMDBL_KEY = $00069800;
1475 EURO72PRODUCTHAMDBL_KEY = $00069820;
1476 EURO72EXTRALORESEHBDBL_KEY = $00061080;
1477 EURO72LORESEHBDBL_KEY = $00069080;
1478 EURO72PRODUCTEHBDBL_KEY = $000690a0;
1479
1480
1481 EURO36_MONITOR_ID = $00071000;
1482
1483 { Euro36 modeids can be ORed with the default modeids a la NTSC and PAL.
1484 * For example, Euro36 SuperHires is
1485 * (EURO36_MONITOR_ID OR SUPER_KEY)
1486 }
1487
1488 SUPER72_MONITOR_ID = $00081000;
1489
1490 { Super72 modeids can be ORed with the default modeids a la NTSC and PAL.
1491 * For example, Super72 SuperHiresLace (80$600) is
1492 * (SUPER72_MONITOR_ID OR SUPERLACE_KEY).
1493 * The following scandoubled Modes are the exception:
1494 }
1495 SUPER72LORESDBL_KEY = $00081008;
1496 SUPER72HIRESDBL_KEY = $00089008;
1497 SUPER72SUPERDBL_KEY = $00089028;
1498 SUPER72LORESHAMDBL_KEY = $00081808;
1499 SUPER72HIRESHAMDBL_KEY = $00089808;
1500 SUPER72SUPERHAMDBL_KEY = $00089828;
1501 SUPER72LORESEHBDBL_KEY = $00081088;
1502 SUPER72HIRESEHBDBL_KEY = $00089088;
1503 SUPER72SUPEREHBDBL_KEY = $000890a8;
1504
1505
1506 { These monitors and modes were added for the V39 release. }
1507
1508 DBLNTSC_MONITOR_ID = $00091000;
1509
1510 DBLNTSCLORES_KEY = $00091000;
1511 DBLNTSCLORESFF_KEY = $00091004;
1512 DBLNTSCLORESHAM_KEY = $00091800;
1513 DBLNTSCLORESHAMFF_KEY = $00091804;
1514 DBLNTSCLORESEHB_KEY = $00091080;
1515 DBLNTSCLORESEHBFF_KEY = $00091084;
1516 DBLNTSCLORESLACE_KEY = $00091005;
1517 DBLNTSCLORESHAMLACE_KEY = $00091805;
1518 DBLNTSCLORESEHBLACE_KEY = $00091085;
1519 DBLNTSCLORESDPF_KEY = $00091400;
1520 DBLNTSCLORESDPFFF_KEY = $00091404;
1521 DBLNTSCLORESDPFLACE_KEY = $00091405;
1522 DBLNTSCLORESDPF2_KEY = $00091440;
1523 DBLNTSCLORESDPF2FF_KEY = $00091444;
1524 DBLNTSCLORESDPF2LACE_KEY = $00091445;
1525 DBLNTSCHIRES_KEY = $00099000;
1526 DBLNTSCHIRESFF_KEY = $00099004;
1527 DBLNTSCHIRESHAM_KEY = $00099800;
1528 DBLNTSCHIRESHAMFF_KEY = $00099804;
1529 DBLNTSCHIRESLACE_KEY = $00099005;
1530 DBLNTSCHIRESHAMLACE_KEY = $00099805;
1531 DBLNTSCHIRESEHB_KEY = $00099080;
1532 DBLNTSCHIRESEHBFF_KEY = $00099084;
1533 DBLNTSCHIRESEHBLACE_KEY = $00099085;
1534 DBLNTSCHIRESDPF_KEY = $00099400;
1535 DBLNTSCHIRESDPFFF_KEY = $00099404;
1536 DBLNTSCHIRESDPFLACE_KEY = $00099405;
1537 DBLNTSCHIRESDPF2_KEY = $00099440;
1538 DBLNTSCHIRESDPF2FF_KEY = $00099444;
1539 DBLNTSCHIRESDPF2LACE_KEY = $00099445;
1540 DBLNTSCEXTRALORES_KEY = $00091200;
1541 DBLNTSCEXTRALORESHAM_KEY = $00091a00;
1542 DBLNTSCEXTRALORESEHB_KEY = $00091280;
1543 DBLNTSCEXTRALORESDPF_KEY = $00091600;
1544 DBLNTSCEXTRALORESDPF2_KEY = $00091640;
1545 DBLNTSCEXTRALORESFF_KEY = $00091204;
1546 DBLNTSCEXTRALORESHAMFF_KEY = $00091a04;
1547 DBLNTSCEXTRALORESEHBFF_KEY = $00091284;
1548 DBLNTSCEXTRALORESDPFFF_KEY = $00091604;
1549 DBLNTSCEXTRALORESDPF2FF_KEY = $00091644;
1550 DBLNTSCEXTRALORESLACE_KEY = $00091205;
1551 DBLNTSCEXTRALORESHAMLACE_KEY = $00091a05;
1552 DBLNTSCEXTRALORESEHBLACE_KEY = $00091285;
1553 DBLNTSCEXTRALORESDPFLACE_KEY = $00091605;
1554 DBLNTSCEXTRALORESDPF2LACE_KEY = $00091645;
1555
1556 DBLPAL_MONITOR_ID = $000a1000;
1557
1558 DBLPALLORES_KEY = $000a1000;
1559 DBLPALLORESFF_KEY = $000a1004;
1560 DBLPALLORESHAM_KEY = $000a1800;
1561 DBLPALLORESHAMFF_KEY = $000a1804;
1562 DBLPALLORESEHB_KEY = $000a1080;
1563 DBLPALLORESEHBFF_KEY = $000a1084;
1564 DBLPALLORESLACE_KEY = $000a1005;
1565 DBLPALLORESHAMLACE_KEY = $000a1805;
1566 DBLPALLORESEHBLACE_KEY = $000a1085;
1567 DBLPALLORESDPF_KEY = $000a1400;
1568 DBLPALLORESDPFFF_KEY = $000a1404;
1569 DBLPALLORESDPFLACE_KEY = $000a1405;
1570 DBLPALLORESDPF2_KEY = $000a1440;
1571 DBLPALLORESDPF2FF_KEY = $000a1444;
1572 DBLPALLORESDPF2LACE_KEY = $000a1445;
1573 DBLPALHIRES_KEY = $000a9000;
1574 DBLPALHIRESFF_KEY = $000a9004;
1575 DBLPALHIRESHAM_KEY = $000a9800;
1576 DBLPALHIRESHAMFF_KEY = $000a9804;
1577 DBLPALHIRESLACE_KEY = $000a9005;
1578 DBLPALHIRESHAMLACE_KEY = $000a9805;
1579 DBLPALHIRESEHB_KEY = $000a9080;
1580 DBLPALHIRESEHBFF_KEY = $000a9084;
1581 DBLPALHIRESEHBLACE_KEY = $000a9085;
1582 DBLPALHIRESDPF_KEY = $000a9400;
1583 DBLPALHIRESDPFFF_KEY = $000a9404;
1584 DBLPALHIRESDPFLACE_KEY = $000a9405;
1585 DBLPALHIRESDPF2_KEY = $000a9440;
1586 DBLPALHIRESDPF2FF_KEY = $000a9444;
1587 DBLPALHIRESDPF2LACE_KEY = $000a9445;
1588 DBLPALEXTRALORES_KEY = $000a1200;
1589 DBLPALEXTRALORESHAM_KEY = $000a1a00;
1590 DBLPALEXTRALORESEHB_KEY = $000a1280;
1591 DBLPALEXTRALORESDPF_KEY = $000a1600;
1592 DBLPALEXTRALORESDPF2_KEY = $000a1640;
1593 DBLPALEXTRALORESFF_KEY = $000a1204;
1594 DBLPALEXTRALORESHAMFF_KEY = $000a1a04;
1595 DBLPALEXTRALORESEHBFF_KEY = $000a1284;
1596 DBLPALEXTRALORESDPFFF_KEY = $000a1604;
1597 DBLPALEXTRALORESDPF2FF_KEY = $000a1644;
1598 DBLPALEXTRALORESLACE_KEY = $000a1205;
1599 DBLPALEXTRALORESHAMLACE_KEY = $000a1a05;
1600 DBLPALEXTRALORESEHBLACE_KEY = $000a1285;
1601 DBLPALEXTRALORESDPFLACE_KEY = $000a1605;
1602 DBLPALEXTRALORESDPF2LACE_KEY = $000a1645;
1603
1604
1605 { Use these tags for passing to BestModeID() (V39) }
1606
1607 SPECIAL_FLAGS = $100E;
1608 { Original:
1609 SPECIAL_FLAGS = DIPF_IS_DUALPF OR DIPF_IS_PF2PRI OR DIPF_IS_HAM OR DIPF_IS_EXTRAHALFBRITE;
1610 ( Mu?te aufgrund eines Fehler in PCQ ge?ndert werden )
1611 }
1612
1613
1614 BIDTAG_DIPFMustHave = $80000001; { mask of the DIPF_ flags the ModeID must have }
1615 { Default - NULL }
1616 BIDTAG_DIPFMustNotHave = $80000002; { mask of the DIPF_ flags the ModeID must not have }
1617 { Default - SPECIAL_FLAGS }
1618 BIDTAG_ViewPort = $80000003; { ViewPort for which a ModeID is sought. }
1619 { Default - NULL }
1620 BIDTAG_NominalWidth = $80000004; { \ together make the aspect ratio and }
1621 BIDTAG_NominalHeight = $80000005; { / override the vp->Width/Height. }
1622 { Default - SourceID NominalDimensionInfo,
1623 * or vp->DWidth/Height, or (640 * 200),
1624 * in that preferred order.
1625 }
1626 BIDTAG_DesiredWidth = $80000006; { \ Nominal Width and Height of the }
1627 BIDTAG_DesiredHeight = $80000007; { / returned ModeID. }
1628 { Default - same as Nominal }
1629 BIDTAG_Depth = $80000008; { ModeID must support this depth. }
1630 { Default - vp->RasInfo->BitMap->Depth or 1 }
1631 BIDTAG_MonitorID = $80000009; { ModeID must use this monitor. }
1632 { Default - use best monitor available }
1633 BIDTAG_SourceID = $8000000a; { instead of a ViewPort. }
1634 { Default - VPModeID(vp) if BIDTAG_ViewPort is
1635 * specified, else leave the DIPFMustHave and
1636 * DIPFMustNotHave values untouched.
1637 }
1638 BIDTAG_RedBits = $8000000b; { \ }
1639 BIDTAG_BlueBits = $8000000c; { > Match up from the database }
1640 BIDTAG_GreenBits = $8000000d; { / }
1641 { Default - 4 }
1642 BIDTAG_GfxPrivate = $8000000e; { Private }
1643
1644
1645 const
1646
1647 { bplcon0 defines }
1648
1649 MODE_640 = $8000;
1650 PLNCNTMSK = $7; { how many bit planes? }
1651 { 0 = none, 1->6 = 1->6, 7 = reserved }
1652 PLNCNTSHFT = 12; { bits to shift for bplcon0 }
1653 PF2PRI = $40; { bplcon2 bit }
1654 COLORON = $0200; { disable color burst }
1655 DBLPF = $400;
1656 HOLDNMODIFY = $800;
1657 INTERLACE = 4; { interlace mode for 400 }
1658
1659 { bplcon1 defines }
1660
1661 PFA_FINE_SCROLL = $F;
1662 PFB_FINE_SCROLL_SHIFT = 4;
1663 PF_FINE_SCROLL_MASK = $F;
1664
1665 { display window start and stop defines }
1666
1667 DIW_HORIZ_POS = $7F; { horizontal start/stop }
1668 DIW_VRTCL_POS = $1FF; { vertical start/stop }
1669 DIW_VRTCL_POS_SHIFT = $7;
1670
1671 { Data fetch start/stop horizontal position }
1672
1673 DFTCH_MASK = $FF;
1674
1675 { vposr bits }
1676
1677 VPOSRLOF = $8000;
1678
1679 { include define file for displayinfo database }
1680
1681 { the "public" handle to a DisplayInfoRecord }
1682 Type
1683
1684 DisplayInfoHandle = APTR;
1685
1686 { datachunk type identifiers }
1687
1688 CONST
1689 DTAG_DISP = $80000000;
1690 DTAG_DIMS = $80001000;
1691 DTAG_MNTR = $80002000;
1692 DTAG_NAME = $80003000;
1693 DTAG_VEC = $80004000; { internal use only }
1694
1695 Type
1696
1697 pQueryHeader = ^tQueryHeader;
1698 tQueryHeader = record
1699 tructID, { datachunk type identifier }
1700 DisplayID, { copy of display record key }
1701 SkipID, { TAG_SKIP -- see tagitems.h }
1702 Length : ULONG; { length of local data in double-longwords }
1703 END;
1704
1705 pDisplayInfo = ^tDisplayInfo;
1706 tDisplayInfo = record
1707 Header : tQueryHeader;
1708 NotAvailable : Word; { IF NULL available, else see defines }
1709 PropertyFlags : ULONG; { Properties of this mode see defines }
1710 Resolution : tPoint; { ticks-per-pixel X/Y }
1711 PixelSpeed : Word; { aproximation in nanoseconds }
1712 NumStdSprites : Word; { number of standard amiga sprites }
1713 PaletteRange : Word; { distinguishable shades available }
1714 SpriteResolution : tPoint; { std sprite ticks-per-pixel X/Y }
1715 pad : Array[0..3] of Byte;
1716 RedBits : Byte;
1717 GreenBits : Byte;
1718 BlueBits : Byte;
1719 pad2 : array [0..4] of Byte;
1720 reserved : Array[0..1] of ULONG; { terminator }
1721 END;
1722
1723 { availability }
1724
1725 CONST
1726 DI_AVAIL_NOCHIPS =$0001;
1727 DI_AVAIL_NOMONITOR =$0002;
1728 DI_AVAIL_NOTWITHGENLOCK =$0004;
1729
1730 { mode properties }
1731
1732 DIPF_IS_LACE = $00000001;
1733 DIPF_IS_DUALPF = $00000002;
1734 DIPF_IS_PF2PRI = $00000004;
1735 DIPF_IS_HAM = $00000008;
1736
1737 DIPF_IS_ECS = $00000010; { note: ECS modes (SHIRES, VGA, AND **
1738 PRODUCTIVITY) do not support **
1739 attached sprites. **
1740 }
1741 DIPF_IS_AA = $00010000; { AA modes - may only be available
1742 ** if machine has correct memory
1743 ** type to support required
1744 ** bandwidth - check availability.
1745 ** (V39)
1746 }
1747 DIPF_IS_PAL = $00000020;
1748 DIPF_IS_SPRITES = $00000040;
1749 DIPF_IS_GENLOCK = $00000080;
1750
1751 DIPF_IS_WB = $00000100;
1752 DIPF_IS_DRAGGABLE = $00000200;
1753 DIPF_IS_PANELLED = $00000400;
1754 DIPF_IS_BEAMSYNC = $00000800;
1755
1756 DIPF_IS_EXTRAHALFBRITE = $00001000;
1757
1758 { The following DIPF_IS_... flags are new for V39 }
1759 DIPF_IS_SPRITES_ATT = $00002000; { supports attached sprites }
1760 DIPF_IS_SPRITES_CHNG_RES = $00004000; { supports variable sprite resolution }
1761 DIPF_IS_SPRITES_BORDER = $00008000; { sprite can be displayed in the border }
1762 DIPF_IS_SCANDBL = $00020000; { scan doubled }
1763 DIPF_IS_SPRITES_CHNG_BASE = $00040000;
1764 { can change the sprite base colour }
1765 DIPF_IS_SPRITES_CHNG_PRI = $00080000;
1766 { can change the sprite priority
1767 ** with respect to the playfield(s).
1768 }
1769 DIPF_IS_DBUFFER = $00100000; { can support double buffering }
1770 DIPF_IS_PROGBEAM = $00200000; { is a programmed beam-sync mode }
1771 DIPF_IS_FOREIGN = $80000000; { this mode is not native to the Amiga }
1772
1773 Type
1774 pDimensionInfo =^tDimensionInfo;
1775 tDimensionInfo = record
1776 Header : tQueryHeader;
1777 MaxDepth, { log2( max number of colors ) }
1778 MinRasterWidth, { minimum width in pixels }
1779 MinRasterHeight, { minimum height in pixels }
1780 MaxRasterWidth, { maximum width in pixels }
1781 MaxRasterHeight : Word; { maximum height in pixels }
1782 Nominal, { "standard" dimensions }
1783 MaxOScan, { fixed, hardware dependant }
1784 VideoOScan, { fixed, hardware dependant }
1785 TxtOScan, { editable via preferences }
1786 StdOScan : tRectangle; { editable via preferences }
1787 pad : Array[0..13] of Byte;
1788 reserved : Array[0..1] of Longint; { terminator }
1789 END;
1790
1791 pMonitorInfo = ^tMonitorInfo;
1792 tMonitorInfo = record
1793 Header : tQueryHeader;
1794 Mspc : pMonitorSpec; { pointer to monitor specification }
1795 ViewPosition, { editable via preferences }
1796 ViewResolution : tPoint; { standard monitor ticks-per-pixel }
1797 ViewPositionRange : tRectangle; { fixed, hardware dependant }
1798 TotalRows, { display height in scanlines }
1799 TotalColorClocks, { scanline width in 280 ns units }
1800 MinRow : Word; { absolute minimum active scanline }
1801 Compatibility : Integer; { how this coexists with others }
1802 pad : Array[0..31] of Byte;
1803 MouseTicks : tPoint;
1804 DefaultViewPosition : tPoint;
1805 PreferredModeID : ULONG;
1806 reserved : Array[0..1] of ULONG; { terminator }
1807 END;
1808
1809 { monitor compatibility }
1810
1811 CONST
1812 MCOMPAT_MIXED = 0; { can share display with other MCOMPAT_MIXED }
1813 MCOMPAT_SELF = 1; { can share only within same monitor }
1814 MCOMPAT_NOBODY= -1; { only one viewport at a time }
1815
1816 DISPLAYNAMELEN = 32;
1817
1818 Type
1819 pNameInfo = ^tNameInfo;
1820 tNameInfo = record
1821 Header : tQueryHeader;
1822 Name : Array[0..DISPLAYNAMELEN-1] of Char;
1823 reserved : Array[0..1] of ULONG; { terminator }
1824 END;
1825
1826
1827 {****************************************************************************}
1828
1829 { The following VecInfo structure is PRIVATE, for our use only
1830 * Touch these, and burn! (V39)
1831 }
1832 Type
1833 pVecInfo = ^tVecInfo;
1834 tVecInfo = record
1835 Header : tQueryHeader;
1836 Vec : Pointer;
1837 Data : Pointer;
1838 vi_Type : WORD; { Type in C Includes }
1839 pad : Array[0..2] of WORD;
1840 reserved : Array[0..1] of ULONG;
1841 end;
1842
1843
1844 CONST
1845 VTAG_END_CM = $00000000;
1846 VTAG_CHROMAKEY_CLR = $80000000;
1847 VTAG_CHROMAKEY_SET = $80000001;
1848 VTAG_BITPLANEKEY_CLR = $80000002;
1849 VTAG_BITPLANEKEY_SET = $80000003;
1850 VTAG_BORDERBLANK_CLR = $80000004;
1851 VTAG_BORDERBLANK_SET = $80000005;
1852 VTAG_BORDERNOTRANS_CLR = $80000006;
1853 VTAG_BORDERNOTRANS_SET = $80000007;
1854 VTAG_CHROMA_PEN_CLR = $80000008;
1855 VTAG_CHROMA_PEN_SET = $80000009;
1856 VTAG_CHROMA_PLANE_SET = $8000000A;
1857 VTAG_ATTACH_CM_SET = $8000000B;
1858 VTAG_NEXTBUF_CM = $8000000C;
1859 VTAG_BATCH_CM_CLR = $8000000D;
1860 VTAG_BATCH_CM_SET = $8000000E;
1861 VTAG_NORMAL_DISP_GET = $8000000F;
1862 VTAG_NORMAL_DISP_SET = $80000010;
1863 VTAG_COERCE_DISP_GET = $80000011;
1864 VTAG_COERCE_DISP_SET = $80000012;
1865 VTAG_VIEWPORTEXTRA_GET = $80000013;
1866 VTAG_VIEWPORTEXTRA_SET = $80000014;
1867 VTAG_CHROMAKEY_GET = $80000015;
1868 VTAG_BITPLANEKEY_GET = $80000016;
1869 VTAG_BORDERBLANK_GET = $80000017;
1870 VTAG_BORDERNOTRANS_GET = $80000018;
1871 VTAG_CHROMA_PEN_GET = $80000019;
1872 VTAG_CHROMA_PLANE_GET = $8000001A;
1873 VTAG_ATTACH_CM_GET = $8000001B;
1874 VTAG_BATCH_CM_GET = $8000001C;
1875 VTAG_BATCH_ITEMS_GET = $8000001D;
1876 VTAG_BATCH_ITEMS_SET = $8000001E;
1877 VTAG_BATCH_ITEMS_ADD = $8000001F;
1878 VTAG_VPMODEID_GET = $80000020;
1879 VTAG_VPMODEID_SET = $80000021;
1880 VTAG_VPMODEID_CLR = $80000022;
1881 VTAG_USERCLIP_GET = $80000023;
1882 VTAG_USERCLIP_SET = $80000024;
1883 VTAG_USERCLIP_CLR = $80000025;
1884 { The following tags are V39 specific. They will be ignored (returing error -3) by
1885 earlier versions }
1886 VTAG_PF1_BASE_GET = $80000026;
1887 VTAG_PF2_BASE_GET = $80000027;
1888 VTAG_SPEVEN_BASE_GET = $80000028;
1889 VTAG_SPODD_BASE_GET = $80000029;
1890 VTAG_PF1_BASE_SET = $8000002a;
1891 VTAG_PF2_BASE_SET = $8000002b;
1892 VTAG_SPEVEN_BASE_SET = $8000002c;
1893 VTAG_SPODD_BASE_SET = $8000002d;
1894 VTAG_BORDERSPRITE_GET = $8000002e;
1895 VTAG_BORDERSPRITE_SET = $8000002f;
1896 VTAG_BORDERSPRITE_CLR = $80000030;
1897 VTAG_SPRITERESN_SET = $80000031;
1898 VTAG_SPRITERESN_GET = $80000032;
1899 VTAG_PF1_TO_SPRITEPRI_SET = $80000033;
1900 VTAG_PF1_TO_SPRITEPRI_GET = $80000034;
1901 VTAG_PF2_TO_SPRITEPRI_SET = $80000035;
1902 VTAG_PF2_TO_SPRITEPRI_GET = $80000036;
1903 VTAG_IMMEDIATE = $80000037;
1904 VTAG_FULLPALETTE_SET = $80000038;
1905 VTAG_FULLPALETTE_GET = $80000039;
1906 VTAG_FULLPALETTE_CLR = $8000003A;
1907 VTAG_DEFSPRITERESN_SET = $8000003B;
1908 VTAG_DEFSPRITERESN_GET = $8000003C;
1909
1910 { all the following tags follow the new, rational standard for videocontrol tags:
1911 * VC_xxx,state set the state of attribute 'xxx' to value 'state'
1912 * VC_xxx_QUERY,&var get the state of attribute 'xxx' and store it into the longword
1913 * pointed to by &var.
1914 *
1915 * The following are new for V40:
1916 }
1917
1918 VC_IntermediateCLUpdate = $80000080;
1919 { default=true. When set graphics will update the intermediate copper
1920 * lists on color changes, etc. When false, it won't, and will be faster.
1921 }
1922 VC_IntermediateCLUpdate_Query = $80000081;
1923
1924 VC_NoColorPaletteLoad = $80000082;
1925 { default = false. When set, graphics will only load color 0
1926 * for this ViewPort, and so the ViewPort's colors will come
1927 * from the previous ViewPort's.
1928 *
1929 * NB - Using this tag and VTAG_FULLPALETTE_SET together is undefined.
1930 }
1931 VC_NoColorPaletteLoad_Query = $80000083;
1932
1933 VC_DUALPF_Disable = $80000084;
1934 { default = false. When this flag is set, the dual-pf bit
1935 in Dual-Playfield screens will be turned off. Even bitplanes
1936 will still come from the first BitMap and odd bitplanes
1937 from the second BitMap, and both R[xy]Offsets will be
1938 considered. This can be used (with appropriate palette
1939 selection) for cross-fades between differently scrolling
1940 images.
1941 When this flag is turned on, colors will be loaded for
1942 the viewport as if it were a single viewport of depth
1943 depth1+depth2 }
1944 VC_DUALPF_Disable_Query = $80000085;
1945
1946
1947 const
1948
1949 SPRITE_ATTACHED = $80;
1950
1951 type
1952
1953 pSimpleSprite = ^tSimpleSprite;
1954 tSimpleSprite = record
1955 posctldata : Pointer;
1956 height : Word;
1957 x,y : Word; { current position }
1958 num : Word;
1959 end;
1960
1961 pExtSprite = ^tExtSprite;
1962 tExtSprite = record
1963 es_SimpleSprite : tSimpleSprite; { conventional simple sprite structure }
1964 es_wordwidth : WORD; { graphics use only, subject to change }
1965 es_flags : WORD; { graphics use only, subject to change }
1966 end;
1967
1968 const
1969 { tags for AllocSpriteData() }
1970 SPRITEA_Width = $81000000;
1971 SPRITEA_XReplication = $81000002;
1972 SPRITEA_YReplication = $81000004;
1973 SPRITEA_OutputHeight = $81000006;
1974 SPRITEA_Attached = $81000008;
1975 SPRITEA_OldDataFormat = $8100000a; { MUST pass in outputheight if using this tag }
1976
1977 { tags for GetExtSprite() }
1978 GSTAG_SPRITE_NUM = $82000020;
1979 GSTAG_ATTACHED = $82000022;
1980 GSTAG_SOFTSPRITE = $82000024;
1981
1982 { tags valid for either GetExtSprite or ChangeExtSprite }
1983 GSTAG_SCANDOUBLED = $83000000; { request "NTSC-Like" height if possible. }
1984
1985
1986 Type
1987 pBitScaleArgs = ^tBitScaleArgs;
1988 tBitScaleArgs = record
1989 bsa_SrcX, bsa_SrcY, { source origin }
1990 bsa_SrcWidth, bsa_SrcHeight, { source size }
1991 bsa_XSrcFactor, bsa_YSrcFactor, { scale factor denominators }
1992 bsa_DestX, bsa_DestY, { destination origin }
1993 bsa_DestWidth, bsa_DestHeight, { destination size result }
1994 bsa_XDestFactor, bsa_YDestFactor : Word; { scale factor numerators }
1995 bsa_SrcBitMap, { source BitMap }
1996 bsa_DestBitMap : pBitMap; { destination BitMap }
1997 bsa_Flags : ULONG; { reserved. Must be zero! }
1998 bsa_XDDA, bsa_YDDA : Word; { reserved }
1999 bsa_Reserved1,
2000 bsa_Reserved2 : Longint;
2001 END;
2002
2003 { tag definitions for GetRPAttr, SetRPAttr }
2004
2005 const
2006 RPTAG_Font = $80000000; { get/set font }
2007 RPTAG_APen = $80000002; { get/set apen }
2008 RPTAG_BPen = $80000003; { get/set bpen }
2009 RPTAG_DrMd = $80000004; { get/set draw mode }
2010 RPTAG_OutlinePen = $80000005; { get/set outline pen. corrected case. }
2011 RPTAG_WriteMask = $80000006; { get/set WriteMask }
2012 RPTAG_MaxPen = $80000007; { get/set maxpen }
2013
2014 RPTAG_DrawBounds = $80000008; { get only rastport draw bounds. pass &rect }
2015
2016
2017
2018
2019 TYPE
2020
2021 pRegionRectangle = ^tRegionRectangle;
2022 tRegionRectangle = record
2023 Next, Prev : pRegionRectangle;
2024 bounds : tRectangle;
2025 END;
2026
2027 pRegion = ^tRegion;
2028 tRegion = record
2029 bounds : tRectangle;
2030 RegionRectangle : pRegionRectangle;
2031 END;
2032
2033 type
2034
2035 pGfxBase = ^tGfxBase;
2036 tGfxBase = record
2037 LibNode : tLibrary;
2038 ActiView : pView; { ViewPtr }
2039 copinit : pcopinit; { (copinitptr) ptr to copper start up list }
2040 cia : Pointer; { for 8520 resource use }
2041 blitter : Pointer; { for future blitter resource use }
2042 LOFlist : Pointer;
2043 SHFlist : Pointer;
2044 blthd,
2045 blttl : pbltnode;
2046 bsblthd,
2047 bsblttl : pbltnode; { Previous four are (bltnodeptr) }
2048 vbsrv,
2049 timsrv,
2050 bltsrv : tInterrupt;
2051 TextFonts : tList;
2052 DefaultFont : pTextFont; { TextFontPtr }
2053 Modes : Word; { copy of current first bplcon0 }
2054 VBlank : Shortint;
2055 Debug : Shortint;
2056 BeamSync : Integer;
2057 system_bplcon0 : Integer; { it is ored into each bplcon0 for display }
2058 SpriteReserved : Byte;
2059 bytereserved : Byte;
2060 Flags : Word;
2061 BlitLock : Integer;
2062 BlitNest : Integer;
2063
2064 BlitWaitQ : tList;
2065 BlitOwner : pTask; { TaskPtr }
2066 TOF_WaitQ : tList;
2067 DisplayFlags : Word; { NTSC PAL GENLOC etc}
2068
2069 { Display flags are determined at power on }
2070
2071 SimpleSprites : Pointer; { SimpleSpritePtr ptr }
2072 MaxDisplayRow : Word; { hardware stuff, do not use }
2073 MaxDisplayColumn : Word; { hardware stuff, do not use }
2074 NormalDisplayRows : Word;
2075 NormalDisplayColumns : Word;
2076
2077 { the following are for standard non interlace, 1/2 wb width }
2078
2079 NormalDPMX : Word; { Dots per meter on display }
2080 NormalDPMY : Word; { Dots per meter on display }
2081 LastChanceMemory : pSignalSemaphore; { SignalSemaphorePtr }
2082 LCMptr : Pointer;
2083 MicrosPerLine : Word; { 256 time usec/line }
2084 MinDisplayColumn : Word;
2085 ChipRevBits0 : Byte;
2086 MemType : Byte;
2087 crb_reserved : Array[0..3] of Byte;
2088 monitor_id : Word; { normally null }
2089 hedley : Array[0..7] of ULONG;
2090 hedley_sprites : Array[0..7] of ULONG; { sprite ptrs for intuition mouse }
2091 hedley_sprites1 : Array[0..7] of ULONG; { sprite ptrs for intuition mouse }
2092 hedley_count : Integer;
2093 hedley_flags : Word;
2094 hedley_tmp : Integer;
2095 hash_table : Pointer;
2096 current_tot_rows : Word;
2097 current_tot_cclks : Word;
2098 hedley_hint : Byte;
2099 hedley_hint2 : Byte;
2100 nreserved : Array[0..3] of ULONG;
2101 a2024_sync_raster : Pointer;
2102 control_delta_pal : Word;
2103 control_delta_ntsc : Word;
2104 current_monitor : pMonitorSpec;
2105 MonitorList : tList;
2106 default_monitor : pMonitorSpec;
2107 MonitorListSemaphore : pSignalSemaphore;
2108 DisplayInfoDataBase : Pointer;
2109 TopLine : Word;
2110 ActiViewCprSemaphore : pSignalSemaphore;
2111 UtilityBase : Pointer; { for hook AND tag utilities }
2112 ExecBase : Pointer; { to link with rom.lib }
2113 bwshifts : Pointer;
2114 StrtFetchMasks,
2115 StopFetchMasks,
2116 Overrun,
2117 RealStops : Pointer;
2118 SpriteWidth, { current width (in words) of sprites }
2119 SpriteFMode : WORD; { current sprite fmode bits }
2120 SoftSprites, { bit mask of size change knowledgeable sprites }
2121 arraywidth : Shortint;
2122 DefaultSpriteWidth : WORD; { what width intuition wants }
2123 SprMoveDisable : Shortint;
2124 WantChips,
2125 BoardMemType,
2126 Bugs : Byte;
2127 gb_LayersBase : Pointer;
2128 ColorMask : ULONG;
2129 IVector,
2130 IData : Pointer;
2131 SpecialCounter : ULONG; { special for double buffering }
2132 DBList : Pointer;
2133 MonitorFlags : WORD;
2134 ScanDoubledSprites,
2135 BP3Bits : Byte;
2136 MonitorVBlank : tAnalogSignalInterval;
2137 natural_monitor : pMonitorSpec;
2138 ProgData : Pointer;
2139 ExtSprites : Byte;
2140 pad3 : Byte;
2141 GfxFlags : WORD;
2142 VBCounter : ULONG;
2143 HashTableSemaphore : pSignalSemaphore;
2144 HWEmul : Array[0..8] of Pointer;
2145 end;
2146
2147 const
2148
2149 NTSC = 1;
2150 GENLOC = 2;
2151 PAL = 4;
2152 TODA_SAFE = 8;
2153
2154 BLITMSG_FAULT = 4;
2155
2156 { bits defs for ChipRevBits }
2157 GFXB_BIG_BLITS = 0 ;
2158 GFXB_HR_AGNUS = 0 ;
2159 GFXB_HR_DENISE = 1 ;
2160 GFXB_AA_ALICE = 2 ;
2161 GFXB_AA_LISA = 3 ;
2162 GFXB_AA_MLISA = 4 ; { internal use only. }
2163
2164 GFXF_BIG_BLITS = 1 ;
2165 GFXF_HR_AGNUS = 1 ;
2166 GFXF_HR_DENISE = 2 ;
2167 GFXF_AA_ALICE = 4 ;
2168 GFXF_AA_LISA = 8 ;
2169 GFXF_AA_MLISA = 16; { internal use only }
2170
2171 { Pass ONE of these to SetChipRev() }
2172 SETCHIPREV_A = GFXF_HR_AGNUS;
2173 SETCHIPREV_ECS = (GFXF_HR_AGNUS OR GFXF_HR_DENISE);
2174 SETCHIPREV_AA = (GFXF_AA_ALICE OR GFXF_AA_LISA OR SETCHIPREV_ECS);
2175 SETCHIPREV_BEST= $ffffffff;
2176
2177 { memory type }
2178 BUS_16 = 0;
2179 NML_CAS = 0;
2180 BUS_32 = 1;
2181 DBL_CAS = 2;
2182 BANDWIDTH_1X = (BUS_16 OR NML_CAS);
2183 BANDWIDTH_2XNML= BUS_32;
2184 BANDWIDTH_2XDBL= DBL_CAS;
2185 BANDWIDTH_4X = (BUS_32 OR DBL_CAS);
2186
2187 { GfxFlags (private) }
2188 NEW_DATABASE = 1;
2189
2190 GRAPHICSNAME : PChar = 'graphics.library';
2191
2192
2193 var
2194 GfxBase : pLibrary;
2195
2196 PROCEDURE AddAnimOb(anOb : pAnimOb; anKey : ppAnimOb; rp : pRastPort);
2197 PROCEDURE AddBob(bob : pBob; rp : pRastPort);
2198 PROCEDURE AddFont(textFont : pTextFont);
2199 PROCEDURE AddVSprite(vSprite : pVSprite; rp : pRastPort);
2200 FUNCTION AllocBitMap(sizex : ULONG; sizey : ULONG; depth : ULONG; flags : ULONG; friend_bitmap : pBitMap) : pBitMap;
2201 FUNCTION AllocDBufInfo(vp : pViewPort) : pDBufInfo;
2202 FUNCTION AllocRaster(width : ULONG; height : ULONG) : pCHAR;
2203 FUNCTION AllocSpriteDataA(bm : pBitMap; tags : pTagItem) : pExtSprite;
2204 PROCEDURE AndRectRegion(region : pRegion; rectangle : pRectangle);
2205 FUNCTION AndRegionRegion(srcRegion : pRegion; destRegion : pRegion) : BOOLEAN;
2206 PROCEDURE Animate(anKey : ppAnimOb; rp : pRastPort);
2207 FUNCTION AreaDraw(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT;
2208 FUNCTION AreaEllipse(rp : pRastPort; xCenter : LONGINT; yCenter : LONGINT; a : LONGINT; b : LONGINT) : LONGINT;
2209 FUNCTION AreaEnd(rp : pRastPort) : LONGINT;
2210 FUNCTION AreaMove(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT;
2211 PROCEDURE AskFont(rp : pRastPort; textAttr : pTextAttr);
2212 FUNCTION AskSoftStyle(rp : pRastPort) : ULONG;
2213 FUNCTION AttachPalExtra(cm : pColorMap; vp : pViewPort) : LONGINT;
2214 FUNCTION AttemptLockLayerRom(layer : pLayer) : BOOLEAN;
2215 FUNCTION BestModeIDA(tags : pTagItem) : ULONG;
2216 PROCEDURE BitMapScale(bitScaleArgs : pBitScaleArgs);
2217 FUNCTION BltBitMap(srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destBitMap : pBitMap; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG; mask : ULONG; tempA : pCHAR) : LONGINT;
2218 PROCEDURE BltBitMapRastPort(srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG);
2219 PROCEDURE BltClear(memBlock : pCHAR; byteCount : ULONG; flags : ULONG);
2220 PROCEDURE BltMaskBitMapRastPort(srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG; bltMask : pCHAR);
2221 PROCEDURE BltPattern(rp : pRastPort; mask : pCHAR; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT; maskBPR : ULONG);
2222 PROCEDURE BltTemplate(source : pCHAR; xSrc : LONGINT; srcMod : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT);
2223 FUNCTION CalcIVG(v : pView; vp : pViewPort) : WORD;
2224 PROCEDURE CBump(copList : pUCopList);
2225 FUNCTION ChangeExtSpriteA(vp : pViewPort; oldsprite : pExtSprite; newsprite : pExtSprite; tags : pTagItem) : LONGINT;
2226 PROCEDURE ChangeSprite(vp : pViewPort; sprite : pSimpleSprite; newData : pCHAR);
2227 PROCEDURE ChangeVPBitMap(vp : pViewPort; bm : pBitMap; db : pDBufInfo);
2228 PROCEDURE ClearEOL(rp : pRastPort);
2229 FUNCTION ClearRectRegion(region : pRegion; rectangle : pRectangle) : BOOLEAN;
2230 PROCEDURE ClearRegion(region : pRegion);
2231 PROCEDURE ClearScreen(rp : pRastPort);
2232 PROCEDURE ClipBlit(srcRP : pRastPort; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG);
2233 PROCEDURE CloseFont(textFont : pTextFont);
2234 FUNCTION CloseMonitor(monitorSpec : pMonitorSpec) : BOOLEAN;
2235 PROCEDURE CMove(copList : pUCopList; destination : POINTER; data : LONGINT);
2236 FUNCTION CoerceMode(vp : pViewPort; monitorid : ULONG; flags : ULONG) : ULONG;
2237 PROCEDURE CopySBitMap(layer : pLayer);
2238 PROCEDURE CWait(copList : pUCopList; v : LONGINT; h : LONGINT);
2239 PROCEDURE DisownBlitter;
2240 PROCEDURE DisposeRegion(region : pRegion);
2241 PROCEDURE DoCollision(rp : pRastPort);
2242 PROCEDURE Draw(rp : pRastPort; x : LONGINT; y : LONGINT);
2243 PROCEDURE DrawEllipse(rp : pRastPort; xCenter : LONGINT; yCenter : LONGINT; a : LONGINT; b : LONGINT);
2244 PROCEDURE DrawGList(rp : pRastPort; vp : pViewPort);
2245 PROCEDURE EraseRect(rp : pRastPort; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
2246 FUNCTION ExtendFont(font : pTextFont; fontTags : pTagItem) : ULONG;
2247 FUNCTION FindColor(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG; maxcolor : LONGINT) : LONGINT;
2248 FUNCTION FindDisplayInfo(displayID : ULONG) : POINTER;
2249 FUNCTION Flood(rp : pRastPort; mode : ULONG; x : LONGINT; y : LONGINT) : BOOLEAN;
2250 PROCEDURE FontExtent(font : pTextFont; fontExtent : pTextExtent);
2251 PROCEDURE FreeBitMap(bm : pBitMap);
2252 PROCEDURE FreeColorMap(colorMap : pColorMap);
2253 PROCEDURE FreeCopList(copList : pCopList);
2254 PROCEDURE FreeCprList(cprList : pcprlist);
2255 PROCEDURE FreeDBufInfo(dbi : pDBufInfo);
2256 PROCEDURE FreeGBuffers(anOb : pAnimOb; rp : pRastPort; flag : LONGINT);
2257 PROCEDURE FreeRaster(p : pCHAR; width : ULONG; height : ULONG);
2258 PROCEDURE FreeSprite(num : LONGINT);
2259 PROCEDURE FreeSpriteData(sp : pExtSprite);
2260 PROCEDURE FreeVPortCopLists(vp : pViewPort);
2261 FUNCTION GetAPen(rp : pRastPort) : ULONG;
2262 FUNCTION GetBitMapAttr(bm : pBitMap; attrnum : ULONG) : ULONG;
2263 FUNCTION GetBPen(rp : pRastPort) : ULONG;
2264 FUNCTION GetColorMap(entries : LONGINT) : pColorMap;
2265 FUNCTION GetDisplayInfoData(handle : POINTER; buf : pCHAR; size : ULONG; tagID : ULONG; displayID : ULONG) : ULONG;
2266 FUNCTION GetDrMd(rp : pRastPort) : ULONG;
2267 FUNCTION GetExtSpriteA(ss : pExtSprite; tags : pTagItem) : LONGINT;
2268 FUNCTION GetGBuffers(anOb : pAnimOb; rp : pRastPort; flag : LONGINT) : BOOLEAN;
2269 FUNCTION GetOutlinePen(rp : pRastPort) : ULONG;
2270 PROCEDURE GetRGB32(cm : pColorMap; firstcolor : ULONG; ncolors : ULONG; table : POINTER);
2271 FUNCTION GetRGB4(colorMap : pColorMap; entry : LONGINT) : ULONG;
2272 PROCEDURE GetRPAttrsA(rp : pRastPort; tags : pTagItem);
2273 FUNCTION GetSprite(sprite : pSimpleSprite; num : LONGINT) : INTEGER;
2274 FUNCTION GetVPModeID(vp : pViewPort) : LONGINT;
2275 PROCEDURE GfxAssociate(associateNode : POINTER; gfxNodePtr : POINTER);
2276 PROCEDURE GfxFree(gfxNodePtr : POINTER);
2277 FUNCTION GfxLookUp(associateNode : POINTER) : POINTER;
2278 FUNCTION GfxNew(gfxNodeType : ULONG) : POINTER;
2279 PROCEDURE InitArea(areaInfo : pAreaInfo; vectorBuffer : POINTER; maxVectors : LONGINT);
2280 PROCEDURE InitBitMap(bitMap : pBitMap; depth : LONGINT; width : LONGINT; height : LONGINT);
2281 PROCEDURE InitGels(head : pVSprite; tail : pVSprite; gelsInfo : pGelsInfo);
2282 PROCEDURE InitGMasks(anOb : pAnimOb);
2283 PROCEDURE InitMasks(vSprite : pVSprite);
2284 PROCEDURE InitRastPort(rp : pRastPort);
2285 FUNCTION InitTmpRas(tmpRas : pTmpRas; buffer : pCHAR; size : LONGINT) : pTmpRas;
2286 PROCEDURE InitView(view : pView);
2287 PROCEDURE InitVPort(vp : pViewPort);
2288 PROCEDURE LoadRGB32(vp : pViewPort; table : POINTER);
2289 PROCEDURE LoadRGB4(vp : pViewPort; colors : POINTER; count : LONGINT);
2290 PROCEDURE LoadView(view : pView);
2291 PROCEDURE LockLayerRom(layer : pLayer);
2292 FUNCTION MakeVPort(view : pView; vp : pViewPort) : ULONG;
2293 FUNCTION ModeNotAvailable(modeID : ULONG) : LONGINT;
2294 PROCEDURE Move(rp : pRastPort; x : LONGINT; y : LONGINT);
2295 PROCEDURE MoveSprite(vp : pViewPort; sprite : pSimpleSprite; x : LONGINT; y : LONGINT);
2296 FUNCTION MrgCop(view : pView) : ULONG;
2297 FUNCTION NewRegion : pRegion;
2298 FUNCTION NextDisplayInfo(displayID : ULONG) : ULONG;
2299 FUNCTION ObtainBestPenA(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG; tags : pTagItem) : LONGINT;
2300 FUNCTION ObtainPen(cm : pColorMap; n : ULONG; r : ULONG; g : ULONG; b : ULONG; f : LONGINT) : ULONG;
2301 FUNCTION OpenFont(textAttr : pTextAttr) : pTextFont;
2302 FUNCTION OpenMonitor(monitorName : pCHAR; displayID : ULONG) : pMonitorSpec;
2303 FUNCTION OrRectRegion(region : pRegion; rectangle : pRectangle) : BOOLEAN;
2304 FUNCTION OrRegionRegion(srcRegion : pRegion; destRegion : pRegion) : BOOLEAN;
2305 PROCEDURE OwnBlitter;
2306 PROCEDURE PolyDraw(rp : pRastPort; count : LONGINT; polyTable : POINTER);
2307 PROCEDURE QBlit(blit : pbltnode);
2308 PROCEDURE QBSBlit(blit : pbltnode);
2309 FUNCTION ReadPixel(rp : pRastPort; x : LONGINT; y : LONGINT) : ULONG;
2310 FUNCTION ReadPixelArray8(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pCHAR; temprp : pRastPort) : LONGINT;
2311 FUNCTION ReadPixelLine8(rp : pRastPort; xstart : ULONG; ystart : ULONG; width : ULONG; array_ : pCHAR; tempRP : pRastPort) : LONGINT;
2312 PROCEDURE RectFill(rp : pRastPort; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
2313 PROCEDURE ReleasePen(cm : pColorMap; n : ULONG);
2314 PROCEDURE RemFont(textFont : pTextFont);
2315 PROCEDURE RemIBob(bob : pBob; rp : pRastPort; vp : pViewPort);
2316 PROCEDURE RemVSprite(vSprite : pVSprite);
2317 FUNCTION ScalerDiv(factor : ULONG; numerator : ULONG; denominator : ULONG) : WORD;
2318 PROCEDURE ScrollRaster(rp : pRastPort; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
2319 PROCEDURE ScrollRasterBF(rp : pRastPort; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
2320 PROCEDURE ScrollVPort(vp : pViewPort);
2321 PROCEDURE SetABPenDrMd(rp : pRastPort; apen : ULONG; bpen : ULONG; drawmode : ULONG);
2322 PROCEDURE SetAPen(rp : pRastPort; pen : ULONG);
2323 PROCEDURE SetBPen(rp : pRastPort; pen : ULONG);
2324 FUNCTION SetChipRev(want : ULONG) : ULONG;
2325 PROCEDURE SetCollision(num : ULONG; routine : tPROCEDURE; gelsInfo : pGelsInfo);
2326 PROCEDURE SetDrMd(rp : pRastPort; drawMode : ULONG);
2327 FUNCTION SetFont(rp : pRastPort; textFont : pTextFont) : LONGINT;
2328 PROCEDURE SetMaxPen(rp : pRastPort; maxpen : ULONG);
2329 FUNCTION SetOutlinePen(rp : pRastPort; pen : ULONG) : ULONG;
2330 PROCEDURE SetRast(rp : pRastPort; pen : ULONG);
2331 PROCEDURE SetRGB32(vp : pViewPort; n : ULONG; r : ULONG; g : ULONG; b : ULONG);
2332 PROCEDURE SetRGB32CM(cm : pColorMap; n : ULONG; r : ULONG; g : ULONG; b : ULONG);
2333 PROCEDURE SetRGB4(vp : pViewPort; index : LONGINT; red : ULONG; green : ULONG; blue : ULONG);
2334 PROCEDURE SetRGB4CM(colorMap : pColorMap; index : LONGINT; red : ULONG; green : ULONG; blue : ULONG);
2335 PROCEDURE SetRPAttrsA(rp : pRastPort; tags : pTagItem);
2336 FUNCTION SetSoftStyle(rp : pRastPort; style : ULONG; enable : ULONG) : ULONG;
2337 FUNCTION SetWriteMask(rp : pRastPort; msk : ULONG) : ULONG;
2338 PROCEDURE SortGList(rp : pRastPort);
2339 PROCEDURE StripFont(font : pTextFont);
2340 PROCEDURE SyncSBitMap(layer : pLayer);
2341 FUNCTION Text(rp : pRastPort; string_ : pCHAR; count : ULONG) : LONGINT;
2342 FUNCTION TextExtent(rp : pRastPort; string_ : pCHAR; count : LONGINT; textExtent : pTextExtent) : INTEGER;
2343 FUNCTION TextFit(rp : pRastPort; string_ : pCHAR; strLen : ULONG; textExtent : pTextExtent; constrainingExtent : pTextExtent; strDirection : LONGINT; constrainingBitWidth : ULONG; constrainingBitHeight : ULONG) : ULONG;
2344 FUNCTION TextLength(rp : pRastPort; string_ : pCHAR; count : ULONG) : INTEGER;
2345 FUNCTION UCopperListInit(uCopList : pUCopList; n : LONGINT) : pCopList;
2346 PROCEDURE UnlockLayerRom(layer : pLayer);
2347 FUNCTION VBeamPos : LONGINT;
2348 FUNCTION VideoControl(colorMap : pColorMap; tagarray : pTagItem) : BOOLEAN;
2349 PROCEDURE WaitBlit;
2350 PROCEDURE WaitBOVP(vp : pViewPort);
2351 PROCEDURE WaitTOF;
2352 FUNCTION WeighTAMatch(reqTextAttr : pTextAttr; targetTextAttr : pTextAttr; targetTags : pTagItem) : INTEGER;
2353 PROCEDURE WriteChunkyPixels(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pCHAR; bytesperrow : LONGINT);
2354 FUNCTION WritePixel(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT;
2355 FUNCTION WritePixelArray8(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pCHAR; temprp : pRastPort) : LONGINT;
2356 FUNCTION WritePixelLine8(rp : pRastPort; xstart : ULONG; ystart : ULONG; width : ULONG; array_ : pCHAR; tempRP : pRastPort) : LONGINT;
2357 FUNCTION XorRectRegion(region : pRegion; rectangle : pRectangle) : BOOLEAN;
2358 FUNCTION XorRegionRegion(srcRegion : pRegion; destRegion : pRegion) : BOOLEAN;
2359
2360 { gfxmacros }
2361
2362 PROCEDURE BNDRYOFF (w: pRastPort);
2363 PROCEDURE InitAnimate (animkey: ppAnimOb);
2364 PROCEDURE SetAfPt(w: pRastPort;p: Pointer; n: Byte);
2365 PROCEDURE SetDrPt(w: pRastPort;p: Word);
2366 PROCEDURE SetOPen(w: pRastPort;c: Byte);
2367 PROCEDURE SetWrMsk(w: pRastPort; m: Byte);
2368
2369 PROCEDURE SafeSetOutlinePen(w : pRastPort; c : byte);
2370 PROCEDURE SafeSetWriteMask( w : pRastPort ; m : Integer ) ;
2371
2372 PROCEDURE OFF_DISPLAY (cust: pCustom);
2373 PROCEDURE ON_DISPLAY (cust: pCustom);
2374 PROCEDURE OFF_SPRITE (cust: pCustom);
2375 PROCEDURE ON_SPRITE (cust: pCustom);
2376 PROCEDURE OFF_VBLANK (cust: pCustom);
2377 PROCEDURE ON_VBLANK (cust: pCustom);
2378
2379
2380 IMPLEMENTATION
2381
2382 PROCEDURE BNDRYOFF (w: pRastPort);
2383 BEGIN
2384 WITH w^ DO BEGIN
2385 Flags := Flags AND (NOT AREAOUTLINE);
2386 END;
2387 END;
2388
2389 PROCEDURE InitAnimate (animkey: ppAnimOb);
2390 BEGIN
2391 animkey^ := NIL;
2392 END;
2393
2394 PROCEDURE SetAfPt(w: pRastPort;p: Pointer; n: Byte);
2395 BEGIN
2396 WITH w^ DO
2397 BEGIN
2398 AreaPtrn := p;
2399 AreaPtSz := n;
2400 END;
2401 END;
2402
2403 PROCEDURE SetDrPt(w: pRastPort;p: Word);
2404 BEGIN
2405 WITH w^ DO
2406 BEGIN
2407 LinePtrn := p;
2408 Flags := Flags OR FRST_DOT;
2409 linpatcnt := 15;
2410 END;
2411 END;
2412
2413 PROCEDURE SetOPen(w: pRastPort;c: Byte);
2414 BEGIN
2415 WITH w^ DO
2416 BEGIN
2417 AOlPen := c;
2418 Flags := Flags OR AREAOUTLINE;
2419 END;
2420 END;
2421
2422 { This FUNCTION is fine, but FOR OS39 the SetWriteMask() gfx FUNCTION
2423 should be prefered because it SHOULD operate WITH gfx boards as well.
2424 At least I hope it does.... }
2425 PROCEDURE SetWrMsk(w: pRastPort; m: Byte);
2426 BEGIN
2427 w^.Mask := m;
2428 END;
2429
2430 PROCEDURE SafeSetOutlinePen(w : pRastPort; c : byte);
2431 begin
2432 IF pGfxBase(GfxBase)^.LibNode.Lib_Version < 39 THEN begin
2433 w^.AOlPen := c;
2434 w^.Flags := w^.Flags OR AREAOUTLINE;
2435 END ELSE begin
2436 c := SetOutlinePen(w,c);
2437 END;
2438 END;
2439
2440 PROCEDURE SafeSetWriteMask( w : pRastPort ; m : Integer ) ;
2441 VAR x : INTEGER ;
2442 BEGIN
2443 IF pGfxBase(GfxBase)^.LibNode.Lib_Version < 39 THEN w^.Mask := BYTE(m)
2444 ELSE x := SetWriteMask( w, m );
2445 END;
2446
2447 PROCEDURE OFF_DISPLAY (cust: pCustom);
2448 BEGIN
2449 cust^.dmacon := BITCLR OR DMAF_RASTER;
2450 END;
2451
2452 PROCEDURE ON_DISPLAY (cust: pCustom);
2453 BEGIN
2454 cust^.dmacon := BITSET OR DMAF_RASTER;
2455 END;
2456
2457 PROCEDURE OFF_SPRITE (cust: pCustom);
2458 BEGIN
2459 cust^.dmacon := BITCLR OR DMAF_SPRITE;
2460 END;
2461
2462 PROCEDURE ON_SPRITE (cust: pCustom);
2463 BEGIN
2464 cust^.dmacon := BITSET OR DMAF_SPRITE;
2465 END;
2466
2467 PROCEDURE OFF_VBLANK (cust: pCustom);
2468 BEGIN
2469 cust^.intena := BITCLR OR INTF_VERTB;
2470 END;
2471
2472 PROCEDURE ON_VBLANK (cust: pCustom);
2473 BEGIN
2474 cust^.intena := BITSET OR INTF_VERTB;
2475 END;
2476
2477 PROCEDURE AddAnimOb(anOb : pAnimOb; anKey : ppAnimOb; rp : pRastPort);
2478 BEGIN
2479 ASM
2480 MOVE.L A6,-(A7)
2481 MOVEA.L anOb,A0
2482 MOVEA.L anKey,A1
2483 MOVEA.L rp,A2
2484 MOVEA.L GfxBase,A6
2485 JSR -156(A6)
2486 MOVEA.L (A7)+,A6
2487 END;
2488 END;
2489
2490 PROCEDURE AddBob(bob : pBob; rp : pRastPort);
2491 BEGIN
2492 ASM
2493 MOVE.L A6,-(A7)
2494 MOVEA.L bob,A0
2495 MOVEA.L rp,A1
2496 MOVEA.L GfxBase,A6
2497 JSR -096(A6)
2498 MOVEA.L (A7)+,A6
2499 END;
2500 END;
2501
2502 PROCEDURE AddFont(textFont : pTextFont);
2503 BEGIN
2504 ASM
2505 MOVE.L A6,-(A7)
2506 MOVEA.L textFont,A1
2507 MOVEA.L GfxBase,A6
2508 JSR -480(A6)
2509 MOVEA.L (A7)+,A6
2510 END;
2511 END;
2512
2513 PROCEDURE AddVSprite(vSprite : pVSprite; rp : pRastPort);
2514 BEGIN
2515 ASM
2516 MOVE.L A6,-(A7)
2517 MOVEA.L vSprite,A0
2518 MOVEA.L rp,A1
2519 MOVEA.L GfxBase,A6
2520 JSR -102(A6)
2521 MOVEA.L (A7)+,A6
2522 END;
2523 END;
2524
2525 FUNCTION AllocBitMap(sizex : ULONG; sizey : ULONG; depth : ULONG; flags : ULONG; friend_bitmap : pBitMap) : pBitMap;
2526 BEGIN
2527 ASM
2528 MOVE.L A6,-(A7)
2529 MOVE.L sizex,D0
2530 MOVE.L sizey,D1
2531 MOVE.L depth,D2
2532 MOVE.L flags,D3
2533 MOVEA.L friend_bitmap,A0
2534 MOVEA.L GfxBase,A6
2535 JSR -918(A6)
2536 MOVEA.L (A7)+,A6
2537 MOVE.L D0,@RESULT
2538 END;
2539 END;
2540
2541 FUNCTION AllocDBufInfo(vp : pViewPort) : pDBufInfo;
2542 BEGIN
2543 ASM
2544 MOVE.L A6,-(A7)
2545 MOVEA.L vp,A0
2546 MOVEA.L GfxBase,A6
2547 JSR -966(A6)
2548 MOVEA.L (A7)+,A6
2549 MOVE.L D0,@RESULT
2550 END;
2551 END;
2552
2553 FUNCTION AllocRaster(width : ULONG; height : ULONG) : pCHAR;
2554 BEGIN
2555 ASM
2556 MOVE.L A6,-(A7)
2557 MOVE.L width,D0
2558 MOVE.L height,D1
2559 MOVEA.L GfxBase,A6
2560 JSR -492(A6)
2561 MOVEA.L (A7)+,A6
2562 MOVE.L D0,@RESULT
2563 END;
2564 END;
2565
2566 FUNCTION AllocSpriteDataA(bm : pBitMap; tags : pTagItem) : pExtSprite;
2567 BEGIN
2568 ASM
2569 MOVE.L A6,-(A7)
2570 MOVEA.L bm,A2
2571 MOVEA.L tags,A1
2572 MOVEA.L GfxBase,A6
2573 JSR -1020(A6)
2574 MOVEA.L (A7)+,A6
2575 MOVE.L D0,@RESULT
2576 END;
2577 END;
2578
2579 PROCEDURE AndRectRegion(region : pRegion; rectangle : pRectangle);
2580 BEGIN
2581 ASM
2582 MOVE.L A6,-(A7)
2583 MOVEA.L region,A0
2584 MOVEA.L rectangle,A1
2585 MOVEA.L GfxBase,A6
2586 JSR -504(A6)
2587 MOVEA.L (A7)+,A6
2588 END;
2589 END;
2590
2591 FUNCTION AndRegionRegion(srcRegion : pRegion; destRegion : pRegion) : BOOLEAN;
2592 BEGIN
2593 ASM
2594 MOVE.L A6,-(A7)
2595 MOVEA.L srcRegion,A0
2596 MOVEA.L destRegion,A1
2597 MOVEA.L GfxBase,A6
2598 JSR -624(A6)
2599 MOVEA.L (A7)+,A6
2600 TST.W D0
2601 BEQ.B @end
2602 MOVEQ #1,D0
2603 @end: MOVE.B D0,@RESULT
2604 END;
2605 END;
2606
2607 PROCEDURE Animate(anKey : ppAnimOb; rp : pRastPort);
2608 BEGIN
2609 ASM
2610 MOVE.L A6,-(A7)
2611 MOVEA.L anKey,A0
2612 MOVEA.L rp,A1
2613 MOVEA.L GfxBase,A6
2614 JSR -162(A6)
2615 MOVEA.L (A7)+,A6
2616 END;
2617 END;
2618
2619 FUNCTION AreaDraw(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT;
2620 BEGIN
2621 ASM
2622 MOVE.L A6,-(A7)
2623 MOVEA.L rp,A1
2624 MOVE.L x,D0
2625 MOVE.L y,D1
2626 MOVEA.L GfxBase,A6
2627 JSR -258(A6)
2628 MOVEA.L (A7)+,A6
2629 MOVE.L D0,@RESULT
2630 END;
2631 END;
2632
2633 FUNCTION AreaEllipse(rp : pRastPort; xCenter : LONGINT; yCenter : LONGINT; a : LONGINT; b : LONGINT) : LONGINT;
2634 BEGIN
2635 ASM
2636 MOVE.L A6,-(A7)
2637 MOVEA.L rp,A1
2638 MOVE.L xCenter,D0
2639 MOVE.L yCenter,D1
2640 MOVE.L a,D2
2641 MOVE.L b,D3
2642 MOVEA.L GfxBase,A6
2643 JSR -186(A6)
2644 MOVEA.L (A7)+,A6
2645 MOVE.L D0,@RESULT
2646 END;
2647 END;
2648
2649 FUNCTION AreaEnd(rp : pRastPort) : LONGINT;
2650 BEGIN
2651 ASM
2652 MOVE.L A6,-(A7)
2653 MOVEA.L rp,A1
2654 MOVEA.L GfxBase,A6
2655 JSR -264(A6)
2656 MOVEA.L (A7)+,A6
2657 MOVE.L D0,@RESULT
2658 END;
2659 END;
2660
2661 FUNCTION AreaMove(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT;
2662 BEGIN
2663 ASM
2664 MOVE.L A6,-(A7)
2665 MOVEA.L rp,A1
2666 MOVE.L x,D0
2667 MOVE.L y,D1
2668 MOVEA.L GfxBase,A6
2669 JSR -252(A6)
2670 MOVEA.L (A7)+,A6
2671 MOVE.L D0,@RESULT
2672 END;
2673 END;
2674
2675 PROCEDURE AskFont(rp : pRastPort; textAttr : pTextAttr);
2676 BEGIN
2677 ASM
2678 MOVE.L A6,-(A7)
2679 MOVEA.L rp,A1
2680 MOVEA.L textAttr,A0
2681 MOVEA.L GfxBase,A6
2682 JSR -474(A6)
2683 MOVEA.L (A7)+,A6
2684 END;
2685 END;
2686
2687 FUNCTION AskSoftStyle(rp : pRastPort) : ULONG;
2688 BEGIN
2689 ASM
2690 MOVE.L A6,-(A7)
2691 MOVEA.L rp,A1
2692 MOVEA.L GfxBase,A6
2693 JSR -084(A6)
2694 MOVEA.L (A7)+,A6
2695 MOVE.L D0,@RESULT
2696 END;
2697 END;
2698
2699 FUNCTION AttachPalExtra(cm : pColorMap; vp : pViewPort) : LONGINT;
2700 BEGIN
2701 ASM
2702 MOVE.L A6,-(A7)
2703 MOVEA.L cm,A0
2704 MOVEA.L vp,A1
2705 MOVEA.L GfxBase,A6
2706 JSR -834(A6)
2707 MOVEA.L (A7)+,A6
2708 MOVE.L D0,@RESULT
2709 END;
2710 END;
2711
2712 FUNCTION AttemptLockLayerRom(layer : pLayer) : BOOLEAN;
2713 BEGIN
2714 ASM
2715 MOVE.L A6,-(A7)
2716 MOVEA.L layer,A5
2717 MOVEA.L GfxBase,A6
2718 JSR -654(A6)
2719 MOVEA.L (A7)+,A6
2720 TST.W D0
2721 BEQ.B @end
2722 MOVEQ #1,D0
2723 @end: MOVE.B D0,@RESULT
2724 END;
2725 END;
2726
2727 FUNCTION BestModeIDA(tags : pTagItem) : ULONG;
2728 BEGIN
2729 ASM
2730 MOVE.L A6,-(A7)
2731 MOVEA.L tags,A0
2732 MOVEA.L GfxBase,A6
2733 JSR -1050(A6)
2734 MOVEA.L (A7)+,A6
2735 MOVE.L D0,@RESULT
2736 END;
2737 END;
2738
2739 PROCEDURE BitMapScale(bitScaleArgs : pBitScaleArgs);
2740 BEGIN
2741 ASM
2742 MOVE.L A6,-(A7)
2743 MOVEA.L bitScaleArgs,A0
2744 MOVEA.L GfxBase,A6
2745 JSR -678(A6)
2746 MOVEA.L (A7)+,A6
2747 END;
2748 END;
2749
2750 FUNCTION BltBitMap(srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destBitMap : pBitMap; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG; mask : ULONG; tempA : pCHAR) : LONGINT;
2751 BEGIN
2752 ASM
2753 MOVE.L A6,-(A7)
2754 MOVEA.L srcBitMap,A0
2755 MOVE.L xSrc,D0
2756 MOVE.L ySrc,D1
2757 MOVEA.L destBitMap,A1
2758 MOVE.L xDest,D2
2759 MOVE.L yDest,D3
2760 MOVE.L xSize,D4
2761 MOVE.L ySize,D5
2762 MOVE.L minterm,D6
2763 MOVE.L mask,D7
2764 MOVEA.L tempA,A2
2765 MOVEA.L GfxBase,A6
2766 JSR -030(A6)
2767 MOVEA.L (A7)+,A6
2768 MOVE.L D0,@RESULT
2769 END;
2770 END;
2771
2772 PROCEDURE BltBitMapRastPort(srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG);
2773 BEGIN
2774 ASM
2775 MOVE.L A6,-(A7)
2776 MOVEA.L srcBitMap,A0
2777 MOVE.L xSrc,D0
2778 MOVE.L ySrc,D1
2779 MOVEA.L destRP,A1
2780 MOVE.L xDest,D2
2781 MOVE.L yDest,D3
2782 MOVE.L xSize,D4
2783 MOVE.L ySize,D5
2784 MOVE.L minterm,D6
2785 MOVEA.L GfxBase,A6
2786 JSR -606(A6)
2787 MOVEA.L (A7)+,A6
2788 END;
2789 END;
2790
2791 PROCEDURE BltClear(memBlock : pCHAR; byteCount : ULONG; flags : ULONG);
2792 BEGIN
2793 ASM
2794 MOVE.L A6,-(A7)
2795 MOVEA.L memBlock,A1
2796 MOVE.L byteCount,D0
2797 MOVE.L flags,D1
2798 MOVEA.L GfxBase,A6
2799 JSR -300(A6)
2800 MOVEA.L (A7)+,A6
2801 END;
2802 END;
2803
2804 PROCEDURE BltMaskBitMapRastPort(srcBitMap : pBitMap; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG; bltMask : pCHAR);
2805 BEGIN
2806 ASM
2807 MOVE.L A6,-(A7)
2808 MOVEA.L srcBitMap,A0
2809 MOVE.L xSrc,D0
2810 MOVE.L ySrc,D1
2811 MOVEA.L destRP,A1
2812 MOVE.L xDest,D2
2813 MOVE.L yDest,D3
2814 MOVE.L xSize,D4
2815 MOVE.L ySize,D5
2816 MOVE.L minterm,D6
2817 MOVEA.L bltMask,A2
2818 MOVEA.L GfxBase,A6
2819 JSR -636(A6)
2820 MOVEA.L (A7)+,A6
2821 END;
2822 END;
2823
2824 PROCEDURE BltPattern(rp : pRastPort; mask : pCHAR; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT; maskBPR : ULONG);
2825 BEGIN
2826 ASM
2827 MOVE.L A6,-(A7)
2828 MOVEA.L rp,A1
2829 MOVEA.L mask,A0
2830 MOVE.L xMin,D0
2831 MOVE.L yMin,D1
2832 MOVE.L xMax,D2
2833 MOVE.L yMax,D3
2834 MOVE.L maskBPR,D4
2835 MOVEA.L GfxBase,A6
2836 JSR -312(A6)
2837 MOVEA.L (A7)+,A6
2838 END;
2839 END;
2840
2841 PROCEDURE BltTemplate(source : pCHAR; xSrc : LONGINT; srcMod : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT);
2842 BEGIN
2843 ASM
2844 MOVE.L A6,-(A7)
2845 MOVEA.L source,A0
2846 MOVE.L xSrc,D0
2847 MOVE.L srcMod,D1
2848 MOVEA.L destRP,A1
2849 MOVE.L xDest,D2
2850 MOVE.L yDest,D3
2851 MOVE.L xSize,D4
2852 MOVE.L ySize,D5
2853 MOVEA.L GfxBase,A6
2854 JSR -036(A6)
2855 MOVEA.L (A7)+,A6
2856 END;
2857 END;
2858
2859 FUNCTION CalcIVG(v : pView; vp : pViewPort) : WORD;
2860 BEGIN
2861 ASM
2862 MOVE.L A6,-(A7)
2863 MOVEA.L v,A0
2864 MOVEA.L vp,A1
2865 MOVEA.L GfxBase,A6
2866 JSR -828(A6)
2867 MOVEA.L (A7)+,A6
2868 MOVE.L D0,@RESULT
2869 END;
2870 END;
2871
2872 PROCEDURE CBump(copList : pUCopList);
2873 BEGIN
2874 ASM
2875 MOVE.L A6,-(A7)
2876 MOVEA.L copList,A1
2877 MOVEA.L GfxBase,A6
2878 JSR -366(A6)
2879 MOVEA.L (A7)+,A6
2880 END;
2881 END;
2882
2883 FUNCTION ChangeExtSpriteA(vp : pViewPort; oldsprite : pExtSprite; newsprite : pExtSprite; tags : pTagItem) : LONGINT;
2884 BEGIN
2885 ASM
2886 MOVE.L A6,-(A7)
2887 MOVEA.L vp,A0
2888 MOVEA.L oldsprite,A1
2889 MOVEA.L newsprite,A2
2890 MOVEA.L tags,A3
2891 MOVEA.L GfxBase,A6
2892 JSR -1026(A6)
2893 MOVEA.L (A7)+,A6
2894 MOVE.L D0,@RESULT
2895 END;
2896 END;
2897
2898 PROCEDURE ChangeSprite(vp : pViewPort; sprite : pSimpleSprite; newData : pCHAR);
2899 BEGIN
2900 ASM
2901 MOVE.L A6,-(A7)
2902 MOVEA.L vp,A0
2903 MOVEA.L sprite,A1
2904 MOVEA.L newData,A2
2905 MOVEA.L GfxBase,A6
2906 JSR -420(A6)
2907 MOVEA.L (A7)+,A6
2908 END;
2909 END;
2910
2911 PROCEDURE ChangeVPBitMap(vp : pViewPort; bm : pBitMap; db : pDBufInfo);
2912 BEGIN
2913 ASM
2914 MOVE.L A6,-(A7)
2915 MOVEA.L vp,A0
2916 MOVEA.L bm,A1
2917 MOVEA.L db,A2
2918 MOVEA.L GfxBase,A6
2919 JSR -942(A6)
2920 MOVEA.L (A7)+,A6
2921 END;
2922 END;
2923
2924 PROCEDURE ClearEOL(rp : pRastPort);
2925 BEGIN
2926 ASM
2927 MOVE.L A6,-(A7)
2928 MOVEA.L rp,A1
2929 MOVEA.L GfxBase,A6
2930 JSR -042(A6)
2931 MOVEA.L (A7)+,A6
2932 END;
2933 END;
2934
2935 FUNCTION ClearRectRegion(region : pRegion; rectangle : pRectangle) : BOOLEAN;
2936 BEGIN
2937 ASM
2938 MOVE.L A6,-(A7)
2939 MOVEA.L region,A0
2940 MOVEA.L rectangle,A1
2941 MOVEA.L GfxBase,A6
2942 JSR -522(A6)
2943 MOVEA.L (A7)+,A6
2944 TST.W D0
2945 BEQ.B @end
2946 MOVEQ #1,D0
2947 @end: MOVE.B D0,@RESULT
2948 END;
2949 END;
2950
2951 PROCEDURE ClearRegion(region : pRegion);
2952 BEGIN
2953 ASM
2954 MOVE.L A6,-(A7)
2955 MOVEA.L region,A0
2956 MOVEA.L GfxBase,A6
2957 JSR -528(A6)
2958 MOVEA.L (A7)+,A6
2959 END;
2960 END;
2961
2962 PROCEDURE ClearScreen(rp : pRastPort);
2963 BEGIN
2964 ASM
2965 MOVE.L A6,-(A7)
2966 MOVEA.L rp,A1
2967 MOVEA.L GfxBase,A6
2968 JSR -048(A6)
2969 MOVEA.L (A7)+,A6
2970 END;
2971 END;
2972
2973 PROCEDURE ClipBlit(srcRP : pRastPort; xSrc : LONGINT; ySrc : LONGINT; destRP : pRastPort; xDest : LONGINT; yDest : LONGINT; xSize : LONGINT; ySize : LONGINT; minterm : ULONG);
2974 BEGIN
2975 ASM
2976 MOVE.L A6,-(A7)
2977 MOVEA.L srcRP,A0
2978 MOVE.L xSrc,D0
2979 MOVE.L ySrc,D1
2980 MOVEA.L destRP,A1
2981 MOVE.L xDest,D2
2982 MOVE.L yDest,D3
2983 MOVE.L xSize,D4
2984 MOVE.L ySize,D5
2985 MOVE.L minterm,D6
2986 MOVEA.L GfxBase,A6
2987 JSR -552(A6)
2988 MOVEA.L (A7)+,A6
2989 END;
2990 END;
2991
2992 PROCEDURE CloseFont(textFont : pTextFont);
2993 BEGIN
2994 ASM
2995 MOVE.L A6,-(A7)
2996 MOVEA.L textFont,A1
2997 MOVEA.L GfxBase,A6
2998 JSR -078(A6)
2999 MOVEA.L (A7)+,A6
3000 END;
3001 END;
3002
3003 FUNCTION CloseMonitor(monitorSpec : pMonitorSpec) : BOOLEAN;
3004 BEGIN
3005 ASM
3006 MOVE.L A6,-(A7)
3007 MOVEA.L monitorSpec,A0
3008 MOVEA.L GfxBase,A6
3009 JSR -720(A6)
3010 MOVEA.L (A7)+,A6
3011 TST.W D0
3012 BEQ.B @end
3013 MOVEQ #1,D0
3014 @end: MOVE.B D0,@RESULT
3015 END;
3016 END;
3017
3018 PROCEDURE CMove(copList : pUCopList; destination : POINTER; data : LONGINT);
3019 BEGIN
3020 ASM
3021 MOVE.L A6,-(A7)
3022 MOVEA.L copList,A1
3023 MOVE.L destination,D0
3024 MOVE.L data,D1
3025 MOVEA.L GfxBase,A6
3026 JSR -372(A6)
3027 MOVEA.L (A7)+,A6
3028 END;
3029 END;
3030
3031 FUNCTION CoerceMode(vp : pViewPort; monitorid : ULONG; flags : ULONG) : ULONG;
3032 BEGIN
3033 ASM
3034 MOVE.L A6,-(A7)
3035 MOVEA.L vp,A0
3036 MOVE.L monitorid,D0
3037 MOVE.L flags,D1
3038 MOVEA.L GfxBase,A6
3039 JSR -936(A6)
3040 MOVEA.L (A7)+,A6
3041 MOVE.L D0,@RESULT
3042 END;
3043 END;
3044
3045 PROCEDURE CopySBitMap(layer : pLayer);
3046 BEGIN
3047 ASM
3048 MOVE.L A6,-(A7)
3049 MOVEA.L layer,A0
3050 MOVEA.L GfxBase,A6
3051 JSR -450(A6)
3052 MOVEA.L (A7)+,A6
3053 END;
3054 END;
3055
3056 PROCEDURE CWait(copList : pUCopList; v : LONGINT; h : LONGINT);
3057 BEGIN
3058 ASM
3059 MOVE.L A6,-(A7)
3060 MOVEA.L copList,A1
3061 MOVE.L v,D0
3062 MOVE.L h,D1
3063 MOVEA.L GfxBase,A6
3064 JSR -378(A6)
3065 MOVEA.L (A7)+,A6
3066 END;
3067 END;
3068
3069 PROCEDURE DisownBlitter;
3070 BEGIN
3071 ASM
3072 MOVE.L A6,-(A7)
3073 MOVEA.L GfxBase,A6
3074 JSR -462(A6)
3075 MOVEA.L (A7)+,A6
3076 END;
3077 END;
3078
3079 PROCEDURE DisposeRegion(region : pRegion);
3080 BEGIN
3081 ASM
3082 MOVE.L A6,-(A7)
3083 MOVEA.L region,A0
3084 MOVEA.L GfxBase,A6
3085 JSR -534(A6)
3086 MOVEA.L (A7)+,A6
3087 END;
3088 END;
3089
3090 PROCEDURE DoCollision(rp : pRastPort);
3091 BEGIN
3092 ASM
3093 MOVE.L A6,-(A7)
3094 MOVEA.L rp,A1
3095 MOVEA.L GfxBase,A6
3096 JSR -108(A6)
3097 MOVEA.L (A7)+,A6
3098 END;
3099 END;
3100
3101 PROCEDURE Draw(rp : pRastPort; x : LONGINT; y : LONGINT);
3102 BEGIN
3103 ASM
3104 MOVE.L A6,-(A7)
3105 MOVEA.L rp,A1
3106 MOVE.L x,D0
3107 MOVE.L y,D1
3108 MOVEA.L GfxBase,A6
3109 JSR -246(A6)
3110 MOVEA.L (A7)+,A6
3111 END;
3112 END;
3113
3114 PROCEDURE DrawEllipse(rp : pRastPort; xCenter : LONGINT; yCenter : LONGINT; a : LONGINT; b : LONGINT);
3115 BEGIN
3116 ASM
3117 MOVE.L A6,-(A7)
3118 MOVEA.L rp,A1
3119 MOVE.L xCenter,D0
3120 MOVE.L yCenter,D1
3121 MOVE.L a,D2
3122 MOVE.L b,D3
3123 MOVEA.L GfxBase,A6
3124 JSR -180(A6)
3125 MOVEA.L (A7)+,A6
3126 END;
3127 END;
3128
3129 PROCEDURE DrawGList(rp : pRastPort; vp : pViewPort);
3130 BEGIN
3131 ASM
3132 MOVE.L A6,-(A7)
3133 MOVEA.L rp,A1
3134 MOVEA.L vp,A0
3135 MOVEA.L GfxBase,A6
3136 JSR -114(A6)
3137 MOVEA.L (A7)+,A6
3138 END;
3139 END;
3140
3141 PROCEDURE EraseRect(rp : pRastPort; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
3142 BEGIN
3143 ASM
3144 MOVE.L A6,-(A7)
3145 MOVEA.L rp,A1
3146 MOVE.L xMin,D0
3147 MOVE.L yMin,D1
3148 MOVE.L xMax,D2
3149 MOVE.L yMax,D3
3150 MOVEA.L GfxBase,A6
3151 JSR -810(A6)
3152 MOVEA.L (A7)+,A6
3153 END;
3154 END;
3155
3156 FUNCTION ExtendFont(font : pTextFont; fontTags : pTagItem) : ULONG;
3157 BEGIN
3158 ASM
3159 MOVE.L A6,-(A7)
3160 MOVEA.L font,A0
3161 MOVEA.L fontTags,A1
3162 MOVEA.L GfxBase,A6
3163 JSR -816(A6)
3164 MOVEA.L (A7)+,A6
3165 MOVE.L D0,@RESULT
3166 END;
3167 END;
3168
3169 FUNCTION FindColor(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG; maxcolor : LONGINT) : LONGINT;
3170 BEGIN
3171 ASM
3172 MOVE.L A6,-(A7)
3173 MOVEA.L cm,A3
3174 MOVE.L r,D1
3175 MOVE.L g,D2
3176 MOVE.L b,D3
3177 MOVE.L maxcolor,D4
3178 MOVEA.L GfxBase,A6
3179 JSR -1008(A6)
3180 MOVEA.L (A7)+,A6
3181 MOVE.L D0,@RESULT
3182 END;
3183 END;
3184
3185 FUNCTION FindDisplayInfo(displayID : ULONG) : POINTER;
3186 BEGIN
3187 ASM
3188 MOVE.L A6,-(A7)
3189 MOVE.L displayID,D0
3190 MOVEA.L GfxBase,A6
3191 JSR -726(A6)
3192 MOVEA.L (A7)+,A6
3193 MOVE.L D0,@RESULT
3194 END;
3195 END;
3196
3197 FUNCTION Flood(rp : pRastPort; mode : ULONG; x : LONGINT; y : LONGINT) : BOOLEAN;
3198 BEGIN
3199 ASM
3200 MOVE.L A6,-(A7)
3201 MOVEA.L rp,A1
3202 MOVE.L mode,D2
3203 MOVE.L x,D0
3204 MOVE.L y,D1
3205 MOVEA.L GfxBase,A6
3206 JSR -330(A6)
3207 MOVEA.L (A7)+,A6
3208 TST.W D0
3209 BEQ.B @end
3210 MOVEQ #1,D0
3211 @end: MOVE.B D0,@RESULT
3212 END;
3213 END;
3214
3215 PROCEDURE FontExtent(font : pTextFont; fontExtent : pTextExtent);
3216 BEGIN
3217 ASM
3218 MOVE.L A6,-(A7)
3219 MOVEA.L font,A0
3220 MOVEA.L fontExtent,A1
3221 MOVEA.L GfxBase,A6
3222 JSR -762(A6)
3223 MOVEA.L (A7)+,A6
3224 END;
3225 END;
3226
3227 PROCEDURE FreeBitMap(bm : pBitMap);
3228 BEGIN
3229 ASM
3230 MOVE.L A6,-(A7)
3231 MOVEA.L bm,A0
3232 MOVEA.L GfxBase,A6
3233 JSR -924(A6)
3234 MOVEA.L (A7)+,A6
3235 END;
3236 END;
3237
3238 PROCEDURE FreeColorMap(colorMap : pColorMap);
3239 BEGIN
3240 ASM
3241 MOVE.L A6,-(A7)
3242 MOVEA.L colorMap,A0
3243 MOVEA.L GfxBase,A6
3244 JSR -576(A6)
3245 MOVEA.L (A7)+,A6
3246 END;
3247 END;
3248
3249 PROCEDURE FreeCopList(copList : pCopList);
3250 BEGIN
3251 ASM
3252 MOVE.L A6,-(A7)
3253 MOVEA.L copList,A0
3254 MOVEA.L GfxBase,A6
3255 JSR -546(A6)
3256 MOVEA.L (A7)+,A6
3257 END;
3258 END;
3259
3260 PROCEDURE FreeCprList(cprList : pcprlist);
3261 BEGIN
3262 ASM
3263 MOVE.L A6,-(A7)
3264 MOVEA.L cprList,A0
3265 MOVEA.L GfxBase,A6
3266 JSR -564(A6)
3267 MOVEA.L (A7)+,A6
3268 END;
3269 END;
3270
3271 PROCEDURE FreeDBufInfo(dbi : pDBufInfo);
3272 BEGIN
3273 ASM
3274 MOVE.L A6,-(A7)
3275 MOVEA.L dbi,A1
3276 MOVEA.L GfxBase,A6
3277 JSR -972(A6)
3278 MOVEA.L (A7)+,A6
3279 END;
3280 END;
3281
3282 PROCEDURE FreeGBuffers(anOb : pAnimOb; rp : pRastPort; flag : LONGINT);
3283 BEGIN
3284 ASM
3285 MOVE.L A6,-(A7)
3286 MOVEA.L anOb,A0
3287 MOVEA.L rp,A1
3288 MOVE.L flag,D0
3289 MOVEA.L GfxBase,A6
3290 JSR -600(A6)
3291 MOVEA.L (A7)+,A6
3292 END;
3293 END;
3294
3295 PROCEDURE FreeRaster(p : pCHAR; width : ULONG; height : ULONG);
3296 BEGIN
3297 ASM
3298 MOVE.L A6,-(A7)
3299 MOVEA.L p,A0
3300 MOVE.L width,D0
3301 MOVE.L height,D1
3302 MOVEA.L GfxBase,A6
3303 JSR -498(A6)
3304 MOVEA.L (A7)+,A6
3305 END;
3306 END;
3307
3308 PROCEDURE FreeSprite(num : LONGINT);
3309 BEGIN
3310 ASM
3311 MOVE.L A6,-(A7)
3312 MOVE.L num,D0
3313 MOVEA.L GfxBase,A6
3314 JSR -414(A6)
3315 MOVEA.L (A7)+,A6
3316 END;
3317 END;
3318
3319 PROCEDURE FreeSpriteData(sp : pExtSprite);
3320 BEGIN
3321 ASM
3322 MOVE.L A6,-(A7)
3323 MOVEA.L sp,A2
3324 MOVEA.L GfxBase,A6
3325 JSR -1032(A6)
3326 MOVEA.L (A7)+,A6
3327 END;
3328 END;
3329
3330 PROCEDURE FreeVPortCopLists(vp : pViewPort);
3331 BEGIN
3332 ASM
3333 MOVE.L A6,-(A7)
3334 MOVEA.L vp,A0
3335 MOVEA.L GfxBase,A6
3336 JSR -540(A6)
3337 MOVEA.L (A7)+,A6
3338 END;
3339 END;
3340
3341 FUNCTION GetAPen(rp : pRastPort) : ULONG;
3342 BEGIN
3343 ASM
3344 MOVE.L A6,-(A7)
3345 MOVEA.L rp,A0
3346 MOVEA.L GfxBase,A6
3347 JSR -858(A6)
3348 MOVEA.L (A7)+,A6
3349 MOVE.L D0,@RESULT
3350 END;
3351 END;
3352
3353 FUNCTION GetBitMapAttr(bm : pBitMap; attrnum : ULONG) : ULONG;
3354 BEGIN
3355 ASM
3356 MOVE.L A6,-(A7)
3357 MOVEA.L bm,A0
3358 MOVE.L attrnum,D1
3359 MOVEA.L GfxBase,A6
3360 JSR -960(A6)
3361 MOVEA.L (A7)+,A6
3362 MOVE.L D0,@RESULT
3363 END;
3364 END;
3365
3366 FUNCTION GetBPen(rp : pRastPort) : ULONG;
3367 BEGIN
3368 ASM
3369 MOVE.L A6,-(A7)
3370 MOVEA.L rp,A0
3371 MOVEA.L GfxBase,A6
3372 JSR -864(A6)
3373 MOVEA.L (A7)+,A6
3374 MOVE.L D0,@RESULT
3375 END;
3376 END;
3377
3378 FUNCTION GetColorMap(entries : LONGINT) : pColorMap;
3379 BEGIN
3380 ASM
3381 MOVE.L A6,-(A7)
3382 MOVE.L entries,D0
3383 MOVEA.L GfxBase,A6
3384 JSR -570(A6)
3385 MOVEA.L (A7)+,A6
3386 MOVE.L D0,@RESULT
3387 END;
3388 END;
3389
3390 FUNCTION GetDisplayInfoData(handle : POINTER; buf : pCHAR; size : ULONG; tagID : ULONG; displayID : ULONG) : ULONG;
3391 BEGIN
3392 ASM
3393 MOVE.L A6,-(A7)
3394 MOVEA.L handle,A0
3395 MOVEA.L buf,A1
3396 MOVE.L size,D0
3397 MOVE.L tagID,D1
3398 MOVE.L displayID,D2
3399 MOVEA.L GfxBase,A6
3400 JSR -756(A6)
3401 MOVEA.L (A7)+,A6
3402 MOVE.L D0,@RESULT
3403 END;
3404 END;
3405
3406 FUNCTION GetDrMd(rp : pRastPort) : ULONG;
3407 BEGIN
3408 ASM
3409 MOVE.L A6,-(A7)
3410 MOVEA.L rp,A0
3411 MOVEA.L GfxBase,A6
3412 JSR -870(A6)
3413 MOVEA.L (A7)+,A6
3414 MOVE.L D0,@RESULT
3415 END;
3416 END;
3417
3418 FUNCTION GetExtSpriteA(ss : pExtSprite; tags : pTagItem) : LONGINT;
3419 BEGIN
3420 ASM
3421 MOVE.L A6,-(A7)
3422 MOVEA.L ss,A2
3423 MOVEA.L tags,A1
3424 MOVEA.L GfxBase,A6
3425 JSR -930(A6)
3426 MOVEA.L (A7)+,A6
3427 MOVE.L D0,@RESULT
3428 END;
3429 END;
3430
3431 FUNCTION GetGBuffers(anOb : pAnimOb; rp : pRastPort; flag : LONGINT) : BOOLEAN;
3432 BEGIN
3433 ASM
3434 MOVE.L A6,-(A7)
3435 MOVEA.L anOb,A0
3436 MOVEA.L rp,A1
3437 MOVE.L flag,D0
3438 MOVEA.L GfxBase,A6
3439 JSR -168(A6)
3440 MOVEA.L (A7)+,A6
3441 TST.W D0
3442 BEQ.B @end
3443 MOVEQ #1,D0
3444 @end: MOVE.B D0,@RESULT
3445 END;
3446 END;
3447
3448 FUNCTION GetOutlinePen(rp : pRastPort) : ULONG;
3449 BEGIN
3450 ASM
3451 MOVE.L A6,-(A7)
3452 MOVEA.L rp,A0
3453 MOVEA.L GfxBase,A6
3454 JSR -876(A6)
3455 MOVEA.L (A7)+,A6
3456 MOVE.L D0,@RESULT
3457 END;
3458 END;
3459
3460 PROCEDURE GetRGB32(cm : pColorMap; firstcolor : ULONG; ncolors : ULONG; table : POINTER);
3461 BEGIN
3462 ASM
3463 MOVE.L A6,-(A7)
3464 MOVEA.L cm,A0
3465 MOVE.L firstcolor,D0
3466 MOVE.L ncolors,D1
3467 MOVEA.L table,A1
3468 MOVEA.L GfxBase,A6
3469 JSR -900(A6)
3470 MOVEA.L (A7)+,A6
3471 END;
3472 END;
3473
3474 FUNCTION GetRGB4(colorMap : pColorMap; entry : LONGINT) : ULONG;
3475 BEGIN
3476 ASM
3477 MOVE.L A6,-(A7)
3478 MOVEA.L colorMap,A0
3479 MOVE.L entry,D0
3480 MOVEA.L GfxBase,A6
3481 JSR -582(A6)
3482 MOVEA.L (A7)+,A6
3483 MOVE.L D0,@RESULT
3484 END;
3485 END;
3486
3487 PROCEDURE GetRPAttrsA(rp : pRastPort; tags : pTagItem);
3488 BEGIN
3489 ASM
3490 MOVE.L A6,-(A7)
3491 MOVEA.L rp,A0
3492 MOVEA.L tags,A1
3493 MOVEA.L GfxBase,A6
3494 JSR -1044(A6)
3495 MOVEA.L (A7)+,A6
3496 END;
3497 END;
3498
3499 FUNCTION GetSprite(sprite : pSimpleSprite; num : LONGINT) : INTEGER;
3500 BEGIN
3501 ASM
3502 MOVE.L A6,-(A7)
3503 MOVEA.L sprite,A0
3504 MOVE.L num,D0
3505 MOVEA.L GfxBase,A6
3506 JSR -408(A6)
3507 MOVEA.L (A7)+,A6
3508 MOVE.L D0,@RESULT
3509 END;
3510 END;
3511
3512 FUNCTION GetVPModeID(vp : pViewPort) : LONGINT;
3513 BEGIN
3514 ASM
3515 MOVE.L A6,-(A7)
3516 MOVEA.L vp,A0
3517 MOVEA.L GfxBase,A6
3518 JSR -792(A6)
3519 MOVEA.L (A7)+,A6
3520 MOVE.L D0,@RESULT
3521 END;
3522 END;
3523
3524 PROCEDURE GfxAssociate(associateNode : POINTER; gfxNodePtr : POINTER);
3525 BEGIN
3526 ASM
3527 MOVE.L A6,-(A7)
3528 MOVEA.L associateNode,A0
3529 MOVEA.L gfxNodePtr,A1
3530 MOVEA.L GfxBase,A6
3531 JSR -672(A6)
3532 MOVEA.L (A7)+,A6
3533 END;
3534 END;
3535
3536 PROCEDURE GfxFree(gfxNodePtr : POINTER);
3537 BEGIN
3538 ASM
3539 MOVE.L A6,-(A7)
3540 MOVEA.L gfxNodePtr,A0
3541 MOVEA.L GfxBase,A6
3542 JSR -666(A6)
3543 MOVEA.L (A7)+,A6
3544 END;
3545 END;
3546
3547 FUNCTION GfxLookUp(associateNode : POINTER) : POINTER;
3548 BEGIN
3549 ASM
3550 MOVE.L A6,-(A7)
3551 MOVEA.L associateNode,A0
3552 MOVEA.L GfxBase,A6
3553 JSR -702(A6)
3554 MOVEA.L (A7)+,A6
3555 MOVE.L D0,@RESULT
3556 END;
3557 END;
3558
3559 FUNCTION GfxNew(gfxNodeType : ULONG) : POINTER;
3560 BEGIN
3561 ASM
3562 MOVE.L A6,-(A7)
3563 MOVE.L gfxNodeType,D0
3564 MOVEA.L GfxBase,A6
3565 JSR -660(A6)
3566 MOVEA.L (A7)+,A6
3567 MOVE.L D0,@RESULT
3568 END;
3569 END;
3570
3571 PROCEDURE InitArea(areaInfo : pAreaInfo; vectorBuffer : POINTER; maxVectors : LONGINT);
3572 BEGIN
3573 ASM
3574 MOVE.L A6,-(A7)
3575 MOVEA.L areaInfo,A0
3576 MOVEA.L vectorBuffer,A1
3577 MOVE.L maxVectors,D0
3578 MOVEA.L GfxBase,A6
3579 JSR -282(A6)
3580 MOVEA.L (A7)+,A6
3581 END;
3582 END;
3583
3584 PROCEDURE InitBitMap(bitMap : pBitMap; depth : LONGINT; width : LONGINT; height : LONGINT);
3585 BEGIN
3586 ASM
3587 MOVE.L A6,-(A7)
3588 MOVEA.L bitMap,A0
3589 MOVE.L depth,D0
3590 MOVE.L width,D1
3591 MOVE.L height,D2
3592 MOVEA.L GfxBase,A6
3593 JSR -390(A6)
3594 MOVEA.L (A7)+,A6
3595 END;
3596 END;
3597
3598 PROCEDURE InitGels(head : pVSprite; tail : pVSprite; gelsInfo : pGelsInfo);
3599 BEGIN
3600 ASM
3601 MOVE.L A6,-(A7)
3602 MOVEA.L head,A0
3603 MOVEA.L tail,A1
3604 MOVEA.L gelsInfo,A2
3605 MOVEA.L GfxBase,A6
3606 JSR -120(A6)
3607 MOVEA.L (A7)+,A6
3608 END;
3609 END;
3610
3611 PROCEDURE InitGMasks(anOb : pAnimOb);
3612 BEGIN
3613 ASM
3614 MOVE.L A6,-(A7)
3615 MOVEA.L anOb,A0
3616 MOVEA.L GfxBase,A6
3617 JSR -174(A6)
3618 MOVEA.L (A7)+,A6
3619 END;
3620 END;
3621
3622 PROCEDURE InitMasks(vSprite : pVSprite);
3623 BEGIN
3624 ASM
3625 MOVE.L A6,-(A7)
3626 MOVEA.L vSprite,A0
3627 MOVEA.L GfxBase,A6
3628 JSR -126(A6)
3629 MOVEA.L (A7)+,A6
3630 END;
3631 END;
3632
3633 PROCEDURE InitRastPort(rp : pRastPort);
3634 BEGIN
3635 ASM
3636 MOVE.L A6,-(A7)
3637 MOVEA.L rp,A1
3638 MOVEA.L GfxBase,A6
3639 JSR -198(A6)
3640 MOVEA.L (A7)+,A6
3641 END;
3642 END;
3643
3644 FUNCTION InitTmpRas(tmpRas : pTmpRas; buffer : pCHAR; size : LONGINT) : pTmpRas;
3645 BEGIN
3646 ASM
3647 MOVE.L A6,-(A7)
3648 MOVEA.L tmpRas,A0
3649 MOVEA.L buffer,A1
3650 MOVE.L size,D0
3651 MOVEA.L GfxBase,A6
3652 JSR -468(A6)
3653 MOVEA.L (A7)+,A6
3654 MOVE.L D0,@RESULT
3655 END;
3656 END;
3657
3658 PROCEDURE InitView(view : pView);
3659 BEGIN
3660 ASM
3661 MOVE.L A6,-(A7)
3662 MOVEA.L view,A1
3663 MOVEA.L GfxBase,A6
3664 JSR -360(A6)
3665 MOVEA.L (A7)+,A6
3666 END;
3667 END;
3668
3669 PROCEDURE InitVPort(vp : pViewPort);
3670 BEGIN
3671 ASM
3672 MOVE.L A6,-(A7)
3673 MOVEA.L vp,A0
3674 MOVEA.L GfxBase,A6
3675 JSR -204(A6)
3676 MOVEA.L (A7)+,A6
3677 END;
3678 END;
3679
3680 PROCEDURE LoadRGB32(vp : pViewPort; table : POINTER);
3681 BEGIN
3682 ASM
3683 MOVE.L A6,-(A7)
3684 MOVEA.L vp,A0
3685 MOVEA.L table,A1
3686 MOVEA.L GfxBase,A6
3687 JSR -882(A6)
3688 MOVEA.L (A7)+,A6
3689 END;
3690 END;
3691
3692 PROCEDURE LoadRGB4(vp : pViewPort; colors : POINTER; count : LONGINT);
3693 BEGIN
3694 ASM
3695 MOVE.L A6,-(A7)
3696 MOVEA.L vp,A0
3697 MOVEA.L colors,A1
3698 MOVE.L count,D0
3699 MOVEA.L GfxBase,A6
3700 JSR -192(A6)
3701 MOVEA.L (A7)+,A6
3702 END;
3703 END;
3704
3705 PROCEDURE LoadView(view : pView);
3706 BEGIN
3707 ASM
3708 MOVE.L A6,-(A7)
3709 MOVEA.L view,A1
3710 MOVEA.L GfxBase,A6
3711 JSR -222(A6)
3712 MOVEA.L (A7)+,A6
3713 END;
3714 END;
3715
3716 PROCEDURE LockLayerRom(layer : pLayer);
3717 BEGIN
3718 ASM
3719 MOVE.L A6,-(A7)
3720 MOVEA.L layer,A5
3721 MOVEA.L GfxBase,A6
3722 JSR -432(A6)
3723 MOVEA.L (A7)+,A6
3724 END;
3725 END;
3726
3727 FUNCTION MakeVPort(view : pView; vp : pViewPort) : ULONG;
3728 BEGIN
3729 ASM
3730 MOVE.L A6,-(A7)
3731 MOVEA.L view,A0
3732 MOVEA.L vp,A1
3733 MOVEA.L GfxBase,A6
3734 JSR -216(A6)
3735 MOVEA.L (A7)+,A6
3736 MOVE.L D0,@RESULT
3737 END;
3738 END;
3739
3740 FUNCTION ModeNotAvailable(modeID : ULONG) : LONGINT;
3741 BEGIN
3742 ASM
3743 MOVE.L A6,-(A7)
3744 MOVE.L modeID,D0
3745 MOVEA.L GfxBase,A6
3746 JSR -798(A6)
3747 MOVEA.L (A7)+,A6
3748 MOVE.L D0,@RESULT
3749 END;
3750 END;
3751
3752 PROCEDURE Move(rp : pRastPort; x : LONGINT; y : LONGINT);
3753 BEGIN
3754 ASM
3755 MOVE.L A6,-(A7)
3756 MOVEA.L rp,A1
3757 MOVE.L x,D0
3758 MOVE.L y,D1
3759 MOVEA.L GfxBase,A6
3760 JSR -240(A6)
3761 MOVEA.L (A7)+,A6
3762 END;
3763 END;
3764
3765 PROCEDURE MoveSprite(vp : pViewPort; sprite : pSimpleSprite; x : LONGINT; y : LONGINT);
3766 BEGIN
3767 ASM
3768 MOVE.L A6,-(A7)
3769 MOVEA.L vp,A0
3770 MOVEA.L sprite,A1
3771 MOVE.L x,D0
3772 MOVE.L y,D1
3773 MOVEA.L GfxBase,A6
3774 JSR -426(A6)
3775 MOVEA.L (A7)+,A6
3776 END;
3777 END;
3778
3779 FUNCTION MrgCop(view : pView) : ULONG;
3780 BEGIN
3781 ASM
3782 MOVE.L A6,-(A7)
3783 MOVEA.L view,A1
3784 MOVEA.L GfxBase,A6
3785 JSR -210(A6)
3786 MOVEA.L (A7)+,A6
3787 MOVE.L D0,@RESULT
3788 END;
3789 END;
3790
3791 FUNCTION NewRegion : pRegion;
3792 BEGIN
3793 ASM
3794 MOVE.L A6,-(A7)
3795 MOVEA.L GfxBase,A6
3796 JSR -516(A6)
3797 MOVEA.L (A7)+,A6
3798 MOVE.L D0,@RESULT
3799 END;
3800 END;
3801
3802 FUNCTION NextDisplayInfo(displayID : ULONG) : ULONG;
3803 BEGIN
3804 ASM
3805 MOVE.L A6,-(A7)
3806 MOVE.L displayID,D0
3807 MOVEA.L GfxBase,A6
3808 JSR -732(A6)
3809 MOVEA.L (A7)+,A6
3810 MOVE.L D0,@RESULT
3811 END;
3812 END;
3813
3814 FUNCTION ObtainBestPenA(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG; tags : pTagItem) : LONGINT;
3815 BEGIN
3816 ASM
3817 MOVE.L A6,-(A7)
3818 MOVEA.L cm,A0
3819 MOVE.L r,D1
3820 MOVE.L g,D2
3821 MOVE.L b,D3
3822 MOVEA.L tags,A1
3823 MOVEA.L GfxBase,A6
3824 JSR -840(A6)
3825 MOVEA.L (A7)+,A6
3826 MOVE.L D0,@RESULT
3827 END;
3828 END;
3829
3830 FUNCTION ObtainPen(cm : pColorMap; n : ULONG; r : ULONG; g : ULONG; b : ULONG; f : LONGINT) : ULONG;
3831 BEGIN
3832 ASM
3833 MOVE.L A6,-(A7)
3834 MOVEA.L cm,A0
3835 MOVE.L n,D0
3836 MOVE.L r,D1
3837 MOVE.L g,D2
3838 MOVE.L b,D3
3839 MOVE.L f,D4
3840 MOVEA.L GfxBase,A6
3841 JSR -954(A6)
3842 MOVEA.L (A7)+,A6
3843 MOVE.L D0,@RESULT
3844 END;
3845 END;
3846
3847 FUNCTION OpenFont(textAttr : pTextAttr) : pTextFont;
3848 BEGIN
3849 ASM
3850 MOVE.L A6,-(A7)
3851 MOVEA.L textAttr,A0
3852 MOVEA.L GfxBase,A6
3853 JSR -072(A6)
3854 MOVEA.L (A7)+,A6
3855 MOVE.L D0,@RESULT
3856 END;
3857 END;
3858
3859 FUNCTION OpenMonitor(monitorName : pCHAR; displayID : ULONG) : pMonitorSpec;
3860 BEGIN
3861 ASM
3862 MOVE.L A6,-(A7)
3863 MOVEA.L monitorName,A1
3864 MOVE.L displayID,D0
3865 MOVEA.L GfxBase,A6
3866 JSR -714(A6)
3867 MOVEA.L (A7)+,A6
3868 MOVE.L D0,@RESULT
3869 END;
3870 END;
3871
3872 FUNCTION OrRectRegion(region : pRegion; rectangle : pRectangle) : BOOLEAN;
3873 BEGIN
3874 ASM
3875 MOVE.L A6,-(A7)
3876 MOVEA.L region,A0
3877 MOVEA.L rectangle,A1
3878 MOVEA.L GfxBase,A6
3879 JSR -510(A6)
3880 MOVEA.L (A7)+,A6
3881 TST.W D0
3882 BEQ.B @end
3883 MOVEQ #1,D0
3884 @end: MOVE.B D0,@RESULT
3885 END;
3886 END;
3887
3888 FUNCTION OrRegionRegion(srcRegion : pRegion; destRegion : pRegion) : BOOLEAN;
3889 BEGIN
3890 ASM
3891 MOVE.L A6,-(A7)
3892 MOVEA.L srcRegion,A0
3893 MOVEA.L destRegion,A1
3894 MOVEA.L GfxBase,A6
3895 JSR -612(A6)
3896 MOVEA.L (A7)+,A6
3897 TST.W D0
3898 BEQ.B @end
3899 MOVEQ #1,D0
3900 @end: MOVE.B D0,@RESULT
3901 END;
3902 END;
3903
3904 PROCEDURE OwnBlitter;
3905 BEGIN
3906 ASM
3907 MOVE.L A6,-(A7)
3908 MOVEA.L GfxBase,A6
3909 JSR -456(A6)
3910 MOVEA.L (A7)+,A6
3911 END;
3912 END;
3913
3914 PROCEDURE PolyDraw(rp : pRastPort; count : LONGINT; polyTable : POINTER);
3915 BEGIN
3916 ASM
3917 MOVE.L A6,-(A7)
3918 MOVEA.L rp,A1
3919 MOVE.L count,D0
3920 MOVEA.L polyTable,A0
3921 MOVEA.L GfxBase,A6
3922 JSR -336(A6)
3923 MOVEA.L (A7)+,A6
3924 END;
3925 END;
3926
3927 PROCEDURE QBlit(blit : pbltnode);
3928 BEGIN
3929 ASM
3930 MOVE.L A6,-(A7)
3931 MOVEA.L blit,A1
3932 MOVEA.L GfxBase,A6
3933 JSR -276(A6)
3934 MOVEA.L (A7)+,A6
3935 END;
3936 END;
3937
3938 PROCEDURE QBSBlit(blit : pbltnode);
3939 BEGIN
3940 ASM
3941 MOVE.L A6,-(A7)
3942 MOVEA.L blit,A1
3943 MOVEA.L GfxBase,A6
3944 JSR -294(A6)
3945 MOVEA.L (A7)+,A6
3946 END;
3947 END;
3948
3949 FUNCTION ReadPixel(rp : pRastPort; x : LONGINT; y : LONGINT) : ULONG;
3950 BEGIN
3951 ASM
3952 MOVE.L A6,-(A7)
3953 MOVEA.L rp,A1
3954 MOVE.L x,D0
3955 MOVE.L y,D1
3956 MOVEA.L GfxBase,A6
3957 JSR -318(A6)
3958 MOVEA.L (A7)+,A6
3959 MOVE.L D0,@RESULT
3960 END;
3961 END;
3962
3963 FUNCTION ReadPixelArray8(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pCHAR; temprp : pRastPort) : LONGINT;
3964 BEGIN
3965 ASM
3966 MOVE.L A6,-(A7)
3967 MOVEA.L rp,A0
3968 MOVE.L xstart,D0
3969 MOVE.L ystart,D1
3970 MOVE.L xstop,D2
3971 MOVE.L ystop,D3
3972 MOVEA.L array_,A2
3973 MOVEA.L temprp,A1
3974 MOVEA.L GfxBase,A6
3975 JSR -780(A6)
3976 MOVEA.L (A7)+,A6
3977 MOVE.L D0,@RESULT
3978 END;
3979 END;
3980
3981 FUNCTION ReadPixelLine8(rp : pRastPort; xstart : ULONG; ystart : ULONG; width : ULONG; array_ : pCHAR; tempRP : pRastPort) : LONGINT;
3982 BEGIN
3983 ASM
3984 MOVE.L A6,-(A7)
3985 MOVEA.L rp,A0
3986 MOVE.L xstart,D0
3987 MOVE.L ystart,D1
3988 MOVE.L width,D2
3989 MOVEA.L array_,A2
3990 MOVEA.L tempRP,A1
3991 MOVEA.L GfxBase,A6
3992 JSR -768(A6)
3993 MOVEA.L (A7)+,A6
3994 MOVE.L D0,@RESULT
3995 END;
3996 END;
3997
3998 PROCEDURE RectFill(rp : pRastPort; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
3999 BEGIN
4000 ASM
4001 MOVE.L A6,-(A7)
4002 MOVEA.L rp,A1
4003 MOVE.L xMin,D0
4004 MOVE.L yMin,D1
4005 MOVE.L xMax,D2
4006 MOVE.L yMax,D3
4007 MOVEA.L GfxBase,A6
4008 JSR -306(A6)
4009 MOVEA.L (A7)+,A6
4010 END;
4011 END;
4012
4013 PROCEDURE ReleasePen(cm : pColorMap; n : ULONG);
4014 BEGIN
4015 ASM
4016 MOVE.L A6,-(A7)
4017 MOVEA.L cm,A0
4018 MOVE.L n,D0
4019 MOVEA.L GfxBase,A6
4020 JSR -948(A6)
4021 MOVEA.L (A7)+,A6
4022 END;
4023 END;
4024
4025 PROCEDURE RemFont(textFont : pTextFont);
4026 BEGIN
4027 ASM
4028 MOVE.L A6,-(A7)
4029 MOVEA.L textFont,A1
4030 MOVEA.L GfxBase,A6
4031 JSR -486(A6)
4032 MOVEA.L (A7)+,A6
4033 END;
4034 END;
4035
4036 PROCEDURE RemIBob(bob : pBob; rp : pRastPort; vp : pViewPort);
4037 BEGIN
4038 ASM
4039 MOVE.L A6,-(A7)
4040 MOVEA.L bob,A0
4041 MOVEA.L rp,A1
4042 MOVEA.L vp,A2
4043 MOVEA.L GfxBase,A6
4044 JSR -132(A6)
4045 MOVEA.L (A7)+,A6
4046 END;
4047 END;
4048
4049 PROCEDURE RemVSprite(vSprite : pVSprite);
4050 BEGIN
4051 ASM
4052 MOVE.L A6,-(A7)
4053 MOVEA.L vSprite,A0
4054 MOVEA.L GfxBase,A6
4055 JSR -138(A6)
4056 MOVEA.L (A7)+,A6
4057 END;
4058 END;
4059
4060 FUNCTION ScalerDiv(factor : ULONG; numerator : ULONG; denominator : ULONG) : WORD;
4061 BEGIN
4062 ASM
4063 MOVE.L A6,-(A7)
4064 MOVE.L factor,D0
4065 MOVE.L numerator,D1
4066 MOVE.L denominator,D2
4067 MOVEA.L GfxBase,A6
4068 JSR -684(A6)
4069 MOVEA.L (A7)+,A6
4070 MOVE.L D0,@RESULT
4071 END;
4072 END;
4073
4074 PROCEDURE ScrollRaster(rp : pRastPort; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
4075 BEGIN
4076 ASM
4077 MOVE.L A6,-(A7)
4078 MOVEA.L rp,A1
4079 MOVE.L dx,D0
4080 MOVE.L dy,D1
4081 MOVE.L xMin,D2
4082 MOVE.L yMin,D3
4083 MOVE.L xMax,D4
4084 MOVE.L yMax,D5
4085 MOVEA.L GfxBase,A6
4086 JSR -396(A6)
4087 MOVEA.L (A7)+,A6
4088 END;
4089 END;
4090
4091 PROCEDURE ScrollRasterBF(rp : pRastPort; dx : LONGINT; dy : LONGINT; xMin : LONGINT; yMin : LONGINT; xMax : LONGINT; yMax : LONGINT);
4092 BEGIN
4093 ASM
4094 MOVE.L A6,-(A7)
4095 MOVEA.L rp,A1
4096 MOVE.L dx,D0
4097 MOVE.L dy,D1
4098 MOVE.L xMin,D2
4099 MOVE.L yMin,D3
4100 MOVE.L xMax,D4
4101 MOVE.L yMax,D5
4102 MOVEA.L GfxBase,A6
4103 JSR -1002(A6)
4104 MOVEA.L (A7)+,A6
4105 END;
4106 END;
4107
4108 PROCEDURE ScrollVPort(vp : pViewPort);
4109 BEGIN
4110 ASM
4111 MOVE.L A6,-(A7)
4112 MOVEA.L vp,A0
4113 MOVEA.L GfxBase,A6
4114 JSR -588(A6)
4115 MOVEA.L (A7)+,A6
4116 END;
4117 END;
4118
4119 PROCEDURE SetABPenDrMd(rp : pRastPort; apen : ULONG; bpen : ULONG; drawmode : ULONG);
4120 BEGIN
4121 ASM
4122 MOVE.L A6,-(A7)
4123 MOVEA.L rp,A1
4124 MOVE.L apen,D0
4125 MOVE.L bpen,D1
4126 MOVE.L drawmode,D2
4127 MOVEA.L GfxBase,A6
4128 JSR -894(A6)
4129 MOVEA.L (A7)+,A6
4130 END;
4131 END;
4132
4133 PROCEDURE SetAPen(rp : pRastPort; pen : ULONG);
4134 BEGIN
4135 ASM
4136 MOVE.L A6,-(A7)
4137 MOVEA.L rp,A1
4138 MOVE.L pen,D0
4139 MOVEA.L GfxBase,A6
4140 JSR -342(A6)
4141 MOVEA.L (A7)+,A6
4142 END;
4143 END;
4144
4145 PROCEDURE SetBPen(rp : pRastPort; pen : ULONG);
4146 BEGIN
4147 ASM
4148 MOVE.L A6,-(A7)
4149 MOVEA.L rp,A1
4150 MOVE.L pen,D0
4151 MOVEA.L GfxBase,A6
4152 JSR -348(A6)
4153 MOVEA.L (A7)+,A6
4154 END;
4155 END;
4156
4157 FUNCTION SetChipRev(want : ULONG) : ULONG;
4158 BEGIN
4159 ASM
4160 MOVE.L A6,-(A7)
4161 MOVE.L want,D0
4162 MOVEA.L GfxBase,A6
4163 JSR -888(A6)
4164 MOVEA.L (A7)+,A6
4165 MOVE.L D0,@RESULT
4166 END;
4167 END;
4168
4169 PROCEDURE SetCollision(num : ULONG; routine : tPROCEDURE; gelsInfo : pGelsInfo);
4170 BEGIN
4171 ASM
4172 MOVE.L A6,-(A7)
4173 MOVE.L num,D0
4174 MOVEA.L routine,A0
4175 MOVEA.L gelsInfo,A1
4176 MOVEA.L GfxBase,A6
4177 JSR -144(A6)
4178 MOVEA.L (A7)+,A6
4179 END;
4180 END;
4181
4182 PROCEDURE SetDrMd(rp : pRastPort; drawMode : ULONG);
4183 BEGIN
4184 ASM
4185 MOVE.L A6,-(A7)
4186 MOVEA.L rp,A1
4187 MOVE.L drawMode,D0
4188 MOVEA.L GfxBase,A6
4189 JSR -354(A6)
4190 MOVEA.L (A7)+,A6
4191 END;
4192 END;
4193
4194 FUNCTION SetFont(rp : pRastPort; textFont : pTextFont) : LONGINT;
4195 BEGIN
4196 ASM
4197 MOVE.L A6,-(A7)
4198 MOVEA.L rp,A1
4199 MOVEA.L textFont,A0
4200 MOVEA.L GfxBase,A6
4201 JSR -066(A6)
4202 MOVEA.L (A7)+,A6
4203 MOVE.L D0,@RESULT
4204 END;
4205 END;
4206
4207 PROCEDURE SetMaxPen(rp : pRastPort; maxpen : ULONG);
4208 BEGIN
4209 ASM
4210 MOVE.L A6,-(A7)
4211 MOVEA.L rp,A0
4212 MOVE.L maxpen,D0
4213 MOVEA.L GfxBase,A6
4214 JSR -990(A6)
4215 MOVEA.L (A7)+,A6
4216 END;
4217 END;
4218
4219 FUNCTION SetOutlinePen(rp : pRastPort; pen : ULONG) : ULONG;
4220 BEGIN
4221 ASM
4222 MOVE.L A6,-(A7)
4223 MOVEA.L rp,A0
4224 MOVE.L pen,D0
4225 MOVEA.L GfxBase,A6
4226 JSR -978(A6)
4227 MOVEA.L (A7)+,A6
4228 MOVE.L D0,@RESULT
4229 END;
4230 END;
4231
4232 PROCEDURE SetRast(rp : pRastPort; pen : ULONG);
4233 BEGIN
4234 ASM
4235 MOVE.L A6,-(A7)
4236 MOVEA.L rp,A1
4237 MOVE.L pen,D0
4238 MOVEA.L GfxBase,A6
4239 JSR -234(A6)
4240 MOVEA.L (A7)+,A6
4241 END;
4242 END;
4243
4244 PROCEDURE SetRGB32(vp : pViewPort; n : ULONG; r : ULONG; g : ULONG; b : ULONG);
4245 BEGIN
4246 ASM
4247 MOVE.L A6,-(A7)
4248 MOVEA.L vp,A0
4249 MOVE.L n,D0
4250 MOVE.L r,D1
4251 MOVE.L g,D2
4252 MOVE.L b,D3
4253 MOVEA.L GfxBase,A6
4254 JSR -852(A6)
4255 MOVEA.L (A7)+,A6
4256 END;
4257 END;
4258
4259 PROCEDURE SetRGB32CM(cm : pColorMap; n : ULONG; r : ULONG; g : ULONG; b : ULONG);
4260 BEGIN
4261 ASM
4262 MOVE.L A6,-(A7)
4263 MOVEA.L cm,A0
4264 MOVE.L n,D0
4265 MOVE.L r,D1
4266 MOVE.L g,D2
4267 MOVE.L b,D3
4268 MOVEA.L GfxBase,A6
4269 JSR -996(A6)
4270 MOVEA.L (A7)+,A6
4271 END;
4272 END;
4273
4274 PROCEDURE SetRGB4(vp : pViewPort; index : LONGINT; red : ULONG; green : ULONG; blue : ULONG);
4275 BEGIN
4276 ASM
4277 MOVE.L A6,-(A7)
4278 MOVEA.L vp,A0
4279 MOVE.L index,D0
4280 MOVE.L red,D1
4281 MOVE.L green,D2
4282 MOVE.L blue,D3
4283 MOVEA.L GfxBase,A6
4284 JSR -288(A6)
4285 MOVEA.L (A7)+,A6
4286 END;
4287 END;
4288
4289 PROCEDURE SetRGB4CM(colorMap : pColorMap; index : LONGINT; red : ULONG; green : ULONG; blue : ULONG);
4290 BEGIN
4291 ASM
4292 MOVE.L A6,-(A7)
4293 MOVEA.L colorMap,A0
4294 MOVE.L index,D0
4295 MOVE.L red,D1
4296 MOVE.L green,D2
4297 MOVE.L blue,D3
4298 MOVEA.L GfxBase,A6
4299 JSR -630(A6)
4300 MOVEA.L (A7)+,A6
4301 END;
4302 END;
4303
4304 PROCEDURE SetRPAttrsA(rp : pRastPort; tags : pTagItem);
4305 BEGIN
4306 ASM
4307 MOVE.L A6,-(A7)
4308 MOVEA.L rp,A0
4309 MOVEA.L tags,A1
4310 MOVEA.L GfxBase,A6
4311 JSR -1038(A6)
4312 MOVEA.L (A7)+,A6
4313 END;
4314 END;
4315
4316 FUNCTION SetSoftStyle(rp : pRastPort; style : ULONG; enable : ULONG) : ULONG;
4317 BEGIN
4318 ASM
4319 MOVE.L A6,-(A7)
4320 MOVEA.L rp,A1
4321 MOVE.L style,D0
4322 MOVE.L enable,D1
4323 MOVEA.L GfxBase,A6
4324 JSR -090(A6)
4325 MOVEA.L (A7)+,A6
4326 MOVE.L D0,@RESULT
4327 END;
4328 END;
4329
4330 FUNCTION SetWriteMask(rp : pRastPort; msk : ULONG) : ULONG;
4331 BEGIN
4332 ASM
4333 MOVE.L A6,-(A7)
4334 MOVEA.L rp,A0
4335 MOVE.L msk,D0
4336 MOVEA.L GfxBase,A6
4337 JSR -984(A6)
4338 MOVEA.L (A7)+,A6
4339 MOVE.L D0,@RESULT
4340 END;
4341 END;
4342
4343 PROCEDURE SortGList(rp : pRastPort);
4344 BEGIN
4345 ASM
4346 MOVE.L A6,-(A7)
4347 MOVEA.L rp,A1
4348 MOVEA.L GfxBase,A6
4349 JSR -150(A6)
4350 MOVEA.L (A7)+,A6
4351 END;
4352 END;
4353
4354 PROCEDURE StripFont(font : pTextFont);
4355 BEGIN
4356 ASM
4357 MOVE.L A6,-(A7)
4358 MOVEA.L font,A0
4359 MOVEA.L GfxBase,A6
4360 JSR -822(A6)
4361 MOVEA.L (A7)+,A6
4362 END;
4363 END;
4364
4365 PROCEDURE SyncSBitMap(layer : pLayer);
4366 BEGIN
4367 ASM
4368 MOVE.L A6,-(A7)
4369 MOVEA.L layer,A0
4370 MOVEA.L GfxBase,A6
4371 JSR -444(A6)
4372 MOVEA.L (A7)+,A6
4373 END;
4374 END;
4375
4376 FUNCTION Text(rp : pRastPort; string_ : pCHAR; count : ULONG) : LONGINT;
4377 BEGIN
4378 ASM
4379 MOVE.L A6,-(A7)
4380 MOVEA.L rp,A1
4381 MOVEA.L string_,A0
4382 MOVE.L count,D0
4383 MOVEA.L GfxBase,A6
4384 JSR -060(A6)
4385 MOVEA.L (A7)+,A6
4386 MOVE.L D0,@RESULT
4387 END;
4388 END;
4389
4390 FUNCTION TextExtent(rp : pRastPort; string_ : pCHAR; count : LONGINT; textExtent : pTextExtent) : INTEGER;
4391 BEGIN
4392 ASM
4393 MOVE.L A6,-(A7)
4394 MOVEA.L rp,A1
4395 MOVEA.L string_,A0
4396 MOVE.L count,D0
4397 MOVEA.L textExtent,A2
4398 MOVEA.L GfxBase,A6
4399 JSR -690(A6)
4400 MOVEA.L (A7)+,A6
4401 MOVE.L D0,@RESULT
4402 END;
4403 END;
4404
4405 FUNCTION TextFit(rp : pRastPort; string_ : pCHAR; strLen : ULONG; textExtent : pTextExtent; constrainingExtent : pTextExtent; strDirection : LONGINT; constrainingBitWidth : ULONG; constrainingBitHeight : ULONG) : ULONG;
4406 BEGIN
4407 ASM
4408 MOVE.L A6,-(A7)
4409 MOVEA.L rp,A1
4410 MOVEA.L string_,A0
4411 MOVE.L strLen,D0
4412 MOVEA.L textExtent,A2
4413 MOVEA.L constrainingExtent,A3
4414 MOVE.L strDirection,D1
4415 MOVE.L constrainingBitWidth,D2
4416 MOVE.L constrainingBitHeight,D3
4417 MOVEA.L GfxBase,A6
4418 JSR -696(A6)
4419 MOVEA.L (A7)+,A6
4420 MOVE.L D0,@RESULT
4421 END;
4422 END;
4423
4424 FUNCTION TextLength(rp : pRastPort; string_ : pCHAR; count : ULONG) : INTEGER;
4425 BEGIN
4426 ASM
4427 MOVE.L A6,-(A7)
4428 MOVEA.L rp,A1
4429 MOVEA.L string_,A0
4430 MOVE.L count,D0
4431 MOVEA.L GfxBase,A6
4432 JSR -054(A6)
4433 MOVEA.L (A7)+,A6
4434 MOVE.L D0,@RESULT
4435 END;
4436 END;
4437
4438 FUNCTION UCopperListInit(uCopList : pUCopList; n : LONGINT) : pCopList;
4439 BEGIN
4440 ASM
4441 MOVE.L A6,-(A7)
4442 MOVEA.L uCopList,A0
4443 MOVE.L n,D0
4444 MOVEA.L GfxBase,A6
4445 JSR -594(A6)
4446 MOVEA.L (A7)+,A6
4447 MOVE.L D0,@RESULT
4448 END;
4449 END;
4450
4451 PROCEDURE UnlockLayerRom(layer : pLayer);
4452 BEGIN
4453 ASM
4454 MOVE.L A6,-(A7)
4455 MOVEA.L layer,A5
4456 MOVEA.L GfxBase,A6
4457 JSR -438(A6)
4458 MOVEA.L (A7)+,A6
4459 END;
4460 END;
4461
4462 FUNCTION VBeamPos : LONGINT;
4463 BEGIN
4464 ASM
4465 MOVE.L A6,-(A7)
4466 MOVEA.L GfxBase,A6
4467 JSR -384(A6)
4468 MOVEA.L (A7)+,A6
4469 MOVE.L D0,@RESULT
4470 END;
4471 END;
4472
4473 FUNCTION VideoControl(colorMap : pColorMap; tagarray : pTagItem) : BOOLEAN;
4474 BEGIN
4475 ASM
4476 MOVE.L A6,-(A7)
4477 MOVEA.L colorMap,A0
4478 MOVEA.L tagarray,A1
4479 MOVEA.L GfxBase,A6
4480 JSR -708(A6)
4481 MOVEA.L (A7)+,A6
4482 TST.W D0
4483 BEQ.B @end
4484 MOVEQ #1,D0
4485 @end: MOVE.B D0,@RESULT
4486 END;
4487 END;
4488
4489 PROCEDURE WaitBlit;
4490 BEGIN
4491 ASM
4492 MOVE.L A6,-(A7)
4493 MOVEA.L GfxBase,A6
4494 JSR -228(A6)
4495 MOVEA.L (A7)+,A6
4496 END;
4497 END;
4498
4499 PROCEDURE WaitBOVP(vp : pViewPort);
4500 BEGIN
4501 ASM
4502 MOVE.L A6,-(A7)
4503 MOVEA.L vp,A0
4504 MOVEA.L GfxBase,A6
4505 JSR -402(A6)
4506 MOVEA.L (A7)+,A6
4507 END;
4508 END;
4509
4510 PROCEDURE WaitTOF;
4511 BEGIN
4512 ASM
4513 MOVE.L A6,-(A7)
4514 MOVEA.L GfxBase,A6
4515 JSR -270(A6)
4516 MOVEA.L (A7)+,A6
4517 END;
4518 END;
4519
4520 FUNCTION WeighTAMatch(reqTextAttr : pTextAttr; targetTextAttr : pTextAttr; targetTags : pTagItem) : INTEGER;
4521 BEGIN
4522 ASM
4523 MOVE.L A6,-(A7)
4524 MOVEA.L reqTextAttr,A0
4525 MOVEA.L targetTextAttr,A1
4526 MOVEA.L targetTags,A2
4527 MOVEA.L GfxBase,A6
4528 JSR -804(A6)
4529 MOVEA.L (A7)+,A6
4530 MOVE.L D0,@RESULT
4531 END;
4532 END;
4533
4534 PROCEDURE WriteChunkyPixels(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pCHAR; bytesperrow : LONGINT);
4535 BEGIN
4536 ASM
4537 MOVE.L A6,-(A7)
4538 MOVEA.L rp,A0
4539 MOVE.L xstart,D0
4540 MOVE.L ystart,D1
4541 MOVE.L xstop,D2
4542 MOVE.L ystop,D3
4543 MOVEA.L array_,A2
4544 MOVE.L bytesperrow,D4
4545 MOVEA.L GfxBase,A6
4546 JSR -1056(A6)
4547 MOVEA.L (A7)+,A6
4548 END;
4549 END;
4550
4551 FUNCTION WritePixel(rp : pRastPort; x : LONGINT; y : LONGINT) : LONGINT;
4552 BEGIN
4553 ASM
4554 MOVE.L A6,-(A7)
4555 MOVEA.L rp,A1
4556 MOVE.L x,D0
4557 MOVE.L y,D1
4558 MOVEA.L GfxBase,A6
4559 JSR -324(A6)
4560 MOVEA.L (A7)+,A6
4561 MOVE.L D0,@RESULT
4562 END;
4563 END;
4564
4565 FUNCTION WritePixelArray8(rp : pRastPort; xstart : ULONG; ystart : ULONG; xstop : ULONG; ystop : ULONG; array_ : pCHAR; temprp : pRastPort) : LONGINT;
4566 BEGIN
4567 ASM
4568 MOVE.L A6,-(A7)
4569 MOVEA.L rp,A0
4570 MOVE.L xstart,D0
4571 MOVE.L ystart,D1
4572 MOVE.L xstop,D2
4573 MOVE.L ystop,D3
4574 MOVEA.L array_,A2
4575 MOVEA.L temprp,A1
4576 MOVEA.L GfxBase,A6
4577 JSR -786(A6)
4578 MOVEA.L (A7)+,A6
4579 MOVE.L D0,@RESULT
4580 END;
4581 END;
4582
4583 FUNCTION WritePixelLine8(rp : pRastPort; xstart : ULONG; ystart : ULONG; width : ULONG; array_ : pCHAR; tempRP : pRastPort) : LONGINT;
4584 BEGIN
4585 ASM
4586 MOVE.L A6,-(A7)
4587 MOVEA.L rp,A0
4588 MOVE.L xstart,D0
4589 MOVE.L ystart,D1
4590 MOVE.L width,D2
4591 MOVEA.L array_,A2
4592 MOVEA.L tempRP,A1
4593 MOVEA.L GfxBase,A6
4594 JSR -774(A6)
4595 MOVEA.L (A7)+,A6
4596 MOVE.L D0,@RESULT
4597 END;
4598 END;
4599
4600 FUNCTION XorRectRegion(region : pRegion; rectangle : pRectangle) : BOOLEAN;
4601 BEGIN
4602 ASM
4603 MOVE.L A6,-(A7)
4604 MOVEA.L region,A0
4605 MOVEA.L rectangle,A1
4606 MOVEA.L GfxBase,A6
4607 JSR -558(A6)
4608 MOVEA.L (A7)+,A6
4609 TST.W D0
4610 BEQ.B @end
4611 MOVEQ #1,D0
4612 @end: MOVE.B D0,@RESULT
4613 END;
4614 END;
4615
4616 FUNCTION XorRegionRegion(srcRegion : pRegion; destRegion : pRegion) : BOOLEAN;
4617 BEGIN
4618 ASM
4619 MOVE.L A6,-(A7)
4620 MOVEA.L srcRegion,A0
4621 MOVEA.L destRegion,A1
4622 MOVEA.L GfxBase,A6
4623 JSR -618(A6)
4624 MOVEA.L (A7)+,A6
4625 TST.W D0
4626 BEQ.B @end
4627 MOVEQ #1,D0
4628 @end: MOVE.B D0,@RESULT
4629 END;
4630 END;
4631
4632 END. (* UNIT GRAPHICS *)
4633
4634
4635
4636
4637
Mirror of AROS' Contrib svn.