home *** CD-ROM | disk | FTP | other *** search
- //------------------------ TRAIN STATION M.MILLER 1/15/91
- //-------------------------Rendered in about 40 Hours +a0.1 on a 486 /33
-
-
- INCLUDE "stat.inc"
- INCLUDE "toytrain.inc"
- INCLUDE "marb.inc"
- INCLUDE "turn16-x.inc"
- INCLUDE "plant.inc"
-
- VIEW_POINT
- LOCATION <-80 450 -1550>
- DIRECTION <0 0 1.6>
- UP <0 1 0>
- RIGHT <1.333 0 0>
- LOOK_AT <-80 140 0>
- END_VIEW_POINT
-
- {-----------LIGHTS-------------------------------}
- OBJECT LIGHT TRANSLATE <2000 300 -1800> END_OBJECT
- OBJECT LIGHT TRANSLATE <100 1000 -1000> END_OBJECT
-
- {------------- ROTATE IONIC TURN --------------------------}
- #declare TURN = COMPOSITE turn16 SCALE <1 6 1> END_COMPOSITE
-
- {---------------BUILD THE IONIC-16 CAPITAL-----------------------------}
- #declare T16 = COMPOSITE
-
- OBJECT UNION //----------CAPITAL BELLY
- INTERSECTION Y_Disk SCALE <8.5 2 8.5> TRANSLATE <0 0 0> END_INTERSECTION
- INTERSECTION Y_Disk SCALE <9 12 9> TRANSLATE <0 2 0> END_INTERSECTION
- INTERSECTION Z_Disk SCALE <4.5 4.8 12> TRANSLATE <-8.5 9.3 -10> END_INTERSECTION
- INTERSECTION Z_Disk SCALE <4.5 4.8 12> TRANSLATE <8.5 9.3 -10> END_INTERSECTION
- QUADRIC QSphere SCALE <11 1 11> TRANSLATE <0 8 0> END_QUADRIC
- END_UNION
- TEXTURE STONE4 END_TEXTURE
- BOUNDED_BY INTERSECTION Y_Disk SCALE <17 15 17> TRANSLATE <0 -0.5 -2> END_INTERSECTION
- END_BOUND
- END_OBJECT
-
- COMPOSITE TURN ROTATE <90 0 0> ROTATE <0 0 90> TRANSLATE <-8 9 -9> END_COMPOSITE
- COMPOSITE TURN ROTATE <90 0 0> ROTATE <0 0 90> ROTATE <0 180 0> TRANSLATE <8 9 -9> END_COMPOSITE
-
- OBJECT
- INTERSECTION X_Disk SCALE <16 0.5 3> TRANSLATE <-8 13.5 -9> END_INTERSECTION
- TEXTURE STONE4 END_TEXTURE
- END_OBJECT
- BOUNDED_BY INTERSECTION Y_Disk SCALE <22 16 22> TRANSLATE <0 -1 -2> END_INTERSECTION
- END_BOUND
- END_COMPOSITE
-
-
- {----------WALL BASE----------}
-
- #declare WALL_BASE = OBJECT
- UNION
- INTERSECTION Cube SCALE <24 3 6> TRANSLATE <0 3 0> END_INTERSECTION
- INTERSECTION Cube SCALE <10 3 16> TRANSLATE <0 3 0> END_INTERSECTION
- INTERSECTION Cube SCALE <23 5 5> TRANSLATE <0 11 0> END_INTERSECTION
- INTERSECTION Cube SCALE <9 5 15> TRANSLATE <0 11 0> END_INTERSECTION
- INTERSECTION Y_Disk SCALE <8.5 4 8.5> TRANSLATE <0 16 -6> END_INTERSECTION
- END_UNION
- TEXTURE ST6 SCALE <15 4 3> AMBIENT 0.2 DIFFUSE 0.8 END_TEXTURE
- TEXTURE ST7 SCALE <20 12 5> ROTATE <0 0 -40> PHONG 1.0 END_TEXTURE
- BOUNDED_BY
- INTERSECTION Cube SCALE <25 11 17> TRANSLATE <0 12 0> END_INTERSECTION
- END_BOUND
- END_OBJECT
-
- {------------- CREAM ROSE COLUMN-----------------}
- #declare COLUM16 = OBJECT
- INTERSECTION Y_Disk SCALE <8 58 8> END_INTERSECTION
- TEXTURE ST3 SCALE <6 10 1> DIFFUSE 0.5 END_TEXTURE
- TEXTURE ST2 SCALE <15 20 3> AMBIENT 0.2 ROTATE <0 0 35> PHONG 1.0 PHONGSIZE 50 END_TEXTURE
- END_OBJECT
-
- #declare WALL16 = OBJECT
- INTERSECTION Cube SCALE <22 39 4> END_INTERSECTION
- TEXTURE ST6 SCALE <8 8 2> AMBIENT 0.2 DIFFUSE 0.4 END_TEXTURE
- TEXTURE ST7 SCALE <10 7 2> ROTATE <0 0 -50> DIFFUSE 0.4 END_TEXTURE
- TEXTURE ST13 SCALE <45 70 4> ROTATE <0 0 30> DIFFUSE 0.5 END_TEXTURE
- TEXTURE COLOR SeaGreen ALPHA 0.8 DIFFUSE 0.5 END_TEXTURE
- TEXTURE ST11 SCALE <45 50 3> ROTATE <0 0 -50> DIFFUSE 0.5 PHONG 1.0 END_TEXTURE
- END_OBJECT
-
- {----------MAKE WALL WITH MODING & COLUMN----------}
- #declare LOWER_WALL = COMPOSITE
- OBJECT WALL_BASE TRANSLATE <0 0 0> END_OBJECT
- OBJECT WALL_BASE SCALE <1 0.5 1> ROTATE <0 0 180> TRANSLATE <0 100 0> END_OBJECT
- COMPOSITE T16 TRANSLATE <0 78 -6> END_COMPOSITE
- OBJECT COLUM16 TRANSLATE <0 20 -6> END_OBJECT
- OBJECT WALL16 TRANSLATE <0 54 0> END_OBJECT
- BOUNDED_BY
- INTERSECTION Cube SCALE <25 55 18> TRANSLATE <0 54 0> END_INTERSECTION
- END_BOUND
- END_COMPOSITE
-
-
- {----------LARGE ARCH MOLDING -------------------}
- #declare L_ARCH = OBJECT
- DIFFERENCE
- QUADRIC Cylinder_Z SCALE <40 40 1> END_QUADRIC
- QUADRIC Cylinder_Z SCALE <33 33 1> END_QUADRIC
- PLANE <0 0 -1> 5 INVERSE END_PLANE
- PLANE <0 0 -1> -5 END_PLANE
- PLANE <-1 0 0> 0 END_PLANE
- END_DIFFERENCE
- TEXTURE ST6 SCALE <15 4 3> AMBIENT 0.2 DIFFUSE 0.8 END_TEXTURE
- TEXTURE ST7 SCALE <20 12 5> ROTATE <0 0 -40> PHONG 1.0 END_TEXTURE
- BOUNDED_BY INTERSECTION Cube SCALE <24 24 12> TRANSLATE <-19 22 0>
- END_INTERSECTION
- END_BOUND
- END_OBJECT
-
-
- {----------APEX ARCH MOLDING -------------------}
- #declare APEX = OBJECT
- DIFFERENCE
- UNION
- QUADRIC Cylinder_Z SCALE <9.375 9.375 1> TRANSLATE <-5 0 0> END_QUADRIC
- QUADRIC Cylinder_Z SCALE <9.375 9.375 1> TRANSLATE <5 0 0> END_QUADRIC
- END_UNION
- QUADRIC Cylinder_Z SCALE <5 5 1> TRANSLATE <-5 0 0> END_QUADRIC
- QUADRIC Cylinder_Z SCALE <5 5 1> TRANSLATE <5 0 0> END_QUADRIC
- PLANE <0 0 -1> 5 INVERSE END_PLANE
- PLANE <0 0 -1> -5 END_PLANE
- PLANE <-1 0 0> -5 END_PLANE
- PLANE <1 0 0> -5 END_PLANE
-
- END_DIFFERENCE
- TEXTURE STONE4 END_TEXTURE
- BOUNDED_BY INTERSECTION Cube SCALE <12 12 12> TRANSLATE <0 0 0>
- END_INTERSECTION
- END_BOUND
- END_OBJECT
-
-
- {----------SMALL ARCH MOLDING -------------------}
- #declare S_ARCH = OBJECT L_ARCH SCALE <0.625 0.625 0.9> END_OBJECT
-
- #declare UPPER_WALL = OBJECT
- UNION
- DIFFERENCE
- INTERSECTION Cube SCALE <55 25 4.5> TRANSLATE <0 25 -4.5> END_INTERSECTION
- QUADRIC Cylinder_Z SCALE <42 40 1> END_QUADRIC
- END_DIFFERENCE
- DIFFERENCE
- INTERSECTION Cube SCALE <68 25 4.5> TRANSLATE <0 25 4.5> END_INTERSECTION
- QUADRIC Cylinder_Z SCALE <28 25 1> END_QUADRIC
- END_DIFFERENCE
- END_UNION
- TEXTURE ST6 SCALE <20 30 2> AMBIENT 0.2 DIFFUSE 0.3 END_TEXTURE
- TEXTURE ST7 SCALE <20 30 2> ROTATE <0 0 -50> DIFFUSE 0.4 END_TEXTURE
- TEXTURE ST13 SCALE <80 90 4> ROTATE <0 0 30> DIFFUSE 0.4 END_TEXTURE
- TEXTURE COLOR SeaGreen ALPHA 0.8 DIFFUSE 0.4 END_TEXTURE
- TEXTURE ST11 SCALE <75 60 3> ROTATE <0 0 -50> DIFFUSE 0.5 PHONG 1.0 END_TEXTURE
- BOUNDED_BY
- INTERSECTION Cube SCALE <70 30 10> TRANSLATE <0 28 0> END_INTERSECTION
- END_BOUND
- END_OBJECT
-
-
- #declare {--------------MAKE WEDGE---------------}
- WEDGE = INTERSECTION
- PLANE <0 0 1> 1.0 END_PLANE
- PLANE <0 0 -1> 1.0 END_PLANE
- PLANE <0 1 0> 1.0 END_PLANE
- PLANE <0 -1 0> 1.0 END_PLANE
- PLANE <1 0 0> 1.0 ROTATE <0 0 -20> END_PLANE
- PLANE <-1 0 0> 1.0 ROTATE <0 0 20> END_PLANE
- SCALE <1 1 1>
- END_INTERSECTION
-
- #declare
- WEDGE2 = OBJECT {----------WEDGE GROUP--------------}
- UNION
- INTERSECTION WEDGE SCALE <10 11 14> TRANSLATE <0 0 2> END_INTERSECTION
- INTERSECTION WEDGE SCALE <20 7.5 12> TRANSLATE <0 -2 2> END_INTERSECTION
- END_UNION
- TEXTURE ST6 SCALE <5 4 3> AMBIENT 0.2 DIFFUSE 0.8 END_TEXTURE
- TEXTURE ST7 SCALE <7 3 5> ROTATE <0 0 -40> PHONG 1.0 END_TEXTURE
- END_OBJECT
-
-
- #declare WEDGE_KEY = OBJECT WEDGE2 SCALE <0.4 0.75 0.5> END_OBJECT
-
- {------------------ STATION TOP --------------------------}
- #declare S_ROOF = OBJECT
- INTERSECTION Cube SCALE <72 3 200> TRANSLATE <0 158 185> END_INTERSECTION
- TEXTURE STONE4 END_TEXTURE
- END_OBJECT
-
-
- {--------- INSIDE WALLS -------------------}
- #declare INNER_WALL = OBJECT
- INTERSECTION Cube SCALE <10 300 200> END_INTERSECTION
- TEXTURE STONE2 END_TEXTURE
- END_OBJECT
-
-
- {----------BUILD THE STATION WALL----------}
- #declare ST_W = COMPOSITE
- OBJECT S_ROOF END_OBJECT
- COMPOSITE LOWER_WALL TRANSLATE <-47 0 0> END_COMPOSITE
- COMPOSITE LOWER_WALL TRANSLATE <47 0 0> END_COMPOSITE
- OBJECT L_ARCH TRANSLATE <-5 102 -10> END_OBJECT
- OBJECT S_ARCH TRANSLATE <-5 100 2> END_OBJECT
- OBJECT L_ARCH ROTATE <0 180 0> TRANSLATE <5 102 -10> END_OBJECT
- OBJECT S_ARCH ROTATE <0 180 0> TRANSLATE <5 100 2> END_OBJECT
- //OBJECT APEX TRANSLATE <0 132 0> END_OBJECT
- OBJECT UPPER_WALL TRANSLATE <0 100 0> END_OBJECT
- OBJECT WEDGE_KEY TRANSLATE <0 140 -11> END_OBJECT
- OBJECT WEDGE_KEY SCALE <0.8 0.8 0.8> TRANSLATE <0 125 -4> END_OBJECT
-
- OBJECT WALL_BASE SCALE <1 0.5 1> ROTATE <0 0 180> ROTATE <0 180 0>
- TRANSLATE <-47 155 0> END_OBJECT
-
- OBJECT WALL_BASE SCALE <1 0.5 1> ROTATE <0 0 180> ROTATE <0 180 0>
- TRANSLATE <47 155 0> END_OBJECT
-
- BOUNDED_BY
- INTERSECTION Cube SCALE <95 93 18> TRANSLATE <0 90 0> END_INTERSECTION
- END_BOUND
- END_COMPOSITE
-
- {---------------- 2 WALLS TOGETHER ---------------------------}
- #declare STATION_WALL = COMPOSITE
- COMPOSITE ST_W END_COMPOSITE
- COMPOSITE ST_W TRANSLATE <136 0 0> END_COMPOSITE
- END_COMPOSITE
-
-
- {------------------ BUILD THE STAIRS -------------------------}
-
- #declare SWALL_COL = TEXTURE
- ST6 AMBIENT 0.4 DIFFUSE 0.7 SCALE <40 50 2> ROTATE <0 0 -25> END_TEXTURE
- TEXTURE COLOR RED 0.40 GREEN 0.33 BLUE 0.33 ALPHA 0.3
- DIFFUSE 0.5 END_TEXTURE
- TEXTURE BUTT_CRACK SCALE <90 140 50> PHONG 1.0 END_TEXTURE
-
-
- {----------- STAIR WALLS ----------------------------}
- #declare S_WALL = OBJECT
- UNION
- DIFFERENCE
- INTERSECTION Cube SCALE <120 75 35> END_INTERSECTION
- PLANE <0 1 0> 0 ROTATE <0 0 32.5> TRANSLATE <0 22.5 0> INVERSE END_PLANE
- END_DIFFERENCE
- DIFFERENCE
- INTERSECTION Cube SCALE <120 105 20> TRANSLATE <0 50 0> END_INTERSECTION
- PLANE <0 1 0> 0 ROTATE <0 0 32.5> TRANSLATE <0 80 0> INVERSE END_PLANE
- END_DIFFERENCE
- INTERSECTION Cube SCALE <135 6 35> ROTATE <0 0 32.5> TRANSLATE <0 77 0> END_INTERSECTION
- END_UNION
- TEXTURE SWALL_COL END_TEXTURE
- BOUNDED_BY
- INTERSECTION Cube SCALE <130 120 40> TRANSLATE <0 45 0> END_INTERSECTION
- END_BOUND
- END_OBJECT
-
-
- #declare TRED = INTERSECTION Cube SCALE <35 5 210> END_INTERSECTION
- #declare RISER = INTERSECTION Cube SCALE <5 15 210> END_INTERSECTION
-
- {----------------- CORNER POST --------------------------------------}
- #declare FAT_POST = OBJECT
- UNION
- INTERSECTION Cube SCALE <30 60 30> TRANSLATE <0 0 0> END_INTERSECTION
- INTERSECTION Cube SCALE <35 10 35> TRANSLATE <0 -50 0> END_INTERSECTION
- INTERSECTION Cube SCALE <35 10 35> TRANSLATE <0 42 0> END_INTERSECTION
- END_UNION
- TEXTURE ST6 SCALE <25 20 3> AMBIENT 0.2 DIFFUSE 0.8 END_TEXTURE
- TEXTURE ST7 SCALE <20 17 5> ROTATE <0 0 -40> PHONG 1.0 END_TEXTURE
- BOUNDED_BY
- INTERSECTION Cube SCALE <40 70 40 > TRANSLATE <0 0 0> END_INTERSECTION
- END_BOUND
- END_OBJECT
-
- {------------------ MAKE VASE FOR POST -------------------------}
- #declare
- B_VASE = INTERSECTION {----------------BOTTOM OF VASE----------}
- DIFFERENCE
- UNION
- QUADRIC QSphere SCALE <12 20 22> END_QUADRIC
- QUADRIC QSphere SCALE <12 20 22> ROTATE <0 45 0> END_QUADRIC
- QUADRIC QSphere SCALE <12 20 22> ROTATE <0 90 0> END_QUADRIC
- QUADRIC QSphere SCALE <12 20 22> ROTATE <0 135 0> END_QUADRIC
- END_UNION
- PLANE <0 -1 0> 0.2 END_PLANE
- END_DIFFERENCE
- END_INTERSECTION
-
- #declare
- T_VASE = UNION {------------------TOP OF VASE--------}
- UNION
- QUADRIC QSphere SCALE <13 5 13> TRANSLATE <0 0 0> END_QUADRIC
- QUADRIC QSphere SCALE <6 10 6> TRANSLATE <0 6 0> END_QUADRIC
- END_UNION
- END_INTERSECTION
-
- #declare {-----------JOIN TOP & BOTTOM OF VASE -----------}
- VASE = OBJECT
- UNION
- INTERSECTION B_VASE END_INTERSECTION
- INTERSECTION T_VASE END_INTERSECTION
- END_UNION
- TEXTURE ST3 SCALE <18 10 1> DIFFUSE 0.5 END_TEXTURE
- TEXTURE ST2 SCALE <20 20 3> AMBIENT 0.2 ROTATE <0 0 35> PHONG 1.0 PHONGSIZE 50 END_TEXTURE
- BOUNDED_BY
- INTERSECTION Cube SCALE <30 30 30 >END_INTERSECTION
- END_BOUND
- SCALE <1.5 1.5 1.5>
- END_OBJECT
-
-
-
- #declare STEP_COL = TEXTURE
- ST6 AMBIENT 0.3 DIFFUSE 0.8 SCALE <40 50 2> ROTATE <0 0 -25> END_TEXTURE
- TEXTURE COLOR RED 0.46 GREEN 0.33 BLUE 0.33 ALPHA 0.5
- DIFFUSE 0.5 END_TEXTURE
- TEXTURE BUTT_CRACK SCALE <52 80 90> PHONG 1.0 REFLECTION 0.2 END_TEXTURE
-
-
- {-------------------- STEPS -----------------------------------------}
- #declare STAIR = OBJECT
- UNION
- INTERSECTION RISER TRANSLATE <-65 -60 0> END_INTERSECTION
- INTERSECTION TRED TRANSLATE <-45 -40 0> END_INTERSECTION
- INTERSECTION RISER TRANSLATE <-5 -30 0> END_INTERSECTION
- INTERSECTION TRED TRANSLATE <15 -10 0> END_INTERSECTION
- INTERSECTION RISER TRANSLATE <55 0 0> END_INTERSECTION
- INTERSECTION TRED TRANSLATE <75 20 0> END_INTERSECTION
- END_UNION
- TEXTURE STEP_COL END_TEXTURE
- BOUNDED_BY
- INTERSECTION Cube SCALE <110 60 240> TRANSLATE <15 -25 0> END_INTERSECTION
- END_BOUND
- END_OBJECT
-
- {------------- STEPS, STEP WALLS, & CORNER POSTS ----------------------}
- #declare STEPS = COMPOSITE
-
- OBJECT S_WALL TRANSLATE <0 0 -240> END_OBJECT
- OBJECT S_WALL TRANSLATE <0 0 240> END_OBJECT
- OBJECT STAIR TRANSLATE <0 0 0> END_OBJECT
- OBJECT FAT_POST TRANSLATE <140 115 240> END_OBJECT
- OBJECT FAT_POST TRANSLATE <140 115 -240> END_OBJECT
- BOUNDED_BY
- INTERSECTION Cube SCALE <160 140 290> TRANSLATE <30 55 0> END_INTERSECTION
- END_BOUND
- END_COMPOSITE
-
- {-------------- CHECKER FLOOR TEXTURES ---------------------}
- #declare T1 = TEXTURE
- ST6 AMBIENT 0.2 DIFFUSE 0.4 SCALE <2.5 2.3 0.3> ROTATE <0 0 40> END_TEXTURE
-
- #declare T2 = TEXTURE
- ST6 AMBIENT 0.4 DIFFUSE 0.7 SCALE <2.3 3.5 0.3> ROTATE <0 0 -25> END_TEXTURE
-
-
- {------------------- MARBLE FLOOR ----------------------}
- #declare MFLOOR = OBJECT
- INTERSECTION Cube SCALE <1470 1510 5> END_INTERSECTION
- TEXTURE
- CHECKER_TEXTURE TEXTURE T1 END_TEXTURE
- TILE2
- TEXTURE T2 END_TEXTURE
- END_CHECKER_TEXTURE
- SCALE <50 50 2>
- END_TEXTURE
- TEXTURE CHECKER COLOR DimGray ALPHA 0.3 COLOR DimGray ALPHA 0.5
- SCALE <105 107.8 2> PHONG 1.0 REFLECTION 0.3 END_TEXTURE
- ROTATE <90 0 0> TRANSLATE <1000 0 1000>
- END_OBJECT
-
-
-
- {------------------ FLOOR BASE -------------------------}
- #declare FLOOR_BASE = OBJECT
- INTERSECTION Cube SCALE <1450 200 1490> TRANSLATE <1000 -200 1000> END_INTERSECTION
- TEXTURE ST3 SCALE <300 60 20> DIFFUSE 0.5 END_TEXTURE
- TEXTURE ST2 SCALE <500 90 60> AMBIENT 0.2 ROTATE <0 0 35> END_TEXTURE
- TEXTURE COLOR DimGray ALPHA 0.4 PHONG 1.0 PHONGSIZE 50 END_TEXTURE
- END_OBJECT
-
- {------------------ FLOOR TRIM -------------------------}
- #declare FLOOR_TRIM = OBJECT
- INTERSECTION Cube SCALE <465 20 20> TRANSLATE <0 -25 -488> END_INTERSECTION
- TEXTURE ST3 SCALE <190 30 20> DIFFUSE 0.5 END_TEXTURE
- TEXTURE ST2 SCALE <300 40 60> AMBIENT 0.2 ROTATE <0 0 35> PHONG 1.0 PHONGSIZE 50 END_TEXTURE
- END_OBJECT
-
-
- {----------------- MAKE CROSS RAIL -------------------------}
-
- {---------- CROSS ----------------}
- #declare CROSS = OBJECT
- UNION
- QUADRIC Cylinder_Y SCALE <2.5 80 2.5> TRANSLATE <0 -40 0> ROTATE <0 0 45> END_QUADRIC
- QUADRIC Cylinder_Y SCALE <2.5 80 2.5> TRANSLATE <0 -40 0> ROTATE <0 0 -45> END_QUADRIC
- QUADRIC Cylinder_Y SCALE <2.5 50 2.5> TRANSLATE <25 -25 0> ROTATE <0 0 0> END_QUADRIC
- QUADRIC Cylinder_Y SCALE <2.5 50 2.5> TRANSLATE <-25 -25 0> ROTATE <0 0 0> END_QUADRIC
- END_UNION
- TEXTURE BRASS END_TEXTURE
- CLIPPED_BY INTERSECTION Cube SCALE <30 25 3> END_INTERSECTION END_CLIP
- BOUNDED_BY INTERSECTION Cube SCALE <30 25 3> END_INTERSECTION END_BOUND
- END_OBJECT
-
- #declare HOR_RAIL = OBJECT
- QUADRIC Cylinder_X SCALE <480 3 4> TRANSLATE <-240 0 0> END_QUADRIC
- TEXTURE
- BRASS END_TEXTURE
- END_OBJECT
-
- #declare CROSS_RAIL = COMPOSITE
- OBJECT CROSS TRANSLATE <-175 0 0> END_OBJECT
- OBJECT CROSS TRANSLATE <-105 0 0> END_OBJECT
- OBJECT CROSS TRANSLATE <-35 0 0> END_OBJECT
- OBJECT CROSS TRANSLATE <35 0 0> END_OBJECT
- OBJECT CROSS TRANSLATE <105 0 0> END_OBJECT
- OBJECT CROSS TRANSLATE <175 0 0> END_OBJECT
-
- OBJECT HOR_RAIL TRANSLATE <0 25 0> END_OBJECT
- OBJECT HOR_RAIL TRANSLATE <0 -25 0> END_OBJECT
- BOUNDED_BY
- INTERSECTION Cube SCALE <245 60 5> END_INTERSECTION
- END_BOUND
- SCALE <1 1.22 1>
- END_COMPOSITE
-
-
- {--------------- BUILD BRIDGE SECTION ------------------------------}
- #declare BRIDGE = OBJECT
- DIFFERENCE
- UNION
- INTERSECTION Cube SCALE <200 160 100> END_INTERSECTION
- INTERSECTION Cube SCALE <200 10 110> TRANSLATE <0 135 0> END_INTERSECTION
- END_UNION
- QUADRIC Cylinder_Z SCALE <60 60 1> TRANSLATE <-100 50 0> END_QUADRIC
- QUADRIC Cylinder_Z SCALE <60 60 1> TRANSLATE <100 50 0> END_QUADRIC
- INTERSECTION Cube SCALE <60 120 160> TRANSLATE <-100 -70 0> END_INTERSECTION
- INTERSECTION Cube SCALE <60 120 160> TRANSLATE <100 -70 0> END_INTERSECTION
- END_DIFFERENCE
- TEXTURE ST3 SCALE <100 60 20> DIFFUSE 0.5 END_TEXTURE
- TEXTURE ST2 SCALE <200 90 60> AMBIENT 0.2 ROTATE <0 0 35> END_TEXTURE
- TEXTURE COLOR DimGray ALPHA 0.6 AMBIENT 0.2 PHONG 1.0 PHONGSIZE 30 END_TEXTURE
- BOUNDED_BY
- INTERSECTION Cube SCALE <201 161 121> END_INTERSECTION
- END_BOUND
- SCALE <2 2 2.2>
- END_OBJECT
-
-
- {------------ TOP OF BRIDGE -----------------}
- #declare BR_BASE = OBJECT
- INTERSECTION Cube SCALE <3000 10 130> END_INTERSECTION
- TEXTURE COLOR DimGray 0.05 AMBIENT 0.2 DIFFUSE 0.5 END_TEXTURE
- END_OBJECT
-
- {------------ SILVER RAILS -----------------}
- #declare S_RAILS = OBJECT
- UNION
- INTERSECTION Cube SCALE <3000 10 10> TRANSLATE <0 10 -100> END_INTERSECTION
- INTERSECTION Cube SCALE <3000 10 10> TRANSLATE <0 10 100> END_INTERSECTION
- END_UNION
- TEXTURE SILVER END_TEXTURE
- END_OBJECT
-
- #declare TRACKS = COMPOSITE
- OBJECT BR_BASE END_OBJECT
- OBJECT S_RAILS END_OBJECT
- BOUNDED_BY
- INTERSECTION Cube SCALE <3000 20 135> END_INTERSECTION
- END_BOUND
- END_COMPOSITE
-
-
- {---------- RELECTION PLANE FOR LOWER BRIDGE --------}
- OBJECT PLANE <0 1 0> -320 END_PLANE
- TEXTURE COLOR Black REFLECTION 0.9 END_TEXTURE
- END_OBJECT
-
-
- {-------------------------- THE SCENE -----------------------------}
-
- #declare SCENE = COMPOSITE
-
-
- OBJECT S_ROOF SCALE <4 4 4> END_OBJECT
- OBJECT MFLOOR TRANSLATE <0 0 0> END_OBJECT
- OBJECT FLOOR_BASE END_OBJECT
- COMPOSITE STEPS ROTATE <0 -90 0> TRANSLATE <300 -50 -610> END_COMPOSITE
-
- COMPOSITE STATION_WALL SCALE <4 4 4> TRANSLATE <0 4.5 0> END_COMPOSITE
- COMPOSITE STATION_WALL SCALE <4 4 4> TRANSLATE <-30 4.5 1600 > END_COMPOSITE
- OBJECT FLOOR_TRIM END_OBJECT
-
- COMPOSITE CROSS_RAIL TRANSLATE <-162 60 -470> END_COMPOSITE
- COMPOSITE CROSS_RAIL ROTATE <0 90 0> TRANSLATE <-430 60 -220 > END_COMPOSITE
- COMPOSITE CROSS_RAIL ROTATE <0 90 0> TRANSLATE <-430 60 270 > END_COMPOSITE
- COMPOSITE CROSS_RAIL TRANSLATE <810 60 -470> END_COMPOSITE
-
- OBJECT FAT_POST TRANSLATE <-430 60 -470> END_OBJECT
- OBJECT FAT_POST TRANSLATE <-430 60 25> END_OBJECT
- OBJECT FAT_POST TRANSLATE <60 -65 -760> END_OBJECT
- OBJECT FAT_POST TRANSLATE <-430 60 515> END_OBJECT
-
- OBJECT VASE TRANSLATE <-430 150 -470> END_OBJECT
- OBJECT VASE TRANSLATE <-430 150 25> END_OBJECT
- OBJECT VASE TRANSLATE <60 25 -760> END_OBJECT
- OBJECT VASE TRANSLATE <60 150 -470> END_OBJECT
- OBJECT VASE TRANSLATE <540 150 -470> END_OBJECT
- OBJECT VASE TRANSLATE <-430 150 515> END_OBJECT
-
- OBJECT BRIDGE TRANSLATE <-870 -320 800> END_OBJECT
- OBJECT BRIDGE TRANSLATE <-1670 -320 800> END_OBJECT
- OBJECT BRIDGE TRANSLATE <-2470 -320 800> END_OBJECT
- OBJECT BRIDGE TRANSLATE <-3270 -320 800> END_OBJECT
-
- COMPOSITE TRACKS TRANSLATE <-1000 0 800> END_COMPOSITE
- COMPOSITE TRAIN SCALE <2 2 2> {ROTATE <0 180 0>} TRANSLATE <-1170 20 800> END_COMPOSITE
-
- ROTATE <0 35 0>
- END_COMPOSITE
-
- COMPOSITE SCENE END_COMPOSITE
-
- {------------- ******************************************** -----------}
-
-
- COMPOSITE PLANT1 SCALE <13 13 13> TRANSLATE <-400 -15 -550> END_COMPOSITE
-
-
-
- {-------------- WORLD -----------------------------------}
-
-
-
- DECLARE Zenith = COLOUR RED 0.00 GREEN 0.00 BLUE 0.93
- DECLARE MidSky = COLOUR RED 0.55 GREEN 0.55 BLUE 1.00
- DECLARE HighHorizon = COLOUR RED 0.73 GREEN 0.73 BLUE 0.98
- DECLARE GroundColor = COLOUR ForestGreen
- DECLARE Rose = COLOUR RED 0.96 GREEN 0.59 BLUE 0.66
- DECLARE LowHorizon = COLOUR CadetBlue
-
- DECLARE Clouds1 = TEXTURE
- TURBULENCE 0.6
- BOZO
- COLOUR_MAP
- [0.0 0.5 COLOUR White ALPHA 1.0 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0 ALPHA 1.0]
- [0.5 0.8 COLOUR White ALPHA 0.5 COLOUR Rose]
- [0.8 1.001 COLOUR Rose COLOUR DimGray ]
- END_COLOUR_MAP
- SCALE <1 0.7 1>
- END_TEXTURE
-
- #declare WORLD = COMPOSITE
- { -----------------Sky sphere------------------------------------- }
- OBJECT
- QUADRIC QSphere SCALE <6000 6000 12000> END_QUADRIC
- TEXTURE
- GRADIENT <0 1 0>
- COLOR_MAP
- [0.0 0.10 COLOR LowHorizon COLOR HighHorizon]
- [0.10 0.15 COLOR HighHorizon COLOR HighHorizon]
- [0.15 0.70 COLOR HighHorizon COLOR MidSky]
- [0.70 0.9 COLOR MidSky COLOR Zenith]
- [0.9 1.01 COLOR Zenith COLOR LowHorizon]
-
- END_COLOR_MAP
- AMBIENT 0.6 DIFFUSE 0.2
- SCALE <6000 6000 1600> TRANSLATE <0 0 0>
- END_TEXTURE
- TEXTURE Clouds1 SCALE <3000 1050 4050> AMBIENT 0.6 DIFFUSE 0.3 END_TEXTURE
- TRANSLATE <0 0 400>
- END_OBJECT
-
- OBJECT Quadric QSphere SCALE <6000 6000 12000> END_QUADRIC
- TEXTURE COLOR Black AMBIENT 0.8 DIFFUSE 0.0 END_TEXTURE
- END_OBJECT
-
- ROTATE <0 35 0>
- END_COMPOSITE
-
- COMPOSITE WORLD END_COMPOSITE
-
- {8888888888888888888888888888888888888888888888888888888888888}
-
-
- {---------------------BACKDROP---------------------------------}
- {------MULTI TEXTURE - Gif W/Gradation Color Tint--------------}
-
- OBJECT INTERSECTION Cube SCALE <2000 1500 1> END_INTERSECTION
-
- TEXTURE
- IMAGEMAP <1.0 -1.0 0> gif "sky1.gif" END_MAP
- SCALE <4000 3000 2> TRANSLATE <-2000 -500 -2> AMBIENT 1.0 DIFFUSE 0.0
- END_TEXTURE
-
-
- TEXTURE
- GRADIENT <0 1 0>
- COLOR_MAP
- [0.0 0.3 COLOR Salmon COLOR BlueViolet ALPHA 0.3]
- [0.3 0.8 COLOR BlueViolet ALPHA 0.3 COLOR Black ALPHA 0.2]
- [0.8 1.0 COLOR Black ALPHA 0.2 COLOR Black ALPHA 0]
- END_COLOR_MAP
- SCALE <4000 3000 1>
- TRANSLATE <0 -1500 0>
-
- AMBIENT 1.0
- DIFFUSE 0.0
-
- END_TEXTURE
-
-
- SCALE <1 1 1>
- TRANSLATE <0 -600 2700>
- END_OBJECT
-
-
- //-------END
-
-
-
-