| 1 |
; źĂŽĺw (Nagoya university) |
| 2 |
|
| 3 |
if (! $WithPhoto) |
| 4 |
|
| 5 |
Area( 5 N35:09:06.2 E136:58:10.3 20 ) |
| 6 |
LayerCall( :L1 2 ) |
| 7 |
Jump( : ) |
| 8 |
:L1 |
| 9 |
RefPoint( 7 :No_object 1 N35:09:06.2 E136:58:10.3 ) |
| 10 |
|
| 11 |
Points( 0 |
| 12 |
; -450 0 300 |
| 13 |
; -600 0 -180 |
| 14 |
; 150 0 -250 |
| 15 |
; 350 0 -750 |
| 16 |
; 750 0 -700 |
| 17 |
; 650 0 0 |
| 18 |
-450 1 300 |
| 19 |
-600 1 -180 |
| 20 |
150 6 -450 |
| 21 |
350 7 -750 |
| 22 |
750 7 -700 |
| 23 |
650 3 0 |
| 24 |
) |
| 25 |
|
| 26 |
Bitmap( broad.r8 0 0 0 0 ) |
| 27 |
ConcavePoly |
| 28 |
StartSurface |
| 29 |
MoveToPt( 0 ) |
| 30 |
DrawToPt( 1 2 3 4 5 ) |
| 31 |
EndSurface |
| 32 |
:No_object |
| 33 |
Return |
| 34 |
EndA |
| 35 |
|
| 36 |
endif // $WithPhoto |
| 37 |
|
| 38 |
;;; Lcu° |
| 39 |
Macro( build.scm N35:09:01.27 E136:58:14.50 25 5 40 80 03 0 1F ) |
| 40 |
|
| 41 |
;;; }Ů |
| 42 |
;Macro( build.scm N35:09:06.55 E136:58:01.11 23 8 40 40 06 0 1F ) |
| 43 |
NormalBuilding( N35:09:06.67 E136:58:00.32 23 0 55 40 // lat lon rot alt x y |
| 44 |
LEVEL1 0x3b 8 0x100 0x100 |
| 45 |
LEVEL2 0x33 24 0x200 0x180 0x200 |
| 46 |
LEVEL3 0x3a 4 0x100 0x100 |
| 47 |
ROOF 0x0e 0x100 0x100 ) |
| 48 |
|
| 49 |
defun MBuild |
| 50 |
NormalBuilding( %1 %2 %3 0 80 18 // lat lon rot alt x y |
| 51 |
LEVEL1 0x35 8 0x100 0x100 |
| 52 |
LEVEL2 0x2f 16 0x200 0x100 0x80 |
| 53 |
LEVEL3 0x34 4 0x100 0x100 |
| 54 |
ROOF 0x1d 0x100 0x100 ) |
| 55 |
endfun |
| 56 |
|
| 57 |
MBuild( N35:09:10.44 E136:58:13.51 25 ) ; HwTŮ |
| 58 |
MBuild( N35:09:07.23 E136:58:13.39 25 ) |
| 59 |
|
| 60 |
defun HBuild |
| 61 |
Area( 5 %1 %2 10 ) |
| 62 |
PerspectiveCall( :Sub ) |
| 63 |
ShadowCall( :Shadow ) |
| 64 |
Jump( : ) |
| 65 |
|
| 66 |
:Sub |
| 67 |
Perspective |
| 68 |
:Shadow |
| 69 |
Refpoint( 7 :No_object 1 %1 %2 V1= 8000 ) |
| 70 |
|
| 71 |
RotatedCall( :Object 0 0 %3 ) |
| 72 |
:No_object |
| 73 |
Return |
| 74 |
|
| 75 |
:Object |
| 76 |
Call( :Build2 ) |
| 77 |
TransformCall( :Build1 (24 * sin(%3)) 0 (24*cos(%3)) 0 0 0 0 %3 0 ) |
| 78 |
TransformCall( :Build1 (-24 * sin(%3)) 0 (-24*cos(%3)) 0 0 0 0 %3 0 ) |
| 79 |
Return |
| 80 |
|
| 81 |
:Build1 |
| 82 |
AdvBldg( NORMAL 90 18 |
| 83 |
LEVEL1 0x35 4 0x100 0x100 |
| 84 |
LEVEL2 0x2f 12 0x300 0x100 0x100 |
| 85 |
LEVEL3 0x34 4 0x100 0x100 |
| 86 |
ROOF 0x1d 0x100 0x100 ) |
| 87 |
Return |
| 88 |
|
| 89 |
:Build2 |
| 90 |
AdvBldg( NORMAL 10 30 |
| 91 |
LEVEL1 0x35 4 0x100 0x100 |
| 92 |
LEVEL2 0x2f 12 0x80 0x100 0x200 |
| 93 |
LEVEL3 0x34 4 0x100 0x100 |
| 94 |
ROOF 0x1d 0x100 0x100 ) |
| 95 |
Return |
| 96 |
|
| 97 |
EndA |
| 98 |
endfun |
| 99 |
|
| 100 |
HBuild( N35:09:04.68 E136:57:56.47 25 ) |
| 101 |
HBuild( N35:09:03.00 E136:58:00.47 25 ) |
| 102 |
HBuild( N35:09:01.41 E136:58:04.97 25 ) |
| 103 |
|
| 104 |
HBuild( N35:09:10.12 E136:57:59.83 25 ) |
| 105 |
HBuild( N35:09:08.50 E136:58:03.98 25 ) |
| 106 |
HBuild( N35:09:06.79 E136:58:08.09 25 ) |
Parent Directory
Revision Log