| 1 |
greg |
1.2 |
{ RCSid $Id$ } |
| 2 |
greg |
1.1 |
{ |
| 3 |
|
|
Peerless' brightness mapping function |
| 4 |
|
|
|
| 5 |
|
|
Mapping of Luminance to Brightness for CRT display. |
| 6 |
|
|
Hand this file to pcomb(1) with the -f option. |
| 7 |
|
|
The picture file should have been run previously through |
| 8 |
|
|
the automatic exposure procedure of pfilt(1), and |
| 9 |
|
|
pcomb should also be given -o option. Like so: |
| 10 |
|
|
|
| 11 |
|
|
pfilt input.pic | pcomb -f peerless.cal -o - > output.pic |
| 12 |
|
|
|
| 13 |
|
|
} |
| 14 |
|
|
La_w : 0.5/le(1) * WE; |
| 15 |
|
|
Lmax_v : 120; |
| 16 |
|
|
La_v : Lmax_v/2; |
| 17 |
|
|
b(La) : .338*La^.034; |
| 18 |
|
|
k(La) : -1.5*log10(La) + 6.1; |
| 19 |
|
|
B_w(L) : k(La_w) * L^b(La_w); |
| 20 |
|
|
L_w(B) : (B/k(La_w))^(1/b(La_w)); |
| 21 |
|
|
B_v(L) : k(La_v) * L^b(La_v); |
| 22 |
|
|
L_v(B) : (B/k(La_v))^(1/b(La_v)); |
| 23 |
|
|
Bmax_w : B_w(3*La_w); |
| 24 |
|
|
Bmax_v : B_v(Lmax_v); |
| 25 |
|
|
|
| 26 |
|
|
lum_w = li(1)*WE; |
| 27 |
|
|
|
| 28 |
|
|
lum_v = L_v(Bmax_v/Bmax_w*B_w(lum_w)); |
| 29 |
|
|
|
| 30 |
|
|
mult = WE/Lmax_v*lum_v/lum_w; |
| 31 |
|
|
|
| 32 |
|
|
ro = mult*ri(1); |
| 33 |
|
|
go = mult*gi(1); |
| 34 |
|
|
bo = mult*bi(1); |
