| Revision: | 1.1 |
| Committed: | Wed Mar 12 17:45:48 2003 UTC (22 years, 8 months ago) by greg |
| Branch: | MAIN |
| Log Message: | Added the rest of the missing files to ray/lib/ |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | greg | 1.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) ; |