
(/VERSIONCHECK 2) 

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

(DEFUN |DRAWCFUN;drawToScaleRanges!1| (|#1| $)
  (SPADCALL |#1| (QREFELT $ 13))) 

(DEFUN |DRAWCFUN;drawToScaleRanges!0| (|#1| $)
  (SPADCALL |#1| (QREFELT $ 13))) 

(DEFUN |DRAWCFUN;drawPlot| (|plot| |l| $)
  (PROG (|cl| |segList| |xRangeF| |xLo| |xHi| |yRangeF| |yLo| |yHi|
              |clipInfo| |branches| |xRange| |yRange| |scaledRanges|
              |xRangeFloat| |yRangeFloat| |ll| |ptCol| |crCol|)
    (RETURN
      (SEQ (LETT |branches| (SPADCALL |plot| (QREFELT $ 29))
                 . #0=(|DRAWCFUN;drawPlot|))
           (LETT |xRange| (SPADCALL |plot| (QREFELT $ 30)) . #0#)
           (LETT |yRange| (SPADCALL |plot| (QREFELT $ 31)) . #0#)
           (SEQ (LETT |cl|
                      (SPADCALL |l|
                          (SPADCALL "clipSegment" (QREFELT $ 34))
                          (QREFELT $ 38)) . #0#)
                (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)))
                                         ('T
                                          (SPADCALL |plot|
                                           (QREFELT $ 48)))) . #0#)
                                 (LETT |branches|
                                       (QVELT |clipInfo| 0) . #0#)
                                 (LETT |xRange|
                                       (QVELT |clipInfo| 1) . #0#)
                                 (EXIT (LETT |yRange|
                                        (QVELT |clipInfo| 2) . #0#))))
                           ('T "No explicit user-specified clipping")))
                        ('T
                         (SEQ (LETT |segList|
                                    (SPADCALL (QCDR |cl|)
                                     (QREFELT $ 52)) . #0#)
                              (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"))
                                      ('T
                                       (SEQ (LETT |xLo| 0.0 . #0#)
                                        (LETT |xHi| 0.0 . #0#)
                                        (LETT |yLo| 0.0 . #0#)
                                        (LETT |yHi| 0.0 . #0#)
                                        (COND
                                          ((NULL (CDR |segList|))
                                           (SEQ
                                            (LETT |xLo|
                                             (SPADCALL |xRange|
                                              (QREFELT $ 14)) . #0#)
                                            (LETT |xHi|
                                             (SPADCALL |xRange|
                                              (QREFELT $ 11)) . #0#)
                                            (LETT |yRangeF|
                                             (|SPADfirst| |segList|) . #0#)
                                            (LETT |yLo|
                                             (SPADCALL
                                              (SPADCALL |yRangeF|
                                               (QREFELT $ 55))
                                              (QREFELT $ 56)) . #0#)
                                            (EXIT
                                             (LETT |yHi|
                                              (SPADCALL
                                               (SPADCALL |yRangeF|
                                                (QREFELT $ 57))
                                               (QREFELT $ 56)) . #0#))))
                                          ('T
                                           (SEQ
                                            (LETT |xRangeF|
                                             (|SPADfirst| |segList|) . #0#)
                                            (LETT |xLo|
                                             (SPADCALL
                                              (SPADCALL |xRangeF|
                                               (QREFELT $ 55))
                                              (QREFELT $ 56)) . #0#)
                                            (LETT |xHi|
                                             (SPADCALL
                                              (SPADCALL |xRangeF|
                                               (QREFELT $ 57))
                                              (QREFELT $ 56)) . #0#)
                                            (LETT |yRangeF|
                                             (SPADCALL |segList|
                                              (QREFELT $ 58)) . #0#)
                                            (LETT |yLo|
                                             (SPADCALL
                                              (SPADCALL |yRangeF|
                                               (QREFELT $ 55))
                                              (QREFELT $ 56)) . #0#)
                                            (EXIT
                                             (LETT |yHi|
                                              (SPADCALL
                                               (SPADCALL |yRangeF|
                                                (QREFELT $ 57))
                                               (QREFELT $ 56)) . #0#)))))
                                        (LETT |clipInfo|
                                         (SPADCALL |branches| |xLo|
                                          |xHi| |yLo| |yHi|
                                          (QREFELT $ 59)) . #0#)
                                        (LETT |branches|
                                         (QVELT |clipInfo| 0) . #0#)
                                        (LETT |xRange|
                                         (QVELT |clipInfo| 1) . #0#)
                                        (EXIT
                                         (LETT |yRange|
                                          (QVELT |clipInfo| 2) . #0#)))))))))))
           (COND
             ((SPADCALL |l| (SPADCALL (QREFELT $ 60)) (QREFELT $ 61))
              (SEQ (LETT |scaledRanges|
                         (|DRAWCFUN;drawToScaleRanges| |xRange|
                             |yRange| $) . #0#)
                   (EXIT (LETT |l|
                               (CONS (SPADCALL |scaledRanges|
                                      (QREFELT $ 62))
                                     |l|) . #0#))))
             ('T
              (SEQ (LETT |xRangeFloat|
                         (SPADCALL (CONS #'|DRAWCFUN;drawPlot!0| $)
                             |xRange| (QREFELT $ 26)) . #0#)
                   (LETT |yRangeFloat|
                         (SPADCALL (CONS #'|DRAWCFUN;drawPlot!1| $)
                             |yRange| (QREFELT $ 26)) . #0#)
                   (EXIT (LETT |l|
                               (CONS (SPADCALL
                                      (LETT |ll|
                                       (LIST |xRangeFloat|
                                        |yRangeFloat|) . #0#)
                                      (QREFELT $ 62))
                                     |l|) . #0#)))))
           (LETT |ptCol|
                 (SPADCALL |l| (SPADCALL (QREFELT $ 66))
                     (QREFELT $ 67)) . #0#)
           (LETT |crCol|
                 (SPADCALL |l| (SPADCALL (QREFELT $ 68))
                     (QREFELT $ 69)) . #0#)
           (EXIT (SPADCALL |branches| |ptCol| |crCol|
                     (SPADCALL (QREFELT $ 71)) |l| (QREFELT $ 74))))))) 

(DEFUN |DRAWCFUN;drawPlot!1| (|#1| $) (SPADCALL |#1| (QREFELT $ 63))) 

(DEFUN |DRAWCFUN;drawPlot!0| (|#1| $) (SPADCALL |#1| (QREFELT $ 63))) 

(DEFUN |DRAWCFUN;normalize| (|seg| $)
  (PROG (|a| |b|)
    (RETURN
      (SEQ (LETT |a|
                 (SPADCALL (SPADCALL |seg| (QREFELT $ 55))
                     (QREFELT $ 56))
                 . #0=(|DRAWCFUN;normalize|))
           (LETT |b|
                 (SPADCALL (SPADCALL |seg| (QREFELT $ 57))
                     (QREFELT $ 56)) . #0#)
           (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 (|s| |r|)
    (RETURN
      (SEQ (LETT |s| (|trapNumericErrors| (SPADCALL |f| |ff|))
                 . #0=(|DRAWCFUN;myTrap1|))
           (EXIT (COND
                   ((QEQCAR |s| 1) 0.0)
                   (#1='T
                    (SEQ (LETT |r| (QCDR |s|) . #0#)
                         (EXIT (COND
                                 ((< MOST-POSITIVE-DOUBLE-FLOAT |r|)
                                  MOST-POSITIVE-DOUBLE-FLOAT)
                                 ((< |r| MOST-NEGATIVE-DOUBLE-FLOAT)
                                  MOST-NEGATIVE-DOUBLE-FLOAT)
                                 (#1# |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 (|oldAdaptive| |c| |cc| |ff| |pl|)
    (RETURN
      (SEQ (LETT |oldAdaptive| (SPADCALL (QREFELT $ 81))
                 . #0=(|DRAWCFUN;draw;MSLTdv;6|))
           (SPADCALL (SPADCALL |l| |oldAdaptive| (QREFELT $ 82))
               (QREFELT $ 83))
           (LETT |ff|
                 (LIST (CONS #'|DRAWCFUN;draw;MSLTdv;6!0|
                             (VECTOR $ |f|))) . #0#)
           (SEQ (LETT |c|
                      (SPADCALL |l|
                          (SPADCALL "coordinates" (QREFELT $ 34))
                          (QREFELT $ 38)) . #0#)
                (EXIT (COND
                        ((QEQCAR |c| 1)
                         (LETT |ff|
                               (LIST (CONS #'|DRAWCFUN;draw;MSLTdv;6!1|
                                      (VECTOR $ |f|))) . #0#))
                        ('T
                         (SEQ (LETT |cc|
                                    (LIST
                                     (SPADCALL (QCDR |c|)
                                      (QREFELT $ 86))) . #0#)
                              (EXIT (LETT |ff|
                                     (LIST
                                      (CONS
                                       #'|DRAWCFUN;draw;MSLTdv;6!2|
                                       (VECTOR |cc| $ |ff|))) . #0#)))))))
           (LETT |pl|
                 (SPADCALL (SPADCALL |ff| (QREFELT $ 91))
                     (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 92)) . #0#)
           (SPADCALL |oldAdaptive| (QREFELT $ 83))
           (EXIT (|DRAWCFUN;drawPlot| |pl| |l| $)))))) 

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

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

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

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

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

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

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

(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 (|lp| #0=#:G1889 |p| #1=#:G1890)
    (RETURN
      (SEQ (SEQ (LETT |lp| NIL . #2=(|DRAWCFUN;colorPoints|))
                (LETT #0# |llp| . #2#) G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |lp| (CAR #0#) . #2#) NIL))
                   #3=(GO G191)))
                (SEQ (EXIT (SEQ (LETT |p| NIL . #2#)
                                (LETT #1# |lp| . #2#) G190
                                (COND
                                  ((OR (ATOM #1#)
                                    (PROGN
                                      (LETT |p| (CAR #1#) . #2#)
                                      NIL))
                                   #3#))
                                (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#) . #2#) #4=(GO G190)
                                G191 (EXIT NIL))))
                (LETT #0# (CDR #0#) . #2#) #4# G191 (EXIT NIL))
           (EXIT |llp|))))) 

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

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

(DEFUN |DRAWCFUN;makeObject;PscSLTs;14!1| (|#1| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 3) |DRAWCFUN;makeObject;PscSLTs;14|)
    (RETURN
      (PROGN
        (|DRAWCFUN;makePt4| (|DRAWCFUN;myTrap1| (QREFELT $$ 4) |#1| $)
            (|DRAWCFUN;myTrap1| (QREFELT $$ 2) |#1| $)
            (|DRAWCFUN;myTrap1| (QREFELT $$ 1) |#1| $)
            (SPADCALL |#1|
                (SPADCALL (QCDR (QREFELT $$ 0)) (QREFELT $ 107)))
            $))))) 

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

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

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

(DEFUN |DRAWCFUN;makeObject;MSLTs;15!0| (|#1| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 0) |DRAWCFUN;makeObject;MSLTs;15|)
    (RETURN
      (PROGN
        (SPADCALL (SPADCALL |#1| (QREFELT $$ 2))
            (SPADCALL |#1|
                (SPADCALL (QCDR (QREFELT $$ 1)) (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 (|s| |r|)
    (RETURN
      (SEQ (LETT |s| (|trapNumericErrors| (SPADCALL |u| |v| |ff|))
                 . #0=(|DRAWCFUN;myTrap2|))
           (EXIT (COND
                   ((QEQCAR |s| 1) 0.0)
                   (#1='T
                    (SEQ (LETT |r| (QCDR |s|) . #0#)
                         (EXIT (COND
                                 ((< MOST-POSITIVE-DOUBLE-FLOAT |r|)
                                  MOST-POSITIVE-DOUBLE-FLOAT)
                                 ((< |r| MOST-NEGATIVE-DOUBLE-FLOAT)
                                  MOST-NEGATIVE-DOUBLE-FLOAT)
                                 (#1# |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| (|#1| |#2| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 1) |DRAWCFUN;recolor;MMM;23|)
    (RETURN
      (PROGN
        (PROG (|pt|)
          (RETURN
            (SEQ (LETT |pt| (SPADCALL |#1| |#2| (QREFELT $$ 2)) NIL)
                 (SPADCALL |pt| 4
                     (SPADCALL
                         (SPADCALL |pt| (|spadConstant| $ 137)
                             (QREFELT $ 100))
                         (SPADCALL |pt| 2 (QREFELT $ 100))
                         (SPADCALL |pt| 3 (QREFELT $ 100))
                         (QREFELT $$ 0))
                     (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 (|sp| |c2| |pointsColored?| |col2| |cc| |c| |fcn| |mesh|)
    (RETURN
      (SEQ (LETT |sp| (SPADCALL |l| (QREFELT $ 103))
                 . #0=(|DRAWCFUN;makeObject;M2SLTs;25|))
           (LETT |col2|
                 (LIST (CONS (|function| |DRAWCFUN;xCoord|) $)) . #0#)
           (LETT |pointsColored?| 'NIL . #0#)
           (SEQ (LETT |c2|
                      (SPADCALL |l|
                          (SPADCALL "colorFunction2" (QREFELT $ 34))
                          (QREFELT $ 38)) . #0#)
                (EXIT (COND
                        ((NULL (QEQCAR |c2| 1))
                         (SEQ (LETT |pointsColored?| 'T . #0#)
                              (EXIT (LETT |col2|
                                     (LIST
                                      (SPADCALL (QCDR |c2|)
                                       (QREFELT $ 142))) . #0#)))))))
           (LETT |fcn|
                 (LIST (CONS #'|DRAWCFUN;makeObject;M2SLTs;25!0|
                             (VECTOR |col2| $ |f|))) . #0#)
           (SEQ (LETT |c|
                      (SPADCALL |l|
                          (SPADCALL "coordinates" (QREFELT $ 34))
                          (QREFELT $ 38)) . #0#)
                (EXIT (COND
                        ((QEQCAR |c| 1)
                         (LETT |fcn|
                               (LIST (CONS
                                      #'|DRAWCFUN;makeObject;M2SLTs;25!1|
                                      (VECTOR |col2| $ |f|))) . #0#))
                        (#1='T
                         (SEQ (LETT |cc|
                                    (LIST
                                     (SPADCALL (QCDR |c|)
                                      (QREFELT $ 86))) . #0#)
                              (EXIT (LETT |fcn|
                                     (LIST
                                      (CONS
                                       #'|DRAWCFUN;makeObject;M2SLTs;25!2|
                                       (VECTOR |cc| $ |fcn|))) . #0#)))))))
           (COND
             ((NULL |pointsColored?|)
              (SEQ (LETT |c|
                         (SPADCALL |l|
                             (SPADCALL "colorFunction3" (QREFELT $ 34))
                             (QREFELT $ 38)) . #0#)
                   (EXIT (LETT |fcn|
                               (COND
                                 ((QEQCAR |c| 1)
                                  (LIST (SPADCALL
                                         (SPADCALL |fcn|
                                          (QREFELT $ 146))
                                         (CONS
                                          (|function|
                                           |DRAWCFUN;zCoord|)
                                          $)
                                         (QREFELT $ 139))))
                                 (#1#
                                  (LIST (SPADCALL
                                         (SPADCALL |fcn|
                                          (QREFELT $ 146))
                                         (SPADCALL (QCDR |c|)
                                          (QREFELT $ 120))
                                         (QREFELT $ 139))))) . #0#)))))
           (LETT |mesh|
                 (SPADCALL |sp| (SPADCALL |fcn| (QREFELT $ 146))
                     (|DRAWCFUN;normalize| |xSeg| $)
                     (|DRAWCFUN;normalize| |ySeg| $) |l|
                     (QREFELT $ 148)) . #0#)
           (EXIT |mesh|))))) 

(DEFUN |DRAWCFUN;makeObject;M2SLTs;25!2| (|#1| |#2| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 1) |DRAWCFUN;makeObject;M2SLTs;25|)
    (RETURN
      (PROGN
        (SPADCALL
            (SPADCALL |#1| |#2|
                (SPADCALL (QREFELT $$ 2) (QREFELT $ 146)))
            (SPADCALL (QREFELT $$ 0) (QREFELT $ 88))))))) 

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

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

(DEFUN |DRAWCFUN;makeObject;Ps2SLTs;29!1| (|#1| |#2| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 1) |DRAWCFUN;makeObject;Ps2SLTs;29|)
    (RETURN
      (PROGN
        (SPADCALL
            (SPADCALL |#1| |#2|
                (SPADCALL (QREFELT $$ 2) (QREFELT $ 146)))
            (SPADCALL (QREFELT $$ 0) (QREFELT $ 88))))))) 

(DEFUN |DRAWCFUN;makeObject;Ps2SLTs;29!0| (|#1| |#2| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 3) |DRAWCFUN;makeObject;Ps2SLTs;29|)
    (RETURN
      (PROGN
        (|DRAWCFUN;makePt4|
            (|DRAWCFUN;myTrap2|
                (SPADCALL (QREFELT $$ 4) (QREFELT $ 144)) |#1| |#2| $)
            (|DRAWCFUN;myTrap2|
                (SPADCALL (QREFELT $$ 2) (QREFELT $ 144)) |#1| |#2| $)
            (|DRAWCFUN;myTrap2|
                (SPADCALL (QREFELT $$ 1) (QREFELT $ 144)) |#1| |#2| $)
            (|DRAWCFUN;myTrap2|
                (SPADCALL (QREFELT $$ 0) (QREFELT $ 144)) |#1| |#2| $)
            $))))) 

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

(DEFUN |DRAWCFUN;makeObject;M2SLTs;30!1| (|#1| |#2| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 1) |DRAWCFUN;makeObject;M2SLTs;30|)
    (RETURN
      (PROGN
        (SPADCALL
            (SPADCALL |#1| |#2|
                (SPADCALL (QREFELT $$ 2) (QREFELT $ 146)))
            (SPADCALL (QREFELT $$ 0) (QREFELT $ 88))))))) 

(DEFUN |DRAWCFUN;makeObject;M2SLTs;30!0| (|#1| |#2| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 0) |DRAWCFUN;makeObject;M2SLTs;30|)
    (RETURN
      (PROGN
        (SPADCALL (SPADCALL |#1| |#2| (QREFELT $$ 2))
            (SPADCALL |#1| |#2|
                (SPADCALL (QREFELT $$ 1) (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| ()
  (PROG ()
    (RETURN
      (PROG (#0=#:G1989)
        (RETURN
          (COND
            ((LETT #0#
                   (HGET |$ConstructorCache|
                         '|TopLevelDrawFunctionsForCompiledFunctions|)
                   . #1=(|TopLevelDrawFunctionsForCompiledFunctions|))
             (|CDRwithIncrement| (CDAR #0#)))
            ('T
             (UNWIND-PROTECT
               (PROG1 (CDDAR (HPUT |$ConstructorCache|
                                   '|TopLevelDrawFunctionsForCompiledFunctions|
                                   (LIST
                                    (CONS NIL
                                     (CONS 1
                                      (|TopLevelDrawFunctionsForCompiledFunctions;|))))))
                 (LETT #0# T . #1#))
               (COND
                 ((NOT #0#)
                  (HREM |$ConstructorCache|
                        '|TopLevelDrawFunctionsForCompiledFunctions|))))))))))) 

(DEFUN |TopLevelDrawFunctionsForCompiledFunctions;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT |dv$| '(|TopLevelDrawFunctionsForCompiledFunctions|)
              . #0=(|TopLevelDrawFunctionsForCompiledFunctions|))
        (LETT $ (GETREFV 166) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|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) 
