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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
puts "TODO ?OCC11111 ALL: Error on Record"
puts "TODO ?OCC11111 ALL: Error : Colors are not equal"
puts "TODO ?OCC11111 ALL: \\*\\* Exception"
puts "TODO ?OCC11111 ALL: Faulty : colors are not equal."
puts "TODO ?OCC11111 ALL: Tcl Exception"
puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
pload QAcommands
puts "============"
puts "OCC22982"
puts "============"
puts ""
##################################################################
# Generic color is overriden in STEPCAFControl_Writer::WriteColors
##################################################################
set BugNumber OCC22982
pload DCAF
NewDocument D11 MDTV-XCAF
UndoLimit D11 100
# Open a transaction
NewCommand D11
set fileNameAir [locate_data_file OCC22982-Air.step]
set status 0
if { [catch { ReadStep D11 $fileNameAir } catch_result] } {
puts "Faulty ${BugNumber} : there is reading problem"
set status 1
}
XSetColor D11 0:1:1:1 0 0 1
XSetColor D11 0:1:1:1:1 1 0 0
XUnsetColor D11 0:1:1:1:2 s
XUnsetColor D11 0:1:1:1:3 s
set XRedCoords {2 148 179 204}
set XRedCoords [split $XRedCoords " "]
set YRedCoords {177 54 166 78}
set YRedCoords [split $YRedCoords " "]
set XBlueCoords {238 315 406 347 369 204 171 62}
set XBlueCoords [split $XBlueCoords " "]
set YBlueCoords {171 87 188 174 290 286 237 303}
set YBlueCoords [split $YBlueCoords " "]
XShow D11
vfit
for {set i 0} {$i < [llength $XRedCoords]} {incr i} {
set XCoord [lindex $XRedCoords $i]
set YCoord [lindex $YRedCoords $i]
checkcolor $XCoord $YCoord 1 0 0
}
# Close/Open a transaction
NewCommand D11
if { [catch { WriteStep D11 ${imagedir}/${test_image}.step } catch_result] } {
puts "Faulty ${BugNumber} : there is writing problem"
set status 1
}
NewDocument D2 MDTV-XCAF
UndoLimit D2 100
# Close/Open a transaction
NewCommand D2
if { [catch { ReadStep D2 ${imagedir}/${test_image}.step } catch_result] } {
puts "Faulty ${BugNumber} : there is reading problem"
set status 1
}
XShow D2
vfit
for {set i 0} {$i < [llength $XBlueCoords]} {incr i} {
set XCoord [lindex $XBlueCoords $i]
set YCoord [lindex $YBlueCoords $i]
checkcolor $XCoord $YCoord 0 0 1
}
if { $status != 0 } {
puts "Faulty ${BugNumber}"
} else {
puts "OK ${BugNumber}"
}
set 3dviewer 0
|
