home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / MAXONB32.DMS / in.adf / Includes.lha / BH / BLib / GfxMacros.bas < prev    next >
Encoding:
BASIC Source File  |  1994-03-16  |  2.0 KB  |  93 lines
  1. ''
  2. '' $Id: GfxMacros.bas,v 1.3 1994/03/16 13:53:51 alex Rel $
  3. ''
  4. '' BASIC versions of INCLUDE:graphics/gfxmacros.h
  5. ''
  6. '' (c) Copyright 1994 HiSoft
  7. ''
  8.  
  9. REM $NOOVERFLOW    'required for BLib/GfxMacros.bas
  10.  
  11. 'REM $INCLUDE Exec.bc
  12. 'REM $INCLUDE Graphics.bh
  13. 'REM $INCLUDE Hardware.bc
  14.  
  15. CONST custom_& = &hdff000    'intuition/preferences.h has a CUSTOM...
  16.  
  17. SUB ON_DISPLAY
  18.     POKEW custom_& + dmacon%, BITSET& OR DMAF_RASTER&
  19. END SUB
  20.  
  21. SUB OFF_DISPLAY
  22.     POKEW custom_& + dmacon%, BITCLR& OR DMAF_RASTER&
  23. END SUB
  24.  
  25. SUB ON_SPRITE
  26.     POKEW custom_& + dmacon%, BITSET& OR DMAF_SPRITE&
  27. END SUB
  28.  
  29. SUB OFF_SPRITE
  30.     POKEW custom_& + dmacon%, BITCLR& OR DMAF_SPRITE&
  31. END SUB
  32.  
  33. SUB ON_VBLANK
  34.     POKEW custom_& + intena%, BITSET& OR INTF_VERTB&
  35. END SUB
  36.  
  37. SUB OFF_VBLANK
  38.     POKEW custom_& + intena%, BITCLR& OR INTF_VERTB&
  39. END SUB
  40.  
  41. SUB SetDrPt(BYVAL w&, BYVAL p%)
  42.     POKEW w& + LinePtrn%, p%
  43.     POKEW w& + RastPortFlags%, PEEKW(w& + RastPortFlags%) OR FRST_DOT&
  44.     POKEB w& + linpatcnt%, 15%
  45. END SUB
  46.  
  47. SUB SetAfPt(BYVAL w&, BYVAL p&, BYVAL n%)
  48.     POKEL w& + AreaPtrn%, p&
  49.     POKEB w& + AreaPtSz%, n%
  50. END SUB
  51.  
  52. SUB SetOPen(BYVAL w&, BYVAL c%)
  53.     POKEB w& + AOlPen%, c%
  54.     POKEW w& + RastPortFlags%, PEEKW(w& + RastPortFlags%) OR AREAOUTLINE&
  55. END SUB
  56.  
  57. SUB SetWrMsk(BYVAL w&, BYVAL c%)
  58.     POKEB w& + RastPortMask%, c%
  59. END SUB
  60.  
  61. SUB SafeSetOutlinePen(BYVAL w&, BYVAL c%)
  62.     STATIC junk&
  63.  
  64.     IF PEEKW(LIBRARY("graphics.library") + lib_Version%) >= 39% THEN
  65.         junk& = SetOutlinePen&(w&, c%)
  66.     ELSE
  67.         POKEB w& + AOlPen%, c%
  68.         POKEW w& + RastPortFlags%, PEEKW(w& + RastPortFlags%) OR AREAOUTLINE&
  69.     END IF
  70. END SUB
  71.  
  72. SUB SafeSetWriteMask(BYVAL w&, BYVAL m%)
  73.     STATIC junk&
  74.  
  75.     IF PEEKW(LIBRARY("graphics.library") + lib_Version%) >= 39% THEN
  76.         junk& = SetWriteMask&(w&, m%)
  77.     ELSE
  78.         POKEB w& + RastPortMask%, m%
  79.     END IF
  80. END SUB
  81.  
  82. SUB BNDRYOFF(BYVAL w&)
  83.     POKEW w& + RastPortFlags%, PEEKW(w& + RastPortFlags%) AND NOT AREAOUTLINE&
  84. END SUB
  85.  
  86. SUB DrawCircle(BYVAL rp&, BYVAL cx%, BYVAL cy%, BYVAL r%)
  87.     DrawEllipse rp&, cx%, cy%, r%, r%
  88. END SUB
  89.  
  90. FUNCTION AreaCircle&(BYVAL rp&, BYVAL cx%, BYVAL cy%, BYVAL r%)
  91.     AreaCircle& = AreaEllipse&(rp&, cx%, cy%, r%, r%)
  92. END FUNCTION
  93.