0026106: BRepMesh - revision of data model
[occt.git] / tests / mesh / data / standard / X4
1 if { [string compare $command "mesh"] == 0 } {
2     set bug_area 23111
3 }
4 if { [string compare $command "incmesh"] == 0 } {
5     set bug_area 23111
6 }
7
8 set TheFileName ""
9 psphere s 1
10 box b 1 1 1
11 trotate b 0 0 1 0 1 0 90
12 bcut res s b
13
14 if { [string compare $command "shading"] == 0 } {
15 ###puts "TODO #23111 ALL: Error : incorrect node"
16     explode res f
17     vinit
18     vdisplay res
19     vfit
20     vsetdispmode res 1
21     regexp {3D Nodes :\s+((\s+\d+\s+:\s+[-0-9.+eE]+\s+[-0-9.+eE]+\s+[-0-9.+eE]+)+)} [dump res_1] full r
22     puts $full
23     for {set i 0} {$i < [llength $r]} {set i [expr $i + 5]} {
24         set x [lindex $r [expr $i+2]]
25         set y [lindex $r [expr $i+3]]
26         set z [lindex $r [expr $i+4]]
27         if { $x < -0.04 && $y > 0 && $z > 0.9} {
28                 puts "Error : incorrect node [lindex $r $i] at $x $y $z"
29                 vertex v $x $y $z
30                 vdisplay v
31                 break
32         }
33     }
34 }