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
/
umass-demo.lisp
< prev
next >
Wrap
Text File
|
1995-07-25
|
1KB
|
48 lines
;;; file for automatically loading everything needed for the
;;; UMass Model Board 1 Demo
(in-package 'cme)
;;; load UMass system code
(load "$CME/code/CME-5d/UMass/umass-system.lisp")
;;; load Model Board 1 site model, images, frame etc...
(start-mb1-cme)
(setf **MB1** (get-3d-world-named "Radius Model Board 1"))
(setf **MB1FRAME**
(ic::pane-frame (view-window (car (view-list **MB1**)))))
(setf **MB1VIEWS** (view-list **MB1**))
;;; remove site model buildings and gcp point clutter
(dolist (view **MB1VIEWS**)
(when (find-fs-named view "Buildings")
(remove-feature-set (find-fs-named view "Buildings") view))
(when (find-fs-named view "MB1 GCPs")
(remove-feature-set (find-fs-named view "MB1 GCPs") view)))
;;; load Boldt line data
(load-line-featuresets **MB1** "$CME/code/CME-5d/UMass/Demo/MB1/mb1boldt.fs")
;;;and remove annoying boldt lines
(dolist (view **MB1VIEWS**)
(when (find-fs-named view "UMass Boldt Lines")
(remove-feature-set (find-fs-named view "UMass Boldt Lines") view)))
;;; initialize UMass site model
(init-umass-site-model **MB1**)
(setf *last-epi-minz* -92.0)
(setf *last-epi-maxz* 140.0)
;;;;(ic::set-selected-pane (view-window (car **MB1VIEWS**)))
(progn
(format t "~%~%**********************************~%")
(format t "*** UMass Demo has been loaded ***~%")
(format t "**********************************~%~%~%")
)