0029435: Data Exchange - Exporting wires consisting of more than one edge results...

[occt.git] / tests / bugs / iges / bug29435

diff --git a/tests/bugs/iges/bug29435 b/tests/bugs/iges/bug29435
new file mode 100644 (file)
index 0000000..f1f27a2
--- /dev/null
+++ b/tests/bugs/iges/bug29435
@@ -0,0 +1,34 @@
+puts "============"
+puts "0029435: Data Exchange, Exporting wires consisting of more than one edge results in loss of color data in IGES"
+puts "============"
+
+pload XDE
+catch { Close D }
+catch { Close D1 }
+
+vertex v1 -25 0 0
+vertex v2 -25 -7.5 0
+edge e1 v1 v2
+
+point p2 -25 -7.5 0
+point p3 0 -15 0
+point p4 25 -7.5 0
+catch {gcarc arc cir p2 p3 p4}
+mkedge e2 arc
+
+wire w1 e1 e2
+
+XNewDoc D
+XAddShape D w1 1
+XSetColor D 0:1:1:1 128 128 0
+
+WriteIges D $imagedir/${casename}.igs
+ReadIges D1 $imagedir/${casename}.igs
+
+set color_orig [XGetAllColors D]
+set color_comp [XGetAllColors D1]
+
+if { $color_orig != $color_comp } {
+  puts "Error: incorrect color transfer"
+}
+file delete $imagedir/${casename}.igs