[occt.git] / tests / bugs / vis / bug331

 puts "========================"
puts " OCC331 "
puts "========================"
puts ""
#######################################################
## Dark spot on a sphere after nurbsconvert
#######################################################

box b -5 -5 -5 10 10 10 
psphere s 6 

bfuse res s b 

nurbsconvert result res 

tclean result
vinit
vdisplay result
vfit
vsetdispmode result 1
vfit

set tri 0
set nod 0
set info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $info full tri
regexp { +([-0-9.+eE]+) +nodes} $info full nod
puts [format " tri= %s  nod= %s " $tri $nod]

if { $tri != 3808 && $nod != 2188} {
   puts " OCC331: Looks like OK, but visual checking is required!!!"
} else {
   puts " OCC331: Faulty - Dark spot on a sphere after nurbsconvert"
}


set only_screen 1
Commit	Line	Data
a87752f3	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	set only_screen 1
	38
	39