projects
/
uxul-world.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
removed dependency on sdl-image, using sdl only. added copyright-notice for bmp.lisp
[uxul-world.git]
/
bmp.lisp
diff --git
a/bmp.lisp
b/bmp.lisp
index
51faca9
..
0b05d55
100755
(executable)
--- a/
bmp.lisp
+++ b/
bmp.lisp
@@
-1,7
+1,8
@@
-(in-package :uxul-world)
\r
+;;; -*- lisp -*-
\r
\r
\r
+;;; Copyright 2010 Christoph Senjak
\r
\r
\r
-;; this should go into functions.lisp
\r
+(in-package :uxul-world)
\r
\r
(defun intersection-interval (a b c d)
\r
"We assume a<b and c<d. Compute the intersection-interval between
\r
\r
(defun intersection-interval (a b c d)
\r
"We assume a<b and c<d. Compute the intersection-interval between
\r
@@
-287,4
+288,4
@@
image-data (for efficiency-reasons)."
(b (as-alpha-value
\r
(elt cpix 0) (elt background-rgb 0) alpha))
\r
)
\r
(b (as-alpha-value
\r
(elt cpix 0) (elt background-rgb 0) alpha))
\r
)
\r
- (format out "~d ~d ~d~%" r g b))))))))
\ No newline at end of file
+ (format out "~d ~d ~d~%" r g b))))))))
\r