
(when *guidemap* (send *guidemap* :close))  
(show-workmap)

(load-data 
(strcat *examples-data-dir-name* "princomp" *separator* "fish.lsp"))
(vista-message "Please Wait for Visualization")
(visualize-data)
(vista-message "Fish Data Visualization Example Finished")