home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / fd / graphics.affi < prev    next >
Text File  |  1977-12-31  |  10KB  |  174 lines
  1. (in-package "AFFI")
  2. (declare-library-base :GFXBASE "graphics.library")
  3. (format *error-output* "~&;;; Warning: Please adapt the prototypes for ~S manually!~%" "graphics.library")
  4.  
  5. ;; This mask may be too large for AFFI:
  6. ;(defflibfun 'BLTBITMAP 'GFXBASE -30 #xB876543A219 '* '* '* '* '* '* '* '* '* '* '* '*)
  7. ;(defflibfun 'BLTTEMPLATE 'GFXBASE -36 #x6543A219 '* '* '* '* '* '* '* '* '*)
  8. ;(defflibfun 'CLEAREOL 'GFXBASE -42 #xA '* '*)
  9. ;(defflibfun 'CLEARSCREEN 'GFXBASE -48 #xA '* '*)
  10. ;(defflibfun 'TEXTLENGTH 'GFXBASE -54 #x19A '* '* '* '*)
  11. ;(defflibfun 'TEXT 'GFXBASE -60 #x19A '* '* '* '*)
  12. ;(defflibfun 'SETFONT 'GFXBASE -66 #x9A '* '* '*)
  13. ;(defflibfun 'OPENFONT 'GFXBASE -72 #x9 '* '*)
  14. ;(defflibfun 'CLOSEFONT 'GFXBASE -78 #xA '* '*)
  15. ;(defflibfun 'ASKSOFTSTYLE 'GFXBASE -84 #xA '* '*)
  16. ;(defflibfun 'SETSOFTSTYLE 'GFXBASE -90 #x21A '* '* '* '*)
  17. ;(defflibfun 'ADDBOB 'GFXBASE -96 #xA9 '* '* '*)
  18. ;(defflibfun 'ADDVSPRITE 'GFXBASE -102 #xA9 '* '* '*)
  19. ;(defflibfun 'DOCOLLISION 'GFXBASE -108 #xA '* '*)
  20. ;(defflibfun 'DRAWGLIST 'GFXBASE -114 #x9A '* '* '*)
  21. ;(defflibfun 'INITGELS 'GFXBASE -120 #xBA9 '* '* '* '*)
  22. ;(defflibfun 'INITMASKS 'GFXBASE -126 #x9 '* '*)
  23. ;(defflibfun 'REMIBOB 'GFXBASE -132 #xBA9 '* '* '* '*)
  24. ;(defflibfun 'REMVSPRITE 'GFXBASE -138 #x9 '* '*)
  25. ;(defflibfun 'SETCOLLISION 'GFXBASE -144 #xA91 '* '* '* '*)
  26. ;(defflibfun 'SORTGLIST 'GFXBASE -150 #xA '* '*)
  27. ;(defflibfun 'ADDANIMOB 'GFXBASE -156 #xBA9 '* '* '* '*)
  28. ;(defflibfun 'ANIMATE 'GFXBASE -162 #xA9 '* '* '*)
  29. ;(defflibfun 'GETGBUFFERS 'GFXBASE -168 #x1A9 '* '* '* '*)
  30. ;(defflibfun 'INITGMASKS 'GFXBASE -174 #x9 '* '*)
  31. ;(defflibfun 'DRAWELLIPSE 'GFXBASE -180 #x4321A '* '* '* '* '* '*)
  32. ;(defflibfun 'AREAELLIPSE 'GFXBASE -186 #x4321A '* '* '* '* '* '*)
  33. ;(defflibfun 'LOADRGB4 'GFXBASE -192 #x1A9 '* '* '* '*)
  34. ;(defflibfun 'INITRASTPORT 'GFXBASE -198 #xA '* '*)
  35. ;(defflibfun 'INITVPORT 'GFXBASE -204 #x9 '* '*)
  36. ;(defflibfun 'MRGCOP 'GFXBASE -210 #xA '* '*)
  37. ;(defflibfun 'MAKEVPORT 'GFXBASE -216 #xA9 '* '* '*)
  38. ;(defflibfun 'LOADVIEW 'GFXBASE -222 #xA '* '*)
  39. ;(defflibfun 'WAITBLIT 'GFXBASE -228 #x0 '*)
  40. ;(defflibfun 'SETRAST 'GFXBASE -234 #x1A '* '* '*)
  41. ;(defflibfun 'MOVE 'GFXBASE -240 #x21A '* '* '* '*)
  42. ;(defflibfun 'DRAW 'GFXBASE -246 #x21A '* '* '* '*)
  43. ;(defflibfun 'AREAMOVE 'GFXBASE -252 #x21A '* '* '* '*)
  44. ;(defflibfun 'AREADRAW 'GFXBASE -258 #x21A '* '* '* '*)
  45. ;(defflibfun 'AREAEND 'GFXBASE -264 #xA '* '*)
  46. ;(defflibfun 'WAITTOF 'GFXBASE -270 #x0 '*)
  47. ;(defflibfun 'QBLIT 'GFXBASE -276 #xA '* '*)
  48. ;(defflibfun 'INITAREA 'GFXBASE -282 #x1A9 '* '* '* '*)
  49. ;(defflibfun 'SETRGB4 'GFXBASE -288 #x43219 '* '* '* '* '* '*)
  50. ;(defflibfun 'QBSBLIT 'GFXBASE -294 #xA '* '*)
  51. ;(defflibfun 'BLTCLEAR 'GFXBASE -300 #x21A '* '* '* '*)
  52. ;(defflibfun 'RECTFILL 'GFXBASE -306 #x4321A '* '* '* '* '* '*)
  53. ;(defflibfun 'BLTPATTERN 'GFXBASE -312 #x543219A '* '* '* '* '* '* '* '*)
  54. ;(defflibfun 'READPIXEL 'GFXBASE -318 #x21A '* '* '* '*)
  55. ;(defflibfun 'WRITEPIXEL 'GFXBASE -324 #x21A '* '* '* '*)
  56. ;(defflibfun 'FLOOD 'GFXBASE -330 #x213A '* '* '* '* '*)
  57. ;(defflibfun 'POLYDRAW 'GFXBASE -336 #x91A '* '* '* '*)
  58. ;(defflibfun 'SETAPEN 'GFXBASE -342 #x1A '* '* '*)
  59. ;(defflibfun 'SETBPEN 'GFXBASE -348 #x1A '* '* '*)
  60. ;(defflibfun 'SETDRMD 'GFXBASE -354 #x1A '* '* '*)
  61. ;(defflibfun 'INITVIEW 'GFXBASE -360 #xA '* '*)
  62. ;(defflibfun 'CBUMP 'GFXBASE -366 #xA '* '*)
  63. ;(defflibfun 'CMOVE 'GFXBASE -372 #x21A '* '* '* '*)
  64. ;(defflibfun 'CWAIT 'GFXBASE -378 #x21A '* '* '* '*)
  65. ;(defflibfun 'VBEAMPOS 'GFXBASE -384 #x0 '*)
  66. ;(defflibfun 'INITBITMAP 'GFXBASE -390 #x3219 '* '* '* '* '*)
  67. ;(defflibfun 'SCROLLRASTER 'GFXBASE -396 #x654321A '* '* '* '* '* '* '* '*)
  68. ;(defflibfun 'WAITBOVP 'GFXBASE -402 #x9 '* '*)
  69. ;(defflibfun 'GETSPRITE 'GFXBASE -408 #x19 '* '* '*)
  70. ;(defflibfun 'FREESPRITE 'GFXBASE -414 #x1 '* '*)
  71. ;(defflibfun 'CHANGESPRITE 'GFXBASE -420 #xBA9 '* '* '* '*)
  72. ;(defflibfun 'MOVESPRITE 'GFXBASE -426 #x21A9 '* '* '* '* '*)
  73. ;(defflibfun 'LOCKLAYERROM 'GFXBASE -432 #xE '* '*)
  74. ;(defflibfun 'UNLOCKLAYERROM 'GFXBASE -438 #xE '* '*)
  75. ;(defflibfun 'SYNCSBITMAP 'GFXBASE -444 #x9 '* '*)
  76. ;(defflibfun 'COPYSBITMAP 'GFXBASE -450 #x9 '* '*)
  77. ;(defflibfun 'OWNBLITTER 'GFXBASE -456 #x0 '*)
  78. ;(defflibfun 'DISOWNBLITTER 'GFXBASE -462 #x0 '*)
  79. ;(defflibfun 'INITTMPRAS 'GFXBASE -468 #x1A9 '* '* '* '*)
  80. ;(defflibfun 'ASKFONT 'GFXBASE -474 #x9A '* '* '*)
  81. ;(defflibfun 'ADDFONT 'GFXBASE -480 #xA '* '*)
  82. ;(defflibfun 'REMFONT 'GFXBASE -486 #xA '* '*)
  83. ;(defflibfun 'ALLOCRASTER 'GFXBASE -492 #x21 '* '* '*)
  84. ;(defflibfun 'FREERASTER 'GFXBASE -498 #x219 '* '* '* '*)
  85. ;(defflibfun 'ANDRECTREGION 'GFXBASE -504 #xA9 '* '* '*)
  86. ;(defflibfun 'ORRECTREGION 'GFXBASE -510 #xA9 '* '* '*)
  87. ;(defflibfun 'NEWREGION 'GFXBASE -516 #x0 '*)
  88. ;(defflibfun 'CLEARRECTREGION 'GFXBASE -522 #xA9 '* '* '*)
  89. ;(defflibfun 'CLEARREGION 'GFXBASE -528 #x9 '* '*)
  90. ;(defflibfun 'DISPOSEREGION 'GFXBASE -534 #x9 '* '*)
  91. ;(defflibfun 'FREEVPORTCOPLISTS 'GFXBASE -540 #x9 '* '*)
  92. ;(defflibfun 'FREECOPLIST 'GFXBASE -546 #x9 '* '*)
  93. ;; This mask may be too large for AFFI:
  94. ;(defflibfun 'CLIPBLIT 'GFXBASE -552 #x76543A219 '* '* '* '* '* '* '* '* '* '*)
  95. ;(defflibfun 'XORRECTREGION 'GFXBASE -558 #xA9 '* '* '*)
  96. ;(defflibfun 'FREECPRLIST 'GFXBASE -564 #x9 '* '*)
  97. ;(defflibfun 'GETCOLORMAP 'GFXBASE -570 #x1 '* '*)
  98. ;(defflibfun 'FREECOLORMAP 'GFXBASE -576 #x9 '* '*)
  99. ;(defflibfun 'GETRGB4 'GFXBASE -582 #x19 '* '* '*)
  100. ;(defflibfun 'SCROLLVPORT 'GFXBASE -588 #x9 '* '*)
  101. ;(defflibfun 'UCOPPERLISTINIT 'GFXBASE -594 #x19 '* '* '*)
  102. ;(defflibfun 'FREEGBUFFERS 'GFXBASE -600 #x1A9 '* '* '* '*)
  103. ;; This mask may be too large for AFFI:
  104. ;(defflibfun 'BLTBITMAPRASTPORT 'GFXBASE -606 #x76543A219 '* '* '* '* '* '* '* '* '* '*)
  105. ;(defflibfun 'ORREGIONREGION 'GFXBASE -612 #xA9 '* '* '*)
  106. ;(defflibfun 'XORREGIONREGION 'GFXBASE -618 #xA9 '* '* '*)
  107. ;(defflibfun 'ANDREGIONREGION 'GFXBASE -624 #xA9 '* '* '*)
  108. ;(defflibfun 'SETRGB4CM 'GFXBASE -630 #x43219 '* '* '* '* '* '*)
  109. ;; This mask may be too large for AFFI:
  110. ;(defflibfun 'BLTMASKBITMAPRASTPORT 'GFXBASE -636 #xB76543A219 '* '* '* '* '* '* '* '* '* '* '*)
  111. ;(defflibfun 'ATTEMPTLOCKLAYERROM 'GFXBASE -654 #xE '* '*)
  112. ;(defflibfun 'GFXNEW 'GFXBASE -660 #x1 '* '*)
  113. ;(defflibfun 'GFXFREE 'GFXBASE -666 #x9 '* '*)
  114. ;(defflibfun 'GFXASSOCIATE 'GFXBASE -672 #xA9 '* '* '*)
  115. ;(defflibfun 'BITMAPSCALE 'GFXBASE -678 #x9 '* '*)
  116. ;(defflibfun 'SCALERDIV 'GFXBASE -684 #x321 '* '* '* '*)
  117. ;(defflibfun 'TEXTEXTENT 'GFXBASE -690 #xB19A '* '* '* '* '*)
  118. ;(defflibfun 'TEXTFIT 'GFXBASE -696 #x432CB19A '* '* '* '* '* '* '* '* '*)
  119. ;(defflibfun 'GFXLOOKUP 'GFXBASE -702 #x9 '* '*)
  120. ;(defflibfun 'VIDEOCONTROL 'GFXBASE -708 #xA9 '* '* '*)
  121. ;(defflibfun 'OPENMONITOR 'GFXBASE -714 #x1A '* '* '*)
  122. ;(defflibfun 'CLOSEMONITOR 'GFXBASE -720 #x9 '* '*)
  123. ;(defflibfun 'FINDDISPLAYINFO 'GFXBASE -726 #x1 '* '*)
  124. ;(defflibfun 'NEXTDISPLAYINFO 'GFXBASE -732 #x1 '* '*)
  125. ;(defflibfun 'GETDISPLAYINFODATA 'GFXBASE -756 #x321A9 '* '* '* '* '* '*)
  126. ;(defflibfun 'FONTEXTENT 'GFXBASE -762 #xA9 '* '* '*)
  127. ;(defflibfun 'READPIXELLINE8 'GFXBASE -768 #xAB3219 '* '* '* '* '* '* '*)
  128. ;(defflibfun 'WRITEPIXELLINE8 'GFXBASE -774 #xAB3219 '* '* '* '* '* '* '*)
  129. ;(defflibfun 'READPIXELARRAY8 'GFXBASE -780 #xAB43219 '* '* '* '* '* '* '* '*)
  130. ;(defflibfun 'WRITEPIXELARRAY8 'GFXBASE -786 #xAB43219 '* '* '* '* '* '* '* '*)
  131. ;(defflibfun 'GETVPMODEID 'GFXBASE -792 #x9 '* '*)
  132. ;(defflibfun 'MODENOTAVAILABLE 'GFXBASE -798 #x1 '* '*)
  133. ;(defflibfun 'WEIGHTAMATCH 'GFXBASE -804 #xBA9 '* '* '* '*)
  134. ;(defflibfun 'ERASERECT 'GFXBASE -810 #x4321A '* '* '* '* '* '*)
  135. ;(defflibfun 'EXTENDFONT 'GFXBASE -816 #xA9 '* '* '*)
  136. ;(defflibfun 'STRIPFONT 'GFXBASE -822 #x9 '* '*)
  137. ;(defflibfun 'CALCIVG 'GFXBASE -828 #xA9 '* '* '*)
  138. ;(defflibfun 'ATTACHPALEXTRA 'GFXBASE -834 #xA9 '* '* '*)
  139. ;(defflibfun 'OBTAINBESTPENA 'GFXBASE -840 #xA4329 '* '* '* '* '* '*)
  140. ;(defflibfun 'SETRGB32 'GFXBASE -852 #x43219 '* '* '* '* '* '*)
  141. ;(defflibfun 'GETAPEN 'GFXBASE -858 #x9 '* '*)
  142. ;(defflibfun 'GETBPEN 'GFXBASE -864 #x9 '* '*)
  143. ;(defflibfun 'GETDRMD 'GFXBASE -870 #x9 '* '*)
  144. ;(defflibfun 'GETOUTLINEPEN 'GFXBASE -876 #x9 '* '*)
  145. ;(defflibfun 'LOADRGB32 'GFXBASE -882 #xA9 '* '* '*)
  146. ;(defflibfun 'SETCHIPREV 'GFXBASE -888 #x1 '* '*)
  147. ;(defflibfun 'SETABPENDRMD 'GFXBASE -894 #x321A '* '* '* '* '*)
  148. ;(defflibfun 'GETRGB32 'GFXBASE -900 #xA219 '* '* '* '* '*)
  149. ;(defflibfun 'ALLOCBITMAP 'GFXBASE -918 #x94321 '* '* '* '* '* '*)
  150. ;(defflibfun 'FREEBITMAP 'GFXBASE -924 #x9 '* '*)
  151. ;(defflibfun 'GETEXTSPRITEA 'GFXBASE -930 #xAB '* '* '*)
  152. ;(defflibfun 'COERCEMODE 'GFXBASE -936 #x219 '* '* '* '*)
  153. ;(defflibfun 'CHANGEVPBITMAP 'GFXBASE -942 #xBA9 '* '* '* '*)
  154. ;(defflibfun 'RELEASEPEN 'GFXBASE -948 #x19 '* '* '*)
  155. ;(defflibfun 'OBTAINPEN 'GFXBASE -954 #x543219 '* '* '* '* '* '* '*)
  156. ;(defflibfun 'GETBITMAPATTR 'GFXBASE -960 #x29 '* '* '*)
  157. ;(defflibfun 'ALLOCDBUFINFO 'GFXBASE -966 #x9 '* '*)
  158. ;(defflibfun 'FREEDBUFINFO 'GFXBASE -972 #xA '* '*)
  159. ;(defflibfun 'SETOUTLINEPEN 'GFXBASE -978 #x19 '* '* '*)
  160. ;(defflibfun 'SETWRITEMASK 'GFXBASE -984 #x19 '* '* '*)
  161. ;(defflibfun 'SETMAXPEN 'GFXBASE -990 #x19 '* '* '*)
  162. ;(defflibfun 'SETRGB32CM 'GFXBASE -996 #x43219 '* '* '* '* '* '*)
  163. ;(defflibfun 'SCROLLRASTERBF 'GFXBASE -1002 #x654321A '* '* '* '* '* '* '* '*)
  164. ;(defflibfun 'FINDCOLOR 'GFXBASE -1008 #x5432C '* '* '* '* '* '*)
  165. ;(defflibfun 'ALLOCSPRITEDATAA 'GFXBASE -1020 #xAB '* '* '*)
  166. ;(defflibfun 'CHANGEEXTSPRITEA 'GFXBASE -1026 #xCBA9 '* '* '* '* '*)
  167. ;(defflibfun 'FREESPRITEDATA 'GFXBASE -1032 #xB '* '*)
  168. ;(defflibfun 'SETRPATTRSA 'GFXBASE -1038 #xA9 '* '* '*)
  169. ;(defflibfun 'GETRPATTRSA 'GFXBASE -1044 #xA9 '* '* '*)
  170. ;(defflibfun 'BESTMODEIDA 'GFXBASE -1050 #x9 '* '*)
  171. ;(defflibfun 'WRITECHUNKYPIXELS 'GFXBASE -1056 #x5B43219 '* '* '* '* '* '* '* '*)
  172.  
  173. (provide "graphics.library")
  174.