Frozen Fish 1: Amiga/FrozenFish-Apr94.iso/bbs/alib/d2xx/d267/diglib.lha/Diglib/diglib.zoo/diglib/graph.inc

Text File | 1989-06-20 | 17KB | 303 lines

*
* - function values for 'graphics.library'
*

      integer GfxBase         ; parameter (GfxBase        =z'00000200')
      integer AndRegionRegion ; parameter (AndRegionRegion=z'00338268')
      integer XorRegionRegion ; parameter (XorRegionRegion=z'00338267')
      integer OrRegionRegion  ; parameter (OrRegionRegion =z'00338266')
      integer BltBitMapRastPort ; parameter (BltBitMapRastPort
     +                                                    =z'000FF265')
      integer FreeGBuffers    ; parameter (FreeGBuffers   =z'04328264')
      integer CopperListInit  ; parameter (CopperListInit =z'00208263')
      integer ScrollVPort     ; parameter (ScrollVPort    =z'00008262')
      integer GetRGB4         ; parameter (GetRGB4        =z'00218261')
      integer FreeColorMap    ; parameter (FreeColorMap   =z'00018260')
      integer GetColorMap     ; parameter (GetColorMap    =z'0001025F')
      integer FreeCprList     ; parameter (FreeCprList    =z'0001825E')
      integer XorRectRegion   ; parameter (XorRectRegion  =z'0013825D')
      integer ClipBlit        ; parameter (ClipBlit       =z'000DF25C')
      integer FreeCopList     ; parameter (FreeCopList    =z'0001825B')
      integer FreeVPortCopLists ; parameter (FreeVPortCopLists
     +                                                    =z'0000825A')
      integer DisposeRegion   ; parameter (DisposeRegion  =z'00018259')
      integer ClearRegion     ; parameter (ClearRegion    =z'00018258')
      integer NotRegion       ; parameter (NotRegion      =z'00018257')
      integer NewRegion       ; parameter (NewRegion      =z'00000256')
      integer OrRectRegion    ; parameter (OrRectRegion   =z'00338255')
      integer AndRectRegion   ; parameter (AndRectRegion  =z'00338254')
      integer FreeRaster      ; parameter (FreeRaster     =z'04618253')
      integer AllocRaster     ; parameter (AllocRaster    =z'00230252')
      integer RemFont         ; parameter (RemFont        =z'00019251')
      integer AddFont         ; parameter (AddFont        =z'00019250')
      integer AskFont         ; parameter (AskFont        =z'0011924F')
      integer InitTmpRas      ; parameter (InitTmpRas     =z'0432824E')
      integer DisownBlitter   ; parameter (DisownBlitter  =z'0000024D')
      integer OwnBlitter      ; parameter (OwnBlitter     =z'0000024C')
      integer CopySBitMap     ; parameter (CopySBitMap    =z'0033824B')
      integer SyncSBitMap     ; parameter (SyncSBitMap    =z'0001824A')
      integer UnlockLayerRom  ; parameter (UnlockLayerRom =z'0001D249')
      integer LockLayerRom    ; parameter (LockLayerRom   =z'0001D248')
      integer MoveSprite      ; parameter (MoveSprite     =z'8C128247')
      integer ChangeSprite    ; parameter (ChangeSprite   =z'02928246')
      integer FreeSprite      ; parameter (FreeSprite     =z'00010245')
      integer GetSprite       ; parameter (GetSprite      =z'00208244')
      integer WaitBOVP        ; parameter (WaitBOVP       =z'00008243')
      integer ScrollRaster    ; parameter (ScrollRaster   =z'000BF242')
      integer InitBitMap      ; parameter (InitBitMap     =z'94608241')
      integer VBeamPos        ; parameter (VBeamPos       =z'00000240')
      integer CWait           ; parameter (CWait          =z'0460923F')
      integer CMove           ; parameter (CMove          =z'0460923E')
      integer CBump           ; parameter (CBump          =z'0000923D')
      integer InitView        ; parameter (InitView       =z'0000923C')
      integer SetDrMd         ; parameter (SetDrMd        =z'0021923B')
      integer SetBPen         ; parameter (SetBPen        =z'0021923A')
      integer SetAPen         ; parameter (SetAPen        =z'00219239')
      integer PolyDraw        ; parameter (PolyDraw       =z'02219238')
      integer Flood           ; parameter (Flood          =z'8C259237')
      integer WritePixel      ; parameter (WritePixel     =z'04619236')
      integer ReadPixel       ; parameter (ReadPixel      =z'04619235')
      integer BltPattern      ; parameter (BltPattern     =z'0009F234')
      integer RectFill        ; parameter (RectFill       =z'0007F233')
      integer BltClear        ; parameter (BltClear       =z'04619232')
      integer QBSBlit         ; parameter (QBSBlit        =z'00019231')
      integer SetRGB4         ; parameter (SetRGB4        =z'0005F230')
      integer InitArea        ; parameter (InitArea       =z'0412822F')
      integer QBlit           ; parameter (QBlit          =z'0001922E')
      integer WaitTOF         ; parameter (WaitTOF        =z'0000022D')
      integer AreaEnd         ; parameter (AreaEnd        =z'0001922C')
      integer AreaDraw        ; parameter (AreaDraw       =z'0461922B')
      integer AreaMove        ; parameter (AreaMove       =z'0461922A')
      integer Draw            ; parameter (Draw           =z'04619229')
      integer Move            ; parameter (Move           =z'04619228')
      integer SetRast         ; parameter (SetRast        =z'00219227')
      integer WaitBlit        ; parameter (WaitBlit       =z'00000226')
      integer LoadView        ; parameter (LoadView       =z'00019225')
      integer MakeVPort       ; parameter (MakeVPort      =z'00128224')
      integer MrgCop          ; parameter (MrgCop         =z'00009223')
      integer InitVPort       ; parameter (InitVPort      =z'00008222')
      integer InitRastPort    ; parameter (InitRastPort   =z'00009221')
      integer LoadRGB4        ; parameter (LoadRGB4       =z'04138220')
      integer DrawEllipse     ; parameter (DrawEllipse    =z'001FF21E')
      integer AreaEllipse     ; parameter (AreaEllipse    =z'0021F21F')
      integer InitGMasks      ; parameter (InitGMasks     =z'0000821D')
      integer GetGBuffers     ; parameter (GetGBuffers    =z'0432821C')
      integer Animate         ; parameter (Animate        =z'0033821B')
      integer AddAnimOb       ; parameter (AddAnimOb      =z'06B2821A')
      integer SortGList       ; parameter (SortGList      =z'00019219')
      integer SetCollision    ; parameter (SetCollision   =z'02710218')
      integer RemVSprite      ; parameter (RemVSprite     =z'00008217')
      integer RemIBob         ; parameter (RemIBob        =z'02B28216')
      integer InitMasks       ; parameter (InitMasks      =z'00008215')
      integer InitGels        ; parameter (InitGels       =z'02928214')
      integer DrawGList       ; parameter (DrawGList      =z'00119213')
      integer DoCollision     ; parameter (DoCollision    =z'00019212')
      integer AddVSprite      ; parameter (AddVSprite     =z'00328211')
      integer AddBob          ; parameter (AddBob         =z'00328210')
      integer SetSoftStyle    ; parameter (SetSoftStyle   =z'0461920F')
      integer AskSoftStyle    ; parameter (AskSoftStyle   =z'0001920E')
      integer CloseFont       ; parameter (CloseFont      =z'0001920D')
      integer OpenFont        ; parameter (OpenFont       =z'0000820C')
      integer SetFont         ; parameter (SetFont        =z'0031920B')
      integer Text            ; parameter (Text           =z'0411920A')
      integer TextLength      ; parameter (TextLength     =z'04119209')
      integer ClearScreen     ; parameter (ClearScreen    =z'00019208')
      integer ClearEOL        ; parameter (ClearEOL       =z'00019207')
      integer BltTemplate     ; parameter (BltTemplate    =z'0003F206')
      integer BltBitMap       ; parameter (BltBitMap      =z'0001F205')
