1
2(PUT '|DROPT;length| '|SPADreplace| 'LENGTH)
3
4(SDEFUN |DROPT;length|
5        ((|tup| |List| (|Segment| (|Float|))) ($ |NonNegativeInteger|))
6        (LENGTH |tup|))
7
8(PUT '|DROPT;lengthR| '|SPADreplace| 'LENGTH)
9
10(SDEFUN |DROPT;lengthR|
11        ((|tup| |List| (|Segment| (|Fraction| (|Integer|))))
12         ($ |NonNegativeInteger|))
13        (LENGTH |tup|))
14
15(PUT '|DROPT;lengthI| '|SPADreplace| 'LENGTH)
16
17(SDEFUN |DROPT;lengthI| ((|tup| |List| (|Integer|)) ($ |NonNegativeInteger|))
18        (LENGTH |tup|))
19
20(SDEFUN |DROPT;viewpoint;R$;4|
21        ((|vp| |Record| (|:| |theta| (|DoubleFloat|))
22          (|:| |phi| (|DoubleFloat|)) (|:| |scale| (|DoubleFloat|))
23          (|:| |scaleX| (|DoubleFloat|)) (|:| |scaleY| (|DoubleFloat|))
24          (|:| |scaleZ| (|DoubleFloat|)) (|:| |deltaX| (|DoubleFloat|))
25          (|:| |deltaY| (|DoubleFloat|)))
26         ($ $))
27        (CONS '|viewpoint| (SPADCALL |vp| (QREFELT $ 10))))
28
29(SDEFUN |DROPT;title;S$;5| ((|s| |String|) ($ $))
30        (CONS '|title| (SPADCALL |s| (QREFELT $ 14))))
31
32(SDEFUN |DROPT;style;S$;6| ((|s| |String|) ($ $))
33        (CONS '|style| (SPADCALL |s| (QREFELT $ 14))))
34
35(SDEFUN |DROPT;toScale;B$;7| ((|b| |Boolean|) ($ $))
36        (CONS '|toScale| (SPADCALL |b| (QREFELT $ 19))))
37
38(SDEFUN |DROPT;clip;B$;8| ((|b| |Boolean|) ($ $))
39        (CONS '|clipBoolean| (SPADCALL |b| (QREFELT $ 19))))
40
41(SDEFUN |DROPT;adaptive;B$;9| ((|b| |Boolean|) ($ $))
42        (CONS '|adaptive| (SPADCALL |b| (QREFELT $ 19))))
43
44(SDEFUN |DROPT;pointColor;F$;10| ((|x| |Float|) ($ $))
45        (CONS '|pointColorFloat| (SPADCALL |x| (QREFELT $ 25))))
46
47(SDEFUN |DROPT;pointColor;P$;11| ((|c| |Palette|) ($ $))
48        (CONS '|pointColorPalette| (SPADCALL |c| (QREFELT $ 29))))
49
50(SDEFUN |DROPT;curveColor;F$;12| ((|x| |Float|) ($ $))
51        (CONS '|curveColorFloat| (SPADCALL |x| (QREFELT $ 25))))
52
53(SDEFUN |DROPT;curveColor;P$;13| ((|c| |Palette|) ($ $))
54        (CONS '|curveColorPalette| (SPADCALL |c| (QREFELT $ 29))))
55
56(SDEFUN |DROPT;colorFunction;M$;14|
57        ((|f| |Mapping| (|DoubleFloat|) (|DoubleFloat|)) ($ $))
58        (CONS '|colorFunction1| (SPADCALL |f| (QREFELT $ 35))))
59
60(SDEFUN |DROPT;colorFunction;M$;15|
61        ((|f| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)) ($ $))
62        (CONS '|colorFunction2| (SPADCALL |f| (QREFELT $ 39))))
63
64(SDEFUN |DROPT;colorFunction;M$;16|
65        ((|f| |Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)
66          (|DoubleFloat|))
67         ($ $))
68        (CONS '|colorFunction3| (SPADCALL |f| (QREFELT $ 43))))
69
70(SDEFUN |DROPT;clip;L$;17| ((|tup| |List| (|Segment| (|Float|))) ($ $))
71        (COND
72         ((> (|DROPT;length| |tup| $) 3)
73          (|error| "clip: at most 3 segments may be specified"))
74         ('T (CONS '|clipSegment| (SPADCALL |tup| (QREFELT $ 47))))))
75
76(SDEFUN |DROPT;coordinates;M$;18|
77        ((|f| |Mapping| (|Point| (|DoubleFloat|)) (|Point| (|DoubleFloat|)))
78         ($ $))
79        (CONS '|coordinates| (SPADCALL |f| (QREFELT $ 51))))
80
81(SDEFUN |DROPT;tubeRadius;F$;19| ((|x| |Float|) ($ $))
82        (CONS '|tubeRadius| (SPADCALL |x| (QREFELT $ 25))))
83
84(SDEFUN |DROPT;range;L$;20| ((|tup| |List| (|Segment| (|Float|))) ($ $))
85        (SPROG ((|n| (|NonNegativeInteger|)))
86               (SEQ (LETT |n| (|DROPT;length| |tup| $))
87                    (EXIT
88                     (COND
89                      ((> |n| 3)
90                       (|error| "range: at most 3 segments may be specified"))
91                      ((< |n| 2)
92                       (|error| "range: at least 2 segments may be specified"))
93                      ('T
94                       (CONS '|rangeFloat|
95                             (SPADCALL |tup| (QREFELT $ 47)))))))))
96
97(SDEFUN |DROPT;range;L$;21|
98        ((|tup| |List| (|Segment| (|Fraction| (|Integer|)))) ($ $))
99        (SPROG ((|n| (|NonNegativeInteger|)))
100               (SEQ (LETT |n| (|DROPT;lengthR| |tup| $))
101                    (EXIT
102                     (COND
103                      ((> |n| 3)
104                       (|error| "range: at most 3 segments may be specified"))
105                      ((< |n| 2)
106                       (|error| "range: at least 2 segments may be specified"))
107                      ('T
108                       (CONS '|rangeRat| (SPADCALL |tup| (QREFELT $ 57)))))))))
109
110(SDEFUN |DROPT;ranges;L$;22| ((|s| |List| (|Segment| (|Float|))) ($ $))
111        (CONS '|ranges| (SPADCALL |s| (QREFELT $ 47))))
112
113(SDEFUN |DROPT;space;Ts$;23| ((|s| |ThreeSpace| (|DoubleFloat|)) ($ $))
114        (CONS '|space| (SPADCALL |s| (QREFELT $ 62))))
115
116(SDEFUN |DROPT;var1Steps;Pi$;24| ((|s| |PositiveInteger|) ($ $))
117        (CONS '|var1Steps| (SPADCALL |s| (QREFELT $ 66))))
118
119(SDEFUN |DROPT;var2Steps;Pi$;25| ((|s| |PositiveInteger|) ($ $))
120        (CONS '|var2Steps| (SPADCALL |s| (QREFELT $ 66))))
121
122(SDEFUN |DROPT;tubePoints;Pi$;26| ((|s| |PositiveInteger|) ($ $))
123        (CONS '|tubePoints| (SPADCALL |s| (QREFELT $ 66))))
124
125(SDEFUN |DROPT;coord;M$;27|
126        ((|s| |Mapping| (|Point| (|DoubleFloat|)) (|Point| (|DoubleFloat|)))
127         ($ $))
128        (CONS '|coord| (SPADCALL |s| (QREFELT $ 51))))
129
130(SDEFUN |DROPT;unit;L$;28| ((|s| |List| (|Float|)) ($ $))
131        (CONS '|unit| (SPADCALL |s| (QREFELT $ 73))))
132
133(SDEFUN |DROPT;coerce;$Of;29| ((|x| $) ($ |OutputForm|))
134        (SPADCALL (SPADCALL (QCAR |x|) (QREFELT $ 77))
135                  (SPADCALL (QCDR |x|) (QREFELT $ 78)) (QREFELT $ 79)))
136
137(SDEFUN |DROPT;=;2$B;30| ((|x| $) (|y| $) ($ |Boolean|))
138        (COND
139         ((EQUAL (QCAR |x|) (QCAR |y|))
140          (SPADCALL (QCDR |x|) (QCDR |y|) (QREFELT $ 81)))
141         ('T NIL)))
142
143(SDEFUN |DROPT;option?;LSB;31| ((|l| |List| $) (|s| |Symbol|) ($ |Boolean|))
144        (SPROG ((#1=#:G452 NIL) (#2=#:G453 NIL) (#3=#:G454 NIL) (|x| NIL))
145               (SEQ
146                (EXIT
147                 (SEQ
148                  (SEQ
149                   (EXIT
150                    (SEQ (LETT |x| NIL) (LETT #3# |l|) G190
151                         (COND
152                          ((OR (ATOM #3#) (PROGN (LETT |x| (CAR #3#)) NIL))
153                           (GO G191)))
154                         (SEQ
155                          (EXIT
156                           (COND
157                            ((EQUAL (QCAR |x|) |s|)
158                             (PROGN
159                              (LETT #1# (PROGN (LETT #2# 'T) (GO #4=#:G451)))
160                              (GO #5=#:G449))))))
161                         (LETT #3# (CDR #3#)) (GO G190) G191 (EXIT NIL)))
162                   #5# (EXIT #1#))
163                  (EXIT NIL)))
164                #4# (EXIT #2#))))
165
166(SDEFUN |DROPT;option;LSU;32|
167        ((|l| |List| $) (|s| |Symbol|) ($ |Union| (|Any|) "failed"))
168        (SPROG ((#1=#:G466 NIL) (#2=#:G467 NIL) (#3=#:G468 NIL) (|x| NIL))
169               (SEQ
170                (EXIT
171                 (SEQ
172                  (SEQ
173                   (EXIT
174                    (SEQ (LETT |x| NIL) (LETT #3# |l|) G190
175                         (COND
176                          ((OR (ATOM #3#) (PROGN (LETT |x| (CAR #3#)) NIL))
177                           (GO G191)))
178                         (SEQ
179                          (EXIT
180                           (COND
181                            ((EQUAL (QCAR |x|) |s|)
182                             (PROGN
183                              (LETT #1#
184                                    (PROGN
185                                     (LETT #2# (CONS 0 (QCDR |x|)))
186                                     (GO #4=#:G465)))
187                              (GO #5=#:G460))))))
188                         (LETT #3# (CDR #3#)) (GO G190) G191 (EXIT NIL)))
189                   #5# (EXIT #1#))
190                  (EXIT (CONS 1 "failed"))))
191                #4# (EXIT #2#))))
192
193(DECLAIM (NOTINLINE |DrawOption;|))
194
195(DEFUN |DrawOption| ()
196  (SPROG NIL
197         (PROG (#1=#:G470)
198           (RETURN
199            (COND
200             ((LETT #1# (HGET |$ConstructorCache| '|DrawOption|))
201              (|CDRwithIncrement| (CDAR #1#)))
202             ('T
203              (UNWIND-PROTECT
204                  (PROG1
205                      (CDDAR
206                       (HPUT |$ConstructorCache| '|DrawOption|
207                             (LIST (CONS NIL (CONS 1 (|DrawOption;|))))))
208                    (LETT #1# T))
209                (COND
210                 ((NOT #1#) (HREM |$ConstructorCache| '|DrawOption|))))))))))
211
212(DEFUN |DrawOption;| ()
213  (SPROG ((|dv$| NIL) ($ NIL) (|pv$| NIL))
214         (PROGN
215          (LETT |dv$| '(|DrawOption|))
216          (LETT $ (GETREFV 89))
217          (QSETREFV $ 0 |dv$|)
218          (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL)))
219          (|haddProp| |$ConstructorCache| '|DrawOption| NIL (CONS 1 $))
220          (|stuffDomainSlots| $)
221          (SETF |pv$| (QREFELT $ 3))
222          (QSETREFV $ 6
223                    (|Record| (|:| |keyword| (|Symbol|))
224                              (|:| |value| (|Any|))))
225          $)))
226
227(MAKEPROP '|DrawOption| '|infovec|
228          (LIST
229           '#(NIL NIL NIL NIL NIL NIL '|Rep| (|Any|)
230              (|Record| (|:| |theta| (|DoubleFloat|))
231                        (|:| |phi| (|DoubleFloat|))
232                        (|:| |scale| (|DoubleFloat|))
233                        (|:| |scaleX| (|DoubleFloat|))
234                        (|:| |scaleY| (|DoubleFloat|))
235                        (|:| |scaleZ| (|DoubleFloat|))
236                        (|:| |deltaX| (|DoubleFloat|))
237                        (|:| |deltaY| (|DoubleFloat|)))
238              (|AnyFunctions1| 8) (0 . |coerce|) |DROPT;viewpoint;R$;4|
239              (|String|) (|AnyFunctions1| 12) (5 . |coerce|) |DROPT;title;S$;5|
240              |DROPT;style;S$;6| (|Boolean|) (|AnyFunctions1| 17)
241              (10 . |coerce|) |DROPT;toScale;B$;7| |DROPT;clip;B$;8|
242              |DROPT;adaptive;B$;9| (|Float|) (|AnyFunctions1| 23)
243              (15 . |coerce|) |DROPT;pointColor;F$;10| (|Palette|)
244              (|AnyFunctions1| 27) (20 . |coerce|) |DROPT;pointColor;P$;11|
245              |DROPT;curveColor;F$;12| |DROPT;curveColor;P$;13|
246              (|Mapping| (|DoubleFloat|) (|DoubleFloat|)) (|AnyFunctions1| 33)
247              (25 . |coerce|) |DROPT;colorFunction;M$;14|
248              (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|))
249              (|AnyFunctions1| 37) (30 . |coerce|) |DROPT;colorFunction;M$;15|
250              (|Mapping| (|DoubleFloat|) (|DoubleFloat|) (|DoubleFloat|)
251                         (|DoubleFloat|))
252              (|AnyFunctions1| 41) (35 . |coerce|) |DROPT;colorFunction;M$;16|
253              (|List| (|Segment| 23)) (|AnyFunctions1| 45) (40 . |coerce|)
254              |DROPT;clip;L$;17|
255              (|Mapping| (|Point| (|DoubleFloat|)) (|Point| (|DoubleFloat|)))
256              (|AnyFunctions1| 49) (45 . |coerce|) |DROPT;coordinates;M$;18|
257              |DROPT;tubeRadius;F$;19| |DROPT;range;L$;20|
258              (|List| (|Segment| (|Fraction| (|Integer|))))
259              (|AnyFunctions1| 55) (50 . |coerce|) |DROPT;range;L$;21|
260              |DROPT;ranges;L$;22| (|ThreeSpace| (|DoubleFloat|))
261              (|AnyFunctions1| 60) (55 . |coerce|) |DROPT;space;Ts$;23|
262              (|PositiveInteger|) (|AnyFunctions1| 64) (60 . |coerce|)
263              |DROPT;var1Steps;Pi$;24| |DROPT;var2Steps;Pi$;25|
264              |DROPT;tubePoints;Pi$;26| |DROPT;coord;M$;27| (|List| 23)
265              (|AnyFunctions1| 71) (65 . |coerce|) |DROPT;unit;L$;28|
266              (|OutputForm|) (|Symbol|) (70 . |coerce|) (75 . |coerce|)
267              (80 . =) |DROPT;coerce;$Of;29| (86 . =) |DROPT;=;2$B;30|
268              (|List| $) |DROPT;option?;LSB;31| (|Union| 7 '"failed")
269              |DROPT;option;LSU;32| (|SingleInteger|) (|HashState|))
270           '#(~= 92 |viewpoint| 98 |var2Steps| 103 |var1Steps| 108 |unit| 113
271              |tubeRadius| 118 |tubePoints| 123 |toScale| 128 |title| 133
272              |style| 138 |space| 143 |ranges| 148 |range| 153 |pointColor| 163
273              |option?| 173 |option| 179 |latex| 185 |hashUpdate!| 190 |hash|
274              196 |curveColor| 201 |coordinates| 211 |coord| 216
275              |colorFunction| 221 |coerce| 236 |clip| 241 |adaptive| 251 = 256)
276           'NIL
277           (CONS (|makeByteWordVec2| 1 '(0 0 0))
278                 (CONS '#(|SetCategory&| |BasicType&| NIL)
279                       (CONS
280                        '#((|SetCategory|) (|BasicType|) (|CoercibleTo| 75))
281                        (|makeByteWordVec2| 88
282                                            '(1 9 7 8 10 1 13 7 12 14 1 18 7 17
283                                              19 1 24 7 23 25 1 28 7 27 29 1 34
284                                              7 33 35 1 38 7 37 39 1 42 7 41 43
285                                              1 46 7 45 47 1 50 7 49 51 1 56 7
286                                              55 57 1 61 7 60 62 1 65 7 64 66 1
287                                              72 7 71 73 1 76 75 0 77 1 7 75 0
288                                              78 2 75 0 0 0 79 2 7 17 0 0 81 2
289                                              0 17 0 0 1 1 0 0 8 11 1 0 0 64 68
290                                              1 0 0 64 67 1 0 0 71 74 1 0 0 23
291                                              53 1 0 0 64 69 1 0 0 17 20 1 0 0
292                                              12 15 1 0 0 12 16 1 0 0 60 63 1 0
293                                              0 45 59 1 0 0 55 58 1 0 0 45 54 1
294                                              0 0 27 30 1 0 0 23 26 2 0 17 83
295                                              76 84 2 0 85 83 76 86 1 0 12 0 1
296                                              2 0 88 88 0 1 1 0 87 0 1 1 0 0 27
297                                              32 1 0 0 23 31 1 0 0 49 52 1 0 0
298                                              49 70 1 0 0 37 40 1 0 0 41 44 1 0
299                                              0 33 36 1 0 75 0 80 1 0 0 45 48 1
300                                              0 0 17 21 1 0 0 17 22 2 0 17 0 0
301                                              82)))))
302           '|lookupComplete|))
303
304(MAKEPROP '|DrawOption| 'NILADIC T)
305