> (cprfn 'rotate-x)

rotate-x(b, theta, x)
  {
    x[0][0] = b[0][0];
    x[0][1] = b[0][1];
    x[0][2] = b[0][2];
    x[0][3] = b[0][3];
    x[1][0] = ((cos(theta) * b[1][0])
               - (sin(theta) * b[2][0]));
    x[1][1] = ((cos(theta) * b[1][1])
               - (sin(theta) * b[2][1]));
    x[1][2] = ((cos(theta) * b[1][2])
               - (sin(theta) * b[2][2]));
    x[1][3] = ((cos(theta) * b[1][3])
               - (sin(theta) * b[2][3]));
    x[2][0] = ((sin(theta) * b[1][0])
               + (cos(theta) * b[2][0]));
    x[2][1] = ((sin(theta) * b[1][1])
               + (cos(theta) * b[2][1]));
    x[2][2] = ((sin(theta) * b[1][2])
               + (cos(theta) * b[2][2]));
    x[2][3] = ((sin(theta) * b[1][3])
               + (cos(theta) * b[2][3]));
    x[3][0] = b[3][0];
    x[3][1] = b[3][1];
    x[3][2] = b[3][2];
    x[3][3] = b[3][3];
    };

Contents    Page-10    Prev    Next    Page+10    Index