ray/lib/brick.cal

{
        Brick patterns

        A1      = Grout width
        A2      = Nominal layer height
        A3      = Nominal brick spacing
        A4      = Offset
        A5      = Brick brightness
        A6      = Grout brightness
}

brick_xy = if( f_brick_xy, A5, A6 );
brick_x = if( f_brick_x, A5, A6 );
brick_y = if( f_brick_y, A5, A6 );

f_brick_xy = and( brick_inv,
        if( brick_inx, brick_inh(Px+2*A1), brick_inh(Py+2*A1) ) );
f_brick_x = and( brick_inv, brick_inh(Px) ) ;
f_brick_y = and( brick_inv, brick_inh(Py) ) ;

brick_inx = .5 - Nx*Nx;
brick_inv = mod(Pz,A2) - A1 ;
brick_inh(h) = mod(h+floor(Pz/A2)*A4,A3) - A1;

brick_swx = if(brick_inx, 1, 0);
Revision:	1.2
Committed:	Tue Mar 18 17:30:16 2003 UTC (22 years, 7 months ago) by greg
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.1:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	Decided to move ray/lib directory into non-CVS distribution
#	Content
1	{
2	Brick patterns
3
4	A1 = Grout width
5	A2 = Nominal layer height
6	A3 = Nominal brick spacing
7	A4 = Offset
8	A5 = Brick brightness
9	A6 = Grout brightness
10	}
11
12	brick_xy = if( f_brick_xy, A5, A6 );
13	brick_x = if( f_brick_x, A5, A6 );
14	brick_y = if( f_brick_y, A5, A6 );
15
16	f_brick_xy = and( brick_inv,
17	if( brick_inx, brick_inh(Px+2A1), brick_inh(Py+2A1) ) );
18	f_brick_x = and( brick_inv, brick_inh(Px) ) ;
19	f_brick_y = and( brick_inv, brick_inh(Py) ) ;
20
21	brick_inx = .5 - Nx*Nx;
22	brick_inv = mod(Pz,A2) - A1 ;
23	brick_inh(h) = mod(h+floor(Pz/A2)*A4,A3) - A1;
24
25	brick_swx = if(brick_inx, 1, 0);