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 / tutorial19.art < prev    next >
Encoding:
Text File  |  1991-11-12  |  2.0 KB  |  86 lines
  1. !---------------------------------------------------------------
  2. !
  3. ! TUTORIAL19 - RayDance tutorial script #19.
  4. !
  5. ! This script demonstrates wrap mode texture mapping.
  6. !
  7. ! Concepts include :
  8. !
  9. !  o Wrap mode textures on an extruded surface.
  10. !
  11. !---------------------------------------------------------------
  12.  
  13. ! Use a print statement to display descriptive text on the
  14. ! message window.
  15.  
  16.  
  17. ? "TUTORIAL19 - This script creates two extruded 'flag'\n",
  18.   "objects.  Both are extruded from the same outline.  The\n",
  19.   "outlines are imported from a disk file.  The top 'flag'\n",
  20.   "is texture mapped with a PLANE map.  The lower 'flag' is\n",
  21.   "texture mapped using wrap mode.  Both 'flags' are Phong\n",
  22.   "smoothed.  Note how the texture of the lower 'flag' \n",
  23.   "follows its contours!\n";
  24.  
  25.  
  26. FLAG_MAP : texturemap( "flag.ilbm" );
  27.  
  28. ! Create a surface for our flags...
  29.  
  30. !                       ka kd ks  n km kr ir kb flgs
  31. SHINY  : surface(PHONG, .5,.8,.4,30, 0, 0, 0, 0, 0 );
  32.  
  33. real  x1,x2;
  34.  
  35. ! Import the outline of our flag...
  36.  
  37. FLAG_OUTLINE : outline( "flag1.geo", [2,1,1], xy );
  38.  
  39. ! Figure the widht of this outline
  40.  
  41. X1 = FLAG_OUTLINE[0]'X;
  42. X2 = FLAG_OUTLINE[FLAG_OUTLINE'STEPS-1]'X;
  43.  
  44.  
  45. PLANE_MAP : texture( PLANE, FLAG_MAP, [25,0,150], [0,1,0], [1,0,0],
  46.   280,X2-X1,250, 1,1, SMOOTH3 REPEAT );
  47.  
  48. extrude( ( FLAG_OUTLINE ),
  49.   250, [0,0,250], [1,1,1], [0,0,25], [0,0,0],
  50.   PLANE_MAP, SHINY, OPEN NOENDS PHONG );
  51.  
  52. extrude( ( FLAG_OUTLINE ),
  53.   250, [0,0,250], [1,1,1], [0,0,-275], [0,0,0],
  54.   FLAG_MAP(1,1,SMOOTH3|REPEAT), SHINY, OPEN NOENDS PHONG );
  55.  
  56.  
  57. ! Specify the ambient light.
  58.  
  59. AMBIENT( [0,0,0], [0.6,0.6,0.6], [0,0,1], 0, 0 );
  60.  
  61. ! Specify the STAR light.
  62.  
  63. STAR( [3000,-50000,10000], [1,.9,1], 300 );
  64.  
  65.  
  66. ! Set the background color to a dark purple
  67.  
  68. BACKGROUND( PLAIN, [0,0.05,0.15] );
  69.  
  70.  
  71. ! The camera will be positioned along the negative y axis aiming
  72. ! toward the central objects
  73.  
  74. CAMERA'POS = [0,1500,350];
  75. CAMERA'TARGET = [0,0,0];
  76.  
  77.  
  78. ! The scene has now been constructed, render it!
  79.  
  80. RENDER;
  81.  
  82.  
  83. ! All scripts must terminate with an END
  84.  
  85. END
  86.