Develop and Download Open Source Software

名古屋シーナリプロジェクト

Browse Subversion Repository

/[nagcity]/trunk/freesc/chuobrg.scm

Contents of /trunk/freesc/chuobrg.scm

Parent Directory Parent Directory | Revision Log Revision Log

Revision 30 - (show annotations) (download)
Mon Feb 26 13:50:55 2007 UTC (17 years, 1 month ago) by tmurakam
File size: 3454 byte(s) 
file moved
1 ;
2 ; nagoya gulf central big bridge
3 ;
4
5 Area( 5 N35:03:14.1 E136:51:41.0 25 )
6 PerspectiveCall( :L1 )
7 ShadowCall( :Shadow )
8 Jump( : )
9
10 :L1
11 Perspective
12 :Shadow
13 Refpoint( 7 :No_object 1 N35:03:14.1 E136:51:41.0 )
14 RotatedCall( :L2 0 0 355 )
15 :No_object
16 Return
17
18 :L2
19 VectorJump( :fromS m 0 0 32767 0 )
20 VectorJump( :fromNW m 32767 0 0 0 )
21
22 ; from north east
23 TransformCall( :Pole -295 0 0 0 0 0 0 0 0 ) ; SW
24 TransformCall( :Pole 295 0 0 0 0 0 0 0 0 ) ; SE
25 Call( :Road )
26 TransformCall( :Pole -295 0 0 0 0 0 0 180 0 ) ; NW
27 TransformCall( :Pole 295 0 0 0 0 0 0 180 0 ) ; NE
28 Return
29
30 :fromNW
31 ; from north east
32 TransformCall( :Pole 295 0 0 0 0 0 0 0 0 ) ; SE
33 TransformCall( :Pole -295 0 0 0 0 0 0 0 0 ) ; SW
34 Call( :Road )
35 TransformCall( :Pole 295 0 0 0 0 0 0 180 0 ) ; NE
36 TransformCall( :Pole -295 0 0 0 0 0 0 180 0 ) ; NW
37 Return
38
39 ; from south
40 :fromS
41 VectorJump( :fromSW m 32767 0 0 0 )
42
43 ; from north east
44 TransformCall( :Pole -295 0 0 0 0 0 0 180 0 ) ; NW
45 TransformCall( :Pole 295 0 0 0 0 0 0 180 0 ) ; NE
46 Call( :Road )
47 TransformCall( :Pole -295 0 0 0 0 0 0 0 0 ) ; SW
48 TransformCall( :Pole 295 0 0 0 0 0 0 0 0 ) ; SE
49 Return
50
51 :fromSW
52 ; from north east
53 TransformCall( :Pole 295 0 0 0 0 0 0 180 0 ) ; NE
54 TransformCall( :Pole -295 0 0 0 0 0 0 180 0 ) ; NW
55 Call( :Road )
56 TransformCall( :Pole 295 0 0 0 0 0 0 0 0 ) ; SE
57 TransformCall( :Pole -295 0 0 0 0 0 0 0 0 ) ; SW
58 Return
59
60 :Pole
61 VectorJump( :PoleW m 32767 0 0 0 )
62
63 Call( :WestLine )
64 Call( :PoleMain )
65 Call( :EastLine )
66 Return
67
68 :PoleW
69 Call( :EastLine )
70 Call( :PoleMain )
71 Call( :WestLine )
72 Return
73
74 :PoleMain
75 Points( 0
76 3 0 -16 ; 0
77 3 50 -21
78 3 190 -8
79 3 190 0
80 3 185 0
81 3 185 -4
82 3 127 -10
83 3 127 0
84 3 122 0
85 3 122 -10
86 3 50 -16
87 3 0 -11
88
89 -3 0 -16 ; 12
90 -3 50 -21
91 -3 190 -8
92 -3 190 0
93 -3 185 0
94 -3 185 -4
95 -3 127 -10
96 -3 127 0
97 -3 122 0
98 -3 122 -10
99 -3 50 -16
100 -3 0 -11
101
102 )
103
104 SurfaceColor( 04 F0 )
105 Poly( ai 10 11 23 22 )
106 Poly( ai 9 10 22 21 )
107 Poly( a 6 7 19 18 )
108 Poly( ai 5 6 18 17 )
109
110 Poly( a 0 1 13 12 )
111 Poly( a 1 2 14 13 )
112 Poly( a 2 3 15 14 )
113
114 ConcavePoly
115 Poly( a 0 1 2 3 4 5 6 7 8 9 10 11 )
116 ConcavePoly
117 Poly( a 12 13 14 15 16 17 18 19 20 21 22 23 )
118
119 IfVarRange( :no_light 28C 2 4 )
120 IfVarAnd( :no_light 282 3333 )
121 LineColor( 15 F0 )
122 ; RGBLColor( EF 255 255 255 )
123 Dot( 0 194 -8)
124 :no_light
125 Return
126
127 :EastLine
128 Points( 0
129 3 122 -12
130 3 138 -11
131 3 154 -9
132 3 169 -8
133 3 185 -6
134
135 70 50 -15
136 125 50 -15
137 180 50 -15
138 235 50 -15
139 290 50 -15
140 )
141 LineColor( 04 F0 )
142 MoveToPt( 0 )
143 DrawToPt( 5 )
144 MoveToPt( 1 )
145 DrawToPt( 6 )
146 MoveToPt( 2 )
147 DrawToPt( 7 )
148 MoveToPt( 3 )
149 DrawToPt( 8 )
150 MoveToPt( 4 )
151 DrawToPt( 9 )
152 Return
153
154 :WestLine
155 Points( 0
156 -3 122 -12
157 -3 138 -11
158 -3 154 -9
159 -3 169 -8
160 -3 185 -6
161
162 -70 50 -15
163 -125 50 -15
164 -180 50 -15
165 -235 50 -15
166 -290 50 -15
167 )
168 LineColor( 04 F0 )
169 MoveToPt( 0 )
170 DrawToPt( 5 )
171 MoveToPt( 1 )
172 DrawToPt( 6 )
173 MoveToPt( 2 )
174 DrawToPt( 7 )
175 MoveToPt( 3 )
176 DrawToPt( 8 )
177 MoveToPt( 4 )
178 DrawToPt( 9 )
179 Return
180
181 :Road
182 Points( 0
183 600 46 -15 ; 0
184 600 50 -15
185 600 50 15
186 600 46 15
187
188 -600 46 -15 ; 4
189 -600 50 -15
190 -600 50 15
191 -600 46 15
192 )
193 SurfaceColor( 04 F0 )
194 Poly( a 0 1 5 4 )
195 Poly( a 2 3 7 6 )
196 SurfaceColor( 03 F0 )
197 Poly( a 1 2 6 5 )
198 Return
199
200 EndA
201
202

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help