RULE representation_items_for_hull_moulded_form_design_parameter

(* SCHEMA ship_moulded_form_schema; *)

  RULE representation_items_for_hull_moulded_form_design_parameter FOR (
             representation);

    LOCAL
      found    : LOGICAL := FALSE;
      arg_list : LIST OF STRING := ['moulded form outer surface',
                  'moulded form displacement',
                  'waterline angle of entrance at stern',
                  'waterline angle of entrance at bow',
                  'max frame section area location','hull length pp',
                  'hull length waterline','hull breadth','hull depth',
                  'hull design draught','gunwale radius'];
      reps     : BAG OF representation := [];
    END_LOCAL;
    reps := QUERY ( temp_rep <* representation | (SIZEOF(
        QUERY ( temp_prop_def_rep <* bag_to_set(USEDIN(temp_rep,
        'SHIP_MOULDED_FORM_SCHEMA.PROPERTY_DEFINITION_REPRESENTATION.' + 
        'USED_REPRESENTATION')) | (temp_prop_def_rep.name = 
        'hull moulded form design parameter') )) > 0) );
    REPEAT i := 1 TO HIINDEX(reps) BY 1 WHILE NOT found;
      REPEAT j := 1 TO HIINDEX(arg_list) BY 1 WHILE NOT found;
        found := SIZEOF(QUERY ( rep_item <* reps[i].items | (rep_item.name 
            = arg_list[j]) )) > 1;
      END_REPEAT;
    END_REPEAT;

  WHERE
    wr1: (NOT found);

  END_RULE; -- representation_items_for_hull_moulded_form_design_parameter

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:16:47-04:00