FUNCTION second_proj_axis

(* SCHEMA integrated_cnc_schema; *)

FUNCTION second_proj_axis (
    z_axis : direction;
    x_axis : direction;
    arg    : direction 
    ) : direction;
  LOCAL
    y_axis : vector;
    v : direction;
    temp : vector;
  END_LOCAL;
    IF NOT EXISTS(arg) THEN
      v := dummy_gri || direction([ 0.0, 1.0, 0.0 ]);
    ELSE
      v := arg;
    END_IF;
    temp := scalar_times_vector(dot_product(v, z_axis), z_axis);
    y_axis := vector_difference(v, temp);
    temp := scalar_times_vector(dot_product(v, x_axis), x_axis);
    y_axis := vector_difference(y_axis, temp);
    y_axis := normalise(y_axis);
    RETURN (y_axis.orientation);
END_FUNCTION; -- 10303-42: geometry_schema

Referenced By

Generated by STEP Tools^TM EXPRESS to HTML Converter
on 2010-01-12T10:42:26-02:00