FUNCTION orthogonal_complement

(* SCHEMA integrated_cnc_schema; *)

FUNCTION orthogonal_complement (
    vec : direction 
    ) : direction;
  LOCAL
    result : direction;
  END_LOCAL;
    IF (vec.dim <> 2) OR NOT EXISTS(vec) THEN
      RETURN (?);
    ELSE
      result := dummy_gri || direction([ -vec.direction_ratios[2], vec.
        direction_ratios[1] ]);
      RETURN (result);
    END_IF;
END_FUNCTION; -- 10303-42: geometry_schema

Referenced By

Defintion orthogonal_complement is references by the following definitions:

Definition	Type
base_axis	FUNCTION
build_2axes	FUNCTION

[Top Level Definitions]

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