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

puts "============"
puts "CR25300"
puts "============"
puts ""

##########################################################################################
puts "Visualization - Build wireframe representation consistent with the shape's triangulation"
#
# Case 1: Test isolines on conic shape where usual algorithm builds isos beyond the
#         shape's boundaries
##########################################################################################

pload VISUALIZATION

restore [locate_data_file bug25300_pencil.brep] aPencil

set aSimpleIsoImg $imagedir/${casename}_iso.png
set aIsoOnTrgImg $imagedir/${casename}_iso_on_triang.png

vinit View1
vclear
vaxo
vdisplay aPencil
vviewparams -scale 9787.997 -proj -0.0115 -0.9998 0.0145
vviewparams -up -0.0155 0.0147 0.9998 -at 0.0503 0 0
vsetdispmode 1

# shows that default isoline builder has problemas with proper
# construction of isolines on top of the pencil
vmoveto 200 200
vdump $aSimpleIsoImg
checkcolor 337 162 0 1 1

vmoveto 0 0

# enable isoline-on-triangulation builder
vaspects aPencil -isoontriang on

# shows that isoline-on-triangulation builder constructs isos that
# do not extend beyond the boundaries of shape's triangulation
vmoveto 200 200
vdump $aIsoOnTrgImg
checkcolor 337 162 0 0 0
Commit	Line	Data
5ad8c033	1	puts "============"
	2	puts "CR25300"
	3	puts "============"
	4	puts ""
	5
	6	##########################################################################################
	7	puts "Visualization - Build wireframe representation consistent with the shape's triangulation"
	8	#
	9	# Case 1: Test isolines on conic shape where usual algorithm builds isos beyond the
	10	# shape's boundaries
	11	##########################################################################################
	12
	13	pload VISUALIZATION
	14
	15	restore [locate_data_file bug25300_pencil.brep] aPencil
	16
	17	set aSimpleIsoImg $imagedir/${casename}_iso.png
	18	set aIsoOnTrgImg $imagedir/${casename}_iso_on_triang.png
	19
	20	vinit View1
	21	vclear
	22	vaxo
	23	vdisplay aPencil
	24	vviewparams -scale 9787.997 -proj -0.0115 -0.9998 0.0145
	25	vviewparams -up -0.0155 0.0147 0.9998 -at 0.0503 0 0
	26	vsetdispmode 1
	27
	28	# shows that default isoline builder has problemas with proper
	29	# construction of isolines on top of the pencil
	30	vmoveto 200 200
	31	vdump $aSimpleIsoImg
	32	checkcolor 337 162 0 1 1
	33
	34	vmoveto 0 0
	35
	36	# enable isoline-on-triangulation builder
	37	vaspects aPencil -isoontriang on
	38
	39	# shows that isoline-on-triangulation builder constructs isos that
	40	# do not extend beyond the boundaries of shape's triangulation
	41	vmoveto 200 200
	42	vdump $aIsoOnTrgImg
	43	checkcolor 337 162 0 0 0