| 1 |
; DOME |
| 2 |
; dome.scm Lat Lon scale color1 Altitude |
| 3 |
; 1 2 3 4 5 |
| 4 |
|
| 5 |
|
| 6 |
; ** Poly number 1 |
| 7 |
|
| 8 |
Area( 5 %1 %2 3 ) |
| 9 |
PerspectiveCall( :PC01 ) |
| 10 |
; ShadowCall( :Shadow ) |
| 11 |
Jump( :END01 ) |
| 12 |
|
| 13 |
:PC01 |
| 14 |
Perspective |
| 15 |
:Shadow |
| 16 |
mif ( %5 ) |
| 17 |
RefPoint( 2 :REF01 %3 %1 %2 E= %5 ) |
| 18 |
melse |
| 19 |
RefPoint( 7 :REF01 %3 %1 %2 ) |
| 20 |
mifend |
| 21 |
RotatedCall( :R0109 0 0 0 ) |
| 22 |
:REF01 |
| 23 |
Return |
| 24 |
:R0109 |
| 25 |
VecPoints( a 0 |
| 26 |
-120 0 0 ; 0 |
| 27 |
-111 0 -46 |
| 28 |
-85 0 -85 |
| 29 |
-46 0 -111 |
| 30 |
|
| 31 |
0 0 -120 |
| 32 |
46 0 -110 |
| 33 |
85 0 -85 |
| 34 |
110 0 -46 |
| 35 |
|
| 36 |
120 0 0 |
| 37 |
110 0 46 |
| 38 |
85 0 85 |
| 39 |
46 0 110 |
| 40 |
|
| 41 |
0 0 120 |
| 42 |
-46 0 110 |
| 43 |
-85 0 85 |
| 44 |
-110 0 46 |
| 45 |
|
| 46 |
-104 60 -1 ; 16 |
| 47 |
-96 60 -40 |
| 48 |
-73 60 -73 |
| 49 |
-40 60 -96 |
| 50 |
|
| 51 |
0 60 -104 |
| 52 |
40 60 -96 |
| 53 |
73 60 -73 |
| 54 |
96 60 -40 |
| 55 |
|
| 56 |
104 60 -1 |
| 57 |
96 60 40 |
| 58 |
73 60 73 |
| 59 |
40 60 96 |
| 60 |
|
| 61 |
0 60 104 |
| 62 |
-40 60 96 |
| 63 |
-73 60 73 |
| 64 |
-96 60 40 |
| 65 |
|
| 66 |
-60 104 -1 ; 32 |
| 67 |
-55 104 -23 |
| 68 |
-42 104 -42 |
| 69 |
-23 104 -55 |
| 70 |
|
| 71 |
0 104 -60 |
| 72 |
23 104 -55 |
| 73 |
42 104 -42 |
| 74 |
55 104 -23 |
| 75 |
|
| 76 |
60 104 -1 |
| 77 |
55 104 23 |
| 78 |
42 104 42 |
| 79 |
23 104 55 |
| 80 |
|
| 81 |
0 104 60 |
| 82 |
-23 104 55 |
| 83 |
-42 104 42 |
| 84 |
-55 104 23 |
| 85 |
|
| 86 |
0 120 0 ; 48 |
| 87 |
|
| 88 |
) |
| 89 |
|
| 90 |
ShadedColor( %4 f0 ) |
| 91 |
ShadedPoly( a 0 1 17 16 ) |
| 92 |
ShadedPoly( a 1 2 18 17 ) |
| 93 |
ShadedPoly( a 2 3 19 18 ) |
| 94 |
ShadedPoly( a 3 4 20 19 ) |
| 95 |
ShadedPoly( a 4 5 21 20 ) |
| 96 |
ShadedPoly( a 5 6 22 21 ) |
| 97 |
ShadedPoly( a 6 7 23 22 ) |
| 98 |
ShadedPoly( a 7 8 24 23 ) |
| 99 |
ShadedPoly( a 8 9 25 24 ) |
| 100 |
ShadedPoly( a 9 10 26 25 ) |
| 101 |
ShadedPoly( a 10 11 27 26 ) |
| 102 |
ShadedPoly( a 11 12 28 27 ) |
| 103 |
ShadedPoly( a 12 13 29 28 ) |
| 104 |
ShadedPoly( a 13 14 30 29 ) |
| 105 |
ShadedPoly( a 14 15 31 30 ) |
| 106 |
ShadedPoly( a 15 0 16 31 ) |
| 107 |
|
| 108 |
ShadedPoly( a 16 17 33 32 ) |
| 109 |
ShadedPoly( a 17 18 34 33 ) |
| 110 |
ShadedPoly( a 18 19 35 34 ) |
| 111 |
ShadedPoly( a 19 20 36 35 ) |
| 112 |
ShadedPoly( a 20 21 37 36 ) |
| 113 |
ShadedPoly( a 21 22 38 37 ) |
| 114 |
ShadedPoly( a 22 23 39 38 ) |
| 115 |
ShadedPoly( a 23 24 40 39 ) |
| 116 |
ShadedPoly( a 24 25 41 40 ) |
| 117 |
ShadedPoly( a 25 26 42 41 ) |
| 118 |
ShadedPoly( a 26 27 43 42 ) |
| 119 |
ShadedPoly( a 27 28 44 43 ) |
| 120 |
ShadedPoly( a 28 29 45 44 ) |
| 121 |
ShadedPoly( a 29 30 46 45 ) |
| 122 |
ShadedPoly( a 30 31 47 46 ) |
| 123 |
ShadedPoly( a 31 16 32 47 ) |
| 124 |
|
| 125 |
ShadedPoly( a 32 33 48 ) |
| 126 |
ShadedPoly( a 33 34 48 ) |
| 127 |
ShadedPoly( a 34 35 48 ) |
| 128 |
ShadedPoly( a 35 36 48 ) |
| 129 |
ShadedPoly( a 36 37 48 ) |
| 130 |
ShadedPoly( a 37 38 48 ) |
| 131 |
ShadedPoly( a 38 39 48 ) |
| 132 |
ShadedPoly( a 39 40 48 ) |
| 133 |
ShadedPoly( a 40 41 48 ) |
| 134 |
ShadedPoly( a 41 42 48 ) |
| 135 |
ShadedPoly( a 42 43 48 ) |
| 136 |
ShadedPoly( a 43 44 48 ) |
| 137 |
ShadedPoly( a 44 45 48 ) |
| 138 |
ShadedPoly( a 45 46 48 ) |
| 139 |
ShadedPoly( a 46 47 48 ) |
| 140 |
ShadedPoly( a 47 32 48 ) |
| 141 |
|
| 142 |
Return |
| 143 |
:END01 |
| 144 |
EndA |
Parent Directory
Revision Log