Mercurial > hg > octave-nkf

comparison scripts/plot/surfl.m @ 16754:022dba56de1e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate unnecessary normalisation of view vector in surfl (bug #39241) * surfl.m: Don't normalize view vector.
author Andreas Weber <andy.weber.aw@googlemail.com>
date Wed, 12 Jun 2013 10:03:50 -0400
parents 5d3a684236b0
children 1118d566bcd4
comparison
equal deleted inserted replaced
16753:f8f35ddc49a2 16754:022dba56de1e
129 endif 129 endif
130 130
131 ## Get view vector (vv). 131 ## Get view vector (vv).
132 a = axis; 132 a = axis;
133 [az, el] = view; 133 [az, el] = view;
134 [vv(1), vv(2), vv(3)] = sph2cart ((az - 90) * pi/180.0, el * pi/180.0, 1.0); 134 vv = sph2cart ((az - 90) * pi/180.0, el * pi/180.0, 1.0);
135 vv /= norm (vv);
136 135
137 if (!have_lv) 136 if (!have_lv)
138 ## Calculate light vector (lv) from view vector. 137 ## Calculate light vector (lv) from view vector.
139 Phi = 45.0 / 180.0 * pi; 138 Phi = 45.0 / 180.0 * pi;
140 R = [cos(Phi), -sin(Phi), 0; 139 R = [cos(Phi), -sin(Phi), 0;