Navigation

list_face_loops

EXPRESS specification:

FUNCTION list_face_loops
(f: face) : LIST[0:?] OF loop;
   LOCAL
 loops : LIST[0:?] OF loop := [];
   END_LOCAL;
 
   REPEAT i := 1 TO SIZEOF(f.bounds);
 loops := loops +(f.bounds[i].bound);
   END_REPEAT;
 
  RETURN(loops);
END_FUNCTION;