|
FUNCTION compute_total_depth (swsrh : solid_with_stepped_round_hole) : positive_length_measure; LOCAL i : INTEGER ; td : positive_length_measure := 0 ; END_LOCAL ; REPEAT i := 1 TO swsrh . segments ; td := td + swsrh . segment_depths [ i ] ; END_REPEAT ; RETURN ( td ) ; END_FUNCTION; -- compute_total_depth |
|
public class FCompute_total_depth public static Value run(SdaiContext _context, Value swsrh) |