
(/VERSIONCHECK 2) 

(DEFUN |DRAWCFUN;drawToScaleRanges| (|xVals| |yVals| $)
  (PROG (|pad| |yDiff| |xDiff| |yLo| |yHi| |xLo| |xHi|)
    (RETURN
     (SEQ
      (LETT |xHi| (SPADCALL (SPADCALL |xVals| (QREFELT $ 11)) (QREFELT $ 13))
            . #1=(|DRAWCFUN;drawToScaleRanges|))
      (LETT |xLo| (SPADCALL (SPADCALL |xVals| (QREFELT $ 14)) (QREFELT $ 13))
            . #1#)
      (LETT |yHi| (SPADCALL (SPADCALL |yVals| (QREFELT $ 11)) (QREFELT $ 13))
            . #1#)
      (LETT |yLo| (SPADCALL (SPADCALL |yVals| (QREFELT $ 14)) (QREFELT $ 13))
            . #1#)
      (LETT |xDiff| (SPADCALL |xHi| |xLo| (QREFELT $ 15)) . #1#)
      (LETT |yDiff| (SPADCALL |yHi| |yLo| (QREFELT $ 15)) . #1#)
      (LETT |pad|
            (SPADCALL
             (SPADCALL (SPADCALL |yDiff| |xDiff| (QREFELT $ 15))
                       (QREFELT $ 16))
             2 (QREFELT $ 18))
            . #1#)
      (EXIT
       (COND
        ((SPADCALL |xDiff| |yDiff| (QREFELT $ 20))
         (LIST
          (SPADCALL (SPADCALL |xLo| |pad| (QREFELT $ 15))
                    (SPADCALL |xHi| |pad| (QREFELT $ 21)) (QREFELT $ 23))
          (SPADCALL (ELT $ 13) |yVals| (QREFELT $ 26))))
        ('T
         (LIST (SPADCALL (ELT $ 13) |xVals| (QREFELT $ 26))
               (SPADCALL (SPADCALL |yLo| |pad| (QREFELT $ 15))
                         (SPADCALL |yHi| |pad| (QREFELT $ 21))
                         (QREFELT $ 23)))))))))) 

(DEFUN |DRAWCFUN;drawPlot| (|plot| |l| $)
  (PROG (|crCol| |ptCol| |ll| |yRangeFloat| |xRangeFloat| |scaledRanges|
         |yRange| |xRange| |branches| |clipInfo| |yHi| |yLo| |yRangeF| |xHi|
         |xLo| |xRangeF| |segList| |cl|)
    (RETURN
     (SEQ
      (LETT |branches| (SPADCALL |plot| (QREFELT $ 29))
            . #1=(|DRAWCFUN;drawPlot|))
      (LETT |xRange| (SPADCALL |plot| (QREFELT $ 30)) . #1#)
      (LETT |yRange| (SPADCALL |plot| (QREFELT $ 31)) . #1#)
      (SEQ
       (LETT |cl|
             (SPADCALL |l| (SPADCALL "clipSegment" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #1#)
       (EXIT
        (COND
         ((QEQCAR |cl| 1)
          (COND
           ((SPADCALL |l| (SPADCALL (QREFELT $ 40)) (QREFELT $ 43))
            (SEQ
             (LETT |clipInfo|
                   (COND
                    ((SPADCALL |plot| (QREFELT $ 44))
                     (SPADCALL |plot| (QREFELT $ 47)))
                    (#2='T (SPADCALL |plot| (QREFELT $ 48))))
                   . #1#)
             (LETT |branches| (QVELT |clipInfo| 0) . #1#)
             (LETT |xRange| (QVELT |clipInfo| 1) . #1#)
             (EXIT (LETT |yRange| (QVELT |clipInfo| 2) . #1#))))
           (#2# "No explicit user-specified clipping")))
         (#2#
          (SEQ (LETT |segList| (SPADCALL (QCDR |cl|) (QREFELT $ 52)) . #1#)
               (EXIT
                (COND
                 ((NULL |segList|)
                  (|error|
                   "draw: you may specify at least 1 segment for 2D clipping"))
                 ((SPADCALL |segList| 2 (QREFELT $ 54))
                  (|error|
                   "draw: you may specify at most 2 segments for 2D clipping"))
                 (#2#
                  (SEQ (LETT |xLo| 0.0 . #1#) (LETT |xHi| 0.0 . #1#)
                       (LETT |yLo| 0.0 . #1#) (LETT |yHi| 0.0 . #1#)
                       (COND
                        ((NULL (CDR |segList|))
                         (SEQ
                          (LETT |xLo| (SPADCALL |xRange| (QREFELT $ 14)) . #1#)
                          (LETT |xHi| (SPADCALL |xRange| (QREFELT $ 11)) . #1#)
                          (LETT |yRangeF| (|SPADfirst| |segList|) . #1#)
                          (LETT |yLo|
                                (SPADCALL (SPADCALL |yRangeF| (QREFELT $ 55))
                                          (QREFELT $ 56))
                                . #1#)
                          (EXIT
                           (LETT |yHi|
                                 (SPADCALL (SPADCALL |yRangeF| (QREFELT $ 57))
                                           (QREFELT $ 56))
                                 . #1#))))
                        (#2#
                         (SEQ (LETT |xRangeF| (|SPADfirst| |segList|) . #1#)
                              (LETT |xLo|
                                    (SPADCALL
                                     (SPADCALL |xRangeF| (QREFELT $ 55))
                                     (QREFELT $ 56))
                                    . #1#)
                              (LETT |xHi|
                                    (SPADCALL
                                     (SPADCALL |xRangeF| (QREFELT $ 57))
                                     (QREFELT $ 56))
                                    . #1#)
                              (LETT |yRangeF|
                                    (SPADCALL |segList| (QREFELT $ 58)) . #1#)
                              (LETT |yLo|
                                    (SPADCALL
                                     (SPADCALL |yRangeF| (QREFELT $ 55))
                                     (QREFELT $ 56))
                                    . #1#)
                              (EXIT
                               (LETT |yHi|
                                     (SPADCALL
                                      (SPADCALL |yRangeF| (QREFELT $ 57))
                                      (QREFELT $ 56))
                                     . #1#)))))
                       (LETT |clipInfo|
                             (SPADCALL |branches| |xLo| |xHi| |yLo| |yHi|
                                       (QREFELT $ 59))
                             . #1#)
                       (LETT |branches| (QVELT |clipInfo| 0) . #1#)
                       (LETT |xRange| (QVELT |clipInfo| 1) . #1#)
                       (EXIT
                        (LETT |yRange| (QVELT |clipInfo| 2) . #1#)))))))))))
      (COND
       ((SPADCALL |l| (SPADCALL (QREFELT $ 60)) (QREFELT $ 61))
        (SEQ
         (LETT |scaledRanges|
               (|DRAWCFUN;drawToScaleRanges| |xRange| |yRange| $) . #1#)
         (EXIT
          (LETT |l| (CONS (SPADCALL |scaledRanges| (QREFELT $ 62)) |l|)
                . #1#))))
       (#2#
        (SEQ
         (LETT |xRangeFloat| (SPADCALL (ELT $ 63) |xRange| (QREFELT $ 26))
               . #1#)
         (LETT |yRangeFloat| (SPADCALL (ELT $ 63) |yRange| (QREFELT $ 26))
               . #1#)
         (EXIT
          (LETT |l|
                (CONS
                 (SPADCALL (LETT |ll| (LIST |xRangeFloat| |yRangeFloat|) . #1#)
                           (QREFELT $ 62))
                 |l|)
                . #1#)))))
      (LETT |ptCol| (SPADCALL |l| (SPADCALL (QREFELT $ 66)) (QREFELT $ 67))
            . #1#)
      (LETT |crCol| (SPADCALL |l| (SPADCALL (QREFELT $ 68)) (QREFELT $ 69))
            . #1#)
      (EXIT
       (SPADCALL |branches| |ptCol| |crCol| (SPADCALL (QREFELT $ 71)) |l|
                 (QREFELT $ 74))))))) 

(DEFUN |DRAWCFUN;normalize| (|seg| $)
  (PROG (|b| |a|)
    (RETURN
     (SEQ
      (LETT |a| (SPADCALL (SPADCALL |seg| (QREFELT $ 55)) (QREFELT $ 56))
            . #1=(|DRAWCFUN;normalize|))
      (LETT |b| (SPADCALL (SPADCALL |seg| (QREFELT $ 57)) (QREFELT $ 56))
            . #1#)
      (EXIT
       (COND ((= |a| |b|) (|error| (SPADCALL (QREFELT $ 7) (QREFELT $ 76))))
             ((< |a| |b|) (SPADCALL |a| |b| (QREFELT $ 77)))
             ('T (SPADCALL |b| |a| (QREFELT $ 77))))))))) 

(DEFUN |DRAWCFUN;myTrap1| (|ff| |f| $)
  (PROG (|r| |s|)
    (RETURN
     (SEQ
      (LETT |s| (|trapNumericErrors| (SPADCALL |f| |ff|))
            . #1=(|DRAWCFUN;myTrap1|))
      (EXIT
       (COND ((QEQCAR |s| 1) 0.0)
             (#2='T
              (SEQ (LETT |r| (QCDR |s|) . #1#)
                   (EXIT
                    (COND
                     ((< MOST-POSITIVE-DOUBLE-FLOAT |r|)
                      MOST-POSITIVE-DOUBLE-FLOAT)
                     ((< |r| MOST-NEGATIVE-DOUBLE-FLOAT)
                      MOST-NEGATIVE-DOUBLE-FLOAT)
                     (#2# |r|))))))))))) 

(DEFUN |DRAWCFUN;makePt2| (|x| |y| $)
  (PROG (|l|)
    (RETURN
     (SPADCALL (LETT |l| (LIST |x| |y|) |DRAWCFUN;makePt2|) (QREFELT $ 80))))) 

(DEFUN |DRAWCFUN;draw;MSLTdv;6| (|f| |seg| |l| $)
  (PROG (|pl| |ff| |cc| |c| |oldAdaptive|)
    (RETURN
     (SEQ
      (LETT |oldAdaptive| (SPADCALL (QREFELT $ 81))
            . #1=(|DRAWCFUN;draw;MSLTdv;6|))
      (SPADCALL (SPADCALL |l| |oldAdaptive| (QREFELT $ 82)) (QREFELT $ 83))
      (LETT |ff| (LIST (CONS #'|DRAWCFUN;draw;MSLTdv;6!0| (VECTOR $ |f|)))
            . #1#)
      (SEQ
       (LETT |c|
             (SPADCALL |l| (SPADCALL "coordinates" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #1#)
       (EXIT
        (COND
         ((QEQCAR |c| 1)
          (LETT |ff| (LIST (CONS #'|DRAWCFUN;draw;MSLTdv;6!1| (VECTOR $ |f|)))
                . #1#))
         ('T
          (SEQ (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 86))) . #1#)
               (EXIT
                (LETT |ff|
                      (LIST
                       (CONS #'|DRAWCFUN;draw;MSLTdv;6!2|
                             (VECTOR |cc| $ |ff|)))
                      . #1#)))))))
      (LETT |pl|
            (SPADCALL (SPADCALL |ff| (QREFELT $ 91))
                      (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 92))
            . #1#)
      (SPADCALL |oldAdaptive| (QREFELT $ 83))
      (EXIT (|DRAWCFUN;drawPlot| |pl| |l| $)))))) 

(DEFUN |DRAWCFUN;draw;MSLTdv;6!2| (|x| $$)
  (PROG (|ff| $ |cc|)
    (LETT |ff| (QREFELT $$ 2) . #1=(|DRAWCFUN;draw;MSLTdv;6|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |cc| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |x| (SPADCALL |ff| (QREFELT $ 91)))
                (SPADCALL |cc| (QREFELT $ 88))))))) 

(DEFUN |DRAWCFUN;draw;MSLTdv;6!1| (|x| $$)
  (PROG (|f| $)
    (LETT |f| (QREFELT $$ 1) . #1=(|DRAWCFUN;draw;MSLTdv;6|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|DRAWCFUN;makePt2| |x| (|DRAWCFUN;myTrap1| |f| |x| $) $))))) 

(DEFUN |DRAWCFUN;draw;MSLTdv;6!0| (|x| $$)
  (PROG (|f| $)
    (LETT |f| (QREFELT $$ 1) . #1=(|DRAWCFUN;draw;MSLTdv;6|))
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN (PROGN (|DRAWCFUN;makePt2| (|DRAWCFUN;myTrap1| |f| |x| $) |x| $))))) 

(DEFUN |DRAWCFUN;draw;MSTdv;7| (|f| |seg| $)
  (SPADCALL |f| |seg| NIL (QREFELT $ 94))) 

(DEFUN |DRAWCFUN;draw;PpcSLTdv;8| (|ppc| |seg| |l| $)
  (PROG (|pl| |fcn| |cc| |c| |g| |f| |oldAdaptive|)
    (RETURN
     (SEQ
      (LETT |oldAdaptive| (SPADCALL (QREFELT $ 81))
            . #1=(|DRAWCFUN;draw;PpcSLTdv;8|))
      (SPADCALL (SPADCALL |l| |oldAdaptive| (QREFELT $ 82)) (QREFELT $ 83))
      (LETT |f| (SPADCALL |ppc| 1 (QREFELT $ 97)) . #1#)
      (LETT |g| (SPADCALL |ppc| 2 (QREFELT $ 97)) . #1#)
      (LETT |fcn|
            (LIST (CONS #'|DRAWCFUN;draw;PpcSLTdv;8!0| (VECTOR |g| $ |f|)))
            . #1#)
      (SEQ
       (LETT |c|
             (SPADCALL |l| (SPADCALL "coordinates" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #1#)
       (EXIT
        (COND
         ((NULL (QEQCAR |c| 1))
          (SEQ (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 86))) . #1#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;draw;PpcSLTdv;8!1|
                             (VECTOR |cc| $ |fcn|)))
                      . #1#)))))))
      (LETT |pl|
            (SPADCALL (SPADCALL |fcn| (QREFELT $ 91))
                      (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 92))
            . #1#)
      (SPADCALL |oldAdaptive| (QREFELT $ 83))
      (EXIT (|DRAWCFUN;drawPlot| |pl| |l| $)))))) 

(DEFUN |DRAWCFUN;draw;PpcSLTdv;8!1| (|x| $$)
  (PROG (|fcn| $ |cc|)
    (LETT |fcn| (QREFELT $$ 2) . #1=(|DRAWCFUN;draw;PpcSLTdv;8|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |cc| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |x| (SPADCALL |fcn| (QREFELT $ 91)))
                (SPADCALL |cc| (QREFELT $ 88))))))) 

(DEFUN |DRAWCFUN;draw;PpcSLTdv;8!0| (|x| $$)
  (PROG (|f| $ |g|)
    (LETT |f| (QREFELT $$ 2) . #1=(|DRAWCFUN;draw;PpcSLTdv;8|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |g| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|DRAWCFUN;makePt2| (|DRAWCFUN;myTrap1| |f| |x| $)
       (|DRAWCFUN;myTrap1| |g| |x| $) $))))) 

(DEFUN |DRAWCFUN;draw;PpcSTdv;9| (|ppc| |seg| $)
  (SPADCALL |ppc| |seg| NIL (QREFELT $ 98))) 

(DEFUN |DRAWCFUN;makePt4| (|x| |y| |z| |c| $)
  (PROG (|l|)
    (RETURN
     (SPADCALL (LETT |l| (LIST |x| |y| |z| |c|) |DRAWCFUN;makePt4|)
               (QREFELT $ 80))))) 

(PUT '|DRAWCFUN;id| '|SPADreplace| '(XLAM (|x|) |x|)) 

(DEFUN |DRAWCFUN;id| (|x| $) |x|) 

(PUT '|DRAWCFUN;zCoord| '|SPADreplace| '(XLAM (|x| |y| |z|) |z|)) 

(DEFUN |DRAWCFUN;zCoord| (|x| |y| |z| $) |z|) 

(DEFUN |DRAWCFUN;colorPoints| (|llp| |func| $)
  (PROG (#1=#:G736 |p| #2=#:G735 |lp|)
    (RETURN
     (SEQ
      (SEQ (LETT |lp| NIL . #3=(|DRAWCFUN;colorPoints|)) (LETT #2# |llp| . #3#)
           G190
           (COND
            ((OR (ATOM #2#) (PROGN (LETT |lp| (CAR #2#) . #3#) NIL))
             #4=(GO G191)))
           (SEQ
            (EXIT
             (SEQ (LETT |p| NIL . #3#) (LETT #1# |lp| . #3#) G190
                  (COND
                   ((OR (ATOM #1#) (PROGN (LETT |p| (CAR #1#) . #3#) NIL))
                    #4#))
                  (SEQ
                   (EXIT
                    (SPADCALL |p| 4
                              (SPADCALL (SPADCALL |p| 1 (QREFELT $ 100))
                                        (SPADCALL |p| 2 (QREFELT $ 100))
                                        (SPADCALL |p| 3 (QREFELT $ 100))
                                        |func|)
                              (QREFELT $ 101))))
                  (LETT #1# (CDR #1#) . #3#) #5=(GO G190) G191 (EXIT NIL))))
           (LETT #2# (CDR #2#) . #3#) #5# G191 (EXIT NIL))
      (EXIT |llp|))))) 

(DEFUN |DRAWCFUN;makeObject;PscSLTs;14| (|psc| |seg| |l| $)
  (PROG (#1=#:G754 |b| |br| |c3| |loops| |tub| |rad| |pts| |s| |pl| |fcn| |cc|
         |c| |pointsColored?| |c1| |h| |g| |f| |sp|)
    (RETURN
     (SEQ
      (LETT |sp| (SPADCALL |l| (QREFELT $ 103))
            . #2=(|DRAWCFUN;makeObject;PscSLTs;14|))
      (LETT |f| (SPADCALL |psc| 1 (QREFELT $ 105)) . #2#)
      (LETT |g| (SPADCALL |psc| 2 (QREFELT $ 105)) . #2#)
      (LETT |h| (SPADCALL |psc| 3 (QREFELT $ 105)) . #2#)
      (LETT |fcn|
            (LIST
             (CONS #'|DRAWCFUN;makeObject;PscSLTs;14!0|
                   (VECTOR |h| |g| $ |f|)))
            . #2#)
      (LETT |pointsColored?| 'NIL . #2#)
      (SEQ
       (LETT |c1|
             (SPADCALL |l| (SPADCALL "colorFunction1" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #2#)
       (EXIT
        (COND
         ((NULL (QEQCAR |c1| 1))
          (SEQ (LETT |pointsColored?| 'T . #2#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;makeObject;PscSLTs;14!1|
                             (VECTOR |c1| |h| |g| $ |f|)))
                      . #2#)))))))
      (SEQ
       (LETT |c|
             (SPADCALL |l| (SPADCALL "coordinates" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #2#)
       (EXIT
        (COND
         ((NULL (QEQCAR |c| 1))
          (SEQ (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 86))) . #2#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;makeObject;PscSLTs;14!2|
                             (VECTOR |cc| $ |fcn|)))
                      . #2#)))))))
      (LETT |pl|
            (SPADCALL (SPADCALL |fcn| (QREFELT $ 91))
                      (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 109))
            . #2#)
      (LETT |s| |sp| . #2#)
      (EXIT
       (COND
        ((SPADCALL |l| (SPADCALL "tubeRadius" (QREFELT $ 34)) (QREFELT $ 110))
         (SEQ (LETT |pts| (SPADCALL |l| 8 (QREFELT $ 111)) . #2#)
              (LETT |rad|
                    (SPADCALL
                     (SPADCALL |l| (SPADCALL 25 -2 10 (QREFELT $ 112))
                               (QREFELT $ 113))
                     (QREFELT $ 56))
                    . #2#)
              (LETT |tub| (SPADCALL |pl| |rad| |pts| (QREFELT $ 116)) . #2#)
              (LETT |loops| (SPADCALL |tub| (QREFELT $ 117)) . #2#)
              (COND
               ((NULL |pointsColored?|)
                (SEQ
                 (LETT |c3|
                       (SPADCALL |l| (SPADCALL "colorFunction3" (QREFELT $ 34))
                                 (QREFELT $ 38))
                       . #2#)
                 (EXIT
                  (COND
                   ((QEQCAR |c3| 1)
                    (|DRAWCFUN;colorPoints| |loops|
                     (CONS (|function| |DRAWCFUN;zCoord|) $) $))
                   (#3='T
                    (|DRAWCFUN;colorPoints| |loops|
                     (SPADCALL (QCDR |c3|) (QREFELT $ 120)) $)))))))
              (SPADCALL |s| |loops| 'NIL 'NIL (QREFELT $ 121)) (EXIT |s|)))
        (#3#
         (SEQ (LETT |br| (SPADCALL |pl| (QREFELT $ 122)) . #2#)
              (SEQ (LETT |b| NIL . #2#) (LETT #1# |br| . #2#) G190
                   (COND
                    ((OR (ATOM #1#) (PROGN (LETT |b| (CAR #1#) . #2#) NIL))
                     (GO G191)))
                   (SEQ (EXIT (SPADCALL |s| |b| (QREFELT $ 124))))
                   (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
              (EXIT |s|))))))))) 

(DEFUN |DRAWCFUN;makeObject;PscSLTs;14!2| (|x| $$)
  (PROG (|fcn| $ |cc|)
    (LETT |fcn| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;PscSLTs;14|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |cc| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |x| (SPADCALL |fcn| (QREFELT $ 91)))
                (SPADCALL |cc| (QREFELT $ 88))))))) 

(DEFUN |DRAWCFUN;makeObject;PscSLTs;14!1| (|x| $$)
  (PROG (|f| $ |g| |h| |c1|)
    (LETT |f| (QREFELT $$ 4) . #1=(|DRAWCFUN;makeObject;PscSLTs;14|))
    (LETT $ (QREFELT $$ 3) . #1#)
    (LETT |g| (QREFELT $$ 2) . #1#)
    (LETT |h| (QREFELT $$ 1) . #1#)
    (LETT |c1| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|DRAWCFUN;makePt4| (|DRAWCFUN;myTrap1| |f| |x| $)
       (|DRAWCFUN;myTrap1| |g| |x| $) (|DRAWCFUN;myTrap1| |h| |x| $)
       (SPADCALL |x| (SPADCALL (QCDR |c1|) (QREFELT $ 107))) $))))) 

(DEFUN |DRAWCFUN;makeObject;PscSLTs;14!0| (|x| $$)
  (PROG (|f| $ |g| |h|)
    (LETT |f| (QREFELT $$ 3) . #1=(|DRAWCFUN;makeObject;PscSLTs;14|))
    (LETT $ (QREFELT $$ 2) . #1#)
    (LETT |g| (QREFELT $$ 1) . #1#)
    (LETT |h| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|DRAWCFUN;makePt4| (|DRAWCFUN;myTrap1| |f| |x| $)
       (|DRAWCFUN;myTrap1| |g| |x| $) (|DRAWCFUN;myTrap1| |h| |x| $)
       (|DRAWCFUN;myTrap1| (CONS (|function| |DRAWCFUN;id|) $) |x| $) $))))) 

(DEFUN |DRAWCFUN;makeObject;MSLTs;15| (|psc| |seg| |l| $)
  (PROG (#1=#:G767 |b| |br| |loops| |tub| |rad| |pts| |s| |pl| |fcn| |cc| |c|
         |pointsColored?| |c1| |sp|)
    (RETURN
     (SEQ
      (LETT |sp| (SPADCALL |l| (QREFELT $ 103))
            . #2=(|DRAWCFUN;makeObject;MSLTs;15|))
      (LETT |fcn| (LIST |psc|) . #2#) (LETT |pointsColored?| 'NIL . #2#)
      (SEQ
       (LETT |c1|
             (SPADCALL |l| (SPADCALL "colorFunction1" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #2#)
       (EXIT
        (COND
         ((NULL (QEQCAR |c1| 1))
          (SEQ (LETT |pointsColored?| 'T . #2#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;makeObject;MSLTs;15!0|
                             (VECTOR $ |c1| |psc|)))
                      . #2#)))))))
      (SEQ
       (LETT |c|
             (SPADCALL |l| (SPADCALL "coordinates" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #2#)
       (EXIT
        (COND
         ((NULL (QEQCAR |c| 1))
          (SEQ (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 86))) . #2#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;makeObject;MSLTs;15!1|
                             (VECTOR |cc| $ |fcn|)))
                      . #2#)))))))
      (LETT |pl|
            (SPADCALL (SPADCALL |fcn| (QREFELT $ 91))
                      (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 109))
            . #2#)
      (LETT |s| |sp| . #2#)
      (EXIT
       (COND
        ((SPADCALL |l| (SPADCALL "tubeRadius" (QREFELT $ 34)) (QREFELT $ 110))
         (SEQ (LETT |pts| (SPADCALL |l| 8 (QREFELT $ 111)) . #2#)
              (LETT |rad|
                    (SPADCALL
                     (SPADCALL |l| (SPADCALL 25 -2 10 (QREFELT $ 112))
                               (QREFELT $ 113))
                     (QREFELT $ 56))
                    . #2#)
              (LETT |tub| (SPADCALL |pl| |rad| |pts| (QREFELT $ 116)) . #2#)
              (LETT |loops| (SPADCALL |tub| (QREFELT $ 117)) . #2#)
              (SPADCALL |s| |loops| 'NIL 'NIL (QREFELT $ 121)) (EXIT |s|)))
        ('T
         (SEQ (LETT |br| (SPADCALL |pl| (QREFELT $ 122)) . #2#)
              (SEQ (LETT |b| NIL . #2#) (LETT #1# |br| . #2#) G190
                   (COND
                    ((OR (ATOM #1#) (PROGN (LETT |b| (CAR #1#) . #2#) NIL))
                     (GO G191)))
                   (SEQ (EXIT (SPADCALL |s| |b| (QREFELT $ 124))))
                   (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
              (EXIT |s|))))))))) 

(DEFUN |DRAWCFUN;makeObject;MSLTs;15!1| (|x| $$)
  (PROG (|fcn| $ |cc|)
    (LETT |fcn| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;MSLTs;15|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |cc| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |x| (SPADCALL |fcn| (QREFELT $ 91)))
                (SPADCALL |cc| (QREFELT $ 88))))))) 

(DEFUN |DRAWCFUN;makeObject;MSLTs;15!0| (|x| $$)
  (PROG (|psc| |c1| $)
    (LETT |psc| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;MSLTs;15|))
    (LETT |c1| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |x| |psc|)
                (SPADCALL |x| (SPADCALL (QCDR |c1|) (QREFELT $ 107)))
                (QREFELT $ 126)))))) 

(DEFUN |DRAWCFUN;makeObject;PscSTs;16| (|psc| |seg| $)
  (SPADCALL |psc| |seg| NIL (QREFELT $ 125))) 

(DEFUN |DRAWCFUN;makeObject;MSTs;17| (|psc| |seg| $)
  (SPADCALL |psc| |seg| NIL (QREFELT $ 127))) 

(DEFUN |DRAWCFUN;draw;PscSLTdv;18| (|psc| |seg| |l| $)
  (PROG (|sp|)
    (RETURN
     (SEQ
      (LETT |sp| (SPADCALL |psc| |seg| |l| (QREFELT $ 125))
            |DRAWCFUN;draw;PscSLTdv;18|)
      (EXIT (SPADCALL |sp| |l| (QREFELT $ 131))))))) 

(DEFUN |DRAWCFUN;draw;PscSTdv;19| (|psc| |seg| $)
  (SPADCALL |psc| |seg| NIL (QREFELT $ 132))) 

(DEFUN |DRAWCFUN;draw;MSLTdv;20| (|psc| |seg| |l| $)
  (PROG (|sp|)
    (RETURN
     (SEQ
      (LETT |sp| (SPADCALL |psc| |seg| |l| (QREFELT $ 127))
            |DRAWCFUN;draw;MSLTdv;20|)
      (EXIT (SPADCALL |sp| |l| (QREFELT $ 131))))))) 

(DEFUN |DRAWCFUN;draw;MSTdv;21| (|psc| |seg| $)
  (SPADCALL |psc| |seg| NIL (QREFELT $ 134))) 

(DEFUN |DRAWCFUN;myTrap2| (|ff| |u| |v| $)
  (PROG (|r| |s|)
    (RETURN
     (SEQ
      (LETT |s| (|trapNumericErrors| (SPADCALL |u| |v| |ff|))
            . #1=(|DRAWCFUN;myTrap2|))
      (EXIT
       (COND ((QEQCAR |s| 1) 0.0)
             (#2='T
              (SEQ (LETT |r| (QCDR |s|) . #1#)
                   (EXIT
                    (COND
                     ((< MOST-POSITIVE-DOUBLE-FLOAT |r|)
                      MOST-POSITIVE-DOUBLE-FLOAT)
                     ((< |r| MOST-NEGATIVE-DOUBLE-FLOAT)
                      MOST-NEGATIVE-DOUBLE-FLOAT)
                     (#2# |r|))))))))))) 

(DEFUN |DRAWCFUN;recolor;MMM;23| (|ptFunc| |colFunc| $)
  (PROG ()
    (RETURN
     (SEQ (CONS #'|DRAWCFUN;recolor;MMM;23!0| (VECTOR |colFunc| $ |ptFunc|)))))) 

(DEFUN |DRAWCFUN;recolor;MMM;23!0| (|f1| |f2| $$)
  (PROG (|ptFunc| $ |colFunc|)
    (LETT |ptFunc| (QREFELT $$ 2) . #1=(|DRAWCFUN;recolor;MMM;23|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |colFunc| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (PROG (|pt|)
        (RETURN
         (SEQ (LETT |pt| (SPADCALL |f1| |f2| |ptFunc|) NIL)
              (SPADCALL |pt| 4
                        (SPADCALL
                         (SPADCALL |pt| (|spadConstant| $ 137) (QREFELT $ 100))
                         (SPADCALL |pt| 2 (QREFELT $ 100))
                         (SPADCALL |pt| 3 (QREFELT $ 100)) |colFunc|)
                        (QREFELT $ 101))
              (EXIT |pt|)))))))) 

(PUT '|DRAWCFUN;xCoord| '|SPADreplace| '(XLAM (|x| |y|) |x|)) 

(DEFUN |DRAWCFUN;xCoord| (|x| |y| $) |x|) 

(DEFUN |DRAWCFUN;makeObject;M2SLTs;25| (|f| |xSeg| |ySeg| |l| $)
  (PROG (|mesh| |fcn| |c| |cc| |col2| |pointsColored?| |c2| |sp|)
    (RETURN
     (SEQ
      (LETT |sp| (SPADCALL |l| (QREFELT $ 103))
            . #1=(|DRAWCFUN;makeObject;M2SLTs;25|))
      (LETT |col2| (LIST (CONS (|function| |DRAWCFUN;xCoord|) $)) . #1#)
      (LETT |pointsColored?| 'NIL . #1#)
      (SEQ
       (LETT |c2|
             (SPADCALL |l| (SPADCALL "colorFunction2" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #1#)
       (EXIT
        (COND
         ((NULL (QEQCAR |c2| 1))
          (SEQ (LETT |pointsColored?| 'T . #1#)
               (EXIT
                (LETT |col2| (LIST (SPADCALL (QCDR |c2|) (QREFELT $ 142)))
                      . #1#)))))))
      (LETT |fcn|
            (LIST
             (CONS #'|DRAWCFUN;makeObject;M2SLTs;25!0| (VECTOR |col2| $ |f|)))
            . #1#)
      (SEQ
       (LETT |c|
             (SPADCALL |l| (SPADCALL "coordinates" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #1#)
       (EXIT
        (COND
         ((QEQCAR |c| 1)
          (LETT |fcn|
                (LIST
                 (CONS #'|DRAWCFUN;makeObject;M2SLTs;25!1|
                       (VECTOR |col2| $ |f|)))
                . #1#))
         (#2='T
          (SEQ (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 86))) . #1#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;makeObject;M2SLTs;25!2|
                             (VECTOR |cc| $ |fcn|)))
                      . #1#)))))))
      (COND
       ((NULL |pointsColored?|)
        (SEQ
         (LETT |c|
               (SPADCALL |l| (SPADCALL "colorFunction3" (QREFELT $ 34))
                         (QREFELT $ 38))
               . #1#)
         (EXIT
          (LETT |fcn|
                (COND
                 ((QEQCAR |c| 1)
                  (LIST
                   (SPADCALL (SPADCALL |fcn| (QREFELT $ 146))
                             (CONS (|function| |DRAWCFUN;zCoord|) $)
                             (QREFELT $ 139))))
                 (#2#
                  (LIST
                   (SPADCALL (SPADCALL |fcn| (QREFELT $ 146))
                             (SPADCALL (QCDR |c|) (QREFELT $ 120))
                             (QREFELT $ 139)))))
                . #1#)))))
      (LETT |mesh|
            (SPADCALL |sp| (SPADCALL |fcn| (QREFELT $ 146))
                      (|DRAWCFUN;normalize| |xSeg| $)
                      (|DRAWCFUN;normalize| |ySeg| $) |l| (QREFELT $ 148))
            . #1#)
      (EXIT |mesh|))))) 

(DEFUN |DRAWCFUN;makeObject;M2SLTs;25!2| (|x| |y| $$)
  (PROG (|fcn| $ |cc|)
    (LETT |fcn| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;M2SLTs;25|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |cc| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |x| |y| (SPADCALL |fcn| (QREFELT $ 146)))
                (SPADCALL |cc| (QREFELT $ 88))))))) 

(DEFUN |DRAWCFUN;makeObject;M2SLTs;25!1| (|x| |y| $$)
  (PROG (|f| $ |col2|)
    (LETT |f| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;M2SLTs;25|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |col2| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|DRAWCFUN;makePt4| |x| |y| (|DRAWCFUN;myTrap2| |f| |x| |y| $)
       (SPADCALL |x| |y| (SPADCALL |col2| (QREFELT $ 144))) $))))) 

(DEFUN |DRAWCFUN;makeObject;M2SLTs;25!0| (|x| |y| $$)
  (PROG (|f| $ |col2|)
    (LETT |f| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;M2SLTs;25|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |col2| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|DRAWCFUN;makePt4| (|DRAWCFUN;myTrap2| |f| |x| |y| $) |x| |y|
       (SPADCALL |x| |y| (SPADCALL |col2| (QREFELT $ 144))) $))))) 

(DEFUN |DRAWCFUN;makeObject;M2STs;26| (|f| |xSeg| |ySeg| $)
  (SPADCALL |f| |xSeg| |ySeg| NIL (QREFELT $ 149))) 

(DEFUN |DRAWCFUN;draw;M2SLTdv;27| (|f| |xSeg| |ySeg| |l| $)
  (PROG (|sp|)
    (RETURN
     (SEQ
      (LETT |sp| (SPADCALL |f| |xSeg| |ySeg| |l| (QREFELT $ 149))
            |DRAWCFUN;draw;M2SLTdv;27|)
      (EXIT (SPADCALL |sp| |l| (QREFELT $ 131))))))) 

(DEFUN |DRAWCFUN;draw;M2STdv;28| (|f| |xSeg| |ySeg| $)
  (SPADCALL |f| |xSeg| |ySeg| NIL (QREFELT $ 151))) 

(DEFUN |DRAWCFUN;makeObject;Ps2SLTs;29| (|s| |uSeg| |vSeg| |l| $)
  (PROG (|mesh| |fcn| |col3| |c| |cc| |col2| |pointsColored?| |c2| |h| |g| |f|
         |sp|)
    (RETURN
     (SEQ
      (LETT |sp| (SPADCALL |l| (QREFELT $ 103))
            . #1=(|DRAWCFUN;makeObject;Ps2SLTs;29|))
      (LETT |f| (LIST (SPADCALL |s| (|spadConstant| $ 153) (QREFELT $ 155)))
            . #1#)
      (LETT |g| (LIST (SPADCALL |s| 2 (QREFELT $ 155))) . #1#)
      (LETT |h| (LIST (SPADCALL |s| 3 (QREFELT $ 155))) . #1#)
      (LETT |col2| (LIST (CONS (|function| |DRAWCFUN;xCoord|) $)) . #1#)
      (LETT |pointsColored?| 'NIL . #1#)
      (SEQ
       (LETT |c2|
             (SPADCALL |l| (SPADCALL "colorFunction2" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #1#)
       (EXIT
        (COND
         ((NULL (QEQCAR |c2| 1))
          (SEQ (LETT |pointsColored?| 'T . #1#)
               (EXIT
                (LETT |col2| (LIST (SPADCALL (QCDR |c2|) (QREFELT $ 142)))
                      . #1#)))))))
      (LETT |fcn|
            (LIST
             (CONS #'|DRAWCFUN;makeObject;Ps2SLTs;29!0|
                   (VECTOR |col2| |h| |g| $ |f|)))
            . #1#)
      (SEQ
       (LETT |c|
             (SPADCALL |l| (SPADCALL "coordinates" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #1#)
       (EXIT
        (COND
         ((NULL (QEQCAR |c| 1))
          (SEQ (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 86))) . #1#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;makeObject;Ps2SLTs;29!1|
                             (VECTOR |cc| $ |fcn|)))
                      . #1#)))))))
      (COND
       ((NULL |pointsColored?|)
        (SEQ (LETT |col3| (LIST (CONS (|function| |DRAWCFUN;zCoord|) $)) . #1#)
             (SEQ
              (LETT |c|
                    (SPADCALL |l| (SPADCALL "colorFunction3" (QREFELT $ 34))
                              (QREFELT $ 38))
                    . #1#)
              (EXIT
               (COND
                ((NULL (QEQCAR |c| 1))
                 (LETT |col3| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 120)))
                       . #1#)))))
             (EXIT
              (LETT |fcn|
                    (LIST
                     (SPADCALL (SPADCALL |fcn| (QREFELT $ 146))
                               (SPADCALL |col3| (QREFELT $ 157))
                               (QREFELT $ 139)))
                    . #1#)))))
      (LETT |mesh|
            (SPADCALL |sp| (SPADCALL |fcn| (QREFELT $ 146))
                      (|DRAWCFUN;normalize| |uSeg| $)
                      (|DRAWCFUN;normalize| |vSeg| $) |l| (QREFELT $ 148))
            . #1#)
      (EXIT |mesh|))))) 

(DEFUN |DRAWCFUN;makeObject;Ps2SLTs;29!1| (|x| |y| $$)
  (PROG (|fcn| $ |cc|)
    (LETT |fcn| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;Ps2SLTs;29|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |cc| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |x| |y| (SPADCALL |fcn| (QREFELT $ 146)))
                (SPADCALL |cc| (QREFELT $ 88))))))) 

(DEFUN |DRAWCFUN;makeObject;Ps2SLTs;29!0| (|x| |y| $$)
  (PROG (|f| $ |g| |h| |col2|)
    (LETT |f| (QREFELT $$ 4) . #1=(|DRAWCFUN;makeObject;Ps2SLTs;29|))
    (LETT $ (QREFELT $$ 3) . #1#)
    (LETT |g| (QREFELT $$ 2) . #1#)
    (LETT |h| (QREFELT $$ 1) . #1#)
    (LETT |col2| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (|DRAWCFUN;makePt4|
       (|DRAWCFUN;myTrap2| (SPADCALL |f| (QREFELT $ 144)) |x| |y| $)
       (|DRAWCFUN;myTrap2| (SPADCALL |g| (QREFELT $ 144)) |x| |y| $)
       (|DRAWCFUN;myTrap2| (SPADCALL |h| (QREFELT $ 144)) |x| |y| $)
       (|DRAWCFUN;myTrap2| (SPADCALL |col2| (QREFELT $ 144)) |x| |y| $) $))))) 

(DEFUN |DRAWCFUN;makeObject;M2SLTs;30| (|s| |uSeg| |vSeg| |l| $)
  (PROG (|mesh| |fcn| |cc| |c| |col2| |pointsColored?| |c2| |sp|)
    (RETURN
     (SEQ
      (LETT |sp| (SPADCALL |l| (QREFELT $ 103))
            . #1=(|DRAWCFUN;makeObject;M2SLTs;30|))
      (LETT |col2| (LIST (CONS (|function| |DRAWCFUN;xCoord|) $)) . #1#)
      (LETT |pointsColored?| 'NIL . #1#)
      (SEQ
       (LETT |c2|
             (SPADCALL |l| (SPADCALL "colorFunction2" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #1#)
       (EXIT
        (COND
         ((NULL (QEQCAR |c2| 1))
          (SEQ (LETT |pointsColored?| 'T . #1#)
               (EXIT
                (LETT |col2| (LIST (SPADCALL (QCDR |c2|) (QREFELT $ 142)))
                      . #1#)))))))
      (LETT |fcn|
            (COND
             (|pointsColored?|
              (LIST
               (CONS #'|DRAWCFUN;makeObject;M2SLTs;30!0|
                     (VECTOR $ |col2| |s|))))
             ('T (LIST |s|)))
            . #1#)
      (SEQ
       (LETT |c|
             (SPADCALL |l| (SPADCALL "coordinates" (QREFELT $ 34))
                       (QREFELT $ 38))
             . #1#)
       (EXIT
        (COND
         ((NULL (QEQCAR |c| 1))
          (SEQ (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 86))) . #1#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;makeObject;M2SLTs;30!1|
                             (VECTOR |cc| $ |fcn|)))
                      . #1#)))))))
      (LETT |mesh|
            (SPADCALL |sp| (SPADCALL |fcn| (QREFELT $ 146))
                      (|DRAWCFUN;normalize| |uSeg| $)
                      (|DRAWCFUN;normalize| |vSeg| $) |l| (QREFELT $ 148))
            . #1#)
      (EXIT |mesh|))))) 

(DEFUN |DRAWCFUN;makeObject;M2SLTs;30!1| (|x| |y| $$)
  (PROG (|fcn| $ |cc|)
    (LETT |fcn| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;M2SLTs;30|))
    (LETT $ (QREFELT $$ 1) . #1#)
    (LETT |cc| (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |x| |y| (SPADCALL |fcn| (QREFELT $ 146)))
                (SPADCALL |cc| (QREFELT $ 88))))))) 

(DEFUN |DRAWCFUN;makeObject;M2SLTs;30!0| (|x| |y| $$)
  (PROG (|s| |col2| $)
    (LETT |s| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;M2SLTs;30|))
    (LETT |col2| (QREFELT $$ 1) . #1#)
    (LETT $ (QREFELT $$ 0) . #1#)
    (RETURN
     (PROGN
      (SPADCALL (SPADCALL |x| |y| |s|)
                (SPADCALL |x| |y| (SPADCALL |col2| (QREFELT $ 144)))
                (QREFELT $ 126)))))) 

(DEFUN |DRAWCFUN;makeObject;Ps2STs;31| (|s| |uSeg| |vSeg| $)
  (SPADCALL |s| |uSeg| |vSeg| NIL (QREFELT $ 158))) 

(DEFUN |DRAWCFUN;draw;Ps2SLTdv;32| (|s| |uSeg| |vSeg| |l| $)
  (PROG (|mesh|)
    (RETURN
     (SEQ
      (LETT |mesh| (SPADCALL |s| |uSeg| |vSeg| |l| (QREFELT $ 158))
            |DRAWCFUN;draw;Ps2SLTdv;32|)
      (EXIT (SPADCALL |mesh| |l| (QREFELT $ 131))))))) 

(DEFUN |DRAWCFUN;draw;Ps2STdv;33| (|s| |uSeg| |vSeg| $)
  (SPADCALL |s| |uSeg| |vSeg| NIL (QREFELT $ 161))) 

(DEFUN |DRAWCFUN;makeObject;M2STs;34| (|s| |uSeg| |vSeg| $)
  (SPADCALL |s| |uSeg| |vSeg| NIL (QREFELT $ 159))) 

(DEFUN |DRAWCFUN;draw;M2SLTdv;35| (|s| |uSeg| |vSeg| |l| $)
  (PROG (|mesh|)
    (RETURN
     (SEQ
      (LETT |mesh| (SPADCALL |s| |uSeg| |vSeg| |l| (QREFELT $ 159))
            |DRAWCFUN;draw;M2SLTdv;35|)
      (EXIT (SPADCALL |mesh| |l| (QREFELT $ 131))))))) 

(DEFUN |DRAWCFUN;draw;M2STdv;36| (|s| |uSeg| |vSeg| $)
  (SPADCALL |s| |uSeg| |vSeg| NIL (QREFELT $ 164))) 

(DEFUN |TopLevelDrawFunctionsForCompiledFunctions| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G835)
       (RETURN
        (COND
         ((LETT #2#
                (HGET |$ConstructorCache|
                      '|TopLevelDrawFunctionsForCompiledFunctions|)
                . #3=(|TopLevelDrawFunctionsForCompiledFunctions|))
          (|CDRwithIncrement| (CDAR #2#)))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (CDDAR
                   (HPUT |$ConstructorCache|
                         '|TopLevelDrawFunctionsForCompiledFunctions|
                         (LIST
                          (CONS NIL
                                (CONS 1
                                      (|TopLevelDrawFunctionsForCompiledFunctions;|))))))
                (LETT #2# T . #3#))
            (COND
             ((NOT #2#)
              (HREM |$ConstructorCache|
                    '|TopLevelDrawFunctionsForCompiledFunctions|))))))))))) 

(DEFUN |TopLevelDrawFunctionsForCompiledFunctions;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
     (PROGN
      (LETT |dv$| '(|TopLevelDrawFunctionsForCompiledFunctions|)
            . #1=(|TopLevelDrawFunctionsForCompiledFunctions|))
      (LETT $ (GETREFV 166) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache|
                  '|TopLevelDrawFunctionsForCompiledFunctions| NIL (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6
                "draw: when specifying function, left hand side must be a variable")
      (QSETREFV $ 7 "draw: range is in interval with only one point")
      (QSETREFV $ 8
                "draw: independent variable appears on lhs of function definition")
      $)))) 

(MAKEPROP '|TopLevelDrawFunctionsForCompiledFunctions| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL 'EXTOVARERROR 'SMALLRANGEERROR
              'DEPVARERROR (|DoubleFloat|) (|Segment| 9) (0 . |hi|) (|Float|)
              (5 . |convert|) (10 . |lo|) (15 . -) (21 . |abs|) (|Integer|)
              (26 . /) (|Boolean|) (32 . <) (38 . +) (|Segment| 12)
              (44 . |segment|) (|Mapping| 12 9) (|SegmentFunctions2| 9 12)
              (50 . |map|) (|List| 123) (|Plot|) (56 . |listBranches|)
              (61 . |xRange|) (66 . |yRange|) (|String|) (|Symbol|)
              (71 . |coerce|) (|Union| 50 '"failed") (|List| $) (|DrawOption|)
              (76 . |option|) (|GraphicsDefaults|) (82 . |clipPointsDefault|)
              (|List| 37) (|DrawOptionFunctions0|) (86 . |clipBoolean|)
              (92 . |parametric?|)
              (|Record| (|:| |brans| 27) (|:| |xValues| 10) (|:| |yValues| 10))
              (|TwoDimensionalPlotClipping|) (97 . |clipParametric|)
              (102 . |clip|) (|List| 22) (|Any|) (|AnyFunctions1| 49)
              (107 . |retract|) (|NonNegativeInteger|) (112 . |more?|)
              (118 . |lo|) (123 . |convert|) (128 . |hi|) (133 . |second|)
              (138 . |clipWithRanges|) (147 . |drawToScale|) (151 . |toScale|)
              (157 . |ranges|) (162 . |convert|) (|Palette|)
              (|ViewDefaultsPackage|) (167 . |pointColorDefault|)
              (171 . |pointColorPalette|) (177 . |lineColorDefault|)
              (181 . |curveColorPalette|) (|PositiveInteger|)
              (187 . |pointSizeDefault|) (|TwoDimensionalViewport|)
              (|ViewportPackage|) (191 . |drawCurves|) (|OutputForm|)
              (200 . |coerce|) (205 . |segment|) (|List| 9) (|Point| 9)
              (211 . |point|) (216 . |adaptive?|) (220 . |adaptive|)
              (226 . |setAdaptive|) (|Mapping| 79 79) (|AnyFunctions1| 84)
              (231 . |retract|) (|List| 84) (236 . |first|) (|Mapping| 79 9)
              (|List| 89) (241 . |first|) (246 . |pointPlot|) (|Mapping| 9 9)
              |DRAWCFUN;draw;MSLTdv;6| |DRAWCFUN;draw;MSTdv;7|
              (|ParametricPlaneCurve| 93) (252 . |coordinate|)
              |DRAWCFUN;draw;PpcSLTdv;8| |DRAWCFUN;draw;PpcSTdv;9|
              (258 . |elt|) (264 . |setelt|) (|ThreeSpace| 9) (271 . |space|)
              (|ParametricSpaceCurve| 93) (276 . |coordinate|)
              (|AnyFunctions1| 93) (282 . |retract|) (|Plot3D|)
              (287 . |pointPlot|) (293 . |option?|) (299 . |tubePoints|)
              (305 . |float|) (312 . |tubeRadius|) (|TubePlot| 108)
              (|NumericTubePlot| 108) (318 . |tube|) (325 . |listLoops|)
              (|Mapping| 9 9 9 9) (|AnyFunctions1| 118) (330 . |retract|)
              (335 . |mesh|) (343 . |listBranches|) (|List| 79) (348 . |curve|)
              |DRAWCFUN;makeObject;PscSLTs;14| (354 . |concat|)
              |DRAWCFUN;makeObject;MSLTs;15| |DRAWCFUN;makeObject;PscSTs;16|
              |DRAWCFUN;makeObject;MSTs;17| (|ThreeDimensionalViewport|)
              (360 . |makeViewport3D|) |DRAWCFUN;draw;PscSLTdv;18|
              |DRAWCFUN;draw;PscSTdv;19| |DRAWCFUN;draw;MSLTdv;20|
              |DRAWCFUN;draw;MSTdv;21| (366 . |One|) (370 . |One|)
              (|Mapping| 79 9 9) |DRAWCFUN;recolor;MMM;23| (|Mapping| 9 9 9)
              (|AnyFunctions1| 140) (374 . |retract|) (|List| 140)
              (379 . |first|) (|List| 138) (384 . |first|)
              (|MeshCreationRoutinesForThreeDimensions|) (389 . |meshPar2Var|)
              |DRAWCFUN;makeObject;M2SLTs;25| |DRAWCFUN;makeObject;M2STs;26|
              |DRAWCFUN;draw;M2SLTdv;27| |DRAWCFUN;draw;M2STdv;28|
              (398 . |One|) (|ParametricSurface| 140) (402 . |coordinate|)
              (|List| 118) (408 . |first|) |DRAWCFUN;makeObject;Ps2SLTs;29|
              |DRAWCFUN;makeObject;M2SLTs;30| |DRAWCFUN;makeObject;Ps2STs;31|
              |DRAWCFUN;draw;Ps2SLTdv;32| |DRAWCFUN;draw;Ps2STdv;33|
              |DRAWCFUN;makeObject;M2STs;34| |DRAWCFUN;draw;M2SLTdv;35|
              |DRAWCFUN;draw;M2STdv;36|)
           '#(|recolor| 413 |makeObject| 419 |draw| 490) 'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 165
                                                 '(1 10 9 0 11 1 12 0 9 13 1 10
                                                   9 0 14 2 12 0 0 0 15 1 12 0
                                                   0 16 2 12 0 0 17 18 2 12 19
                                                   0 0 20 2 12 0 0 0 21 2 22 0
                                                   12 12 23 2 25 22 24 10 26 1
                                                   28 27 0 29 1 28 10 0 30 1 28
                                                   10 0 31 1 33 0 32 34 2 37 35
                                                   36 33 38 0 39 19 40 2 42 19
                                                   41 19 43 1 28 19 0 44 1 46
                                                   45 28 47 1 46 45 28 48 1 51
                                                   49 50 52 2 49 19 0 53 54 1
                                                   22 12 0 55 1 12 9 0 56 1 22
                                                   12 0 57 1 49 22 0 58 5 46 45
                                                   27 9 9 9 9 59 0 39 19 60 2
                                                   42 19 41 19 61 1 37 0 49 62
                                                   1 9 12 0 63 0 65 64 66 2 42
                                                   64 41 64 67 0 65 64 68 2 42
                                                   64 41 64 69 0 65 70 71 5 73
                                                   72 27 64 64 70 41 74 1 32 75
                                                   0 76 2 10 0 9 9 77 1 79 0 78
                                                   80 0 28 19 81 2 42 19 41 19
                                                   82 1 28 19 19 83 1 85 84 50
                                                   86 1 87 84 0 88 1 90 89 0 91
                                                   2 28 0 89 10 92 2 96 93 0 53
                                                   97 2 79 9 0 17 100 3 79 9 0
                                                   17 9 101 1 42 102 41 103 2
                                                   104 93 0 53 105 1 106 93 50
                                                   107 2 108 0 89 10 109 2 37
                                                   19 36 33 110 2 42 70 41 70
                                                   111 3 12 0 17 17 70 112 2 42
                                                   12 41 12 113 3 115 114 108 9
                                                   17 116 1 114 27 0 117 1 119
                                                   118 50 120 4 102 0 0 27 19
                                                   19 121 1 108 27 0 122 2 102
                                                   0 0 123 124 2 79 0 0 9 126 2
                                                   130 0 102 41 131 0 9 0 136 0
                                                   70 0 137 1 141 140 50 142 1
                                                   143 140 0 144 1 145 138 0
                                                   146 5 147 102 102 138 10 10
                                                   41 148 0 53 0 153 2 154 140
                                                   0 53 155 1 156 118 0 157 2 0
                                                   138 138 118 139 3 0 102 104
                                                   22 41 125 2 0 102 104 22 128
                                                   2 0 102 89 22 129 3 0 102 89
                                                   22 41 127 4 0 102 140 22 22
                                                   41 149 3 0 102 140 22 22 150
                                                   4 0 102 138 22 22 41 159 3 0
                                                   102 138 22 22 163 4 0 102
                                                   154 22 22 41 158 3 0 102 154
                                                   22 22 160 3 0 72 93 22 41 94
                                                   3 0 72 96 22 41 98 2 0 72 93
                                                   22 95 2 0 72 96 22 99 2 0
                                                   130 104 22 133 3 0 130 104
                                                   22 41 132 3 0 130 89 22 41
                                                   134 2 0 130 89 22 135 4 0
                                                   130 140 22 22 41 151 3 0 130
                                                   140 22 22 152 3 0 130 138 22
                                                   22 165 4 0 130 138 22 22 41
                                                   164 4 0 130 154 22 22 41 161
                                                   3 0 130 154 22 22 162)))))
           '|lookupComplete|)) 

(MAKEPROP '|TopLevelDrawFunctionsForCompiledFunctions| 'NILADIC T) 
