X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=bmp.lisp;fp=bmp.lisp;h=0b05d552ced739463ebb33e81c88d81492b8897e;hp=51faca9cd48aae07d9b4a3caaa951472b51255cc;hb=074a5863f985bd9a078f41af96310fd55828df3f;hpb=ce717bf849f95f3de30061b413c9c196b60b2363

diff --git a/bmp.lisp b/bmp.lisp
index 51faca9..0b05d55 100755
--- a/bmp.lisp
+++ b/bmp.lisp
@@ -1,7 +1,8 @@
-(in-package :uxul-world)
+;;; -*- lisp -*-
 
+;;; Copyright 2010 Christoph Senjak
 
-;; this should go into functions.lisp
+(in-package :uxul-world)
 
 (defun intersection-interval (a b c d)
   "We assume a<b and c<d. Compute the intersection-interval between
@@ -287,4 +288,4 @@ image-data (for efficiency-reasons)."
 		   (b (as-alpha-value
 		       (elt cpix 0) (elt background-rgb 0) alpha))
 		  )
-	      (format out "~d ~d ~d~%" r g b))))))))
\ No newline at end of file
+	      (format out "~d ~d ~d~%" r g b))))))))