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 / Terrain / adjust-terrain.lisp next >
Lisp/Scheme  |  1995-09-12  |  679b  |  22 lines
  1.  
  2. ;;
  3. ;; adjust-terrain:  Take into account the polygon hypotheses generated
  4. ;;          by the building detector in a single image and reproduce
  5. ;;         a terrain model.  For each polygon in the 
  6. ;;         "UMass 2d Buildings" feature set, attempt to fit
  7. ;;         a plane to the data encompassed by the building polygon.
  8. ;;         adjust the terrain to incorporate the fit plane.
  9. ;;
  10. ;;
  11.  
  12. (in-package 'cme)
  13.  
  14. (defun adjust-terrain 
  15.   (let* ((pane (ic::pick-a-pane (ic::get-interactor)
  16.       "Pick a pane containing the rooftop hypotheses"))
  17.      (2dworld (2dworld (topview pane)))
  18.      (polys (inferiors (find-fs-named 2dworld "UMass 2d Buildings"))))
  19.     (dolist (poly polys)
  20.     (fit-elevation-plane-to-poly (
  21.      
  22.