vdisplay b2 -trsfPers zoom -trsfPersPos 200 200 200
vsetlocation b2 -25 -25 -25
-vmoveto 384 78
-if { ![checkcolor 384 78 0 1 1] } {
+vmoveto 387 77
+if { ![checkcolor 387 77 0 1 1] } {
puts "Error picking zoom persistence object"
}
-vmoveto 356 96
-if { ![checkcolor 356 96 0 1 1] } {
+vmoveto 352 96
+if { ![checkcolor 352 96 0 1 1] } {
puts "Error picking zoom persistent object with location"
}
vselect 330 120 400 50
-if { ![checkcolor 384 78 0.8 0.8 0.8] || ![checkcolor 356 96 0.8 0.8 0.8] } {
+if { ![checkcolor 387 77 0.8 0.8 0.8] || ![checkcolor 352 96 0.8 0.8 0.8] } {
puts "Error selecting zoom persistence object(s)"
}
-
# 2) Rotate persistence
vdisplay b3 -trsfPers rotate -trsfPersPos -200 -200 -200
# 4) Trihedron persistence
vdisplay b5 -trsfPers trihedron -trsfPersPos -1 -1 300
-vmoveto 90 300
-if { ![checkcolor 90 300 0 1 1] } {
+vmoveto 132 300
+if { ![checkcolor 132 300 0 1 1] } {
puts "Error picking trihedron persistence object"
}
-vselect 50 380 140 280
-if { ![checkcolor 90 300 0.8 0.8 0.8] } {
+vselect 50 223 235 395
+if { ![checkcolor 132 300 0.8 0.8 0.8] } {
puts "Error selecting trihedron persistence object"
}