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

puts "============"
puts "CR24837_2"
puts "============"
puts ""
#######################################################################
#  Visualization - revise design and implementation of connected Interactive Objects
#######################################################################

pload MODELING VISUALIZATION
box o1 -10 -10 -5 1 1 10
box o2  10  10 -5 1 1 10
box b1 0 0 0 1 2 3
box b2 3 0 0 3 2 1
vinit View1
vclear
vtop
vsetdispmode 0
vdisplay o1 o2
vdisplay b1 b2
vfit
vdrawtext "b1"   0 -3 3 255  25  25 2 0 000 0 14 1 Arial
vdrawtext "b2"   3  0 3  25 255  25 2 0 000 0 14 1 Arial
vdrawtext "bc_1" 0 -9 3 255 225 225 2 0 000 0 14 1 Arial
vdrawtext "bc_2" 3 -6 3 255 225 225 2 0 000 0 14 1 Arial
vsetdispmode 1
set anImage ${imagedir}/${casename}_2_1.png
vdump ${anImage}

vsetmaterial b1 b2 plastic
vsetcolor b1 RED
vsetcolor b2 GREEN
set anImage ${imagedir}/${casename}_2_2.png
vdump ${anImage}

vsetlocation b1 0 -3 0
vconnect bc 0 -6 0 b1 b2
set anImage ${imagedir}/${casename}_2_3.png
vdump ${anImage}
Commit	Line	Data
0717ddc1	1	puts "============"
	2	puts "CR24837_2"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Visualization - revise design and implementation of connected Interactive Objects
	7	#######################################################################
	8
	9	pload MODELING VISUALIZATION
	10	box o1 -10 -10 -5 1 1 10
	11	box o2 10 10 -5 1 1 10
	12	box b1 0 0 0 1 2 3
	13	box b2 3 0 0 3 2 1
	14	vinit View1
	15	vclear
	16	vtop
	17	vsetdispmode 0
	18	vdisplay o1 o2
	19	vdisplay b1 b2
	20	vfit
	21	vdrawtext "b1" 0 -3 3 255 25 25 2 0 000 0 14 1 Arial
	22	vdrawtext "b2" 3 0 3 25 255 25 2 0 000 0 14 1 Arial
	23	vdrawtext "bc_1" 0 -9 3 255 225 225 2 0 000 0 14 1 Arial
	24	vdrawtext "bc_2" 3 -6 3 255 225 225 2 0 000 0 14 1 Arial
	25	vsetdispmode 1
	26	set anImage ${imagedir}/${casename}_2_1.png
	27	vdump ${anImage}
	28
	29	vsetmaterial b1 b2 plastic
	30	vsetcolor b1 RED
	31	vsetcolor b2 GREEN
	32	set anImage ${imagedir}/${casename}_2_2.png
	33	vdump ${anImage}
	34
	35	vsetlocation b1 0 -3 0
	36	vconnect bc 0 -6 0 b1 b2
	37	set anImage ${imagedir}/${casename}_2_3.png
	38	vdump ${anImage}