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

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

pload MODELING VISUALIZATION
vinit
box b 1 1 1
psphere s 0.5
vdisplay b s
vsetlocation s 0 2.5 0
box d 0.5 0.5 3
box d2 0.5 3 0.5
vdisplay d d2
vconnectto b1 -2 0 0 b
vconnect z 2 0 0 b s
vconnect z2 4 0 0 d d2
vconnect z3 6 0 0 z z2
vconnect z4 10 0 0 z3 z2
vfit
set anImage ${imagedir}/${casename}_1_1.png
vdump ${anImage}

vaddconnected z4 0 4 0 s
vdisconnect z4 1
vfit
set anImage ${imagedir}/${casename}_1_2.png
vdump ${anImage}

vhlr on
set anImage ${imagedir}/${casename}_1_3.png
vdump ${anImage}

vhlr off
vsetdispmode 1
vmoveto 320 330
set anImage ${imagedir}/${casename}_1_4.png
vdump ${anImage}
Commit	Line	Data
0717ddc1	1	puts "============"
	2	puts "CR24837_1"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Visualization - revise design and implementation of connected Interactive Objects
	7	#######################################################################
	8
	9	pload MODELING VISUALIZATION
	10	vinit
	11	box b 1 1 1
	12	psphere s 0.5
	13	vdisplay b s
	14	vsetlocation s 0 2.5 0
	15	box d 0.5 0.5 3
	16	box d2 0.5 3 0.5
	17	vdisplay d d2
	18	vconnectto b1 -2 0 0 b
	19	vconnect z 2 0 0 b s
	20	vconnect z2 4 0 0 d d2
	21	vconnect z3 6 0 0 z z2
	22	vconnect z4 10 0 0 z3 z2
	23	vfit
	24	set anImage ${imagedir}/${casename}_1_1.png
	25	vdump ${anImage}
	26
	27	vaddconnected z4 0 4 0 s
	28	vdisconnect z4 1
	29	vfit
	30	set anImage ${imagedir}/${casename}_1_2.png
	31	vdump ${anImage}
	32
	33	vhlr on
	34	set anImage ${imagedir}/${casename}_1_3.png
	35	vdump ${anImage}
	36
	37	vhlr off
	38	vsetdispmode 1
	39	vmoveto 320 330
	40	set anImage ${imagedir}/${casename}_1_4.png
	41	vdump ${anImage}