| Revision: | 1.2 |
| Committed: | Tue Mar 18 17:30:18 2003 UTC (21 years, 2 months 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 |
| # | Content |
|---|---|
| 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); |