Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug257
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 
11 puts [checkshape result]
12
13 set bb [bounding result]
14
15 set list [split ${bb}]
16 set listLength [llength ${list}]
17 if { ${listLength} < 6 } {
18    puts "Error : listLength = ${listLength}"
19 }
20
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]
27
28 set len [expr ${x2} - ${x1}]
29 set width  [expr ${y2} - ${y1}]
30 set height [expr ${z2} - ${z1}]
31
32 set R 180
33
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]
37
38 set maxdelta 0.1
39
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}"}
43
44 if { ${xdelta} <= ${maxdelta} && ${ydelta} <= ${maxdelta} && ${zdelta} <= ${maxdelta} } then {
45    puts "OCC257: OK"
46 }
47
48 set 3dviewer 0
49