| Revision: | 1.1 |
| Committed: | Wed Mar 12 17:45:48 2003 UTC (22 years, 2 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 | weave.cal - function for simple diagonal weave pattern | ||
| 3 | on horizontal surface. | ||
| 4 | |||
| 5 | A1 is weave square size. | ||
| 6 | } | ||
| 7 | |||
| 8 | weave = f_weave(frac((Px+Pz)/1.4142/A1),frac((Px-Pz)/1.4142/A1)); | ||
| 9 | |||
| 10 | f_weave(m1,m2) = if (m1-.5, if (m1-.55, f_weave(m2,1.05-m1), .1), | ||
| 11 | if (m2-.5, if (m2-.55, f_weave(1.05-m2,m1), .1), | ||
| 12 | if (m1-.05, if (m2-.25, if (m2-.3, .5, .1), if (m2-.05, 1, .1)), .1))); |