/usr/share/radiance/brickweave.cal is in radiance-materials 4R1+20120125-1.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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 | { file created by makewarp }
brickweave_u = if(brickweave_inbounds(Px,Py), brickweave_wu(Px,Py), Px) ;
brickweave_v = if(brickweave_inbounds(Px,Py), brickweave_wv(Px,Py), Py) ;
brickweave_tile_u = brickweave_wu(mod(Px,brickweave_mu),mod(Py,brickweave_mv)) ;
brickweave_tile_v = brickweave_wv(mod(Px,brickweave_mu),mod(Py,brickweave_mv)) ;
brickweave_match_u = brickweave_wu(tri(Px,brickweave_mu),tri(Py,brickweave_mv)) ;
brickweave_match_v = brickweave_wv(tri(Px,brickweave_mu),tri(Py,brickweave_mv)) ;
brickweave_wu(u,v) =
linterp(frac(brickweave_iu(u)),
linterp(frac(brickweave_iv(v)),
brickweave_gu(floor(brickweave_iu(u)),floor(brickweave_iv(v))),
brickweave_gu(floor(brickweave_iu(u)),ceil(brickweave_iv(v)))
), linterp(frac(brickweave_iv(v)),
brickweave_gu(ceil(brickweave_iu(u)),floor(brickweave_iv(v))),
brickweave_gu(ceil(brickweave_iu(u)),ceil(brickweave_iv(v)))
)
) ;
brickweave_wv(u,v) =
linterp(frac(brickweave_iu(u)),
linterp(frac(brickweave_iv(v)),
brickweave_gv(floor(brickweave_iu(u)),floor(brickweave_iv(v))),
brickweave_gv(floor(brickweave_iu(u)),ceil(brickweave_iv(v)))
), linterp(frac(brickweave_iv(v)),
brickweave_gv(ceil(brickweave_iu(u)),floor(brickweave_iv(v))),
brickweave_gv(ceil(brickweave_iu(u)),ceil(brickweave_iv(v)))
)
) ;
brickweave_iu(u) = 1 + 4 * u / brickweave_mu ;
brickweave_iv(v) = 1 + 4 * v / brickweave_mv ;
brickweave_inbounds(u,v) = and( and( u, brickweave_mu - u),
and(v, brickweave_mv - v) ) ;
brickweave_mu = 1.000000 ;
brickweave_mv = 1.000000 ;
brickweave_gu(i, j) = select( i,
select( j,
0.000000,
0.000000,
0.000000,
0.000000,
0.000000
), select( j,
0.248322,
0.248322,
0.248322,
0.248322,
0.248322
), select( j,
0.496644,
0.496644,
0.496644,
0.496644,
0.496644
), select( j,
0.744966,
0.744966,
0.744966,
0.744966,
0.744966
), select( j,
1.000000,
1.000000,
1.000000,
1.000000,
1.000000
)
) ;
brickweave_gv(i, j) = select( i,
select( j,
1.000000,
0.751678,
0.503356,
0.255034,
0.000000
), select( j,
1.000000,
0.751678,
0.503356,
0.255034,
0.000000
), select( j,
1.000000,
0.751678,
0.503356,
0.255034,
0.000000
), select( j,
1.000000,
0.751678,
0.503356,
0.255034,
0.000000
), select( j,
1.000000,
0.751678,
0.503356,
0.255034,
0.000000
)
) ;
|