a87752f3 |
1 | puts "================" |

2 | puts "OCC235" |

3 | puts "================" |

4 | puts "" |

5 | ####################################################### |

6 | ## Intersection algorithm finds two intersection curves. One curve is closed while |

7 | ## second is not (the distance between first and last points is 2e-5). |

8 | ####################################################### |

9 | |

10 | restore [locate_data_file OCC235a.rle] su1 |

11 | ############### checkshape su1 # is not a topological shape |

12 | restore [locate_data_file OCC235b.rle] su2 |

13 | ############### checkshape su2 # is not a topological shape |

14 | |

15 | intersect result su1 su2 |

16 | |

17 | set dir [directory] |

18 | set nb_result [regexp -all {result} $dir] |

19 | if { $nb_result != 2 } { |

20 | puts "Faulty OCC235 (first checking): Intersection was made WRONGLY" |

21 | } else { |

22 | puts "OCC235 OK (first checking) : Intersection command works properly" |

23 | |

24 | regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_1] full num_1 |

25 | if { $num_1 != 0 } { |

26 | puts " Faulty OCC235 (second checking): Result result_1 is UNclosed !!! " |

27 | } else { |

28 | puts " OCC235 OK (second checking): Result result_1 is closed !!! " |

29 | } |

30 | |

31 | regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_2] full num_2 |

32 | if { $num_2 != 0 } { |

33 | puts " Faulty OCC235 (second checking): Result result_2 is UNclosed !!! " |

34 | } else { |

35 | puts " OCC235 OK (second checking): Result result_2 is closed !!! " |

36 | } |

37 | } |

38 | |

39 | set 2dviewer 0 |

40 | |

41 | |