a87752f3 |
1 | puts "===========" |
2 | puts " BUC60898" |
3 | puts "===========" |
4 | puts "" |
5 | |
6 | pload XDE |
a87752f3 |
7 | |
5d1833ef |
8 | set filepath [locate_data_file BUC60898.igs] |
9 | if [catch { igesbrep $filepath a *} result] { |
a87752f3 |
10 | puts "Faulty BUC60898: here is reading problem" |
11 | } else { |
12 | puts "BUC60898 OK" |
13 | tpcompound a |
14 | |
15 | if [catch {sewing result 1e-7 a } catch_result] { |
16 | puts "Faulty BUC60898: function SEWING gives except" |
17 | } else { |
18 | puts " BUC60898 OK: function SEWING works without except" |
19 | } |
5ae01c85 |
20 | |
fb60057d |
21 | checkmaxtol result -ref 0.077930308575156593 |
5ae01c85 |
22 | checknbshapes result -shell 4 |
23 | checkfreebounds result 1725 |
24 | |
5d1833ef |
25 | set square 798.266 |
355c1551 |
26 | set 2dviewer 0 |
a87752f3 |
27 | } |
28 | |
a87752f3 |
29 | |