
(SDEFUN |VIEWDEF;viewPosDefault;L;1| (($ |List| (|NonNegativeInteger|)))
        (LIST (SPADCALL (QREFELT $ 27) (QREFELT $ 50))
              (SPADCALL (QREFELT $ 28) (QREFELT $ 50)))) 

(SDEFUN |VIEWDEF;viewPosDefault;2L;2|
        ((|l| |List| (|NonNegativeInteger|)) ($ |List| (|NonNegativeInteger|)))
        (COND
         ((< (SPADCALL |l| (QREFELT $ 53)) 2)
          (|error| "viewPosDefault expects a list with two elements"))
         ('T
          (LIST (SPADCALL (QREFELT $ 27) (|SPADfirst| |l|) (QREFELT $ 54))
                (SPADCALL (QREFELT $ 28) (SPADCALL |l| (QREFELT $ 55))
                          (QREFELT $ 54)))))) 

(SDEFUN |VIEWDEF;viewSizeDefault;L;3| (($ |List| (|PositiveInteger|)))
        (LIST (SPADCALL (QREFELT $ 29) (QREFELT $ 57))
              (SPADCALL (QREFELT $ 30) (QREFELT $ 57)))) 

(SDEFUN |VIEWDEF;viewSizeDefault;2L;4|
        ((|l| |List| (|PositiveInteger|)) ($ |List| (|PositiveInteger|)))
        (COND
         ((< (LENGTH |l|) 2)
          (|error| "viewSizeDefault expects a list with two elements"))
         ('T
          (LIST (SPADCALL (QREFELT $ 29) (|SPADfirst| |l|) (QREFELT $ 60))
                (SPADCALL (QREFELT $ 30) (SPADCALL |l| (QREFELT $ 61))
                          (QREFELT $ 60)))))) 

(SDEFUN |VIEWDEF;viewDefaults;V;5| (($ |Void|))
        (SEQ
         (SETELT $ 12
                 (SPADCALL (SPADCALL (SPADCALL (QREFELT $ 7)) (QREFELT $ 9))
                           (QREFELT $ 11)))
         (SETELT $ 15
                 (SPADCALL (SPADCALL (SPADCALL (QREFELT $ 13)) (QREFELT $ 14))
                           (QREFELT $ 11)))
         (SETELT $ 17
                 (SPADCALL (SPADCALL (SPADCALL (QREFELT $ 7)) (QREFELT $ 16))
                           (QREFELT $ 11)))
         (SETELT $ 19
                 (SPADCALL (SPADCALL (SPADCALL (QREFELT $ 18)) (QREFELT $ 16))
                           (QREFELT $ 11)))
         (SETELT $ 23 (SPADCALL 3 (QREFELT $ 22)))
         (SETELT $ 27 (SPADCALL 0 (QREFELT $ 26)))
         (SETELT $ 28 (SPADCALL 0 (QREFELT $ 26)))
         (SETELT $ 29 (SPADCALL 400 (QREFELT $ 22)))
         (EXIT (SETELT $ 30 (SPADCALL 427 (QREFELT $ 22)))))) 

(SDEFUN |VIEWDEF;pointColorDefault;P;6| (($ |Palette|))
        (SPADCALL (QREFELT $ 12) (QREFELT $ 65))) 

(SDEFUN |VIEWDEF;pointColorDefault;2P;7| ((|p| |Palette|) ($ |Palette|))
        (SPADCALL (QREFELT $ 12) |p| (QREFELT $ 67))) 

(SDEFUN |VIEWDEF;lineColorDefault;P;8| (($ |Palette|))
        (SPADCALL (QREFELT $ 15) (QREFELT $ 65))) 

(SDEFUN |VIEWDEF;lineColorDefault;2P;9| ((|p| |Palette|) ($ |Palette|))
        (SPADCALL (QREFELT $ 15) |p| (QREFELT $ 67))) 

(SDEFUN |VIEWDEF;axesColorDefault;P;10| (($ |Palette|))
        (SPADCALL (QREFELT $ 17) (QREFELT $ 65))) 

(SDEFUN |VIEWDEF;axesColorDefault;2P;11| ((|p| |Palette|) ($ |Palette|))
        (SPADCALL (QREFELT $ 17) |p| (QREFELT $ 67))) 

