repo.or.cz
/
cl-devil.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
refs
|
edit
|
fork
81d663b54c53da66e3e681c316a2643b62d4470e
[cl-devil.git]
/
package.lisp
blob
81d663b54c53da66e3e681c316a2643b62d4470e
1
2
(
defpackage
#:
cl-devil
3
(:
nicknames
#:
il
)
4
(:
use
#:
cl
#:
cffi
:
anaphora
)
5
(:
shadow
#:
load
#:
error
)
6
(:
export
7
#:
with-images
8
;; bindings
9
#:
BIND-IMAGE
10
#:
BLIT
11
#:
COPY-IMAGE
12
#:
COPY-PIXELS
13
#:
DELETE-IMAGES
14
#:
GEN-IMAGES
15
#:
GET-DATA
16
#:
GET-ERROR
17
#:
GET-INTEGER
18
#:
INIT
19
#:
LOAD
20
#:
LOAD-F
21
#:
LOAD-IMAGE
22
#:
LOAD-L
23
#:
OVERLAY-IMAGE
24
#:
SAVE
25
#:
SAVE-F
26
#:
SAVE-IMAGE
27
#:
SAVE-L
28
#:
SET-DATA
29
#:
SET-PIXELS
30
#:
SHUTDOWN
31
#:
TEX-IMAGE
32
))
33
34
(
defpackage
#:
ilut
35
(:
use
#:
cl
#:
cffi
)
36
(:
export
37
#:
CONVERT-TO-SDL-SURFACE
38
#:
DISABLE
39
#:
ENABLE
40
#:
GET-BOOLEAN
41
#:
GL-BIND-MIPMAPS
42
#:
GL-BIND-TEX-IMAGE
43
#:
GL-BUILD-MIPMAPS
44
#:
GL-LOAD-IMAGE
45
#:
GL-SAVE-IMAGE
46
#:
GL-SCREEN
47
#:
GL-SCREENIE
48
#:
GL-SET-TEX
49
#:
GL-SUB-TEX
50
#:
GL-TEX-IMAGE
51
#:
RENDERER
52
#:
SDL-SURFACE-FROM-BITMAP
53
#:
SDL-SURFACE-LOAD-IMAGE
54
))