*
* - from "gfx.i"
*
      integer*1 BitMap(40)

      integer*2 bm_BytesPerRow; equivalence (BitMap(1),bm_BytesPerRow)
      integer*2 bm_Rows       ; equivalence (BitMap(3),bm_Rows)
      integer*1 bm_Flags      ; equivalence (BitMap(5),bm_Flags)
      integer*1 bm_Depth      ; equivalence (BitMap(6),bm_Depth)
      integer*2 bm_Pad        ; equivalence (BitMap(7),bm_Pad)
      integer*4 bm_Planes(8)  ; equivalence (BitMap(9),bm_Planes)

                              ! Rectangle structure offsets

      integer ra_MinX         ; parameter (ra_MinX = 0)
      integer ra_MinY         ; parameter (ra_MinY = ra_MinX+2)
      integer ra_MaxX         ; parameter (ra_MaxX = ra_MinY+2)
      integer ra_MaxY         ; parameter (ra_MaxY = ra_MaxX+2)

*
* - from "gfxbase.i"
*
                              ! GfxBase structure offsets (partial)

      integer gb_ActiView     ; parameter (gb_ActiView = 34)
      integer gb_copinit      ; parameter (gb_copinit  = gb_ActiView+4)
      integer gb_cia          ; parameter (gb_cia      = gb_copinit+4)
      integer gb_blitter      ; parameter (gb_blitter  = gb_cia+4)
      integer gb_LOFList      ; parameter (gb_LOFList  = gb_blitter+4)
      integer gb_SHFList      ; parameter (gb_SHFList  = gb_LOFList+4)
      integer gb_blthd        ; parameter (gb_blthd    = gb_SHFList+4)
      integer gb_blttl        ; parameter (gb_blttl    = gb_blthd+4)
      integer gb_bsblthd      ; parameter (gb_bsblthd  = gb_blttl+4)
      integer gb_bsblttl      ; parameter (gb_bsblttl  = gb_bsblthd+4)
      integer gb_bvsrv        ; parameter (gb_bvsrv    = gb_bsblttl+4)
      integer gb_timsrv       ; parameter (gb_timsrv   = gb_bvsrv+22)
      integer gb_bltsrv       ; parameter (gb_bltsrv   = gb_timsrv+22)
      integer gb_TextFonts    ; parameter (gb_TextFonts= gb_bltsrv+22)

