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 |
# | Content |
---|---|
1 | { RCSid $Id$ } |
2 | { |
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)); |