home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / station3 / toytrain.inc < prev    next >
Encoding:
Text File  |  1992-01-19  |  14.6 KB  |  417 lines
  1. {------------------------------------------------------M. MILLER 1/3/92 }
  2. {-----------------THE TRAIN---------------------------------------------}
  3.  
  4.  
  5. //DECLARE TRAIN COLORS
  6.  
  7.  
  8. #declare GOLD = texture  
  9. 0.02 ambient 0.4 diffuse 0.7 colour red 0.6 green 0.6 blue 0.0 
  10. reflection 0.6 brilliance 8.0 phong 0.8 phongsize 50
  11. end_texture
  12.  
  13. #declare SILVER = texture 
  14. 0.02 ambient 0.4 diffuse 0.7 colour red 0.7 green 0.7 blue 0.7 
  15. reflection 0.5 brilliance 7.0 specular 0.5
  16. end_texture
  17.  
  18. #declare BOD_COLOR1 = TEXTURE COLOR RED 0.60 GREEN 0.0 BLUE 0.11 DIFFUSE 0.8 PHONG 1.0  END_TEXTURE
  19. #declare BOD_COLOR2 = TEXTURE COLOR Scarlet DIFFUSE 0.4 REFLECTION 0.1 PHONG 1.0  END_TEXTURE
  20. #declare BOD_COLOR3 = TEXTURE COLOR RED 0.60 GREEN 0.0 BLUE 0.11 DIFFUSE 0.8 PHONG 1.0  END_TEXTURE
  21. #declare BOD_COLOR4 = TEXTURE BRASS  END_TEXTURE
  22. #declare BOD_COLOR5 = TEXTURE COLOR RED 0.2 GREEN 0.2 BLUE 0.2 AMBIENT 0.2 DIFFUSE 0.7  PHONG 1.0  END_TEXTURE
  23. #declare BOD_COLOR6 = TEXTURE COLOR RED 0.15 GREEN 0.15 BLUE 0.15 DIFFUSE 1.0 REFLECTION 0.2 PHONG 1.0 END_TEXTURE
  24.  
  25.  
  26. {-----------DECLARE MAIN TRUNK---------------}
  27. #declare TRUNK = OBJECT
  28. UNION
  29. INTERSECTION X_Disk SCALE <240 50 50> TRANSLATE <0 0 0> END_INTERSECTION
  30. QUADRIC QSphere SCALE <30 30 20> TRANSLATE <160 50 0> END_QUADRIC
  31. QUADRIC QSphere SCALE <30 30 20> TRANSLATE <180 50 0> END_QUADRIC
  32. INTERSECTION X_Disk SCALE <20 30 20> TRANSLATE <160 50 0> END_INTERSECTION
  33. INTERSECTION Cube SCALE <120 3 55> TRANSLATE <120 0 0> END_INTERSECTION
  34. END_UNION
  35. TEXTURE BOD_COLOR1 END_TEXTURE
  36. BOUNDED_BY
  37. INTERSECTION X_Disk SCALE <250 70 56> TRANSLATE <-5 10 0> END_INTERSECTION
  38. END_BOUND
  39. END_OBJECT
  40.  
  41.  
  42. #declare BRASS_RINGS = OBJECT
  43. UNION
  44. QUADRIC QSphere SCALE <5 55 55> TRANSLATE <95 0 0> END_QUADRIC
  45. QUADRIC QSphere SCALE <5 55 55> TRANSLATE <175 0 0> END_QUADRIC
  46. QUADRIC QSphere SCALE <5 55 55> TRANSLATE <240 0 0> END_QUADRIC
  47. INTERSECTION Cube SCALE <120 3 55> TRANSLATE <120 0 0> END_INTERSECTION
  48. END_UNION
  49. TEXTURE BOD_COLOR4 END_TEXTURE
  50. BOUNDED_BY
  51. INTERSECTION X_Disk SCALE <250 70 56> TRANSLATE <-5 10 0> END_INTERSECTION
  52. END_BOUND
  53. END_OBJECT
  54.  
  55.  
  56.  
  57.  
  58. #declare MAIN_TRUNK = COMPOSITE
  59. OBJECT TRUNK END_OBJECT
  60. OBJECT BRASS_RINGS END_OBJECT
  61. END_COMPOSITE
  62.  
  63.  
  64. {------------- CABIN ROOF -----------------}
  65. #declare CROOF = OBJECT
  66. DIFFERENCE
  67. UNION
  68. INTERSECTION Cube SCALE < 35 10 20> TRANSLATE <75 90 0> END_INTERSECTION
  69. INTERSECTION X_Disk SCALE <150 93 93> TRANSLATE <0 0 0> END_INTERSECTION
  70. END_UNION
  71. PLANE <0 1 0> 60 END_PLANE
  72. END_DIFFERENCE
  73. TEXTURE BOD_COLOR2 END_TEXTURE
  74. END_OBJECT
  75.  
  76. {------------ CABIN ----------------------}
  77. #declare TCABIN = OBJECT
  78. DIFFERENCE
  79. INTERSECTION Cube SCALE <55 60 70> TRANSLATE <0 0 0> END_INTERSECTION
  80. INTERSECTION Cube SCALE <10 20 80> TRANSLATE <-35 30 0> END_INTERSECTION
  81. INTERSECTION Cube SCALE <30 20 80> TRANSLATE <15 30 0> END_INTERSECTION
  82. INTERSECTION Cube SCALE <50 50 65> TRANSLATE <0 5 0> END_INTERSECTION
  83. INTERSECTION Cube SCALE <40 20 80> TRANSLATE <25 -60 0> END_INTERSECTION
  84. END_DIFFERENCE
  85. TEXTURE 
  86. MATERIAL_MAP <1 -1 0> gif "tcabin.gif" 
  87. TEXTURE BOD_COLOR1 END_TEXTURE
  88. TEXTURE BOD_COLOR2 END_TEXTURE
  89. TEXTURE BOD_COLOR3 END_TEXTURE
  90. TEXTURE BOD_COLOR4 END_TEXTURE
  91. END_MATERIAL_MAP
  92. SCALE <110 120 1> TRANSLATE <-55 -60 -1>
  93. PHONG 0.5 PHONGSIZE 50 
  94. DIFFUSE 0.9
  95. END_TEXTURE
  96. BOUNDED_BY
  97. INTERSECTION Cube SCALE <80 80 80 > TRANSLATE <-10 20 0> END_INTERSECTION
  98. END_BOUND
  99. END_OBJECT
  100.  
  101.  
  102. #declare CABIN = COMPOSITE
  103. OBJECT CROOF TRANSLATE <-85 0 0> END_OBJECT
  104. OBJECT TCABIN END_OBJECT
  105. END_COMPOSITE
  106.  
  107. {------------ FRONT NOSE ------------------}
  108. #declare TNOSE = OBJECT
  109. UNION
  110. INTERSECTION X_Disk SCALE <80 50 50> TRANSLATE <0 0 0> END_INTERSECTION
  111. QUADRIC QSphere SCALE <5 55 55> TRANSLATE <80 0 0> END_QUADRIC
  112. QUADRIC QSphere SCALE <10 45 45> TRANSLATE <80 0 0> END_QUADRIC
  113. INTERSECTION X_Disk SCALE <10 15 15> TRANSLATE <87 0 0> END_INTERSECTION
  114. QUADRIC QSphere SCALE <10 10 10> TRANSLATE <70 60 0> END_QUADRIC
  115. INTERSECTION X_Disk SCALE <20 10 10> TRANSLATE <70 60 0> END_INTERSECTION
  116. INTERSECTION Y_Disk SCALE <15 20 15> TRANSLATE <25 50 0> END_INTERSECTION
  117. INTERSECTION DCone SCALE <30 65 30> TRANSLATE <25 40 0> END_INTERSECTION
  118. INTERSECTION Y_Disk SCALE <25 5 25> TRANSLATE <25 70 0> END_INTERSECTION
  119. END_UNION
  120. TEXTURE BOD_COLOR6 END_TEXTURE
  121. BOUNDED_BY
  122. INTERSECTION Cube SCALE <60 95 60 > TRANSLATE <50 30 0> END_INTERSECTION
  123. END_BOUND
  124. END_OBJECT
  125.  
  126.  
  127. {----------- TRAIN FRAME ------------------}
  128. #declare TFRAME = OBJECT
  129. UNION
  130. INTERSECTION Cube SCALE <235 30 40> TRANSLATE <0 0 0> END_INTERSECTION
  131. INTERSECTION Cube SCALE <25 40 80> TRANSLATE <130 0 0> END_INTERSECTION
  132. INTERSECTION Cube SCALE <40 15 20> TRANSLATE <-225 -25 0> END_INTERSECTION
  133. INTERSECTION Cube SCALE <15 30 85> TRANSLATE <130 0 0> END_INTERSECTION
  134. INTERSECTION Cube SCALE <40 3 70> TRANSLATE <195 0 0> END_INTERSECTION
  135. END_UNION
  136. TEXTURE BOD_COLOR5 END_TEXTURE
  137. BOUNDED_BY
  138. INTERSECTION Cube SCALE <270 60 90 > TRANSLATE <0 0 0> END_INTERSECTION
  139. END_BOUND
  140. END_OBJECT
  141.  
  142.  
  143. {------- GOLD STACKS -----------------------}
  144. #declare STACK1 = UNION
  145. INTERSECTION Y_Disk SCALE <5 20 5> END_INTERSECTION
  146. INTERSECTION Y_Disk SCALE <8 10 8> TRANSLATE <0 20 0>  END_INTERSECTION
  147. END_UNION
  148.  
  149. {-------- STACKS ---------------------------}
  150. #declare STACKS = OBJECT
  151. UNION
  152. UNION STACK1 TRANSLATE <-285 210 0> END_UNION
  153. UNION STACK1 TRANSLATE <-245 190 0> END_UNION
  154. UNION STACK1 TRANSLATE <-225 190 0> END_UNION
  155. UNION STACK1 SCALE <2 1 2> TRANSLATE <-160 200 0> END_UNION
  156.  
  157. INTERSECTION Y_Disk SCALE <15 40 15> TRANSLATE <-285 170 0> END_INTERSECTION
  158. QUADRIC QSphere SCALE <15 10 15> TRANSLATE <-285 210 0> END_QUADRIC
  159. INTERSECTION Y_Disk SCALE <20 20 20> TRANSLATE <-235 170 0> END_INTERSECTION
  160.  
  161. INTERSECTION Y_Disk SCALE <35 10 35> TRANSLATE <-65 230 0> END_INTERSECTION
  162. INTERSECTION Y_Disk SCALE <25 10 25> TRANSLATE <-65 240 0> END_INTERSECTION
  163. INTERSECTION X_Disk SCALE <10 10 10> TRANSLATE <0 190 0> END_INTERSECTION
  164. END_UNION
  165. TEXTURE BOD_COLOR4 END_TEXTURE
  166. BOUNDED_BY
  167. INTERSECTION Cube SCALE <180 50 45> TRANSLATE <-130 210 0> END_INTERSECTION
  168. END_BOUND
  169. END_OBJECT
  170.  
  171. {----------- SIDE PANEL ---------------------}
  172. #declare SIDE_PANEL = OBJECT
  173. UNION
  174. INTERSECTION Cube SCALE <65 35 2.5> TRANSLATE <0 0 0> END_INTERSECTION
  175. INTERSECTION Cube SCALE <55 25 7.5> TRANSLATE <0 0 0> END_INTERSECTION
  176. INTERSECTION Cube SCALE <85 10 2.5> TRANSLATE <150 -5 0> END_INTERSECTION
  177. INTERSECTION Cube SCALE <25 6 7> TRANSLATE <130 -50 1> END_INTERSECTION
  178. INTERSECTION Cube SCALE <10 17 7> TRANSLATE <115 -38 1> END_INTERSECTION
  179. INTERSECTION Cube SCALE <60 2.5 2.5> TRANSLATE <120 -22.5 0> END_INTERSECTION
  180. END_UNION
  181. TEXTURE BOD_COLOR5 END_TEXTURE
  182. BOUNDED_BY
  183. INTERSECTION Cube SCALE <160 60 8> TRANSLATE <85 -10 0> END_INTERSECTION
  184. END_BOUND
  185. END_OBJECT
  186.  
  187. {-------- SPOKE -----------}
  188. #declare SPOKE = {INTERSECTION Cube SCALE <42 2.5 2> END_INTERSECTION}
  189. INTERSECTION X_Disk SCALE <84 5 4> TRANSLATE <-42 0 0> END_INTERSECTION
  190.  
  191. {------------ MAKE WHEEL ---}
  192. #declare WHEEL1 = OBJECT
  193. UNION
  194. INTERSECTION SPOKE ROTATE <0 0 0> END_INTERSECTION
  195. INTERSECTION SPOKE ROTATE <0 0 45> END_INTERSECTION
  196. INTERSECTION SPOKE ROTATE <0 0 90> END_INTERSECTION
  197. INTERSECTION SPOKE ROTATE <0 0 -45> END_INTERSECTION
  198. INTERSECTION Z_Disk SCALE <20 20 10> TRANSLATE <0 0 -5> END_INTERSECTION
  199. INTERSECTION Z_Disk SCALE <10 10 10> TRANSLATE <0 0 -8> END_INTERSECTION
  200. END_UNION
  201. TEXTURE BOD_COLOR2 END_TEXTURE
  202. BOUNDED_BY
  203. INTERSECTION Z_Disk SCALE <48 48 18> TRANSLATE <0 0 -9> END_INTERSECTION
  204. END_BOUND
  205. END_OBJECT
  206.  
  207. #declare RIM = OBJECT
  208. DIFFERENCE
  209. INTERSECTION Z_Disk SCALE <45 45 12> TRANSLATE <0 0 -6> END_INTERSECTION
  210. QUADRIC Cylinder_Z  SCALE <40 40 1> END_QUADRIC
  211. END_DIFFERENCE
  212. TEXTURE SILVER END_TEXTURE
  213. BOUNDED_BY
  214. INTERSECTION Z_Disk SCALE <48 48 13> TRANSLATE <0 0 -6.5> END_INTERSECTION
  215. END_BOUND
  216. END_OBJECT
  217.  
  218.  
  219. #declare WHEEL = COMPOSITE
  220. OBJECT WHEEL1 END_OBJECT
  221. OBJECT RIM END_OBJECT
  222. BOUNDED_BY
  223. INTERSECTION Z_Disk SCALE <48 48 12> TRANSLATE <0 0 -6> END_INTERSECTION
  224. END_BOUND
  225. END_COMPOSITE
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232. {----------- SMALL WHEEL -----------------}
  233. #declare S_WHEEL = COMPOSITE
  234. WHEEL SCALE <0.60 0.60 1> END_COMPOSITE
  235.  
  236.  
  237. #declare COW = intersection
  238.     plane <0.0 0.0 1.0> 1.0 end_plane
  239.     plane <0.0 0.0 -1.0> 1.1 end_plane
  240.     plane <0.0 -1.0 0.0> 1.0 end_plane
  241.     plane <1.0 0.0 0.0> 0.5 rotate <0 0 45> translate < 0 -0.5 0> rotate <-45 0 0>  end_plane
  242.     plane <-1.0 0.0 0.0> 0.5 rotate <0 0 -45> translate <0 -0.5 0> rotate <-45 0 0> end_plane
  243. end_intersection
  244.  
  245.  
  246. #declare CUTTER = INTERSECTION Cube SCALE <1 5 20> END_INTERSECTION
  247.  
  248. #declare C_CATCH = 
  249. OBJECT
  250. DIFFERENCE
  251. INTERSECTION COW SCALE <10 5 10> END_INTERSECTION
  252. INTERSECTION CUTTER TRANSLATE <1.5 1 0> END_INTERSECTION
  253. INTERSECTION CUTTER TRANSLATE <4.5 1 0> END_INTERSECTION
  254. INTERSECTION CUTTER TRANSLATE <7.5 1 0> END_INTERSECTION
  255. INTERSECTION CUTTER TRANSLATE <-1.5 1 0> END_INTERSECTION
  256. INTERSECTION CUTTER TRANSLATE <-4.5 1 0> END_INTERSECTION
  257. INTERSECTION CUTTER TRANSLATE <-7.5 1 0> END_INTERSECTION
  258. INTERSECTION CUTTER TRANSLATE <-10.5 1 0> END_INTERSECTION
  259. INTERSECTION CUTTER TRANSLATE <10.5 1 0> END_INTERSECTION
  260. INTERSECTION COW SCALE <10 5 10> TRANSLATE <0 -0.5 2> END_INTERSECTION
  261. END_DIFFERENCE
  262. TEXTURE SILVER END_TEXTURE
  263. BOUNDED_BY 
  264. INTERSECTION Cube SCALE <10 5 10> END_INTERSECTION
  265. END_BOUND
  266. END_OBJECT
  267.  
  268. #declare COW_CATCH = COMPOSITE
  269. OBJECT C_CATCH SCALE <4.8 5 4> TRANSLATE <0 -10 -45> END_OBJECT
  270. OBJECT INTERSECTION Cube SCALE <70 30 5> END_INTERSECTION
  271. TEXTURE BOD_COLOR5 END_TEXTURE
  272. END_OBJECT
  273. ROTATE <0 -90 0> 
  274. END_COMPOSITE
  275.  
  276.  
  277. #declare DOT_R = QUADRIC QSphere SCALE <5 5 5> END_QUADRIC
  278.  
  279.  
  280. {---------------CREATE THICK GOLD RAIL-----------------}
  281. #declare THICK_RAIL = OBJECT
  282. UNION
  283. QUADRIC DOT_R TRANSLATE <0 0 0> END_QUADRIC
  284. QUADRIC DOT_R TRANSLATE <130 0 0> END_QUADRIC
  285. QUADRIC DOT_R TRANSLATE <130 -30 0> END_QUADRIC
  286. QUADRIC DOT_R TRANSLATE <300 -30 0> END_QUADRIC
  287. QUADRIC DOT_R TRANSLATE <350 -80 0> END_QUADRIC
  288. QUADRIC DOT_R TRANSLATE <370 -80 0> END_QUADRIC
  289.  
  290. INTERSECTION X_Disk SCALE <130 5 5> TRANSLATE <0 0 0> END_INTERSECTION
  291. INTERSECTION X_Disk SCALE <170 5 5> TRANSLATE <130 -30 0> END_INTERSECTION
  292. INTERSECTION Y_Disk SCALE <5 30 5> TRANSLATE <130 -30 0> END_INTERSECTION
  293. INTERSECTION X_Disk SCALE <20 5 5> TRANSLATE <350 -80 0> END_INTERSECTION
  294. INTERSECTION X_Disk SCALE <70 5 5> ROTATE <0 0 -45> TRANSLATE <300 -30 0> END_INTERSECTION
  295. END_UNION
  296. TEXTURE BOD_COLOR4 END_TEXTURE
  297. BOUNDED_BY
  298. INTERSECTION Cube SCALE <200 70 10> TRANSLATE <190 -35 0> END_INTERSECTION
  299. END_BOUND
  300. END_OBJECT
  301.  
  302. #declare POST = QUADRIC QSphere SCALE <4 4 8> END_QUADRIC
  303.  
  304. #declare THIN_RAIL = OBJECT
  305. UNION
  306. QUADRIC POST END_QUADRIC
  307. QUADRIC POST TRANSLATE <120 0 0> END_QUADRIC
  308. QUADRIC POST TRANSLATE <240 0 0> END_QUADRIC
  309. INTERSECTION X_Disk SCALE <240 2 2> TRANSLATE <0 0 -2> END_INTERSECTION
  310. END_UNION
  311. TEXTURE BOD_COLOR4 END_TEXTURE
  312. BOUNDED_BY
  313. INTERSECTION X_Disk SCALE <250 9 9> TRANSLATE <-5 0 0> END_INTERSECTION
  314. END_BOUND
  315. END_OBJECT
  316.  
  317. {----------------------WHEEL DRIVE-------------------}
  318. #declare WHEEL_DRIVE = OBJECT
  319. UNION
  320. INTERSECTION Z_Disk SCALE <7 7 12> TRANSLATE <0 0 -4> END_INTERSECTION
  321. INTERSECTION Z_Disk SCALE <7 7 12> TRANSLATE <130 0 -4> END_INTERSECTION
  322. INTERSECTION Z_Disk SCALE <7 7 12> TRANSLATE <150 25 -4> END_INTERSECTION
  323. INTERSECTION Cube SCALE <65 3 2> TRANSLATE <65 0 0> END_INTERSECTION
  324. INTERSECTION Cube SCALE <15 3 2> ROTATE <0 0 40> TRANSLATE <140 10 0> END_INTERSECTION
  325. INTERSECTION Cube SCALE <55 3 2> TRANSLATE <140 39 4> END_INTERSECTION
  326. END_UNION
  327. TEXTURE SILVER END_TEXTURE
  328. BOUNDED_BY
  329. INTERSECTION Cube SCALE <130 40 12> TRANSLATE <120 20 0> END_INTERSECTION
  330. END_BOUND
  331. END_OBJECT
  332.  
  333.  
  334.  
  335.  
  336. {-------------- PUT THE TRAIN MODEL TOGETHER -------------------------}
  337.  
  338. {********* NOTE: ANYTHING WITH // IN THIS COMPOSITE ARE DETAILS ON THE
  339. BACK SIDE OF TRAIN }
  340.  
  341.  
  342. #declare XTRAIN = COMPOSITE
  343. COMPOSITE MAIN_TRUNK TRANSLATE <-330 130 0> END_COMPOSITE
  344. COMPOSITE CABIN TRANSLATE <-385 130 0> END_COMPOSITE
  345. OBJECT TNOSE TRANSLATE <-90 130 0> END_OBJECT
  346. OBJECT TFRAME TRANSLATE <-200 60 0> END_OBJECT
  347. OBJECT STACKS END_OBJECT
  348. OBJECT SIDE_PANEL TRANSLATE <-265 105 -67.5> END_OBJECT
  349. //OBJECT SIDE_PANEL TRANSLATE <-265 105 67.5> END_OBJECT
  350. COMPOSITE WHEEL TRANSLATE <-280 45 -50> END_COMPOSITE
  351. //COMPOSITE WHEEL TRANSLATE <-280 45 50> END_COMPOSITE
  352. COMPOSITE WHEEL TRANSLATE <-150 45 -50> END_COMPOSITE
  353. //COMPOSITE WHEEL TRANSLATE <-150 45 50> END_COMPOSITE
  354. COMPOSITE S_WHEEL TRANSLATE <0 28 -50> END_COMPOSITE
  355. //COMPOSITE S_WHEEL TRANSLATE <0 28 50> END_COMPOSITE
  356. OBJECT THICK_RAIL TRANSLATE <-330 140 67.5> END_OBJECT
  357. OBJECT THICK_RAIL TRANSLATE <-330 140 -67.5> END_OBJECT
  358. //OBJECT THIN_RAIL TRANSLATE <-300 160 45> END_OBJECT
  359. OBJECT THIN_RAIL TRANSLATE <-300 160 -45> END_OBJECT
  360. //OBJECT WHEEL_DRIVE TRANSLATE <-270 30 67.5> END_OBJECT
  361. OBJECT WHEEL_DRIVE TRANSLATE <-270 30 -71.5> END_OBJECT
  362. COMPOSITE COW_CATCH SCALE <0.7 1 1.1>  TRANSLATE <43 45 0> END_COMPOSITE
  363.  
  364. OBJECT QUADRIC QSphere SCALE <5 10.3 10.3> TRANSLATE <10 130 0> END_QUADRIC
  365. TEXTURE BOD_COLOR4 END_TEXTURE END_OBJECT
  366. BOUNDED_BY
  367. INTERSECTION Cube SCALE <330 140 120> TRANSLATE <-160 130 0> END_INTERSECTION
  368. END_BOUND
  369. END_COMPOSITE
  370.  
  371. #declare SMOKE = OBJECT 
  372. UNION
  373. QUADRIC QSphere SCALE <15 40 15> TRANSLATE <0 0 0> END_QUADRIC
  374. QUADRIC QSphere SCALE <20 20 20> TRANSLATE <0 30 0> END_QUADRIC
  375. QUADRIC QSphere SCALE <25 20 25> TRANSLATE <-10 50 0> END_QUADRIC
  376. QUADRIC QSphere SCALE <30 25 30> TRANSLATE <-40 60 0> END_QUADRIC
  377. QUADRIC QSphere SCALE <50 25 35> TRANSLATE <-60 70 0> END_QUADRIC
  378. QUADRIC QSphere SCALE <170 25 40> TRANSLATE <-90 80 0> END_QUADRIC
  379. QUADRIC QSphere SCALE <170 25 40> TRANSLATE <-100 100 0> END_QUADRIC
  380. QUADRIC QSphere SCALE <50 10 30> TRANSLATE <-120 110 0> END_QUADRIC
  381. END_UNION
  382. TEXTURE
  383. bozo
  384. turbulence 0.4
  385. 0.05
  386. colour_map
  387. [0.0 0.1   colour red 1.0 green 1.0 blue 1.0 alpha 0.8
  388.            colour red 1.0 green 1.0 blue 1.0 alpha 0.9]        
  389. [0.1 0.5   colour red 1.0 green 1.0 blue 1.0 alpha 0.9
  390.            colour red 1.0 green 1.0 blue 1.0 alpha 0.8 ]
  391. [0.5 1.001 colour red 1.0 green 1.0 blue 1.0 alpha 0.8
  392.            colour red 1.0 green 1.0 blue 1.0 alpha 1.0]
  393.        end_colour_map
  394. ROTATE <0 0 90> SCALE <40 30 20>
  395. END_TEXTURE
  396.  
  397. TEXTURE
  398. GRADIENT <0 1 0> 
  399. COLOR_MAP
  400. [0.0 0.2 COLOR White ALPHA 0.7 COLOR White ALPHA 0.8]
  401. [0.2 0.4 COLOR White ALPHA 0.8 COLOR White ALPHA 1.0]
  402. [0.4 1.01 COLOR White ALPHA 1.0 COLOR White ALPHA 1.0]
  403. END_COLOR_MAP
  404. SCALE <300 140 40> TRANSLATE <0 -160 0>
  405. END_TEXTURE
  406. BOUNDED_BY
  407. INTERSECTION Cube SCALE <400 120 50> TRANSLATE <-160 30 0> END_INTERSECTION
  408. END_BOUND
  409. END_OBJECT
  410.  
  411. {---------- THE WHOLE Kit n' Cabosse -----------------------}
  412. #declare TRAIN = COMPOSITE
  413. OBJECT SMOKE SCALE <1 1.2 1> TRANSLATE <-65 260 0> END_OBJECT
  414. COMPOSITE XTRAIN END_COMPOSITE
  415. END_COMPOSITE
  416.  
  417.