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
|
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
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"
}
set 3dviewer 1
|
