re: clim 1.0 code for displaying bitmap files

• To: clim@BBN.COM, shirley@parc.xerox.com
• Subject: re: clim 1.0 code for displaying bitmap files
• From: Greg Siegle <siegle@aristotle.ils.nwu.edu>
• Date: Tue, 7 Apr 92 10:28:22 CDT

Hi again...
   Let me revise that first function....
It had a spelling error...

; ******************************************************************

;;; use this to create a lisp vector from an x bitmap file.
;;; Then cut and paste the result into an icon file.
(defun load-bmap (fname &aux d)
  (with-open-file
   (file fname :direction :input)
   (dotimes (i 50)
            (push (read-line file nil 'eof) d))
   (setf d (reverse (remove 'eof d))))
  (list (third (read-from-string 
                (format nil "(~A)" (string-trim '(#\#) (first d)))))
        (third (read-from-string 
                (format nil "(~A)" (string-trim '(#\#) (second d)))))
        (mapcar 
         #'(lambda (s) 
             (read-from-string 
              (format nil "#~A" (string-left-trim '(#\0) (format nil "~A" s)))))
         (read-from-string 
          (remove #\} (remove #\; (remove #\, (format nil "~A" (cdddr d))))))))
  )
; ******************************************************************

Also, I never mentioned the calling format... Try something like
(draw-bitmap *window* 20 20 (load-bmap "mybitmapfile"))

         -- Greg

• Prev: re: clim 1.0 code for displaying bitmap files
• Next: re: clim 1.0 code for displaying bitmap files
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)