0e94a94e |
1 | puts "TODO OCC12345 ALL: OCC257 - Error : xdelta= 3.6651128509496784" |
2 | puts "TODO OCC12345 ALL: OCC257 - Error : ydelta= 5.840378793387278" |
3 | puts "TODO OCC12345 ALL: OCC257 - Error : zdelta= 1.4898469085120623" |
4 | |
5 | puts "================" |
6 | puts "OCC257" |
7 | puts "================" |
8 | puts "" |
9 | |
10 | restore [locate_data_file OCC257.brep] result |
352ffd73 |
11 | checkshape result |
0e94a94e |
12 | |
1f26f80b |
13 | bounding result -save x1 y1 z1 x2 y2 z2 |
0e94a94e |
14 | |
1a0339b4 |
15 | set len [ dval x2-x1] |
16 | set width [ dval y2-y1] |
17 | set height [ dval z2-z1] |
0e94a94e |
18 | |
19 | set R 180 |
20 | |
21 | set xdelta [expr abs(${len} - ${R}) / ${R} * 100] |
22 | set ydelta [expr abs(${width} - ${R}) / ${R} * 100] |
23 | set zdelta [expr abs(${height} - ${R}) / ${R} * 100] |
24 | |
25 | set maxdelta 0.1 |
26 | |
27 | if { ${xdelta} > ${maxdelta} } then {puts "OCC257 - Error : xdelta= ${xdelta}"} |
28 | if { ${ydelta} > ${maxdelta} } then {puts "OCC257 - Error : ydelta= ${ydelta}"} |
29 | if { ${zdelta} > ${maxdelta} } then {puts "OCC257 - Error : zdelta= ${zdelta}"} |
30 | |
31 | if { ${xdelta} <= ${maxdelta} && ${ydelta} <= ${maxdelta} && ${zdelta} <= ${maxdelta} } then { |
32 | puts "OCC257: OK" |
33 | } |
34 | |
5747059b |
35 | checkview -display result -3d -path ${imagedir}/${test_image}.png |