| Revision: | 1.2 |
| Committed: | Wed Nov 21 18:10:45 2018 UTC (5 years, 6 months ago) by greg |
| Branch: | MAIN |
| CVS Tags: | rad5R4, rad5R3, HEAD |
| Changes since 1.1: | +1 -0 lines |
| Log Message: | Added missing RCSid tag |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | greg | 1.2 | { RCSid $Id$ } |
| 2 | greg | 1.1 | { |
| 3 | Warp response function for printing to avoid | ||
| 4 | contrast loss at low end. | ||
| 5 | |||
| 6 | 9/12/97 GWL | ||
| 7 | } | ||
| 8 | PrintPivot: .05; { print pivot point } | ||
| 9 | OrigPivot: .025; { original pivot point } | ||
| 10 | |||
| 11 | map(v) = if( v - OrigPivot, | ||
| 12 | (v-OrigPivot)*((1-PrintPivot)/(1-OrigPivot)) + PrintPivot, | ||
| 13 | v*(PrintPivot/OrigPivot) ); | ||
| 14 | |||
| 15 | ro = map(ri(1)); | ||
| 16 | go = map(gi(1)); | ||
| 17 | bo = map(bi(1)); |