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"
5 puts "================"
7 puts "================"
10 restore [locate_data_file OCC257.brep] result
13 set bb [bounding result]
15 set list [split ${bb}]
16 set listLength [llength ${list}]
17 if { ${listLength} < 6 } {
18 puts "Error : listLength = ${listLength}"
21 set x1 [lindex ${list} 0]
22 set y1 [lindex ${list} 1]
23 set z1 [lindex ${list} 2]
24 set x2 [lindex ${list} 3]
25 set y2 [lindex ${list} 4]
26 set z2 [lindex ${list} 5]
28 set len [expr ${x2} - ${x1}]
29 set width [expr ${y2} - ${y1}]
30 set height [expr ${z2} - ${z1}]
34 set xdelta [expr abs(${len} - ${R}) / ${R} * 100]
35 set ydelta [expr abs(${width} - ${R}) / ${R} * 100]
36 set zdelta [expr abs(${height} - ${R}) / ${R} * 100]
40 if { ${xdelta} > ${maxdelta} } then {puts "OCC257 - Error : xdelta= ${xdelta}"}
41 if { ${ydelta} > ${maxdelta} } then {puts "OCC257 - Error : ydelta= ${ydelta}"}
42 if { ${zdelta} > ${maxdelta} } then {puts "OCC257 - Error : zdelta= ${zdelta}"}
44 if { ${xdelta} <= ${maxdelta} && ${ydelta} <= ${maxdelta} && ${zdelta} <= ${maxdelta} } then {