
(SDEFUN |MESH;makePt|
        ((|x| |DoubleFloat|) (|y| |DoubleFloat|) (|z| |DoubleFloat|)
         (|c| . #1=(|DoubleFloat|)) ($ |Point| (|DoubleFloat|)))
        (SPROG ((|l| (|List| #1#)))
               (SPADCALL (LETT |l| (LIST |x| |y| |z| |c|) |MESH;makePt|)
                         (QREFELT $ 8)))) 

(SDEFUN |MESH;ptFunc;3MMM;2|
        ((|f| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
         (|g| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
         (|h| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
         (|c| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)
          (|DoubleFloat|))
         ($ |Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|)
          (|DoubleFloat|)))
        (SPROG NIL
               (SEQ
                (CONS #'|MESH;ptFunc;3MMM;2!0| (VECTOR $ |c| |h| |g| |f|))))) 

(SDEFUN |MESH;ptFunc;3MMM;2!0| ((|z1| NIL) (|z2| NIL) ($$ NIL))
        (PROG (|f| |g| |h| |c| $)
          (LETT |f| (QREFELT $$ 4) . #1=(|MESH;ptFunc;3MMM;2|))
          (LETT |g| (QREFELT $$ 3) . #1#)
          (LETT |h| (QREFELT $$ 2) . #1#)
          (LETT |c| (QREFELT $$ 1) . #1#)
          (LETT $ (QREFELT $$ 0) . #1#)
          (RETURN
           (PROGN
            (SPROG ((|z| NIL) (|y| NIL) (|x| NIL))
                   (SEQ (LETT |x| (SPADCALL |z1| |z2| |f|) NIL)
                        (LETT |y| (SPADCALL |z1| |z2| |g|) NIL)
                        (LETT |z| (SPADCALL |z1| |z2| |h|) NIL)
                        (EXIT
                         (|MESH;makePt| |x| |y| |z| (SPADCALL |x| |y| |z| |c|)
                          $)))))))) 

(SDEFUN |MESH;meshPar2Var;TsM2SLTs;3|
        ((|sp| . #1=(|ThreeSpace| (|DoubleFloat|)))
         (|ptFun| |Mapping| #2=(|Point| (|DoubleFloat|)) (|DoubleFloat|)
          (|DoubleFloat|))
         (|uSeg| |Segment| (|DoubleFloat|)) (|vSeg| |Segment| (|DoubleFloat|))
         (|opts| |List| (|DrawOption|)) ($ |ThreeSpace| (|DoubleFloat|)))
        (SPROG
         ((|space| #1#) (|aProp| (|SubSpaceComponentProperty|)) (#3=#:G730 NIL)
          (|lProp| (|List| (|SubSpaceComponentProperty|))) (#4=#:G729 NIL)
          (|l| NIL) (#5=#:G728 NIL) (|someV| #6=(|DoubleFloat|))
          (|llp| (|List| (|List| (|Point| (|DoubleFloat|))))) (|someU| #6#)
          (|lp| (|List| (|Point| (|DoubleFloat|)))) (|pt| #2#) (|iu| NIL)
          (|iv| NIL) (|vstep| #7=(|DoubleFloat|)) (|ustep| #7#)
          (|vNum| (|PositiveInteger|)) (|uNum| (|PositiveInteger|)))
         (SEQ (LETT |llp| NIL . #8=(|MESH;meshPar2Var;TsM2SLTs;3|))
              (LETT |uNum|
                    (SPADCALL |opts| (SPADCALL (QREFELT $ 15)) (QREFELT $ 18))
                    . #8#)
              (LETT |vNum|
                    (SPADCALL |opts| (SPADCALL (QREFELT $ 19)) (QREFELT $ 20))
                    . #8#)
              (LETT |ustep|
                    (|div_DF_I|
                     (|sub_DF| (SPADCALL |uSeg| (QREFELT $ 23))
                               (SPADCALL |uSeg| (QREFELT $ 24)))
                     |uNum|)
                    . #8#)
              (LETT |vstep|
                    (|div_DF_I|
                     (|sub_DF| (SPADCALL |vSeg| (QREFELT $ 23))
                               (SPADCALL |vSeg| (QREFELT $ 24)))
                     |vNum|)
                    . #8#)
              (LETT |someV| (SPADCALL |vSeg| (QREFELT $ 24)) . #8#)
              (SEQ (LETT |iv| |vNum| . #8#) G190 (COND ((< |iv| 0) (GO G191)))
                   (SEQ
                    (COND
                     ((ZEROP |iv|)
                      (LETT |someV| (SPADCALL |vSeg| (QREFELT $ 23)) . #8#)))
                    (LETT |lp| NIL . #8#)
                    (LETT |someU| (SPADCALL |uSeg| (QREFELT $ 24)) . #8#)
                    (SEQ (LETT |iu| |uNum| . #8#) G190
                         (COND ((< |iu| 0) (GO G191)))
                         (SEQ
                          (COND
                           ((ZEROP |iu|)
                            (LETT |someU| (SPADCALL |uSeg| (QREFELT $ 23))
                                  . #8#)))
                          (LETT |pt| (SPADCALL |someU| |someV| |ptFun|) . #8#)
                          (LETT |lp| (CONS |pt| |lp|) . #8#)
                          (EXIT
                           (LETT |someU| (|add_DF| |someU| |ustep|) . #8#)))
                         (LETT |iu| (+ |iu| -1) . #8#) (GO G190) G191
                         (EXIT NIL))
                    (LETT |llp| (CONS |lp| |llp|) . #8#)
                    (EXIT (LETT |someV| (|add_DF| |someV| |vstep|) . #8#)))
                   (LETT |iv| (+ |iv| -1) . #8#) (GO G190) G191 (EXIT NIL))
              (LETT |lProp|
                    (PROGN
                     (LETT #5# NIL . #8#)
                     (SEQ (LETT |l| NIL . #8#) (LETT #4# |llp| . #8#) G190
                          (COND
                           ((OR (ATOM #4#)
                                (PROGN (LETT |l| (CAR #4#) . #8#) NIL))
                            (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #5# (CONS (SPADCALL (QREFELT $ 26)) #5#)
                                  . #8#)))
                          (LETT #4# (CDR #4#) . #8#) (GO G190) G191
                          (EXIT (NREVERSE #5#))))
                    . #8#)
              (SEQ (LETT |aProp| NIL . #8#) (LETT #3# |lProp| . #8#) G190
                   (COND
                    ((OR (ATOM #3#) (PROGN (LETT |aProp| (CAR #3#) . #8#) NIL))
                     (GO G191)))
                   (SEQ (SPADCALL |aProp| NIL (QREFELT $ 28))
                        (EXIT (SPADCALL |aProp| NIL (QREFELT $ 29))))
                   (LETT #3# (CDR #3#) . #8#) (GO G190) G191 (EXIT NIL))
              (LETT |aProp| (SPADCALL (QREFELT $ 26)) . #8#)
              (SPADCALL |aProp| NIL (QREFELT $ 28))
              (SPADCALL |aProp| NIL (QREFELT $ 29)) (LETT |space| |sp| . #8#)
              (SPADCALL |space| |llp| |lProp| |aProp| (QREFELT $ 33))
              (EXIT |space|)))) 

(SDEFUN |MESH;meshPar2Var;M2SLTs;4|
        ((|ptFun| |Mapping| (|Point| (|DoubleFloat|)) (|DoubleFloat|)
          (|DoubleFloat|))
         (|uSeg| |Segment| (|DoubleFloat|)) (|vSeg| |Segment| (|DoubleFloat|))
         (|opts| |List| (|DrawOption|)) ($ |ThreeSpace| (|DoubleFloat|)))
        (SPROG ((|sp| (|ThreeSpace| (|DoubleFloat|))))
               (SEQ
                (LETT |sp| (SPADCALL (QREFELT $ 35))
                      |MESH;meshPar2Var;M2SLTs;4|)
                (EXIT
                 (SPADCALL |sp| |ptFun| |uSeg| |vSeg| |opts| (QREFELT $ 34)))))) 

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

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

(SDEFUN |MESH;meshPar2Var;3MU2SLTs;6|
        ((|xFun| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
         (|yFun| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
         (|zFun| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
         (|colorFun| |Union|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)
                     (|DoubleFloat|))
          "undefined")
         (|uSeg| |Segment| (|DoubleFloat|)) (|vSeg| |Segment| (|DoubleFloat|))
         (|opts| |List| (|DrawOption|)) ($ |ThreeSpace| (|DoubleFloat|)))
        (COND
         ((QEQCAR |colorFun| 0)
          (SPADCALL
           (SPADCALL |xFun| |yFun| |zFun| (QCDR |colorFun|) (QREFELT $ 12))
           |uSeg| |vSeg| |opts| (QREFELT $ 36)))
         ('T
          (SPADCALL
           (SPADCALL |xFun| |yFun| |zFun| (CONS (|function| |MESH;zCoord|) $)
                     (QREFELT $ 12))
           |uSeg| |vSeg| |opts| (QREFELT $ 36))))) 

(SDEFUN |MESH;meshFun2Var;MU2SLTs;7|
        ((|zFun| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
         (|colorFun| |Union|
          (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)
                     (|DoubleFloat|))
          "undefined")
         (|xSeg| |Segment| (|DoubleFloat|)) (|ySeg| |Segment| (|DoubleFloat|))
         (|opts| |List| (|DrawOption|)) ($ |ThreeSpace| (|DoubleFloat|)))
        (SPADCALL (LIST #'|MESH;meshFun2Var;MU2SLTs;7!0|)
                  (LIST #'|MESH;meshFun2Var;MU2SLTs;7!1|) |zFun| |colorFun|
                  |xSeg| |ySeg| |opts| (QREFELT $ 38))) 

(SDEFUN |MESH;meshFun2Var;MU2SLTs;7!1| ((|z1| NIL) (|z2| NIL) ($$ NIL)) |z2|) 

(SDEFUN |MESH;meshFun2Var;MU2SLTs;7!0| ((|z1| NIL) (|z2| NIL) ($$ NIL)) |z1|) 

(DECLAIM (NOTINLINE |MeshCreationRoutinesForThreeDimensions;|)) 

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

(DEFUN |MeshCreationRoutinesForThreeDimensions;| ()
  (SPROG ((|dv$| NIL) ($ NIL) (|pv$| NIL))
         (PROGN
          (LETT |dv$| '(|MeshCreationRoutinesForThreeDimensions|)
                . #1=(|MeshCreationRoutinesForThreeDimensions|))
          (LETT $ (GETREFV 42) . #1#)
          (QSETREFV $ 0 |dv$|)
          (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
          (|haddProp| |$ConstructorCache|
                      '|MeshCreationRoutinesForThreeDimensions| NIL (CONS 1 $))
          (|stuffDomainSlots| $)
          (SETF |pv$| (QREFELT $ 3))
          $))) 

(MAKEPROP '|MeshCreationRoutinesForThreeDimensions| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|List| 21) (|Point| 21) (0 . |point|)
              (|Mapping| 7 21 21) (|Mapping| 21 21 21) (|Mapping| 21 21 21 21)
              |MESH;ptFunc;3MMM;2| (|PositiveInteger|) (|ViewDefaultsPackage|)
              (5 . |var1StepsDefault|) (|List| (|DrawOption|))
              (|DrawOptionFunctions0|) (9 . |var1Steps|)
              (15 . |var2StepsDefault|) (19 . |var2Steps|) (|DoubleFloat|)
              (|Segment| 21) (25 . |low|) (30 . |high|)
              (|SubSpaceComponentProperty|) (35 . |new|) (|Boolean|)
              (39 . |close|) (45 . |solid|) (|List| (|List| 7)) (|List| 25)
              (|ThreeSpace| 21) (51 . |mesh|) |MESH;meshPar2Var;TsM2SLTs;3|
              (59 . |create3Space|) |MESH;meshPar2Var;M2SLTs;4|
              (|Union| 11 '"undefined") |MESH;meshPar2Var;3MU2SLTs;6|
              |MESH;meshFun2Var;MU2SLTs;7| (|Expression| (|Integer|))
              (|Mapping| 21 21))
           '#(|ptFunc| 63 |meshPar2Var| 71 |meshPar1Var| 99 |meshFun2Var| 109)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 41
                                                 '(1 7 0 6 8 0 14 13 15 2 17 13
                                                   16 13 18 0 14 13 19 2 17 13
                                                   16 13 20 1 22 21 0 23 1 22
                                                   21 0 24 0 25 0 26 2 25 27 0
                                                   27 28 2 25 27 0 27 29 4 32 0
                                                   0 30 31 25 33 0 32 0 35 4 0
                                                   9 10 10 10 11 12 7 0 32 10
                                                   10 10 37 22 22 16 38 5 0 32
                                                   32 9 22 22 16 34 4 0 32 9 22
                                                   22 16 36 6 0 32 40 40 40 41
                                                   22 16 1 5 0 32 10 37 22 22
                                                   16 39)))))
           '|lookupComplete|)) 

(MAKEPROP '|MeshCreationRoutinesForThreeDimensions| 'NILADIC T) 
