home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / RADIANCE / LIB / WOODPAT.CAL < prev    next >
Text File  |  1993-10-07  |  375b  |  15 lines
  1. {
  2.     Wood grain pattern:
  3.  
  4.     A1 - magnitude (0 to 1)
  5. }
  6.  
  7. xgrain = woodgrain(Ring(Py,Pz));    { along x axis }
  8. ygrain = woodgrain(Ring(Px,Pz));    { along y axis }
  9. zgrain = woodgrain(Ring(Px,Py));    { along z axis }
  10.  
  11. woodgrain(r) = hermite(.6-A1/2,.6+A1/2,2,.5,2*tri(r,.5));
  12.  
  13. Ring(a,b) = sqrt( 25 + sq(mod(a,50)-25) + sq(mod(b,50)-25)) +
  14.           7 * fnoise3(Px/40,Py/40,Pz/40) ;
  15.