1 puts "=================================================================================="
2 puts "0030630: Visualization - wrong visualization of shape with mirrored transformation"
3 puts "Check that local transformation of visualizated object"
4 puts "affects only position, not material place"
5 puts "=================================================================================="
7 pload MODELING VISUALIZATION
17 vdisplay -dispMode 1 b
18 vaspects b -setBackFaceColor RED
19 box bb 0.5 0.5 -0.5 0.1 0.1 0.1
20 vdisplay -dispMode 1 bb
23 vdump $imagedir/${casename}_simple.png
24 if { [vreadpixel 195 220 rgb name] != "BLUE2" } { puts "Error: mirrored box should look inside out" }
26 # Box with rotation transformation
27 vlocation b -rotate 0 0 0 1 0 0 90
28 vlocation bb -rotate 0 0 0 1 0 0 90
30 vdump $imagedir/${casename}_rotate.png
31 if { [vreadpixel 215 230 rgb name] != "BLUE2" } { puts "Error: rotated mirrored box should look inside out" }
33 # Box with mirror transformation
35 vlocation b -mirror 0 -0.5 0 0 1 0
37 vlocation bb -mirror 0 -0.5 0 0 1 0
39 vdump $imagedir/${casename}_mirror.png
40 if { [vreadpixel 215 230 rgb name] != "BLUE2" } { puts "Error: mirrored mirrored box should look inside out" }