Develop and Download Open Source Software

Browse Subversion Repository

Contents of /trunk/freesc/kanjo.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: 2703 byte(s)
file moved

1 ; –źŒĂ‰ŽŠÂóü
2
3 Area( B N35:11:28.698568 E136:54:43.898438 69 )
4 LayerCall( :L1 4 )
5 Jump( : )
6 :L1
7 Refpoint( 7 :No_object 1 N35:11:28.698568 E136:54:43.898438 )
8 ; Bitmap( ngroad.bmp 0 0 0 0 )
9 SurfaceColor( 0E F0 )
10
11 ; road
12 RRStart( MAJOR_ROAD 15 2442 0 -212 )
13 RoadLineTo( 1836 0 164 )
14 RoadLineTo( 631 0 225 )
15 RoadLineTo( 530 0 290 )
16 RoadLineTo( -2385 0 272 )
17 RoadLineTo( -3051 0 -737 )
18
19 ; lights
20 IfVarRange( :No_object 28C 2 4 )
21 LineColor( 15 F0 )
22 DotLine( 2442 0 -211 1836 0 164 28 )
23 DotLine( 1836 0 164 631 0 225 48 )
24 DotLine( 631 0 225 530 0 290 4 )
25 DotLine( 530 0 290 -2384 0 272 116 )
26 DotLine( -2384 0 272 -3050 0 -736 48 )
27 :No_object
28 Return
29 EndA
30 Area( B N35:8:46.421007 E136:52:29.086806 69 )
31 LayerCall( :L1 4 )
32 Jump( : )
33 :L1
34 Refpoint( 7 :No_object 1 N35:8:46.421007 E136:52:29.086806 )
35 ; Bitmap( ngroad.bmp 0 0 0 0 )
36 SurfaceColor( 0E F0 )
37
38 ; road
39 RRStart( MAJOR_ROAD 15 349 0 4265 )
40 RoadLineTo( 106 0 3620 )
41 RoadLineTo( 101 0 2302 )
42 RoadLineTo( -120 0 885 )
43 RoadLineTo( 111 0 681 )
44 RoadLineTo( -4 0 -518 )
45 RoadLineTo( -256 0 -1771 )
46 RoadLineTo( -221 0 -3540 )
47 RoadLineTo( -62 0 -5919 )
48
49 ; lights
50 IfVarRange( :No_object 28C 2 4 )
51 LineColor( 15 F0 )
52 DotLine( 349 0 4265 106 0 3620 27 )
53 DotLine( 106 0 3620 101 0 2302 52 )
54 DotLine( 101 0 2302 -119 0 885 57 )
55 DotLine( -119 0 885 111 0 681 12 )
56 DotLine( 111 0 681 -3 0 -517 48 )
57 DotLine( -3 0 -517 -255 0 -1770 51 )
58 DotLine( -255 0 -1770 -220 0 -3539 70 )
59 DotLine( -220 0 -3539 -61 0 -5918 95 )
60 :No_object
61 Return
62 EndA
63 Area( B N35:7:30.541574 E136:55:55.698382 69 )
64 LayerCall( :L1 4 )
65 Jump( : )
66 :L1
67 Refpoint( 7 :No_object 1 N35:7:30.541574 E136:55:55.698382 )
68 ; Bitmap( ngroad.bmp 0 0 0 0 )
69 SurfaceColor( 0E F0 )
70
71 ; road
72 RRStart( MAJOR_ROAD 15 636 0 7138 )
73 RoadLineTo( 1315 0 6959 )
74 RoadLineTo( 699 0 4520 )
75 RoadLineTo( 543 0 3425 )
76 RoadLineTo( 391 0 2351 )
77 RoadLineTo( 361 0 1381 )
78 RoadLineTo( 565 0 -448 )
79 RoadLineTo( 742 0 -1769 )
80 RoadLineTo( 507 0 -3278 )
81 RoadLineTo( 384 0 -3578 )
82 RoadLineTo( -90 0 -3874 )
83 RoadLineTo( -883 0 -4040 )
84 RoadLineTo( -2352 0 -4368 )
85 RoadLineTo( -2816 0 -4411 )
86
87 ; lights
88 IfVarRange( :No_object 28C 2 4 )
89 LineColor( 15 F0 )
90 DotLine( 636 0 7138 1315 0 6959 28 )
91 DotLine( 1315 0 6959 699 0 4520 100 )
92 DotLine( 699 0 4520 543 0 3425 44 )
93 DotLine( 543 0 3425 391 0 2351 43 )
94 DotLine( 391 0 2351 361 0 1381 38 )
95 DotLine( 361 0 1381 565 0 -447 73 )
96 DotLine( 565 0 -447 742 0 -1768 53 )
97 DotLine( 742 0 -1768 507 0 -3277 61 )
98 DotLine( 507 0 -3277 384 0 -3577 12 )
99 DotLine( 384 0 -3577 -89 0 -3873 22 )
100 DotLine( -89 0 -3873 -882 0 -4039 32 )
101 DotLine( -882 0 -4039 -2351 0 -4367 60 )
102 DotLine( -2351 0 -4367 -2815 0 -4410 18 )
103 :No_object
104 Return
105 EndA

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