(* SCHEMA Ship_arrangement_schema; *)
FUNCTION build_2axes
(ref_direction : direction ) : LIST [2:2] OF direction;
LOCAL
d : direction := NVL(normalise(ref_direction), dummy_gri || direction([ 1.00000, 0.00000 ]));
END_LOCAL;
RETURN ([ d, orthogonal_complement(d) ]);
END_FUNCTION;
|
Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:16:37-04:00