*
* - from "rastport.i"
*
      integer*4 TmpRas(2)

      integer*4 tr_RasPtr     ; equivalence (TmpRas(1),tr_RasPtr)
      integer*4 tr_Size       ; equivalence (TmpRas(2),tr_Size)

      integer*1 RastPort(102)

      integer*4 rp_Layer      ; equivalence (RastPort(1), rp_Layer)
      integer*4 rp_BitMap     ; equivalence (RastPort(5), rp_BitMap)
      integer*4 rp_AreaPtrn   ; equivalence (RastPort(9), rp_AreaPtrn)
      integer*4 rp_TmpRas     ; equivalence (RastPort(13),rp_TmpRas)
      integer*4 rp_AreaInfo   ; equivalence (RastPort(17),rp_AreaInfo)
      integer*4 rp_GelsInfo   ; equivalence (RastPort(21),rp_GelsInfo)
      integer*1 rp_Mask       ; equivalence (RastPort(25),rp_Mask)
      integer*1 rp_FgPen      ; equivalence (RastPort(26),rp_FgPen)
      integer*1 rp_BgPen      ; equivalence (RastPort(27),rp_BgPen)
      integer*1 rp_AOLPen     ; equivalence (RastPort(28),rp_AOLPen)
      integer*1 rp_DrawMode   ; equivalence (RastPort(29),rp_DrawMode)
      integer*1 rp_AreaPtSiz  ; equivalence (RastPort(30),rp_AreaPtSiz)
      integer*1 rp_linpatcnt  ; equivalence (RastPort(31),rp_linpatcnt)
      integer*1 rp_Dummy      ; equivalence (RastPort(32),rp_Dummy)
      integer*2 rp_Flags      ; equivalence (RastPort(33),rp_Flags)
      integer*2 rp_LinePatrn  ; equivalence (RastPort(35),rp_LinePatrn)
      integer*2 rp_cp_x       ; equivalence (RastPort(37),rp_cp_x)
      integer*2 rp_cp_y       ; equivalence (RastPort(39),rp_cp_y)
      integer*1 rp_minterms(8); equivalence (RastPort(41),rp_minterms)
      integer*2 rp_PenWidth   ; equivalence (RastPort(49),rp_PenWidth)
      integer*2 rp_PenHeight  ; equivalence (RastPort(51),rp_PenHeight)
      integer*4 rp_Font       ; equivalence (RastPort(53),rp_Font)
      integer*1 rp_AlgoStyle  ; equivalence (RastPort(57),rp_AlgoStyle)
      integer*1 rp_TxFlags    ; equivalence (RastPort(58),rp_TxFlags)
      integer*2 rp_TxHeight   ; equivalence (RastPort(59),rp_TxHeight)
      integer*2 rp_TxWidth    ; equivalence (RastPort(61),rp_TxWidth)
      integer*2 rp_TxBasline  ; equivalence (RastPort(63),rp_TxBasline)
      integer*2 rp_TxSpacing  ; equivalence (RastPort(65),rp_TxSpacing)
      integer*4 rp_RP_User    ; equivalence (RastPort(67),rp_RP_User)
      integer*2 rp_wordrsvd(7); equivalence (RastPort(71),rp_wordrsvd)
      integer*4 rp_longrsvd(2); equivalence (RastPort(85),rp_longrsvd)
      integer*1 rp_reserved(8); equivalence (RastPort(93),rp_reserved)

      integer*2 AreaInfo(12)

      integer*4 ai_VctrTbl    ; equivalence (AreaInfo(1), ai_VctrTbl)
      integer*4 ai_VctrPtr    ; equivalence (AreaInfo(3), ai_VctrPtr)
      integer*4 ai_FlagTbl    ; equivalence (AreaInfo(5), ai_FlagTbl)
      integer*4 ai_FlagPtr    ; equivalence (AreaInfo(7), ai_FlagPtr)
      integer*2 ai_Count      ; equivalence (AreaInfo(9), ai_Count)
      integer*2 ai_MaxCount   ; equivalence (AreaInfo(10),ai_MaxCount)
      integer*2 ai_FirstX     ; equivalence (AreaInfo(11),ai_FirstX)
      integer*2 ai_FirstY     ; equivalence (AreaInfo(12),ai_FirstY)