(SDEFUN |VIEWDEF;unitsColorDefault;P;12| (($ |Palette|))
        (SPADCALL (QREFELT $ 19) (QREFELT $ 65))) 

(SDEFUN |VIEWDEF;unitsColorDefault;2P;13| ((|p| |Palette|) ($ |Palette|))
        (SPADCALL (QREFELT $ 19) |p| (QREFELT $ 67))) 

(SDEFUN |VIEWDEF;pointSizeDefault;Pi;14| (($ |PositiveInteger|))
        (SPADCALL (QREFELT $ 23) (QREFELT $ 57))) 

(SDEFUN |VIEWDEF;pointSizeDefault;2Pi;15|
        ((|x| |PositiveInteger|) ($ |PositiveInteger|))
        (SPADCALL (QREFELT $ 23) |x| (QREFELT $ 60))) 

(SDEFUN |VIEWDEF;var1StepsDefault;Pi;16| (($ |PositiveInteger|))
        (SPADCALL (QREFELT $ 35) (QREFELT $ 57))) 

(SDEFUN |VIEWDEF;var1StepsDefault;2Pi;17|
        ((|i| |PositiveInteger|) ($ |PositiveInteger|))
        (SPADCALL (QREFELT $ 35) |i| (QREFELT $ 60))) 

(SDEFUN |VIEWDEF;var2StepsDefault;Pi;18| (($ |PositiveInteger|))
        (SPADCALL (QREFELT $ 36) (QREFELT $ 57))) 

(SDEFUN |VIEWDEF;var2StepsDefault;2Pi;19|
        ((|i| |PositiveInteger|) ($ |PositiveInteger|))
        (SPADCALL (QREFELT $ 36) |i| (QREFELT $ 60))) 

(SDEFUN |VIEWDEF;tubePointsDefault;Pi;20| (($ |PositiveInteger|))
        (SPADCALL (QREFELT $ 37) (QREFELT $ 57))) 

(SDEFUN |VIEWDEF;tubePointsDefault;2Pi;21|
        ((|i| |PositiveInteger|) ($ |PositiveInteger|))
        (SPADCALL (QREFELT $ 37) |i| (QREFELT $ 60))) 

(SDEFUN |VIEWDEF;tubeRadiusDefault;Df;22| (($ |DoubleFloat|))
        (SPADCALL (QREFELT $ 45) (QREFELT $ 83))) 

(SDEFUN |VIEWDEF;tubeRadiusDefault;FDf;23| ((|f| |Float|) ($ |DoubleFloat|))
        (SPADCALL (QREFELT $ 45) (SPADCALL |f| (QREFELT $ 42)) (QREFELT $ 85))) 

