
(/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| '|clipSegment| (QREFELT $ 36)) . #1#)
           (EXIT
            (COND
             ((QEQCAR |cl| 1)
              (COND
               ((SPADCALL |l| (SPADCALL (QREFELT $ 38)) (QREFELT $ 41))
                (SEQ
                 (LETT |clipInfo|
                       (COND
                        ((SPADCALL |plot| (QREFELT $ 42))
                         (SPADCALL |plot| (QREFELT $ 45)))
                        (#2='T (SPADCALL |plot| (QREFELT $ 46))))
                       . #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 $ 50)) . #1#)
                   (EXIT
                    (COND
                     ((NULL |segList|)
                      (|error|
                       "draw: you may specify at least 1 segment for 2D clipping"))
                     ((SPADCALL |segList| 2 (QREFELT $ 52))
                      (|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 $ 53))
                                     (QREFELT $ 54))
                                    . #1#)
                              (EXIT
                               (LETT |yHi|
                                     (SPADCALL
                                      (SPADCALL |yRangeF| (QREFELT $ 55))
                                      (QREFELT $ 54))
                                     . #1#))))
                            (#2#
                             (SEQ
                              (LETT |xRangeF| (|SPADfirst| |segList|) . #1#)
                              (LETT |xLo|
                                    (SPADCALL
                                     (SPADCALL |xRangeF| (QREFELT $ 53))
                                     (QREFELT $ 54))
                                    . #1#)
                              (LETT |xHi|
                                    (SPADCALL
                                     (SPADCALL |xRangeF| (QREFELT $ 55))
                                     (QREFELT $ 54))
                                    . #1#)
                              (LETT |yRangeF|
                                    (SPADCALL |segList| (QREFELT $ 56)) . #1#)
                              (LETT |yLo|
                                    (SPADCALL
                                     (SPADCALL |yRangeF| (QREFELT $ 53))
                                     (QREFELT $ 54))
                                    . #1#)
                              (EXIT
                               (LETT |yHi|
                                     (SPADCALL
                                      (SPADCALL |yRangeF| (QREFELT $ 55))
                                      (QREFELT $ 54))
                                     . #1#)))))
                           (LETT |clipInfo|
                                 (SPADCALL |branches| |xLo| |xHi| |yLo| |yHi|
                                           (QREFELT $ 57))
                                 . #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 $ 58)) (QREFELT $ 59))
        (SEQ
         (LETT |scaledRanges|
               (|DRAWCFUN;drawToScaleRanges| |xRange| |yRange| $) . #1#)
         (EXIT
          (LETT |l| (CONS (SPADCALL |scaledRanges| (QREFELT $ 60)) |l|)
                . #1#))))
       (#2#
        (SEQ
         (LETT |xRangeFloat| (SPADCALL (ELT $ 61) |xRange| (QREFELT $ 26))
               . #1#)
         (LETT |yRangeFloat| (SPADCALL (ELT $ 61) |yRange| (QREFELT $ 26))
               . #1#)
         (EXIT
          (LETT |l|
                (CONS
                 (SPADCALL (LETT |ll| (LIST |xRangeFloat| |yRangeFloat|) . #1#)
                           (QREFELT $ 60))
                 |l|)
                . #1#)))))
      (LETT |ptCol| (SPADCALL |l| (SPADCALL (QREFELT $ 64)) (QREFELT $ 65))
            . #1#)
      (LETT |crCol| (SPADCALL |l| (SPADCALL (QREFELT $ 66)) (QREFELT $ 67))
            . #1#)
      (EXIT
       (SPADCALL |branches| |ptCol| |crCol| (SPADCALL (QREFELT $ 69)) |l|
                 (QREFELT $ 72))))))) 

(DEFUN |DRAWCFUN;normalize| (|seg| $)
  (PROG (|b| |a|)
    (RETURN
     (SEQ
      (LETT |a| (SPADCALL (SPADCALL |seg| (QREFELT $ 53)) (QREFELT $ 54))
            . #1=(|DRAWCFUN;normalize|))
      (LETT |b| (SPADCALL (SPADCALL |seg| (QREFELT $ 55)) (QREFELT $ 54))
            . #1#)
      (EXIT
       (COND
        ((EQL-DF |a| |b|) (|error| (SPADCALL (QREFELT $ 7) (QREFELT $ 75))))
        ((LESS-DF |a| |b|) (SPADCALL |a| |b| (QREFELT $ 76)))
        ('T (SPADCALL |b| |a| (QREFELT $ 76))))))))) 

(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
                     ((LESS-DF MOST-POSITIVE-DOUBLE-FLOAT |r|)
                      MOST-POSITIVE-DOUBLE-FLOAT)
                     ((LESS-DF |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 $ 79))))) 

(DEFUN |DRAWCFUN;draw;MSLTdv;6| (|f| |seg| |l| $)
  (PROG (|pl| |ff| |cc| |c| |oldAdaptive|)
    (RETURN
     (SEQ
      (LETT |oldAdaptive| (SPADCALL (QREFELT $ 80))
            . #1=(|DRAWCFUN;draw;MSLTdv;6|))
      (SPADCALL (SPADCALL |l| |oldAdaptive| (QREFELT $ 81)) (QREFELT $ 82))
      (LETT |ff| (LIST (CONS #'|DRAWCFUN;draw;MSLTdv;6!0| (VECTOR $ |f|)))
            . #1#)
      (SEQ (LETT |c| (SPADCALL |l| '|coordinates| (QREFELT $ 36)) . #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 $ 85))) . #1#)
               (EXIT
                (LETT |ff|
                      (LIST
                       (CONS #'|DRAWCFUN;draw;MSLTdv;6!2|
                             (VECTOR |cc| $ |ff|)))
                      . #1#)))))))
      (LETT |pl|
            (SPADCALL (SPADCALL |ff| (QREFELT $ 90))
                      (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 91))
            . #1#)
      (SPADCALL |oldAdaptive| (QREFELT $ 82))
      (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 $ 90)))
                (SPADCALL |cc| (QREFELT $ 87))))))) 

(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 $ 93))) 

(DEFUN |DRAWCFUN;draw;PpcSLTdv;8| (|ppc| |seg| |l| $)
  (PROG (|pl| |fcn| |cc| |c| |g| |f| |oldAdaptive|)
    (RETURN
     (SEQ
      (LETT |oldAdaptive| (SPADCALL (QREFELT $ 80))
            . #1=(|DRAWCFUN;draw;PpcSLTdv;8|))
      (SPADCALL (SPADCALL |l| |oldAdaptive| (QREFELT $ 81)) (QREFELT $ 82))
      (LETT |f| (SPADCALL |ppc| 1 (QREFELT $ 96)) . #1#)
      (LETT |g| (SPADCALL |ppc| 2 (QREFELT $ 96)) . #1#)
      (LETT |fcn|
            (LIST (CONS #'|DRAWCFUN;draw;PpcSLTdv;8!0| (VECTOR |g| $ |f|)))
            . #1#)
      (SEQ (LETT |c| (SPADCALL |l| '|coordinates| (QREFELT $ 36)) . #1#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c| 1))
              (SEQ
               (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 85))) . #1#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;draw;PpcSLTdv;8!1|
                             (VECTOR |cc| $ |fcn|)))
                      . #1#)))))))
      (LETT |pl|
            (SPADCALL (SPADCALL |fcn| (QREFELT $ 90))
                      (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 91))
            . #1#)
      (SPADCALL |oldAdaptive| (QREFELT $ 82))
      (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 $ 90)))
                (SPADCALL |cc| (QREFELT $ 87))))))) 

(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 $ 97))) 

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

(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=#:G1895 |p| #2=#:G1894 |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 $ 99))
                                        (SPADCALL |p| 2 (QREFELT $ 99))
                                        (SPADCALL |p| 3 (QREFELT $ 99)) |func|)
                              (QREFELT $ 100))))
                  (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=#:G1931 |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 $ 102))
            . #2=(|DRAWCFUN;makeObject;PscSLTs;14|))
      (LETT |f| (SPADCALL |psc| 1 (QREFELT $ 104)) . #2#)
      (LETT |g| (SPADCALL |psc| 2 (QREFELT $ 104)) . #2#)
      (LETT |h| (SPADCALL |psc| 3 (QREFELT $ 104)) . #2#)
      (LETT |fcn|
            (LIST
             (CONS #'|DRAWCFUN;makeObject;PscSLTs;14!0|
                   (VECTOR |h| |g| $ |f|)))
            . #2#)
      (LETT |pointsColored?| 'NIL . #2#)
      (SEQ (LETT |c1| (SPADCALL |l| '|colorFunction1| (QREFELT $ 36)) . #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| '|coordinates| (QREFELT $ 36)) . #2#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c| 1))
              (SEQ
               (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 85))) . #2#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;makeObject;PscSLTs;14!2|
                             (VECTOR |cc| $ |fcn|)))
                      . #2#)))))))
      (LETT |pl|
            (SPADCALL (SPADCALL |fcn| (QREFELT $ 90))
                      (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 108))
            . #2#)
      (LETT |s| |sp| . #2#)
      (EXIT
       (COND
        ((SPADCALL |l| '|tubeRadius| (QREFELT $ 109))
         (SEQ (LETT |pts| (SPADCALL |l| 8 (QREFELT $ 110)) . #2#)
              (LETT |rad|
                    (SPADCALL
                     (SPADCALL |l| (SPADCALL 25 -2 10 (QREFELT $ 111))
                               (QREFELT $ 112))
                     (QREFELT $ 54))
                    . #2#)
              (LETT |tub| (SPADCALL |pl| |rad| |pts| (QREFELT $ 115)) . #2#)
              (LETT |loops| (SPADCALL |tub| (QREFELT $ 116)) . #2#)
              (COND
               ((NULL |pointsColored?|)
                (SEQ
                 (LETT |c3| (SPADCALL |l| '|colorFunction3| (QREFELT $ 36))
                       . #2#)
                 (EXIT
                  (COND
                   ((QEQCAR |c3| 1)
                    (|DRAWCFUN;colorPoints| |loops|
                     (CONS (|function| |DRAWCFUN;zCoord|) $) $))
                   (#3='T
                    (|DRAWCFUN;colorPoints| |loops|
                     (SPADCALL (QCDR |c3|) (QREFELT $ 119)) $)))))))
              (SPADCALL |s| |loops| 'NIL 'NIL (QREFELT $ 120)) (EXIT |s|)))
        (#3#
         (SEQ (LETT |br| (SPADCALL |pl| (QREFELT $ 121)) . #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 $ 123))))
                   (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 $ 90)))
                (SPADCALL |cc| (QREFELT $ 87))))))) 

(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 $ 106))) $))))) 

(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=#:G1949 |b| |br| |loops| |tub| |rad| |pts| |s| |pl| |fcn| |cc| |c|
         |pointsColored?| |c1| |sp|)
    (RETURN
     (SEQ
      (LETT |sp| (SPADCALL |l| (QREFELT $ 102))
            . #2=(|DRAWCFUN;makeObject;MSLTs;15|))
      (LETT |fcn| (LIST |psc|) . #2#) (LETT |pointsColored?| 'NIL . #2#)
      (SEQ (LETT |c1| (SPADCALL |l| '|colorFunction1| (QREFELT $ 36)) . #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| '|coordinates| (QREFELT $ 36)) . #2#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c| 1))
              (SEQ
               (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 85))) . #2#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;makeObject;MSLTs;15!1|
                             (VECTOR |cc| $ |fcn|)))
                      . #2#)))))))
      (LETT |pl|
            (SPADCALL (SPADCALL |fcn| (QREFELT $ 90))
                      (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 108))
            . #2#)
      (LETT |s| |sp| . #2#)
      (EXIT
       (COND
        ((SPADCALL |l| '|tubeRadius| (QREFELT $ 109))
         (SEQ (LETT |pts| (SPADCALL |l| 8 (QREFELT $ 110)) . #2#)
              (LETT |rad|
                    (SPADCALL
                     (SPADCALL |l| (SPADCALL 25 -2 10 (QREFELT $ 111))
                               (QREFELT $ 112))
                     (QREFELT $ 54))
                    . #2#)
              (LETT |tub| (SPADCALL |pl| |rad| |pts| (QREFELT $ 115)) . #2#)
              (LETT |loops| (SPADCALL |tub| (QREFELT $ 116)) . #2#)
              (SPADCALL |s| |loops| 'NIL 'NIL (QREFELT $ 120)) (EXIT |s|)))
        ('T
         (SEQ (LETT |br| (SPADCALL |pl| (QREFELT $ 121)) . #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 $ 123))))
                   (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 $ 90)))
                (SPADCALL |cc| (QREFELT $ 87))))))) 

(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 $ 106)))
                (QREFELT $ 125)))))) 

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

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

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

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

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

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

(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
                     ((LESS-DF MOST-POSITIVE-DOUBLE-FLOAT |r|)
                      MOST-POSITIVE-DOUBLE-FLOAT)
                     ((LESS-DF |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| $ 136) (QREFELT $ 99))
                         (SPADCALL |pt| 2 (QREFELT $ 99))
                         (SPADCALL |pt| 3 (QREFELT $ 99)) |colFunc|)
                        (QREFELT $ 100))
              (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 $ 102))
            . #1=(|DRAWCFUN;makeObject;M2SLTs;25|))
      (LETT |col2| (LIST (CONS (|function| |DRAWCFUN;xCoord|) $)) . #1#)
      (LETT |pointsColored?| 'NIL . #1#)
      (SEQ (LETT |c2| (SPADCALL |l| '|colorFunction2| (QREFELT $ 36)) . #1#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c2| 1))
              (SEQ (LETT |pointsColored?| 'T . #1#)
                   (EXIT
                    (LETT |col2| (LIST (SPADCALL (QCDR |c2|) (QREFELT $ 141)))
                          . #1#)))))))
      (LETT |fcn|
            (LIST
             (CONS #'|DRAWCFUN;makeObject;M2SLTs;25!0| (VECTOR |col2| $ |f|)))
            . #1#)
      (SEQ (LETT |c| (SPADCALL |l| '|coordinates| (QREFELT $ 36)) . #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 $ 85))) . #1#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;makeObject;M2SLTs;25!2|
                             (VECTOR |cc| $ |fcn|)))
                      . #1#)))))))
      (COND
       ((NULL |pointsColored?|)
        (SEQ (LETT |c| (SPADCALL |l| '|colorFunction3| (QREFELT $ 36)) . #1#)
             (EXIT
              (LETT |fcn|
                    (COND
                     ((QEQCAR |c| 1)
                      (LIST
                       (SPADCALL (SPADCALL |fcn| (QREFELT $ 145))
                                 (CONS (|function| |DRAWCFUN;zCoord|) $)
                                 (QREFELT $ 138))))
                     (#2#
                      (LIST
                       (SPADCALL (SPADCALL |fcn| (QREFELT $ 145))
                                 (SPADCALL (QCDR |c|) (QREFELT $ 119))
                                 (QREFELT $ 138)))))
                    . #1#)))))
      (LETT |mesh|
            (SPADCALL |sp| (SPADCALL |fcn| (QREFELT $ 145))
                      (|DRAWCFUN;normalize| |xSeg| $)
                      (|DRAWCFUN;normalize| |ySeg| $) |l| (QREFELT $ 147))
            . #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 $ 145)))
                (SPADCALL |cc| (QREFELT $ 87))))))) 

(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 $ 143))) $))))) 

(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 $ 143))) $))))) 

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

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

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

(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 $ 102))
            . #1=(|DRAWCFUN;makeObject;Ps2SLTs;29|))
      (LETT |f| (LIST (SPADCALL |s| (|spadConstant| $ 152) (QREFELT $ 154)))
            . #1#)
      (LETT |g| (LIST (SPADCALL |s| 2 (QREFELT $ 154))) . #1#)
      (LETT |h| (LIST (SPADCALL |s| 3 (QREFELT $ 154))) . #1#)
      (LETT |col2| (LIST (CONS (|function| |DRAWCFUN;xCoord|) $)) . #1#)
      (LETT |pointsColored?| 'NIL . #1#)
      (SEQ (LETT |c2| (SPADCALL |l| '|colorFunction2| (QREFELT $ 36)) . #1#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c2| 1))
              (SEQ (LETT |pointsColored?| 'T . #1#)
                   (EXIT
                    (LETT |col2| (LIST (SPADCALL (QCDR |c2|) (QREFELT $ 141)))
                          . #1#)))))))
      (LETT |fcn|
            (LIST
             (CONS #'|DRAWCFUN;makeObject;Ps2SLTs;29!0|
                   (VECTOR |col2| |h| |g| $ |f|)))
            . #1#)
      (SEQ (LETT |c| (SPADCALL |l| '|coordinates| (QREFELT $ 36)) . #1#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c| 1))
              (SEQ
               (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 85))) . #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| '|colorFunction3| (QREFELT $ 36)) . #1#)
              (EXIT
               (COND
                ((NULL (QEQCAR |c| 1))
                 (LETT |col3| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 119)))
                       . #1#)))))
             (EXIT
              (LETT |fcn|
                    (LIST
                     (SPADCALL (SPADCALL |fcn| (QREFELT $ 145))
                               (SPADCALL |col3| (QREFELT $ 156))
                               (QREFELT $ 138)))
                    . #1#)))))
      (LETT |mesh|
            (SPADCALL |sp| (SPADCALL |fcn| (QREFELT $ 145))
                      (|DRAWCFUN;normalize| |uSeg| $)
                      (|DRAWCFUN;normalize| |vSeg| $) |l| (QREFELT $ 147))
            . #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 $ 145)))
                (SPADCALL |cc| (QREFELT $ 87))))))) 

(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 $ 143)) |x| |y| $)
       (|DRAWCFUN;myTrap2| (SPADCALL |g| (QREFELT $ 143)) |x| |y| $)
       (|DRAWCFUN;myTrap2| (SPADCALL |h| (QREFELT $ 143)) |x| |y| $)
       (|DRAWCFUN;myTrap2| (SPADCALL |col2| (QREFELT $ 143)) |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 $ 102))
            . #1=(|DRAWCFUN;makeObject;M2SLTs;30|))
      (LETT |col2| (LIST (CONS (|function| |DRAWCFUN;xCoord|) $)) . #1#)
      (LETT |pointsColored?| 'NIL . #1#)
      (SEQ (LETT |c2| (SPADCALL |l| '|colorFunction2| (QREFELT $ 36)) . #1#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c2| 1))
              (SEQ (LETT |pointsColored?| 'T . #1#)
                   (EXIT
                    (LETT |col2| (LIST (SPADCALL (QCDR |c2|) (QREFELT $ 141)))
                          . #1#)))))))
      (LETT |fcn|
            (COND
             (|pointsColored?|
              (LIST
               (CONS #'|DRAWCFUN;makeObject;M2SLTs;30!0|
                     (VECTOR $ |col2| |s|))))
             ('T (LIST |s|)))
            . #1#)
      (SEQ (LETT |c| (SPADCALL |l| '|coordinates| (QREFELT $ 36)) . #1#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c| 1))
              (SEQ
               (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 85))) . #1#)
               (EXIT
                (LETT |fcn|
                      (LIST
                       (CONS #'|DRAWCFUN;makeObject;M2SLTs;30!1|
                             (VECTOR |cc| $ |fcn|)))
                      . #1#)))))))
      (LETT |mesh|
            (SPADCALL |sp| (SPADCALL |fcn| (QREFELT $ 145))
                      (|DRAWCFUN;normalize| |uSeg| $)
                      (|DRAWCFUN;normalize| |vSeg| $) |l| (QREFELT $ 147))
            . #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 $ 145)))
                (SPADCALL |cc| (QREFELT $ 87))))))) 

(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 $ 143)))
                (QREFELT $ 125)))))) 

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

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

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

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

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

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

(DEFUN |TopLevelDrawFunctionsForCompiledFunctions| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G2108)
       (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 165) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache|
                  '|TopLevelDrawFunctionsForCompiledFunctions| NIL (CONS 1 $))
      (|stuffDomainSlots| $)
      (SETF |pv$| (QREFELT $ 3))
      (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| 122) (|Plot|) (56 . |listBranches|)
              (61 . |xRange|) (66 . |yRange|) (|Union| 48 '"failed") (|List| $)
              (|Symbol|) (|DrawOption|) (71 . |option|) (|GraphicsDefaults|)
              (77 . |clipPointsDefault|) (|List| 35) (|DrawOptionFunctions0|)
              (81 . |clipBoolean|) (87 . |parametric?|)
              (|Record| (|:| |brans| 27) (|:| |xValues| 10) (|:| |yValues| 10))
              (|TwoDimensionalPlotClipping|) (92 . |clipParametric|)
              (97 . |clip|) (|List| 22) (|Any|) (|AnyFunctions1| 47)
              (102 . |retract|) (|NonNegativeInteger|) (107 . |more?|)
              (113 . |lo|) (118 . |convert|) (123 . |hi|) (128 . |second|)
              (133 . |clipWithRanges|) (142 . |drawToScale|) (146 . |toScale|)
              (152 . |ranges|) (157 . |convert|) (|Palette|)
              (|ViewDefaultsPackage|) (162 . |pointColorDefault|)
              (166 . |pointColorPalette|) (172 . |lineColorDefault|)
              (176 . |curveColorPalette|) (|PositiveInteger|)
              (182 . |pointSizeDefault|) (|TwoDimensionalViewport|)
              (|ViewportPackage|) (186 . |drawCurves|) (|OutputForm|)
              (|String|) (195 . |coerce|) (200 . |segment|) (|List| 9)
              (|Point| 9) (206 . |point|) (211 . |adaptive?|)
              (215 . |adaptive|) (221 . |setAdaptive|) (|Mapping| 78 78)
              (|AnyFunctions1| 83) (226 . |retract|) (|List| 83)
              (231 . |first|) (|Mapping| 78 9) (|List| 88) (236 . |first|)
              (241 . |pointPlot|) (|Mapping| 9 9) |DRAWCFUN;draw;MSLTdv;6|
              |DRAWCFUN;draw;MSTdv;7| (|ParametricPlaneCurve| 92)
              (247 . |coordinate|) |DRAWCFUN;draw;PpcSLTdv;8|
              |DRAWCFUN;draw;PpcSTdv;9| (253 . |elt|) (259 . |setelt|)
              (|ThreeSpace| 9) (266 . |space|) (|ParametricSpaceCurve| 92)
              (271 . |coordinate|) (|AnyFunctions1| 92) (277 . |retract|)
              (|Plot3D|) (282 . |pointPlot|) (288 . |option?|)
              (294 . |tubePoints|) (300 . |float|) (307 . |tubeRadius|)
              (|TubePlot| 107) (|NumericTubePlot| 107) (313 . |tube|)
              (320 . |listLoops|) (|Mapping| 9 9 9 9) (|AnyFunctions1| 117)
              (325 . |retract|) (330 . |mesh|) (338 . |listBranches|)
              (|List| 78) (343 . |curve|) |DRAWCFUN;makeObject;PscSLTs;14|
              (349 . |concat|) |DRAWCFUN;makeObject;MSLTs;15|
              |DRAWCFUN;makeObject;PscSTs;16| |DRAWCFUN;makeObject;MSTs;17|
              (|ThreeDimensionalViewport|) (355 . |makeViewport3D|)
              |DRAWCFUN;draw;PscSLTdv;18| |DRAWCFUN;draw;PscSTdv;19|
              |DRAWCFUN;draw;MSLTdv;20| |DRAWCFUN;draw;MSTdv;21| (361 . |One|)
              (365 . |One|) (|Mapping| 78 9 9) |DRAWCFUN;recolor;MMM;23|
              (|Mapping| 9 9 9) (|AnyFunctions1| 139) (369 . |retract|)
              (|List| 139) (374 . |first|) (|List| 137) (379 . |first|)
              (|MeshCreationRoutinesForThreeDimensions|) (384 . |meshPar2Var|)
              |DRAWCFUN;makeObject;M2SLTs;25| |DRAWCFUN;makeObject;M2STs;26|
              |DRAWCFUN;draw;M2SLTdv;27| |DRAWCFUN;draw;M2STdv;28|
              (393 . |One|) (|ParametricSurface| 139) (397 . |coordinate|)
              (|List| 117) (403 . |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| 408 |makeObject| 414 |draw| 485) 'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 164
                                                 '(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 2 35 32 33 34 36 0
                                                   37 19 38 2 40 19 39 19 41 1
                                                   28 19 0 42 1 44 43 28 45 1
                                                   44 43 28 46 1 49 47 48 50 2
                                                   47 19 0 51 52 1 22 12 0 53 1
                                                   12 9 0 54 1 22 12 0 55 1 47
                                                   22 0 56 5 44 43 27 9 9 9 9
                                                   57 0 37 19 58 2 40 19 39 19
                                                   59 1 35 0 47 60 1 9 12 0 61
                                                   0 63 62 64 2 40 62 39 62 65
                                                   0 63 62 66 2 40 62 39 62 67
                                                   0 63 68 69 5 71 70 27 62 62
                                                   68 39 72 1 74 73 0 75 2 10 0
                                                   9 9 76 1 78 0 77 79 0 28 19
                                                   80 2 40 19 39 19 81 1 28 19
                                                   19 82 1 84 83 48 85 1 86 83
                                                   0 87 1 89 88 0 90 2 28 0 88
                                                   10 91 2 95 92 0 51 96 2 78 9
                                                   0 17 99 3 78 9 0 17 9 100 1
                                                   40 101 39 102 2 103 92 0 51
                                                   104 1 105 92 48 106 2 107 0
                                                   88 10 108 2 35 19 33 34 109
                                                   2 40 68 39 68 110 3 12 0 17
                                                   17 68 111 2 40 12 39 12 112
                                                   3 114 113 107 9 17 115 1 113
                                                   27 0 116 1 118 117 48 119 4
                                                   101 0 0 27 19 19 120 1 107
                                                   27 0 121 2 101 0 0 122 123 2
                                                   78 0 0 9 125 2 129 0 101 39
                                                   130 0 9 0 135 0 68 0 136 1
                                                   140 139 48 141 1 142 139 0
                                                   143 1 144 137 0 145 5 146
                                                   101 101 137 10 10 39 147 0
                                                   51 0 152 2 153 139 0 51 154
                                                   1 155 117 0 156 2 0 137 137
                                                   117 138 3 0 101 103 22 39
                                                   124 2 0 101 103 22 127 2 0
                                                   101 88 22 128 3 0 101 88 22
                                                   39 126 4 0 101 139 22 22 39
                                                   148 3 0 101 139 22 22 149 4
                                                   0 101 137 22 22 39 158 3 0
                                                   101 137 22 22 162 4 0 101
                                                   153 22 22 39 157 3 0 101 153
                                                   22 22 159 3 0 70 92 22 39 93
                                                   3 0 70 95 22 39 97 2 0 70 92
                                                   22 94 2 0 70 95 22 98 2 0
                                                   129 103 22 132 3 0 129 103
                                                   22 39 131 3 0 129 88 22 39
                                                   133 2 0 129 88 22 134 4 0
                                                   129 139 22 22 39 150 3 0 129
                                                   139 22 22 151 3 0 129 137 22
                                                   22 164 4 0 129 137 22 22 39
                                                   163 4 0 129 153 22 22 39 160
                                                   3 0 129 153 22 22 161)))))
           '|lookupComplete|)) 

(MAKEPROP '|TopLevelDrawFunctionsForCompiledFunctions| 'NILADIC T) 
