Integration part of tests of grid chl
[occt.git] / tests / bugs / step / bug60906
1 puts "TODO OCC12345 ALL: An exception was caught"
2 puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
3 puts "TODO OCC12345 ALL: Faulty OCC294"
4 puts "TODO OCC12345 ALL: Error : OCC294"
5 puts "TODO OCC12345 ALL: TEST INCOMPLETE"
6
7 puts "========================"
8 puts " BUC60906 "
9 puts "========================"
10
11 cpulimit 3000
12 pload QAcommands
13
14 stepread [locate_data_file Samtech_carcasse_gauche_simpl3.stp] a *
15
16 tpcompound com
17
18 set AllEdgesList [explode com e]
19 set list [split ${AllEdgesList}]
20 set NumbEdges [llength ${list}]
21 set delta 0.03
22 set IsSmallEdges 0
23
24 set IsOK 1
25
26 for {set i 1} {${i} <= ${NumbEdges}} {incr i} {
27    set i_tolerance [maxtolerance com_${i}]
28    set i_list [split ${i_tolerance} "\n\t"]
29    set i_listLength [llength ${i_list}]
30    if { ${i_listLength} < 7 } then {
31       puts "BUC60906 - Error : i = ${i}"
32       puts "BUC60906 - Error : i_listLength = ${i_listLength}"
33    }
34    set i_EdgeList [lindex ${i_list} 3]
35    set i_MaxEdgeTolerance [lindex [split ${i_EdgeList}] [expr [llength [split ${i_EdgeList}] ] - 2] ]
36    #puts "i_MaxEdgeTolerance = ${i_MaxEdgeTolerance}"
37    if { ${i_MaxEdgeTolerance} > ${delta} } then {
38        set IsSmallEdges 1
39        puts "Remove ${i}-th small edge with a tolerance of ${delta} mm"
40
41        if [catch { OCC294 shape_result com com_${i} } result] {
42           puts "Error : OCC294"
43           set IsOK 0
44           break
45        }
46
47        renamevar shape_result com
48    }
49 }
50 if { ${IsOK} == 1 } {
51    if { ${IsSmallEdges} == 0 } {
52       puts "Error : here are not small edges"
53       set IsOK 0
54    }
55 }
56
57 if { ${IsOK} == 1 } {
58    set fullness [nbshapes com]
59    regexp {VERTEX +: +([-0-9.+eE]+)} $fullness full vert
60    regexp {EDGE +: +([-0-9.+eE]+)} $fullness full edg
61    if { $edg == 0 || $vert == 0 } { 
62       puts "Error : it is Faulty result" 
63       set IsOK 0
64    }
65
66
67 if { ${IsOK} == 1 } {
68    fixshape result com ${delta}
69    puts [ checkshape result]
70    puts [checkshape result r]
71 }
72
73 set 2dviewer 0