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 / umass-demo.lisp < prev    next >
Text File  |  1995-07-25  |  1KB  |  48 lines
  1.  
  2. ;;; file for automatically loading everything needed for the 
  3. ;;; UMass Model Board 1 Demo
  4.  
  5. (in-package 'cme)
  6.  
  7.  
  8. ;;; load UMass system code
  9. (load "$CME/code/CME-5d/UMass/umass-system.lisp")
  10.  
  11. ;;; load Model Board 1 site model, images, frame etc...
  12. (start-mb1-cme)
  13. (setf **MB1** (get-3d-world-named "Radius Model Board 1"))
  14. (setf **MB1FRAME** 
  15.   (ic::pane-frame (view-window (car (view-list **MB1**)))))
  16. (setf **MB1VIEWS** (view-list **MB1**))
  17.  
  18. ;;; remove site model buildings and gcp point clutter
  19.  
  20. (dolist (view **MB1VIEWS**)
  21.   (when (find-fs-named view "Buildings")
  22.     (remove-feature-set (find-fs-named view "Buildings") view))
  23.   (when (find-fs-named view "MB1 GCPs")
  24.     (remove-feature-set (find-fs-named view "MB1 GCPs") view)))
  25.  
  26. ;;; load Boldt line data
  27. (load-line-featuresets **MB1** "$CME/code/CME-5d/UMass/Demo/MB1/mb1boldt.fs")
  28.  
  29. ;;;and remove annoying boldt lines
  30. (dolist (view **MB1VIEWS**)
  31.   (when (find-fs-named view "UMass Boldt Lines")
  32.     (remove-feature-set (find-fs-named view "UMass Boldt Lines") view)))
  33.  
  34. ;;; initialize UMass site model
  35. (init-umass-site-model **MB1**)
  36.  
  37. (setf *last-epi-minz* -92.0)
  38. (setf *last-epi-maxz* 140.0)
  39.  
  40. ;;;;(ic::set-selected-pane (view-window (car **MB1VIEWS**)))
  41.  
  42. (progn
  43.   (format t "~%~%**********************************~%")
  44.   (format t "*** UMass Demo has been loaded ***~%")
  45.   (format t "**********************************~%~%~%")
  46.   )
  47.  
  48.