src/gen/surf.cal

{ SCCSid "$SunId$ LBL" }

{
        surf.cal - calculation of interpolated surface normal

        A1              - dominant axis (we use the other two)
        A2  A3  A4      \
        A5  A6  A7       \ normal perturbation vector matrix
        A8  A9  A10      / multiplied by [u*v u v 1] for perturbation
        A11 A12 A13     /
}

surf_u = select(arg(1)+1, Py, Pz, Px);
surf_v = select(arg(1)+1, Pz, Px, Py);

surf_dx = surf_u*surf_v*arg(2) + surf_u*arg(5) + surf_v*arg(8) + arg(11);
surf_dy = surf_u*surf_v*arg(3) + surf_u*arg(6) + surf_v*arg(9) + arg(12);
surf_dz = surf_u*surf_v*arg(4) + surf_u*arg(7) + surf_v*arg(10) + arg(13);
Revision:	2.2
Committed:	Thu Jul 9 13:06:21 1998 UTC (27 years, 3 months ago) by gwlarson
Branch:	MAIN
Changes since 2.1:	+3 -3 lines
Log Message:	fixed variable ordering
#	User	Rev	Content
1	greg	1.1	{ SCCSid "$SunId$ LBL" }
2
3			{
4			surf.cal - calculation of interpolated surface normal
5
6			A1 - dominant axis (we use the other two)
7			A2 A3 A4 \
8			A5 A6 A7 \ normal perturbation vector matrix
9			A8 A9 A10 / multiplied by [u*v u v 1] for perturbation
10			A11 A12 A13 /
11			}
12
13	gwlarson	2.2	surf_u = select(arg(1)+1, Py, Pz, Px);
14			surf_v = select(arg(1)+1, Pz, Px, Py);
15
16	greg	1.1	surf_dx = surf_usurf_varg(2) + surf_uarg(5) + surf_varg(8) + arg(11);
17			surf_dy = surf_usurf_varg(3) + surf_uarg(6) + surf_varg(9) + arg(12);
18			surf_dz = surf_usurf_varg(4) + surf_uarg(7) + surf_varg(10) + arg(13);