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    #:pixel-format-of
  13    #:element-type-of
  14    #:bytes-per-pixel-of
  15    #:copy-palette
  16    ;; bindings
  17    #:BIND-IMAGE
  18    #:BLIT
  19    #:CONVERT-IMAGE
  20    #:COPY-IMAGE
  21    #:COPY-PIXELS
  22    #:DELETE-IMAGES
  23    #:DETERMINE-TYPE
  24    #:DISABLE
  25    #:ENABLE
  26    #:ENABLED-P
  27    #:FLIP-IMAGE
  28    #:GEN-IMAGES
  29    #:GET-DATA
  30    #:GET-ERROR
  31    #:GET-INTEGER
  32    #:GET-PALETTE
  33    #:REGISTER-PALETTE
  34    #:INIT
  35    #:IS-ENABLED
  36    #:KEY-COLOR
  37    #:LOAD
  38    #:LOAD-F
  39    #:LOAD-IMAGE
  40    #:LOAD-L
  41    #:OVERLAY-IMAGE
  42    #:SAVE
  43    #:SAVE-F
  44    #:SAVE-IMAGE
  45    #:SAVE-L
  46    #:SET-DATA
  47    #:SET-INTEGER
  48    #:SET-PIXELS
  49    #:SHUTDOWN
  50    #:TEX-IMAGE
  51    ))
  52
  53 (defpackage #:ilut
  54   (:use #:cl #:cffi)
  55   (:export
  56    #:CONVERT-TO-SDL-SURFACE
  57    #:DISABLE
  58    #:ENABLE
  59    #:GET-BOOLEAN
  60    #:GL-BIND-MIPMAPS
  61    #:GL-BIND-TEX-IMAGE
  62    #:GL-BUILD-MIPMAPS
  63    #:GL-LOAD-IMAGE
  64    #:GL-SAVE-IMAGE
  65    #:GL-SCREEN
  66    #:GL-SCREENIE
  67    #:GL-SET-TEX
  68    #:GL-SUB-TEX
  69    #:GL-TEX-IMAGE
  70    #:INIT
  71    #:RENDERER
  72    #:SDL-SURFACE-FROM-BITMAP
  73    #:SDL-SURFACE-LOAD-IMAGE
  74    ))