|
|
|
self_intersect
|
:
|
LOGICAL;
|
|
|
u_upper
|
:
|
INTEGER := SIZEOF(control_points_list) - 1;
|
v_upper
|
:
|
INTEGER := SIZEOF(control_points_list[1]) - 1;
|
control_points
|
:
|
ARRAY [0:100] OF ARRAY [0:100] OF cartesian_point :=
make_array_of_array (control_points_list, 0, u_upper, 0, v_upper);
|
|
|
WRB4
|
:
|
('STRUCTURAL_FRAME_SCHEMA.UNIFORM_SURFACE' IN TYPEOF(SELF)) OR
('STRUCTURAL_FRAME_SCHEMA.QUASI_UNIFORM_SURFACE' IN TYPEOF(SELF)) OR
('STRUCTURAL_FRAME_SCHEMA.BEZIER_SURFACE' IN TYPEOF(SELF)) OR
('STRUCTURAL_FRAME_SCHEMA.B_SPLINE_SURFACE_WITH_KNOTS' IN TYPEOF(SELF));
|
|
|
|