package.lisp

   1
   2 (defpackage #:cl-devil
   3   (:nicknames #:il)
   4   (:use #:cl #:cffi :anaphora)
   5   (:shadow #:load #:error)
   6   (:export
   7    #:with-bound-image
   8    #:with-images
   9    #:with-init
  10    #:width-of
  11    #:height-of
  12    ;; bindings
  13    #:BIND-IMAGE
  14    #:BLIT
  15    #:CONVERT-IMAGE
  16    #:COPY-IMAGE
  17    #:COPY-PIXELS
  18    #:DELETE-IMAGES
  19    #:DETERMINE-TYPE
  20    #:DISABLE
  21    #:ENABLE
  22    #:ENABLED-P
  23    #:FLIP-IMAGE
  24    #:GEN-IMAGES
  25    #:GET-DATA
  26    #:GET-ERROR
  27    #:GET-INTEGER
  28    #:GET-PALETTE
  29    #:INIT
  30    #:IS-ENABLED
  31    #:KEY-COLOR
  32    #:LOAD
  33    #:LOAD-F
  34    #:LOAD-IMAGE
  35    #:LOAD-L
  36    #:OVERLAY-IMAGE
  37    #:SAVE
  38    #:SAVE-F
  39    #:SAVE-IMAGE
  40    #:SAVE-L
  41    #:SET-DATA
  42    #:SET-INTEGER
  43    #:SET-PIXELS
  44    #:SHUTDOWN
  45    #:TEX-IMAGE
  46    ))
  47
  48 (defpackage #:ilut
  49   (:use #:cl #:cffi)
  50   (:export
  51    #:CONVERT-TO-SDL-SURFACE
  52    #:DISABLE
  53    #:ENABLE
  54    #:GET-BOOLEAN
  55    #:GL-BIND-MIPMAPS
  56    #:GL-BIND-TEX-IMAGE
  57    #:GL-BUILD-MIPMAPS
  58    #:GL-LOAD-IMAGE
  59    #:GL-SAVE-IMAGE
  60    #:GL-SCREEN
  61    #:GL-SCREENIE
  62    #:GL-SET-TEX
  63    #:GL-SUB-TEX
  64    #:GL-TEX-IMAGE
  65    #:INIT
  66    #:RENDERER
  67    #:SDL-SURFACE-FROM-BITMAP
  68    #:SDL-SURFACE-LOAD-IMAGE
  69    ))