Develop and Download Open Source Software

Browse Subversion Repository

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

1 ; –źŒĂ‰ŽŽs–đŠ (Nagoya city hall)
2 ; siyakusyo.scm Lat Lon Rot Altitude
3 ; 1 2 3 4
4
5 Area( 5 %1 %2 10 )
6 PerspectiveCall( :Sub )
7 Jump( : )
8
9 :Sub
10 Perspective
11 mif( %4 )
12 Refpoint( 2 :No_object 1 %1 %2 E= %4 V1= 8000 )
13 melse
14 Refpoint( 7 :No_object 1 %1 %2 V1= 8000 )
15 mifend
16
17 mif( %3 )
18 RotatedCall( :Object 0 0 %3 )
19 melse
20 Call( :Object )
21 mifend
22 :No_object
23 Return
24
25 :Object
26 Building( 0 0 0 7 60 90 0 1F )
27 TransformCall( :Tower -20 28 0 0 0 0 0 0 0 )
28 Return
29
30 :Tower
31 Points( 0
32 -7 0 -7 ; 0
33 7 0 -7
34 7 0 7
35 -7 0 7
36
37 -7 18 -7 ; 4
38 7 18 -7
39 7 18 7
40 -7 18 7
41
42 -5 18 -5 ; 8
43 5 18 -5
44 5 18 5
45 -5 18 5
46
47 -5 22 -5 ; 12
48 5 22 -5
49 5 22 5
50 -5 22 5
51
52 -6 22 -6 ; 16
53 6 22 -6
54 6 22 6
55 -6 22 6
56 0 29 0
57
58 -5 24 -5 ; 21
59 5 24 -5
60 5 24 5
61 -5 24 5
62 0 31 0
63 )
64
65 SurfaceColor( 0A F0 )
66 Poly( a 0 1 5 4 )
67 Poly( a 1 2 6 5 )
68 Poly( a 2 3 7 6 )
69 Poly( a 3 0 4 7 )
70 Poly( a 4 5 6 7 )
71
72 SurfaceColor( 0B F0 )
73 Poly( a 8 9 13 12 )
74 Poly( a 9 10 14 13 )
75 Poly( a 10 11 15 14 )
76 Poly( a 11 8 12 15 )
77
78 SurfaceColor( 0D F0 )
79 Poly( a 16 17 20 )
80 Poly( a 17 18 20 )
81 Poly( a 18 19 20 )
82 Poly( a 19 16 20 )
83
84 Poly( a 21 22 25 )
85 Poly( a 22 23 25 )
86 Poly( a 23 24 25 )
87 Poly( a 24 21 25 )
88 Return
89
90 EndA
91

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