| 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 | A texture function for wrinkled materials. | ||
| 3 | |||
| 4 | 11/23/93 Greg Ward | ||
| 5 | |||
| 6 | A1 - average rise of wrinkles | ||
| 7 | A2 - average run of wrinkles | ||
| 8 | A3 - average spacing of wrinkles | ||
| 9 | } | ||
| 10 | |||
| 11 | diri = noise3(Px/A2/3,Py/A2/3,Pz/A2/3); | ||
| 12 | |||
| 13 | mx = Sqrt(-diri); | ||
| 14 | my = Sqrt(1-abs(diri)); | ||
| 15 | mz = Sqrt(diri); | ||
| 16 | |||
| 17 | xwrink = Rdot*A1/A3*mx*fnoise3(Px/A3,Py/A2,Pz/A2); | ||
| 18 | ywrink = Rdot*A1/A3*my*fnoise3(Px/A2,Py/A3,Pz/A2); | ||
| 19 | zwrink = Rdot*A1/A3*mz*fnoise3(Py/A2,Py/A2,Pz/A3); |