home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / video / render / radiance.lzh / ray / lib / bark.cal < prev    next >
Encoding:
Text File  |  1986-11-11  |  429 b   |  21 lines
  1. {
  2.     bark.cal - functional pattern for tree bark.
  3.     
  4.     Argument A1 is the bark size.
  5.  
  6.     11/11/86
  7. }
  8.  
  9. bark_pat = if(and(xbark, and(ybark, zbark)), 
  10.         noise3(5*Px/A1,5*Py/A1,5*Pz/A1)/4+.75,
  11.         .1);
  12. xbark = if(.5774-abs(Nx),
  13.         frac(Px/A1+noise3a(Px/A1,Py/A1,Pz/A1)*.8)-.2,
  14.         1);
  15. ybark = if(.5774-abs(Ny),
  16.         frac(Py/A1+noise3b(Px/A1,Py/A1,Pz/A1)*.8)-.2,
  17.         1);
  18. zbark = if(.5774-abs(Nz),
  19.         frac(Pz/A1+noise3c(Px/A1,Py/A1,Pz/A1)*.8)-.2,
  20.         1);
  21.