(PUT '|VIEWDEF;viewWriteAvailable;L;24| '|SPADreplace|
     '(XLAM NIL (LIST "PIXMAP" "BITMAP" "POSTSCRIPT" "IMAGE"))) 

(SDEFUN |VIEWDEF;viewWriteAvailable;L;24| (($ |List| (|String|)))
        (LIST "PIXMAP" "BITMAP" "POSTSCRIPT" "IMAGE")) 

(SDEFUN |VIEWDEF;viewWriteDefault;L;25| (($ |List| (|String|)))
        (SPADCALL (QREFELT $ 34) (QREFELT $ 88))) 

(SDEFUN |VIEWDEF;viewWriteDefault;2L;26|
        ((|listOfThings| |List| (|String|)) ($ |List| (|String|)))
        (SPROG
         ((|thingsToWrite| (|List| (|String|))) (|writeTypeInt| (|Integer|))
          (#1=#:G747 NIL) (|aTypeOfFile| NIL))
         (SEQ
          (LETT |thingsToWrite| NIL . #2=(|VIEWDEF;viewWriteDefault;2L;26|))
          (SEQ (LETT |aTypeOfFile| NIL . #2#) (LETT #1# |listOfThings| . #2#)
               G190
               (COND
                ((OR (ATOM #1#)
                     (PROGN (LETT |aTypeOfFile| (CAR #1#) . #2#) NIL))
                 (GO G191)))
               (SEQ
                (LETT |writeTypeInt|
                      (SPADCALL (SPADCALL |aTypeOfFile| (QREFELT $ 91))
                                (SPADCALL (QREFELT $ 87)) (QREFELT $ 92))
                      . #2#)
                (EXIT
                 (COND
                  ((< |writeTypeInt| 0)
                   (|sayBrightly|
                    (LIST "  > "
                          (STRCONC |aTypeOfFile|
                                   " is not a valid file type for writing a viewport"))))
                  ('T
                   (LETT |thingsToWrite|
                         (SPADCALL |thingsToWrite| (LIST |aTypeOfFile|)
                                   (QREFELT $ 93))
                         . #2#)))))
               (LETT #1# (CDR #1#) . #2#) (GO G190) G191 (EXIT NIL))
          (EXIT (SPADCALL (QREFELT $ 34) |thingsToWrite| (QREFELT $ 94)))))) 

(DECLAIM (NOTINLINE |ViewDefaultsPackage;|)) 

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

(DEFUN |ViewDefaultsPackage;| ()
  (SPROG ((|dv$| NIL) ($ NIL) (|pv$| NIL))
         (PROGN
          (LETT |dv$| '(|ViewDefaultsPackage|) . #1=(|ViewDefaultsPackage|))
          (LETT $ (GETREFV 96) . #1#)
          (QSETREFV $ 0 |dv$|)
          (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
          (|haddProp| |$ConstructorCache| '|ViewDefaultsPackage| NIL
                      (CONS 1 $))
          (|stuffDomainSlots| $)
          (SETF |pv$| (QREFELT $ 3))
          (QSETREFV $ 12
                    (SPADCALL (SPADCALL (SPADCALL (QREFELT $ 7)) (QREFELT $ 9))
                              (QREFELT $ 11)))
          (QSETREFV $ 15
                    (SPADCALL
                     (SPADCALL (SPADCALL (QREFELT $ 13)) (QREFELT $ 14))
                     (QREFELT $ 11)))
          (QSETREFV $ 17
                    (SPADCALL
                     (SPADCALL (SPADCALL (QREFELT $ 7)) (QREFELT $ 16))
                     (QREFELT $ 11)))
          (QSETREFV $ 19
                    (SPADCALL
                     (SPADCALL (SPADCALL (QREFELT $ 18)) (QREFELT $ 16))
                     (QREFELT $ 11)))
          (QSETREFV $ 23 (SPADCALL 3 (QREFELT $ 22)))
          (QSETREFV $ 27 (SPADCALL 0 (QREFELT $ 26)))
          (QSETREFV $ 28 (SPADCALL 0 (QREFELT $ 26)))
          (QSETREFV $ 29 (SPADCALL 400 (QREFELT $ 22)))
          (QSETREFV $ 30 (SPADCALL 400 (QREFELT $ 22)))
          (QSETREFV $ 34 (SPADCALL NIL (QREFELT $ 33)))
          (QSETREFV $ 35 (SPADCALL 27 (QREFELT $ 22)))
          (QSETREFV $ 36 (SPADCALL 27 (QREFELT $ 22)))
          (QSETREFV $ 37 (SPADCALL 6 (QREFELT $ 22)))
          (QSETREFV $ 45
                    (SPADCALL
                     (SPADCALL (SPADCALL 5 -1 10 (QREFELT $ 40))
                               (QREFELT $ 42))
                     (QREFELT $ 44)))
          (QSETREFV $ 49 (SPADCALL NIL (QREFELT $ 48)))
          $))) 

(MAKEPROP '|ViewDefaultsPackage| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|Color|) (0 . |red|) (|Palette|)
              (4 . |bright|) (|Reference| 8) (9 . |ref|) '|defaultPointColor|
              (14 . |green|) (18 . |pastel|) '|defaultLineColor| (23 . |dim|)
              '|defaultAxesColor| (28 . |yellow|) '|defaultUnitsColor|
              (|PositiveInteger|) (|Reference| 20) (32 . |ref|)
              '|defaultPointSize| (|NonNegativeInteger|) (|Reference| 24)
              (37 . |ref|) '|defaultXPos| '|defaultYPos| '|defaultWidth|
              '|defaultHeight| (|List| 90) (|Reference| 31) (42 . |ref|)
              '|defaultThingsToWrite| '|defaultVar1Steps| '|defaultVar2Steps|
              '|defaultTubePoints| (|Integer|) (|Float|) (47 . |float|)
              (|DoubleFloat|) (54 . |convert|) (|Reference| 41) (59 . |ref|)
              '|defaultTubeRadius| (|Boolean|) (|Reference| 46) (64 . |ref|)
              '|defaultClosed| (69 . |elt|) (|List| 24)
              |VIEWDEF;viewPosDefault;L;1| (74 . |#|) (79 . |setelt!|)
              (85 . |last|) |VIEWDEF;viewPosDefault;2L;2| (90 . |elt|)
              (|List| 20) |VIEWDEF;viewSizeDefault;L;3| (95 . |setelt!|)
              (101 . |last|) |VIEWDEF;viewSizeDefault;2L;4| (|Void|)
              |VIEWDEF;viewDefaults;V;5| (106 . |elt|)
              |VIEWDEF;pointColorDefault;P;6| (111 . |setelt!|)
              |VIEWDEF;pointColorDefault;2P;7| |VIEWDEF;lineColorDefault;P;8|
              |VIEWDEF;lineColorDefault;2P;9| |VIEWDEF;axesColorDefault;P;10|
              |VIEWDEF;axesColorDefault;2P;11| |VIEWDEF;unitsColorDefault;P;12|
              |VIEWDEF;unitsColorDefault;2P;13|
              |VIEWDEF;pointSizeDefault;Pi;14|
              |VIEWDEF;pointSizeDefault;2Pi;15|
              |VIEWDEF;var1StepsDefault;Pi;16|
              |VIEWDEF;var1StepsDefault;2Pi;17|
              |VIEWDEF;var2StepsDefault;Pi;18|
              |VIEWDEF;var2StepsDefault;2Pi;19|
              |VIEWDEF;tubePointsDefault;Pi;20|
              |VIEWDEF;tubePointsDefault;2Pi;21| (117 . |elt|)
              |VIEWDEF;tubeRadiusDefault;Df;22| (122 . |setelt!|)
              |VIEWDEF;tubeRadiusDefault;FDf;23|
              |VIEWDEF;viewWriteAvailable;L;24| (128 . |elt|)
              |VIEWDEF;viewWriteDefault;L;25| (|String|) (133 . |upperCase|)
              (138 . |position|) (144 . |append|) (150 . |setelt!|)
              |VIEWDEF;viewWriteDefault;2L;26|)
           '#(|viewWriteDefault| 156 |viewWriteAvailable| 165 |viewSizeDefault|
              169 |viewPosDefault| 178 |viewDefaults| 187 |var2StepsDefault|
              191 |var1StepsDefault| 200 |unitsColorDefault| 209
              |tubeRadiusDefault| 218 |tubePointsDefault| 227
              |pointSizeDefault| 236 |pointColorDefault| 245 |lineColorDefault|
              254 |axesColorDefault| 263)
           'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 95
                                                 '(0 6 0 7 1 8 0 6 9 1 10 0 8
                                                   11 0 6 0 13 1 8 0 6 14 1 8 0
                                                   6 16 0 6 0 18 1 21 0 20 22 1
                                                   25 0 24 26 1 32 0 31 33 3 39
                                                   0 38 38 20 40 1 39 41 0 42 1
                                                   43 0 41 44 1 47 0 46 48 1 25
                                                   24 0 50 1 51 24 0 53 2 25 24
                                                   0 24 54 1 51 24 0 55 1 21 20
                                                   0 57 2 21 20 0 20 60 1 58 20
                                                   0 61 1 10 8 0 65 2 10 8 0 8
                                                   67 1 43 41 0 83 2 43 41 0 41
                                                   85 1 32 31 0 88 1 90 0 0 91
                                                   2 31 38 90 0 92 2 31 0 0 0
                                                   93 2 32 31 0 31 94 0 0 31 89
                                                   1 0 31 31 95 0 0 31 87 0 0
                                                   58 59 1 0 58 58 62 0 0 51 52
                                                   1 0 51 51 56 0 0 63 64 0 0
                                                   20 79 1 0 20 20 80 0 0 20 77
                                                   1 0 20 20 78 0 0 8 73 1 0 8
                                                   8 74 0 0 41 84 1 0 41 39 86
                                                   0 0 20 81 1 0 20 20 82 0 0
                                                   20 75 1 0 20 20 76 0 0 8 66
                                                   1 0 8 8 68 0 0 8 69 1 0 8 8
                                                   70 1 0 8 8 72 0 0 8 71)))))
           '|lookupComplete|)) 

(MAKEPROP '|ViewDefaultsPackage| 'NILADIC T) 
