home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / graphics.lib < prev    next >
Encoding:
Text File  |  1994-07-25  |  11.2 KB  |  203 lines
  1. {$if not def GRAPHICS_LIB_H} CONST GRAPHICS_LIB_H=0;
  2.  
  3. { **************************************************************
  4.   ** KickPascal-Include-Datei "graphics.lib" zu Kickstart 3.0 **
  5.   ************************************************************** }
  6.  
  7. {$if not def GRAPHICS_GFX_H;incl "graphics/gfx.h";endif}
  8. {$if not def GRAPHICS_DISPLAYINFO_H;incl "graphics/displayinfo.h";endif}
  9. {$if not def GRAPHICS_GELS_H;incl "graphics/gels.h";endif}
  10. {$if not def GRAPHICS_RASTPORT_H;incl "graphics/rastport.h";endif}
  11. {$if not def GRAPHICS_VIEW_H;incl "graphics/view.h";endif}
  12. {$if not def GRAPHICS_COPPER_H;incl "graphics/copper.h";endif}
  13. {$if not def GRAPHICS_CLIP_H;incl "graphics/clip.h";endif}
  14. {$if not def GRAPHICS_REGIONS_H;incl "graphics/regions.h";endif}
  15. {$if not def GRAPHICS_SPRITE_H;incl "graphics/sprite.h";endif}
  16. {$if not def GRAPHICS_TEXT_H;incl "graphics/text.h";endif}
  17. {$if not def HARDWARE_BLIT_H;incl "hardware/blit.h";endif}
  18. {$if not def GRAPHICS_SCALE_H;incl "graphics/scale.h";endif}
  19. {$if not def GRAPHICS_GFXBASE_H;incl "graphics/gfxbase.h";endif}
  20.  
  21. VAR GfxBase : Ptr;
  22.  
  23. LIBRARY GfxBase :
  24.  
  25.  -30 : FUNCTION  BltBitMap (A0:p_BitMap; D0,D1:LongInt; A1:p_BitMap; D2,D3,D4,D5:LongInt; D6,D7:Long; A2:PLANEPTR): LongInt;
  26.  -36 : PROCEDURE BltTemplate (A0:PLANEPTR; D0,D1:LongInt; A1:p_RastPort; D2,D3,D4,D5:LongInt);
  27.  -42 : PROCEDURE ClearEOL (A1:p_RastPort);
  28.  -48 : PROCEDURE ClearScreen (A1:p_RastPort);
  29.  -54 : FUNCTION  TextLength (A1:p_RastPort; A0:Str; D0:Long): Integer;
  30.  -60 : FUNCTION  _Text (A1:p_RastPort; A0:Str; D0:LongInt):LongInt;
  31.  -60 : FUNCTION  GfxText (A1:p_RastPort; A0:Str; D0:LongInt):LongInt;
  32.  -66 : FUNCTION  SetFont (A1:p_RastPort; A0:p_TextFont): LongInt;
  33.  -72 : FUNCTION  OpenFont (A0:p_TextAttr): p_TextFont;
  34.  -78 : PROCEDURE CloseFont (A1:p_TextFont);
  35.  -84 : FUNCTION  AskSoftStyle (A1:p_RastPort): Long;
  36.  -90 : FUNCTION  SetSoftStyle (A1:p_RastPort; D0:Long; D1: Long): Long;
  37.  -96 : PROCEDURE AddBob (A0:p_Bob; A1:p_RastPort);
  38. -102 : PROCEDURE AddVSprite (A0:p_VSprite; A1:p_RastPort);
  39. -108 : PROCEDURE DoCollision (A1:p_RastPort);
  40. -114 : PROCEDURE DrawGList (A1:p_RastPort; A0:p_ViewPort);
  41. -120 : PROCEDURE InitGels (A0,A1:p_VSprite; A2:p_GelsInfo);
  42. -126 : PROCEDURE InitMasks (A0:p_VSprite);
  43. -132 : PROCEDURE RemIBob (A0:p_Bob; A1:p_RastPort; A2:p_ViewPort);
  44. -138 : PROCEDURE RemVSprite (A0:p_VSprite);
  45. -144 : PROCEDURE SetCollision (D0:Long; A0:Ptr; A1:p_GelsInfo);
  46. -150 : PROCEDURE SortGList (A1:p_RastPort);
  47. -156 : PROCEDURE AddAnimOb (A0:p_AnimOb; A1:Ptr; A2:p_RastPort);
  48. -162 : PROCEDURE Animate(A0:Ptr; A1:p_RastPort);
  49. -168 : FUNCTION  GetGBuffers (A0:p_AnimOb; A1:p_RastPort; D0:LongInt): Boolean;
  50. -174 : PROCEDURE InitGMasks(A0:p_AnimOb);
  51. -180 : PROCEDURE DrawEllipse (A1:p_RastPort; D0,D1,D2,D3: LongInt);
  52. -186 : FUNCTION  AreaEllipse (A1:p_RastPort; D0,D1,D2,D3: LongInt): LongInt;
  53. -192 : PROCEDURE LoadRGB4 (A0:p_ViewPort; A1:Ptr; D0:LongInt);
  54. -198 : PROCEDURE InitRastPort (A1:p_RastPort);
  55. -204 : PROCEDURE InitVPort (A0:p_ViewPort);
  56. -210 : FUNCTION  MrgCop (A1:p_View): Long;
  57. -216 : FUNCTION  MakeVPort (A0:p_View; A1:p_ViewPort): Long;
  58. -222 : PROCEDURE LoadView (A1:p_View);
  59. -228 : PROCEDURE WaitBlit;
  60. -234 : PROCEDURE SetRast (A1:p_RastPort; D0:Long);
  61. -240 : PROCEDURE Move (A1:p_RastPort; D0,D1:LongInt);
  62. -246 : PROCEDURE Draw (A1:p_RastPort; D0,D1:LongInt);
  63. -252 : FUNCTION  AreaMove (A1:p_RastPort; D0,D1:LongInt): LongInt;
  64. -258 : FUNCTION  AreaDraw (A1:p_RastPort; D0,D1:LongInt): LongInt;
  65. -264 : FUNCTION  AreaEnd (A1:p_RastPort): LongInt;
  66. -270 : PROCEDURE WaitTOF;
  67. -276 : PROCEDURE QBlit (A1:p_bltnode);
  68. -282 : PROCEDURE InitArea (A0:p_AreaInfo; A1:Ptr; D0:LongInt);
  69. -288 : PROCEDURE SetRGB4 (A0:p_ViewPort; D0: Long; D1,D2,D3: LongInt);
  70. -294 : PROCEDURE QBSBlit (A1:p_bltnode);
  71. -300 : PROCEDURE BltClear (A1:PLANEPTR; D0,D1:LongInt);
  72. -306 : PROCEDURE RectFill (A1:p_RastPort; D0,D1,D2,D3: LongInt);
  73. -312 : PROCEDURE BltPattern (A1:p_RastPort; A0:PLANEPTR; D0,D1,D2,D3,D4: LongInt);
  74. -318 : FUNCTION  ReadPixel (A1:p_RastPort; D0,D1: LongInt): Long;
  75. -324 : FUNCTION  WritePixel (A1:p_RastPort; D0,D1: LongInt): LongInt;
  76. -330 : FUNCTION  Flood (A1:p_RastPort; D2:Long; D0,D1: LongInt): Boolean;
  77. -336 : PROCEDURE PolyDraw (A1:p_RastPort; D0:LongInt; A0:Ptr);
  78. -342 : PROCEDURE SetAPen (A1:p_RastPort; D0:Long);
  79. -348 : PROCEDURE SetBPen (A1:p_RastPort; D0:Long);
  80. -354 : PROCEDURE SetDrMd (A1:p_RastPort; D0:Long);
  81. -360 : PROCEDURE InitView (A1:p_View);
  82. -366 : PROCEDURE CBump (A1:p_UCopList);
  83. -372 : PROCEDURE CMove (A1:p_UCopList; D0:Ptr; D1:LongInt);
  84. -378 : PROCEDURE CWait (A1:p_UCopList; D0,D1:LongInt);
  85. -384 : FUNCTION  VBeamPos: Long;
  86. -390 : PROCEDURE InitBitMap (A0:p_BitMap; D0,D1,D2: LongInt);
  87. -396 : PROCEDURE ScrollRaster (A1:p_RastPort; D0,D1,D2,D3,D4,D5: LongInt);
  88. -402 : PROCEDURE WaitBOVP (A0:p_ViewPort);
  89. -408 : FUNCTION  GetSprite (A0:p_SimpleSprite; D0:LongInt): Integer;
  90. -414 : PROCEDURE FreeSprite (D0:LongInt);
  91. -420 : PROCEDURE ChangeSprite (A0:p_ViewPort; A1:p_SimpleSprite; A2:PLANEPTR);
  92. -426 : PROCEDURE MoveSprite (A0:p_ViewPort; A1:p_SimpleSprite; D0,D1: LongInt);
  93. -432 : PROCEDURE LockLayerRom (A5:p_Layer);
  94. -438 : PROCEDURE UnLockLayerRom (A5:p_Layer);
  95. -444 : PROCEDURE SyncSBitMap (A0:p_Layer);
  96. -450 : PROCEDURE CopySBitMap (A0:p_Layer);
  97. -456 : PROCEDURE OwnBlitter;
  98. -462 : PROCEDURE DisownBlitter;
  99. -468 : FUNCTION  InitTmpRas (A0:p_TmpRas; A1:PLANEPTR; D0:LongInt): p_TmpRas;
  100. -474 : PROCEDURE AskFont (A1:p_RastPort; A0:p_TextAttr);
  101. -480 : PROCEDURE AddFont (A1:p_TextFont);
  102. -486 : PROCEDURE RemFont (A1:p_TextFont);
  103. -492 : FUNCTION  AllocRaster (D0,D1: Long): PLANEPTR;
  104. -498 : PROCEDURE FreeRaster (A0:PLANEPTR; D0,D1:Long);
  105. -504 : PROCEDURE AndRectRegion (A0:p_Region; A1:p_Rectangle);
  106. -510 : FUNCTION  OrRectRegion (A0:p_Region; A1:p_Rectangle): Boolean;
  107. -516 : FUNCTION  NewRegion: p_Region;
  108. -522 : FUNCTION  ClearRectRegion (A0:p_Region; A1:p_Rectangle): Boolean;
  109. -528 : PROCEDURE ClearRegion (A0:p_Region);
  110. -534 : PROCEDURE DisposeRegion (A0:p_Region);
  111. -540 : PROCEDURE FreeVPortCopLists (A0:p_ViewPort);
  112. -546 : PROCEDURE FreeCopList (A0:p_copList);
  113. -552 : PROCEDURE ClipBlit (A0:p_RastPort; D0,D1:LongInt; A1:p_RastPort; D2,D3,D4,D5:LongInt; D6:Long);
  114. -558 : FUNCTION  XorRectRegion (A0:p_Region; A1:Rectangle): Boolean;
  115. -564 : PROCEDURE FreeCprList (A0:p_cprlist);
  116. -570 : FUNCTION  GetColorMap (D0:LongInt): p_ColorMap;
  117. -576 : PROCEDURE FreeColorMap (A0:p_ColorMap);
  118. -582 : FUNCTION  GetRGB4 (A0:p_ColorMap; D0:LongInt): Long;
  119. -588 : PROCEDURE ScrollVPort (A0:p_ViewPort);
  120. -594 : FUNCTION  UCopperListInit (A0:p_UCopList; D0:LongInt): p_CopList;
  121. -600 : PROCEDURE FreeGBuffers (A0:p_AnimOb; A1:p_RastPort; D0:LongInt);
  122. -606 : PROCEDURE BltBitMapRastPort (A0:p_BitMap; D0,D1:LongInt; A1:p_RastPort; D2,D3,D4,D5:LongInt; D6:Long);
  123. -612 : FUNCTION  OrRegionRegion (A0,A1:p_Region): Boolean;
  124. -618 : FUNCTION  XorRegionRegion (A0,A1:p_Region): Boolean;
  125. -624 : FUNCTION  AndRegionRegion (A0,A1:p_Region): Boolean;
  126. -630 : PROCEDURE SetRGB4CM (A0:p_ColorMap; D0: LongInt; D1,D2,D3:Long);
  127. -636 : PROCEDURE BltMaskBitMapRastPort (A0:p_BitMap; D0,D1:LongInt; A1:p_RastPort; D2,D3,D4,D5:LongInt; D6:Long; A2:PLANEPTR);
  128. { *** 2 private Routinen *** }
  129. -654 : FUNCTION  AttemptLockLayerRom (A5:p_Layer): Boolean;
  130.  
  131. { **** Routinen ab V36 / Kickstart 2.0  **** }
  132.  
  133. -660 : FUNCTION  GfxNew (D0:Long): Ptr;
  134. -666 : PROCEDURE GfxFree (A0:Ptr);
  135. -672 : PROCEDURE GfxAssociate (A0,A1:Ptr);
  136. -678 : PROCEDURE BitMapScale (A0:p_BitScaleArgs);
  137. -684 : FUNCTION  ScalerDiv (D0,D1,D2: Long): Word;
  138. -690 : FUNCTION  TextExtent (A1:p_RastPort; A0:Str; D0:LongInt; A2:p_TextExtent): Integer;
  139. -696 : FUNCTION  TextFit (A1:p_RastPort; A0:Str; D0:Long; A2:p_TextExtent; A3:p_TextExtent; D1,D2,D3:Long): Long;
  140. -702 : FUNCTION  GfxLookUp (A0:Ptr): Ptr;
  141. -708 : FUNCTION  VideoControl (A0:p_ColorMap; A1:p_TagItem): Boolean;
  142. -714 : FUNCTION  OpenMonitor (A1:Str; D0:Long): p_MonitorSpec;
  143. -720 : FUNCTION  CloseMonitor (A0:p_MonitorSpec): Boolean;
  144. -726 : FUNCTION  FindDisplayInfo (D0:Long): DisplayInfoHandle;
  145. -732 : FUNCTION  NextDisplayInfo (D0:Long): Long;
  146. { *** 3 private Routinen *** }
  147. -756 : FUNCTION  GetDisplayInfoData (A0:DisplayInfoHandle; A1:Ptr; D0:Long; D1:Long; D2:Long) : Long;
  148. -762 : PROCEDURE FontExtent (A0:p_TextFont; A1:p_TextExtent);
  149. -768 : FUNCTION  ReadPixelLine8 (A0:p_RastPort; D0:Long; D1:Long; D2:Long; A2:Ptr; A1:p_RastPort): LongInt;
  150. -774 : FUNCTION  WritePixelLine8 (A0:p_RastPort; D0:Long; D1:Long; D2:Long; A2:Ptr; A1:p_RastPort): LongInt;
  151. -780 : FUNCTION  ReadPixelArray8 (A0:p_RastPort; D0:Long; D1:Long; D2:Long; D3:Long; A2:Ptr; A1:p_RastPort): LongInt;
  152. -786 : FUNCTION  WritePixelArray8 (A0:p_RastPort; D0:Long; D1:Long; D2:Long; D3:Long; A2:Ptr; A1:p_RastPort): LongInt;
  153. -792 : FUNCTION  GetVPModeID (A0:p_ViewPort): LongInt;
  154. -798 : FUNCTION  ModeNotAvailable (D0:Long): LongInt;
  155. -804 : FUNCTION  WeighTAMatch (A0,A1:p_TextAttr; A2:p_TagItem): Integer;
  156. -810 : PROCEDURE EraseRect (A1:p_RastPort; D0:LongInt; D1:LongInt; D2:LongInt; D3:LongInt);
  157. -816 : FUNCTION  ExtendFont(A0:p_TextFont; A1:p_TagItem): Long;
  158. -822 : PROCEDURE StripFont(A0:p_TextFont);
  159.  
  160. { *** Routinen ab V39 / Kickstart 3.0 *** }
  161.  
  162. -828 : FUNCTION  CalcIVG(A0:p_View; A1:p_ViewPort): Word;
  163. -834 : FUNCTION  AttachPalExtra(A0:p_ColorMap; A1:p_ViewPort): LongInt;
  164. -840 : FUNCTION  ObtainBestPenA(A0:p_ColorMap; D1:LongInt; D2:LongInt; D3:LongInt; A1:p_TagItem): LongInt;
  165. { *** private Routine *** }
  166. -852 : PROCEDURE SetRGB32(A0:p_ViewPort; D0: Long; D1:LongInt; D2:LongInt; D3: LongInt);
  167. -858 : FUNCTION  GetAPen(A0:p_RastPort): Long;
  168. -864 : FUNCTION  GetBPen(A0:p_RastPort): Long;
  169. -870 : FUNCTION  GetDrMd(A0:p_RastPort): Long;
  170. -876 : FUNCTION  GetOutlinePen(A0:p_RastPort): Long;
  171. -882 : PROCEDURE LoadRGB32(A0:p_ViewPort; A1:Ptr);
  172. -888 : FUNCTION  SetChipRev(D0:LongInt): Long;
  173. -894 : PROCEDURE SetABPenDrMd(A1:p_RastPort; D0:Long; D1:Long; D2:Long);
  174. -900 : PROCEDURE GetRGB32(A0:p_ColorMap; D0:Long; D1:Long; A1:Ptr);
  175. -906 : PROCEDURE GfxSpare1;
  176. { *** private Routine *** }
  177. -918 : FUNCTION  AllocBitMap(D0:Long; D1:Long; D2:Long; D3:Long; A0:p_BitMap): p_BitMap;
  178. -924 : PROCEDURE FreeBitMap(A0:p_BitMap);
  179. -930 : FUNCTION  GetExtSpriteA(A2:p_ExtSprite; A1:p_TagItem): LongInt;
  180. -936 : FUNCTION  CoerceMode(A0:p_ViewPort; D0:Long; D1:Long): Long;
  181. -942 : PROCEDURE ChangeVPBitMap(A0:p_ViewPort; A1:p_BitMap; A2:p_DBufInfo);
  182. -948 : PROCEDURE ReleasePen(A0:p_ColorMap; D0:Long);
  183. -954 : FUNCTION  ObtainPen(A0:p_ColorMap; D0:Long; D1:Long; D2:Long; D3:Long; D4:Long): Long;
  184. -960 : FUNCTION  GetBitMapAttr(A0:p_BitMap; D1:Long): Long;
  185. -966 : FUNCTION  AllocDBufInfo(A0:p_ViewPort):p_DBufInfo;
  186. -972 : PROCEDURE FreeDBufInfo(A1:p_DBufInfo);
  187. -978 : FUNCTION  SetOutlinePen(A0:p_RastPort; D0:Long): Long;
  188. -984 : FUNCTION  SetWriteMask(A0:p_RastPort; D0:Long): Long;
  189. -990 : PROCEDURE SetMaxPen(A0:p_RastPort; D0:Long);
  190. -996 : PROCEDURE SetRGB32CM(A0:p_ColorMap; D0:Long; D1:Long; D2:Long; D3:Long);
  191. -1002 : PROCEDURE ScrollRasterBF(A1:p_RastPort; D0:LongInt; D1:LongInt; D2:LongInt; D3:LongInt; D4:LongInt; D5:LongInt);
  192. -1008 : FUNCTION  FindColor(A3:p_ColorMap; D1:Long; D2:Long; D3:Long; D4:LongInt): LongInt;
  193. -1014 : PROCEDURE GfxSpare2;
  194. -1020 : FUNCTION  AllocSpriteDataA(A2:p_BitMap; A1:p_TagItem): p_ExtSprite;
  195. -1026 : FUNCTION  ChangeExtSpriteA(A0:p_ViewPort; A1:p_ExtSprite; A2:p_ExtSprite; A3:p_TagItem): LongInt;
  196. -1032 : PROCEDURE FreeSpriteData(A2:p_ExtSprite);
  197. -1038 : PROCEDURE SetRPAttrsA(A0:p_RastPort; A1:p_TagItem);
  198. -1044 : PROCEDURE GetRPAttrsA(A0:p_RastPort; A1:p_TagItem);
  199. -1050 : FUNCTION  BestModeIDA(A0:p_TagItem): Long;
  200. END;
  201.  
  202. {$endif}
  203.