Overview Schemas Index

GEOMETRY_SCHEMA (jsdai.SGeometry_schema)


FUNCTION volume_weights_positive
          (b : rational_b_spline_volume) : BOOLEAN;

LOCAL
       result   : BOOLEAN := TRUE;
     END_LOCAL;

     REPEAT  i := 0 TO  b.u_upper;
       REPEAT  j := 0 TO  b.v_upper;
         REPEAT k := 0 TO b.w_upper;
           IF (b.weights[i][j][k] <= 0.0)  THEN
             result := FALSE;
             RETURN(result);
           END_IF;
         END_REPEAT;
       END_REPEAT;
     END_REPEAT;
     RETURN(result);

END_FUNCTION; -- volume_weights_positive

public class FVolume_weights_positive
          public static Value run(SdaiContext _context, Value b)