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