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 / BoldtNew / cme-line-utils.lisp < prev    next >
Encoding:
Text File  |  1996-02-06  |  635 b   |  23 lines
  1. ;;CME-LINE-UTILS.LISP -  some utilities for manipulating feature sets
  2. ;; full of cme 2d-curves - Bob Collins 2/6/96
  3. ;; depends on ISR/isr2rcde.lisp
  4.  
  5. (in-package 'cme)
  6.  
  7. (defun convert-isr-tokens-to-cme-curves (tokenset fs)
  8.   (let ((world (2d-world fs)))
  9.     (isr2::for-every-token (tok tokenset (x1 y1 x2 y2))
  10.       (let ((vx1 (isr2::value x1))
  11.         (vy1 (isr2::value y1))
  12.         (vx2 (isr2::value x2))
  13.         (vy2 (isr2::value y2)))
  14.         (add-object
  15.       (make-2d-curve
  16.        :vertices (cme::make-vertex-array-from-vertex-list
  17.               (list (list vx1 vy1 0.0)
  18.                 (list vx2 vy2 0.0)))
  19.        :closed-p t
  20.        :world world)
  21.       fs)))
  22.     fs))
  23.