[occt.git] / tests / bugs / modalg_6 / bug26897

puts "============"
puts "OCC26897"
puts "============"
puts ""
###############################
## The mesh should not rebuild on copied shape
###############################

pload MODELING
set tol 1.0e-7

cone c 0 0 0 45 0
mkface f c 0 6.28318530717958647 0 10

# Mesh the face and store initial data
incmesh f 0.1
set base [trinfo f]
regexp {This shape contains ([0-9]+) triangles.\s* ([0-9]+) nodes.} $base dummy base_tria base_nodes
regexp {Maximal deflection ([-0-9.+eE]+)} $base dummy base_defl

# Copy face
tcopy -m f fc

# Remesh initial face and check it is not changed
incmesh f 1.0
checktrinfo f -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}

# Compare mesh info from copied shape
checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}

# Remesh copied shape and compare mesh once again
incmesh fc 1.0
checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}

copy fc result
checkview -display result -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
	1	puts "============"
	2	puts "OCC26897"
	3	puts "============"
	4	puts ""
	5	###############################
	6	## The mesh should not rebuild on copied shape
	7	###############################
	8
	9	pload MODELING
	10	set tol 1.0e-7
	11
	12	cone c 0 0 0 45 0
	13	mkface f c 0 6.28318530717958647 0 10
	14
	15	# Mesh the face and store initial data
	16	incmesh f 0.1
	17	set base [trinfo f]
	18	regexp {This shape contains ([0-9]+) triangles.\s* ([0-9]+) nodes.} $base dummy base_tria base_nodes
	19	regexp {Maximal deflection ([-0-9.+eE]+)} $base dummy base_defl
	20
	21	# Copy face
	22	tcopy -m f fc
	23
	24	# Remesh initial face and check it is not changed
	25	incmesh f 1.0
	26	checktrinfo f -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
	27
	28	# Compare mesh info from copied shape
	29	checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
	30
	31	# Remesh copied shape and compare mesh once again
	32	incmesh fc 1.0
	33	checktrinfo fc -tri ${base_tria} -nod ${base_nodes} -defl ${base_defl} -tol_abs_defl ${tol}
	34
	35	copy fc result
	36	checkview -display result -3d -path ${imagedir}/${test_image}.png