b46ccb0453922127977fcf308432fd6c5dd520bf
[occt.git] / tests / bugs / vis / bug331
1  puts "========================"
2 puts " OCC331 "
3 puts "========================"
4 puts ""
5 #######################################################
6 ## Dark spot on a sphere after nurbsconvert
7 #######################################################
8
9 box b -5 -5 -5 10 10 10 
10 psphere s 6 
11
12 bfuse res s b 
13
14 nurbsconvert result res 
15
16 tclean result
17 vinit
18 vdisplay result
19 vfit
20 vsetdispmode result 1
21 vfit
22
23 set tri 0
24 set nod 0
25 set info [trinfo result]
26 regexp { +([-0-9.+eE]+) +triangles} $info full tri
27 regexp { +([-0-9.+eE]+) +nodes} $info full nod
28 puts [format " tri= %s  nod= %s " $tri $nod]
29
30 if { $tri != 3808 && $nod != 2188} {
31    puts " OCC331: Looks like OK, but visual checking is required!!!"
32 } else {
33    puts " OCC331: Faulty - Dark spot on a sphere after nurbsconvert"
34 }
35
36
37 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
38
39