home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / radiance / lib / orange.cal < prev    next >
Encoding:
Text File  |  1991-04-23  |  722 b   |  24 lines
  1. {
  2.     orange.cal - texture for orange
  3.  
  4.     orange must be unit sphere centered at origin
  5.  
  6.     A1 = angular frequency
  7. }
  8. otex_psiz : .006;            { was .003 }
  9. otex_rand : .6;
  10.  
  11. otex_dx = otex_psiz * PI*sin(2*otex_X)/2*Py/otex_rad/A1 / otex_denom;
  12.  
  13. otex_dy = otex_psiz * -PI*sin(2*otex_X)/2*Px/otex_rad/A1 / otex_denom;
  14.  
  15. otex_dz = otex_psiz * PI*(sin(2*otex_X)/2*(Pz*atan2(Py,Px)-1/sqrt(3)) +
  16.         sin(2*otex_Y)/sqrt(3))/otex_rad/A1 / otex_denom;
  17.  
  18. otex_X = PI * ((atan2(Py,Px)*otex_rad - acos(Pz)/sqrt(3))/A1 +
  19.         otex_rand*noise3(Px/A1,Py/A1,Pz/A1));
  20. otex_Y = PI * (2*acos(Pz)/sqrt(3)/A1 +
  21.         otex_rand*noise3((Px+1)/A1,(Py+1)/A1,(Pz+1)/A1));
  22. otex_denom = (sq(sin(otex_X))+sq(sin(otex_Y)))^1.5;
  23. otex_rad = sqrt(1-Pz*Pz);
  24.