rename PDL_3D_UNITISE to PDL_3D_SETVECLEN

Author: mohawk2

lib/PDL/Graphics/OpenGLQ.pd

@@ -47,11 +47,11 @@ pp_addhdr('
     to[1] = -(v1[0]*v2[2] - v2[0]*v1[2]); \
     to[2] = v1[0]*v2[1] - v2[0]*v1[1]; \
   }
-#define PDL_3D_UNITISE(v, factor) \
+#define PDL_3D_SETVECLEN(v, newlen) \
   { \
-    float len = sqrtf(v[0] * v[0] + v[1] * v[1] + v[2] * v[2]); \
+    float len = sqrtf(v[0]*v[0] + v[1]*v[1] + v[2]*v[2]), fac = newlen/len; \
     int i; \
-    for (i = 0; i < 3; i++) v[i] *= factor/len; \
+    for (i = 0; i < 3; i++) v[i] *= fac; \
   }
 ');
 
@@ -181,9 +181,9 @@ broadcastloop %{
   %}
   PDL_3D_CROSS(norm, tmp1, tmp2);
   PDL_3D_CROSS(norm2, tmp1, norm);
-  PDL_3D_UNITISE(norm, w);
-  PDL_3D_UNITISE(norm2, w);
-  PDL_3D_UNITISE(tmp1, 1);
+  PDL_3D_SETVECLEN(norm, w);
+  PDL_3D_SETVECLEN(norm2, w);
+  PDL_3D_SETVECLEN(tmp1, 1);
   glBegin(GL_LINES);
   glVertex3d( $coords(tri => 0, n => a) ,
               $coords(tri => 1, n => a) ,
@@ -254,7 +254,7 @@ loop(f) %{
     tmp0_2[tri] = $vertices(v => vertidx[2]) - $vertices(v => vertidx[0]);
   %}
   PDL_3D_CROSS(tmpcross, tmp0_1, tmp0_2);
-  PDL_3D_UNITISE(tmpcross, 1);
+  PDL_3D_SETVECLEN(tmpcross, 1);
   loop(tri) %{ $facenorm() = tmpcross[tri]; %}
   loop(trivert,tri) %{ $vertnorm(v=>vertidx[trivert]) += $facenorm(); %}
 %}