home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / radiance / lib / plink.cal < prev    next >
Encoding:
Text File  |  1991-09-04  |  1.3 KB  |  41 lines
  1. {
  2.     Definitions for PLINK-specific materials
  3.  
  4.     This file assumes meters.
  5.  
  6.     Created:    03Sept91    Greg Ward
  7.     Last modified:    03Sept91
  8. }
  9.  
  10. { pattern for criss-crossed wires in armored glass (armee) }
  11.     wire_width : .001;
  12.     wire_spacing : .011;
  13.     u_armor = wire_width - mod(U,wire_spacing);
  14.     v_armor = wire_width - mod(V,wire_spacing);
  15. arm_wire = if(or(u_armor,v_armor), .2, 1);
  16.  
  17. { texture for bathroom-style glass (granule) }
  18.     gran_scale : .002;
  19.     gran_mag = .3*Rdot;
  20. gran_dx = gran_mag * noise3a(Px/gran_scale,Py/gran_scale,Pz/gran_scale);
  21. gran_dy = gran_mag * noise3b(Px/gran_scale,Py/gran_scale,Pz/gran_scale);
  22. gran_dz = gran_mag * noise3c(Px/gran_scale,Py/gran_scale,Pz/gran_scale);
  23.  
  24. { texture for "hammered" glass (martele) }
  25.     mg_scale : .001;
  26.     mg_mag = .15*Rdot;
  27.     mb_scale : .01;
  28.     mb_cvr : .2;
  29.     mb_val = noise3(Px/mb_scale,Py/mb_scale,Pz/mb_scale);
  30.     mb_true = mb_cvr/2 - abs(mb_val);
  31.     mb_mag = mb_val/(mb_cvr/2)*Rdot;
  32. mar_dx = if(mb_true,
  33.         mb_mag*noise3a(Px/mb_scale,Py/mb_scale,Pz/mb_scale),
  34.         mg_mag*noise3a(Px/mg_scale,Py/mg_scale,Pz/mg_scale));
  35. mar_dy = if(mb_true,
  36.         mb_mag*noise3b(Px/mb_scale,Py/mb_scale,Pz/mb_scale),
  37.         mg_mag*noise3b(Px/mg_scale,Py/mg_scale,Pz/mg_scale));
  38. mar_dz = if(mb_true,
  39.         mb_mag*noise3c(Px/mb_scale,Py/mb_scale,Pz/mb_scale),
  40.         mg_mag*noise3c(Px/mg_scale,Py/mg_scale,Pz/mg_scale));
  41.