Develop and Download Open Source Software

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

Browse Subversion Repository

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

Contents of /trunk/freesc/westbrgs.scm

Parent Directory Parent Directory | Revision Log Revision Log

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

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