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

puts "=================================================================================="
puts "0030630: Visualization - wrong visualization of shape with mirrored transformation"
puts "Check that solid with mirrored transformation is displayed as turned out"
puts "=================================================================================="

pload MODELING VISUALIZATION
vclear
vinit View1
vaxo
vrotate 3 0 0
vcamera -persp

# Simple box
box b 1 1 1
vdisplay -dispMode 1 b
vaspects b -setBackFaceColor RED
vfit
vdump $imagedir/${casename}_simple.png
verase b

# Box with mirror transformation
box a 1 1 1
bmirror a 0 0 0 1 0 0
vdisplay -dispMode 1 a
vaspects a -setBackFaceColor RED
vfit
box aa -0.5 0.5 0.5 0.1 0.1 0.1
vdisplay -dispMode 1 aa
vsetcolor aa BLUE
vdump $imagedir/${casename}_mirror.png
if { [vreadpixel 195 220 rgb name] != "BLUE2" } { puts "Error: mirrored box should look inside out" }
verase a

# Box with mirror transformation and reversed face
box c 1 1 1
bmirror c 0 0 0 1 0 0
orientation c R
vdisplay -dispMode 1 c
vaspects c -setBackFaceColor RED
vfit
vdump $imagedir/${casename}_mirrev.png
if { [vreadpixel 195 220 rgb name] == "BLUE2" } { puts "Error: reversed mirrored box should NOT look inside out" }
Commit	Line	Data
6b9b7e3c	1	puts "=================================================================================="
	2	puts "0030630: Visualization - wrong visualization of shape with mirrored transformation"
	3	puts "Check that solid with mirrored transformation is displayed as turned out"
	4	puts "=================================================================================="
	5
	6	pload MODELING VISUALIZATION
	7	vclear
	8	vinit View1
	9	vaxo
	10	vrotate 3 0 0
	11	vcamera -persp
	12
	13	# Simple box
	14	box b 1 1 1
	15	vdisplay -dispMode 1 b
	16	vaspects b -setBackFaceColor RED
	17	vfit
	18	vdump $imagedir/${casename}_simple.png
	19	verase b
	20
	21	# Box with mirror transformation
	22	box a 1 1 1
	23	bmirror a 0 0 0 1 0 0
	24	vdisplay -dispMode 1 a
	25	vaspects a -setBackFaceColor RED
	26	vfit
	27	box aa -0.5 0.5 0.5 0.1 0.1 0.1
	28	vdisplay -dispMode 1 aa
aaf8d6a9	29	vsetcolor aa BLUE
6b9b7e3c	30	vdump $imagedir/${casename}_mirror.png
	31	if { [vreadpixel 195 220 rgb name] != "BLUE2" } { puts "Error: mirrored box should look inside out" }
	32	verase a
	33
	34	# Box with mirror transformation and reversed face
	35	box c 1 1 1
	36	bmirror c 0 0 0 1 0 0
	37	orientation c R
	38	vdisplay -dispMode 1 c
	39	vaspects c -setBackFaceColor RED
	40	vfit
	41	vdump $imagedir/${casename}_mirrev.png
7b5e532f	42	if { [vreadpixel 195 220 rgb name] == "BLUE2" } { puts "Error: reversed mirrored box should NOT look inside out" }