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 / test.lisp < prev    next >
Lisp/Scheme  |  1995-07-20  |  1KB  |  43 lines
  1.  
  2. (histogram-line-candidates 
  3.   (view-projection *j4view*) 218.0 400.0 341.0 402.0
  4.   (view-projection *j2view*) (view-line-grid *j2view*)
  5.   :window cme::view2)
  6.  
  7. (let ((linelist (list (list 218.0 400.0 341.0 402.0)
  8.               (list 341.0 402.0 344.0 341.0)
  9.               (list 342.0 341.0 219.0 342.0)
  10.               (list 219.0 342.0 218.0 400.0))))
  11.   (histogram-linelist-candidates
  12.    (view-projection *j4view*) linelist
  13.    (view-projection *j2view*) (view-line-grid *j2view*)
  14.    :window cme::view2))
  15.  
  16.  
  17. (setf ref *j4view*)
  18. (setf others (list *j1view* *j2view* *j3view*
  19.            *j5view* *j6view* *j7view* *j8view*))
  20.  
  21. (defun test ()
  22.   (setf *pause-mode* :lines)
  23.   (epipolar-match-linelist 
  24.    ref 
  25.    (list (list 218.0 400.0 341.0 402.0)
  26.      (list 341.0 402.0 344.0 341.0)
  27.      (list 342.0 341.0 219.0 342.0)
  28.      (list 219.0 342.0 218.0 400.0))
  29.    others))
  30.  
  31. (defun test2 ()
  32.   (let ((*lowz* -12.5) (*highz* -2.6) (*midz* (+ -12.5 (/ (- -2.6 -12.5) 2.0))))
  33.     (test)))
  34.  
  35. (defun test3 ()
  36.   (let ((*clip-to-zrange* nil))
  37.     (let ((*lowz* -12.5) (*highz* -2.6) 
  38.       (*midz* (+ -12.5 (/ (- -2.6 -12.5) 2.0))))
  39.       (test))))
  40.  
  41.  
  42.  
  43.