home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / giochi / behemot / library / field / bend.rt next >
Encoding:
Text File  |  1996-07-02  |  1.4 KB  |  96 lines

  1. { material
  2.     name _field1;
  3.     model { phong 
  4.  
  5.   Ks 0.2;
  6.   Kt 0;
  7.   ni 1;
  8.   Ka 0.2;
  9.   Kd 0.6;
  10.   n 10;
  11.   Od (0,0,1);
  12.   Os (0.5,0.5,0.5);
  13. }
  14.  
  15.     }
  16.  
  17. { material
  18.     name _field2;
  19.     model { phong 
  20.  
  21.   Ks 0.2;
  22.   Kt 0;
  23.   ni 1;
  24.   Ka 0.2;
  25.   Kd 0.6;
  26.   n 10;
  27.   Od (1,0,0);
  28.   Os (0.5,0.5,0.5);
  29. }
  30.  
  31.     }
  32.  
  33. { object
  34.     name bend;
  35.     model { field
  36.  
  37.         { object
  38.             name obj000001;
  39.             material standard;
  40.                 model { box
  41.                 xmin 0;
  42.                 xmax 1;
  43.                 ymin 0;
  44.                 ymax 1;
  45.                 zmin 0;
  46.                 zmax 1;
  47.             }
  48.         }
  49.  
  50. decoration
  51. { object
  52.     name decoration;
  53.     material _field1;
  54.     model { polyline
  55.         open 1;
  56.         p ( 0.5 , 0.5 , 0.05 );
  57.         p ( 0.5 , 0.5 , 0.1 );
  58.         p ( 0.5 , 0.5 , 0.15 );
  59.         p ( 0.5 , 0.5 , 0.2 );
  60.         p ( 0.5 , 0.5 , 0.25 );
  61.         p ( 0.5 , 0.5 , 0.3 );
  62.         p ( 0.5 , 0.5 , 0.35 );
  63.         p ( 0.5 , 0.5 , 0.4 );
  64.         p ( 0.5 , 0.5 , 0.45 );
  65.         p ( 0.5 , 0.5 , 0.5 );
  66.         p ( 0.5 , 0.5 , 0.55 );
  67.         p ( 0.5 , 0.5 , 0.6 );
  68.         p ( 0.5 , 0.5 , 0.65 );
  69.         p ( 0.5 , 0.5 , 0.7 );
  70.         p ( 0.5 , 0.5 , 0.75 );
  71.         p ( 0.5 , 0.5 , 0.8 );
  72.         p ( 0.5 , 0.5 , 0.85 );
  73.         p ( 0.5 , 0.5 , 0.9 );
  74.         p ( 0.5 , 0.5 , 0.95 );
  75.     }
  76. }
  77.  
  78. dfmat _field2;
  79.         param {
  80.             k value 0.2 from 0 to 1;        
  81.         }
  82.         mat {
  83.             k "0.2;";
  84.             dist "sqrt( x*x + z*z );";
  85.             inc "k * 3.1415 * dist;";
  86.             ang " atan( z / ( x + 0.001 * zero(x)) );";
  87.             ry "0;";
  88.             rx "dist * cos( ang + inc ) - x;";
  89.             rz "dist * sin( ang + inc ) - z;";
  90.         }
  91.  
  92.     }
  93. }
  94. .
  95.  
  96.