Develop and Download Open Source Software

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

Browse Subversion Repository

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

Contents of /trunk/freesc/roads.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: 4993 byte(s) 
file moved
1 ;;;
2 ;;; “¹˜H (Roads)
3 ;;;
4 ;;; %1:type, %2:width, lat/lon...
5 ;;;
6 defun Road_Draw
7 local($type $width $i $n $rlat $rlon $lat $lon $x $y )
8
9 if (%# < 2 || ((%# - 2) % 2) != 0)
10 Error(ENUMPARAM)
11 endif
12
13 $type = %1
14 $width = %2
15 Shift(2)
16
17 $n = %# / 2
18
19 for ($i = 0, $i < $n - 1, $i = $i + 1)
20 // Calculate center position for RefPoint
21 $rlat = (%1 + %3) / 2
22 $rlon = (%2 + %4) / 2
23
24 // Start Area/RefPoint
25 Area(5 $rlat $rlon 20)
26 RefPoint( 7 : 1 $rlat $rlon )
27
28 // Define Points
29 $lat = %1
30 $lon = %2
31
32 $y = ($lat - $rlat) / 360.0 * 40007.0 * 1000.0;
33 $x = ($lon - $rlon) / 360.0 * 40007.0 * 1000.0
34 * cos($rlat);
35
36 RRStart( $type $width $x 0 $y )
37
38 $lat = %3
39 $lon = %4
40
41 $y = ($lat - $rlat) / 360.0 * 40007.0 * 1000.0;
42 $x = ($lon - $rlon) / 360.0 * 40007.0 * 1000.0
43 * cos($rlat);
44
45 RoadLineTo( $x 0 $y )
46
47 EndA
48
49 Shift(2)
50 fend
51 endfun
52
53 ;;
54 ;; ‹v‰®‘å’Ê‚è (Hisaya road)
55 ;;
56
57 if (! $WithPhoto)
58
59 Area( 5 N35:09:34.8 E136:54:44 20 )
60 LayerCall( :L1 4 )
61 Jump( : )
62 :L1
63 RefPoint( 7 :No_object 1 N35:09:34.8 E136:54:44 )
64 RotatedCall( :Object 0 0 355 )
65 :No_object
66 Return
67
68 :Object
69 Points( 0
70 -40 2 -110
71 -26 2 -110
72 46 2 -110
73 60 2 -110
74
75 -40 7 1500
76 -26 7 1500
77 46 7 1500
78 60 7 1500
79 )
80
81 SurfaceColor( 0A F0 )
82 Brightness( 50 )
83 StartSurface
84 MoveToPt( 0 )
85 DrawToPt( 3 7 4 )
86 EndSurface
87
88 ; Bitmap( broadw.r8 0 0 0 0 )
89 Bitmap( broad.r8 0 0 0 0 )
90 StartSurface
91 MoveToPt( 1 )
92 DrawToPt( 2 6 5 )
93 EndSurface
94
95 ; lights
96 IfVarRange( :in_day 28C 2 4 )
97 ; LineColor( 13 F0 ) ; orange
98 LineColor( 15 F0 ) ; white
99 DotLine( -40 0 -110 -40 0 1500 70 )
100 DotLine( -26 0 -110 -26 0 1500 70 )
101 DotLine( 46 0 -110 46 0 1500 70 )
102 DotLine( 60 0 -110 60 0 1500 70 )
103 :in_day
104 Return
105
106 EndA
107
108 ;;;
109 ;;; ‚P‚O‚O‚�“¹˜H (100m road)
110 ;;;
111 ;HMeasure(N35:09:32.6 E136:54:34.3)
112 ;HMeasure(N35:09:32.5 E136:53:45.3)
113
114 Area( B N35:09:21.2 E136:56:17.2 69 ) ; ’†“¹
115 LayerCall( :L2 4 )
116 Jump( : )
117
118 :L2
119 RefPoint( 7 :No_object 1 N35:09:21.2 E136:56:17.2 )
120
121 Points( 0
122 0 0 50
123 0 0 30
124 0 0 -30
125 0 0 -50
126
127 -2602 -5 400 ; N35:09:32.6 E136:54:34.3
128 -2602 -5 380
129 -2602 -5 320
130 -2602 -5 300
131
132 -3840 -9 400 ; N35:09:32.5 E136:53:45.3
133 -3840 -9 380
134 -3840 -9 320
135 -3840 -9 300
136 )
137
138 SurfaceColor( 0A F0 )
139 Brightness( 50 )
140 ConcavePoly
141 Poly( au 0 4 8 11 7 3 )
142 ; StartSurface
143 ; MoveToPt( 0 )
144 ; DrawToPt( 4 8 11 7 3 )
145 ; EndSurface
146
147 Bitmap( broad.r8 0 0 0 0 )
148 ConcavePoly
149 Poly( au 1 5 9 10 6 2 )
150 ; StartSurface
151 ; MoveToPt( 1 )
152 ; DrawToPt( 5 9 10 6 2 )
153 ; EndSurface
154
155 ; lights
156 IfVarRange( :No_object 28C 2 4 )
157 ; LineColor( 13 F0 ) ; orange
158 LineColor( 15 F0 ) ; white
159 DotLine( 0 1 50 -2602 1 400 70 )
160 DotLine( -2602 1 400 -3840 1 400 50 )
161
162 DotLine( 0 1 30 -2602 1 380 70 )
163 DotLine( -2602 1 380 -3840 1 380 50 )
164
165 DotLine( 0 1 -30 -2602 1 320 70 )
166 DotLine( -2602 1 320 -3840 1 320 50 )
167
168 DotLine( 0 1 -50 -2602 1 300 70 )
169 DotLine( -2602 1 300 -3840 1 300 50 )
170
171 :No_object
172 Return
173
174 EndA
175
176 ; �÷’Ê‚è (Sakura road)
177 Road_Draw( MAJOR_ROAD 15
178 N35:10:05.1 E136:53:13.3 ; ‰w‘O
179 N35:10:08.28 E136:53:33.86 ; “D�]’¬
180 N35:10:13.40 E136:54:33.65 ; �÷’Ê‘å’Ã
181 N35:10:15.25 E136:55:02.19 ; �‚Šx
182 N35:10:15.47 E136:55:40.27 ; ˆ¨‚Q
183 N35:10:12.14 E136:56:02.70 ; �Ô”‹
184 N35:09:56.58 E136:56:55.27 ; ’r‰º
185 )
186
187 ; �L�¬˜H’Ê‚è (Hirokouji road)
188 Road_Draw( MAJOR_ROAD 15
189 N35:10:05.1 E136:53:13.3 ; ‰w‘O
190 N35:09:51.90 E136:53:17.72 ; �ù“‡
191 N35:09:54.02 E136:53:29.90
192 N35:09:52.80 E136:53:43.23
193 N35:09:56.36 E136:54:35.52 ; ‹Ñ‚R
194 N35:10:00.00 E136:55:31.12 ; ˆ¨‚P
195 N35:09:58.02 E136:55:50.91 ;�V‰h‚R
196 N35:09:59.59 E136:55:56.80
197 N35:09:59.19 E136:56:15.10 ; �¡’r•t‹ß
198 N35:09:47.00 E136:57:07.99 ; Šo‰¤ŽR•t‹ß
199 N35:09:48.48 E136:57:29.26 ; ––�X’Ê•t‹ß
200 N35:09:38.36 E136:57:59.46 ; –{ŽR
201 )
202
203 ;;; ŽRŽè’Ê‚è (Yamate road)
204 Road_Draw( MAJOR_ROAD 10
205 N35:09:38.36 E136:57:59.46 ; –{ŽR
206 N35:09:12.28 E136:58:09.74 ; –¼‘å
207 N35:09:05.52 E136:58:10.73
208 N35:08:58.87 E136:58:07.41
209 N35:08:53.18 E136:58:08.36
210 N35:08:32.97 E136:58:02.46 ; –­Œ©’¬
211 N35:08:11.37 E136:58:12.51
212 N35:08:05.85 E136:58:10.45 ; ’†‹ž‘åŠw
213 N35:08:00.74 E136:58:02.11 ; ”ªŽ–
214 )
215
216 ;;; �‘“¹ 153
217 ;Road_Draw( MAJOR_ROAD 6
218 ; N35:09:59.50 E136:55:20.23 ; ˆ¨
219 ; N35:09:57.67 E136:55:20.30
220 ; N35:09:44.43 E136:55:44.13
221 ; N35:09:22.25 E136:56:10.96 ; ���ã
222 ; N35:09:22.07 E136:56:17.86
223 ; N35:09:21.84 E136:56:28.39
224 ; N35:08:52.28 E136:57:12.14 ; �쌴’Ê
225 ; N35:08:33.40 E136:57:17.76
226 ; N35:08:16.15 E136:57:39.89
227 ; N35:08:00.65 E136:58:02.09 ; ”ªŽ–
228 ; N35:07:58.32 E136:58:20.58
229 ; N35:07:51.53 E136:58:23.57
230 ; N35:07:47.23 E136:58:46.34
231 ; N35:07:27.89 E136:59:17.29 ; �A“c‹ß•Ó
232 ; )
233
234
235 ;;;;;;;;;;;;;;;;;;;;;;;
236 ; ‹ó�`�ü�A�‚‘¬‚Q�†�ü (Nagoya airport road, Nagoya highway 2nd)
237 ;;;;;;;;;;;;;;;;;;;;;;;
238
239 ;; not yet
240
241 ;;;;;;;;;;;;;;;;;;;;;;;
242 ; •šŒ©’Ê‚è‚È‚Ç (Fushimi road etc.)
243 ;;;;;;;;;;;;;;;;;;;;;;;
244
245 ;; not yet
246
247 ;;;;;;;;;;;;;;;;;;;;;;;
248 ; �‘“¹ 153 (”ªŽ– -> ŽO�D) (153th national road)
249 ;;;;;;;;;;;;;;;;;;;;;;;
250
251 ;; not yet
252
253 ;;;;;;;;;;;;;;;;;;;;;;;
254 ; �‘“¹ 153 (ŽO�D -> –L“cŽs)
255 ;;;;;;;;;;;;;;;;;;;;;;;
256
257 ;; not yet
258
259 endif ;;; $WithPhoto

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