
(/VERSIONCHECK 2) 

(DEFPARAMETER |PlottableSpaceCurveCategory;AL| 'NIL) 

(DEFUN |PlottableSpaceCurveCategory| ()
  (LET (#:G1819)
    (COND
      (|PlottableSpaceCurveCategory;AL|)
      (T (SETQ |PlottableSpaceCurveCategory;AL|
               (|PlottableSpaceCurveCategory;|)))))) 

(DEFUN |PlottableSpaceCurveCategory;| ()
  (PROG (#0=#:G1817)
    (RETURN
      (PROG1 (LETT #0#
                   (|sublisV|
                       (PAIR '(#1=#:G1816) (LIST '(|OutputForm|)))
                       (|Join| (|CoercibleTo| '#1#)
                               (|mkCategory| '|domain|
                                   '(((|listBranches|
                                       ((|List|
                                         (|List|
                                          (|Point| (|DoubleFloat|))))
                                        $))
                                      T)
                                     ((|xRange|
                                       ((|Segment| (|DoubleFloat|)) $))
                                      T)
                                     ((|yRange|
                                       ((|Segment| (|DoubleFloat|)) $))
                                      T)
                                     ((|zRange|
                                       ((|Segment| (|DoubleFloat|)) $))
                                      T))
                                   NIL
                                   '((|Segment| (|DoubleFloat|))
                                     (|List|
                                      (|List|
                                       (|Point| (|DoubleFloat|)))))
                                   NIL)))
                   |PlottableSpaceCurveCategory|)
        (SETELT #0# 0 '(|PlottableSpaceCurveCategory|)))))) 

(MAKEPROP '|PlottableSpaceCurveCategory| 'NILADIC T) 
