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 / ascendMar8.tar / UMass / Epipolar / epidisplay-stubs.lisp < prev    next >
Lisp/Scheme  |  1995-07-20  |  2KB  |  60 lines
  1. ;;; EPIDISPLAY-STUB.LISP
  2. ;;;
  3. ;;; Function STUBS for no-op graphics so epipolar matching
  4. ;;; system compiles OK under vanilla lucid.
  5. ;;;
  6. ;;; Author: Robert T. Collins
  7. ;;; Date: Mar 5, 1995
  8. ;;;
  9. ;-----------------------------------------------------------------
  10. ; (c) Copyright 1995 by The University of Massachusetts
  11. ;------------------------------------------------------------------
  12.  
  13. (in-package 'epipolar :nicknames '(epi))
  14.  
  15.  
  16. ;;;;****************************************************************
  17. ;;;; LINE DISPLAY ROUTINES - 
  18.  
  19. (defun display-line-tokenset (view tks &key (color *line-color*) 
  20.                    (thickness *line-thickness*))
  21.   (declare (ignore tks color thickness))
  22.   view)
  23.  
  24.  
  25. (defun display-line (view x1 y1 x2 y2 &key (color *line-color*)
  26.               (thickness *line-thickness*))
  27.   (declare (ignore x1 y1 x2 y2 color thickness))
  28.   view)
  29.  
  30.  
  31.  
  32. ;;;;****************************************************************
  33. ;;;; DISPLAY EPIPOLAR BOUNDARIES
  34.  
  35. (defun epipolar-display (view low1 low2 high1 high2 &key (zoom nil) 
  36.                   (color  *epipolar-color*) 
  37.                   (thickness *epipolar-thickness*))
  38.   (declare (ignore low1 low2  high1 high2 zoom color thickness))
  39.   view)
  40.  
  41.  
  42. #|
  43. (defun plot-histogram (window histogram &key min max (numknots 3)  (clear t)
  44.                (thickness *histogram-thickness*) (color *histogram-color*))
  45.   "  Plot histogram as a spline on the given window.  Returns as multiple values the
  46.  histogram array, its minimum, and its maximum element values."
  47.   (let ((sequence (hist:histogram-array histogram)))
  48.     (let ((max (max (if max max 0) (reduce #'max sequence)))
  49.       (min (min (if min min 0) (reduce #'min sequence)))
  50.       (size (length sequence)))
  51.       (when clear (send window :clear))
  52.       (send window :set-image-window 0 (min 0 min) size (- max min))
  53.       (dotimes (i size)
  54.     (setf (aref *spline-xarr* i) (+ 0.5 i))
  55.     (setf (aref *spline-yarr* i) (- max (aref sequence i))))
  56.       (send window :display-spline *spline-xarr* *spline-yarr* numknots  :color color :thickness thickness)
  57.       (values sequence min max))))
  58.  
  59.  
  60. |#