Browse Subversion Repository
Contents of /trunk/freesc/nagmei.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: 1749 byte(s)
file moved
| 1 |
; 名古屋大学医学部付属病院 |
| 2 |
; nagmei.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 |
Points( 0 |
| 27 |
0 0 -10 ;0 |
| 28 |
6 0 -8 |
| 29 |
10 0 -5 |
| 30 |
20 0 -20 |
| 31 |
70 0 -20 |
| 32 |
50 0 10 |
| 33 |
10 0 10 |
| 34 |
6 0 13 |
| 35 |
0 0 15 |
| 36 |
-6 0 13 |
| 37 |
-10 0 10 |
| 38 |
-50 0 10 |
| 39 |
-70 0 -20 |
| 40 |
-20 0 -20 |
| 41 |
-10 0 -5 |
| 42 |
-6 0 -8 |
| 43 |
|
| 44 |
0 56 -10 ;16 |
| 45 |
6 56 -8 |
| 46 |
10 56 -5 |
| 47 |
20 56 -20 |
| 48 |
70 56 -20 |
| 49 |
50 56 10 |
| 50 |
10 56 10 |
| 51 |
6 56 13 |
| 52 |
0 56 15 |
| 53 |
-6 56 13 |
| 54 |
-10 56 10 |
| 55 |
-50 56 10 |
| 56 |
-70 56 -20 |
| 57 |
-20 56 -20 |
| 58 |
-10 56 -5 |
| 59 |
-6 56 -8 |
| 60 |
) |
| 61 |
|
| 62 |
SurfaceColor( 04 F0 ) |
| 63 |
Bitmap( nagside3.bmp 0 0 0 0 ) |
| 64 |
|
| 65 |
; 中央手前 |
| 66 |
TexPoly( ai 2 4 113 3 89 113 19 89 0 18 4 0 ) |
| 67 |
TexPoly( ai 13 4 113 14 89 113 30 89 0 29 4 0 ) |
| 68 |
|
| 69 |
TexPoly( a 1 5 113 2 4 113 18 4 0 17 5 0 ) |
| 70 |
TexPoly( a 0 5 113 1 4 113 17 4 0 16 5 0 ) |
| 71 |
TexPoly( a 14 5 113 15 4 113 31 4 0 30 5 0 ) |
| 72 |
TexPoly( a 15 5 113 0 4 113 16 4 0 31 5 0 ) |
| 73 |
|
| 74 |
; 手前 |
| 75 |
TexPoly( a 3 5 113 4 89 113 20 89 0 19 5 0 ) |
| 76 |
TexPoly( a 12 5 113 13 89 113 29 89 0 28 5 0 ) |
| 77 |
|
| 78 |
; 中央奥 |
| 79 |
TexPoly( a 6 5 113 7 4 113 23 4 0 22 5 0 ) |
| 80 |
TexPoly( a 7 5 113 8 4 113 24 4 0 23 5 0 ) |
| 81 |
TexPoly( a 8 5 113 9 4 113 25 4 0 24 5 0 ) |
| 82 |
TexPoly( a 9 5 113 10 4 113 26 4 0 25 5 0 ) |
| 83 |
|
| 84 |
; 奥 |
| 85 |
TexPoly( a 4 5 113 5 89 113 21 89 0 20 5 0 ) |
| 86 |
TexPoly( a 5 5 113 6 89 113 22 89 0 21 5 0 ) |
| 87 |
TexPoly( a 10 5 113 11 89 113 27 89 0 26 5 0 ) |
| 88 |
TexPoly( a 11 5 113 12 89 113 28 89 0 27 5 0 ) |
| 89 |
|
| 90 |
ConcavePoly |
| 91 |
Poly( a 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ) |
| 92 |
|
| 93 |
Return |
| 94 |
|
| 95 |
EndA |
| 96 |
|
| 97 |
|
Properties
| svn:eol-style |
native
|
| svn:keywords |
Author Date Id Revision
|
| 
Parent Directory
Revision Log