Develop and Download Open Source Software

Browse Subversion Repository

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

1 ; –źŒĂ‰ŽŠÂó‚Q†ü
2
3 Area( B N35:8:10.791466 E136:49:29.344351 69 )
4 LayerCall( :L1 4 )
5 Jump( : )
6 :L1
7 Refpoint( 7 :No_object 1 N35:8:10.791466 E136:49:29.344351 )
8 ; Bitmap( ngroad.bmp 0 0 0 0 )
9 SurfaceColor( 0E F0 )
10
11 ; road
12 RRStart( MAJOR_ROAD 15 393 0 -9699 )
13 RoadLineTo( -374 0 -9718 )
14 RoadLineTo( -401 0 -7008 )
15 RoadLineTo( -1113 0 -5610 )
16 RoadLineTo( -515 0 -4221 )
17 RoadLineTo( -303 0 -1477 )
18 RoadLineTo( -661 0 -91 )
19 RoadLineTo( -278 0 1787 )
20 RoadLineTo( -515 0 3645 )
21 RoadLineTo( -477 0 6334 )
22 RoadLineTo( 271 0 8121 )
23 RoadLineTo( 986 0 8803 )
24 RoadLineTo( 2997 0 9142 )
25
26 ; lights
27 IfVarRange( :No_object 28C 2 4 )
28 LineColor( 15 F0 )
29 DotLine( 393 0 -9698 -373 0 -9717 30 )
30 DotLine( -373 0 -9717 -400 0 -7007 108 )
31 DotLine( -400 0 -7007 -1112 0 -5609 62 )
32 DotLine( -1112 0 -5609 -514 0 -4220 60 )
33 DotLine( -514 0 -4220 -302 0 -1476 110 )
34 DotLine( -302 0 -1476 -660 0 -90 57 )
35 DotLine( -660 0 -90 -277 0 1787 76 )
36 DotLine( -277 0 1787 -514 0 3645 74 )
37 DotLine( -514 0 3645 -476 0 6334 107 )
38 DotLine( -476 0 6334 271 0 8121 77 )
39 DotLine( 271 0 8121 986 0 8803 39 )
40 DotLine( 986 0 8803 2997 0 9142 81 )
41 :No_object
42 Return
43 EndA
44
45 Area( B N35:11:25.642969 E136:58:20.168750 69 )
46 LayerCall( :L1 4 )
47 Jump( : )
48 :L1
49 Refpoint( 7 :No_object 1 N35:11:25.642969 E136:58:20.168750 )
50 ; Bitmap( ngroad.bmp 0 0 0 0 )
51 SurfaceColor( 0E F0 )
52
53 ; road
54 RRStart( MAJOR_ROAD 15 -10395 0 3131 )
55 RoadLineTo( -7664 0 3369 )
56 RoadLineTo( -6276 0 3928 )
57 RoadLineTo( -3618 0 4057 )
58 RoadLineTo( -2006 0 3770 )
59 RoadLineTo( -1292 0 3455 )
60 RoadLineTo( -190 0 3446 )
61 RoadLineTo( 278 0 3017 )
62 RoadLineTo( 606 0 2403 )
63 RoadLineTo( 1292 0 1665 )
64 RoadLineTo( 1837 0 1483 )
65 RoadLineTo( 2914 0 -855 )
66 RoadLineTo( 2954 0 -1750 )
67 RoadLineTo( 3224 0 -2479 )
68 RoadLineTo( 3224 0 -2485 )
69 RoadLineTo( 3401 0 -3139 )
70 RoadLineTo( 3361 0 -3633 )
71 RoadLineTo( 2780 0 -5253 )
72 RoadLineTo( 2780 0 -6405 )
73 RoadLineTo( 2796 0 -7716 )
74
75 ; lights
76 IfVarRange( :No_object 28C 2 4 )
77 LineColor( 15 F0 )
78 DotLine( -10394 0 3131 -7663 0 3369 109 )
79 DotLine( -7663 0 3369 -6275 0 3928 59 )
80 DotLine( -6275 0 3928 -3617 0 4057 106 )
81 DotLine( -3617 0 4057 -2005 0 3770 65 )
82 DotLine( -2005 0 3770 -1291 0 3455 31 )
83 DotLine( -1291 0 3455 -189 0 3446 44 )
84 DotLine( -189 0 3446 278 0 3017 25 )
85 DotLine( 278 0 3017 606 0 2403 27 )
86 DotLine( 606 0 2403 1292 0 1665 40 )
87 DotLine( 1292 0 1665 1837 0 1483 22 )
88 DotLine( 1837 0 1483 2914 0 -854 102 )
89 DotLine( 2914 0 -854 2954 0 -1749 35 )
90 DotLine( 2954 0 -1749 3224 0 -2478 31 )
91 DotLine( 3224 0 -2478 3224 0 -2484 2 )
92 DotLine( 3224 0 -2484 3401 0 -3138 27 )
93 DotLine( 3401 0 -3138 3361 0 -3632 19 )
94 Jump( :No_object )
95 DotLine( 3361 0 -3632 2780 0 -5252 68 )
96 DotLine( 2780 0 -5252 2780 0 -6404 46 )
97 DotLine( 2780 0 -6404 2796 0 -7715 52 )
98 :No_object
99 Return
100 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