[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.
vselmode p -set EDGE 1
vmoveto 130 80
vdump $imagedir/${casename}_local_h_pres.png

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

vselmode p -set 0 1
vmoveto 100 100
vdump $imagedir/${casename}_h_sub_pres.png

vselmode p -set EDGE 1
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.
8c088c52	32	vselmode p -set EDGE 1
7f917335	33	vmoveto 130 80
	34	vdump $imagedir/${casename}_local_h_pres.png
	35
7f917335	36	# Explode object on faces
	37	explode p F
	38	# Create colored shape: set another color to one face
	39	vaspects p -subshapes p_3 -setcolor RED
	40
8c088c52	41	vselmode p -set 0 1
7f917335	42	vmoveto 100 100
	43	vdump $imagedir/${casename}_h_sub_pres.png
	44
8c088c52	45	vselmode p -set EDGE 1
7f917335	46	vmoveto 130 80
7f917335	47	vdump $imagedir/${casename}_local_h_sub_pres.png