p005.lisp 624 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
(in-package :surf)

(defparameter *1588p005-doc* 
" Fix the order of the returned u,v point for the point function of uv-iso-curve.")


(define-object uv-iso-curve ()
  
  :documentation (:description "Convenience object to return UV parameter values on surface.")

  :input-slots (surface parameter u-or-v)
  
  :functions
  (("2D point. The UV surface representation at the given parameter value.

:arguments (parameter \"Number. The parameter value you want.\")"
    point 
    (parameter)
    (ecase (the u-or-v)
      (:v (make-point (the parameter) parameter))
      (:u (make-point parameter (the parameter)))))))