0012567: Swapped first/last vertices or incorrect curve orientation after reading...

Adding test case

diff --git a/tests/bugs/iges/bug12567 b/tests/bugs/iges/bug12567
new file mode 100644 (file)
index 0000000..1279249
--- /dev/null
+++ b/tests/bugs/iges/bug12567
@@ -0,0 +1,27 @@
+puts "============"
+puts "OCC12567"
+puts "============"
+puts ""
+######################################################
+# Swapped first/last vertices or incorrect curve orientation after reading IGES file
+######################################################
+
+igesbrep [locate_data_file bug12567.igs] a *
+
+set tolerance [ maxtolerance a ]
+
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
+
+if { $MaxFaceTolerance > 1e-7 || $MaxEdgeTolerance > 1e-7 || $MaxVertexTolerance > 1e-7 } {
+    puts "Faulty : Tolerance of shape is more then 1e-7"
+} else {
+    puts "Tolerance of shape is <= then 1e-7"
+}
+
+view 1 -2D- 728 450 400 400
+pcurve a
+2dfit
+
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png