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
+;;; Copyright 2010 Christoph Senjak\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
@@ -287,4 +288,4 @@ image-data (for efficiency-reasons)."
                   (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