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

puts "============"
puts "CR25540"
puts "Check that the discretization of local selection,"
puts "wireframe and shaded presentation of shape is identical."
puts "============"
puts ""

vinit View1 w=912 h=912
vclear

# Create object in shaded mode
vsetdispmode 1
pcylinder p 1 100
vdisplay p
vfit

# Setup field of view
vrotate 1 1.5 0
vfit
vtranslateview 24 18.5 0
vzoom 32
vtranslateview -0.1 -0.6 0
vzoom 2

vdump $imagedir/${casename}_shaded_pres.png

vmoveto 100 100
vdump $imagedir/${casename}_h_pres.png

# Activate the local selection by edges and hilight small circle edge.
# It's discretization should coincide with discretization of whole shape hiligting.
vsetam 2
vmoveto 130 80
vdump $imagedir/${casename}_local_h_pres.png

vunsetam

# Explode object on faces
explode p F
# Create colored shape: set another color to one face
vaspects p -subshapes p_3 -setcolor RED

vsetam 0
vmoveto 100 100
vdump $imagedir/${casename}_h_sub_pres.png

vsetam 2
vmoveto 130 80
vdump $imagedir/${casename}_local_h_sub_pres.png
Commit	Line	Data
7f917335	1	puts "============"
	2	puts "CR25540"
	3	puts "Check that the discretization of local selection,"
	4	puts "wireframe and shaded presentation of shape is identical."
	5	puts "============"
	6	puts ""
	7
	8	vinit View1 w=912 h=912
	9	vclear
	10
	11	# Create object in shaded mode
	12	vsetdispmode 1
	13	pcylinder p 1 100
	14	vdisplay p
	15	vfit
	16
	17	# Setup field of view
	18	vrotate 1 1.5 0
	19	vfit
	20	vtranslateview 24 18.5 0
	21	vzoom 32
	22	vtranslateview -0.1 -0.6 0
	23	vzoom 2
	24
	25	vdump $imagedir/${casename}_shaded_pres.png
	26
	27	vmoveto 100 100
	28	vdump $imagedir/${casename}_h_pres.png
	29
	30	# Activate the local selection by edges and hilight small circle edge.
	31	# It's discretization should coincide with discretization of whole shape hiligting.
	32	vsetam 2
	33	vmoveto 130 80
	34	vdump $imagedir/${casename}_local_h_pres.png
	35
	36	vunsetam
	37
	38	# Explode object on faces
	39	explode p F
	40	# Create colored shape: set another color to one face
	41	vaspects p -subshapes p_3 -setcolor RED
	42
	43	vsetam 0
	44	vmoveto 100 100
	45	vdump $imagedir/${casename}_h_sub_pres.png
	46
	47	vsetam 2
	48	vmoveto 130 80
	49	vdump $imagedir/${casename}_local_h_sub_pres.png