
(/VERSIONCHECK 2) 

(PUT '|DROPT;length| '|SPADreplace| 'LENGTH) 

(DEFUN |DROPT;length| (|tup| $) (LENGTH |tup|)) 

(PUT '|DROPT;lengthR| '|SPADreplace| 'LENGTH) 

(DEFUN |DROPT;lengthR| (|tup| $) (LENGTH |tup|)) 

(PUT '|DROPT;lengthI| '|SPADreplace| 'LENGTH) 

(DEFUN |DROPT;lengthI| (|tup| $) (LENGTH |tup|)) 

(DEFUN |DROPT;viewpoint;R$;4| (|vp| $)
  (CONS '|viewpoint| (SPADCALL |vp| (QREFELT $ 10)))) 

(DEFUN |DROPT;title;S$;5| (|s| $) (CONS '|title| (SPADCALL |s| (QREFELT $ 14)))) 

(DEFUN |DROPT;style;S$;6| (|s| $) (CONS '|style| (SPADCALL |s| (QREFELT $ 14)))) 

(DEFUN |DROPT;toScale;B$;7| (|b| $)
  (CONS '|toScale| (SPADCALL |b| (QREFELT $ 19)))) 

(DEFUN |DROPT;clip;B$;8| (|b| $)
  (CONS '|clipBoolean| (SPADCALL |b| (QREFELT $ 19)))) 

(DEFUN |DROPT;adaptive;B$;9| (|b| $)
  (CONS '|adaptive| (SPADCALL |b| (QREFELT $ 19)))) 

(DEFUN |DROPT;pointColor;F$;10| (|x| $)
  (CONS '|pointColorFloat| (SPADCALL |x| (QREFELT $ 25)))) 

(DEFUN |DROPT;pointColor;P$;11| (|c| $)
  (CONS '|pointColorPalette| (SPADCALL |c| (QREFELT $ 29)))) 

(DEFUN |DROPT;curveColor;F$;12| (|x| $)
  (CONS '|curveColorFloat| (SPADCALL |x| (QREFELT $ 25)))) 

(DEFUN |DROPT;curveColor;P$;13| (|c| $)
  (CONS '|curveColorPalette| (SPADCALL |c| (QREFELT $ 29)))) 

(DEFUN |DROPT;colorFunction;M$;14| (|f| $)
  (CONS '|colorFunction1| (SPADCALL |f| (QREFELT $ 35)))) 

(DEFUN |DROPT;colorFunction;M$;15| (|f| $)
  (CONS '|colorFunction2| (SPADCALL |f| (QREFELT $ 39)))) 

(DEFUN |DROPT;colorFunction;M$;16| (|f| $)
  (CONS '|colorFunction3| (SPADCALL |f| (QREFELT $ 43)))) 

(DEFUN |DROPT;clip;L$;17| (|tup| $)
  (COND
   ((< 3 (|DROPT;length| |tup| $))
    (|error| "clip: at most 3 segments may be specified"))
   ('T (CONS '|clipSegment| (SPADCALL |tup| (QREFELT $ 47)))))) 

(DEFUN |DROPT;coordinates;M$;18| (|f| $)
  (CONS '|coordinates| (SPADCALL |f| (QREFELT $ 51)))) 

(DEFUN |DROPT;tubeRadius;F$;19| (|x| $)
  (CONS '|tubeRadius| (SPADCALL |x| (QREFELT $ 25)))) 

(DEFUN |DROPT;range;L$;20| (|tup| $)
  (PROG (|n|)
    (RETURN
     (SEQ (LETT |n| (|DROPT;length| |tup| $) |DROPT;range;L$;20|)
          (EXIT
           (COND
            ((< 3 |n|) (|error| "range: at most 3 segments may be specified"))
            ((< |n| 2) (|error| "range: at least 2 segments may be specified"))
            ('T (CONS '|rangeFloat| (SPADCALL |tup| (QREFELT $ 47)))))))))) 

(DEFUN |DROPT;range;L$;21| (|tup| $)
  (PROG (|n|)
    (RETURN
     (SEQ (LETT |n| (|DROPT;lengthR| |tup| $) |DROPT;range;L$;21|)
          (EXIT
           (COND
            ((< 3 |n|) (|error| "range: at most 3 segments may be specified"))
            ((< |n| 2) (|error| "range: at least 2 segments may be specified"))
            ('T (CONS '|rangeRat| (SPADCALL |tup| (QREFELT $ 57)))))))))) 

(DEFUN |DROPT;ranges;L$;22| (|s| $)
  (CONS '|ranges| (SPADCALL |s| (QREFELT $ 47)))) 

(DEFUN |DROPT;space;Ts$;23| (|s| $)
  (CONS '|space| (SPADCALL |s| (QREFELT $ 62)))) 

(DEFUN |DROPT;var1Steps;Pi$;24| (|s| $)
  (CONS '|var1Steps| (SPADCALL |s| (QREFELT $ 66)))) 

(DEFUN |DROPT;var2Steps;Pi$;25| (|s| $)
  (CONS '|var2Steps| (SPADCALL |s| (QREFELT $ 66)))) 

(DEFUN |DROPT;tubePoints;Pi$;26| (|s| $)
  (CONS '|tubePoints| (SPADCALL |s| (QREFELT $ 66)))) 

(DEFUN |DROPT;coord;M$;27| (|s| $)
  (CONS '|coord| (SPADCALL |s| (QREFELT $ 51)))) 

(DEFUN |DROPT;unit;L$;28| (|s| $) (CONS '|unit| (SPADCALL |s| (QREFELT $ 73)))) 

(DEFUN |DROPT;coerce;$Of;29| (|x| $)
  (SPADCALL (SPADCALL (QCAR |x|) (QREFELT $ 77))
            (SPADCALL (QCDR |x|) (QREFELT $ 78)) (QREFELT $ 79))) 

(DEFUN |DROPT;=;2$B;30| (|x| |y| $)
  (COND
   ((EQUAL (QCAR |x|) (QCAR |y|))
    (SPADCALL (QCDR |x|) (QCDR |y|) (QREFELT $ 81)))
   ('T 'NIL))) 

(DEFUN |DROPT;option?;LSB;31| (|l| |s| $)
  (PROG (#1=#:G1868 #2=#:G1870 #3=#:G1871 |x|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (EXIT
          (SEQ (LETT |x| NIL . #4=(|DROPT;option?;LSB;31|))
               (LETT #3# |l| . #4#) G190
               (COND
                ((OR (ATOM #3#) (PROGN (LETT |x| (CAR #3#) . #4#) NIL))
                 (GO G191)))
               (SEQ
                (EXIT
                 (COND
                  ((EQUAL (QCAR |x|) |s|)
                   (PROGN
                    (LETT #1# (PROGN (LETT #2# 'T . #4#) (GO #2#)) . #4#)
                    (GO #1#))))))
               (LETT #3# (CDR #3#) . #4#) (GO G190) G191 (EXIT NIL)))
         #1# (EXIT #1#))
        (EXIT 'NIL)))
      #2# (EXIT #2#))))) 

(DEFUN |DROPT;option;LSU;32| (|l| |s| $)
  (PROG (#1=#:G1877 #2=#:G1882 #3=#:G1883 |x|)
    (RETURN
     (SEQ
      (EXIT
       (SEQ
        (SEQ
         (EXIT
          (SEQ (LETT |x| NIL . #4=(|DROPT;option;LSU;32|)) (LETT #3# |l| . #4#)
               G190
               (COND
                ((OR (ATOM #3#) (PROGN (LETT |x| (CAR #3#) . #4#) NIL))
                 (GO G191)))
               (SEQ
                (EXIT
                 (COND
                  ((EQUAL (QCAR |x|) |s|)
                   (PROGN
                    (LETT #1#
                          (PROGN (LETT #2# (CONS 0 (QCDR |x|)) . #4#) (GO #2#))
                          . #4#)
                    (GO #1#))))))
               (LETT #3# (CDR #3#) . #4#) (GO G190) G191 (EXIT NIL)))
         #1# (EXIT #1#))
        (EXIT (CONS 1 "failed"))))
      #2# (EXIT #2#))))) 

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

(DEFUN |DrawOption;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
     (PROGN
      (LETT |dv$| '(|DrawOption|) . #1=(|DrawOption|))
      (LETT $ (GETREFV 88) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #1#))
      (|haddProp| |$ConstructorCache| '|DrawOption| NIL (CONS 1 $))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6
                (|Record| (|:| |keyword| (|Symbol|)) (|:| |value| (|Any|))))
      $)))) 

(MAKEPROP '|DrawOption| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL '|Rep| (|Any|)
              (|Record| (|:| |theta| (|DoubleFloat|))
                        (|:| |phi| (|DoubleFloat|))
                        (|:| |scale| (|DoubleFloat|))
                        (|:| |scaleX| (|DoubleFloat|))
                        (|:| |scaleY| (|DoubleFloat|))
                        (|:| |scaleZ| (|DoubleFloat|))
                        (|:| |deltaX| (|DoubleFloat|))
                        (|:| |deltaY| (|DoubleFloat|)))
              (|AnyFunctions1| 8) (0 . |coerce|) |DROPT;viewpoint;R$;4|
              (|String|) (|AnyFunctions1| 12) (5 . |coerce|) |DROPT;title;S$;5|
              |DROPT;style;S$;6| (|Boolean|) (|AnyFunctions1| 17)
              (10 . |coerce|) |DROPT;toScale;B$;7| |DROPT;clip;B$;8|
              |DROPT;adaptive;B$;9| (|Float|) (|AnyFunctions1| 23)
              (15 . |coerce|) |DROPT;pointColor;F$;10| (|Palette|)
              (|AnyFunctions1| 27) (20 . |coerce|) |DROPT;pointColor;P$;11|
              |DROPT;curveColor;F$;12| |DROPT;curveColor;P$;13|
              (|Mapping| (|DoubleFloat|) (|DoubleFloat|)) (|AnyFunctions1| 33)
              (25 . |coerce|) |DROPT;colorFunction;M$;14|
              (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
              (|AnyFunctions1| 37) (30 . |coerce|) |DROPT;colorFunction;M$;15|
              (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)
                         (|DoubleFloat|))
              (|AnyFunctions1| 41) (35 . |coerce|) |DROPT;colorFunction;M$;16|
              (|List| (|Segment| 23)) (|AnyFunctions1| 45) (40 . |coerce|)
              |DROPT;clip;L$;17|
              (|Mapping| (|Point| (|DoubleFloat|)) (|Point| (|DoubleFloat|)))
              (|AnyFunctions1| 49) (45 . |coerce|) |DROPT;coordinates;M$;18|
              |DROPT;tubeRadius;F$;19| |DROPT;range;L$;20|
              (|List| (|Segment| (|Fraction| (|Integer|))))
              (|AnyFunctions1| 55) (50 . |coerce|) |DROPT;range;L$;21|
              |DROPT;ranges;L$;22| (|ThreeSpace| (|DoubleFloat|))
              (|AnyFunctions1| 60) (55 . |coerce|) |DROPT;space;Ts$;23|
              (|PositiveInteger|) (|AnyFunctions1| 64) (60 . |coerce|)
              |DROPT;var1Steps;Pi$;24| |DROPT;var2Steps;Pi$;25|
              |DROPT;tubePoints;Pi$;26| |DROPT;coord;M$;27| (|List| 23)
              (|AnyFunctions1| 71) (65 . |coerce|) |DROPT;unit;L$;28|
              (|OutputForm|) (|Symbol|) (70 . |coerce|) (75 . |coerce|)
              (80 . =) |DROPT;coerce;$Of;29| (86 . =) |DROPT;=;2$B;30|
              (|List| $) |DROPT;option?;LSB;31| (|Union| 7 '"failed")
              |DROPT;option;LSU;32| (|SingleInteger|))
           '#(~= 92 |viewpoint| 98 |var2Steps| 103 |var1Steps| 108 |unit| 113
              |tubeRadius| 118 |tubePoints| 123 |toScale| 128 |title| 133
              |style| 138 |space| 143 |ranges| 148 |range| 153 |pointColor| 163
              |option?| 173 |option| 179 |latex| 185 |hash| 190 |curveColor|
              195 |coordinates| 205 |coord| 210 |colorFunction| 215 |coerce|
              230 |clip| 235 |adaptive| 245 = 250)
           'NIL
           (CONS (|makeByteWordVec2| 1 '(0 0 0))
                 (CONS '#(|SetCategory&| |BasicType&| NIL)
                       (CONS
                        '#((|SetCategory|) (|BasicType|) (|CoercibleTo| 75))
                        (|makeByteWordVec2| 87
                                            '(1 9 7 8 10 1 13 7 12 14 1 18 7 17
                                              19 1 24 7 23 25 1 28 7 27 29 1 34
                                              7 33 35 1 38 7 37 39 1 42 7 41 43
                                              1 46 7 45 47 1 50 7 49 51 1 56 7
                                              55 57 1 61 7 60 62 1 65 7 64 66 1
                                              72 7 71 73 1 76 75 0 77 1 7 75 0
                                              78 2 75 0 0 0 79 2 7 17 0 0 81 2
                                              0 17 0 0 1 1 0 0 8 11 1 0 0 64 68
                                              1 0 0 64 67 1 0 0 71 74 1 0 0 23
                                              53 1 0 0 64 69 1 0 0 17 20 1 0 0
                                              12 15 1 0 0 12 16 1 0 0 60 63 1 0
                                              0 45 59 1 0 0 55 58 1 0 0 45 54 1
                                              0 0 27 30 1 0 0 23 26 2 0 17 83
                                              76 84 2 0 85 83 76 86 1 0 12 0 1
                                              1 0 87 0 1 1 0 0 27 32 1 0 0 23
                                              31 1 0 0 49 52 1 0 0 49 70 1 0 0
                                              37 40 1 0 0 41 44 1 0 0 33 36 1 0
                                              75 0 80 1 0 0 45 48 1 0 0 17 21 1
                                              0 0 17 22 2 0 17 0 0 82)))))
           '|lookupComplete|)) 

(MAKEPROP '|DrawOption| 'NILADIC T) 
