1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
puts "============"
puts "CR26082"
puts "============"
puts ""
#########################################################################
puts "When view is resized horizontally the viusaliziation is not scaled"
#########################################################################
set cursor_1 { 288 53 }
set cursor_2 { 53 127 }
set cursor_3 { 122 154 }
set viewparams { -scale 606.309 \
-proj 0.577 -0.577 0.577 \
-up -0.408 0.408 0.816 \
-at 0.5 0.5 0.5
-eye 1.5 -0.5 1.5 }
pload VISUALIZATION MODELING
box b 1 1 1
vinit View1 w=400 h=400
vinit View2 w=200 h=400
vinit View3 w=400 h=200
vclear
vaxo
vdisplay b
vactivate View1
vviewparams {*}$viewparams
vmoveto {*}$cursor_1
checkcolor {*}$cursor_1 0 1 1
vdump ${imagedir}/${casename}_1.png
vactivate View2
vviewparams {*}$viewparams
vmoveto {*}$cursor_2
checkcolor {*}$cursor_2 0 1 1
vdump ${imagedir}/${casename}_2.png
vactivate View3
vviewparams {*}$viewparams
vmoveto {*}$cursor_3
checkcolor {*}$cursor_3 0 1 1
vdump ${imagedir}/${casename}_3.png
|
