*** empty log message ***

scsh/scgame/README

@@ -1,13 +1,14 @@
-scgame is a drawing package and should be useful to make widgets
+scgame is a drawing package.
 
 For a working putpixel method check out the scheme48-fb as a basis for
 scsh images. You can get it at http://soft.vub.ac.be/~jceuppen/scheme/
 
 fb stands for linux's framebuffer to draw on.
 
-In the above scheme48-1.8-fb-x11 packages, X11 window drawing is supported.
+In the above scheme48-1.8-fb-x11 packages, X11 window drawing is
+supported with xputpixel method.
 
-Do read the packages' README and HACKING files if you run into any 
+Do read the packages' README and HACKING files if you run into any
 problems.
 
 -- Johan

scsh/scgame/scgame.scm

@@ -39,8 +39,8 @@
 (define (make-scdraw2)
   (define (draw-line x0 y0 x1 y1 . w) ;; FIXME w == line width
     (let ((width (if (coolness? w)(if (number? (car w)) (car w) 1))))
-      (display "FIX drawing line...")
-      ;;FIXME This should be Bresenham
+      ;;(display "drawing line...")
+      ;;This should be optimized Bresenham
       (let ((steep (> (abs (- y1 y0))
 		      (abs (- x1 x0))))
 	    (swap (lambda (x y)
@@ -82,7 +82,7 @@
 		      ))))))))
 
     (define (draw-lines l1 . w)
-      (display "FIX drawing lines...")
+      ;;(display "drawing lines...")
       (for-each draw-line l1)
       )
 
@@ -110,6 +110,8 @@
   (let ((*db (make-dictionary)))
 
     ;; private methods
+    (define (load-xpm-image-native filename)
+      (xputxpm filename))
 
     (define (load-xpm-image filename)
       (let ((in (open-input-file filename))

scsh/scgame/scgamewidgets.scm

@@ -1,4 +1,4 @@
-;;; scgame.scm - a scheme game library 
+;;; scgame.scm - a scheme game library (needs a scheme48 with X11 support)
 ;;;
 ;;; Copyright (c) 2011-2012 Johan Ceuppens
 ;;;
@@ -35,7 +35,7 @@
 (define (make-button)
   (let ((*widget (make-scgamewidget))
 	(*image #f)) ;; pixel array
-    
+
     (define (set-image filename)
       (((make-scimage2)'load-image) filename))