|
ENTITY rational_b_spline_surface;
|
|
|
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);
|
|
|
weights_data
|
:
|
LIST [2:?] OF LIST [2:?] OF REAL;
|
|
|
weights
|
:
|
ARRAY [0:100] OF ARRAY [0:100] OF REAL := make_array_of_array
(weights_data, 0, u_upper, 0, v_upper);
|
|
|
|