cal/cal/reinhard.cal

{
        Erik Reinhard's simple global tone-operator
}
{ Lwht = 1e10;          { set on command line } }
{ Lavg = .5;            { set on command line } }
{ a : 0.18;             { set on command line } }
Lwhite : a/Lavg*Lwht;
L = a/Lavg*li(1);
sq(x) : x*x;
Ld = L*(1+L/sq(Lwhite))/(1+L);
mult = Ld/li(1);
ro = ri(1)*mult;
go = gi(1)*mult;
bo = bi(1)*mult;
Revision:	1.1
Committed:	Sat Feb 22 02:07:21 2003 UTC (21 years, 2 months ago) by greg
Branch:	MAIN
CVS Tags:	rad5R2, rad4R2P2, rad5R0, rad5R1, rad3R7P2, rad3R7P1, rad4R2, rad4R1, rad4R0, rad3R5, rad3R6, rad3R6P1, rad3R8, rad3R9, rad4R2P1
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	Content
1	{
2	Erik Reinhard's simple global tone-operator
3	}
4	{ Lwht = 1e10; { set on command line } }
5	{ Lavg = .5; { set on command line } }
6	{ a : 0.18; { set on command line } }
7	Lwhite : a/Lavg*Lwht;
8	L = a/Lavg*li(1);
9	sq(x) : x*x;
10	Ld = L*(1+L/sq(Lwhite))/(1+L);
11	mult = Ld/li(1);
12	ro = ri(1)*mult;
13	go = gi(1)*mult;
14	bo = bi(1)*mult;