
(SDEFUN |DRAWCFUN;drawToScaleRanges|
        ((|xVals| |Segment| (|DoubleFloat|))
         (|yVals| |Segment| (|DoubleFloat|)) ($ |List| (|Segment| (|Float|))))
        (SPROG
         ((|pad| (|Float|)) (|yDiff| #1=(|Float|)) (|xDiff| #1#)
          (|yLo| #2=(|Float|)) (|yHi| #2#) (|xLo| #2#) (|xHi| #2#))
         (SEQ
          (LETT |xHi|
                (SPADCALL (SPADCALL |xVals| (QREFELT $ 11)) (QREFELT $ 13))
                . #3=(|DRAWCFUN;drawToScaleRanges|))
          (LETT |xLo|
                (SPADCALL (SPADCALL |xVals| (QREFELT $ 14)) (QREFELT $ 13))
                . #3#)
          (LETT |yHi|
                (SPADCALL (SPADCALL |yVals| (QREFELT $ 11)) (QREFELT $ 13))
                . #3#)
          (LETT |yLo|
                (SPADCALL (SPADCALL |yVals| (QREFELT $ 14)) (QREFELT $ 13))
                . #3#)
          (LETT |xDiff| (SPADCALL |xHi| |xLo| (QREFELT $ 15)) . #3#)
          (LETT |yDiff| (SPADCALL |yHi| |yLo| (QREFELT $ 15)) . #3#)
          (LETT |pad|
                (SPADCALL
                 (SPADCALL (SPADCALL |yDiff| |xDiff| (QREFELT $ 15))
                           (QREFELT $ 16))
                 2 (QREFELT $ 18))
                . #3#)
          (EXIT
           (COND
            ((SPADCALL |yDiff| |xDiff| (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))))))))) 

(SDEFUN |DRAWCFUN;make_plot|
        ((|plot| |Plot|) (|l| |List| (|DrawOption|)) ($ |GraphImage|))
        (SPROG
         ((|crCol| (|Palette|)) (|ptCol| (|Palette|))
          (|ll| (|List| #1=(|Segment| (|Float|)))) (|yRangeFloat| #1#)
          (|xRangeFloat| #1#) (|scaledRanges| (|List| (|Segment| (|Float|))))
          (|yRange| (|Segment| (|DoubleFloat|)))
          (|xRange| (|Segment| (|DoubleFloat|)))
          (|branches| (|List| (|List| (|Point| (|DoubleFloat|)))))
          (|clipInfo|
           (|Record| (|:| |brans| (|List| (|List| (|Point| (|DoubleFloat|)))))
                     (|:| |xValues| (|Segment| (|DoubleFloat|)))
                     (|:| |yValues| (|Segment| (|DoubleFloat|)))))
          (|yHi| #2=(|DoubleFloat|)) (|yLo| #2#)
          (|yRangeF| #3=(|Segment| (|Float|))) (|xHi| #2#) (|xLo| #2#)
          (|xRangeF| #3#) (|segList| (|List| (|Segment| (|Float|))))
          (|cl| (|Union| (|Any|) "failed")))
         (SEQ
          (LETT |branches| (SPADCALL |plot| (QREFELT $ 29))
                . #4=(|DRAWCFUN;make_plot|))
          (LETT |xRange| (SPADCALL |plot| (QREFELT $ 30)) . #4#)
          (LETT |yRange| (SPADCALL |plot| (QREFELT $ 31)) . #4#)
          (SEQ (LETT |cl| (SPADCALL |l| '|clipSegment| (QREFELT $ 36)) . #4#)
               (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)))
                            (#5='T (SPADCALL |plot| (QREFELT $ 46))))
                           . #4#)
                     (LETT |branches| (QVELT |clipInfo| 0) . #4#)
                     (LETT |xRange| (QVELT |clipInfo| 1) . #4#)
                     (EXIT (LETT |yRange| (QVELT |clipInfo| 2) . #4#))))
                   (#5# "No explicit user-specified clipping")))
                 (#5#
                  (SEQ
                   (LETT |segList| (SPADCALL (QCDR |cl|) (QREFELT $ 50)) . #4#)
                   (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"))
                     (#5#
                      (SEQ (LETT |xLo| 0.0 . #4#) (LETT |xHi| 0.0 . #4#)
                           (LETT |yLo| 0.0 . #4#) (LETT |yHi| 0.0 . #4#)
                           (COND
                            ((NULL (CDR |segList|))
                             (SEQ
                              (LETT |xLo| (SPADCALL |xRange| (QREFELT $ 14))
                                    . #4#)
                              (LETT |xHi| (SPADCALL |xRange| (QREFELT $ 11))
                                    . #4#)
                              (LETT |yRangeF| (|SPADfirst| |segList|) . #4#)
                              (LETT |yLo|
                                    (SPADCALL
                                     (SPADCALL |yRangeF| (QREFELT $ 53))
                                     (QREFELT $ 54))
                                    . #4#)
                              (EXIT
                               (LETT |yHi|
                                     (SPADCALL
                                      (SPADCALL |yRangeF| (QREFELT $ 55))
                                      (QREFELT $ 54))
                                     . #4#))))
                            (#5#
                             (SEQ
                              (LETT |xRangeF| (|SPADfirst| |segList|) . #4#)
                              (LETT |xLo|
                                    (SPADCALL
                                     (SPADCALL |xRangeF| (QREFELT $ 53))
                                     (QREFELT $ 54))
                                    . #4#)
                              (LETT |xHi|
                                    (SPADCALL
                                     (SPADCALL |xRangeF| (QREFELT $ 55))
                                     (QREFELT $ 54))
                                    . #4#)
                              (LETT |yRangeF|
                                    (SPADCALL |segList| (QREFELT $ 56)) . #4#)
                              (LETT |yLo|
                                    (SPADCALL
                                     (SPADCALL |yRangeF| (QREFELT $ 53))
                                     (QREFELT $ 54))
                                    . #4#)
                              (EXIT
                               (LETT |yHi|
                                     (SPADCALL
                                      (SPADCALL |yRangeF| (QREFELT $ 55))
                                      (QREFELT $ 54))
                                     . #4#)))))
                           (LETT |clipInfo|
                                 (SPADCALL |branches| |xLo| |xHi| |yLo| |yHi|
                                           (QREFELT $ 57))
                                 . #4#)
                           (LETT |branches| (QVELT |clipInfo| 0) . #4#)
                           (LETT |xRange| (QVELT |clipInfo| 1) . #4#)
                           (EXIT
                            (LETT |yRange| (QVELT |clipInfo| 2)
                                  . #4#)))))))))))
          (COND
           ((SPADCALL |l| (SPADCALL (QREFELT $ 58)) (QREFELT $ 59))
            (SEQ
             (LETT |scaledRanges|
                   (|DRAWCFUN;drawToScaleRanges| |xRange| |yRange| $) . #4#)
             (EXIT
              (LETT |l| (CONS (SPADCALL |scaledRanges| (QREFELT $ 60)) |l|)
                    . #4#))))
           (#5#
            (SEQ
             (LETT |xRangeFloat| (SPADCALL (ELT $ 61) |xRange| (QREFELT $ 26))
                   . #4#)
             (LETT |yRangeFloat| (SPADCALL (ELT $ 61) |yRange| (QREFELT $ 26))
                   . #4#)
             (EXIT
              (LETT |l|
                    (CONS
                     (SPADCALL
                      (LETT |ll| (LIST |xRangeFloat| |yRangeFloat|) . #4#)
                      (QREFELT $ 60))
                     |l|)
                    . #4#)))))
          (LETT |ptCol| (SPADCALL |l| (SPADCALL (QREFELT $ 64)) (QREFELT $ 65))
                . #4#)
          (LETT |crCol| (SPADCALL |l| (SPADCALL (QREFELT $ 66)) (QREFELT $ 67))
                . #4#)
          (EXIT
           (SPADCALL |branches| |ptCol| |crCol| (SPADCALL (QREFELT $ 69)) |l|
                     (QREFELT $ 72)))))) 

(SDEFUN |DRAWCFUN;normalize|
        ((|seg| |Segment| (|Float|)) ($ |Segment| (|DoubleFloat|)))
        (SPROG ((|b| #1=(|DoubleFloat|)) (|a| #1#))
               (SEQ
                (LETT |a|
                      (SPADCALL (SPADCALL |seg| (QREFELT $ 53)) (QREFELT $ 54))
                      . #2=(|DRAWCFUN;normalize|))
                (LETT |b|
                      (SPADCALL (SPADCALL |seg| (QREFELT $ 55)) (QREFELT $ 54))
                      . #2#)
                (EXIT
                 (COND ((|eql_DF| |a| |b|) (|error| (QREFELT $ 7)))
                       ((|less_DF| |a| |b|) (SPADCALL |a| |b| (QREFELT $ 73)))
                       ('T (SPADCALL |b| |a| (QREFELT $ 73)))))))) 

(SDEFUN |DRAWCFUN;myTrap1|
        ((|ff| |Mapping| (|DoubleFloat|) (|DoubleFloat|)) (|f| |DoubleFloat|)
         ($ |DoubleFloat|))
        (SPROG ((|r| (|DoubleFloat|)) (|s| (|Union| (|DoubleFloat|) "failed")))
               (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
                               ((SPADCALL |r| MOST-POSITIVE-DOUBLE-FLOAT
                                          (QREFELT $ 74))
                                MOST-POSITIVE-DOUBLE-FLOAT)
                               ((|less_DF| |r| MOST-NEGATIVE-DOUBLE-FLOAT)
                                MOST-NEGATIVE-DOUBLE-FLOAT)
                               (#2# |r|)))))))))) 

(SDEFUN |DRAWCFUN;makePt2|
        ((|x| |DoubleFloat|) (|y| . #1=(|DoubleFloat|))
         ($ |Point| (|DoubleFloat|)))
        (SPROG ((|l| (|List| #1#)))
               (SPADCALL (LETT |l| (LIST |x| |y|) |DRAWCFUN;makePt2|)
                         (QREFELT $ 77)))) 

(SDEFUN |DRAWCFUN;makeObject;MSLGi;6|
        ((|f| |Mapping| (|DoubleFloat|) (|DoubleFloat|))
         (|seg| |Segment| (|Float|)) (|l| |List| (|DrawOption|))
         ($ |GraphImage|))
        (SPROG
         ((|pl| (|Plot|))
          (|ff| (|List| (|Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|))))
          (|cc|
           (|List|
            (|Mapping| (|Point| (|DoubleFloat|)) (|Point| (|DoubleFloat|)))))
          (|c| (|Union| (|Any|) "failed")) (|oldAdaptive| (|Boolean|)))
         (SEQ
          (LETT |oldAdaptive| (SPADCALL (QREFELT $ 78))
                . #1=(|DRAWCFUN;makeObject;MSLGi;6|))
          (SPADCALL (SPADCALL |l| |oldAdaptive| (QREFELT $ 79)) (QREFELT $ 80))
          (LETT |ff|
                (LIST (CONS #'|DRAWCFUN;makeObject;MSLGi;6!0| (VECTOR $ |f|)))
                . #1#)
          (SEQ (LETT |c| (SPADCALL |l| '|coordinates| (QREFELT $ 36)) . #1#)
               (EXIT
                (COND
                 ((QEQCAR |c| 1)
                  (LETT |ff|
                        (LIST
                         (CONS #'|DRAWCFUN;makeObject;MSLGi;6!1|
                               (VECTOR $ |f|)))
                        . #1#))
                 ('T
                  (SEQ
                   (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 83)))
                         . #1#)
                   (EXIT
                    (LETT |ff|
                          (LIST
                           (CONS #'|DRAWCFUN;makeObject;MSLGi;6!2|
                                 (VECTOR |cc| $ |ff|)))
                          . #1#)))))))
          (LETT |pl|
                (SPADCALL (SPADCALL |ff| (QREFELT $ 88))
                          (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 89))
                . #1#)
          (SPADCALL |oldAdaptive| (QREFELT $ 80))
          (EXIT (|DRAWCFUN;make_plot| |pl| |l| $))))) 

(SDEFUN |DRAWCFUN;makeObject;MSLGi;6!2| ((|x| NIL) ($$ NIL))
        (PROG (|ff| $ |cc|)
          (LETT |ff| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;MSLGi;6|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |cc| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |x| (SPADCALL |ff| (QREFELT $ 88)))
                      (SPADCALL |cc| (QREFELT $ 85))))))) 

(SDEFUN |DRAWCFUN;makeObject;MSLGi;6!1| ((|x| NIL) ($$ NIL))
        (PROG (|f| $)
          (LETT |f| (QREFELT $$ 1) . #1=(|DRAWCFUN;makeObject;MSLGi;6|))
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN (|DRAWCFUN;makePt2| |x| (|DRAWCFUN;myTrap1| |f| |x| $) $))))) 

(SDEFUN |DRAWCFUN;makeObject;MSLGi;6!0| ((|x| NIL) ($$ NIL))
        (PROG (|f| $)
          (LETT |f| (QREFELT $$ 1) . #1=(|DRAWCFUN;makeObject;MSLGi;6|))
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN (|DRAWCFUN;makePt2| (|DRAWCFUN;myTrap1| |f| |x| $) |x| $))))) 

(SDEFUN |DRAWCFUN;draw;MSLTdv;7|
        ((|f| |Mapping| (|DoubleFloat|) (|DoubleFloat|))
         (|seg| |Segment| (|Float|)) (|l| |List| (|DrawOption|))
         ($ |TwoDimensionalViewport|))
        (SPROG ((|g| (|GraphImage|)))
               (SEQ
                (LETT |g| (SPADCALL |f| |seg| |l| (QREFELT $ 91))
                      |DRAWCFUN;draw;MSLTdv;7|)
                (EXIT (SPADCALL |g| |l| (QREFELT $ 93)))))) 

(SDEFUN |DRAWCFUN;draw;MSTdv;8|
        ((|f| |Mapping| (|DoubleFloat|) (|DoubleFloat|))
         (|seg| |Segment| (|Float|)) ($ |TwoDimensionalViewport|))
        (SPADCALL |f| |seg| NIL (QREFELT $ 94))) 

(SDEFUN |DRAWCFUN;makeObject;PpcSLGi;9|
        ((|ppc| |ParametricPlaneCurve|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|)))
         (|seg| |Segment| (|Float|)) (|l| |List| (|DrawOption|))
         ($ |GraphImage|))
        (SPROG
         ((|pl| (|Plot|))
          (|fcn|
           (|List| (|Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|))))
          (|cc|
           (|List|
            (|Mapping| (|Point| (|DoubleFloat|)) (|Point| (|DoubleFloat|)))))
          (|c| (|Union| (|Any|) "failed"))
          (|g| #1=(|Mapping| (|DoubleFloat|) (|DoubleFloat|))) (|f| #1#)
          (|oldAdaptive| (|Boolean|)))
         (SEQ
          (LETT |oldAdaptive| (SPADCALL (QREFELT $ 78))
                . #2=(|DRAWCFUN;makeObject;PpcSLGi;9|))
          (SPADCALL (SPADCALL |l| |oldAdaptive| (QREFELT $ 79)) (QREFELT $ 80))
          (LETT |f| (SPADCALL |ppc| 1 (QREFELT $ 97)) . #2#)
          (LETT |g| (SPADCALL |ppc| 2 (QREFELT $ 97)) . #2#)
          (LETT |fcn|
                (LIST
                 (CONS #'|DRAWCFUN;makeObject;PpcSLGi;9!0| (VECTOR |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 $ 83)))
                         . #2#)
                   (EXIT
                    (LETT |fcn|
                          (LIST
                           (CONS #'|DRAWCFUN;makeObject;PpcSLGi;9!1|
                                 (VECTOR |cc| $ |fcn|)))
                          . #2#)))))))
          (LETT |pl|
                (SPADCALL (SPADCALL |fcn| (QREFELT $ 88))
                          (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 89))
                . #2#)
          (SPADCALL |oldAdaptive| (QREFELT $ 80))
          (EXIT (|DRAWCFUN;make_plot| |pl| |l| $))))) 

(SDEFUN |DRAWCFUN;makeObject;PpcSLGi;9!1| ((|x| NIL) ($$ NIL))
        (PROG (|fcn| $ |cc|)
          (LETT |fcn| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;PpcSLGi;9|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |cc| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |x| (SPADCALL |fcn| (QREFELT $ 88)))
                      (SPADCALL |cc| (QREFELT $ 85))))))) 

(SDEFUN |DRAWCFUN;makeObject;PpcSLGi;9!0| ((|x| NIL) ($$ NIL))
        (PROG (|f| $ |g|)
          (LETT |f| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;PpcSLGi;9|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |g| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (|DRAWCFUN;makePt2| (|DRAWCFUN;myTrap1| |f| |x| $)
             (|DRAWCFUN;myTrap1| |g| |x| $) $))))) 

(SDEFUN |DRAWCFUN;draw;PpcSLTdv;10|
        ((|ppc| |ParametricPlaneCurve|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|)))
         (|seg| |Segment| (|Float|)) (|l| |List| (|DrawOption|))
         ($ |TwoDimensionalViewport|))
        (SPROG ((|g| (|GraphImage|)))
               (SEQ
                (LETT |g| (SPADCALL |ppc| |seg| |l| (QREFELT $ 98))
                      |DRAWCFUN;draw;PpcSLTdv;10|)
                (EXIT (SPADCALL |g| |l| (QREFELT $ 93)))))) 

(SDEFUN |DRAWCFUN;draw;PpcSTdv;11|
        ((|ppc| |ParametricPlaneCurve|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|)))
         (|seg| |Segment| (|Float|)) ($ |TwoDimensionalViewport|))
        (SPADCALL |ppc| |seg| NIL (QREFELT $ 99))) 

(SDEFUN |DRAWCFUN;makePt4|
        ((|x| |DoubleFloat|) (|y| |DoubleFloat|) (|z| |DoubleFloat|)
         (|c| . #1=(|DoubleFloat|)) ($ |Point| (|DoubleFloat|)))
        (SPROG ((|l| (|List| #1#)))
               (SPADCALL (LETT |l| (LIST |x| |y| |z| |c|) |DRAWCFUN;makePt4|)
                         (QREFELT $ 77)))) 

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

(SDEFUN |DRAWCFUN;id| ((|x| |DoubleFloat|) ($ |DoubleFloat|)) |x|) 

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

(SDEFUN |DRAWCFUN;zCoord|
        ((|x| |DoubleFloat|) (|y| |DoubleFloat|) (|z| |DoubleFloat|)
         ($ |DoubleFloat|))
        |z|) 

(SDEFUN |DRAWCFUN;colorPoints|
        ((|llp| |List| (|List| (|Point| (|DoubleFloat|))))
         (|func| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)
          (|DoubleFloat|))
         ($ |List| (|List| (|Point| (|DoubleFloat|)))))
        (SPROG ((#1=#:G797 NIL) (|p| NIL) (#2=#:G796 NIL) (|lp| NIL))
               (SEQ
                (SEQ (LETT |lp| NIL . #3=(|DRAWCFUN;colorPoints|))
                     (LETT #2# |llp| . #3#) G190
                     (COND
                      ((OR (ATOM #2#) (PROGN (LETT |lp| (CAR #2#) . #3#) NIL))
                       (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))
                              (GO G191)))
                            (SEQ
                             (EXIT
                              (SPADCALL |p| 4
                                        (SPADCALL
                                         (SPADCALL |p| 1 (QREFELT $ 101))
                                         (SPADCALL |p| 2 (QREFELT $ 101))
                                         (SPADCALL |p| 3 (QREFELT $ 101))
                                         |func|)
                                        (QREFELT $ 102))))
                            (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                            (EXIT NIL))))
                     (LETT #2# (CDR #2#) . #3#) (GO G190) G191 (EXIT NIL))
                (EXIT |llp|)))) 

(SDEFUN |DRAWCFUN;makeObject;PscSLTs;16|
        ((|psc| |ParametricSpaceCurve|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|)))
         (|seg| |Segment| (|Float|)) (|l| |List| (|DrawOption|))
         ($ |ThreeSpace| (|DoubleFloat|)))
        (SPROG
         ((#1=#:G832 NIL) (|b| NIL)
          (|br| (|List| (|List| (|Point| (|DoubleFloat|)))))
          (|c3| #2=(|Union| (|Any|) "failed"))
          (|loops| (|List| (|List| (|Point| (|DoubleFloat|)))))
          (|tub| (|TubePlot| (|Plot3D|))) (|rad| (|DoubleFloat|))
          (|pts| (|PositiveInteger|)) (|s| #3=(|ThreeSpace| (|DoubleFloat|)))
          (|pl| (|Plot3D|))
          (|fcn|
           (|List| (|Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|))))
          (|cc|
           (|List|
            (|Mapping| (|Point| (|DoubleFloat|)) (|Point| (|DoubleFloat|)))))
          (|c| #2#) (|pointsColored?| (|Boolean|)) (|c1| #2#)
          (|h| #4=(|Mapping| (|DoubleFloat|) (|DoubleFloat|))) (|g| #4#)
          (|f| #4#) (|sp| #3#))
         (SEQ
          (LETT |sp| (SPADCALL |l| (QREFELT $ 104))
                . #5=(|DRAWCFUN;makeObject;PscSLTs;16|))
          (LETT |f| (SPADCALL |psc| 1 (QREFELT $ 106)) . #5#)
          (LETT |g| (SPADCALL |psc| 2 (QREFELT $ 106)) . #5#)
          (LETT |h| (SPADCALL |psc| 3 (QREFELT $ 106)) . #5#)
          (LETT |fcn|
                (LIST
                 (CONS #'|DRAWCFUN;makeObject;PscSLTs;16!0|
                       (VECTOR |h| |g| $ |f|)))
                . #5#)
          (LETT |pointsColored?| NIL . #5#)
          (SEQ
           (LETT |c1| (SPADCALL |l| '|colorFunction1| (QREFELT $ 36)) . #5#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c1| 1))
              (SEQ (LETT |pointsColored?| 'T . #5#)
                   (EXIT
                    (LETT |fcn|
                          (LIST
                           (CONS #'|DRAWCFUN;makeObject;PscSLTs;16!1|
                                 (VECTOR |c1| |h| |g| $ |f|)))
                          . #5#)))))))
          (SEQ (LETT |c| (SPADCALL |l| '|coordinates| (QREFELT $ 36)) . #5#)
               (EXIT
                (COND
                 ((NULL (QEQCAR |c| 1))
                  (SEQ
                   (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 83)))
                         . #5#)
                   (EXIT
                    (LETT |fcn|
                          (LIST
                           (CONS #'|DRAWCFUN;makeObject;PscSLTs;16!2|
                                 (VECTOR |cc| $ |fcn|)))
                          . #5#)))))))
          (LETT |pl|
                (SPADCALL (SPADCALL |fcn| (QREFELT $ 88))
                          (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 110))
                . #5#)
          (LETT |s| |sp| . #5#)
          (EXIT
           (COND
            ((SPADCALL |l| '|tubeRadius| (QREFELT $ 111))
             (SEQ (LETT |pts| (SPADCALL |l| 8 (QREFELT $ 112)) . #5#)
                  (LETT |rad|
                        (SPADCALL
                         (SPADCALL |l| (SPADCALL 25 -2 10 (QREFELT $ 113))
                                   (QREFELT $ 114))
                         (QREFELT $ 54))
                        . #5#)
                  (LETT |tub| (SPADCALL |pl| |rad| |pts| (QREFELT $ 117))
                        . #5#)
                  (LETT |loops| (SPADCALL |tub| (QREFELT $ 118)) . #5#)
                  (COND
                   ((NULL |pointsColored?|)
                    (SEQ
                     (LETT |c3| (SPADCALL |l| '|colorFunction3| (QREFELT $ 36))
                           . #5#)
                     (EXIT
                      (COND
                       ((QEQCAR |c3| 1)
                        (|DRAWCFUN;colorPoints| |loops|
                         (CONS (|function| |DRAWCFUN;zCoord|) $) $))
                       (#6='T
                        (|DRAWCFUN;colorPoints| |loops|
                         (SPADCALL (QCDR |c3|) (QREFELT $ 121)) $)))))))
                  (SPADCALL |s| |loops| NIL NIL (QREFELT $ 122)) (EXIT |s|)))
            (#6#
             (SEQ (LETT |br| (SPADCALL |pl| (QREFELT $ 123)) . #5#)
                  (SEQ (LETT |b| NIL . #5#) (LETT #1# |br| . #5#) G190
                       (COND
                        ((OR (ATOM #1#) (PROGN (LETT |b| (CAR #1#) . #5#) NIL))
                         (GO G191)))
                       (SEQ (EXIT (SPADCALL |s| |b| (QREFELT $ 125))))
                       (LETT #1# (CDR #1#) . #5#) (GO G190) G191 (EXIT NIL))
                  (EXIT |s|)))))))) 

(SDEFUN |DRAWCFUN;makeObject;PscSLTs;16!2| ((|x| NIL) ($$ NIL))
        (PROG (|fcn| $ |cc|)
          (LETT |fcn| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;PscSLTs;16|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |cc| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |x| (SPADCALL |fcn| (QREFELT $ 88)))
                      (SPADCALL |cc| (QREFELT $ 85))))))) 

(SDEFUN |DRAWCFUN;makeObject;PscSLTs;16!1| ((|x| NIL) ($$ NIL))
        (PROG (|f| $ |g| |h| |c1|)
          (LETT |f| (QREFELT $$ 4) . #1=(|DRAWCFUN;makeObject;PscSLTs;16|))
          (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 $ 108))) $))))) 

(SDEFUN |DRAWCFUN;makeObject;PscSLTs;16!0| ((|x| NIL) ($$ NIL))
        (PROG (|f| $ |g| |h|)
          (LETT |f| (QREFELT $$ 3) . #1=(|DRAWCFUN;makeObject;PscSLTs;16|))
          (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| $)
             $))))) 

(SDEFUN |DRAWCFUN;makeObject;MSLTs;17|
        ((|psc| |Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|))
         (|seg| |Segment| (|Float|)) (|l| |List| (|DrawOption|))
         ($ |ThreeSpace| (|DoubleFloat|)))
        (SPROG
         ((#1=#:G850 NIL) (|b| NIL)
          (|br| (|List| (|List| (|Point| (|DoubleFloat|)))))
          (|loops| (|List| (|List| (|Point| (|DoubleFloat|)))))
          (|tub| (|TubePlot| (|Plot3D|))) (|rad| (|DoubleFloat|))
          (|pts| (|PositiveInteger|)) (|s| #2=(|ThreeSpace| (|DoubleFloat|)))
          (|pl| (|Plot3D|))
          (|fcn|
           (|List| (|Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|))))
          (|cc|
           (|List|
            (|Mapping| (|Point| (|DoubleFloat|)) (|Point| (|DoubleFloat|)))))
          (|c| #3=(|Union| (|Any|) "failed")) (|pointsColored?| (|Boolean|))
          (|c1| #3#) (|sp| #2#))
         (SEQ
          (LETT |sp| (SPADCALL |l| (QREFELT $ 104))
                . #4=(|DRAWCFUN;makeObject;MSLTs;17|))
          (LETT |fcn| (LIST |psc|) . #4#) (LETT |pointsColored?| NIL . #4#)
          (SEQ
           (LETT |c1| (SPADCALL |l| '|colorFunction1| (QREFELT $ 36)) . #4#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c1| 1))
              (SEQ (LETT |pointsColored?| 'T . #4#)
                   (EXIT
                    (LETT |fcn|
                          (LIST
                           (CONS #'|DRAWCFUN;makeObject;MSLTs;17!0|
                                 (VECTOR $ |c1| |psc|)))
                          . #4#)))))))
          (SEQ (LETT |c| (SPADCALL |l| '|coordinates| (QREFELT $ 36)) . #4#)
               (EXIT
                (COND
                 ((NULL (QEQCAR |c| 1))
                  (SEQ
                   (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 83)))
                         . #4#)
                   (EXIT
                    (LETT |fcn|
                          (LIST
                           (CONS #'|DRAWCFUN;makeObject;MSLTs;17!1|
                                 (VECTOR |cc| $ |fcn|)))
                          . #4#)))))))
          (LETT |pl|
                (SPADCALL (SPADCALL |fcn| (QREFELT $ 88))
                          (|DRAWCFUN;normalize| |seg| $) (QREFELT $ 110))
                . #4#)
          (LETT |s| |sp| . #4#)
          (EXIT
           (COND
            ((SPADCALL |l| '|tubeRadius| (QREFELT $ 111))
             (SEQ (LETT |pts| (SPADCALL |l| 8 (QREFELT $ 112)) . #4#)
                  (LETT |rad|
                        (SPADCALL
                         (SPADCALL |l| (SPADCALL 25 -2 10 (QREFELT $ 113))
                                   (QREFELT $ 114))
                         (QREFELT $ 54))
                        . #4#)
                  (LETT |tub| (SPADCALL |pl| |rad| |pts| (QREFELT $ 117))
                        . #4#)
                  (LETT |loops| (SPADCALL |tub| (QREFELT $ 118)) . #4#)
                  (SPADCALL |s| |loops| NIL NIL (QREFELT $ 122)) (EXIT |s|)))
            ('T
             (SEQ (LETT |br| (SPADCALL |pl| (QREFELT $ 123)) . #4#)
                  (SEQ (LETT |b| NIL . #4#) (LETT #1# |br| . #4#) G190
                       (COND
                        ((OR (ATOM #1#) (PROGN (LETT |b| (CAR #1#) . #4#) NIL))
                         (GO G191)))
                       (SEQ (EXIT (SPADCALL |s| |b| (QREFELT $ 125))))
                       (LETT #1# (CDR #1#) . #4#) (GO G190) G191 (EXIT NIL))
                  (EXIT |s|)))))))) 

(SDEFUN |DRAWCFUN;makeObject;MSLTs;17!1| ((|x| NIL) ($$ NIL))
        (PROG (|fcn| $ |cc|)
          (LETT |fcn| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;MSLTs;17|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |cc| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |x| (SPADCALL |fcn| (QREFELT $ 88)))
                      (SPADCALL |cc| (QREFELT $ 85))))))) 

(SDEFUN |DRAWCFUN;makeObject;MSLTs;17!0| ((|x| NIL) ($$ NIL))
        (PROG (|psc| |c1| $)
          (LETT |psc| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;MSLTs;17|))
          (LETT |c1| (QREFELT $$ 1) . #1#)
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |x| |psc|)
                      (SPADCALL |x| (SPADCALL (QCDR |c1|) (QREFELT $ 108)))
                      (QREFELT $ 127)))))) 

(SDEFUN |DRAWCFUN;makeObject;PscSTs;18|
        ((|psc| |ParametricSpaceCurve|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|)))
         (|seg| |Segment| (|Float|)) ($ |ThreeSpace| (|DoubleFloat|)))
        (SPADCALL |psc| |seg| NIL (QREFELT $ 126))) 

(SDEFUN |DRAWCFUN;makeObject;MSTs;19|
        ((|psc| |Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|))
         (|seg| |Segment| (|Float|)) ($ |ThreeSpace| (|DoubleFloat|)))
        (SPADCALL |psc| |seg| NIL (QREFELT $ 128))) 

(SDEFUN |DRAWCFUN;draw;PscSLTdv;20|
        ((|psc| |ParametricSpaceCurve|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|)))
         (|seg| |Segment| (|Float|)) (|l| |List| (|DrawOption|))
         ($ |ThreeDimensionalViewport|))
        (SPROG ((|sp| (|ThreeSpace| (|DoubleFloat|))))
               (SEQ
                (LETT |sp| (SPADCALL |psc| |seg| |l| (QREFELT $ 126))
                      |DRAWCFUN;draw;PscSLTdv;20|)
                (EXIT (SPADCALL |sp| |l| (QREFELT $ 132)))))) 

(SDEFUN |DRAWCFUN;draw;PscSTdv;21|
        ((|psc| |ParametricSpaceCurve|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|)))
         (|seg| |Segment| (|Float|)) ($ |ThreeDimensionalViewport|))
        (SPADCALL |psc| |seg| NIL (QREFELT $ 133))) 

(SDEFUN |DRAWCFUN;draw;MSLTdv;22|
        ((|psc| |Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|))
         (|seg| |Segment| (|Float|)) (|l| |List| (|DrawOption|))
         ($ |ThreeDimensionalViewport|))
        (SPROG ((|sp| (|ThreeSpace| (|DoubleFloat|))))
               (SEQ
                (LETT |sp| (SPADCALL |psc| |seg| |l| (QREFELT $ 128))
                      |DRAWCFUN;draw;MSLTdv;22|)
                (EXIT (SPADCALL |sp| |l| (QREFELT $ 132)))))) 

(SDEFUN |DRAWCFUN;draw;MSTdv;23|
        ((|psc| |Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|))
         (|seg| |Segment| (|Float|)) ($ |ThreeDimensionalViewport|))
        (SPADCALL |psc| |seg| NIL (QREFELT $ 135))) 

(SDEFUN |DRAWCFUN;myTrap2|
        ((|ff| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
         (|u| |DoubleFloat|) (|v| |DoubleFloat|) ($ |DoubleFloat|))
        (SPROG ((|r| (|DoubleFloat|)) (|s| (|Union| (|DoubleFloat|) "failed")))
               (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
                               ((SPADCALL |r| MOST-POSITIVE-DOUBLE-FLOAT
                                          (QREFELT $ 74))
                                MOST-POSITIVE-DOUBLE-FLOAT)
                               ((|less_DF| |r| MOST-NEGATIVE-DOUBLE-FLOAT)
                                MOST-NEGATIVE-DOUBLE-FLOAT)
                               (#2# |r|)))))))))) 

(SDEFUN |DRAWCFUN;recolor;MMM;25|
        ((|ptFunc| |Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|)
          (|DoubleFloat|))
         (|colFunc| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)
          (|DoubleFloat|))
         ($ |Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|)
          (|DoubleFloat|)))
        (SPROG NIL
               (SEQ
                (CONS #'|DRAWCFUN;recolor;MMM;25!0|
                      (VECTOR |colFunc| $ |ptFunc|))))) 

(SDEFUN |DRAWCFUN;recolor;MMM;25!0| ((|f1| NIL) (|f2| NIL) ($$ NIL))
        (PROG (|ptFunc| $ |colFunc|)
          (LETT |ptFunc| (QREFELT $$ 2) . #1=(|DRAWCFUN;recolor;MMM;25|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |colFunc| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPROG ((|pt| NIL))
                   (SEQ (LETT |pt| (SPADCALL |f1| |f2| |ptFunc|) NIL)
                        (SPADCALL |pt| 4
                                  (SPADCALL
                                   (SPADCALL |pt| (|spadConstant| $ 138)
                                             (QREFELT $ 101))
                                   (SPADCALL |pt| 2 (QREFELT $ 101))
                                   (SPADCALL |pt| 3 (QREFELT $ 101)) |colFunc|)
                                  (QREFELT $ 102))
                        (EXIT |pt|))))))) 

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

(SDEFUN |DRAWCFUN;xCoord|
        ((|x| |DoubleFloat|) (|y| |DoubleFloat|) ($ |DoubleFloat|)) |x|) 

(SDEFUN |DRAWCFUN;makeObject;M2SLTs;27|
        ((|f| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
         (|xSeg| |Segment| (|Float|)) (|ySeg| |Segment| (|Float|))
         (|l| |List| (|DrawOption|)) ($ |ThreeSpace| (|DoubleFloat|)))
        (SPROG
         ((|mesh| (|ThreeSpace| (|DoubleFloat|)))
          (|fcn|
           (|List|
            (|Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|)
                       (|DoubleFloat|))))
          (|c| #1=(|Union| (|Any|) "failed"))
          (|cc|
           (|List|
            (|Mapping| (|Point| (|DoubleFloat|)) (|Point| (|DoubleFloat|)))))
          (|col2|
           (|List|
            (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))))
          (|pointsColored?| (|Boolean|)) (|c2| #1#)
          (|sp| (|ThreeSpace| (|DoubleFloat|))))
         (SEQ
          (LETT |sp| (SPADCALL |l| (QREFELT $ 104))
                . #2=(|DRAWCFUN;makeObject;M2SLTs;27|))
          (LETT |col2| (LIST (CONS (|function| |DRAWCFUN;xCoord|) $)) . #2#)
          (LETT |pointsColored?| NIL . #2#)
          (SEQ
           (LETT |c2| (SPADCALL |l| '|colorFunction2| (QREFELT $ 36)) . #2#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c2| 1))
              (SEQ (LETT |pointsColored?| 'T . #2#)
                   (EXIT
                    (LETT |col2| (LIST (SPADCALL (QCDR |c2|) (QREFELT $ 143)))
                          . #2#)))))))
          (LETT |fcn|
                (LIST
                 (CONS #'|DRAWCFUN;makeObject;M2SLTs;27!0|
                       (VECTOR |col2| $ |f|)))
                . #2#)
          (SEQ (LETT |c| (SPADCALL |l| '|coordinates| (QREFELT $ 36)) . #2#)
               (EXIT
                (COND
                 ((QEQCAR |c| 1)
                  (LETT |fcn|
                        (LIST
                         (CONS #'|DRAWCFUN;makeObject;M2SLTs;27!1|
                               (VECTOR |col2| $ |f|)))
                        . #2#))
                 (#3='T
                  (SEQ
                   (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 83)))
                         . #2#)
                   (EXIT
                    (LETT |fcn|
                          (LIST
                           (CONS #'|DRAWCFUN;makeObject;M2SLTs;27!2|
                                 (VECTOR |cc| $ |fcn|)))
                          . #2#)))))))
          (COND
           ((NULL |pointsColored?|)
            (SEQ
             (LETT |c| (SPADCALL |l| '|colorFunction3| (QREFELT $ 36)) . #2#)
             (EXIT
              (LETT |fcn|
                    (COND
                     ((QEQCAR |c| 1)
                      (LIST
                       (SPADCALL (SPADCALL |fcn| (QREFELT $ 147))
                                 (CONS (|function| |DRAWCFUN;zCoord|) $)
                                 (QREFELT $ 140))))
                     (#3#
                      (LIST
                       (SPADCALL (SPADCALL |fcn| (QREFELT $ 147))
                                 (SPADCALL (QCDR |c|) (QREFELT $ 121))
                                 (QREFELT $ 140)))))
                    . #2#)))))
          (LETT |mesh|
                (SPADCALL |sp| (SPADCALL |fcn| (QREFELT $ 147))
                          (|DRAWCFUN;normalize| |xSeg| $)
                          (|DRAWCFUN;normalize| |ySeg| $) |l| (QREFELT $ 149))
                . #2#)
          (EXIT |mesh|)))) 

(SDEFUN |DRAWCFUN;makeObject;M2SLTs;27!2| ((|x| NIL) (|y| NIL) ($$ NIL))
        (PROG (|fcn| $ |cc|)
          (LETT |fcn| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;M2SLTs;27|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |cc| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |x| |y| (SPADCALL |fcn| (QREFELT $ 147)))
                      (SPADCALL |cc| (QREFELT $ 85))))))) 

(SDEFUN |DRAWCFUN;makeObject;M2SLTs;27!1| ((|x| NIL) (|y| NIL) ($$ NIL))
        (PROG (|f| $ |col2|)
          (LETT |f| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;M2SLTs;27|))
          (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 $ 145))) $))))) 

(SDEFUN |DRAWCFUN;makeObject;M2SLTs;27!0| ((|x| NIL) (|y| NIL) ($$ NIL))
        (PROG (|f| $ |col2|)
          (LETT |f| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;M2SLTs;27|))
          (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 $ 145))) $))))) 

(SDEFUN |DRAWCFUN;makeObject;M2STs;28|
        ((|f| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
         (|xSeg| |Segment| (|Float|)) (|ySeg| |Segment| (|Float|))
         ($ |ThreeSpace| (|DoubleFloat|)))
        (SPADCALL |f| |xSeg| |ySeg| NIL (QREFELT $ 150))) 

(SDEFUN |DRAWCFUN;draw;M2SLTdv;29|
        ((|f| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
         (|xSeg| |Segment| (|Float|)) (|ySeg| |Segment| (|Float|))
         (|l| |List| (|DrawOption|)) ($ |ThreeDimensionalViewport|))
        (SPROG ((|sp| (|ThreeSpace| (|DoubleFloat|))))
               (SEQ
                (LETT |sp| (SPADCALL |f| |xSeg| |ySeg| |l| (QREFELT $ 150))
                      |DRAWCFUN;draw;M2SLTdv;29|)
                (EXIT (SPADCALL |sp| |l| (QREFELT $ 132)))))) 

(SDEFUN |DRAWCFUN;draw;M2STdv;30|
        ((|f| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
         (|xSeg| |Segment| (|Float|)) (|ySeg| |Segment| (|Float|))
         ($ |ThreeDimensionalViewport|))
        (SPADCALL |f| |xSeg| |ySeg| NIL (QREFELT $ 152))) 

(SDEFUN |DRAWCFUN;makeObject;Ps2SLTs;31|
        ((|s| |ParametricSurface|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)))
         (|uSeg| |Segment| (|Float|)) (|vSeg| |Segment| (|Float|))
         (|l| |List| (|DrawOption|)) ($ |ThreeSpace| (|DoubleFloat|)))
        (SPROG
         ((|mesh| (|ThreeSpace| (|DoubleFloat|)))
          (|fcn|
           (|List|
            (|Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|)
                       (|DoubleFloat|))))
          (|col3|
           (|List|
            (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)
                       (|DoubleFloat|))))
          (|c| #1=(|Union| (|Any|) "failed"))
          (|cc|
           (|List|
            (|Mapping| (|Point| (|DoubleFloat|)) (|Point| (|DoubleFloat|)))))
          (|col2|
           (|List|
            (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))))
          (|pointsColored?| (|Boolean|)) (|c2| #1#)
          (|h|
           (|List|
            (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))))
          (|g|
           (|List|
            (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))))
          (|f|
           (|List|
            (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))))
          (|sp| (|ThreeSpace| (|DoubleFloat|))))
         (SEQ
          (LETT |sp| (SPADCALL |l| (QREFELT $ 104))
                . #2=(|DRAWCFUN;makeObject;Ps2SLTs;31|))
          (LETT |f|
                (LIST (SPADCALL |s| (|spadConstant| $ 154) (QREFELT $ 156)))
                . #2#)
          (LETT |g| (LIST (SPADCALL |s| 2 (QREFELT $ 156))) . #2#)
          (LETT |h| (LIST (SPADCALL |s| 3 (QREFELT $ 156))) . #2#)
          (LETT |col2| (LIST (CONS (|function| |DRAWCFUN;xCoord|) $)) . #2#)
          (LETT |pointsColored?| NIL . #2#)
          (SEQ
           (LETT |c2| (SPADCALL |l| '|colorFunction2| (QREFELT $ 36)) . #2#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c2| 1))
              (SEQ (LETT |pointsColored?| 'T . #2#)
                   (EXIT
                    (LETT |col2| (LIST (SPADCALL (QCDR |c2|) (QREFELT $ 143)))
                          . #2#)))))))
          (LETT |fcn|
                (LIST
                 (CONS #'|DRAWCFUN;makeObject;Ps2SLTs;31!0|
                       (VECTOR |col2| |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 $ 83)))
                         . #2#)
                   (EXIT
                    (LETT |fcn|
                          (LIST
                           (CONS #'|DRAWCFUN;makeObject;Ps2SLTs;31!1|
                                 (VECTOR |cc| $ |fcn|)))
                          . #2#)))))))
          (COND
           ((NULL |pointsColored?|)
            (SEQ
             (LETT |col3| (LIST (CONS (|function| |DRAWCFUN;zCoord|) $)) . #2#)
             (SEQ
              (LETT |c| (SPADCALL |l| '|colorFunction3| (QREFELT $ 36)) . #2#)
              (EXIT
               (COND
                ((NULL (QEQCAR |c| 1))
                 (LETT |col3| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 121)))
                       . #2#)))))
             (EXIT
              (LETT |fcn|
                    (LIST
                     (SPADCALL (SPADCALL |fcn| (QREFELT $ 147))
                               (SPADCALL |col3| (QREFELT $ 158))
                               (QREFELT $ 140)))
                    . #2#)))))
          (LETT |mesh|
                (SPADCALL |sp| (SPADCALL |fcn| (QREFELT $ 147))
                          (|DRAWCFUN;normalize| |uSeg| $)
                          (|DRAWCFUN;normalize| |vSeg| $) |l| (QREFELT $ 149))
                . #2#)
          (EXIT |mesh|)))) 

(SDEFUN |DRAWCFUN;makeObject;Ps2SLTs;31!1| ((|x| NIL) (|y| NIL) ($$ NIL))
        (PROG (|fcn| $ |cc|)
          (LETT |fcn| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;Ps2SLTs;31|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |cc| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |x| |y| (SPADCALL |fcn| (QREFELT $ 147)))
                      (SPADCALL |cc| (QREFELT $ 85))))))) 

(SDEFUN |DRAWCFUN;makeObject;Ps2SLTs;31!0| ((|x| NIL) (|y| NIL) ($$ NIL))
        (PROG (|f| $ |g| |h| |col2|)
          (LETT |f| (QREFELT $$ 4) . #1=(|DRAWCFUN;makeObject;Ps2SLTs;31|))
          (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 $ 145)) |x| |y| $)
             (|DRAWCFUN;myTrap2| (SPADCALL |g| (QREFELT $ 145)) |x| |y| $)
             (|DRAWCFUN;myTrap2| (SPADCALL |h| (QREFELT $ 145)) |x| |y| $)
             (|DRAWCFUN;myTrap2| (SPADCALL |col2| (QREFELT $ 145)) |x| |y| $)
             $))))) 

(SDEFUN |DRAWCFUN;makeObject;M2SLTs;32|
        ((|s| |Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|)
          (|DoubleFloat|))
         (|uSeg| |Segment| (|Float|)) (|vSeg| |Segment| (|Float|))
         (|l| |List| (|DrawOption|)) ($ |ThreeSpace| (|DoubleFloat|)))
        (SPROG
         ((|mesh| (|ThreeSpace| (|DoubleFloat|)))
          (|fcn|
           (|List|
            (|Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|)
                       (|DoubleFloat|))))
          (|cc|
           (|List|
            (|Mapping| (|Point| (|DoubleFloat|)) (|Point| (|DoubleFloat|)))))
          (|c| #1=(|Union| (|Any|) "failed"))
          (|col2|
           (|List|
            (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))))
          (|pointsColored?| (|Boolean|)) (|c2| #1#)
          (|sp| (|ThreeSpace| (|DoubleFloat|))))
         (SEQ
          (LETT |sp| (SPADCALL |l| (QREFELT $ 104))
                . #2=(|DRAWCFUN;makeObject;M2SLTs;32|))
          (LETT |col2| (LIST (CONS (|function| |DRAWCFUN;xCoord|) $)) . #2#)
          (LETT |pointsColored?| NIL . #2#)
          (SEQ
           (LETT |c2| (SPADCALL |l| '|colorFunction2| (QREFELT $ 36)) . #2#)
           (EXIT
            (COND
             ((NULL (QEQCAR |c2| 1))
              (SEQ (LETT |pointsColored?| 'T . #2#)
                   (EXIT
                    (LETT |col2| (LIST (SPADCALL (QCDR |c2|) (QREFELT $ 143)))
                          . #2#)))))))
          (LETT |fcn|
                (COND
                 (|pointsColored?|
                  (LIST
                   (CONS #'|DRAWCFUN;makeObject;M2SLTs;32!0|
                         (VECTOR $ |col2| |s|))))
                 ('T (LIST |s|)))
                . #2#)
          (SEQ (LETT |c| (SPADCALL |l| '|coordinates| (QREFELT $ 36)) . #2#)
               (EXIT
                (COND
                 ((NULL (QEQCAR |c| 1))
                  (SEQ
                   (LETT |cc| (LIST (SPADCALL (QCDR |c|) (QREFELT $ 83)))
                         . #2#)
                   (EXIT
                    (LETT |fcn|
                          (LIST
                           (CONS #'|DRAWCFUN;makeObject;M2SLTs;32!1|
                                 (VECTOR |cc| $ |fcn|)))
                          . #2#)))))))
          (LETT |mesh|
                (SPADCALL |sp| (SPADCALL |fcn| (QREFELT $ 147))
                          (|DRAWCFUN;normalize| |uSeg| $)
                          (|DRAWCFUN;normalize| |vSeg| $) |l| (QREFELT $ 149))
                . #2#)
          (EXIT |mesh|)))) 

(SDEFUN |DRAWCFUN;makeObject;M2SLTs;32!1| ((|x| NIL) (|y| NIL) ($$ NIL))
        (PROG (|fcn| $ |cc|)
          (LETT |fcn| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;M2SLTs;32|))
          (LETT $ (QREFELT $$ 1) . #1#)
          (LETT |cc| (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |x| |y| (SPADCALL |fcn| (QREFELT $ 147)))
                      (SPADCALL |cc| (QREFELT $ 85))))))) 

(SDEFUN |DRAWCFUN;makeObject;M2SLTs;32!0| ((|x| NIL) (|y| NIL) ($$ NIL))
        (PROG (|s| |col2| $)
          (LETT |s| (QREFELT $$ 2) . #1=(|DRAWCFUN;makeObject;M2SLTs;32|))
          (LETT |col2| (QREFELT $$ 1) . #1#)
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPADCALL (SPADCALL |x| |y| |s|)
                      (SPADCALL |x| |y| (SPADCALL |col2| (QREFELT $ 145)))
                      (QREFELT $ 127)))))) 

(SDEFUN |DRAWCFUN;makeObject;Ps2STs;33|
        ((|s| |ParametricSurface|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)))
         (|uSeg| |Segment| (|Float|)) (|vSeg| |Segment| (|Float|))
         ($ |ThreeSpace| (|DoubleFloat|)))
        (SPADCALL |s| |uSeg| |vSeg| NIL (QREFELT $ 159))) 

(SDEFUN |DRAWCFUN;draw;Ps2SLTdv;34|
        ((|s| |ParametricSurface|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)))
         (|uSeg| |Segment| (|Float|)) (|vSeg| |Segment| (|Float|))
         (|l| |List| (|DrawOption|)) ($ |ThreeDimensionalViewport|))
        (SPROG ((|mesh| (|ThreeSpace| (|DoubleFloat|))))
               (SEQ
                (LETT |mesh| (SPADCALL |s| |uSeg| |vSeg| |l| (QREFELT $ 159))
                      |DRAWCFUN;draw;Ps2SLTdv;34|)
                (EXIT (SPADCALL |mesh| |l| (QREFELT $ 132)))))) 

(SDEFUN |DRAWCFUN;draw;Ps2STdv;35|
        ((|s| |ParametricSurface|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)))
         (|uSeg| |Segment| (|Float|)) (|vSeg| |Segment| (|Float|))
         ($ |ThreeDimensionalViewport|))
        (SPADCALL |s| |uSeg| |vSeg| NIL (QREFELT $ 162))) 

(SDEFUN |DRAWCFUN;makeObject;M2STs;36|
        ((|s| |Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|)
          (|DoubleFloat|))
         (|uSeg| |Segment| (|Float|)) (|vSeg| |Segment| (|Float|))
         ($ |ThreeSpace| (|DoubleFloat|)))
        (SPADCALL |s| |uSeg| |vSeg| NIL (QREFELT $ 160))) 

(SDEFUN |DRAWCFUN;draw;M2SLTdv;37|
        ((|s| |Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|)
          (|DoubleFloat|))
         (|uSeg| |Segment| (|Float|)) (|vSeg| |Segment| (|Float|))
         (|l| |List| (|DrawOption|)) ($ |ThreeDimensionalViewport|))
        (SPROG ((|mesh| (|ThreeSpace| (|DoubleFloat|))))
               (SEQ
                (LETT |mesh| (SPADCALL |s| |uSeg| |vSeg| |l| (QREFELT $ 160))
                      |DRAWCFUN;draw;M2SLTdv;37|)
                (EXIT (SPADCALL |mesh| |l| (QREFELT $ 132)))))) 

(SDEFUN |DRAWCFUN;draw;M2STdv;38|
        ((|s| |Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|)
          (|DoubleFloat|))
         (|uSeg| |Segment| (|Float|)) (|vSeg| |Segment| (|Float|))
         ($ |ThreeDimensionalViewport|))
        (SPADCALL |s| |uSeg| |vSeg| NIL (QREFELT $ 165))) 

(DECLAIM (NOTINLINE |TopLevelDrawFunctionsForCompiledFunctions;|)) 

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

(DEFUN |TopLevelDrawFunctionsForCompiledFunctions;| ()
  (SPROG ((|dv$| NIL) ($ NIL) (|pv$| NIL))
         (PROGN
          (LETT |dv$| '(|TopLevelDrawFunctionsForCompiledFunctions|)
                . #1=(|TopLevelDrawFunctionsForCompiledFunctions|))
          (LETT $ (GETREFV 167) . #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 . |high|) (|Float|)
              (5 . |convert|) (10 . |low|) (15 . -) (21 . |abs|) (|Integer|)
              (26 . /) (|Boolean|) (32 . >) (38 . +) (|Segment| 12)
              (44 . |segment|) (|Mapping| 12 9) (|SegmentFunctions2| 9 12)
              (50 . |map|) (|List| 124) (|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 . |low|) (118 . |convert|) (123 . |high|) (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|) (|GraphImage|) (|ViewportPackage|)
              (186 . |graphCurves|) (195 . |segment|) (201 . >) (|List| 9)
              (|Point| 9) (207 . |point|) (212 . |adaptive?|)
              (216 . |adaptive|) (222 . |setAdaptive|) (|Mapping| 76 76)
              (|AnyFunctions1| 81) (227 . |retract|) (|List| 81)
              (232 . |first|) (|Mapping| 76 9) (|List| 86) (237 . |first|)
              (242 . |pointPlot|) (|Mapping| 9 9) |DRAWCFUN;makeObject;MSLGi;6|
              (|TwoDimensionalViewport|) (248 . |makeViewport2D|)
              |DRAWCFUN;draw;MSLTdv;7| |DRAWCFUN;draw;MSTdv;8|
              (|ParametricPlaneCurve| 90) (254 . |coordinate|)
              |DRAWCFUN;makeObject;PpcSLGi;9| |DRAWCFUN;draw;PpcSLTdv;10|
              |DRAWCFUN;draw;PpcSTdv;11| (260 . |elt|) (266 . |setelt!|)
              (|ThreeSpace| 9) (273 . |space|) (|ParametricSpaceCurve| 90)
              (278 . |coordinate|) (|AnyFunctions1| 90) (284 . |retract|)
              (|Plot3D|) (289 . |pointPlot|) (295 . |option?|)
              (301 . |tubePoints|) (307 . |float|) (314 . |tubeRadius|)
              (|TubePlot| 109) (|NumericTubePlot| 109) (320 . |tube|)
              (327 . |listLoops|) (|Mapping| 9 9 9 9) (|AnyFunctions1| 119)
              (332 . |retract|) (337 . |mesh|) (345 . |listBranches|)
              (|List| 76) (350 . |curve|) |DRAWCFUN;makeObject;PscSLTs;16|
              (356 . |concat|) |DRAWCFUN;makeObject;MSLTs;17|
              |DRAWCFUN;makeObject;PscSTs;18| |DRAWCFUN;makeObject;MSTs;19|
              (|ThreeDimensionalViewport|) (362 . |makeViewport3D|)
              |DRAWCFUN;draw;PscSLTdv;20| |DRAWCFUN;draw;PscSTdv;21|
              |DRAWCFUN;draw;MSLTdv;22| |DRAWCFUN;draw;MSTdv;23| (368 . |One|)
              (372 . |One|) (|Mapping| 76 9 9) |DRAWCFUN;recolor;MMM;25|
              (|Mapping| 9 9 9) (|AnyFunctions1| 141) (376 . |retract|)
              (|List| 141) (381 . |first|) (|List| 139) (386 . |first|)
              (|MeshCreationRoutinesForThreeDimensions|) (391 . |meshPar2Var|)
              |DRAWCFUN;makeObject;M2SLTs;27| |DRAWCFUN;makeObject;M2STs;28|
              |DRAWCFUN;draw;M2SLTdv;29| |DRAWCFUN;draw;M2STdv;30|
              (400 . |One|) (|ParametricSurface| 141) (404 . |coordinate|)
              (|List| 119) (410 . |first|) |DRAWCFUN;makeObject;Ps2SLTs;31|
              |DRAWCFUN;makeObject;M2SLTs;32| |DRAWCFUN;makeObject;Ps2STs;33|
              |DRAWCFUN;draw;Ps2SLTdv;34| |DRAWCFUN;draw;Ps2STdv;35|
              |DRAWCFUN;makeObject;M2STs;36| |DRAWCFUN;draw;M2SLTdv;37|
              |DRAWCFUN;draw;M2STdv;38|)
           '#(|recolor| 415 |makeObject| 421 |draw| 506) 'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 166
                                                 '(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 2 10 0 9 9 73 2 9
                                                   19 0 0 74 1 76 0 75 77 0 28
                                                   19 78 2 40 19 39 19 79 1 28
                                                   19 19 80 1 82 81 48 83 1 84
                                                   81 0 85 1 87 86 0 88 2 28 0
                                                   86 10 89 2 92 0 70 39 93 2
                                                   96 90 0 51 97 2 76 9 0 17
                                                   101 3 76 9 0 17 9 102 1 40
                                                   103 39 104 2 105 90 0 51 106
                                                   1 107 90 48 108 2 109 0 86
                                                   10 110 2 35 19 33 34 111 2
                                                   40 68 39 68 112 3 12 0 17 17
                                                   68 113 2 40 12 39 12 114 3
                                                   116 115 109 9 17 117 1 115
                                                   27 0 118 1 120 119 48 121 4
                                                   103 0 0 27 19 19 122 1 109
                                                   27 0 123 2 103 0 0 124 125 2
                                                   76 0 0 9 127 2 131 0 103 39
                                                   132 0 9 0 137 0 68 0 138 1
                                                   142 141 48 143 1 144 141 0
                                                   145 1 146 139 0 147 5 148
                                                   103 103 139 10 10 39 149 0
                                                   51 0 154 2 155 141 0 51 156
                                                   1 157 119 0 158 2 0 139 139
                                                   119 140 3 0 70 90 22 39 91 3
                                                   0 70 96 22 39 98 3 0 103 105
                                                   22 39 126 3 0 103 86 22 39
                                                   128 2 0 103 105 22 129 2 0
                                                   103 86 22 130 3 0 103 141 22
                                                   22 151 4 0 103 141 22 22 39
                                                   150 4 0 103 139 22 22 39 160
                                                   3 0 103 139 22 22 164 4 0
                                                   103 155 22 22 39 159 3 0 103
                                                   155 22 22 161 3 0 92 90 22
                                                   39 94 2 0 92 90 22 95 3 0 92
                                                   96 22 39 99 2 0 92 96 22 100
                                                   3 0 131 105 22 39 133 3 0
                                                   131 86 22 39 135 2 0 131 105
                                                   22 134 2 0 131 86 22 136 3 0
                                                   131 141 22 22 153 4 0 131
                                                   141 22 22 39 152 3 0 131 139
                                                   22 22 166 4 0 131 139 22 22
                                                   39 165 4 0 131 155 22 22 39
                                                   162 3 0 131 155 22 22
                                                   163)))))
           '|lookupComplete|)) 

(MAKEPROP '|TopLevelDrawFunctionsForCompiledFunctions| 'NILADIC T) 
