352ffd73 |
1 | puts "================" |
2 | puts "OCC659" |
3 | puts "================" |
4 | puts "" |
5 | ############################################# |
6 | ## Units are not taken into account while translating IGES surfaces |
7 | ############################################# |
8 | |
9 | param read.surfacecurve.mode -2 |
10 | |
5d1833ef |
11 | set filepath [locate_data_file D44-11325-6.igs] |
12 | if [catch { igesbrep $filepath a 6425 } res] { |
352ffd73 |
13 | puts "Faulty OCC659 first: here is reading problem" |
14 | } |
15 | |
16 | renamevar a_1 a1 |
17 | |
18 | param read.surfacecurve.mode -3 |
19 | |
20 | if [catch { igesbrep . a 6425 } res] { |
21 | puts "Faulty OCC659 second: here is reading problem" |
22 | } |
23 | |
24 | renamevar a_1 a2 |
25 | |
1f26f80b |
26 | set size1 [ bounding a1 -save x1_a1 yy zz x2_a1 yy zz ] |
27 | set size2 [ bounding a2 -save x1_a2 yy zz x2_a2 yy zz ] |
352ffd73 |
28 | |
1a0339b4 |
29 | set dim2 [ dval x2_a2-x1_a2 ] |
30 | set dim1 [ dval x2_a1-x1_a1 ] |
352ffd73 |
31 | |
32 | set siz [expr ${dim1} / ${dim2}] |
33 | if { $siz > 25} { |
34 | puts "Faulty OCC659" |
35 | } else { |
36 | puts " OCC659 OK" |
37 | } |