| Revision: | 1.2 |
| Committed: | Tue Mar 18 17:30:18 2003 UTC (22 years, 1 month ago) by greg |
| Branch: | MAIN |
| CVS Tags: | HEAD |
| Changes since 1.1: | +0 -0 lines |
| State: | FILE REMOVED |
| Log Message: | Decided to move ray/lib directory into non-CVS distribution |
| # | 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); |