| 643bacb9 |
1 | puts "============" |
| 2 | puts "OCC4894" |
| 3 | puts "============" |
| 4 | puts "" |
| 5 | ####################################################################### |
| 6 | # Problems with sharding in vdisplay |
| 7 | ####################################################################### |
| 8 | |
| 9 | restore [locate_data_file bug4894_face_cyl] result |
| 10 | |
| 11 | vinit |
| 12 | vdisplay result |
| 13 | tclean result |
| 14 | trinfo result |
| 15 | vsetdispmode 1 |
| 82cbc512 |
16 | vfit |
| 643bacb9 |
17 | set info [trinfo result] |
| 18 | regexp { +([-0-9.+eE]+) +triangles} $info full tr |
| 19 | regexp { +([-0-9.+eE]+) +nodes} $info full nd |
| 20 | |
| 21 | if { $tr <= 0 || $nd <= 0 } { |
| 22 | puts "Error : Problems with shading" |
| 23 | } |
| 24 | |
| 82cbc512 |
25 | set only_screen 1 |
projects / occt.git / blame