Browse Subversion Repository
Contents of /trunk/freesc/intconf.scm
 Parent Directory
|  Revision Log
Revision 30 -
( show annotations)
( download)
Mon Feb 26 13:50:55 2007 UTC
(17 years, 1 month ago)
by tmurakam
File size: 1533 byte(s)
file moved
| 1 |
;;; Űďcę |
| 2 |
|
| 3 |
;Macro( build.scm N35:07:44.5 E136:54:02.3 5 5 30 65 05 0 1F ) |
| 4 |
;Macro( build.scm N35:07:45.3 E136:54:04.8 305 5 30 65 05 0 1F ) |
| 5 |
Macro( build.scm N35:07:44.4 E136:54:02.1 5 4 30 50 05 0 1F ) |
| 6 |
Macro( build.scm N35:07:45.4 E136:54:05.1 305 4 30 50 05 0 1F ) |
| 7 |
|
| 8 |
Macro( build.scm N35:07:41.1 E136:54:03.6 5 4 23 50 05 0 1F ) |
| 9 |
Macro( build.scm N35:07:42.1 E136:54:06.8 305 4 23 50 05 0 1F ) |
| 10 |
|
| 11 |
Macro( build.scm N35:07:40.5 E136:54:05.8 335 3 40 20 05 0 1F ) |
| 12 |
|
| 13 |
;; main tower? |
| 14 |
Area( 5 N35:07:43.0 E136:54:4.5 10 ) |
| 15 |
PerspectiveCall( :T1 ) |
| 16 |
Jump( : ) |
| 17 |
|
| 18 |
:T1 |
| 19 |
Perspective |
| 20 |
RefPoint( 7 :T11 1 N35:07:43.0 E136:54:4.5 ) |
| 21 |
RotatedCall( :T12 0 0 335 ) |
| 22 |
:T11 |
| 23 |
Return |
| 24 |
|
| 25 |
:T12 |
| 26 |
|
| 27 |
Points( 0 |
| 28 |
-35 0 -10 ; 0 |
| 29 |
-22 0 -10 |
| 30 |
-22 0 10 |
| 31 |
-35 0 10 |
| 32 |
-35 70 -10 |
| 33 |
-22 75 -10 |
| 34 |
-22 75 10 |
| 35 |
-35 70 10 |
| 36 |
|
| 37 |
22 0 -10 ; 8 |
| 38 |
35 0 -10 |
| 39 |
35 0 10 |
| 40 |
22 0 10 |
| 41 |
22 75 -10 |
| 42 |
35 70 -10 |
| 43 |
35 70 10 |
| 44 |
22 75 10 |
| 45 |
|
| 46 |
-22 10 -8 ; 16 |
| 47 |
22 10 -8 |
| 48 |
22 10 8 |
| 49 |
-22 10 8 |
| 50 |
-22 22 -8 |
| 51 |
22 22 -8 |
| 52 |
22 22 8 |
| 53 |
-22 22 8 |
| 54 |
|
| 55 |
-22 55 -6 ; 24 |
| 56 |
22 55 -6 |
| 57 |
22 55 6 |
| 58 |
-22 55 6 |
| 59 |
-22 63 -6 |
| 60 |
22 63 -6 |
| 61 |
22 63 6 |
| 62 |
-22 63 6 |
| 63 |
) |
| 64 |
|
| 65 |
SurfaceColor( 04 F0 ) |
| 66 |
Poly( ai 1 2 6 5 ) |
| 67 |
Poly( ai 8 11 15 12 ) |
| 68 |
|
| 69 |
Poly( ai 16 17 18 19 ) |
| 70 |
Poly( a 16 17 21 20 ) |
| 71 |
Poly( a 18 19 23 22 ) |
| 72 |
Poly( a 20 21 22 23 ) |
| 73 |
|
| 74 |
Poly( ai 24 25 26 27 ) |
| 75 |
Poly( a 24 25 29 28 ) |
| 76 |
Poly( a 26 27 31 30 ) |
| 77 |
Poly( a 28 29 30 31 ) |
| 78 |
|
| 79 |
Poly( a 0 1 5 4 ) |
| 80 |
Poly( a 2 3 7 6 ) |
| 81 |
Poly( a 0 3 7 4 ) |
| 82 |
Poly( a 4 5 6 7 ) |
| 83 |
|
| 84 |
Poly( a 8 9 13 12 ) |
| 85 |
Poly( a 9 10 14 13 ) |
| 86 |
Poly( a 10 11 15 14 ) |
| 87 |
Poly( a 12 13 14 15 ) |
| 88 |
Return |
| 89 |
|
| 90 |
EndA |
Properties
| svn:eol-style |
native
|
| svn:keywords |
Author Date Id Revision
|
| 
Parent Directory
Revision Log