repo.or.cz
/
cl-devil.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Added some palette-related functions and a couple of simple accessor utilities.
[cl-devil.git]
/
package.lisp
blob
a2cb81bb64c2c697294818cc37125af6049c2e0a
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
))