40093367 |
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 | } |