home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / graphics / raydance.lzh / demo_scripts.lha / grail.art < prev    next >
Encoding:
Text File  |  1991-11-12  |  2.0 KB  |  65 lines
  1. ? "===========================================================\n",
  2.   " Display a goblet that has been texture mapped as wood and\n",
  3.   " bump-mapped with worm trails (canals)\n",
  4.   "===========================================================\n";
  5.  
  6. WHITE   : COLOR( RGB, [1.0, 1.0, 1.0] );
  7. DKGRAY  : COLOR( RGB, [0.5, 0.5, 0.5] );
  8. BLUE    : COLOR( RGB, [0.1, 0.0, 0.3] );
  9. GREEN   : COLOR( RGB, [0.0, 0.2, 0.1] );
  10.  
  11. DULL    : SURFACE( SIMPLE, 1.0, 0.0, 0.0, 0 );
  12.  
  13. !                           ka   kd   ks    n    km   kr   ri   kb
  14. SHINY    : surface( PHONG, 0.4, 0.8, 0.9, 10.0, 0.0, 0.0, 0.0, 0.0, 0 );
  15. ROCK     : surface( PHONG, 0.3, 1.0, 0.2,  8.0, 0.0, 0.0, 0.0, 0.0, 0 );
  16.  
  17.  canals : bumpmap( "canals.ilbm" );
  18.  wood   : texturemap( "wood.ilbm" );
  19.  
  20. !-------------------------------------------------------------------
  21. !!
  22. !! Object to import...
  23. !!
  24. !-------------------------------------------------------------------
  25.  tm1 : texture( plane, wood, [0,0,0], [0,0.5,1], [-1,0,0],
  26.    400,400,400, 3,2, SMOOTH3|REPEAT );
  27.  bm1 : bump( sphere, canals, shiny, 3.0, [0,0,0],
  28.    [0,0,1], [-1,0,0], 3,2, NEGATIVE|REPEAT );
  29.  
  30.  gob : import( "goblet1.bin", [0,0,-150], [30,30,30], [0,180,0], [1,1,1], 0 );
  31.  
  32.  gob.color[14] = tm1;    ! replace yellow
  33.  
  34.  gob.surface[1] = bm1;  ! replace glossy
  35.  
  36.  
  37. !-------------------------------------------------------------------
  38. !!
  39. !! Lighting...
  40. !!
  41. !-------------------------------------------------------------------
  42.  star( [15000, -8000, 15000], [1.0, 1.0, 1.0], 1000 );
  43.  star( [-5000, -2000, 2000], [0.8, 0.7, 0.7], 1000 );
  44.  ambient( [0,0,10000], [0.3,0.3,0.3], [0,0,1], 0.0, 0.0 );
  45.  
  46. !-------------------------------------------------------------------
  47. !!
  48. !! Ground and background...
  49. !!
  50. !-------------------------------------------------------------------
  51.  background( PLAIN, [0.05, 0.1, 0.05] );
  52.  
  53.  
  54. !-------------------------------------------------------------------
  55. !!
  56. !! Camera stuff...
  57. !!
  58. !-------------------------------------------------------------------
  59. CAMERA'POS     = [0,-800,200];
  60. CAMERA'TARGET  = [0,0,-30];
  61.  
  62. RENDER;
  63.  
  64. end
  65.