Develop and Download Open Source Software

Browse Subversion Repository

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

1 ; baseball stadium
2 ; kyuujou.scm Lat Lon scale rot Altitude
3 ; 1 2 3 4 5
4
5 Area( 5 %1 %2 10 )
6 PerspectiveCall( :L1 )
7 Jump( :END )
8
9 :L1
10 Perspective
11 mif ( %5 )
12 RefPoint( 2 :L3 %3 %1 %2 E= %5 )
13 melse
14 RefPoint( 7 :L3 %3 %1 %2 )
15 mifend
16 mif( %4 )
17 RotatedCall( :L2 0 0 %4 )
18 Return
19 mifend
20
21 :L2
22 ;; wall
23 VecPoints( p 0
24 0 0 -50 0 0 ;0
25 20 0 -42 0 20
26 40 0 -20 0 70
27 50 0 10 0 100
28 40 0 30 0 120
29 20 0 45 0 150
30 0 0 50 0 180
31 -20 0 45 0 210
32 -40 0 30 0 240
33 -50 0 10 0 260
34 -40 0 -20 0 290
35 -20 0 -42 0 340
36
37 0 11 -50 0 0 ;12
38 20 11 -42 0 20
39 40 11 -20 0 70
40 50 11 10 0 100
41 40 11 30 0 120
42 20 11 45 0 150
43 0 11 50 0 180
44 -20 11 45 0 210
45 -40 11 30 0 240
46 -50 11 10 0 260
47 -40 11 -20 0 290
48 -20 11 -42 0 340
49
50 0 11 -50 30 180 ;24
51 20 11 -42 30 200
52 40 11 -20 30 250
53 50 11 10 30 280
54 40 11 30 30 300
55 20 11 45 30 330
56 0 11 50 30 0
57 -20 11 45 30 30
58 -40 11 30 30 60
59 -50 11 10 30 90
60 -40 11 -20 30 110
61 -20 11 -42 30 160
62
63 0 0 -34 30 180 ;36
64 12 0 -28 30 200
65 26 0 -10 30 250
66 32 0 10 30 280
67 28 0 24 30 300
68 18 0 34 30 330
69 0 0 38 30 0
70 -18 0 34 30 30
71 -28 0 24 30 60
72 -32 0 10 30 90
73 -26 0 -10 30 110
74 -12 0 -28 30 160
75
76 0 0 -20 0 0 ; 48
77 20 0 0 0 0
78 0 0 20 0 0
79 -20 0 0 0 0
80 32 0 12 0 0
81 -32 0 12 0 0
82 )
83
84 SurfaceColor( 0A F0 )
85 Poly( m 0 32767 0 0
86 36 37 38 39 40 41 42 43 44 45 46 47 )
87
88 SurfaceColor( 06 F0 )
89 ConcavePoly
90 Poly( m 0 32767 0 0
91 49 52 40 41 42 43 44 53 51 50 )
92
93 LineColor( 04 F0 )
94 MoveToPt( 48 )
95 DrawToPt( 49 50 51 48 )
96 MoveToPt( 49 )
97 DrawToPt( 52 )
98 MoveToPt( 51 )
99 DrawToPt( 53 )
100
101 ShadedColor( 04 F0 )
102 ShadedPoly( au 24 25 37 36 )
103 ShadedPoly( au 25 26 38 37 )
104 ShadedPoly( au 26 27 39 38 )
105 ShadedPoly( au 27 28 40 39 )
106 ShadedPoly( au 28 29 41 40 )
107 ShadedPoly( au 29 30 42 41 )
108 ShadedPoly( au 30 31 43 42 )
109 ShadedPoly( au 31 32 44 43 )
110 ShadedPoly( au 32 33 45 44 )
111 ShadedPoly( au 33 34 46 45 )
112 ShadedPoly( au 34 35 47 46 )
113 ShadedPoly( au 35 24 36 47 )
114
115 ShadedPoly( a 0 1 13 12 )
116 ShadedPoly( a 1 2 14 13 )
117 ShadedPoly( a 2 3 15 14 )
118 ShadedPoly( a 3 4 16 15 )
119 ShadedPoly( a 4 5 17 16 )
120 ShadedPoly( a 5 6 18 17 )
121 ShadedPoly( a 6 7 19 18 )
122 ShadedPoly( a 7 8 20 19 )
123 ShadedPoly( a 8 9 21 20 )
124 ShadedPoly( a 9 10 22 21 )
125 ShadedPoly( a 10 11 23 22 )
126 ShadedPoly( a 11 0 12 23 )
127
128 :L3
129 Return
130
131 :END
132 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