* rp_Flags:

      integer FRST_DOT        ; parameter (FRST_DOT    = z'0001')
      integer ONE_DOT         ; parameter (ONE_DOT     = z'0002')
      integer DBUFFER         ; parameter (DBUFFER     = z'0004')
      integer AREAOUTLINE     ; parameter (AREAOUTLINE = z'0008')
      integer NOCROSSFILL     ; parameter (NOCROSSFILL = z'0020')

* rp_DrawMode:

      integer JAM1            ; parameter (JAM1       = 0)
      integer JAM2            ; parameter (JAM2       = 1)
      integer COMPLEMENT      ; parameter (COMPLEMENT = 2)
      integer INVERSEVID      ; parameter (INVERSEVID = 4)

* rp_TxFlags:

      integer TXSCALE         ; parameter (TXSCALE = 1)

*
* - from "text.i"
*
      integer*1 TextAttr(8)

      integer*4 ta_Name       ; equivalence (TextAttr(1),ta_Name)
      integer*2 ta_YSize      ; equivalence (TextAttr(5),ta_YSize)
      integer*1 ta_Style      ; equivalence (TextAttr(7),ta_Style)
      integer*1 ta_Flags      ; equivalence (TextAttr(8),ta_Flags)

* ta_Style:

      integer FS_NORMAL       ; parameter (FS_NORMAL     = 0)
      integer FS_UNDERLINED   ; parameter (FS_UNDERLINED = 1)
      integer FS_BOLD         ; parameter (FS_BOLD       = 2)
      integer FS_ITALIC       ; parameter (FS_ITALIC     = 4)
      integer FS_EXTENDED     ; parameter (FS_EXTENDED   = 8)

