1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
puts "============"
puts "OCC25867"
puts "============"
puts ""
#################################################################################
puts "Visualization, TKOpenGl - fix misprint in transformation persistence math"
#################################################################################
set anImage1 $imagedir/${casename}_1.png
set anImage2 $imagedir/${casename}_2.png
vinit
box b1 -1 -1 -1 3 3 3
box b2 4 4 4 30 20 20
vdisplay b1
vdisplay b2 -trsfPers zoom -trsfPersPos 0 0 0
vfit
vdump $anImage1
vdisplay b2 -trsfPers zoom -trsfPersPos 1 1 1
vdump $anImage2
|
