This file is indexed.

/usr/share/radiance/tim1.cal is in radiance-materials 4R1+20120125-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
{
	Calculate BRTDF of Transparent Insulation Materials
	made up of many small tubes packed tightly together.

	29 Nov 1991	Greg Ward and Raphael Compagnon
	06 Feb 1995	Updated for Radiance 2.4 by Greg Ward

	Apply with following BRTDfunc:

	mod BRTDfunc tim1
	10	0	0	0
		stran	stran	stran
		brtdf	brtdf	brtdf
		tim1.cal
	0
	12 0 0 0 0 0 0 0 0 0 R T K

	where:
		R = diffuse reflectance when Ktan_t is zero
		T = total transmittance
		K = ratio of tube length to diameter
}

Ktan_t = arg(12) * Sqrt(1-RdotP*RdotP)/RdotP;

stran = if(1-Ktan_t, 2/PI*Acos(Ktan_t) - Ktan_t/PI*Sqrt(1-Ktan_t*Ktan_t), 0);

brtdf(lx,ly,lz) = if(lx*NxP+ly*NyP+lz*NzP, arg(10), arg(11)/(1-arg(10)))
			* (1-stran)/PI;