* ta_Flags:

      integer FP_ROMFONT      ; parameter (FP_ROMFONT      =   1)
      integer FP_DISKFONT     ; parameter (FP_DISKFONT     =   2)
      integer FP_REVPATH      ; parameter (FP_REVPATH      =   4)
      integer FP_TALLDOT      ; parameter (FP_TALLDOT      =   8)
      integer FP_WIDEDOT      ; parameter (FP_WIDEDOT      =  16)
      integer FP_PROPORTIONAL ; parameter (FP_PROPORTIONAL =  32)
      integer FP_DESIGNED     ; parameter (FP_DESIGNED     =  64)
      integer FP_REMOVED      ; parameter (FP_REMOVED      = 128)

*
* - from "view.i"
*
                              ! ColorMap structure offsets

      integer cm_Flags        ; parameter (cm_Flags      = 0)
      integer cm_Type         ; parameter (cm_Type       = cm_Flags+1)
      integer cm_Count        ; parameter (cm_Count      = cm_Type+1)
      integer cm_ColorTable   ; parameter (cm_ColorTable = cm_Count+2)

      integer*2 ViewPort(20)

      integer*4 vp_Next       ; equivalence (ViewPort(1), vp_Next)
      integer*4 vp_ColorMap   ; equivalence (ViewPort(3), vp_ColorMap)
      integer*4 vp_DspIns     ; equivalence (ViewPort(5), vp_DspIns)
      integer*4 vp_SprIns     ; equivalence (ViewPort(7), vp_SprIns)
      integer*4 vp_ClrIns     ; equivalence (ViewPort(9), vp_ClrIns)
      integer*4 vp_UCopIns    ; equivalence (ViewPort(11),vp_UCopIns)
      integer*2 vp_DWidth     ; equivalence (ViewPort(13),vp_DWidth)
      integer*2 vp_DHeight    ; equivalence (ViewPort(14),vp_DHeight)
      integer*2 vp_DxOffset   ; equivalence (ViewPort(15),vp_DxOffset)
      integer*2 vp_DyOffset   ; equivalence (ViewPort(16),vp_DyOffset)
      integer*2 vp_Modes      ; equivalence (ViewPort(17),vp_Modes)
      integer*2 vp_reserved   ; equivalence (ViewPort(18),vp_reserved)
      integer*4 vp_RasInfo    ; equivalence (ViewPort(19),vp_RasInfo)

      integer*2 View(9)

      integer*4 v_ViewPort    ; equivalence (View(1),v_ViewPort)
      integer*4 v_LOFCprList  ; equivalence (View(3),v_LOFCprList)
      integer*4 v_SHFCprList  ; equivalence (View(5),v_SHFCprList)
      integer*2 v_DyOffset    ; equivalence (View(7),v_DyOffset)
      integer*2 v_DxOffset    ; equivalence (View(8),v_DxOffset)
      integer*2 v_Modes       ; equivalence (View(9),v_Modes)

      integer*2 RasInfo(6)

      integer*4 ri_Next       ; equivalence (RasInfo(1),ri_Next)
      integer*4 ri_BitMap     ; equivalence (RasInfo(3),ri_BitMap)
      integer*2 ri_RxOffset   ; equivalence (RasInfo(5),ri_RxOffset)
      integer*2 ri_RyOffset   ; equivalence (RasInfo(6),ri_RyOffset)

* vp_Modes:

      integer PFBA            ; parameter (PFBA            = z'0040')
      integer DUALPF          ; parameter (DUALPF          = Z'0400')
      integer HIRES           ; parameter (HIRES           = Z'8000')
      integer LACE            ; parameter (LACE            = Z'0004')
      integer HAM             ; parameter (HAM             = Z'0800')
      integer SPRITES         ; parameter (SPRITES         = Z'4000')
      integer VP_HIDE         ; parameter (VP_HIDE         = Z'2000')
      integer GENLOCK_AUDIO   ; parameter (GENLOCK_AUDIO   = Z'0100')
      integer GENLOCK_VIDEO   ; parameter (GENLOCK_VIDEO   = Z'0002')
      integer EXTRA_HALFBRITE ; parameter (EXTRA_HALFBRITE = Z'0080')