1 puts "TODO OCC26174 ALL: ERROR: OCC26174 is reproduced."
7 #######################################################
8 # Loss of color after the second write of file (iges)
9 #######################################################
13 set aFileD1 ${imagedir}/${casename}_D1.igs
14 set aFileD2 ${imagedir}/${casename}_D2.igs
16 set anImageD $imagedir/${casename}_D.png
17 set anImageD1 $imagedir/${casename}_D1.png
18 set anImageD2 $imagedir/${casename}_D2.png
20 catch {exec rm ${aFileD1}}
21 catch {exec rm ${aFileD2}}
27 XSetColor D 0:1:1:1 1 0 0
31 set ColorD [string trim [vreadpixel 204 204 name]]
34 WriteIges D ${aFileD1}
35 WriteIges D ${aFileD2}
37 ReadIges D1 ${aFileD1}
38 ReadIges D2 ${aFileD2}
42 set ColorD1 [string trim [vreadpixel 204 204 name]]
44 if {$ColorD != $ColorD1} {
45 puts "ERROR: OCC26174 is reproduced. Expected color of shape from Document1 is ${ColorD}, not ${ColorD1}."
50 set ColorD2 [string trim [vreadpixel 204 204 name]]
52 if {$ColorD != $ColorD2} {
53 puts "ERROR: OCC26174 is reproduced. Expected color of shape from Document2 is ${ColorD}, not ${ColorD2}."