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 / BuildingFinder / Lisp / fsToAscii.lisp < prev    next >
Lisp/Scheme  |  1995-05-23  |  752b  |  30 lines
  1. ;;
  2. ;; Extract the polygon data from the feature set
  3. ;; "UMass 2d Buildings" and write it to file.
  4. ;;
  5. ;;
  6. ;; Christopher Jaynes
  7. ;;
  8. ;;
  9.  
  10. (in-package 'cme)
  11.  
  12.  
  13. (defun fsToFile (fsname filename)
  14.   (let* ((pane (ic::pick-a-pane  (ic::get-interactor)
  15.      "Pick pane containing rooftop hypotheses"))
  16.      (topview (top-view pane))
  17.      (2dworld (2d-world topview))
  18.      (fs (find-fs-named 2dworld fsname))
  19.      (stream (open filename :direction :output :if-exists :new-version))
  20.      (count 0))
  21.     (dolist (curve (inferiors fs)) 
  22.         (format stream "Curve ~d: ~d~%" (incf count)
  23.                      (number-of-vertices curve))
  24.         (dolist (vertex (listarray (vertices curve)))
  25.            (format stream "[~,2f ~,2f]~%" (first (listarray vertex))
  26.                         (second (listarray vertex)))))
  27.     (close stream)))
  28.  
  29.  
  30.