home *** CD-ROM | disk | FTP | other *** search
/ vis-ftp.cs.umass.edu / vis-ftp.cs.umass.edu.tar / vis-ftp.cs.umass.edu / pub / Software / ASCENDER / model.tar / model-board-1 / build-images.lisp < prev    next >
Lisp/Scheme  |  1994-06-29  |  2KB  |  54 lines
  1. (in-package 'ic)
  2.  
  3. (user::maybe-compile-file-load "~/cme/g186/image-utils.lisp")
  4.  
  5. #|
  6. (user::maybe-compile-file-load "~/cme/radius/model-board-1/build-images.lisp")
  7. |#
  8.  
  9. (defparameter *model-board-1-path*
  10.           (string-append (environment-variable "CMEHOME") "/radius/model-board-1/"))
  11.  
  12. (defun merge-model-board-1-pathname (path)
  13.   (string-append *model-board-1-path* path))
  14.  
  15. (defun build-model-board-image (raw-path result-image-path xdim ydim tail-factor)
  16.   (let ((histogram
  17.      (histogram-16bit-raster-image-file (merge-model-board-1-pathname raw-path)
  18.                         xdim ydim (ash 1 12))))
  19.     (time (load-raster-image-file
  20.        raw-path xdim ydim
  21.        :convert-table (histogram-list-pixel-mapping-table (list histogram)
  22.                                   :tail-factor tail-factor
  23.                                   :result-maxval 256)
  24.        :into-image-path result-image-path
  25.        :dy -1 :transpose nil
  26.        ))))
  27.  
  28.  
  29. #|
  30. ;;; *********************  Image J1  *********************
  31. (defparameter *mb1-image-info* '(("j1"  1306 1039)
  32.                  ("j2" 1304 1037)
  33.                  ("j3" 1312 1041)
  34.                  ("j4" 1304 1041)
  35.                  ("j5" 1316 1039)
  36.                  ("j6" 1308 1038)
  37.                  ("j7" 1313 1043)
  38.                  ("j8" 1303 1032)))
  39.  
  40.  
  41. (let ((old-path (pwd)))
  42.   (cd (ic::ev-pathname-translate "$CMEHOME/radius/model-board-1/"))
  43.   (loop for (name xdim ydim) in *mb1-image-info*
  44.     for raw-path = (format nil "~a.raw" name)
  45.     for result-image-path = (format nil "~a.g0" name)
  46.     for symbol = (intern (format nil "*~a*" (string-upcase name)))
  47.     for image = (build-model-board-image raw-path result-image-path xdim ydim 0.0)
  48.     do (setf (symbol-value symbol) image)
  49.        (save-image image result-image-path)))
  50.  
  51.  
  52. |#    
  53.  
  54.