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
|
puts "============"
puts "OCC23969"
puts "============"
puts ""
##########################################################################
# It's impossible to display shape in 3dviewer. Wrong displaying in axo.
##########################################################################
ReadIges D_First [locate_data_file coque-sup.igs]
XGetOneShape res_1 D_First
vinit
vsetdispmode 1
vdisplay res_1
vfit
vdump $::imagedir/${::casename}_fit.png
vviewparams -eye 106.849 -177.049 169.775 -at -70.2 -5.456e-015 -7.274 -up -0.408 0.408 0.816 -scale 3.048
set ver_color [vreadpixel 157 104]
if {$ver_color == "0 0 0 0"} {
puts "ERROR: OCC23969 is reproduced"
}
set ver_color [vreadpixel 111 347]
if {$ver_color == "0 0 0 0"} {
puts "ERROR: OCC23969 is reproduced"
}
set ver_color [vreadpixel 252 265]
if {$ver_color == "0 0 0 0"} {
puts "ERROR: OCC23969 is reproduced"
}
set ver_color [vreadpixel 307 77]
if {$ver_color == "0 0 0 0"} {
puts "ERROR: OCC23969 is reproduced"
}
set ver_color [vreadpixel 243 323]
if {$ver_color == "0 0 0 0"} {
puts "ERROR: OCC23969 is reproduced"
}
vdump $::imagedir/${::casename}_center.png
set 3dviewer 1
|
