Adjusting testing case
authormkv <mkv@opencascade.com>
Fri, 21 Aug 2015 10:19:25 +0000 (13:19 +0300)
committerski <ski@opencascade.com>
Fri, 21 Aug 2015 10:19:25 +0000 (13:19 +0300)
samples/tcl/snowflake.tcl
tests/bugs/modalg_6/bug26446 [new file with mode: 0644]

index 3b50252..d31dc5a 100644 (file)
@@ -137,7 +137,7 @@ vfit
 
 # add dimension
 explode snowflake v
-vdimension length -length -shapes snowflake_93 snowflake_15 -plane xoy -value 0.001 -dispunits mm -showunits -flyout 70 -label above -color black -text 5 3d sh
+vdimension length -length -shapes snowflake_89 snowflake_15 -plane xoy -value 0.001 -dispunits mm -showunits -flyout 70 -label above -color black -text 5 3d sh
 
 if { [regexp HAVE_GL2PS [dversion]] } {
     puts "You can use command vexport to generate PDF: vexport your_file_path.pdf"
diff --git a/tests/bugs/modalg_6/bug26446 b/tests/bugs/modalg_6/bug26446
new file mode 100644 (file)
index 0000000..8db09c3
--- /dev/null
@@ -0,0 +1,20 @@
+puts "========"
+puts "OCC26446"
+puts "========"
+puts ""
+#####################################################
+# GeomConvert::ConcatC1 produces not expected curve
+#####################################################
+
+pload QAcommands
+
+smallview
+
+restore [locate_data_file OCC26446-c1.draw] c1
+restore [locate_data_file OCC26446-c2.draw] c2
+OCC26446 r c1 c2
+
+donly r
+fit
+
+set only_screen_axo 1