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 / ascender.tar.Z / ascender.tar / Epipolar / load-epipolar.lisp < prev    next >
Lisp/Scheme  |  1995-07-20  |  1KB  |  42 lines
  1. ;;; LOAD-EPIPOLAR.LISP
  2. ;;;
  3. ;;; Load the Radius epipolar line matching module
  4. ;;;
  5. ;;; Author: Robert T. Collins
  6. ;;; Date: Mar 1, 1995
  7. ;;;
  8. ;-----------------------------------------------------------------
  9. ; (c) Copyright 1995 by The University of Massachusetts
  10. ;------------------------------------------------------------------
  11.  
  12. (in-package 'user)
  13.  
  14. ;;; SET THE DIRECTORY PATH HERE
  15.  
  16. (unless (boundp '*epipolar-directory*)
  17.    (defvar *epipolar-directory* "/home/colossus/rcollins/Radius/Epipolar/"))
  18.  
  19. (unless (boundp '*isr2-directory*)
  20.    (defvar *isr2-directory* "/home/colossus/rcollins/Radius/Epipolar/ISR/"))
  21.  
  22.  
  23. ;;; FIRST LOAD THE ISR
  24.  
  25. (unless (find-package "ISR2")
  26.   (load (format nil "~aload-isr2" *isr2-directory*)))
  27.  
  28.  
  29. ;;; NOW LOAD THE EPIPOLAR MATCHING SYSTEM
  30.  
  31. (unless (find-package "DEFSYS")
  32.    (load (format nil "~alucid-defsystem" *epipolar-directory*)))
  33.  
  34. (load (format nil "~aepi-defsystem" *epipolar-directory*))
  35.  
  36. (if *umass-compile*
  37.     (defsys:make-system 'epipolar :compile :load :noconfirm)
  38.     (defsys:make-system 'epipolar :load :noconfirm))
  39.  
  40. (load (format nil "~a2pt5d-lines" *epipolar-directory*))
  41.  
  42.