(* SCHEMA associative_draughting; *)
FUNCTION build_2axes(
ref_direction: direction
): LIST [2:2] OF direction;
LOCAL
u : LIST [2:2] OF direction;
END_LOCAL;
u[1] := NVL(normalise(ref_direction),direction([1,0]));
u[2] := orthogonal_complement(u[1]);
RETURN(u);
END_FUNCTION; -- build_2axes
|
Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:14:12-04:00