mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
6ba81a695f
A copy of myface is made, where further on the copy the geometry changes. We connect the face, wire, edge of the original shape with the one whose geometry was changed. This is done in order to get the original shape in the TransferWire() and TransferEdge() methods.
46 lines
1.1 KiB
Plaintext
46 lines
1.1 KiB
Plaintext
puts "============"
|
|
puts "0026174: Data Exchange, IGES - Loss of color after the second write of file"
|
|
puts "============"
|
|
|
|
pload XDE
|
|
catch { Close D }
|
|
catch { Close D1 }
|
|
|
|
box b 0 0 0 10 10 10
|
|
compound b c
|
|
XNewDoc D
|
|
XAddShape D c 1
|
|
XSetColor D 0:1:1:1:1 1 0 0
|
|
|
|
WriteIges D $imagedir/${casename}_orig.igs
|
|
XGetOneShape res D
|
|
set dump [dump res]
|
|
if { [regexp "Dump of 24 Curve2ds" $dump] != 1 } {
|
|
puts "Error: incorrect Curve transfer"
|
|
}
|
|
WriteIges D $imagedir/${casename}_comp.igs
|
|
ReadIges D1 $imagedir/${casename}_comp.igs
|
|
XGetOneShape res1 D1
|
|
|
|
vinit view1
|
|
vclear
|
|
XDisplay D1 0:1:1:1
|
|
vfit
|
|
set ColorD1 [string trim [vreadpixel 204 204 name]]
|
|
if {$ColorD1 != "RED 1"} {
|
|
puts "Error: expected color of shape from Document1 is RED."
|
|
}
|
|
|
|
catch {[file delete $imagedir/${casename}_orig.igs]}
|
|
catch {[file delete $imagedir/${casename}_comp.igs]}
|
|
|
|
checkprops res -equal res1
|
|
set color_orig [XGetAllColors D]
|
|
set color_comp [XGetAllColors D1]
|
|
if { $color_orig != $color_comp } {
|
|
puts "Error: incorrect color transfer"
|
|
}
|
|
|
|
checknbshapes res -vertex 8 -edge 12 -wire 6 -face 6
|
|
checkview -screenshot -3d -path $imagedir/${test_image}.png
|