home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / station3 / station.dat < prev    next >
Encoding:
Text File  |  1992-01-22  |  20.7 KB  |  627 lines

  1. //------------------------ TRAIN STATION     M.MILLER 1/15/91
  2. //-------------------------Rendered in about 40 Hours +a0.1 on a 486 /33
  3.  
  4.  
  5. INCLUDE "stat.inc"
  6. INCLUDE "toytrain.inc"
  7. INCLUDE "marb.inc"
  8. INCLUDE "turn16-x.inc"
  9. INCLUDE "plant.inc"
  10.  
  11. VIEW_POINT
  12. LOCATION <-80 450 -1550>
  13. DIRECTION <0 0 1.6>
  14. UP <0 1 0>
  15. RIGHT <1.333 0 0>
  16. LOOK_AT <-80 140 0>
  17. END_VIEW_POINT
  18.  
  19. {-----------LIGHTS-------------------------------}
  20. OBJECT LIGHT TRANSLATE <2000 300 -1800> END_OBJECT
  21. OBJECT LIGHT TRANSLATE <100 1000 -1000> END_OBJECT
  22.  
  23. {------------- ROTATE IONIC TURN --------------------------}
  24. #declare TURN = COMPOSITE turn16 SCALE <1 6 1> END_COMPOSITE
  25.  
  26. {---------------BUILD THE IONIC-16 CAPITAL-----------------------------}
  27. #declare T16 = COMPOSITE
  28.  
  29. OBJECT UNION //----------CAPITAL BELLY
  30. INTERSECTION Y_Disk SCALE <8.5 2 8.5> TRANSLATE <0 0 0> END_INTERSECTION
  31. INTERSECTION Y_Disk SCALE <9 12 9> TRANSLATE <0 2 0> END_INTERSECTION
  32. INTERSECTION Z_Disk SCALE <4.5 4.8 12> TRANSLATE <-8.5 9.3 -10> END_INTERSECTION
  33. INTERSECTION Z_Disk SCALE <4.5 4.8 12> TRANSLATE <8.5 9.3 -10> END_INTERSECTION
  34. QUADRIC QSphere SCALE <11 1 11> TRANSLATE <0 8 0> END_QUADRIC
  35. END_UNION
  36. TEXTURE STONE4 END_TEXTURE
  37. BOUNDED_BY INTERSECTION Y_Disk SCALE <17 15 17> TRANSLATE <0 -0.5 -2> END_INTERSECTION 
  38. END_BOUND
  39. END_OBJECT
  40.  
  41. COMPOSITE TURN ROTATE <90 0 0> ROTATE <0 0 90> TRANSLATE <-8 9 -9> END_COMPOSITE
  42. COMPOSITE TURN ROTATE <90 0 0> ROTATE <0 0 90> ROTATE <0 180 0> TRANSLATE <8 9 -9> END_COMPOSITE
  43.  
  44. OBJECT 
  45. INTERSECTION X_Disk SCALE <16 0.5 3> TRANSLATE <-8 13.5 -9> END_INTERSECTION
  46. TEXTURE STONE4 END_TEXTURE
  47. END_OBJECT
  48. BOUNDED_BY INTERSECTION Y_Disk SCALE <22 16 22> TRANSLATE <0 -1 -2> END_INTERSECTION 
  49. END_BOUND
  50. END_COMPOSITE
  51.  
  52.  
  53. {----------WALL BASE----------}
  54.  
  55. #declare WALL_BASE = OBJECT
  56. UNION
  57. INTERSECTION Cube SCALE <24 3 6> TRANSLATE <0 3 0> END_INTERSECTION
  58. INTERSECTION Cube SCALE <10 3 16> TRANSLATE <0 3 0> END_INTERSECTION
  59. INTERSECTION Cube SCALE <23 5 5> TRANSLATE <0 11 0> END_INTERSECTION
  60. INTERSECTION Cube SCALE <9 5 15> TRANSLATE <0 11 0> END_INTERSECTION
  61. INTERSECTION Y_Disk SCALE <8.5 4 8.5> TRANSLATE <0 16 -6> END_INTERSECTION
  62. END_UNION
  63. TEXTURE ST6 SCALE <15 4 3> AMBIENT 0.2 DIFFUSE 0.8 END_TEXTURE
  64. TEXTURE ST7 SCALE <20 12 5> ROTATE <0 0 -40> PHONG 1.0 END_TEXTURE
  65. BOUNDED_BY
  66. INTERSECTION Cube SCALE <25 11 17> TRANSLATE <0 12 0> END_INTERSECTION
  67. END_BOUND
  68. END_OBJECT
  69.  
  70. {------------- CREAM ROSE COLUMN-----------------}
  71. #declare COLUM16 = OBJECT
  72. INTERSECTION Y_Disk SCALE <8 58 8> END_INTERSECTION
  73. TEXTURE ST3 SCALE <6 10 1> DIFFUSE 0.5 END_TEXTURE
  74. TEXTURE ST2 SCALE <15 20 3> AMBIENT 0.2 ROTATE <0 0 35> PHONG 1.0 PHONGSIZE 50 END_TEXTURE
  75. END_OBJECT
  76.  
  77. #declare WALL16 = OBJECT
  78. INTERSECTION Cube SCALE <22 39 4> END_INTERSECTION
  79. TEXTURE ST6 SCALE <8 8 2> AMBIENT 0.2 DIFFUSE 0.4 END_TEXTURE
  80. TEXTURE ST7 SCALE <10 7 2> ROTATE <0 0 -50>  DIFFUSE 0.4 END_TEXTURE
  81. TEXTURE ST13 SCALE <45 70 4> ROTATE <0 0 30> DIFFUSE 0.5 END_TEXTURE
  82. TEXTURE COLOR SeaGreen ALPHA 0.8 DIFFUSE 0.5 END_TEXTURE
  83. TEXTURE ST11 SCALE <45 50 3> ROTATE <0 0 -50> DIFFUSE 0.5 PHONG 1.0 END_TEXTURE
  84. END_OBJECT
  85.  
  86. {----------MAKE WALL WITH MODING & COLUMN----------}
  87. #declare LOWER_WALL = COMPOSITE
  88. OBJECT WALL_BASE TRANSLATE <0 0 0> END_OBJECT
  89. OBJECT WALL_BASE SCALE <1 0.5 1> ROTATE <0 0 180> TRANSLATE <0 100 0> END_OBJECT
  90. COMPOSITE T16 TRANSLATE <0 78 -6> END_COMPOSITE
  91. OBJECT COLUM16 TRANSLATE <0 20 -6> END_OBJECT
  92. OBJECT WALL16 TRANSLATE <0 54 0> END_OBJECT
  93. BOUNDED_BY
  94. INTERSECTION Cube SCALE <25 55 18> TRANSLATE <0 54 0> END_INTERSECTION
  95. END_BOUND
  96. END_COMPOSITE
  97.  
  98.  
  99. {----------LARGE ARCH MOLDING -------------------}
  100. #declare L_ARCH = OBJECT
  101. DIFFERENCE
  102. QUADRIC Cylinder_Z SCALE <40 40 1> END_QUADRIC
  103. QUADRIC Cylinder_Z SCALE <33 33 1> END_QUADRIC
  104. PLANE <0 0 -1> 5 INVERSE END_PLANE
  105. PLANE <0 0 -1> -5 END_PLANE
  106. PLANE <-1 0 0> 0 END_PLANE
  107. END_DIFFERENCE
  108. TEXTURE ST6 SCALE <15 4 3> AMBIENT 0.2 DIFFUSE 0.8 END_TEXTURE
  109. TEXTURE ST7 SCALE <20 12 5> ROTATE <0 0 -40> PHONG 1.0 END_TEXTURE
  110. BOUNDED_BY INTERSECTION Cube SCALE <24 24 12> TRANSLATE <-19 22 0> 
  111. END_INTERSECTION 
  112. END_BOUND
  113. END_OBJECT
  114.  
  115.  
  116. {----------APEX ARCH MOLDING -------------------}
  117. #declare APEX = OBJECT
  118. DIFFERENCE
  119. UNION
  120. QUADRIC Cylinder_Z SCALE <9.375 9.375 1> TRANSLATE <-5 0 0> END_QUADRIC
  121. QUADRIC Cylinder_Z SCALE <9.375 9.375 1> TRANSLATE <5 0 0> END_QUADRIC
  122. END_UNION
  123. QUADRIC Cylinder_Z SCALE <5 5  1> TRANSLATE <-5 0 0> END_QUADRIC
  124. QUADRIC Cylinder_Z SCALE <5 5 1> TRANSLATE <5 0 0> END_QUADRIC
  125. PLANE <0 0 -1> 5 INVERSE END_PLANE
  126. PLANE <0 0 -1> -5 END_PLANE
  127. PLANE <-1 0 0> -5 END_PLANE
  128. PLANE <1 0 0> -5 END_PLANE
  129.  
  130. END_DIFFERENCE
  131. TEXTURE STONE4 END_TEXTURE
  132. BOUNDED_BY INTERSECTION Cube SCALE <12 12 12> TRANSLATE <0 0 0> 
  133. END_INTERSECTION 
  134. END_BOUND
  135. END_OBJECT
  136.  
  137.  
  138. {----------SMALL ARCH MOLDING -------------------}
  139. #declare S_ARCH = OBJECT L_ARCH SCALE <0.625 0.625 0.9> END_OBJECT
  140.  
  141. #declare UPPER_WALL = OBJECT
  142. UNION
  143. DIFFERENCE
  144. INTERSECTION Cube SCALE <55 25 4.5> TRANSLATE <0 25 -4.5> END_INTERSECTION
  145. QUADRIC Cylinder_Z SCALE <42 40 1> END_QUADRIC
  146. END_DIFFERENCE
  147. DIFFERENCE
  148. INTERSECTION Cube SCALE <68 25 4.5> TRANSLATE <0 25 4.5> END_INTERSECTION
  149. QUADRIC Cylinder_Z SCALE <28 25 1> END_QUADRIC
  150. END_DIFFERENCE
  151. END_UNION
  152. TEXTURE ST6 SCALE <20 30 2> AMBIENT 0.2 DIFFUSE 0.3 END_TEXTURE
  153. TEXTURE ST7 SCALE <20 30 2> ROTATE <0 0 -50>  DIFFUSE 0.4 END_TEXTURE
  154. TEXTURE ST13 SCALE <80 90 4> ROTATE <0 0 30> DIFFUSE 0.4 END_TEXTURE
  155. TEXTURE COLOR SeaGreen ALPHA 0.8 DIFFUSE 0.4 END_TEXTURE
  156. TEXTURE ST11 SCALE <75 60 3> ROTATE <0 0 -50> DIFFUSE 0.5 PHONG 1.0 END_TEXTURE
  157. BOUNDED_BY
  158. INTERSECTION Cube SCALE <70 30 10> TRANSLATE <0 28 0> END_INTERSECTION
  159. END_BOUND
  160. END_OBJECT
  161.  
  162.  
  163. #declare  {--------------MAKE WEDGE---------------}
  164. WEDGE = INTERSECTION
  165.   PLANE <0 0 1> 1.0 END_PLANE
  166.   PLANE <0 0 -1> 1.0 END_PLANE
  167.   PLANE <0 1 0> 1.0 END_PLANE
  168.   PLANE <0 -1 0> 1.0 END_PLANE
  169.   PLANE <1 0 0> 1.0   ROTATE <0 0 -20> END_PLANE
  170.   PLANE <-1 0 0> 1.0  ROTATE <0 0 20> END_PLANE
  171. SCALE <1 1 1>
  172. END_INTERSECTION
  173.  
  174. #declare
  175. WEDGE2 = OBJECT {----------WEDGE GROUP--------------}
  176. UNION
  177.   INTERSECTION WEDGE SCALE <10 11 14> TRANSLATE <0 0 2> END_INTERSECTION
  178.   INTERSECTION WEDGE SCALE <20 7.5 12> TRANSLATE <0 -2 2> END_INTERSECTION
  179. END_UNION
  180. TEXTURE ST6 SCALE <5 4 3> AMBIENT 0.2 DIFFUSE 0.8 END_TEXTURE
  181. TEXTURE ST7 SCALE <7 3 5> ROTATE <0 0 -40> PHONG 1.0 END_TEXTURE
  182. END_OBJECT
  183.  
  184.  
  185. #declare WEDGE_KEY = OBJECT WEDGE2 SCALE <0.4 0.75 0.5> END_OBJECT
  186.  
  187. {------------------ STATION TOP --------------------------}
  188. #declare S_ROOF = OBJECT
  189. INTERSECTION Cube SCALE <72 3 200> TRANSLATE <0 158 185> END_INTERSECTION
  190. TEXTURE STONE4 END_TEXTURE
  191. END_OBJECT
  192.  
  193.  
  194. {--------- INSIDE WALLS -------------------}
  195. #declare INNER_WALL = OBJECT
  196. INTERSECTION Cube SCALE <10 300 200> END_INTERSECTION
  197. TEXTURE STONE2 END_TEXTURE
  198. END_OBJECT
  199.  
  200.  
  201. {----------BUILD THE STATION WALL----------}
  202. #declare ST_W = COMPOSITE
  203. OBJECT S_ROOF END_OBJECT
  204. COMPOSITE LOWER_WALL TRANSLATE <-47 0 0> END_COMPOSITE
  205. COMPOSITE LOWER_WALL TRANSLATE <47 0 0> END_COMPOSITE
  206. OBJECT L_ARCH TRANSLATE <-5 102 -10> END_OBJECT
  207. OBJECT S_ARCH TRANSLATE <-5 100 2> END_OBJECT
  208. OBJECT L_ARCH ROTATE <0 180 0> TRANSLATE <5 102 -10> END_OBJECT
  209. OBJECT S_ARCH ROTATE <0 180 0> TRANSLATE <5 100 2> END_OBJECT
  210. //OBJECT APEX TRANSLATE <0 132 0> END_OBJECT
  211. OBJECT UPPER_WALL TRANSLATE <0 100 0> END_OBJECT
  212. OBJECT WEDGE_KEY TRANSLATE <0 140 -11> END_OBJECT
  213. OBJECT WEDGE_KEY SCALE <0.8 0.8 0.8> TRANSLATE <0 125 -4> END_OBJECT
  214.  
  215. OBJECT WALL_BASE SCALE <1 0.5 1> ROTATE <0 0 180> ROTATE <0 180 0> 
  216. TRANSLATE <-47 155 0> END_OBJECT
  217.  
  218. OBJECT WALL_BASE SCALE <1 0.5 1> ROTATE <0 0 180> ROTATE <0 180 0>
  219. TRANSLATE <47 155 0> END_OBJECT
  220.  
  221. BOUNDED_BY
  222. INTERSECTION Cube SCALE <95 93 18> TRANSLATE <0 90 0> END_INTERSECTION
  223. END_BOUND
  224. END_COMPOSITE
  225.  
  226. {---------------- 2 WALLS TOGETHER ---------------------------}
  227. #declare STATION_WALL = COMPOSITE
  228. COMPOSITE ST_W END_COMPOSITE
  229. COMPOSITE ST_W TRANSLATE <136 0 0> END_COMPOSITE
  230. END_COMPOSITE
  231.  
  232.  
  233. {------------------ BUILD THE STAIRS -------------------------}
  234.  
  235. #declare SWALL_COL = TEXTURE
  236. ST6 AMBIENT 0.4 DIFFUSE 0.7 SCALE <40 50 2> ROTATE <0 0 -25> END_TEXTURE
  237. TEXTURE COLOR RED 0.40 GREEN 0.33 BLUE 0.33 ALPHA 0.3  
  238. DIFFUSE 0.5 END_TEXTURE
  239. TEXTURE BUTT_CRACK SCALE <90 140 50> PHONG 1.0 END_TEXTURE
  240.  
  241.  
  242. {----------- STAIR WALLS ----------------------------}
  243. #declare S_WALL = OBJECT
  244. UNION
  245. DIFFERENCE
  246. INTERSECTION Cube SCALE <120 75 35> END_INTERSECTION
  247. PLANE <0 1 0> 0 ROTATE <0 0 32.5> TRANSLATE <0 22.5 0> INVERSE END_PLANE
  248. END_DIFFERENCE
  249. DIFFERENCE
  250. INTERSECTION Cube SCALE <120 105 20> TRANSLATE <0 50 0> END_INTERSECTION
  251. PLANE <0 1 0> 0 ROTATE <0 0 32.5> TRANSLATE <0 80 0> INVERSE END_PLANE
  252. END_DIFFERENCE
  253. INTERSECTION Cube SCALE <135 6 35> ROTATE <0 0 32.5> TRANSLATE <0 77 0> END_INTERSECTION
  254. END_UNION
  255. TEXTURE SWALL_COL END_TEXTURE
  256. BOUNDED_BY
  257. INTERSECTION Cube SCALE <130 120 40> TRANSLATE <0 45 0> END_INTERSECTION
  258. END_BOUND
  259. END_OBJECT
  260.  
  261.  
  262. #declare TRED = INTERSECTION Cube SCALE <35 5 210> END_INTERSECTION
  263. #declare RISER = INTERSECTION Cube SCALE <5 15 210> END_INTERSECTION
  264.  
  265. {----------------- CORNER POST --------------------------------------}
  266. #declare FAT_POST = OBJECT
  267. UNION
  268. INTERSECTION Cube SCALE <30 60 30> TRANSLATE <0 0 0> END_INTERSECTION
  269. INTERSECTION Cube SCALE <35 10 35> TRANSLATE <0 -50 0> END_INTERSECTION
  270. INTERSECTION Cube SCALE <35 10 35> TRANSLATE <0 42 0> END_INTERSECTION
  271. END_UNION
  272. TEXTURE ST6 SCALE <25 20 3> AMBIENT 0.2 DIFFUSE 0.8 END_TEXTURE
  273. TEXTURE ST7 SCALE <20 17 5> ROTATE <0 0 -40> PHONG 1.0 END_TEXTURE
  274. BOUNDED_BY 
  275. INTERSECTION Cube SCALE <40 70 40 > TRANSLATE <0 0 0> END_INTERSECTION
  276. END_BOUND
  277. END_OBJECT
  278.  
  279. {------------------ MAKE VASE FOR POST -------------------------}
  280. #declare 
  281. B_VASE = INTERSECTION  {----------------BOTTOM OF VASE----------}
  282. DIFFERENCE
  283.     UNION
  284.     QUADRIC QSphere SCALE <12 20 22> END_QUADRIC
  285.     QUADRIC QSphere SCALE <12 20 22> ROTATE <0 45 0> END_QUADRIC
  286.     QUADRIC QSphere SCALE <12 20 22> ROTATE <0 90 0> END_QUADRIC
  287.     QUADRIC QSphere SCALE <12 20 22> ROTATE <0 135 0> END_QUADRIC
  288. END_UNION
  289.     PLANE <0 -1 0> 0.2 END_PLANE
  290. END_DIFFERENCE
  291. END_INTERSECTION
  292.  
  293. #declare
  294. T_VASE = UNION   {------------------TOP OF VASE--------}
  295.     UNION
  296.     QUADRIC QSphere SCALE <13 5 13> TRANSLATE <0 0 0> END_QUADRIC
  297.     QUADRIC QSphere SCALE <6 10 6>  TRANSLATE <0 6 0> END_QUADRIC
  298.     END_UNION
  299.     END_INTERSECTION
  300.  
  301. #declare {-----------JOIN TOP & BOTTOM OF VASE -----------}
  302. VASE = OBJECT
  303. UNION
  304.     INTERSECTION B_VASE END_INTERSECTION
  305.     INTERSECTION T_VASE END_INTERSECTION   
  306. END_UNION
  307. TEXTURE ST3 SCALE <18 10 1> DIFFUSE 0.5 END_TEXTURE
  308. TEXTURE ST2 SCALE <20 20 3> AMBIENT 0.2 ROTATE <0 0 35> PHONG 1.0 PHONGSIZE 50 END_TEXTURE
  309. BOUNDED_BY 
  310. INTERSECTION Cube SCALE <30 30 30 >END_INTERSECTION
  311. END_BOUND
  312. SCALE <1.5 1.5 1.5>
  313. END_OBJECT
  314.  
  315.  
  316.  
  317. #declare STEP_COL = TEXTURE
  318. ST6 AMBIENT 0.3 DIFFUSE 0.8 SCALE <40 50 2> ROTATE <0 0 -25> END_TEXTURE
  319. TEXTURE COLOR RED 0.46 GREEN 0.33 BLUE 0.33 ALPHA 0.5  
  320. DIFFUSE 0.5 END_TEXTURE
  321. TEXTURE BUTT_CRACK SCALE <52 80 90> PHONG 1.0 REFLECTION 0.2 END_TEXTURE
  322.  
  323.  
  324. {-------------------- STEPS -----------------------------------------}
  325. #declare STAIR = OBJECT
  326. UNION
  327. INTERSECTION RISER TRANSLATE <-65 -60 0> END_INTERSECTION
  328. INTERSECTION TRED TRANSLATE <-45 -40 0> END_INTERSECTION
  329. INTERSECTION RISER TRANSLATE <-5 -30 0> END_INTERSECTION
  330. INTERSECTION TRED TRANSLATE <15 -10 0> END_INTERSECTION
  331. INTERSECTION RISER TRANSLATE <55 0 0> END_INTERSECTION
  332. INTERSECTION TRED TRANSLATE <75 20 0> END_INTERSECTION
  333. END_UNION
  334. TEXTURE STEP_COL END_TEXTURE 
  335. BOUNDED_BY 
  336. INTERSECTION Cube SCALE <110 60 240> TRANSLATE <15 -25 0> END_INTERSECTION
  337. END_BOUND
  338. END_OBJECT
  339.  
  340. {------------- STEPS, STEP WALLS, & CORNER POSTS ----------------------}
  341. #declare STEPS = COMPOSITE
  342.  
  343. OBJECT S_WALL TRANSLATE <0 0 -240> END_OBJECT
  344. OBJECT S_WALL TRANSLATE <0 0 240> END_OBJECT
  345. OBJECT STAIR TRANSLATE <0 0 0> END_OBJECT
  346. OBJECT FAT_POST TRANSLATE <140 115 240> END_OBJECT
  347. OBJECT FAT_POST TRANSLATE <140 115 -240> END_OBJECT
  348. BOUNDED_BY 
  349. INTERSECTION Cube SCALE <160 140 290> TRANSLATE <30 55 0> END_INTERSECTION
  350. END_BOUND
  351. END_COMPOSITE
  352.  
  353. {-------------- CHECKER FLOOR TEXTURES ---------------------}
  354. #declare T1 = TEXTURE
  355. ST6 AMBIENT 0.2 DIFFUSE 0.4 SCALE <2.5 2.3 0.3> ROTATE <0 0 40> END_TEXTURE
  356.  
  357. #declare T2 = TEXTURE
  358. ST6 AMBIENT 0.4 DIFFUSE 0.7 SCALE <2.3 3.5 0.3> ROTATE <0 0 -25> END_TEXTURE
  359.  
  360.  
  361. {------------------- MARBLE FLOOR ----------------------}
  362. #declare MFLOOR = OBJECT
  363. INTERSECTION Cube SCALE <1470 1510 5> END_INTERSECTION
  364. TEXTURE 
  365. CHECKER_TEXTURE TEXTURE T1 END_TEXTURE 
  366. TILE2
  367. TEXTURE T2  END_TEXTURE 
  368. END_CHECKER_TEXTURE
  369. SCALE <50 50 2> 
  370. END_TEXTURE
  371. TEXTURE CHECKER COLOR DimGray ALPHA 0.3 COLOR DimGray ALPHA 0.5
  372. SCALE <105 107.8 2> PHONG 1.0 REFLECTION 0.3 END_TEXTURE
  373. ROTATE <90 0 0> TRANSLATE <1000 0 1000> 
  374. END_OBJECT
  375.  
  376.  
  377.  
  378. {------------------ FLOOR BASE -------------------------}
  379. #declare FLOOR_BASE = OBJECT
  380. INTERSECTION Cube SCALE <1450 200 1490> TRANSLATE <1000 -200 1000> END_INTERSECTION
  381. TEXTURE ST3 SCALE <300 60 20> DIFFUSE 0.5 END_TEXTURE
  382. TEXTURE ST2 SCALE <500 90 60> AMBIENT 0.2 ROTATE <0 0 35> END_TEXTURE
  383. TEXTURE COLOR DimGray ALPHA 0.4 PHONG 1.0 PHONGSIZE 50 END_TEXTURE
  384. END_OBJECT
  385.  
  386. {------------------ FLOOR TRIM -------------------------}
  387. #declare FLOOR_TRIM = OBJECT
  388. INTERSECTION Cube SCALE <465 20 20> TRANSLATE <0 -25 -488> END_INTERSECTION
  389. TEXTURE ST3 SCALE <190 30 20> DIFFUSE 0.5 END_TEXTURE
  390. TEXTURE ST2 SCALE <300 40 60> AMBIENT 0.2 ROTATE <0 0 35> PHONG 1.0 PHONGSIZE 50 END_TEXTURE
  391. END_OBJECT
  392.  
  393.  
  394. {----------------- MAKE CROSS RAIL -------------------------}
  395.  
  396. {---------- CROSS ----------------}
  397. #declare CROSS = OBJECT
  398. UNION
  399. QUADRIC Cylinder_Y SCALE <2.5 80 2.5> TRANSLATE <0 -40 0> ROTATE <0 0 45> END_QUADRIC
  400. QUADRIC Cylinder_Y SCALE <2.5 80 2.5> TRANSLATE <0 -40 0> ROTATE <0 0 -45> END_QUADRIC
  401. QUADRIC Cylinder_Y SCALE <2.5 50 2.5> TRANSLATE <25 -25 0> ROTATE <0 0 0> END_QUADRIC
  402. QUADRIC Cylinder_Y SCALE <2.5 50 2.5> TRANSLATE <-25 -25 0> ROTATE <0 0 0> END_QUADRIC
  403. END_UNION
  404. TEXTURE BRASS END_TEXTURE
  405. CLIPPED_BY INTERSECTION Cube SCALE <30 25 3> END_INTERSECTION END_CLIP
  406. BOUNDED_BY INTERSECTION Cube SCALE <30 25 3> END_INTERSECTION END_BOUND
  407. END_OBJECT
  408.  
  409. #declare HOR_RAIL = OBJECT
  410. QUADRIC Cylinder_X SCALE <480 3 4> TRANSLATE <-240 0 0> END_QUADRIC
  411. TEXTURE 
  412. BRASS END_TEXTURE
  413. END_OBJECT
  414.  
  415. #declare CROSS_RAIL = COMPOSITE
  416. OBJECT CROSS TRANSLATE <-175 0 0> END_OBJECT
  417. OBJECT CROSS TRANSLATE <-105 0 0> END_OBJECT
  418. OBJECT CROSS TRANSLATE <-35 0 0> END_OBJECT
  419. OBJECT CROSS TRANSLATE <35 0 0> END_OBJECT
  420. OBJECT CROSS TRANSLATE <105 0 0> END_OBJECT
  421. OBJECT CROSS TRANSLATE <175 0 0> END_OBJECT
  422.  
  423. OBJECT HOR_RAIL TRANSLATE <0 25 0> END_OBJECT
  424. OBJECT HOR_RAIL TRANSLATE <0 -25 0> END_OBJECT
  425. BOUNDED_BY 
  426. INTERSECTION Cube SCALE <245 60 5> END_INTERSECTION 
  427. END_BOUND
  428. SCALE <1 1.22 1>
  429. END_COMPOSITE
  430.  
  431.  
  432. {--------------- BUILD BRIDGE SECTION ------------------------------}
  433. #declare BRIDGE = OBJECT
  434. DIFFERENCE
  435. UNION
  436. INTERSECTION Cube SCALE <200 160 100> END_INTERSECTION 
  437. INTERSECTION Cube SCALE <200 10 110> TRANSLATE <0 135 0> END_INTERSECTION 
  438. END_UNION
  439. QUADRIC Cylinder_Z SCALE <60 60 1> TRANSLATE <-100 50 0> END_QUADRIC
  440. QUADRIC Cylinder_Z SCALE <60 60 1> TRANSLATE <100 50 0> END_QUADRIC
  441. INTERSECTION Cube SCALE <60 120 160> TRANSLATE <-100 -70 0> END_INTERSECTION 
  442. INTERSECTION Cube SCALE <60 120 160> TRANSLATE <100 -70 0> END_INTERSECTION 
  443. END_DIFFERENCE
  444. TEXTURE ST3 SCALE <100 60 20> DIFFUSE 0.5 END_TEXTURE
  445. TEXTURE ST2 SCALE <200 90 60> AMBIENT 0.2 ROTATE <0 0 35> END_TEXTURE
  446. TEXTURE COLOR DimGray ALPHA 0.6 AMBIENT 0.2 PHONG 1.0 PHONGSIZE 30 END_TEXTURE
  447. BOUNDED_BY 
  448. INTERSECTION Cube SCALE <201 161 121> END_INTERSECTION
  449. END_BOUND
  450. SCALE <2 2 2.2>
  451. END_OBJECT
  452.  
  453.  
  454. {------------ TOP OF BRIDGE -----------------}
  455. #declare BR_BASE = OBJECT
  456. INTERSECTION Cube SCALE <3000 10 130> END_INTERSECTION
  457. TEXTURE COLOR DimGray 0.05 AMBIENT 0.2 DIFFUSE 0.5 END_TEXTURE
  458. END_OBJECT
  459.  
  460. {------------ SILVER RAILS -----------------}
  461. #declare S_RAILS = OBJECT
  462. UNION
  463. INTERSECTION Cube SCALE <3000 10 10> TRANSLATE <0 10 -100> END_INTERSECTION
  464. INTERSECTION Cube SCALE <3000 10 10> TRANSLATE <0 10 100> END_INTERSECTION
  465. END_UNION 
  466. TEXTURE SILVER END_TEXTURE
  467. END_OBJECT
  468.  
  469. #declare TRACKS = COMPOSITE
  470. OBJECT BR_BASE END_OBJECT
  471. OBJECT S_RAILS END_OBJECT
  472. BOUNDED_BY 
  473. INTERSECTION Cube SCALE <3000 20 135> END_INTERSECTION
  474. END_BOUND
  475. END_COMPOSITE
  476.  
  477.  
  478. {---------- RELECTION PLANE FOR LOWER BRIDGE --------}
  479. OBJECT PLANE <0 1 0> -320 END_PLANE
  480. TEXTURE COLOR Black REFLECTION 0.9 END_TEXTURE
  481. END_OBJECT
  482.  
  483.  
  484. {--------------------------  THE SCENE -----------------------------}
  485.  
  486. #declare SCENE = COMPOSITE
  487.  
  488.  
  489. OBJECT S_ROOF SCALE <4 4 4> END_OBJECT
  490.  OBJECT MFLOOR TRANSLATE <0 0 0> END_OBJECT
  491.     OBJECT FLOOR_BASE END_OBJECT
  492.         COMPOSITE STEPS ROTATE <0 -90 0> TRANSLATE <300 -50 -610> END_COMPOSITE
  493.        
  494.     COMPOSITE STATION_WALL SCALE <4 4 4> TRANSLATE <0 4.5 0> END_COMPOSITE
  495.      COMPOSITE STATION_WALL SCALE <4 4 4> TRANSLATE <-30 4.5 1600 > END_COMPOSITE
  496.        OBJECT FLOOR_TRIM END_OBJECT
  497.  
  498. COMPOSITE CROSS_RAIL TRANSLATE <-162 60 -470> END_COMPOSITE
  499. COMPOSITE CROSS_RAIL ROTATE <0 90 0> TRANSLATE <-430 60 -220 > END_COMPOSITE
  500. COMPOSITE CROSS_RAIL ROTATE <0 90 0> TRANSLATE <-430 60 270 > END_COMPOSITE
  501. COMPOSITE CROSS_RAIL TRANSLATE <810 60 -470> END_COMPOSITE
  502.     
  503. OBJECT FAT_POST TRANSLATE <-430 60 -470> END_OBJECT
  504. OBJECT FAT_POST TRANSLATE <-430 60 25> END_OBJECT
  505. OBJECT FAT_POST TRANSLATE <60 -65 -760> END_OBJECT
  506. OBJECT FAT_POST TRANSLATE <-430 60 515> END_OBJECT
  507.  
  508. OBJECT VASE TRANSLATE <-430 150 -470> END_OBJECT
  509. OBJECT VASE TRANSLATE <-430 150 25> END_OBJECT
  510. OBJECT VASE TRANSLATE <60 25 -760> END_OBJECT
  511. OBJECT VASE TRANSLATE <60 150 -470> END_OBJECT
  512. OBJECT VASE TRANSLATE <540 150 -470> END_OBJECT
  513. OBJECT VASE TRANSLATE <-430 150 515> END_OBJECT
  514.  
  515. OBJECT BRIDGE TRANSLATE <-870 -320 800> END_OBJECT
  516. OBJECT BRIDGE TRANSLATE <-1670 -320 800> END_OBJECT
  517. OBJECT BRIDGE TRANSLATE <-2470 -320 800> END_OBJECT
  518. OBJECT BRIDGE TRANSLATE <-3270 -320 800> END_OBJECT
  519.  
  520. COMPOSITE TRACKS TRANSLATE <-1000 0 800> END_COMPOSITE
  521. COMPOSITE TRAIN SCALE <2 2 2> {ROTATE <0 180 0>} TRANSLATE <-1170 20 800> END_COMPOSITE
  522.  
  523. ROTATE <0 35 0>
  524. END_COMPOSITE
  525.  
  526. COMPOSITE SCENE END_COMPOSITE
  527.  
  528. {------------- ********************************************  -----------}
  529.  
  530.  
  531. COMPOSITE PLANT1 SCALE <13 13 13> TRANSLATE <-400 -15 -550> END_COMPOSITE
  532.  
  533.  
  534.  
  535. {-------------- WORLD -----------------------------------}
  536.  
  537.  
  538.  
  539. DECLARE Zenith = COLOUR RED 0.00 GREEN 0.00 BLUE 0.93             
  540. DECLARE MidSky = COLOUR RED 0.55 GREEN 0.55 BLUE 1.00             
  541. DECLARE HighHorizon = COLOUR RED 0.73 GREEN 0.73 BLUE 0.98        
  542. DECLARE GroundColor = COLOUR ForestGreen
  543. DECLARE Rose = COLOUR RED 0.96 GREEN 0.59 BLUE 0.66
  544. DECLARE LowHorizon = COLOUR CadetBlue
  545.  
  546. DECLARE Clouds1 = TEXTURE        
  547.       TURBULENCE 0.6
  548.       BOZO
  549.       COLOUR_MAP
  550. [0.0 0.5   COLOUR White ALPHA 1.0 COLOUR RED 1.0 GREEN 1.0 BLUE 1.0 ALPHA 1.0]
  551. [0.5 0.8   COLOUR White ALPHA 0.5 COLOUR Rose]
  552. [0.8 1.001 COLOUR Rose COLOUR DimGray ]
  553.       END_COLOUR_MAP
  554.       SCALE <1  0.7  1>
  555. END_TEXTURE
  556.  
  557. #declare WORLD = COMPOSITE
  558. { -----------------Sky sphere------------------------------------- }
  559. OBJECT
  560.     QUADRIC QSphere SCALE <6000  6000 12000> END_QUADRIC
  561.         TEXTURE
  562.         GRADIENT <0 1 0>
  563.         COLOR_MAP
  564.             [0.0 0.10 COLOR LowHorizon COLOR HighHorizon]
  565.             [0.10 0.15 COLOR HighHorizon COLOR HighHorizon]
  566.             [0.15 0.70 COLOR HighHorizon COLOR MidSky]
  567.             [0.70 0.9 COLOR MidSky COLOR Zenith]
  568.             [0.9 1.01 COLOR Zenith COLOR LowHorizon]
  569.             
  570.                     END_COLOR_MAP
  571.         AMBIENT 0.6 DIFFUSE 0.2
  572.         SCALE <6000 6000 1600> TRANSLATE <0 0 0>
  573.     END_TEXTURE
  574.     TEXTURE Clouds1 SCALE <3000 1050 4050> AMBIENT 0.6 DIFFUSE 0.3 END_TEXTURE
  575. TRANSLATE <0 0 400>
  576. END_OBJECT
  577.  
  578. OBJECT Quadric QSphere SCALE <6000 6000 12000> END_QUADRIC
  579. TEXTURE COLOR Black AMBIENT 0.8 DIFFUSE 0.0 END_TEXTURE
  580. END_OBJECT
  581.  
  582. ROTATE <0 35 0>
  583. END_COMPOSITE
  584.  
  585. COMPOSITE WORLD END_COMPOSITE
  586.  
  587. {8888888888888888888888888888888888888888888888888888888888888}
  588.  
  589.  
  590. {---------------------BACKDROP---------------------------------}
  591. {------MULTI TEXTURE - Gif W/Gradation Color Tint--------------}
  592.  
  593. OBJECT INTERSECTION Cube SCALE <2000 1500 1> END_INTERSECTION
  594.  
  595. TEXTURE
  596. IMAGEMAP  <1.0 -1.0 0> gif "sky1.gif" END_MAP
  597. SCALE <4000 3000 2> TRANSLATE <-2000 -500 -2> AMBIENT 1.0 DIFFUSE 0.0 
  598. END_TEXTURE
  599.  
  600.  
  601. TEXTURE
  602. GRADIENT <0 1 0>
  603. COLOR_MAP
  604.     [0.0 0.3 COLOR Salmon COLOR BlueViolet ALPHA 0.3]
  605.     [0.3 0.8 COLOR BlueViolet ALPHA 0.3 COLOR Black ALPHA 0.2]
  606.     [0.8 1.0 COLOR Black ALPHA 0.2 COLOR Black ALPHA 0]
  607.     END_COLOR_MAP
  608.     SCALE <4000 3000 1>
  609.     TRANSLATE <0 -1500 0> 
  610.     
  611.     AMBIENT 1.0
  612.     DIFFUSE 0.0
  613.  
  614.     END_TEXTURE
  615.  
  616.  
  617. SCALE <1 1 1>
  618. TRANSLATE <0 -600 2700>
  619. END_OBJECT
  620.  
  621.  
  622. //-------END
  623.  
  624.  
  625.  
  626.  
  627.