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 / epi-defsystem.lisp < prev    next >
Lisp/Scheme  |  1995-11-17  |  3KB  |  76 lines
  1. ;;; EPIPOLAR-DEFSYSTEM.LISP
  2. ;;;
  3. ;;; Define 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.  
  15. (unless (boundp '*epipolar-directory*)
  16.   (defvar *epipolar-directory* "/home/colossus/rcollins/Radius/Epipolar/"))
  17.  
  18. (defsys::defsystem user::epipolar
  19.   (:name "UMass Radius Epipolar Line Matcher")
  20.   (:short-name "Epipolar Matcher")
  21.   (:package "EPIPOLAR")
  22.   (:pathname-default *epipolar-directory*)
  23.   (:module other ("histogram" "vectors" "isr2-enhancements"))
  24.   (:module epidefs ("epidefs"))
  25.   (:module epiproj ("epiproj-rcde"))
  26.   (:module epiheight ("epiheight"))
  27.   (:module episearch ("episearch"))
  28.   (:module epidisplay ("epidisplay-rcde" "rcde-display")) 
  29.   (:module epimatch ("epimatch"))
  30.   (:module epiinit ("epiinit-rcde"))
  31.   (:compile-load other)
  32.   (:compile-load epidefs (:fasload other))
  33.   (:compile-load epiproj (:fasload other epidefs))
  34.   (:compile-load epiheight (:fasload other epidefs))
  35.   (:compile-load epidisplay (:fasload epidefs))
  36.   (:compile-load episearch (:fasload other epidefs epiproj 
  37.                      epiheight epidisplay))
  38.   (:compile-load epimatch (:fasload other epidefs epiproj 
  39.                  epiheight epidisplay episearch))
  40.   (:compile-load epiinit (:fasload other epidefs epiproj 
  41.                  epiheight epidisplay episearch epimatch))
  42.   )
  43.  
  44.  
  45.  
  46. #|
  47.   (:module isr2parser "isr2parser")
  48.   (:module Isr2defs "isr2defs")
  49.   (:module Isr2basics "isr2basics")
  50.   (:module Isr2macros "isr2macros")
  51.   (:module Isr2tss    "isr2tss")
  52.   (:module Isr2extents ("isr2extents" "isr2pixelmap"))
  53.   (:module Isr2FileIo "isr2fileio")
  54.   (:compile-load isr2parser (:fasload isr2))
  55.   (:compile-load isr2defs   (:fasload isr2parser isr2))
  56.   (:compile-load isr2basics (:fasload isr2 isr2parser isr2defs))
  57.   (:compile-load isr2macros (:fasload isr2 isr2parser isr2defs))
  58.   (:compile-load isr2tss    (:fasload  isr2macros isr2 isr2parser isr2defs isr2basics))
  59.   (:compile-load isr2extents (:fasload isr2 isr2parser isr2defs isr2basics))
  60.   (:compile-load isr2fileio (:fasload isr2 isr2parser isr2defs
  61.                       isr2basics isr2tss isr2extents))
  62.   #-poplog
  63.   (:compile-load isr2readisr1file (:fasload isr2 isr2parser isr2defs
  64.                         isr2basics isr2tss isr2extents))
  65.   (:compile-load polygons (:fasload isr2 isr2parser isr2defs
  66.                     isr2basics #-:EXPLORER lispm))
  67.   (:compile-load Pix (:fasload isr2 isr2parser isr2defs isr2basics
  68.                    isr2extents polygons))
  69.   (:compile-load pixelfunctions (:fasload isr2 isr2parser isr2defs
  70.                       isr2basics isr2extents pix)) 
  71.   (:compile-load grid (:fasload isr2 isr2parser isr2defs
  72.                 isr2basics pixelfunctions))
  73.   )
  74.  
  75. |#
  76.