Reorganization of bugs testing group
authorbugmaster <bugmaster@opencascade.com>
Wed, 5 Dec 2012 13:17:05 +0000 (17:17 +0400)
committerbugmaster <bugmaster@opencascade.com>
Wed, 5 Dec 2012 13:17:05 +0000 (17:17 +0400)
298 files changed:
tests/bugs/demo/CR23409 [deleted file]
tests/bugs/demo/CR23410 [deleted file]
tests/bugs/demo/CR23416 [deleted file]
tests/bugs/demo/bug23409 [new file with mode: 0644]
tests/bugs/demo/bug23410 [new file with mode: 0644]
tests/bugs/demo/bug23416 [new file with mode: 0644]
tests/bugs/end
tests/bugs/fclasses/CR23403 [deleted file]
tests/bugs/fclasses/bug23403 [new file with mode: 0644]
tests/bugs/heal/buc60940 [new file with mode: 0644]
tests/bugs/heal/buc60950 [new file with mode: 0644]
tests/bugs/heal/bug208
tests/bugs/heal/bug209
tests/bugs/heal/bug60940 [deleted file]
tests/bugs/heal/bug60950 [deleted file]
tests/bugs/iges/CR22888 [deleted file]
tests/bugs/iges/CR23377 [deleted file]
tests/bugs/iges/buc60591_1 [new file with mode: 0644]
tests/bugs/iges/buc60591_2 [new file with mode: 0644]
tests/bugs/iges/buc60591_3 [new file with mode: 0644]
tests/bugs/iges/buc60591_4 [new file with mode: 0644]
tests/bugs/iges/buc60594 [new file with mode: 0644]
tests/bugs/iges/buc60595_1 [new file with mode: 0644]
tests/bugs/iges/buc60595_2 [new file with mode: 0644]
tests/bugs/iges/buc60595_3 [new file with mode: 0644]
tests/bugs/iges/buc60610 [new file with mode: 0644]
tests/bugs/iges/buc60625 [new file with mode: 0644]
tests/bugs/iges/buc60646 [new file with mode: 0644]
tests/bugs/iges/buc60685 [new file with mode: 0644]
tests/bugs/iges/buc60686 [new file with mode: 0644]
tests/bugs/iges/buc60687 [new file with mode: 0644]
tests/bugs/iges/buc60820_1 [new file with mode: 0644]
tests/bugs/iges/buc60820_2 [new file with mode: 0644]
tests/bugs/iges/buc60823 [new file with mode: 0644]
tests/bugs/iges/buc60850 [new file with mode: 0644]
tests/bugs/iges/buc60894 [new file with mode: 0644]
tests/bugs/iges/buc60949 [new file with mode: 0644]
tests/bugs/iges/bug156
tests/bugs/iges/bug22888 [new file with mode: 0644]
tests/bugs/iges/bug23377 [new file with mode: 0644]
tests/bugs/iges/bug60591_1 [deleted file]
tests/bugs/iges/bug60591_2 [deleted file]
tests/bugs/iges/bug60591_3 [deleted file]
tests/bugs/iges/bug60591_4 [deleted file]
tests/bugs/iges/bug60594 [deleted file]
tests/bugs/iges/bug60595_1 [deleted file]
tests/bugs/iges/bug60595_2 [deleted file]
tests/bugs/iges/bug60595_3 [deleted file]
tests/bugs/iges/bug60610 [deleted file]
tests/bugs/iges/bug60625 [deleted file]
tests/bugs/iges/bug60646 [deleted file]
tests/bugs/iges/bug60685 [deleted file]
tests/bugs/iges/bug60686 [deleted file]
tests/bugs/iges/bug60687 [deleted file]
tests/bugs/iges/bug60820_1 [deleted file]
tests/bugs/iges/bug60820_2 [deleted file]
tests/bugs/iges/bug60823 [deleted file]
tests/bugs/iges/bug60850 [deleted file]
tests/bugs/iges/bug60894 [deleted file]
tests/bugs/iges/bug60949 [deleted file]
tests/bugs/iges/bug61337 [deleted file]
tests/bugs/iges/bug62523 [deleted file]
tests/bugs/iges/bug89
tests/bugs/iges/fra62523 [new file with mode: 0644]
tests/bugs/iges/ger61337 [new file with mode: 0644]
tests/bugs/modalg/CR23137_1 [deleted file]
tests/bugs/modalg/CR23137_2 [deleted file]
tests/bugs/modalg/CR23394 [deleted file]
tests/bugs/modalg/CR23429 [deleted file]
tests/bugs/modalg/buc60409_1 [new file with mode: 0644]
tests/bugs/modalg/buc60409_2 [new file with mode: 0644]
tests/bugs/modalg/buc60409_3 [new file with mode: 0644]
tests/bugs/modalg/buc60523 [new file with mode: 0644]
tests/bugs/modalg/buc60531_1 [new file with mode: 0644]
tests/bugs/modalg/buc60531_2 [new file with mode: 0644]
tests/bugs/modalg/buc60532 [new file with mode: 0644]
tests/bugs/modalg/buc60532_1 [new file with mode: 0644]
tests/bugs/modalg/buc60532_2 [new file with mode: 0644]
tests/bugs/modalg/buc60533 [new file with mode: 0644]
tests/bugs/modalg/buc60555_1 [new file with mode: 0644]
tests/bugs/modalg/buc60585_2 [new file with mode: 0644]
tests/bugs/modalg/buc60623_1 [new file with mode: 0644]
tests/bugs/modalg/buc60623_2 [new file with mode: 0644]
tests/bugs/modalg/buc60635 [new file with mode: 0644]
tests/bugs/modalg/buc60663_1 [new file with mode: 0644]
tests/bugs/modalg/buc60668 [new file with mode: 0644]
tests/bugs/modalg/buc60684 [new file with mode: 0644]
tests/bugs/modalg/buc60703_2 [new file with mode: 0644]
tests/bugs/modalg/buc60703_3 [new file with mode: 0644]
tests/bugs/modalg/buc60703_4 [new file with mode: 0644]
tests/bugs/modalg/buc60704 [new file with mode: 0644]
tests/bugs/modalg/buc60714 [new file with mode: 0644]
tests/bugs/modalg/buc60728 [new file with mode: 0644]
tests/bugs/modalg/buc60776_1 [new file with mode: 0644]
tests/bugs/modalg/buc60776_2 [new file with mode: 0644]
tests/bugs/modalg/buc60782_1 [new file with mode: 0644]
tests/bugs/modalg/buc60782_3 [new file with mode: 0644]
tests/bugs/modalg/buc60788_1 [new file with mode: 0644]
tests/bugs/modalg/buc60801 [new file with mode: 0644]
tests/bugs/modalg/buc60803 [new file with mode: 0644]
tests/bugs/modalg/buc60839 [new file with mode: 0644]
tests/bugs/modalg/buc60841 [new file with mode: 0644]
tests/bugs/modalg/buc60849 [new file with mode: 0644]
tests/bugs/modalg/buc60865 [new file with mode: 0644]
tests/bugs/modalg/buc60881 [new file with mode: 0644]
tests/bugs/modalg/buc60899_1 [new file with mode: 0644]
tests/bugs/modalg/buc60899_2 [new file with mode: 0644]
tests/bugs/modalg/buc60901 [new file with mode: 0644]
tests/bugs/modalg/buc60905 [new file with mode: 0644]
tests/bugs/modalg/buc60909 [new file with mode: 0644]
tests/bugs/modalg/buc60927 [new file with mode: 0644]
tests/bugs/modalg/buc60930 [new file with mode: 0644]
tests/bugs/modalg/buc60934 [new file with mode: 0644]
tests/bugs/modalg/buc60942 [new file with mode: 0644]
tests/bugs/modalg/buc60971 [new file with mode: 0644]
tests/bugs/modalg/bug109
tests/bugs/modalg/bug116
tests/bugs/modalg/bug122_2
tests/bugs/modalg/bug122_3
tests/bugs/modalg/bug16983 [deleted file]
tests/bugs/modalg/bug174
tests/bugs/modalg/bug18892 [deleted file]
tests/bugs/modalg/bug19424 [deleted file]
tests/bugs/modalg/bug19626 [deleted file]
tests/bugs/modalg/bug19653 [deleted file]
tests/bugs/modalg/bug21
tests/bugs/modalg/bug221
tests/bugs/modalg/bug23137_1 [new file with mode: 0644]
tests/bugs/modalg/bug23137_2 [new file with mode: 0644]
tests/bugs/modalg/bug23394 [new file with mode: 0644]
tests/bugs/modalg/bug234
tests/bugs/modalg/bug23429 [new file with mode: 0644]
tests/bugs/modalg/bug291
tests/bugs/modalg/bug292
tests/bugs/modalg/bug293
tests/bugs/modalg/bug302_1
tests/bugs/modalg/bug302_2
tests/bugs/modalg/bug302_3
tests/bugs/modalg/bug322
tests/bugs/modalg/bug327_1
tests/bugs/modalg/bug327_2
tests/bugs/modalg/bug437
tests/bugs/modalg/bug446_2
tests/bugs/modalg/bug446_3
tests/bugs/modalg/bug446_4
tests/bugs/modalg/bug60409_1 [deleted file]
tests/bugs/modalg/bug60409_2 [deleted file]
tests/bugs/modalg/bug60409_3 [deleted file]
tests/bugs/modalg/bug60523 [deleted file]
tests/bugs/modalg/bug60531_1 [deleted file]
tests/bugs/modalg/bug60531_2 [deleted file]
tests/bugs/modalg/bug60532 [deleted file]
tests/bugs/modalg/bug60532_1 [deleted file]
tests/bugs/modalg/bug60532_2 [deleted file]
tests/bugs/modalg/bug60533 [deleted file]
tests/bugs/modalg/bug60555_1 [deleted file]
tests/bugs/modalg/bug60585_2 [deleted file]
tests/bugs/modalg/bug60623_1 [deleted file]
tests/bugs/modalg/bug60623_2 [deleted file]
tests/bugs/modalg/bug60635 [deleted file]
tests/bugs/modalg/bug60663_1 [deleted file]
tests/bugs/modalg/bug60668 [deleted file]
tests/bugs/modalg/bug60684 [deleted file]
tests/bugs/modalg/bug60703_2 [deleted file]
tests/bugs/modalg/bug60703_3 [deleted file]
tests/bugs/modalg/bug60703_4 [deleted file]
tests/bugs/modalg/bug60704 [deleted file]
tests/bugs/modalg/bug60714 [deleted file]
tests/bugs/modalg/bug60728 [deleted file]
tests/bugs/modalg/bug60776_1 [deleted file]
tests/bugs/modalg/bug60776_2 [deleted file]
tests/bugs/modalg/bug60782_1 [deleted file]
tests/bugs/modalg/bug60782_3 [deleted file]
tests/bugs/modalg/bug60788_1 [deleted file]
tests/bugs/modalg/bug60801 [deleted file]
tests/bugs/modalg/bug60803 [deleted file]
tests/bugs/modalg/bug60839 [deleted file]
tests/bugs/modalg/bug60841 [deleted file]
tests/bugs/modalg/bug60849 [deleted file]
tests/bugs/modalg/bug60865 [deleted file]
tests/bugs/modalg/bug60881 [deleted file]
tests/bugs/modalg/bug60899_1 [deleted file]
tests/bugs/modalg/bug60899_2 [deleted file]
tests/bugs/modalg/bug60901 [deleted file]
tests/bugs/modalg/bug60905 [deleted file]
tests/bugs/modalg/bug60909 [deleted file]
tests/bugs/modalg/bug60927 [deleted file]
tests/bugs/modalg/bug60930 [deleted file]
tests/bugs/modalg/bug60934 [deleted file]
tests/bugs/modalg/bug60942 [deleted file]
tests/bugs/modalg/bug60971 [deleted file]
tests/bugs/modalg/bug62369 [deleted file]
tests/bugs/modalg/fra62369 [new file with mode: 0644]
tests/bugs/modalg/pro16983 [new file with mode: 0644]
tests/bugs/modalg/pro18892 [new file with mode: 0644]
tests/bugs/modalg/pro19424 [new file with mode: 0644]
tests/bugs/modalg/pro19626 [new file with mode: 0644]
tests/bugs/modalg/pro19653 [new file with mode: 0644]
tests/bugs/moddata/buc60637 [new file with mode: 0644]
tests/bugs/moddata/buc60652_1 [new file with mode: 0644]
tests/bugs/moddata/buc60652_2 [new file with mode: 0644]
tests/bugs/moddata/buc60652_3 [new file with mode: 0644]
tests/bugs/moddata/buc60652_4 [new file with mode: 0644]
tests/bugs/moddata/buc60667 [new file with mode: 0644]
tests/bugs/moddata/buc60707 [new file with mode: 0644]
tests/bugs/moddata/buc60729 [new file with mode: 0644]
tests/bugs/moddata/buc60755 [new file with mode: 0644]
tests/bugs/moddata/buc60769 [new file with mode: 0644]
tests/bugs/moddata/buc60825 [new file with mode: 0644]
tests/bugs/moddata/buc60828 [new file with mode: 0644]
tests/bugs/moddata/buc60842 [new file with mode: 0644]
tests/bugs/moddata/buc60848 [new file with mode: 0644]
tests/bugs/moddata/buc60852 [new file with mode: 0644]
tests/bugs/moddata/buc60854 [new file with mode: 0644]
tests/bugs/moddata/buc60868 [new file with mode: 0644]
tests/bugs/moddata/buc60870 [new file with mode: 0644]
tests/bugs/moddata/buc60889 [new file with mode: 0644]
tests/bugs/moddata/buc60895 [new file with mode: 0644]
tests/bugs/moddata/buc60897 [new file with mode: 0644]
tests/bugs/moddata/buc60911 [new file with mode: 0644]
tests/bugs/moddata/buc60924 [new file with mode: 0644]
tests/bugs/moddata/buc60955 [new file with mode: 0644]
tests/bugs/moddata/buc60960 [new file with mode: 0644]
tests/bugs/moddata/buc60965 [new file with mode: 0644]
tests/bugs/moddata/buc60967 [new file with mode: 0644]
tests/bugs/moddata/buc60968 [new file with mode: 0644]
tests/bugs/moddata/buc61006 [new file with mode: 0644]
tests/bugs/moddata/bug20333 [deleted file]
tests/bugs/moddata/bug54
tests/bugs/moddata/bug60637 [deleted file]
tests/bugs/moddata/bug60652_1 [deleted file]
tests/bugs/moddata/bug60652_2 [deleted file]
tests/bugs/moddata/bug60652_3 [deleted file]
tests/bugs/moddata/bug60652_4 [deleted file]
tests/bugs/moddata/bug60667 [deleted file]
tests/bugs/moddata/bug60707 [deleted file]
tests/bugs/moddata/bug60729 [deleted file]
tests/bugs/moddata/bug60755 [deleted file]
tests/bugs/moddata/bug60769 [deleted file]
tests/bugs/moddata/bug60825 [deleted file]
tests/bugs/moddata/bug60828 [deleted file]
tests/bugs/moddata/bug60842 [deleted file]
tests/bugs/moddata/bug60848 [deleted file]
tests/bugs/moddata/bug60852 [deleted file]
tests/bugs/moddata/bug60854 [deleted file]
tests/bugs/moddata/bug60868 [deleted file]
tests/bugs/moddata/bug60870 [deleted file]
tests/bugs/moddata/bug60889 [deleted file]
tests/bugs/moddata/bug60895 [deleted file]
tests/bugs/moddata/bug60897 [deleted file]
tests/bugs/moddata/bug60911 [deleted file]
tests/bugs/moddata/bug60924 [deleted file]
tests/bugs/moddata/bug60955 [deleted file]
tests/bugs/moddata/bug60960 [deleted file]
tests/bugs/moddata/bug60965 [deleted file]
tests/bugs/moddata/bug60967 [deleted file]
tests/bugs/moddata/bug60968 [deleted file]
tests/bugs/moddata/bug61006 [deleted file]
tests/bugs/moddata/bug62476_1 [deleted file]
tests/bugs/moddata/bug62476_2 [deleted file]
tests/bugs/moddata/fra62476_1 [new file with mode: 0644]
tests/bugs/moddata/fra62476_2 [new file with mode: 0644]
tests/bugs/moddata/pro20333 [new file with mode: 0644]
tests/bugs/step/buc60624 [new file with mode: 0644]
tests/bugs/step/buc60809 [new file with mode: 0644]
tests/bugs/step/buc60810 [new file with mode: 0644]
tests/bugs/step/buc60906 [new file with mode: 0644]
tests/bugs/step/buc60948 [new file with mode: 0644]
tests/bugs/step/bug19854 [deleted file]
tests/bugs/step/bug19895 [deleted file]
tests/bugs/step/bug20361_1 [deleted file]
tests/bugs/step/bug20361_2 [deleted file]
tests/bugs/step/bug20361_3 [deleted file]
tests/bugs/step/bug20362 [deleted file]
tests/bugs/step/bug233
tests/bugs/step/bug60624 [deleted file]
tests/bugs/step/bug60809 [deleted file]
tests/bugs/step/bug60810 [deleted file]
tests/bugs/step/bug60906 [deleted file]
tests/bugs/step/bug60948 [deleted file]
tests/bugs/step/pro19854 [new file with mode: 0644]
tests/bugs/step/pro19895 [new file with mode: 0644]
tests/bugs/step/pro20361_1 [new file with mode: 0644]
tests/bugs/step/pro20361_2 [new file with mode: 0644]
tests/bugs/step/pro20361_3 [new file with mode: 0644]
tests/bugs/step/pro20362 [new file with mode: 0644]
tests/bugs/vis/CR23407_1 [deleted file]
tests/bugs/vis/CR23407_2 [deleted file]
tests/bugs/vis/CR23425 [deleted file]
tests/bugs/vis/bug22835
tests/bugs/vis/bug23120
tests/bugs/vis/bug23407_1 [new file with mode: 0644]
tests/bugs/vis/bug23407_2 [new file with mode: 0644]
tests/bugs/vis/bug23425 [new file with mode: 0644]
tests/bugs/vis/bug4894
tests/bugs/xde/CR23384 [deleted file]
tests/bugs/xde/bug23193
tests/bugs/xde/bug23384 [new file with mode: 0644]

diff --git a/tests/bugs/demo/CR23409 b/tests/bugs/demo/CR23409
deleted file mode 100755 (executable)
index 378d4bd..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-puts "============"
-puts "CR23409"
-puts "============"
-puts ""
-###################################################################################
-# Tricheck command doesn't report problem when triangulation has unexpected holes
-###################################################################################
-
-restore [locate_data_file bug23167_f397.brep] result
-vinit
-vsetdispmode 1
-vdisplay result
-axo
-fit
-isos result 0
-triangles result
-set info_bad [tricheck result]
-if { [regexp "Not connected mesh inside face 1" $info_bad] != 1 } {
-    puts "Error : Tricheck command doesn't report message"
-}
-
-tclean result
-incmesh result 0.01
-set info_good [tricheck result]
-if { [string compare $info_good "" ] != 0 } {
-    puts "Error : Tricheck command works incorrect when shape looks good"
-}
-
-set 3dviewer 1
-
-
-
-
-
diff --git a/tests/bugs/demo/CR23410 b/tests/bugs/demo/CR23410
deleted file mode 100755 (executable)
index 2a4b9ec..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-puts "============"
-puts "CR23410"
-puts "============"
-puts ""
-#######################################################################
-# QA comamnds don't work properly in new testing system
-#######################################################################
-pload QAcommands
-
-set r_1 0.4
-set r_2 0.5
-set g_1 0.9
-set g_2 1
-set b_1 0
-set b_2 0.1
-set x1 128
-set y1 235
-box result 100 100 100
-vdisplay result
-vsetdispmode 1
-vfit
-vsetcolor result GREEN
-set color [ QAGetPixelColor ${x1} ${y1} ]
-regexp {RED +: +([-0-9.+eE]+)} $color full rd
-regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
-regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
-
-set red_status 0
-if { $rd < $r_1 || $rd > $r_2 } {
-    set red_status 1
-} else {
-    set red_status 0
-}
-
-set green_status 0
-if { $gr < $g_1 || $gr > $g_2 } {
-    set green_status 1
-} else {
-    set green_status 0
-}
-
-set blue_status 0
-if { $bl < $b_1 || $bl > $b_2 } {
-    set blue_status 1
-} else {
-    set blue_status 0
-}
-
-if { $red_status != 0 || $green_status != 0 || $blue_status != 0 } {
-    puts "Error : color are not equal"
-    puts "Error : QA command QAGetPixelColor doesn't work properly"
-}
-set 3dviewer 1
-
-
-
-
-
diff --git a/tests/bugs/demo/CR23416 b/tests/bugs/demo/CR23416
deleted file mode 100755 (executable)
index 5222cae..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-puts "============"
-puts "CR23416"
-puts "============"
-puts ""
-#######################################################################
-# Regression of current version in compare with occt-653: crash while visualizing the shape
-#######################################################################
-
-isos 2
-smallview
-set info [restore [locate_data_file CR23416-ProblemFace.brep] result]
-set check_error [lsearch $info exception]
-if { $check_error != -1 } {
-    puts "Error : crashes during visualization"
-}
-fit
-set only_xwd 1
-
-
-
diff --git a/tests/bugs/demo/bug23409 b/tests/bugs/demo/bug23409
new file mode 100644 (file)
index 0000000..378d4bd
--- /dev/null
@@ -0,0 +1,34 @@
+puts "============"
+puts "CR23409"
+puts "============"
+puts ""
+###################################################################################
+# Tricheck command doesn't report problem when triangulation has unexpected holes
+###################################################################################
+
+restore [locate_data_file bug23167_f397.brep] result
+vinit
+vsetdispmode 1
+vdisplay result
+axo
+fit
+isos result 0
+triangles result
+set info_bad [tricheck result]
+if { [regexp "Not connected mesh inside face 1" $info_bad] != 1 } {
+    puts "Error : Tricheck command doesn't report message"
+}
+
+tclean result
+incmesh result 0.01
+set info_good [tricheck result]
+if { [string compare $info_good "" ] != 0 } {
+    puts "Error : Tricheck command works incorrect when shape looks good"
+}
+
+set 3dviewer 1
+
+
+
+
+
diff --git a/tests/bugs/demo/bug23410 b/tests/bugs/demo/bug23410
new file mode 100644 (file)
index 0000000..2a4b9ec
--- /dev/null
@@ -0,0 +1,58 @@
+puts "============"
+puts "CR23410"
+puts "============"
+puts ""
+#######################################################################
+# QA comamnds don't work properly in new testing system
+#######################################################################
+pload QAcommands
+
+set r_1 0.4
+set r_2 0.5
+set g_1 0.9
+set g_2 1
+set b_1 0
+set b_2 0.1
+set x1 128
+set y1 235
+box result 100 100 100
+vdisplay result
+vsetdispmode 1
+vfit
+vsetcolor result GREEN
+set color [ QAGetPixelColor ${x1} ${y1} ]
+regexp {RED +: +([-0-9.+eE]+)} $color full rd
+regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
+regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
+
+set red_status 0
+if { $rd < $r_1 || $rd > $r_2 } {
+    set red_status 1
+} else {
+    set red_status 0
+}
+
+set green_status 0
+if { $gr < $g_1 || $gr > $g_2 } {
+    set green_status 1
+} else {
+    set green_status 0
+}
+
+set blue_status 0
+if { $bl < $b_1 || $bl > $b_2 } {
+    set blue_status 1
+} else {
+    set blue_status 0
+}
+
+if { $red_status != 0 || $green_status != 0 || $blue_status != 0 } {
+    puts "Error : color are not equal"
+    puts "Error : QA command QAGetPixelColor doesn't work properly"
+}
+set 3dviewer 1
+
+
+
+
+
diff --git a/tests/bugs/demo/bug23416 b/tests/bugs/demo/bug23416
new file mode 100644 (file)
index 0000000..5222cae
--- /dev/null
@@ -0,0 +1,20 @@
+puts "============"
+puts "CR23416"
+puts "============"
+puts ""
+#######################################################################
+# Regression of current version in compare with occt-653: crash while visualizing the shape
+#######################################################################
+
+isos 2
+smallview
+set info [restore [locate_data_file CR23416-ProblemFace.brep] result]
+set check_error [lsearch $info exception]
+if { $check_error != -1 } {
+    puts "Error : crashes during visualization"
+}
+fit
+set only_xwd 1
+
+
+
index c0d6f2d..38b1e60 100755 (executable)
@@ -14,19 +14,11 @@ if { [isdraw result] } {
        vfit
        vdump $imagedir/${test_image}.png
     }
-} else {
-    if { [info exists 3dviewer] } {
-       if { ${3dviewer} == 2 } {
-               vdump $imagedir/${test_image}.png
-       }
-    }
 }
-    if { [info exist only_xwd] } {
-       xwd $imagedir/${test_image}.png 
-    }
-#} else {
-#   puts "Error : The command can not be build."
-#}
+
+if { [info exist only_screen] } {
+    vdump $imagedir/${test_image}.png
+}
 
 # to end a test script
 puts "TEST COMPLETED"
diff --git a/tests/bugs/fclasses/CR23403 b/tests/bugs/fclasses/CR23403
deleted file mode 100755 (executable)
index b3b65a6..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-#######################################################################
-# Crash when parsing an expression with lexical error
-#######################################################################
-pload QAcommands
-
-set result [CR23403 \t]
-set length [llength ${result}]
-
-puts ""
-if { ${length} != 0 } {
-  puts "Error : parsing is incorrect"
-}
\ No newline at end of file
diff --git a/tests/bugs/fclasses/bug23403 b/tests/bugs/fclasses/bug23403
new file mode 100644 (file)
index 0000000..b3b65a6
--- /dev/null
@@ -0,0 +1,12 @@
+#######################################################################
+# Crash when parsing an expression with lexical error
+#######################################################################
+pload QAcommands
+
+set result [CR23403 \t]
+set length [llength ${result}]
+
+puts ""
+if { ${length} != 0 } {
+  puts "Error : parsing is incorrect"
+}
\ No newline at end of file
diff --git a/tests/bugs/heal/buc60940 b/tests/bugs/heal/buc60940
new file mode 100644 (file)
index 0000000..04ff551
--- /dev/null
@@ -0,0 +1,10 @@
+puts "========================"                                                                                      
+puts "BUC60940"                                                                                                      
+puts "========================"                                                                                      
+
+restore [locate_data_file buc60940.rle] a 
+
+fixshape result a 1e-7 1
+puts [checkshape result]
+
+set 2dviewer 1
diff --git a/tests/bugs/heal/buc60950 b/tests/bugs/heal/buc60950
new file mode 100644 (file)
index 0000000..6d7f171
--- /dev/null
@@ -0,0 +1,15 @@
+puts "==========="
+puts "  BUC60950"
+puts "==========="
+
+restore [locate_data_file buc60950.rle] a 
+checkshape a
+
+fixshape result a 1e-7
+
+puts [checkshape result]
+
+set 2dviewer 1
+
+
+
index 028c78e..0905902 100755 (executable)
@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========"
 puts "OCC208"
 puts "========"
index f8e5fbe..359d81d 100755 (executable)
@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========"
 puts "OCC209"
 puts "========"
diff --git a/tests/bugs/heal/bug60940 b/tests/bugs/heal/bug60940
deleted file mode 100755 (executable)
index 04ff551..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-puts "========================"                                                                                      
-puts "BUC60940"                                                                                                      
-puts "========================"                                                                                      
-
-restore [locate_data_file buc60940.rle] a 
-
-fixshape result a 1e-7 1
-puts [checkshape result]
-
-set 2dviewer 1
diff --git a/tests/bugs/heal/bug60950 b/tests/bugs/heal/bug60950
deleted file mode 100755 (executable)
index 6d7f171..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-puts "==========="
-puts "  BUC60950"
-puts "==========="
-
-restore [locate_data_file buc60950.rle] a 
-checkshape a
-
-fixshape result a 1e-7
-
-puts [checkshape result]
-
-set 2dviewer 1
-
-
-
diff --git a/tests/bugs/iges/CR22888 b/tests/bugs/iges/CR22888
deleted file mode 100755 (executable)
index d1af309..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-puts "============"
-puts "CR22888"
-puts "============"
-puts ""
-#######################################################################
-# Wrong shape result imported from IGES file
-#######################################################################
-pload QAcommands
-
-set x1 166
-set y1 225
-
-igesread [locate_data_file CR22888-data.igs] a *
-if { [regexp "This shape seems to be valid" [checkshape a]] != 1 } {
-    puts "Error : checkshape is faulty"
-}
-
-explode a f
-vinit
-vsetdispmode 0
-vdisplay a_1
-vfit
-vzfit
-tclean a_1
-set inf_before [trinfo a_1]
-
-vsetdispmode a_1 1
-set inf_after [trinfo a_1]
-regexp { +([-0-9.+eE]+) +triangles} $inf_after full tri_after
-regexp { +([-0-9.+eE]+) +nodes} $inf_after full nod_after
-
-set color [QAGetPixelColor ${x1} ${y1}]
-regexp {RED +: +([-0-9.+eE]+)} $color full rd
-regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
-regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
-
-if { $rd == 0 || $gr == 0 || $bl == 0 } {
-    puts "Error : Face is not shaded (colors are not equal)"
-}
-
-if { $tri_after <= 0 || $nod_after <= 0 } {
-    puts "Error : Face is not shaded (number of nodes or triangles is wrong)"
-}
-
-set CR22888_draw 1
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/tests/bugs/iges/CR23377 b/tests/bugs/iges/CR23377
deleted file mode 100755 (executable)
index 285ee11..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-# Original bug : 23377
-# Date : 12 Aug 2012
-
-set check_nb 7
-igesbrep [locate_data_file OCC23377-Input.igs] result *
-regexp {Number of Rational BSpline surfaces +([-0-9.+eE]+)} [expshape result 1 1] full nb
-if { ${nb} != ${check_nb} } {
-    puts "Error : The Number of Rational BSpline surfaces is wrong!"
-    puts "Error : It's $nb indtead of $check_nb!"
-}
-puts "Number of Rational BSpline surfaces is $nb"
-set 2dviewer 1
-
-
-
-
-
-
-
-
-
-
-
diff --git a/tests/bugs/iges/buc60591_1 b/tests/bugs/iges/buc60591_1
new file mode 100644 (file)
index 0000000..9fe2524
--- /dev/null
@@ -0,0 +1,51 @@
+set os $env(os_type)
+if { [string compare $os "windows"] == 0 } {
+#     puts "TODO OCC23561 $os: child process exited abnormally"
+} else {
+    puts "TODO OCC23561 ALL: An exception was caught"
+    puts "TODO OCC23561 ALL: Tcl Exception:"
+    puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
+}
+puts "TODO OCC23561 ALL: TEST INCOMPLETE"
+
+puts "=========="
+puts "BUC60591"
+puts "=========="
+puts ""
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+puts "consideration of \"buc60591a\" model"
+
+igesbrep [locate_data_file buc60591a.igs] a *
+
+tpcompound buc60591a
+
+puts [checkshape buc60591a r]
+
+######################################################################
+
+catch {exec rm ${imagedir}/buc60591a.brep}
+save buc60591a  ${imagedir}/buc60591a.brep
+catch {exec rm ${imagedir}/buc60591a_iges.igs}
+brepiges buc60591a ${imagedir}/buc60591a_iges.igs
+dall
+
+restore  ${imagedir}/buc60591a.brep buc60591a_brep
+catch {exec rm  ${imagedir}/buc60591a_brep.igs}
+brepiges buc60591a_brep ${imagedir}/buc60591a_brep.igs
+dall
+
+igesbrep  ${imagedir}/buc60591a_brep.igs a_brep_iges *
+tpcompound buc60591a_brep_iges
+puts [checkshape buc60591a_brep_iges]
+
+igesbrep  ${imagedir}/buc60591a_iges.igs a_iges *
+tpcompound buc60591a_iges
+puts [checkshape buc60591a_iges]
+
+renamevar buc60591a_iges result
+
+set 2dviewer 0
+
diff --git a/tests/bugs/iges/buc60591_2 b/tests/bugs/iges/buc60591_2
new file mode 100644 (file)
index 0000000..fafb47d
--- /dev/null
@@ -0,0 +1,50 @@
+set os $env(os_type)
+if { [string compare $os "windows"] == 0 } {
+#     puts "TODO OCC23561 $os: child process exited abnormally"
+} else {
+    puts "TODO OCC23561 ALL: An exception was caught"
+    puts "TODO OCC23561 ALL: Tcl Exception:"
+    puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
+}
+puts "TODO OCC23561 ALL: TEST INCOMPLETE"
+
+puts "=================================="
+puts "BUC60591"
+puts "=================================="
+puts ""
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+puts "consideration of \"buc60591b\" model"
+
+igesbrep [locate_data_file buc60591b.igs] a *
+
+tpcompound buc60591b
+
+puts [checkshape buc60591b r]
+
+######################################################################
+
+catch {exec rm ${imagedir}/buc60591b.brep}
+save buc60591b ${imagedir}/buc60591b.brep
+catch {exec rm ${imagedir}/buc60591b_iges.igs}
+brepiges buc60591b ${imagedir}/buc60591b_iges.igs
+dall
+
+restore ${imagedir}/buc60591b.brep buc60591b_brep
+catch {exec rm ${imagedir}/buc60591b_brep.igs}
+brepiges buc60591b_brep ${imagedir}/buc60591b_brep.igs
+dall
+
+igesbrep ${imagedir}/buc60591b_brep.igs b_brep_iges *
+tpcompound buc60591b_brep_iges
+puts [checkshape buc60591b_brep_iges]
+
+igesbrep ${imagedir}/buc60591b_iges.igs b_iges *
+tpcompound buc60591b_iges
+puts [checkshape buc60591b_iges]
+
+renamevar buc60591b_iges result
+
+set 2dviewer 0
+
diff --git a/tests/bugs/iges/buc60591_3 b/tests/bugs/iges/buc60591_3
new file mode 100644 (file)
index 0000000..3ad6335
--- /dev/null
@@ -0,0 +1,49 @@
+set os $env(os_type)
+if { [string compare $os "windows"] == 0 } {
+#     puts "TODO OCC23561 $os: child process exited abnormally"
+} else {
+    puts "TODO OCC23561 ALL: An exception was caught"
+    puts "TODO OCC23561 ALL: Tcl Exception:"
+    puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
+}
+puts "TODO OCC23561 ALL: TEST INCOMPLETE"
+
+puts "=================================="
+puts "BUC60591"
+puts "=================================="
+puts ""
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+puts "consideration of \"buc60591c\" model"
+
+igesbrep [locate_data_file buc60591c.igs] a *
+
+tpcompound buc60591c
+puts [checkshape buc60591c r]
+
+######################################################################
+
+catch {exec rm ${imagedir}/buc60591c.brep}
+save buc60591c ${imagedir}/buc60591c.brep
+catch {exec rm ${imagedir}/buc60591c_iges.igs}
+brepiges buc60591c ${imagedir}/buc60591c_iges.igs
+dall
+
+restore  ${imagedir}/buc60591c.brep buc60591c_brep
+catch {exec rm ${imagedir}/buc60591c_brep.igs}
+brepiges buc60591c_brep ${imagedir}/buc60591c_brep.igs
+dall
+
+igesbrep ${imagedir}/buc60591c_brep.igs c_brep_iges *
+tpcompound buc60591c_brep_iges
+puts [checkshape buc60591c_brep_iges]
+
+igesbrep ${imagedir}/buc60591c_iges.igs c_iges *
+tpcompound buc60591c_iges
+puts [checkshape buc60591c_iges]
+
+renamevar  buc60591c_iges result
+
+set 2dviewer 0
+
diff --git a/tests/bugs/iges/buc60591_4 b/tests/bugs/iges/buc60591_4
new file mode 100644 (file)
index 0000000..c9f0af8
--- /dev/null
@@ -0,0 +1,48 @@
+set os $env(os_type)
+if { [string compare $os "windows"] == 0 } {
+#     puts "TODO OCC23561 $os: child process exited abnormally"
+} else {
+    puts "TODO OCC23561 ALL: An exception was caught"
+    puts "TODO OCC23561 ALL: Tcl Exception:"
+    puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
+}
+puts "TODO OCC23561 ALL: TEST INCOMPLETE"
+
+puts "BUC60591"
+puts ""
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+puts "consideration of \"buc60591d\" model"
+
+igesbrep [locate_data_file buc60591d.igs] a *
+
+tpcompound buc60591d
+puts [checkshape buc60591d r]
+
+######################################################################
+
+catch {exec rm ${imagedir}/buc60591d.brep}
+save buc60591d ${imagedir}/buc60591d.brep
+catch {exec rm ${imagedir}/buc60591d_iges.igs}
+brepiges buc60591d ${imagedir}/buc60591d_iges.igs
+dall
+
+restore ${imagedir}/buc60591d.brep buc60591d_brep
+catch {exec rm ${imagedir}/buc60591d_brep.igs}
+brepiges buc60591d_brep ${imagedir}/buc60591d_brep.igs
+dall
+
+igesbrep ${imagedir}/buc60591d_brep.igs d_brep_iges *
+tpcompound buc60591d_brep_iges
+puts [checkshape buc60591d_brep_iges]
+
+igesbrep ${imagedir}/buc60591d_iges.igs d_iges *
+tpcompound buc60591d_iges
+puts [checkshape buc60591d_iges]
+
+renamevar  buc60591d_iges result
+
+set 2dviewer 0
+
diff --git a/tests/bugs/iges/buc60594 b/tests/bugs/iges/buc60594
new file mode 100644 (file)
index 0000000..54e7f12
--- /dev/null
@@ -0,0 +1,15 @@
+puts "=================================="
+puts "BUC60594"
+puts "=================================="
+puts ""
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+
+igesbrep [locate_data_file buc60594a.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
diff --git a/tests/bugs/iges/buc60595_1 b/tests/bugs/iges/buc60595_1
new file mode 100644 (file)
index 0000000..9f543df
--- /dev/null
@@ -0,0 +1,24 @@
+puts "=================="
+puts "BUC60595"
+puts "=================="
+puts ""
+###################################################################
+## This one relates to the generation of floating point exceptions during the IGE to BRep translation.
+## See the notes in fw_fpe.READ. 
+###################################################################
+
+set bug_var [ igesbrep [locate_data_file buc60595a.igs] a * ] 
+
+tpcompound result
+
+if { [ string match "*Uninspired signal*" $bug_var ] == 1 } {
+    puts "Error : TEST FAILED"
+}
+
+isos 0
+isos result 15
+
+puts "Previously here was message:  Uninspired signal 8"
+
+set 2dviewer 0
+
diff --git a/tests/bugs/iges/buc60595_2 b/tests/bugs/iges/buc60595_2
new file mode 100644 (file)
index 0000000..ebc4fbe
--- /dev/null
@@ -0,0 +1,18 @@
+puts "=================="
+puts "BUC60595"
+puts "=================="
+
+set bug_var [ igesbrep [locate_data_file buc60595b.igs] a * ] 
+
+tpcompound result
+
+if { [ string match "*Uninspired signal*" $bug_var ] == 1 } {
+    puts "Error : TEST FAILED"
+}
+
+isos 0
+isos result 15
+
+puts "Previously here was message:  Uninspired signal 8"
+
+set 2dviewer 0
diff --git a/tests/bugs/iges/buc60595_3 b/tests/bugs/iges/buc60595_3
new file mode 100644 (file)
index 0000000..349e1c6
--- /dev/null
@@ -0,0 +1,17 @@
+puts "================"
+puts "BUC60595"
+puts "================"
+
+set bug_var [ igesbrep [locate_data_file buc60595c.igs] c * ] 
+if { [ string match "*Uninspired signal*" $bug_var ] == 1 } {
+    puts "Error : TEST FAILED"
+}
+
+tpcompound result
+
+isos result 0
+isos result 15
+
+set 2dviewer 0
+
+
diff --git a/tests/bugs/iges/buc60610 b/tests/bugs/iges/buc60610
new file mode 100644 (file)
index 0000000..8a25734
--- /dev/null
@@ -0,0 +1,14 @@
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========================"
+puts "BUC60610"
+puts "========================"
+
+igesbrep [locate_data_file buc60610a.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+
diff --git a/tests/bugs/iges/buc60625 b/tests/bugs/iges/buc60625
new file mode 100644 (file)
index 0000000..37e49d3
--- /dev/null
@@ -0,0 +1,55 @@
+puts "===================="
+puts "BUC60625"
+puts "===================="
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+
+cpulimit 1500
+
+set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] 
+
+tpcompound result
+puts [checkshape result r]
+
+set start [lindex $l 60]
+set bug_list_numb [ llength $l ]
+set bug_list_elem 0
+
+# Search word sequence:        Nb entities selected : XXXX
+while { $bug_list_elem < $bug_list_numb } {
+    if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } {
+       set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
+       set bug_list_elem [ expr { $bug_list_numb - 1 } ]
+    }
+    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
+}
+
+# Search word sequence:        Nb Shapes successfully produced : XXXX
+set end [lindex $l 0]
+set bug_list_elem 0
+while { $bug_list_elem < $bug_list_numb } {
+    set word_0 [ lindex $l [ expr { $bug_list_elem + 0 } ] ]
+    set word_1 [ lindex $l [ expr { $bug_list_elem + 1 } ] ]
+    set word_2 [ lindex $l [ expr { $bug_list_elem + 2 } ] ]
+    set word_3 [ lindex $l [ expr { $bug_list_elem + 3 } ] ]
+    set word_4 [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
+    if { [ string compare "Nb" ${word_0} ] == 0 &&
+       [ string compare "Shapes" ${word_1} ] == 0 &&
+       [ string compare "successfully" ${word_2} ] == 0 &&
+       [ string compare "produced" ${word_3} ] == 0 &&
+       [ string compare ":" ${word_4} ] == 0 } {
+       set end [ lindex $l [ expr { $bug_list_elem + 5 } ] ]
+       set bug_list_elem [ expr { $bug_list_numb - 1 } ]
+    }
+    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
+}
+
+if { $start != $end } {
+  puts " Error : The number of visible roots ($start) IS NOT EQUAL Nb Shapes successfully produced ($end)"
+} else {
+  puts " The number of visible roots ($start) IS EQUAL Nb Shapes successfully produced ($end)"
+}
+
+set 2dviewer 0
+
diff --git a/tests/bugs/iges/buc60646 b/tests/bugs/iges/buc60646
new file mode 100644 (file)
index 0000000..f32f8f8
--- /dev/null
@@ -0,0 +1,56 @@
+puts "==============="
+puts "BUC60646"
+puts "==============="
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+
+set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] 
+
+tpcompound res
+puts [checkshape res r]
+
+tcopy res result
+
+set start [lindex $l 60]
+set bug_list_numb [ llength $l ]
+set bug_list_elem 0
+
+# Search word sequence:        Nb entities selected : XXXX
+while { $bug_list_elem < $bug_list_numb } {
+    if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } {
+       set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
+       set bug_list_elem [ expr { $bug_list_numb - 1 } ]
+    }
+    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
+}
+
+# Search word sequence:        Nb Shapes successfully produced : XXXX
+set end [lindex $l 0]
+set bug_list_elem 0
+while { $bug_list_elem < $bug_list_numb } {
+    set word_0 [ lindex $l [ expr { $bug_list_elem + 0 } ] ]
+    set word_1 [ lindex $l [ expr { $bug_list_elem + 1 } ] ]
+    set word_2 [ lindex $l [ expr { $bug_list_elem + 2 } ] ]
+    set word_3 [ lindex $l [ expr { $bug_list_elem + 3 } ] ]
+    set word_4 [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
+    if { [ string compare "Nb" ${word_0} ] == 0 &&
+       [ string compare "Shapes" ${word_1} ] == 0 &&
+       [ string compare "successfully" ${word_2} ] == 0 &&
+       [ string compare "produced" ${word_3} ] == 0 &&
+       [ string compare ":" ${word_4} ] == 0 } {
+       set end [ lindex $l [ expr { $bug_list_elem + 5 } ] ]
+       set bug_list_elem [ expr { $bug_list_numb - 1 } ]
+    }
+    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
+}
+
+if { $start != $end } {
+    puts " Error : The number of visible roots ($start) IS NOT EQUAL Nb Shapes successfully produced ($end)"
+} else {
+    puts " The number of visible roots ($start) IS EQUAL Nb Shapes successfully produced ($end)"
+}
+
+set 2dviewer 0
+
+
diff --git a/tests/bugs/iges/buc60685 b/tests/bugs/iges/buc60685
new file mode 100644 (file)
index 0000000..49c415f
--- /dev/null
@@ -0,0 +1,30 @@
+puts "============"
+puts "BUC60685"
+puts "============"
+puts ""
+
+cpulimit 1500
+
+set l [igesbrep [locate_data_file buc60685a.igs] a xst-transferrable-roots] 
+
+tpcompound result
+puts [checkshape result r]
+
+set start [lindex $l 60]
+set bug_list_numb [ llength $l ]
+set bug_list_elem 0
+while { $bug_list_elem != $bug_list_numb } {
+    if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } {
+       set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
+       set bug_list_elem [ expr { $bug_list_numb - 1 } ]
+    }
+    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
+}
+
+set n [llength $l]
+set end [lindex $l [expr $n-1]]
+if { $start != $end } {
+    puts "Error : wrong number of translated shapes. It is ${end} instead of ${start}"
+}
+
+set 2dviewer 0
diff --git a/tests/bugs/iges/buc60686 b/tests/bugs/iges/buc60686
new file mode 100644 (file)
index 0000000..f4c56a9
--- /dev/null
@@ -0,0 +1,15 @@
+puts "=========="
+puts "BUC60686"
+puts "=========="
+puts ""
+#puts "=================================="
+#puts "It takes visual check for this BUG"
+#puts "=================================="
+
+igesbrep [locate_data_file BUC50029.igs] a xst-transferrable-roots
+
+tpcompound result
+
+set 2dviewer 0
+
+
diff --git a/tests/bugs/iges/buc60687 b/tests/bugs/iges/buc60687
new file mode 100644 (file)
index 0000000..d6ccd82
--- /dev/null
@@ -0,0 +1,11 @@
+puts "=========="
+puts "BUC60687"
+puts "=========="
+
+igesbrep [locate_data_file buc40130.igs] a xst-transferrable-roots
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
diff --git a/tests/bugs/iges/buc60820_1 b/tests/bugs/iges/buc60820_1
new file mode 100644 (file)
index 0000000..fa64f37
--- /dev/null
@@ -0,0 +1,22 @@
+puts "========================"
+puts "BUC60820"
+puts "========================"
+
+igesbrep [locate_data_file buc60820.igs] a *
+
+tpcompound result
+
+puts [checkshape result r]
+
+tclean result
+incmesh result 0.1
+triangles result
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri <= 0 || $nod <= 0 } {
+    puts "Error : Problems with shading"
+}
+
+set 2dviewer 0
diff --git a/tests/bugs/iges/buc60820_2 b/tests/bugs/iges/buc60820_2
new file mode 100644 (file)
index 0000000..cb644f3
--- /dev/null
@@ -0,0 +1,26 @@
+puts "========================"
+puts "BUC60820"
+puts "========================"
+
+igesbrep [locate_data_file buc60820.igs] a *
+
+tpcompound result
+puts [checkshape result r]
+
+tclean result
+vinit
+vdisplay result
+vsetdispmode result 1
+vfit
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nod} $info full nod
+
+
+if { $tri != 1655 || $nod != 1143 } {
+    puts "Shading problem may be, nb tri & nod were changed"
+}
+
+set 2dviewer 0
+
diff --git a/tests/bugs/iges/buc60823 b/tests/bugs/iges/buc60823
new file mode 100644 (file)
index 0000000..039531d
--- /dev/null
@@ -0,0 +1,34 @@
+if { [array get env os_type] != "" } {
+    set os $env(os_type)
+}
+if { [string compare $os "windows"] != 0 } {
+    puts "TODO OCC12345 ALL: An exception was caught"
+    puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
+    puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+}
+puts "========================"                                               
+puts "BUC60823"
+puts "========================"                                                
+
+igesbrep [locate_data_file buc60823.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+tclean result
+vinit
+vdisplay result
+vsetdispmode result 1
+vfit
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri != 17618 || $nod != 11153 } {
+    puts "Shading problem may be, nb tri & nod are changed"
+}
+
+set 2dviewer 0
+
diff --git a/tests/bugs/iges/buc60850 b/tests/bugs/iges/buc60850
new file mode 100644 (file)
index 0000000..3fbc4a3
--- /dev/null
@@ -0,0 +1,11 @@
+puts "==========="
+puts "BUC60850"
+puts "==========="
+
+igesbrep [locate_data_file BUC60850.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
diff --git a/tests/bugs/iges/buc60894 b/tests/bugs/iges/buc60894
new file mode 100644 (file)
index 0000000..d100cfc
--- /dev/null
@@ -0,0 +1,11 @@
+puts "==========="
+puts "BUC60894"
+puts "==========="
+
+cpulimit 3000
+
+igesbrep [locate_data_file buc60894.igs] a xst-transferrable-roots
+
+tpcompound result
+
+set 2dviewer 0
diff --git a/tests/bugs/iges/buc60949 b/tests/bugs/iges/buc60949
new file mode 100644 (file)
index 0000000..788453a
--- /dev/null
@@ -0,0 +1,17 @@
+puts "==========="
+puts "  BUC60949"
+puts "==========="
+
+######################################################
+## Can not read iges file in XCAFEXE neither by command ReadIges no igesbrep. 
+######################################################
+
+igesbrep [locate_data_file buc60949.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+
+
index 328e114..e0cec6b 100755 (executable)
@@ -9,7 +9,7 @@ puts "========"
 ## SAM392, #289: Crash when you want to import the "waaier_para.igs" file
 #####################################################
 
-igesbrep [locate_data_file Samtech_waaier_para.igs] a *
+igesbrep [locate_data_file waaier_para.igs] a *
 
 tpcompound result
 
diff --git a/tests/bugs/iges/bug22888 b/tests/bugs/iges/bug22888
new file mode 100644 (file)
index 0000000..d1af309
--- /dev/null
@@ -0,0 +1,57 @@
+puts "============"
+puts "CR22888"
+puts "============"
+puts ""
+#######################################################################
+# Wrong shape result imported from IGES file
+#######################################################################
+pload QAcommands
+
+set x1 166
+set y1 225
+
+igesread [locate_data_file CR22888-data.igs] a *
+if { [regexp "This shape seems to be valid" [checkshape a]] != 1 } {
+    puts "Error : checkshape is faulty"
+}
+
+explode a f
+vinit
+vsetdispmode 0
+vdisplay a_1
+vfit
+vzfit
+tclean a_1
+set inf_before [trinfo a_1]
+
+vsetdispmode a_1 1
+set inf_after [trinfo a_1]
+regexp { +([-0-9.+eE]+) +triangles} $inf_after full tri_after
+regexp { +([-0-9.+eE]+) +nodes} $inf_after full nod_after
+
+set color [QAGetPixelColor ${x1} ${y1}]
+regexp {RED +: +([-0-9.+eE]+)} $color full rd
+regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
+regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
+
+if { $rd == 0 || $gr == 0 || $bl == 0 } {
+    puts "Error : Face is not shaded (colors are not equal)"
+}
+
+if { $tri_after <= 0 || $nod_after <= 0 } {
+    puts "Error : Face is not shaded (number of nodes or triangles is wrong)"
+}
+
+set CR22888_draw 1
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/tests/bugs/iges/bug23377 b/tests/bugs/iges/bug23377
new file mode 100644 (file)
index 0000000..285ee11
--- /dev/null
@@ -0,0 +1,23 @@
+# Original bug : 23377
+# Date : 12 Aug 2012
+
+set check_nb 7
+igesbrep [locate_data_file OCC23377-Input.igs] result *
+regexp {Number of Rational BSpline surfaces +([-0-9.+eE]+)} [expshape result 1 1] full nb
+if { ${nb} != ${check_nb} } {
+    puts "Error : The Number of Rational BSpline surfaces is wrong!"
+    puts "Error : It's $nb indtead of $check_nb!"
+}
+puts "Number of Rational BSpline surfaces is $nb"
+set 2dviewer 1
+
+
+
+
+
+
+
+
+
+
+
diff --git a/tests/bugs/iges/bug60591_1 b/tests/bugs/iges/bug60591_1
deleted file mode 100755 (executable)
index 9fe2524..0000000
+++ /dev/null
@@ -1,51 +0,0 @@
-set os $env(os_type)
-if { [string compare $os "windows"] == 0 } {
-#     puts "TODO OCC23561 $os: child process exited abnormally"
-} else {
-    puts "TODO OCC23561 ALL: An exception was caught"
-    puts "TODO OCC23561 ALL: Tcl Exception:"
-    puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
-}
-puts "TODO OCC23561 ALL: TEST INCOMPLETE"
-
-puts "=========="
-puts "BUC60591"
-puts "=========="
-puts ""
-puts "=================================="
-puts "It takes visual check for this BUG"
-puts "=================================="
-puts ""
-puts "consideration of \"buc60591a\" model"
-
-igesbrep [locate_data_file buc60591a.igs] a *
-
-tpcompound buc60591a
-
-puts [checkshape buc60591a r]
-
-######################################################################
-
-catch {exec rm ${imagedir}/buc60591a.brep}
-save buc60591a  ${imagedir}/buc60591a.brep
-catch {exec rm ${imagedir}/buc60591a_iges.igs}
-brepiges buc60591a ${imagedir}/buc60591a_iges.igs
-dall
-
-restore  ${imagedir}/buc60591a.brep buc60591a_brep
-catch {exec rm  ${imagedir}/buc60591a_brep.igs}
-brepiges buc60591a_brep ${imagedir}/buc60591a_brep.igs
-dall
-
-igesbrep  ${imagedir}/buc60591a_brep.igs a_brep_iges *
-tpcompound buc60591a_brep_iges
-puts [checkshape buc60591a_brep_iges]
-
-igesbrep  ${imagedir}/buc60591a_iges.igs a_iges *
-tpcompound buc60591a_iges
-puts [checkshape buc60591a_iges]
-
-renamevar buc60591a_iges result
-
-set 2dviewer 0
-
diff --git a/tests/bugs/iges/bug60591_2 b/tests/bugs/iges/bug60591_2
deleted file mode 100755 (executable)
index fafb47d..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-set os $env(os_type)
-if { [string compare $os "windows"] == 0 } {
-#     puts "TODO OCC23561 $os: child process exited abnormally"
-} else {
-    puts "TODO OCC23561 ALL: An exception was caught"
-    puts "TODO OCC23561 ALL: Tcl Exception:"
-    puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
-}
-puts "TODO OCC23561 ALL: TEST INCOMPLETE"
-
-puts "=================================="
-puts "BUC60591"
-puts "=================================="
-puts ""
-puts "It takes visual check for this BUG"
-puts "=================================="
-puts ""
-puts "consideration of \"buc60591b\" model"
-
-igesbrep [locate_data_file buc60591b.igs] a *
-
-tpcompound buc60591b
-
-puts [checkshape buc60591b r]
-
-######################################################################
-
-catch {exec rm ${imagedir}/buc60591b.brep}
-save buc60591b ${imagedir}/buc60591b.brep
-catch {exec rm ${imagedir}/buc60591b_iges.igs}
-brepiges buc60591b ${imagedir}/buc60591b_iges.igs
-dall
-
-restore ${imagedir}/buc60591b.brep buc60591b_brep
-catch {exec rm ${imagedir}/buc60591b_brep.igs}
-brepiges buc60591b_brep ${imagedir}/buc60591b_brep.igs
-dall
-
-igesbrep ${imagedir}/buc60591b_brep.igs b_brep_iges *
-tpcompound buc60591b_brep_iges
-puts [checkshape buc60591b_brep_iges]
-
-igesbrep ${imagedir}/buc60591b_iges.igs b_iges *
-tpcompound buc60591b_iges
-puts [checkshape buc60591b_iges]
-
-renamevar buc60591b_iges result
-
-set 2dviewer 0
-
diff --git a/tests/bugs/iges/bug60591_3 b/tests/bugs/iges/bug60591_3
deleted file mode 100755 (executable)
index 3ad6335..0000000
+++ /dev/null
@@ -1,49 +0,0 @@
-set os $env(os_type)
-if { [string compare $os "windows"] == 0 } {
-#     puts "TODO OCC23561 $os: child process exited abnormally"
-} else {
-    puts "TODO OCC23561 ALL: An exception was caught"
-    puts "TODO OCC23561 ALL: Tcl Exception:"
-    puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
-}
-puts "TODO OCC23561 ALL: TEST INCOMPLETE"
-
-puts "=================================="
-puts "BUC60591"
-puts "=================================="
-puts ""
-puts "It takes visual check for this BUG"
-puts "=================================="
-puts ""
-puts "consideration of \"buc60591c\" model"
-
-igesbrep [locate_data_file buc60591c.igs] a *
-
-tpcompound buc60591c
-puts [checkshape buc60591c r]
-
-######################################################################
-
-catch {exec rm ${imagedir}/buc60591c.brep}
-save buc60591c ${imagedir}/buc60591c.brep
-catch {exec rm ${imagedir}/buc60591c_iges.igs}
-brepiges buc60591c ${imagedir}/buc60591c_iges.igs
-dall
-
-restore  ${imagedir}/buc60591c.brep buc60591c_brep
-catch {exec rm ${imagedir}/buc60591c_brep.igs}
-brepiges buc60591c_brep ${imagedir}/buc60591c_brep.igs
-dall
-
-igesbrep ${imagedir}/buc60591c_brep.igs c_brep_iges *
-tpcompound buc60591c_brep_iges
-puts [checkshape buc60591c_brep_iges]
-
-igesbrep ${imagedir}/buc60591c_iges.igs c_iges *
-tpcompound buc60591c_iges
-puts [checkshape buc60591c_iges]
-
-renamevar  buc60591c_iges result
-
-set 2dviewer 0
-
diff --git a/tests/bugs/iges/bug60591_4 b/tests/bugs/iges/bug60591_4
deleted file mode 100755 (executable)
index c9f0af8..0000000
+++ /dev/null
@@ -1,48 +0,0 @@
-set os $env(os_type)
-if { [string compare $os "windows"] == 0 } {
-#     puts "TODO OCC23561 $os: child process exited abnormally"
-} else {
-    puts "TODO OCC23561 ALL: An exception was caught"
-    puts "TODO OCC23561 ALL: Tcl Exception:"
-    puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
-}
-puts "TODO OCC23561 ALL: TEST INCOMPLETE"
-
-puts "BUC60591"
-puts ""
-puts "=================================="
-puts "It takes visual check for this BUG"
-puts "=================================="
-puts ""
-puts "consideration of \"buc60591d\" model"
-
-igesbrep [locate_data_file buc60591d.igs] a *
-
-tpcompound buc60591d
-puts [checkshape buc60591d r]
-
-######################################################################
-
-catch {exec rm ${imagedir}/buc60591d.brep}
-save buc60591d ${imagedir}/buc60591d.brep
-catch {exec rm ${imagedir}/buc60591d_iges.igs}
-brepiges buc60591d ${imagedir}/buc60591d_iges.igs
-dall
-
-restore ${imagedir}/buc60591d.brep buc60591d_brep
-catch {exec rm ${imagedir}/buc60591d_brep.igs}
-brepiges buc60591d_brep ${imagedir}/buc60591d_brep.igs
-dall
-
-igesbrep ${imagedir}/buc60591d_brep.igs d_brep_iges *
-tpcompound buc60591d_brep_iges
-puts [checkshape buc60591d_brep_iges]
-
-igesbrep ${imagedir}/buc60591d_iges.igs d_iges *
-tpcompound buc60591d_iges
-puts [checkshape buc60591d_iges]
-
-renamevar  buc60591d_iges result
-
-set 2dviewer 0
-
diff --git a/tests/bugs/iges/bug60594 b/tests/bugs/iges/bug60594
deleted file mode 100755 (executable)
index 54e7f12..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-puts "=================================="
-puts "BUC60594"
-puts "=================================="
-puts ""
-puts "It takes visual check for this BUG"
-puts "=================================="
-puts ""
-
-igesbrep [locate_data_file buc60594a.igs] a *
-
-tpcompound result
-puts [checkshape result]
-puts [checkshape result r]
-
-set 2dviewer 0
diff --git a/tests/bugs/iges/bug60595_1 b/tests/bugs/iges/bug60595_1
deleted file mode 100755 (executable)
index 9f543df..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-puts "=================="
-puts "BUC60595"
-puts "=================="
-puts ""
-###################################################################
-## This one relates to the generation of floating point exceptions during the IGE to BRep translation.
-## See the notes in fw_fpe.READ. 
-###################################################################
-
-set bug_var [ igesbrep [locate_data_file buc60595a.igs] a * ] 
-
-tpcompound result
-
-if { [ string match "*Uninspired signal*" $bug_var ] == 1 } {
-    puts "Error : TEST FAILED"
-}
-
-isos 0
-isos result 15
-
-puts "Previously here was message:  Uninspired signal 8"
-
-set 2dviewer 0
-
diff --git a/tests/bugs/iges/bug60595_2 b/tests/bugs/iges/bug60595_2
deleted file mode 100755 (executable)
index ebc4fbe..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-puts "=================="
-puts "BUC60595"
-puts "=================="
-
-set bug_var [ igesbrep [locate_data_file buc60595b.igs] a * ] 
-
-tpcompound result
-
-if { [ string match "*Uninspired signal*" $bug_var ] == 1 } {
-    puts "Error : TEST FAILED"
-}
-
-isos 0
-isos result 15
-
-puts "Previously here was message:  Uninspired signal 8"
-
-set 2dviewer 0
diff --git a/tests/bugs/iges/bug60595_3 b/tests/bugs/iges/bug60595_3
deleted file mode 100755 (executable)
index 349e1c6..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-puts "================"
-puts "BUC60595"
-puts "================"
-
-set bug_var [ igesbrep [locate_data_file buc60595c.igs] c * ] 
-if { [ string match "*Uninspired signal*" $bug_var ] == 1 } {
-    puts "Error : TEST FAILED"
-}
-
-tpcompound result
-
-isos result 0
-isos result 15
-
-set 2dviewer 0
-
-
diff --git a/tests/bugs/iges/bug60610 b/tests/bugs/iges/bug60610
deleted file mode 100755 (executable)
index 8a25734..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "========================"
-puts "BUC60610"
-puts "========================"
-
-igesbrep [locate_data_file buc60610a.igs] a *
-
-tpcompound result
-puts [checkshape result]
-puts [checkshape result r]
-
-set 2dviewer 0
-
diff --git a/tests/bugs/iges/bug60625 b/tests/bugs/iges/bug60625
deleted file mode 100755 (executable)
index 37e49d3..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-puts "===================="
-puts "BUC60625"
-puts "===================="
-puts "=================================="
-puts "It takes visual check for this BUG"
-puts "=================================="
-
-cpulimit 1500
-
-set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] 
-
-tpcompound result
-puts [checkshape result r]
-
-set start [lindex $l 60]
-set bug_list_numb [ llength $l ]
-set bug_list_elem 0
-
-# Search word sequence:        Nb entities selected : XXXX
-while { $bug_list_elem < $bug_list_numb } {
-    if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } {
-       set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
-       set bug_list_elem [ expr { $bug_list_numb - 1 } ]
-    }
-    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
-}
-
-# Search word sequence:        Nb Shapes successfully produced : XXXX
-set end [lindex $l 0]
-set bug_list_elem 0
-while { $bug_list_elem < $bug_list_numb } {
-    set word_0 [ lindex $l [ expr { $bug_list_elem + 0 } ] ]
-    set word_1 [ lindex $l [ expr { $bug_list_elem + 1 } ] ]
-    set word_2 [ lindex $l [ expr { $bug_list_elem + 2 } ] ]
-    set word_3 [ lindex $l [ expr { $bug_list_elem + 3 } ] ]
-    set word_4 [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
-    if { [ string compare "Nb" ${word_0} ] == 0 &&
-       [ string compare "Shapes" ${word_1} ] == 0 &&
-       [ string compare "successfully" ${word_2} ] == 0 &&
-       [ string compare "produced" ${word_3} ] == 0 &&
-       [ string compare ":" ${word_4} ] == 0 } {
-       set end [ lindex $l [ expr { $bug_list_elem + 5 } ] ]
-       set bug_list_elem [ expr { $bug_list_numb - 1 } ]
-    }
-    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
-}
-
-if { $start != $end } {
-  puts " Error : The number of visible roots ($start) IS NOT EQUAL Nb Shapes successfully produced ($end)"
-} else {
-  puts " The number of visible roots ($start) IS EQUAL Nb Shapes successfully produced ($end)"
-}
-
-set 2dviewer 0
-
diff --git a/tests/bugs/iges/bug60646 b/tests/bugs/iges/bug60646
deleted file mode 100755 (executable)
index f32f8f8..0000000
+++ /dev/null
@@ -1,56 +0,0 @@
-puts "==============="
-puts "BUC60646"
-puts "==============="
-puts "=================================="
-puts "It takes visual check for this BUG"
-puts "=================================="
-
-set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] 
-
-tpcompound res
-puts [checkshape res r]
-
-tcopy res result
-
-set start [lindex $l 60]
-set bug_list_numb [ llength $l ]
-set bug_list_elem 0
-
-# Search word sequence:        Nb entities selected : XXXX
-while { $bug_list_elem < $bug_list_numb } {
-    if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } {
-       set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
-       set bug_list_elem [ expr { $bug_list_numb - 1 } ]
-    }
-    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
-}
-
-# Search word sequence:        Nb Shapes successfully produced : XXXX
-set end [lindex $l 0]
-set bug_list_elem 0
-while { $bug_list_elem < $bug_list_numb } {
-    set word_0 [ lindex $l [ expr { $bug_list_elem + 0 } ] ]
-    set word_1 [ lindex $l [ expr { $bug_list_elem + 1 } ] ]
-    set word_2 [ lindex $l [ expr { $bug_list_elem + 2 } ] ]
-    set word_3 [ lindex $l [ expr { $bug_list_elem + 3 } ] ]
-    set word_4 [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
-    if { [ string compare "Nb" ${word_0} ] == 0 &&
-       [ string compare "Shapes" ${word_1} ] == 0 &&
-       [ string compare "successfully" ${word_2} ] == 0 &&
-       [ string compare "produced" ${word_3} ] == 0 &&
-       [ string compare ":" ${word_4} ] == 0 } {
-       set end [ lindex $l [ expr { $bug_list_elem + 5 } ] ]
-       set bug_list_elem [ expr { $bug_list_numb - 1 } ]
-    }
-    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
-}
-
-if { $start != $end } {
-    puts " Error : The number of visible roots ($start) IS NOT EQUAL Nb Shapes successfully produced ($end)"
-} else {
-    puts " The number of visible roots ($start) IS EQUAL Nb Shapes successfully produced ($end)"
-}
-
-set 2dviewer 0
-
-
diff --git a/tests/bugs/iges/bug60685 b/tests/bugs/iges/bug60685
deleted file mode 100755 (executable)
index 49c415f..0000000
+++ /dev/null
@@ -1,30 +0,0 @@
-puts "============"
-puts "BUC60685"
-puts "============"
-puts ""
-
-cpulimit 1500
-
-set l [igesbrep [locate_data_file buc60685a.igs] a xst-transferrable-roots] 
-
-tpcompound result
-puts [checkshape result r]
-
-set start [lindex $l 60]
-set bug_list_numb [ llength $l ]
-set bug_list_elem 0
-while { $bug_list_elem != $bug_list_numb } {
-    if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } {
-       set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
-       set bug_list_elem [ expr { $bug_list_numb - 1 } ]
-    }
-    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
-}
-
-set n [llength $l]
-set end [lindex $l [expr $n-1]]
-if { $start != $end } {
-    puts "Error : wrong number of translated shapes. It is ${end} instead of ${start}"
-}
-
-set 2dviewer 0
diff --git a/tests/bugs/iges/bug60686 b/tests/bugs/iges/bug60686
deleted file mode 100755 (executable)
index f4c56a9..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-puts "=========="
-puts "BUC60686"
-puts "=========="
-puts ""
-#puts "=================================="
-#puts "It takes visual check for this BUG"
-#puts "=================================="
-
-igesbrep [locate_data_file BUC50029.igs] a xst-transferrable-roots
-
-tpcompound result
-
-set 2dviewer 0
-
-
diff --git a/tests/bugs/iges/bug60687 b/tests/bugs/iges/bug60687
deleted file mode 100755 (executable)
index d6ccd82..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-puts "=========="
-puts "BUC60687"
-puts "=========="
-
-igesbrep [locate_data_file buc40130.igs] a xst-transferrable-roots
-
-tpcompound result
-puts [checkshape result]
-puts [checkshape result r]
-
-set 2dviewer 0
diff --git a/tests/bugs/iges/bug60820_1 b/tests/bugs/iges/bug60820_1
deleted file mode 100755 (executable)
index fa64f37..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-puts "========================"
-puts "BUC60820"
-puts "========================"
-
-igesbrep [locate_data_file buc60820.igs] a *
-
-tpcompound result
-
-puts [checkshape result r]
-
-tclean result
-incmesh result 0.1
-triangles result
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri <= 0 || $nod <= 0 } {
-    puts "Error : Problems with shading"
-}
-
-set 2dviewer 0
diff --git a/tests/bugs/iges/bug60820_2 b/tests/bugs/iges/bug60820_2
deleted file mode 100755 (executable)
index cb644f3..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-puts "========================"
-puts "BUC60820"
-puts "========================"
-
-igesbrep [locate_data_file buc60820.igs] a *
-
-tpcompound result
-puts [checkshape result r]
-
-tclean result
-vinit
-vdisplay result
-vsetdispmode result 1
-vfit
-
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nod} $info full nod
-
-
-if { $tri != 1655 || $nod != 1143 } {
-    puts "Shading problem may be, nb tri & nod were changed"
-}
-
-set 2dviewer 0
-
diff --git a/tests/bugs/iges/bug60823 b/tests/bugs/iges/bug60823
deleted file mode 100755 (executable)
index 039531d..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-if { [array get env os_type] != "" } {
-    set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
-    puts "TODO OCC12345 ALL: An exception was caught"
-    puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
-    puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-}
-puts "========================"                                               
-puts "BUC60823"
-puts "========================"                                                
-
-igesbrep [locate_data_file buc60823.igs] a *
-
-tpcompound result
-puts [checkshape result]
-puts [checkshape result r]
-
-tclean result
-vinit
-vdisplay result
-vsetdispmode result 1
-vfit
-
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri != 17618 || $nod != 11153 } {
-    puts "Shading problem may be, nb tri & nod are changed"
-}
-
-set 2dviewer 0
-
diff --git a/tests/bugs/iges/bug60850 b/tests/bugs/iges/bug60850
deleted file mode 100755 (executable)
index d491268..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-puts "==========="
-puts "  BUC60850"
-puts "==========="
-
-igesbrep [locate_data_file BUC60850.igs] a *
-
-tpcompound result
-puts [checkshape result]
-puts [checkshape result r]
-
-set 2dviewer 0
diff --git a/tests/bugs/iges/bug60894 b/tests/bugs/iges/bug60894
deleted file mode 100755 (executable)
index 48ccf56..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-puts "==========="
-puts "  BUC60894"
-puts "==========="
-
-cpulimit 3000
-
-igesbrep [locate_data_file buc60894.igs] a xst-transferrable-roots
-
-tpcompound result
-
-set 2dviewer 0
diff --git a/tests/bugs/iges/bug60949 b/tests/bugs/iges/bug60949
deleted file mode 100755 (executable)
index 788453a..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-puts "==========="
-puts "  BUC60949"
-puts "==========="
-
-######################################################
-## Can not read iges file in XCAFEXE neither by command ReadIges no igesbrep. 
-######################################################
-
-igesbrep [locate_data_file buc60949.igs] a *
-
-tpcompound result
-puts [checkshape result]
-puts [checkshape result r]
-
-set 2dviewer 0
-
-
diff --git a/tests/bugs/iges/bug61337 b/tests/bugs/iges/bug61337
deleted file mode 100755 (executable)
index 584022a..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-puts "==========="
-puts "GER61337"
-puts "=================================="
-
-cpulimit 3000
-
-igesbrep [locate_data_file ger61337a.igs] a *
-
-tpcompound result
-puts [checkshape result]
-puts [checkshape result r]
-
-set 2dviewer 0
-
diff --git a/tests/bugs/iges/bug62523 b/tests/bugs/iges/bug62523
deleted file mode 100755 (executable)
index 9354754..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-puts "============="
-puts "FRA62523"
-puts "============="
-
-igesbrep [locate_data_file fra62523a.igs] a *
-
-# tpcompound b
-# checkshape a_1
-
-vinit
-tclean a_1
-vdisplay a_1
-vsetdispmode a_1 1
-
-defle a_1 .005
-defle a_1 .001
-
-set 3dviewer 1
-
index bb2d1aa..3f092b0 100755 (executable)
@@ -1,5 +1,6 @@
 puts "========================"
-puts "BUC60800 OCC89"
+puts "BUC60800"
+puts "OCC89"
 puts "========================"
 
 #######################################################
diff --git a/tests/bugs/iges/fra62523 b/tests/bugs/iges/fra62523
new file mode 100644 (file)
index 0000000..9354754
--- /dev/null
@@ -0,0 +1,19 @@
+puts "============="
+puts "FRA62523"
+puts "============="
+
+igesbrep [locate_data_file fra62523a.igs] a *
+
+# tpcompound b
+# checkshape a_1
+
+vinit
+tclean a_1
+vdisplay a_1
+vsetdispmode a_1 1
+
+defle a_1 .005
+defle a_1 .001
+
+set 3dviewer 1
+
diff --git a/tests/bugs/iges/ger61337 b/tests/bugs/iges/ger61337
new file mode 100644 (file)
index 0000000..584022a
--- /dev/null
@@ -0,0 +1,14 @@
+puts "==========="
+puts "GER61337"
+puts "=================================="
+
+cpulimit 3000
+
+igesbrep [locate_data_file ger61337a.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/CR23137_1 b/tests/bugs/modalg/CR23137_1
deleted file mode 100755 (executable)
index cd7ab82..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-puts "============"
-puts "CR23137"
-puts "============"
-puts ""
-##########################################################################################################
-# Class BRepAlgoAPI_Cut does not made correct result on attached shapes.
-##########################################################################################################
-
-restore [locate_data_file bug23137_bspl_cut.brep] b
-explode b
-copy b_1 b1
-copy b_2 b2
-#to provide positive volume of b2
-invert b2
-
-bop b1 b2
-bopcut result
-
-set square 44460.7
-
-set 3dviewer 1
diff --git a/tests/bugs/modalg/CR23137_2 b/tests/bugs/modalg/CR23137_2
deleted file mode 100755 (executable)
index 92a35b1..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-puts "============"
-puts "CR23137"
-puts "============"
-puts ""
-##########################################################################################################
-# Class BRepAlgoAPI_Cut does not made correct result on attached shapes.
-##########################################################################################################
-
-restore [locate_data_file bug23137_rev_cut.brep] b
-explode b
-copy b_1 b1
-copy b_2 b2
-#to provide positive volume of b1
-invert b1
-
-bop b1 b2
-bopcut result
-
-set square 3452.78
-
-set 3dviewer 1
diff --git a/tests/bugs/modalg/CR23394 b/tests/bugs/modalg/CR23394
deleted file mode 100755 (executable)
index d099a3d..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-puts "============"
-puts "CR23394"
-puts "============"
-puts ""
-##########################################################################################################
-# Problem with BRepOffset_MakeOffset on a cylindrical face
-##########################################################################################################
-
-restore [locate_data_file bug23394_Circular_tube.brep] sh1
-
-thickshell result sh1 5
-
-set square 128648
-
-set 3dviewer 1
diff --git a/tests/bugs/modalg/CR23429 b/tests/bugs/modalg/CR23429
deleted file mode 100755 (executable)
index aa7428c..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-puts "============"
-puts "CR23429"
-puts "============"
-puts ""
-##########################################################################################################
-# BRepFeat_SplitShape algorithm misses some section edges while building result from customer's shape
-##########################################################################################################
-pload QAcommands
-
-restore [locate_data_file OCC23388-Shape1.brep] a
-restore [locate_data_file CR23429-Shape3.brep] b
-
-OCC23429 result a b
-
-set square 1120.52
-
-set 2dviewer 1
-
-
-
-
-
-
-
diff --git a/tests/bugs/modalg/buc60409_1 b/tests/bugs/modalg/buc60409_1
new file mode 100644 (file)
index 0000000..1aceec9
--- /dev/null
@@ -0,0 +1,28 @@
+
+puts "=============="
+puts "   BUC60409   "
+puts "     FUSE     "
+puts "=============="
+
+restore [locate_data_file buc60409a.brep] c 
+restore [locate_data_file buc60409b.brep] s
+
+set che [checkshape c]
+if { [regexp {Faulty} $che ] == 1 } {
+    puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
+    puts "Body of the script was NOT executed"
+    renamevar c result
+} else {
+    puts "BUC60409 OK (shape 1): Source shape is valid"
+    set che [checkshape s]
+    if { [regexp {Faulty} $che ] == 1 } {
+        puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
+       puts "Body of the script was NOT executed"
+       renamevar s result
+    } else {
+       puts "BUC60409 OK (shape 2): Source shape is valid"
+       bfuse result c s
+    }
+}
+set square 39.0894
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60409_2 b/tests/bugs/modalg/buc60409_2
new file mode 100644 (file)
index 0000000..3ebd2a1
--- /dev/null
@@ -0,0 +1,28 @@
+
+puts "============="
+puts "   BUC60409  "
+puts "     CUT     "
+puts "============="
+
+restore [locate_data_file buc60409a.brep] c 
+restore [locate_data_file buc60409b.brep] s
+
+set che [checkshape c]
+if { [regexp {Faulty} $che ] == 1 } {
+    puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
+    puts "Body of the script was NOT executed"
+    renamevar c result
+} else {
+    puts "BUC60409 OK (shape 1): Source shape is valid"
+    set che [checkshape s]
+    if { [regexp {Faulty} $che ] == 1 } {
+        puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
+        puts "Body of the script was NOT executed"
+       renamevar s result
+    } else {
+       puts "BUC60409 OK (shape 2): Source shape is valid"
+       bcut result c s
+    }
+}
+set square 31.8476
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60409_3 b/tests/bugs/modalg/buc60409_3
new file mode 100644 (file)
index 0000000..824156f
--- /dev/null
@@ -0,0 +1,29 @@
+
+puts "================="
+puts "     BUC60409    "
+puts "      COMMON     "
+puts "================="
+
+restore [locate_data_file buc60409a.brep] c 
+restore [locate_data_file buc60409b.brep] s
+
+set che [checkshape c]
+if { [regexp {Faulty} $che ] == 1 } {
+    puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
+    puts "Body of the script was NOT executed"
+    renamevar c result
+} else {
+    puts "BUC60409 OK (shape 1): Source shape is valid"
+
+    set che [checkshape s]
+    if { [regexp {Faulty} $che ] == 1 } {
+        puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
+       puts "Body of the script was NOT executed"
+       renamevar s result
+    } else {
+       puts "BUC60409 OK (shape 2): Source shape is valid"
+       bcommon result c s
+    }
+}
+set square 4.89279
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60523 b/tests/bugs/modalg/buc60523
new file mode 100644 (file)
index 0000000..9a24899
--- /dev/null
@@ -0,0 +1,12 @@
+
+puts "========================"
+puts "BUC60523"
+puts "========================"
+
+restore [locate_data_file buc60523a.brep] a
+puts [checkshape a]
+sewing result 1.e-7 a
+set square 156.919
+set 2dviewer 0
+
+
diff --git a/tests/bugs/modalg/buc60531_1 b/tests/bugs/modalg/buc60531_1
new file mode 100644 (file)
index 0000000..4a8870f
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "========================"
+puts "BUC60531"
+puts "========================"
+
+restore [locate_data_file buc60531a.brep] r1
+puts [checkshape r1]
+restore [locate_data_file buc60531b.brep] pl1
+puts [checkshape pl1]
+
+bcut result r1 pl1
+
+set square 115935
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60531_2 b/tests/bugs/modalg/buc60531_2
new file mode 100644 (file)
index 0000000..ac3d913
--- /dev/null
@@ -0,0 +1,21 @@
+
+puts "========================"
+puts "BUC60531"
+puts "========================"
+
+restore [locate_data_file buc60531a.brep] r1
+puts [checkshape r1]
+
+restore [locate_data_file buc60531b.brep] pl1
+puts [checkshape pl1]
+
+bcut r2 r1 pl1
+puts [checkshape r2]
+
+restore [locate_data_file buc60531c.brep] pl2
+puts [checkshape pl2]
+
+bcut result r2 pl2
+
+set square 115935
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60532 b/tests/bugs/modalg/buc60532
new file mode 100644 (file)
index 0000000..b1f28cd
--- /dev/null
@@ -0,0 +1,22 @@
+puts "==========="
+puts "BUC60532"
+puts "==========="
+
+restore [locate_data_file buc60532a.brep] p 
+puts [checkshape p]
+
+restore [locate_data_file buc60532b.brep] t1
+puts [checkshape t1]
+
+restore [locate_data_file buc60532c.brep] t2
+puts [checkshape t2]
+
+# create halfspace
+halfspace h1 t1 20 20 0
+halfspace h2 t2 20 20 0
+
+# first cut
+bcut result p h1
+
+set square 81.8172
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60532_1 b/tests/bugs/modalg/buc60532_1
new file mode 100644 (file)
index 0000000..0ba7b8e
--- /dev/null
@@ -0,0 +1,23 @@
+puts "==========="
+puts "BUC60532"
+puts "==========="
+
+restore [locate_data_file buc60532a.brep] p 
+puts [checkshape p]
+
+restore [locate_data_file buc60532b.brep] t1
+puts [checkshape t1]
+
+restore [locate_data_file buc60532c.brep] t2
+puts [checkshape t2]
+
+# create halfspace
+halfspace h1 t1 20 20 0
+halfspace h2 t2 20 20 0
+
+# first cut
+bcut result p h1
+
+set square 81.8172
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60532_2 b/tests/bugs/modalg/buc60532_2
new file mode 100644 (file)
index 0000000..1e288a3
--- /dev/null
@@ -0,0 +1,52 @@
+puts "=========="
+puts "BUC60532"
+puts "=========="
+
+restore [locate_data_file buc60532a.brep] p 
+puts [checkshape p]
+
+restore [locate_data_file buc60532b.brep] t1
+puts [checkshape t1]
+
+restore [locate_data_file buc60532c.brep] t2
+puts [checkshape t2]
+
+# create halfspace
+#vertex v 20 20 0
+halfspace h1 t1 20 20 0
+halfspace h2 t2 20 20 0
+
+# first cut
+bcut res1 p h1
+
+explode res1 e
+mkcurve cu11 res1_1
+mkcurve cu12 res1_2
+mkcurve cu13 res1_3
+mkcurve cu14 res1_4
+mkcurve cu15 res1_5
+
+puts [checkshape res1]
+puts [computetolerance res1]
+
+# second cut
+bcut res2 res1 h2
+tcopy res2 res
+puts [checkshape res2]
+
+explode res2 e
+mkcurve cu21 res2_1
+mkcurve cu22 res2_2
+mkcurve cu23 res2_3
+mkcurve cu24 res2_4
+mkcurve cu25 res2_5
+
+explode res2 face
+
+puts [computetolerance res2]
+
+renamevar res2 result
+
+set square 78.8705
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60533 b/tests/bugs/modalg/buc60533
new file mode 100644 (file)
index 0000000..df2d543
--- /dev/null
@@ -0,0 +1,69 @@
+puts "=========="
+puts "BUC60533"
+puts "=========="
+
+restore [locate_data_file buc60533a.brep] part 
+puts [checkshape part]
+#puts "Tolerance part"
+#computetolerance part
+
+restore [locate_data_file buc60533b.brep] trTool
+puts [checkshape trTool]
+#puts "Tolerance trTool"
+#computetolerance trTool
+
+# create halfspace
+vertex v  10000 15000 -15000
+halfspace hs trTool 10000 15000 -15000
+#puts "Tolerance hs"
+#computetolerance hs
+
+#*************************************************
+if [catch {bcut result part hs} catch_result] {
+    puts "Faulty BUC60533: function CUT works wrongly"
+} else {
+    puts " BUC60533 OK: function CUT works properly"
+}
+#*************************************************
+
+#set che [checkshape res r]
+#set err [lindex $che [expr [llength $che] - 1]]
+#if { $err != "OK"} {
+#  puts "Faulty : mistakes are found in checked shape by checkshape command"
+#} else {
+#  puts "Checking by checkshape - OK"
+
+#explode res e
+#mkcurve cu1 res_1
+#mkcurve cu2 res_2
+#mkcurve cu3 res_3
+#mkcurve cu4 res_4
+#mkcurve cu5 res_5
+
+#checkshape res
+
+#set tolerance [ maxtolerance res ]
+#set MaxFaceTolerance [ lindex $tolerance 14 ]
+#set MaxEdgeTolerance [ lindex $tolerance 20 ]
+#set MaxVertexTolerance [ lindex $tolerance 26 ]
+#if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
+#puts "Faulty :Tolerance of shape is more then 1.0"
+#} else {
+#puts "Tolerance of shape is less then 1.0"
+#}
+#}
+
+# Objectif : Couper part par trTool
+#
+# part est construite a partir d'un semi de point et de telle facon que u=x et v=y.
+# On obtient une Geom_BSplineSurface. On cree alors la topologie a partir de cette
+# surface via BRepAPI::MakeFace(surface)
+# Dans notre code, a aucun moment, nous
+# n'initialisons la tolerance.
+#
+# Le cut n'est pas effectue car une exception est levee :
+#  An exception was caught Standard_ConstructionError: 
+#  ** Exception ** Standard_ConstructionError: 
+set square 1.63191e+07
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60555_1 b/tests/bugs/modalg/buc60555_1
new file mode 100644 (file)
index 0000000..9fb6561
--- /dev/null
@@ -0,0 +1,37 @@
+puts "==========="
+puts "BUC60555"
+puts "CUT Case 1"
+puts "==========="
+#cpulim add aki 070704
+cpulimit 1600
+restore [locate_data_file buc60555a.brep] part 
+puts [checkshape part]
+restore [locate_data_file buc60555b.brep] trTool1
+puts [checkshape trTool1]
+halfspace hs1 trTool1 20000 10000 0
+bcut cut1 part hs1
+
+puts [checkshape cut1]
+
+tcopy cut1 result
+
+explode cut1 e
+mkcurve cu1 cut1_1
+mkcurve cu2 cut1_2
+mkcurve cu3 cut1_3
+mkcurve cu4 cut1_4
+
+set tolerance [ maxtolerance cut1 ]
+
+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 > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
+    puts "Faulty :Tolerance of shape is more then 1.0"
+} else {
+    puts "Tolerance of shape is less then 1.0"
+}
+
+set square 4.60842e+07
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60585_2 b/tests/bugs/modalg/buc60585_2
new file mode 100644 (file)
index 0000000..2647039
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "========================"
+puts "BUC60585"
+puts "========================"
+
+restore [locate_data_file buc60585b.brep] t
+puts [checkshape t]
+plane pt 2036.25  -97.5  -1460.499755859375  0.0  -1.0  0.0 1.0 0.0 0.0
+
+psection result t pt
+
+set length 22.0446
+set 2dviewer 0
+
+# checksection res
diff --git a/tests/bugs/modalg/buc60623_1 b/tests/bugs/modalg/buc60623_1
new file mode 100644 (file)
index 0000000..be68670
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "========================"
+puts "BUC60623"
+puts "========================"
+
+restore [locate_data_file buc60623a.brep] a 
+puts [checkshape a]
+restore [locate_data_file buc60623b.brep] b
+puts [checkshape b]
+
+bsection result a b
+
+set length 1475.98
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60623_2 b/tests/bugs/modalg/buc60623_2
new file mode 100644 (file)
index 0000000..501aba6
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "========================"
+puts "BUC60623"
+puts "========================"
+
+restore [locate_data_file buc60623a.brep]  a 
+puts [checkshape a]
+restore [locate_data_file buc60623b.brep] b
+puts [checkshape b]
+
+bsection result b a
+# checksection res
+
+set length 1475.98
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60635 b/tests/bugs/modalg/buc60635
new file mode 100644 (file)
index 0000000..d33331f
--- /dev/null
@@ -0,0 +1,13 @@
+
+puts "============="
+puts "BUC60635"
+puts "============="
+
+restore [locate_data_file buc60635a.brep] a 
+puts [checkshape a]
+
+mkplane result a
+
+set square 2035.58
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60663_1 b/tests/bugs/modalg/buc60663_1
new file mode 100644 (file)
index 0000000..b688dca
--- /dev/null
@@ -0,0 +1,26 @@
+
+puts "====================================="
+puts "BUC60663"
+puts "====================================="
+puts ""
+puts "It takes visual check for this BUG. See V2 point"
+puts "====================================="
+puts ""
+
+restore [locate_data_file buc60663a.brep] a 
+puts [checkshape a]
+restore [locate_data_file buc60663b.brep] b
+puts [checkshape b]
+
+bsection result a b
+
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
+if { $num != 2 } {
+    puts " Faulty : Result shape is INcorrect !!! "
+}
+
+
+#fsameparameter res
+
+set length 26.2001
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60668 b/tests/bugs/modalg/buc60668
new file mode 100644 (file)
index 0000000..0aef85e
--- /dev/null
@@ -0,0 +1,27 @@
+
+puts "===================="
+puts "BUC60668"
+puts "Three boxes must appear on picture"
+puts "===================="
+
+box b 100 0 0 10 10 10
+box b1 10 10 10
+box b2 50 50 50 10 10 10
+box a -10 -10 -10 200 200 200
+
+compound b b1 b2 c 
+
+regexp {Mass +: +([-0-9.+eE]+)} [vprops c] full vcomp
+
+#compound b b1 c
+bcommon result c a
+
+regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full vcomm
+
+if { $vcomp != $vcomm } {
+    puts " Faulty : Common is incorrect"
+} else {
+    puts " BUC60668 OK : Common was made properly"
+}
+set square 1800
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60684 b/tests/bugs/modalg/buc60684
new file mode 100644 (file)
index 0000000..72663b9
--- /dev/null
@@ -0,0 +1,12 @@
+
+puts "============="
+puts "BUC60684"
+puts "============="
+
+restore [locate_data_file buc60684a.brep] w 
+puts [checkshape w]
+
+prism result w 0 0 10
+
+set square 148.875
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60703_2 b/tests/bugs/modalg/buc60703_2
new file mode 100644 (file)
index 0000000..b2976f4
--- /dev/null
@@ -0,0 +1,31 @@
+
+puts "========================"
+puts "BUC60703"
+puts "================================="
+puts "Action with models with CORRECT tolerance" 
+puts "================================="
+puts ""
+############################################
+## Crash during a fuse whilst two plans are tangent. 
+############################################
+
+restore [locate_data_file buc60703c.brep] a 
+puts [checkshape a]
+
+restore [locate_data_file buc60703e.brep] b
+puts [checkshape b]
+
+
+if [catch {bfuse result a b } catch_result] {
+    puts "Faulty  BUC60703: here is problem with FUSE operation"
+} else {
+    puts "OK BUC60703: function FUSE works ok"         
+    if [catch {checkshape result } catch_result] {
+       puts "WARNING BUC60703 : Function checkshape gives bad result"
+       puts " See also OCC438: 919 D3 and D4"
+    } else {
+       puts "BUC60703  OK in checkshape"
+    }  
+}
+set square 236.72
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60703_3 b/tests/bugs/modalg/buc60703_3
new file mode 100644 (file)
index 0000000..1e1578a
--- /dev/null
@@ -0,0 +1,24 @@
+
+puts "========================"
+puts "BUC60703"
+puts "========================"
+
+restore [locate_data_file buc60703e.brep] a 
+#maxtolerance a
+puts [checkshape a]
+restore [locate_data_file buc60703d.brep] b
+#maxtolerance b
+puts [checkshape b]
+
+if [catch {bfuse result a b } catch_result] {
+    puts "Faulty  BUC60703: here is problem with FUSE operation"
+} else {
+    puts "OK OCC348: function FUSE works ok"
+    if [catch {checkshape result} catch_result] {
+       puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4"
+    } else {
+       puts "BUC60703   : here is NOT checking problem"
+    }
+}
+set square 371.259
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60703_4 b/tests/bugs/modalg/buc60703_4
new file mode 100644 (file)
index 0000000..ec7ad8f
--- /dev/null
@@ -0,0 +1,35 @@
+
+puts "========================"
+puts "BUC60703"
+puts "========================"
+puts ""
+####################################
+## Crash during a fuse whilst two plans are tangent. 
+####################################
+
+restore [locate_data_file buc60703d.brep] a 
+#maxtolerance a
+puts [checkshape a]
+restore [locate_data_file buc60703f.brep] b
+#maxtolerance b
+puts [checkshape b]
+
+if [catch {bfuse result a b } catch_result] {
+    puts "Faulty  BUC60703: here is problem with FUSE operation"
+} else {
+    puts "OK OCC348: function FUSE works ok"
+    if [catch {checkshape result} catch_result] {
+       set mistake 1
+    } else {
+       set mistake 0
+    }
+
+    if { $mistake != 0} {
+       puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4"
+    } else {
+       puts "BUC60703   : here is NOT checking problem"
+    }
+}
+set square 505.797
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60704 b/tests/bugs/modalg/buc60704
new file mode 100644 (file)
index 0000000..5757e01
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "========================"
+puts "BUC60704"
+puts "BUC60709"
+puts "========================"
+
+restore [locate_data_file buc60704a.brep] p 
+puts [checkshape p]
+restore [locate_data_file buc60704b.brep] s
+puts [checkshape s]
+
+bfuse result p s
+
+set square 39.0889
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60714 b/tests/bugs/modalg/buc60714
new file mode 100644 (file)
index 0000000..b0d5e44
--- /dev/null
@@ -0,0 +1,23 @@
+
+puts "========================"
+puts "BUC60714"
+puts "========================"
+
+profile f x 30 y 20 x -30
+explode f w 
+vertex v1 0 0 0 
+vertex v2 0 -10 -10
+edge e v1 v2
+
+wire w e
+mksweep f_1
+setsweep -FR
+addsweep w
+
+########
+#does'nt work
+buildsweep result -C -S
+
+set square 1979.9
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60728 b/tests/bugs/modalg/buc60728
new file mode 100644 (file)
index 0000000..b844711
--- /dev/null
@@ -0,0 +1,22 @@
+
+puts "========================"
+puts "BUC60728"
+puts "========================"
+puts ""
+####################################################
+## Infinite loop in section. Section between the two attached faces never finish.
+####################################################
+
+restore [locate_data_file buc60728a.brep] s1 
+restore [locate_data_file buc60728b.brep] s2
+build3d s1
+puts [checkshape s1]
+puts [checkshape s2]
+
+bsection result s1 s2
+
+#checksection res
+#checkshape res
+
+set length 238.032
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60776_1 b/tests/bugs/modalg/buc60776_1
new file mode 100644 (file)
index 0000000..275a0c7
--- /dev/null
@@ -0,0 +1,16 @@
+
+puts "========================"
+puts "BUC60776"
+puts "========================"
+
+restore [locate_data_file buc60776a.brep] a
+puts [checkshape a]
+restore [locate_data_file buc60776b.brep] b
+puts [checkshape b]
+bfuse result a b
+
+set square 60771.3
+
+set 2dviewer 1
+
+
diff --git a/tests/bugs/modalg/buc60776_2 b/tests/bugs/modalg/buc60776_2
new file mode 100644 (file)
index 0000000..ba3caef
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "========================"
+puts "BUC60776"
+puts "========================"
+
+restore [locate_data_file buc60776c.brep] a
+puts [checkshape a]
+restore [locate_data_file buc60776d.brep] b
+puts [checkshape b]
+bsection result a b
+
+set length 111.405
+
+set 2dviewer 1
+
diff --git a/tests/bugs/modalg/buc60782_1 b/tests/bugs/modalg/buc60782_1
new file mode 100644 (file)
index 0000000..c937fde
--- /dev/null
@@ -0,0 +1,38 @@
+puts "TODO OCC12345 ALL: An exception was caught"
+puts "TODO OCC12345 ALL: Exception"
+puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========================"
+puts "BUC60782"
+puts "CASE 1"
+puts "========================"
+puts ""
+puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
+puts ""
+
+restore [locate_data_file buc60782a.brep] a 
+set che [checkshape a]
+if { [regexp {Faulty} $che ] == 1 } {
+    puts "Faulty BUC60782 (case 1): Source shape is invalid"
+} else {
+    puts "BUC60782 OK (case 1): Sourse shape is correct"
+}
+
+set che [checkshape a rr]
+if { [regexp {OK} $che ] != 1} {
+    puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
+    puts "Body of the script was not executed"
+} else {
+    puts "Checking of SOURCE shape by checkshape - OK"
+    if [catch { mkoffset result a 1 10 } catch_result] {
+       puts "Faulty BUC60782: mkoffset works wrongly"
+       renamevar a result
+    } else {
+       puts "OK BUC60782: offset is created"
+       tpcompound result
+    }
+}
+
+set square 0
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60782_3 b/tests/bugs/modalg/buc60782_3
new file mode 100644 (file)
index 0000000..e1eb11f
--- /dev/null
@@ -0,0 +1,39 @@
+puts "TODO OCC12345 ALL: An exception was caught"
+puts "TODO OCC12345 ALL: Exception"
+puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+
+puts "========================"
+puts "BUC60782"
+puts "CASE 3"
+puts "========================"
+puts ""
+puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
+puts ""
+
+restore [locate_data_file buc60782c.brep] a 
+
+set che [checkshape a]
+if { [regexp {Faulty} $che ] == 1 } {
+    puts "Faulty BUC60782 (case 3): Source shape is invalid"
+} else {
+    puts "BUC60782 OK (case 3): Sourse shape is correct"
+}
+
+set che [checkshape a rr]
+if { [regexp {OK} $che ] != 1 } {
+    puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
+    puts "Body of the script was not executed"
+} else {
+    puts "Checking of SOURCE shape by checkshape - OK"
+    if [catch { mkoffset result a 1 10 } catch_result] {
+       puts "Faulty BUC60782: mkoffset works wrongly"
+       renamevar a result
+    } else {
+       puts "OK BUC60782: offset is created"
+       tpcompound result
+    }
+}
+set square 0
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60788_1 b/tests/bugs/modalg/buc60788_1
new file mode 100644 (file)
index 0000000..51f088d
--- /dev/null
@@ -0,0 +1,28 @@
+
+puts "============"
+puts "BUC60788"
+puts "case 1"
+puts "============"
+
+#restore Intersection_Shell1_Case1.brep S1
+#restore Intersection_Shell2_Case1.brep S2
+
+restore [locate_data_file buc60788a.brep] S1 
+puts [checkshape S1]
+restore [locate_data_file buc60788b.brep] S2
+puts [checkshape S2]
+
+bsection result S1 S2
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full err
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
+
+if { $err != 4 && $err1 != 3} {
+    puts "Faulty :  result (res) is incorrect"
+} else {
+    puts "BUC60788 - OK"
+}
+
+set length 750
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60801 b/tests/bugs/modalg/buc60801
new file mode 100644 (file)
index 0000000..2adb282
--- /dev/null
@@ -0,0 +1,19 @@
+
+puts "========================"
+puts "BUC60801"
+puts "========================"
+
+box b -10 -10 -10 30 40 40 
+box a1 -20 0 -20 20 20 100
+box a2 0 20 -20 50 20 100
+box c -20 -20 20 100 100 100
+bcut r1 b a1
+bcut r2 r1 a2
+bcut r3 r2 c
+checkshape r3
+
+renamevar r3 result
+
+set square 6400
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60803 b/tests/bugs/modalg/buc60803
new file mode 100644 (file)
index 0000000..d97749a
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "========================"
+puts "BUC60803"
+puts "========================"
+
+restore [locate_data_file buc60803a.brep] a 
+puts [checkshape a]
+restore [locate_data_file buc60803b.brep] b
+puts [checkshape b]
+
+bfuse result a b
+
+set square 1.86064e+07
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60839 b/tests/bugs/modalg/buc60839
new file mode 100644 (file)
index 0000000..a76ba5b
--- /dev/null
@@ -0,0 +1,17 @@
+
+puts "============"
+puts "BUC60839"
+puts "============"
+puts ""                                                                                                                                                                        
+
+restore [locate_data_file BUC60839-1.brep] a 
+puts [checkshape a]
+restore [locate_data_file BUC60839-2.brep] b
+puts [checkshape b]
+
+puts "Starting fuse operation"
+
+bfuse result a b
+
+set square 27341.6
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60841 b/tests/bugs/modalg/buc60841
new file mode 100644 (file)
index 0000000..a619046
--- /dev/null
@@ -0,0 +1,14 @@
+
+puts "========"
+puts "BUC60841"
+puts "========"
+
+restore [locate_data_file buc60841a.brep] sh1
+puts [checkshape sh1]
+restore [locate_data_file buc60841b.brep] sh2
+puts [checkshape sh2]
+
+bfuse result sh1 sh2
+
+set square 890971
+set 2dviewer 1
diff --git a/tests/bugs/modalg/buc60849 b/tests/bugs/modalg/buc60849
new file mode 100644 (file)
index 0000000..2cdd50d
--- /dev/null
@@ -0,0 +1,19 @@
+
+puts "============"
+puts "BUC60849"
+puts "============"
+puts ""
+
+restore [locate_data_file BUC60849.brep] result
+puts [checkshape result]
+
+set bndb [ lindex [bounding result] 3 ]
+
+if { $bndb  > 100.000001 } {
+    puts "Faulty BUC60849 : Bounding box of spherical surface is created wroughly."
+} else {
+    puts "BUC60849 OK :Bounding box of spherical surface is created properly."
+}
+set square 125663
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60865 b/tests/bugs/modalg/buc60865
new file mode 100644 (file)
index 0000000..00cb07d
--- /dev/null
@@ -0,0 +1,29 @@
+
+puts "============"
+puts "BUC60865"
+puts "BUC60864"
+puts "============"
+puts ""
+##########################
+## Section gives duplicate edges. 
+##########################
+
+restore [locate_data_file BUC60865_sh6.brep] sh 
+puts [checkshape sh]
+
+plane pl 1.1 0.99999 1 0 1 0
+mkface f pl
+bsection result sh f
+
+
+set nb_info [nbshapes result]
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+
+if {  $ed == 5 } {
+    puts  " BUC60865 : SECTION operation was made properly"
+} else {
+    puts "Faulty BUC60865: SECTION operation was made wrongly"
+}
+set length 4.5
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60881 b/tests/bugs/modalg/buc60881
new file mode 100644 (file)
index 0000000..3330cf4
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "============"
+puts "BUC60881"
+puts "============"
+puts ""
+
+restore [locate_data_file BUC60881.brep] a 
+explode a
+puts [checkshape a_1]
+puts [checkshape a_1]
+
+bfuse result a_1 a_2
+
+set square 34069
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60899_1 b/tests/bugs/modalg/buc60899_1
new file mode 100644 (file)
index 0000000..115e9c8
--- /dev/null
@@ -0,0 +1,48 @@
+
+puts "============"
+puts "BUC60899"
+puts "============"
+puts ""
+#####################################################
+## Execution of the script prism_sec.tcl gives  exception "NumericError". 
+#####################################################
+
+set n 2
+set dx 4
+set sx 1
+set sz 10
+set xc [dval (2*$dx+2*$sx)*$n/2]
+set zc -30
+set r  [dval $xc*0.9]
+
+set x 0
+set y -50
+set z 0
+set pol "polyline w $x $y $z"
+for {set i 1} {$i <= $n} {incr i} {
+    set x [dval $x+$dx]
+    set pol "$pol $x $y $z"
+    set x [dval $x+$sx]
+    set z [dval $z+$sz]
+    set pol "$pol $x $y $z"
+    set x [dval $x+$dx]
+    set pol "$pol $x $y $z"
+    set x [dval $x+$sx]
+    set z [dval $z-$sz]
+    set pol "$pol $x $y $z"
+}
+
+eval $pol
+circle c $xc 0 $zc $r
+mkedge c c
+
+prism cyl c 0 0 -$zc*2 inf
+prism crg w 0 -$y*2 0 inf
+
+bsection result crg cyl
+
+set length 15.1392
+set 2dviewer 0
+
+# checksection res
+# checkshape res
diff --git a/tests/bugs/modalg/buc60899_2 b/tests/bugs/modalg/buc60899_2
new file mode 100644 (file)
index 0000000..4d79361
--- /dev/null
@@ -0,0 +1,62 @@
+
+puts "============"
+puts "BUC60899"
+puts "============"
+puts ""
+#####################################################
+## Execution of the script prism_sec.tcl gives  exception "NumericError". 
+#####################################################
+
+set n 2
+set dx 4
+set sx 1
+set sz 10
+set xc [dval (2*$dx+2*$sx)*$n/2]
+set zc -30
+set r  [dval $xc*0.9]
+
+set x 0
+set y -50
+set z 0
+set pol "polyline w $x $y $z"
+for {set i 1} {$i <= $n} {incr i} {
+    set x [dval $x+$dx]
+    set pol "$pol $x $y $z"
+    set x [dval $x+$sx]
+    set z [dval $z+$sz]
+    set pol "$pol $x $y $z"
+    set x [dval $x+$dx]
+    set pol "$pol $x $y $z"
+    set x [dval $x+$sx]
+    set z [dval $z-$sz]
+    set pol "$pol $x $y $z"
+}
+
+eval $pol
+polyline c $xc-$r -$r*2 $zc $xc+$r -$r*2 $zc $xc+$r $r*2 $zc $xc-$r $r*2 $zc $xc-$r -$r*2 $zc
+
+prism cyl c 0 0 -$zc*2 inf
+prism crg w 0 -$y*2 0 inf
+bsection result crg cyl
+
+#checksection res
+#checkshape res
+
+set nb_info [nbshapes result]
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full edgeness
+
+
+    #set fullness [ nbshapes res ]
+    #puts "$fullness"
+    #set qq [ lindex $fullness 0 ]
+    #set edgeness [ lindex $fullness 10 ]
+    # puts "$edgeness"
+    
+if { $edgeness == 1  } {                                         
+    puts "Shape is empty, it is Faulty result"                                                                               
+} else {                                                                                                                        
+    puts "Shape is not empty, OK"                                                                                                   
+}
+
+set length 162.299
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60901 b/tests/bugs/modalg/buc60901
new file mode 100644 (file)
index 0000000..7c9395f
--- /dev/null
@@ -0,0 +1,62 @@
+
+puts "============"
+puts "BUC60901"
+puts "============"
+puts ""
+################################################################
+## We should get the edges forming a closed intersection line but we see breaks. 
+################################################################
+
+set n 3
+set dx 1
+set sx 20
+set sz 10
+
+set xc [dval (2*$dx+2*$sx)*$n/2]
+set yc 0
+set zc [dval $sz*10]
+set nxc 0.5
+set nyc -0.3
+set nzc 1
+set r [dval $xc*0.9]
+
+set x 0
+set y [dval -$r*1.2]
+set z 0
+set pol "polyline w $x $y $z"
+for {set i 1} {$i <= $n} {incr i} {
+    set x [dval $x+$dx]
+    set pol "$pol $x $y $z"
+    set x [dval $x+$sx]
+    set z [dval $z+$sz]
+    set pol "$pol $x $y $z"
+    set x [dval $x+$dx]
+    set pol "$pol $x $y $z"
+    set x [dval $x+$sx]
+    set z [dval $z-$sz]
+    set pol "$pol $x $y $z"
+}
+
+eval $pol
+circle c $xc $yc $zc $nxc $nyc $nzc $r
+mkedge c c
+
+set lcyl [dval -$zc*2]
+set lcrg [dval -$y*2]
+
+prism cyl c 0 0 $lcyl
+prism crg w 0 $lcrg 0
+bsection result crg cyl
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
+
+if { $nb_vertices != $nb_edges } {                                         
+    puts "Section is opened: Faulty shape"
+} else {
+    puts "Section is closed: OK"
+}
+
+set length 350.404
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60905 b/tests/bugs/modalg/buc60905
new file mode 100644 (file)
index 0000000..50df637
--- /dev/null
@@ -0,0 +1,22 @@
+
+puts "============"
+puts "BUC60905"
+puts "============"
+puts ""                                                                                                                                                                        
+#########################################################
+## shape contains open shells if sewing would be made with big tolerance invalid shape
+## will be produced, and visualization crashes. 
+#########################################################
+
+restore [locate_data_file BUC60905.brep] a 
+# checkshape a
+
+sewing result 10 a
+
+vinit
+vdisplay result
+
+# checkshape res
+                                                                                                                                                                         
+set square 270868
+set 3dviewer 0
diff --git a/tests/bugs/modalg/buc60909 b/tests/bugs/modalg/buc60909
new file mode 100644 (file)
index 0000000..afbcfe6
--- /dev/null
@@ -0,0 +1,16 @@
+
+puts "============"
+puts "BUC60909"
+puts "============"
+puts ""
+
+box boite 200 200 200 
+nexplode boite F
+profile cont S boite_4 F 0 50 X 50 Y 100 X -50
+featrevol boite cont boite_4 0 0 200 0 -1 0 1 1
+featperform revol result boite_1
+
+set square 265343
+set 2dviewer 0
+
+
diff --git a/tests/bugs/modalg/buc60927 b/tests/bugs/modalg/buc60927
new file mode 100644 (file)
index 0000000..abf92db
--- /dev/null
@@ -0,0 +1,16 @@
+
+puts "============"
+puts "BUC60927"
+puts "============"
+
+restore [locate_data_file BUC60927.brep] a 
+
+explode a
+puts [checkshape a_1]
+puts [checkshape a_2]
+
+bcut result a_2 a_1
+
+set square 94795.3
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60930 b/tests/bugs/modalg/buc60930
new file mode 100644 (file)
index 0000000..b25473f
--- /dev/null
@@ -0,0 +1,21 @@
+
+puts "============"
+puts "BUC60930"
+puts "============"
+puts ""
+######################################
+## Exception ConstructionError in LocOpe_SplitShape. 
+######################################
+
+restore [locate_data_file BUC60930_splitshape.brep] c 
+explode c
+puts [checkshape c_1]
+puts [checkshape c_2]
+
+renamevar c_1 f
+renamevar c_2 e
+
+splitshape result f f e
+
+set square 13.3392
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60934 b/tests/bugs/modalg/buc60934
new file mode 100644 (file)
index 0000000..c0ced12
--- /dev/null
@@ -0,0 +1,13 @@
+
+puts "============"
+puts "BUC60934"
+puts "============"
+
+restore [locate_data_file BUC60934.brep] a 
+puts [checkshape a]
+
+mkplane result a
+
+set square 40303.1
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/buc60942 b/tests/bugs/modalg/buc60942
new file mode 100644 (file)
index 0000000..ad645da
--- /dev/null
@@ -0,0 +1,35 @@
+
+puts "============"
+puts "BUC60942"
+puts "============"
+###############################################################
+## SplitShape algorithm modifies original shape (increases vertex tolerance of a plitting edge). 
+###############################################################
+
+restore [locate_data_file BUC60942_splitshape.brep] c 
+explode c
+puts [checkshape c_1]
+puts [checkshape c_2]
+
+renamevar c_1 f
+renamevar c_2 w
+
+set tol1 [maxtolerance w]
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxEdgeTol1
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxVertexTol1
+
+splitshape result f f w
+
+set tol2 [maxtolerance w]
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxEdgeTol2
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxVertexTol2
+
+
+if { $MaxEdgeTol1 <  $MaxEdgeTol2 || $MaxVertexTol1 < $MaxVertexTol1 } {
+    puts "Faulty BUC60942: max tolerance of the input wire has been increased by about 10 times."
+} else {
+    puts "BUC60942 OK: Tolerance of shape is correct"
+}
+
+set square 37.7032
+set 2dviewer 0
diff --git a/tests/bugs/modalg/buc60971 b/tests/bugs/modalg/buc60971
new file mode 100644 (file)
index 0000000..fc2502f
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "========"                                                                                   
+puts "BUC60971"
+puts "CASE 2"                                                                                   
+puts "========"                                                                                   
+puts ""                                                                                           
+
+restore [locate_data_file buc60971.brep] a 
+explode a
+puts [checkshape a_1]
+puts [checkshape a_2]
+
+bfuse result a_2 a_3
+set square 93698.1
+set 2dviewer 0
index 62a5b67..88342ea 100755 (executable)
@@ -30,4 +30,5 @@ if { $tri != 294 && $nod != 300 }  {
 }
 
 set square 33.8757
-set 3dviewer 2
+set only_screen 1
+
index ae4179d..53eb908 100755 (executable)
@@ -20,4 +20,5 @@ if [catch {chamf result sh sh_6_1 sh_6 A 2 45 sh_6_8 sh_6 A 2 45 } catch_result]
 }
 
 set square 48357.5
-set 3dviewer 2
+set 2dviewer 0
+
index d0abe72..8b08cc8 100755 (executable)
@@ -1,4 +1,3 @@
-
 puts "================"
 puts "OCC122"
 puts "================"
index c911d14..800771d 100755 (executable)
@@ -1,4 +1,3 @@
-
 puts "================"
 puts "OCC122"
 puts "================"
diff --git a/tests/bugs/modalg/bug16983 b/tests/bugs/modalg/bug16983
deleted file mode 100755 (executable)
index 41ca3bf..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-
-puts "============"
-puts "PRO16983"
-puts "============"
-
-restore [locate_data_file pro16983a.brep] B 
-puts [checkshape B]
-plane p 0 0 0 1 0 0
-vertex v1 0 90.16396 252.4591
-vertex v2 0 252.459 -9.835989
-edge e v2 v1
-wire w e
-featlf B w p -5 0 0 5 0 0 1 1
-featperform lf result
-
-set square 796476
-set 2dviewer 0
index a59dd68..c4eda7d 100755 (executable)
@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========"
 puts "OCC174"
 puts "========"
diff --git a/tests/bugs/modalg/bug18892 b/tests/bugs/modalg/bug18892
deleted file mode 100755 (executable)
index 797057c..0000000
+++ /dev/null
@@ -1,36 +0,0 @@
-puts "TODO OCC12345 ALL: Faulty : Result is BAD. Distance is more than MaxTolerance"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-
-puts "=========="
-puts "PRO18892"
-puts "=========="
-# Version de test: K4O, PATCH LEVEL:
-#   GEOMETRY-M4-6A : 3 
-#   GEOMLITE-M4-6A : 1 
-#   TOPOLOGY-M4-6A : 2 
-
-restore [locate_data_file pro18892.rle] a 
-puts [checkshape a]
-
-explode a
-bsection result a_1 a_2 -2d -a
-explode result
-
-mkcurve c result_1
-cvalue c 1 X Y Z 
-vertex v X Y Z
-explode a e
-
-distmini d v a_8
-
-set tol [ maxtolerance a_8 ]
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxVertexTolerance
-regexp {([-0-9.+eE]+)} [dump d_val] full d
-
-if { [expr $d > $MaxEdgeTolerance] || [expr $d > $MaxVertexTolerance] } {
-    puts "Faulty : Result is BAD. Distance is more than MaxTolerance"
-}
-
-set length 0
-set 3dviewer 2
\ No newline at end of file
diff --git a/tests/bugs/modalg/bug19424 b/tests/bugs/modalg/bug19424
deleted file mode 100755 (executable)
index d41052b..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-
-puts "=========="
-puts "PRO19424"
-puts "=========="
-
-restore [locate_data_file pro19424a.brep] b 
-puts [checkshape b]
-restore [locate_data_file pro19424b.brep] p
-puts [checkshape p]
-
-if [catch {evolved result b p o } catch_result] {
-  puts "Faulty PRO19424 : function EVOLVED works wrongly"
-} else {
-  puts "PRO19424 OK: function EVOLVED works properly"
-}
-
-set square 246.506
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug19626 b/tests/bugs/modalg/bug19626
deleted file mode 100755 (executable)
index 3eb098b..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-
-puts "============"
-puts "PRO19626"
-puts "============"
-
-restore [locate_data_file pro19626a.brep] a 
-puts [checkshape a]
-restore [locate_data_file pro19626b.brep] b
-puts [checkshape b]
-
-bsection result a b
-regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num
-if { $num != 2 } {
-    puts " Faulty PRO19626: Result shape is INcorrect !!! "
-} else {
-    puts "PRO19626 OK : Result shape is CORRECT !!! "
-}
-
-set length 174.597
-set 3dviewer 2
-
diff --git a/tests/bugs/modalg/bug19653 b/tests/bugs/modalg/bug19653
deleted file mode 100755 (executable)
index f0329c1..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-puts "TODO OCC12345 ALL: Faulty : TEST FAILED"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-
-puts "============"
-puts "PRO19653"
-puts "BREPALGO_BOOLEANOPERATION does not return result."
-puts "=================================="
-puts "It takes visual check for this BUG"
-puts "=================================="
-
-restore [locate_data_file pro19653a.brep] a 
-puts [checkshape a]
-restore [locate_data_file pro19653b.brep] b
-puts [checkshape b]
-bsection result a b
-
-explode result e
-checkshape result_1
-explode a e
-regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full ll_1
-regexp {Mass +: +([-0-9.+eE]+)} [lprops a_4] full ll_2
-if { $ll_1 != $ll_2 } {
-    puts "Faulty : TEST FAILED"
-} else {
-    puts "PRO19653 OK : BREPALGO_BOOLEANOPERATION returns result"
-}
-
-set length 0
-set 2dviewer 0
index 6db7414..20a44e0 100755 (executable)
@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "================"
 puts "OCC21"
 puts "================"
index 2042b9e..173af51 100755 (executable)
@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========"
 puts "OCC221"
 puts "========"
diff --git a/tests/bugs/modalg/bug23137_1 b/tests/bugs/modalg/bug23137_1
new file mode 100644 (file)
index 0000000..cd7ab82
--- /dev/null
@@ -0,0 +1,21 @@
+puts "============"
+puts "CR23137"
+puts "============"
+puts ""
+##########################################################################################################
+# Class BRepAlgoAPI_Cut does not made correct result on attached shapes.
+##########################################################################################################
+
+restore [locate_data_file bug23137_bspl_cut.brep] b
+explode b
+copy b_1 b1
+copy b_2 b2
+#to provide positive volume of b2
+invert b2
+
+bop b1 b2
+bopcut result
+
+set square 44460.7
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug23137_2 b/tests/bugs/modalg/bug23137_2
new file mode 100644 (file)
index 0000000..92a35b1
--- /dev/null
@@ -0,0 +1,21 @@
+puts "============"
+puts "CR23137"
+puts "============"
+puts ""
+##########################################################################################################
+# Class BRepAlgoAPI_Cut does not made correct result on attached shapes.
+##########################################################################################################
+
+restore [locate_data_file bug23137_rev_cut.brep] b
+explode b
+copy b_1 b1
+copy b_2 b2
+#to provide positive volume of b1
+invert b1
+
+bop b1 b2
+bopcut result
+
+set square 3452.78
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug23394 b/tests/bugs/modalg/bug23394
new file mode 100644 (file)
index 0000000..d099a3d
--- /dev/null
@@ -0,0 +1,15 @@
+puts "============"
+puts "CR23394"
+puts "============"
+puts ""
+##########################################################################################################
+# Problem with BRepOffset_MakeOffset on a cylindrical face
+##########################################################################################################
+
+restore [locate_data_file bug23394_Circular_tube.brep] sh1
+
+thickshell result sh1 5
+
+set square 128648
+
+set 3dviewer 1
index 8aa01c3..8cd171d 100755 (executable)
@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========"
 puts "OCC234"
 puts "========"
diff --git a/tests/bugs/modalg/bug23429 b/tests/bugs/modalg/bug23429
new file mode 100644 (file)
index 0000000..aa7428c
--- /dev/null
@@ -0,0 +1,24 @@
+puts "============"
+puts "CR23429"
+puts "============"
+puts ""
+##########################################################################################################
+# BRepFeat_SplitShape algorithm misses some section edges while building result from customer's shape
+##########################################################################################################
+pload QAcommands
+
+restore [locate_data_file OCC23388-Shape1.brep] a
+restore [locate_data_file CR23429-Shape3.brep] b
+
+OCC23429 result a b
+
+set square 1120.52
+
+set 2dviewer 1
+
+
+
+
+
+
+
index 4b19c83..bf086bb 100755 (executable)
@@ -12,6 +12,7 @@ tclean result
 vinit
 vdisplay result
 vsetdispmode result 1
+vfit
 
 isos result 0
 triangles result
@@ -30,4 +31,5 @@ if { $tri == 382 && $nod == 343 } {
 }
 
 set square 376.873
-set 3dviewer 2
+set only_screen 1
+
index 21a9a53..87a777b 100755 (executable)
@@ -30,6 +30,7 @@ if { $tri ==6 && $nod == 8} {
     puts " OCC292 : Faulty"
 }
 
-set 3dviewer 2
 set square 1.3135
+set 3dviewer 1
+
 
index dc09449..99291bd 100755 (executable)
@@ -66,4 +66,4 @@ vdisplay result
 vfit
 
 set square 9.80214e+06
-set 3dviewer 2
+set only_screen 1
index cc34770..6ebe539 100755 (executable)
@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========================"
 puts " OCC302 "
 puts "(case 1)"
index 8cbb70f..c6af177 100755 (executable)
@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========================"
 puts " OCC302 "
 puts "(case 2)"
index 601bd2b..cc6d332 100755 (executable)
@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========================"
 puts " OCC302 "
 puts "(case 3)"
index 77c1979..d131ca8 100755 (executable)
@@ -27,4 +27,4 @@ QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B
 QAGetPixelColor $x2 $y2 $Yellow_R $Yellow_G $Yellow_B
 
 set square 20000
-set 3dviewer 2
+set only_screen 1
index f684494..6f8b0d5 100755 (executable)
@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========================"
 puts " OCC327 "
 puts " case 1 "
index ab39952..efc3284 100755 (executable)
@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========================"
 puts " OCC327 "
 puts " case 2 "
index 6700981..513c9e6 100755 (executable)
@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========================"
 puts " OCC437 "
 puts "========================"
index 9fb2504..f6fcfd0 100755 (executable)
@@ -18,4 +18,5 @@ if { [regexp {Faulty} $che ] == 1} {
     puts "OCC446 OK (case 2): Source shape is Closed"
 }
 set square 24272.8
-set 3dviewer 2
+set 2dviewer 0
+
index bc8bfdb..cf1efa8 100755 (executable)
@@ -18,5 +18,6 @@ if { [regexp {Faulty} $che ] == 1} {
     puts "OCC446 OK (case 3): Source shape is Closed"
 }
 set square 13694.6
-set 3dviewer 2
+set 2dviewer 0
+
 
index 834f6af..d4f43df 100755 (executable)
@@ -18,4 +18,5 @@ if { [regexp {Faulty} $che ] == 1 } {
     puts "OCC446 OK (case 4): Source shape is Closed"
 }
 set square 629.347
-set 3dviewer 2
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/bug60409_1 b/tests/bugs/modalg/bug60409_1
deleted file mode 100755 (executable)
index 1aceec9..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-
-puts "=============="
-puts "   BUC60409   "
-puts "     FUSE     "
-puts "=============="
-
-restore [locate_data_file buc60409a.brep] c 
-restore [locate_data_file buc60409b.brep] s
-
-set che [checkshape c]
-if { [regexp {Faulty} $che ] == 1 } {
-    puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
-    puts "Body of the script was NOT executed"
-    renamevar c result
-} else {
-    puts "BUC60409 OK (shape 1): Source shape is valid"
-    set che [checkshape s]
-    if { [regexp {Faulty} $che ] == 1 } {
-        puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
-       puts "Body of the script was NOT executed"
-       renamevar s result
-    } else {
-       puts "BUC60409 OK (shape 2): Source shape is valid"
-       bfuse result c s
-    }
-}
-set square 39.0894
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60409_2 b/tests/bugs/modalg/bug60409_2
deleted file mode 100755 (executable)
index 3ebd2a1..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-
-puts "============="
-puts "   BUC60409  "
-puts "     CUT     "
-puts "============="
-
-restore [locate_data_file buc60409a.brep] c 
-restore [locate_data_file buc60409b.brep] s
-
-set che [checkshape c]
-if { [regexp {Faulty} $che ] == 1 } {
-    puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
-    puts "Body of the script was NOT executed"
-    renamevar c result
-} else {
-    puts "BUC60409 OK (shape 1): Source shape is valid"
-    set che [checkshape s]
-    if { [regexp {Faulty} $che ] == 1 } {
-        puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
-        puts "Body of the script was NOT executed"
-       renamevar s result
-    } else {
-       puts "BUC60409 OK (shape 2): Source shape is valid"
-       bcut result c s
-    }
-}
-set square 31.8476
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60409_3 b/tests/bugs/modalg/bug60409_3
deleted file mode 100755 (executable)
index 824156f..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-
-puts "================="
-puts "     BUC60409    "
-puts "      COMMON     "
-puts "================="
-
-restore [locate_data_file buc60409a.brep] c 
-restore [locate_data_file buc60409b.brep] s
-
-set che [checkshape c]
-if { [regexp {Faulty} $che ] == 1 } {
-    puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
-    puts "Body of the script was NOT executed"
-    renamevar c result
-} else {
-    puts "BUC60409 OK (shape 1): Source shape is valid"
-
-    set che [checkshape s]
-    if { [regexp {Faulty} $che ] == 1 } {
-        puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
-       puts "Body of the script was NOT executed"
-       renamevar s result
-    } else {
-       puts "BUC60409 OK (shape 2): Source shape is valid"
-       bcommon result c s
-    }
-}
-set square 4.89279
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60523 b/tests/bugs/modalg/bug60523
deleted file mode 100755 (executable)
index 9a24899..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-
-puts "========================"
-puts "BUC60523"
-puts "========================"
-
-restore [locate_data_file buc60523a.brep] a
-puts [checkshape a]
-sewing result 1.e-7 a
-set square 156.919
-set 2dviewer 0
-
-
diff --git a/tests/bugs/modalg/bug60531_1 b/tests/bugs/modalg/bug60531_1
deleted file mode 100755 (executable)
index 4a8870f..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "========================"
-puts "BUC60531"
-puts "========================"
-
-restore [locate_data_file buc60531a.brep] r1
-puts [checkshape r1]
-restore [locate_data_file buc60531b.brep] pl1
-puts [checkshape pl1]
-
-bcut result r1 pl1
-
-set square 115935
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug60531_2 b/tests/bugs/modalg/bug60531_2
deleted file mode 100755 (executable)
index ac3d913..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-
-puts "========================"
-puts "BUC60531"
-puts "========================"
-
-restore [locate_data_file buc60531a.brep] r1
-puts [checkshape r1]
-
-restore [locate_data_file buc60531b.brep] pl1
-puts [checkshape pl1]
-
-bcut r2 r1 pl1
-puts [checkshape r2]
-
-restore [locate_data_file buc60531c.brep] pl2
-puts [checkshape pl2]
-
-bcut result r2 pl2
-
-set square 115935
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60532 b/tests/bugs/modalg/bug60532
deleted file mode 100755 (executable)
index 1d3de46..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-#INTERFACE IGES
-puts "==========="
-puts "BUC60532"
-puts "==========="
-
-restore [locate_data_file buc60532a.brep] p 
-puts [checkshape p]
-
-restore [locate_data_file buc60532b.brep] t1
-puts [checkshape t1]
-
-restore [locate_data_file buc60532c.brep] t2
-puts [checkshape t2]
-
-# create halfspace
-halfspace h1 t1 20 20 0
-halfspace h2 t2 20 20 0
-
-# first cut
-bcut result p h1
-
-set square 81.8172
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60532_1 b/tests/bugs/modalg/bug60532_1
deleted file mode 100755 (executable)
index 4c72b37..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-#INTERFACE IGES
-puts "==========="
-puts "BUC60532"
-puts "==========="
-
-restore [locate_data_file buc60532a.brep] p 
-puts [checkshape p]
-
-restore [locate_data_file buc60532b.brep] t1
-puts [checkshape t1]
-
-restore [locate_data_file buc60532c.brep] t2
-puts [checkshape t2]
-
-# create halfspace
-halfspace h1 t1 20 20 0
-halfspace h2 t2 20 20 0
-
-# first cut
-bcut result p h1
-
-set square 81.8172
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug60532_2 b/tests/bugs/modalg/bug60532_2
deleted file mode 100755 (executable)
index 66d4897..0000000
+++ /dev/null
@@ -1,53 +0,0 @@
-#INTERFACE IGES
-puts "=========="
-puts "BUC60532"
-puts "=========="
-
-restore [locate_data_file buc60532a.brep] p 
-puts [checkshape p]
-
-restore [locate_data_file buc60532b.brep] t1
-puts [checkshape t1]
-
-restore [locate_data_file buc60532c.brep] t2
-puts [checkshape t2]
-
-# create halfspace
-#vertex v 20 20 0
-halfspace h1 t1 20 20 0
-halfspace h2 t2 20 20 0
-
-# first cut
-bcut res1 p h1
-
-explode res1 e
-mkcurve cu11 res1_1
-mkcurve cu12 res1_2
-mkcurve cu13 res1_3
-mkcurve cu14 res1_4
-mkcurve cu15 res1_5
-
-puts [checkshape res1]
-puts [computetolerance res1]
-
-# second cut
-bcut res2 res1 h2
-tcopy res2 res
-puts [checkshape res2]
-
-explode res2 e
-mkcurve cu21 res2_1
-mkcurve cu22 res2_2
-mkcurve cu23 res2_3
-mkcurve cu24 res2_4
-mkcurve cu25 res2_5
-
-explode res2 face
-
-puts [computetolerance res2]
-
-renamevar res2 result
-
-set square 78.8705
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug60533 b/tests/bugs/modalg/bug60533
deleted file mode 100755 (executable)
index de34d22..0000000
+++ /dev/null
@@ -1,70 +0,0 @@
-#INTERFACE IGES
-puts "=========="
-puts "BUC60533"
-puts "=========="
-
-restore [locate_data_file buc60533a.brep] part 
-puts [checkshape part]
-#puts "Tolerance part"
-#computetolerance part
-
-restore [locate_data_file buc60533b.brep] trTool
-puts [checkshape trTool]
-#puts "Tolerance trTool"
-#computetolerance trTool
-
-# create halfspace
-vertex v  10000 15000 -15000
-halfspace hs trTool 10000 15000 -15000
-#puts "Tolerance hs"
-#computetolerance hs
-
-#*************************************************
-if [catch {bcut result part hs} catch_result] {
-    puts "Faulty BUC60533: function CUT works wrongly"
-} else {
-    puts " BUC60533 OK: function CUT works properly"
-}
-#*************************************************
-
-#set che [checkshape res r]
-#set err [lindex $che [expr [llength $che] - 1]]
-#if { $err != "OK"} {
-#  puts "Faulty : mistakes are found in checked shape by checkshape command"
-#} else {
-#  puts "Checking by checkshape - OK"
-
-#explode res e
-#mkcurve cu1 res_1
-#mkcurve cu2 res_2
-#mkcurve cu3 res_3
-#mkcurve cu4 res_4
-#mkcurve cu5 res_5
-
-#checkshape res
-
-#set tolerance [ maxtolerance res ]
-#set MaxFaceTolerance [ lindex $tolerance 14 ]
-#set MaxEdgeTolerance [ lindex $tolerance 20 ]
-#set MaxVertexTolerance [ lindex $tolerance 26 ]
-#if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
-#puts "Faulty :Tolerance of shape is more then 1.0"
-#} else {
-#puts "Tolerance of shape is less then 1.0"
-#}
-#}
-
-# Objectif : Couper part par trTool
-#
-# part est construite a partir d'un semi de point et de telle facon que u=x et v=y.
-# On obtient une Geom_BSplineSurface. On cree alors la topologie a partir de cette
-# surface via BRepAPI::MakeFace(surface)
-# Dans notre code, a aucun moment, nous
-# n'initialisons la tolerance.
-#
-# Le cut n'est pas effectue car une exception est levee :
-#  An exception was caught Standard_ConstructionError: 
-#  ** Exception ** Standard_ConstructionError: 
-set square 1.63191e+07
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60555_1 b/tests/bugs/modalg/bug60555_1
deleted file mode 100755 (executable)
index 0d17815..0000000
+++ /dev/null
@@ -1,38 +0,0 @@
-#INTERFACE IGES
-puts "==========="
-puts "BUC60555"
-puts "CUT Case 1"
-puts "==========="
-#cpulim add aki 070704
-cpulimit 1600
-restore [locate_data_file buc60555a.brep] part 
-puts [checkshape part]
-restore [locate_data_file buc60555b.brep] trTool1
-puts [checkshape trTool1]
-halfspace hs1 trTool1 20000 10000 0
-bcut cut1 part hs1
-
-puts [checkshape cut1]
-
-tcopy cut1 result
-
-explode cut1 e
-mkcurve cu1 cut1_1
-mkcurve cu2 cut1_2
-mkcurve cu3 cut1_3
-mkcurve cu4 cut1_4
-
-set tolerance [ maxtolerance cut1 ]
-
-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 > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
-    puts "Faulty :Tolerance of shape is more then 1.0"
-} else {
-    puts "Tolerance of shape is less then 1.0"
-}
-
-set square 4.60842e+07
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60585_2 b/tests/bugs/modalg/bug60585_2
deleted file mode 100755 (executable)
index 2647039..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "========================"
-puts "BUC60585"
-puts "========================"
-
-restore [locate_data_file buc60585b.brep] t
-puts [checkshape t]
-plane pt 2036.25  -97.5  -1460.499755859375  0.0  -1.0  0.0 1.0 0.0 0.0
-
-psection result t pt
-
-set length 22.0446
-set 2dviewer 0
-
-# checksection res
diff --git a/tests/bugs/modalg/bug60623_1 b/tests/bugs/modalg/bug60623_1
deleted file mode 100755 (executable)
index be68670..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "========================"
-puts "BUC60623"
-puts "========================"
-
-restore [locate_data_file buc60623a.brep] a 
-puts [checkshape a]
-restore [locate_data_file buc60623b.brep] b
-puts [checkshape b]
-
-bsection result a b
-
-set length 1475.98
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug60623_2 b/tests/bugs/modalg/bug60623_2
deleted file mode 100755 (executable)
index 501aba6..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "========================"
-puts "BUC60623"
-puts "========================"
-
-restore [locate_data_file buc60623a.brep]  a 
-puts [checkshape a]
-restore [locate_data_file buc60623b.brep] b
-puts [checkshape b]
-
-bsection result b a
-# checksection res
-
-set length 1475.98
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60635 b/tests/bugs/modalg/bug60635
deleted file mode 100755 (executable)
index d33331f..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-
-puts "============="
-puts "BUC60635"
-puts "============="
-
-restore [locate_data_file buc60635a.brep] a 
-puts [checkshape a]
-
-mkplane result a
-
-set square 2035.58
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug60663_1 b/tests/bugs/modalg/bug60663_1
deleted file mode 100755 (executable)
index c335e40..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-
-puts "====================================="
-puts "BUC60663"
-puts "====================================="
-puts ""
-puts "It takes visual check for this BUG. See V2 point"
-puts "====================================="
-puts ""
-
-restore [locate_data_file buc60663a.brep] a 
-puts [checkshape a]
-restore [locate_data_file buc60663b.brep] b
-puts [checkshape b]
-
-bsection result a b
-
-regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
-if { $num != 2 } {
-    puts " Faulty : Result shape is INcorrect !!! "
-}
-
-
-#fsameparameter res
-
-set length 26.2001
-set 3dviewer 2
diff --git a/tests/bugs/modalg/bug60668 b/tests/bugs/modalg/bug60668
deleted file mode 100755 (executable)
index 0aef85e..0000000
+++ /dev/null
@@ -1,27 +0,0 @@
-
-puts "===================="
-puts "BUC60668"
-puts "Three boxes must appear on picture"
-puts "===================="
-
-box b 100 0 0 10 10 10
-box b1 10 10 10
-box b2 50 50 50 10 10 10
-box a -10 -10 -10 200 200 200
-
-compound b b1 b2 c 
-
-regexp {Mass +: +([-0-9.+eE]+)} [vprops c] full vcomp
-
-#compound b b1 c
-bcommon result c a
-
-regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full vcomm
-
-if { $vcomp != $vcomm } {
-    puts " Faulty : Common is incorrect"
-} else {
-    puts " BUC60668 OK : Common was made properly"
-}
-set square 1800
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60684 b/tests/bugs/modalg/bug60684
deleted file mode 100755 (executable)
index 72663b9..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-
-puts "============="
-puts "BUC60684"
-puts "============="
-
-restore [locate_data_file buc60684a.brep] w 
-puts [checkshape w]
-
-prism result w 0 0 10
-
-set square 148.875
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60703_2 b/tests/bugs/modalg/bug60703_2
deleted file mode 100755 (executable)
index b2976f4..0000000
+++ /dev/null
@@ -1,31 +0,0 @@
-
-puts "========================"
-puts "BUC60703"
-puts "================================="
-puts "Action with models with CORRECT tolerance" 
-puts "================================="
-puts ""
-############################################
-## Crash during a fuse whilst two plans are tangent. 
-############################################
-
-restore [locate_data_file buc60703c.brep] a 
-puts [checkshape a]
-
-restore [locate_data_file buc60703e.brep] b
-puts [checkshape b]
-
-
-if [catch {bfuse result a b } catch_result] {
-    puts "Faulty  BUC60703: here is problem with FUSE operation"
-} else {
-    puts "OK BUC60703: function FUSE works ok"         
-    if [catch {checkshape result } catch_result] {
-       puts "WARNING BUC60703 : Function checkshape gives bad result"
-       puts " See also OCC438: 919 D3 and D4"
-    } else {
-       puts "BUC60703  OK in checkshape"
-    }  
-}
-set square 236.72
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60703_3 b/tests/bugs/modalg/bug60703_3
deleted file mode 100755 (executable)
index 1e1578a..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-
-puts "========================"
-puts "BUC60703"
-puts "========================"
-
-restore [locate_data_file buc60703e.brep] a 
-#maxtolerance a
-puts [checkshape a]
-restore [locate_data_file buc60703d.brep] b
-#maxtolerance b
-puts [checkshape b]
-
-if [catch {bfuse result a b } catch_result] {
-    puts "Faulty  BUC60703: here is problem with FUSE operation"
-} else {
-    puts "OK OCC348: function FUSE works ok"
-    if [catch {checkshape result} catch_result] {
-       puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4"
-    } else {
-       puts "BUC60703   : here is NOT checking problem"
-    }
-}
-set square 371.259
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60703_4 b/tests/bugs/modalg/bug60703_4
deleted file mode 100755 (executable)
index ec7ad8f..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-
-puts "========================"
-puts "BUC60703"
-puts "========================"
-puts ""
-####################################
-## Crash during a fuse whilst two plans are tangent. 
-####################################
-
-restore [locate_data_file buc60703d.brep] a 
-#maxtolerance a
-puts [checkshape a]
-restore [locate_data_file buc60703f.brep] b
-#maxtolerance b
-puts [checkshape b]
-
-if [catch {bfuse result a b } catch_result] {
-    puts "Faulty  BUC60703: here is problem with FUSE operation"
-} else {
-    puts "OK OCC348: function FUSE works ok"
-    if [catch {checkshape result} catch_result] {
-       set mistake 1
-    } else {
-       set mistake 0
-    }
-
-    if { $mistake != 0} {
-       puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4"
-    } else {
-       puts "BUC60703   : here is NOT checking problem"
-    }
-}
-set square 505.797
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug60704 b/tests/bugs/modalg/bug60704
deleted file mode 100755 (executable)
index 5757e01..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "========================"
-puts "BUC60704"
-puts "BUC60709"
-puts "========================"
-
-restore [locate_data_file buc60704a.brep] p 
-puts [checkshape p]
-restore [locate_data_file buc60704b.brep] s
-puts [checkshape s]
-
-bfuse result p s
-
-set square 39.0889
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60714 b/tests/bugs/modalg/bug60714
deleted file mode 100755 (executable)
index b0d5e44..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-
-puts "========================"
-puts "BUC60714"
-puts "========================"
-
-profile f x 30 y 20 x -30
-explode f w 
-vertex v1 0 0 0 
-vertex v2 0 -10 -10
-edge e v1 v2
-
-wire w e
-mksweep f_1
-setsweep -FR
-addsweep w
-
-########
-#does'nt work
-buildsweep result -C -S
-
-set square 1979.9
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug60728 b/tests/bugs/modalg/bug60728
deleted file mode 100755 (executable)
index b844711..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-
-puts "========================"
-puts "BUC60728"
-puts "========================"
-puts ""
-####################################################
-## Infinite loop in section. Section between the two attached faces never finish.
-####################################################
-
-restore [locate_data_file buc60728a.brep] s1 
-restore [locate_data_file buc60728b.brep] s2
-build3d s1
-puts [checkshape s1]
-puts [checkshape s2]
-
-bsection result s1 s2
-
-#checksection res
-#checkshape res
-
-set length 238.032
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60776_1 b/tests/bugs/modalg/bug60776_1
deleted file mode 100755 (executable)
index 275a0c7..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-
-puts "========================"
-puts "BUC60776"
-puts "========================"
-
-restore [locate_data_file buc60776a.brep] a
-puts [checkshape a]
-restore [locate_data_file buc60776b.brep] b
-puts [checkshape b]
-bfuse result a b
-
-set square 60771.3
-
-set 2dviewer 1
-
-
diff --git a/tests/bugs/modalg/bug60776_2 b/tests/bugs/modalg/bug60776_2
deleted file mode 100755 (executable)
index ba3caef..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "========================"
-puts "BUC60776"
-puts "========================"
-
-restore [locate_data_file buc60776c.brep] a
-puts [checkshape a]
-restore [locate_data_file buc60776d.brep] b
-puts [checkshape b]
-bsection result a b
-
-set length 111.405
-
-set 2dviewer 1
-
diff --git a/tests/bugs/modalg/bug60782_1 b/tests/bugs/modalg/bug60782_1
deleted file mode 100755 (executable)
index b66553a..0000000
+++ /dev/null
@@ -1,39 +0,0 @@
-puts "TODO OCC12345 ALL: An exception was caught"
-puts "TODO OCC12345 ALL: Exception"
-puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-#INTERFACE IGES
-puts "========================"
-puts "BUC60782"
-puts "CASE 1"
-puts "========================"
-puts ""
-puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
-puts ""
-
-restore [locate_data_file buc60782a.brep] a 
-set che [checkshape a]
-if { [regexp {Faulty} $che ] == 1 } {
-    puts "Faulty BUC60782 (case 1): Source shape is invalid"
-} else {
-    puts "BUC60782 OK (case 1): Sourse shape is correct"
-}
-
-set che [checkshape a rr]
-if { [regexp {OK} $che ] != 1} {
-    puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
-    puts "Body of the script was not executed"
-} else {
-    puts "Checking of SOURCE shape by checkshape - OK"
-    if [catch { mkoffset result a 1 10 } catch_result] {
-       puts "Faulty BUC60782: mkoffset works wrongly"
-       renamevar a result
-    } else {
-       puts "OK BUC60782: offset is created"
-       tpcompound result
-    }
-}
-
-set square 0
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60782_3 b/tests/bugs/modalg/bug60782_3
deleted file mode 100755 (executable)
index 992c806..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-puts "TODO OCC12345 ALL: An exception was caught"
-puts "TODO OCC12345 ALL: Exception"
-puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-
-#INTERFACE IGES
-puts "========================"
-puts "BUC60782"
-puts "CASE 3"
-puts "========================"
-puts ""
-puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
-puts ""
-
-restore [locate_data_file buc60782c.brep] a 
-
-set che [checkshape a]
-if { [regexp {Faulty} $che ] == 1 } {
-    puts "Faulty BUC60782 (case 3): Source shape is invalid"
-} else {
-    puts "BUC60782 OK (case 3): Sourse shape is correct"
-}
-
-set che [checkshape a rr]
-if { [regexp {OK} $che ] != 1 } {
-    puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
-    puts "Body of the script was not executed"
-} else {
-    puts "Checking of SOURCE shape by checkshape - OK"
-    if [catch { mkoffset result a 1 10 } catch_result] {
-       puts "Faulty BUC60782: mkoffset works wrongly"
-       renamevar a result
-    } else {
-       puts "OK BUC60782: offset is created"
-       tpcompound result
-    }
-}
-set square 0
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60788_1 b/tests/bugs/modalg/bug60788_1
deleted file mode 100755 (executable)
index 51f088d..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-
-puts "============"
-puts "BUC60788"
-puts "case 1"
-puts "============"
-
-#restore Intersection_Shell1_Case1.brep S1
-#restore Intersection_Shell2_Case1.brep S2
-
-restore [locate_data_file buc60788a.brep] S1 
-puts [checkshape S1]
-restore [locate_data_file buc60788b.brep] S2
-puts [checkshape S2]
-
-bsection result S1 S2
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full err
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
-
-if { $err != 4 && $err1 != 3} {
-    puts "Faulty :  result (res) is incorrect"
-} else {
-    puts "BUC60788 - OK"
-}
-
-set length 750
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60801 b/tests/bugs/modalg/bug60801
deleted file mode 100755 (executable)
index 2adb282..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-
-puts "========================"
-puts "BUC60801"
-puts "========================"
-
-box b -10 -10 -10 30 40 40 
-box a1 -20 0 -20 20 20 100
-box a2 0 20 -20 50 20 100
-box c -20 -20 20 100 100 100
-bcut r1 b a1
-bcut r2 r1 a2
-bcut r3 r2 c
-checkshape r3
-
-renamevar r3 result
-
-set square 6400
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug60803 b/tests/bugs/modalg/bug60803
deleted file mode 100755 (executable)
index d97749a..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "========================"
-puts "BUC60803"
-puts "========================"
-
-restore [locate_data_file buc60803a.brep] a 
-puts [checkshape a]
-restore [locate_data_file buc60803b.brep] b
-puts [checkshape b]
-
-bfuse result a b
-
-set square 1.86064e+07
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug60839 b/tests/bugs/modalg/bug60839
deleted file mode 100755 (executable)
index a76ba5b..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-
-puts "============"
-puts "BUC60839"
-puts "============"
-puts ""                                                                                                                                                                        
-
-restore [locate_data_file BUC60839-1.brep] a 
-puts [checkshape a]
-restore [locate_data_file BUC60839-2.brep] b
-puts [checkshape b]
-
-puts "Starting fuse operation"
-
-bfuse result a b
-
-set square 27341.6
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60841 b/tests/bugs/modalg/bug60841
deleted file mode 100755 (executable)
index a619046..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-
-puts "========"
-puts "BUC60841"
-puts "========"
-
-restore [locate_data_file buc60841a.brep] sh1
-puts [checkshape sh1]
-restore [locate_data_file buc60841b.brep] sh2
-puts [checkshape sh2]
-
-bfuse result sh1 sh2
-
-set square 890971
-set 2dviewer 1
diff --git a/tests/bugs/modalg/bug60849 b/tests/bugs/modalg/bug60849
deleted file mode 100755 (executable)
index c6bc356..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-
-puts "============"
-puts "BUC60849"
-puts "============"
-puts ""
-
-restore [locate_data_file BUC60849.brep] result
-puts [checkshape result]
-
-set bndb [ lindex [bounding result] 3 ]
-
-if { $bndb  > 100.000001 } {
-    puts "Faulty BUC60849 : Bounding box of spherical surface is created wroughly."
-} else {
-    puts "BUC60849 OK :Bounding box of spherical surface is created properly."
-}
-set square 125663
-set 3dviewer 2
diff --git a/tests/bugs/modalg/bug60865 b/tests/bugs/modalg/bug60865
deleted file mode 100755 (executable)
index 00cb07d..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-
-puts "============"
-puts "BUC60865"
-puts "BUC60864"
-puts "============"
-puts ""
-##########################
-## Section gives duplicate edges. 
-##########################
-
-restore [locate_data_file BUC60865_sh6.brep] sh 
-puts [checkshape sh]
-
-plane pl 1.1 0.99999 1 0 1 0
-mkface f pl
-bsection result sh f
-
-
-set nb_info [nbshapes result]
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-
-if {  $ed == 5 } {
-    puts  " BUC60865 : SECTION operation was made properly"
-} else {
-    puts "Faulty BUC60865: SECTION operation was made wrongly"
-}
-set length 4.5
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug60881 b/tests/bugs/modalg/bug60881
deleted file mode 100755 (executable)
index 3330cf4..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "============"
-puts "BUC60881"
-puts "============"
-puts ""
-
-restore [locate_data_file BUC60881.brep] a 
-explode a
-puts [checkshape a_1]
-puts [checkshape a_1]
-
-bfuse result a_1 a_2
-
-set square 34069
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60899_1 b/tests/bugs/modalg/bug60899_1
deleted file mode 100755 (executable)
index 115e9c8..0000000
+++ /dev/null
@@ -1,48 +0,0 @@
-
-puts "============"
-puts "BUC60899"
-puts "============"
-puts ""
-#####################################################
-## Execution of the script prism_sec.tcl gives  exception "NumericError". 
-#####################################################
-
-set n 2
-set dx 4
-set sx 1
-set sz 10
-set xc [dval (2*$dx+2*$sx)*$n/2]
-set zc -30
-set r  [dval $xc*0.9]
-
-set x 0
-set y -50
-set z 0
-set pol "polyline w $x $y $z"
-for {set i 1} {$i <= $n} {incr i} {
-    set x [dval $x+$dx]
-    set pol "$pol $x $y $z"
-    set x [dval $x+$sx]
-    set z [dval $z+$sz]
-    set pol "$pol $x $y $z"
-    set x [dval $x+$dx]
-    set pol "$pol $x $y $z"
-    set x [dval $x+$sx]
-    set z [dval $z-$sz]
-    set pol "$pol $x $y $z"
-}
-
-eval $pol
-circle c $xc 0 $zc $r
-mkedge c c
-
-prism cyl c 0 0 -$zc*2 inf
-prism crg w 0 -$y*2 0 inf
-
-bsection result crg cyl
-
-set length 15.1392
-set 2dviewer 0
-
-# checksection res
-# checkshape res
diff --git a/tests/bugs/modalg/bug60899_2 b/tests/bugs/modalg/bug60899_2
deleted file mode 100755 (executable)
index 4d79361..0000000
+++ /dev/null
@@ -1,62 +0,0 @@
-
-puts "============"
-puts "BUC60899"
-puts "============"
-puts ""
-#####################################################
-## Execution of the script prism_sec.tcl gives  exception "NumericError". 
-#####################################################
-
-set n 2
-set dx 4
-set sx 1
-set sz 10
-set xc [dval (2*$dx+2*$sx)*$n/2]
-set zc -30
-set r  [dval $xc*0.9]
-
-set x 0
-set y -50
-set z 0
-set pol "polyline w $x $y $z"
-for {set i 1} {$i <= $n} {incr i} {
-    set x [dval $x+$dx]
-    set pol "$pol $x $y $z"
-    set x [dval $x+$sx]
-    set z [dval $z+$sz]
-    set pol "$pol $x $y $z"
-    set x [dval $x+$dx]
-    set pol "$pol $x $y $z"
-    set x [dval $x+$sx]
-    set z [dval $z-$sz]
-    set pol "$pol $x $y $z"
-}
-
-eval $pol
-polyline c $xc-$r -$r*2 $zc $xc+$r -$r*2 $zc $xc+$r $r*2 $zc $xc-$r $r*2 $zc $xc-$r -$r*2 $zc
-
-prism cyl c 0 0 -$zc*2 inf
-prism crg w 0 -$y*2 0 inf
-bsection result crg cyl
-
-#checksection res
-#checkshape res
-
-set nb_info [nbshapes result]
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full edgeness
-
-
-    #set fullness [ nbshapes res ]
-    #puts "$fullness"
-    #set qq [ lindex $fullness 0 ]
-    #set edgeness [ lindex $fullness 10 ]
-    # puts "$edgeness"
-    
-if { $edgeness == 1  } {                                         
-    puts "Shape is empty, it is Faulty result"                                                                               
-} else {                                                                                                                        
-    puts "Shape is not empty, OK"                                                                                                   
-}
-
-set length 162.299
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60901 b/tests/bugs/modalg/bug60901
deleted file mode 100755 (executable)
index 7c9395f..0000000
+++ /dev/null
@@ -1,62 +0,0 @@
-
-puts "============"
-puts "BUC60901"
-puts "============"
-puts ""
-################################################################
-## We should get the edges forming a closed intersection line but we see breaks. 
-################################################################
-
-set n 3
-set dx 1
-set sx 20
-set sz 10
-
-set xc [dval (2*$dx+2*$sx)*$n/2]
-set yc 0
-set zc [dval $sz*10]
-set nxc 0.5
-set nyc -0.3
-set nzc 1
-set r [dval $xc*0.9]
-
-set x 0
-set y [dval -$r*1.2]
-set z 0
-set pol "polyline w $x $y $z"
-for {set i 1} {$i <= $n} {incr i} {
-    set x [dval $x+$dx]
-    set pol "$pol $x $y $z"
-    set x [dval $x+$sx]
-    set z [dval $z+$sz]
-    set pol "$pol $x $y $z"
-    set x [dval $x+$dx]
-    set pol "$pol $x $y $z"
-    set x [dval $x+$sx]
-    set z [dval $z-$sz]
-    set pol "$pol $x $y $z"
-}
-
-eval $pol
-circle c $xc $yc $zc $nxc $nyc $nzc $r
-mkedge c c
-
-set lcyl [dval -$zc*2]
-set lcrg [dval -$y*2]
-
-prism cyl c 0 0 $lcyl
-prism crg w 0 $lcrg 0
-bsection result crg cyl
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
-
-if { $nb_vertices != $nb_edges } {                                         
-    puts "Section is opened: Faulty shape"
-} else {
-    puts "Section is closed: OK"
-}
-
-set length 350.404
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60905 b/tests/bugs/modalg/bug60905
deleted file mode 100755 (executable)
index 50df637..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-
-puts "============"
-puts "BUC60905"
-puts "============"
-puts ""                                                                                                                                                                        
-#########################################################
-## shape contains open shells if sewing would be made with big tolerance invalid shape
-## will be produced, and visualization crashes. 
-#########################################################
-
-restore [locate_data_file BUC60905.brep] a 
-# checkshape a
-
-sewing result 10 a
-
-vinit
-vdisplay result
-
-# checkshape res
-                                                                                                                                                                         
-set square 270868
-set 3dviewer 0
diff --git a/tests/bugs/modalg/bug60909 b/tests/bugs/modalg/bug60909
deleted file mode 100755 (executable)
index afbcfe6..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-
-puts "============"
-puts "BUC60909"
-puts "============"
-puts ""
-
-box boite 200 200 200 
-nexplode boite F
-profile cont S boite_4 F 0 50 X 50 Y 100 X -50
-featrevol boite cont boite_4 0 0 200 0 -1 0 1 1
-featperform revol result boite_1
-
-set square 265343
-set 2dviewer 0
-
-
diff --git a/tests/bugs/modalg/bug60927 b/tests/bugs/modalg/bug60927
deleted file mode 100755 (executable)
index abf92db..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-
-puts "============"
-puts "BUC60927"
-puts "============"
-
-restore [locate_data_file BUC60927.brep] a 
-
-explode a
-puts [checkshape a_1]
-puts [checkshape a_2]
-
-bcut result a_2 a_1
-
-set square 94795.3
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug60930 b/tests/bugs/modalg/bug60930
deleted file mode 100755 (executable)
index b25473f..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-
-puts "============"
-puts "BUC60930"
-puts "============"
-puts ""
-######################################
-## Exception ConstructionError in LocOpe_SplitShape. 
-######################################
-
-restore [locate_data_file BUC60930_splitshape.brep] c 
-explode c
-puts [checkshape c_1]
-puts [checkshape c_2]
-
-renamevar c_1 f
-renamevar c_2 e
-
-splitshape result f f e
-
-set square 13.3392
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60934 b/tests/bugs/modalg/bug60934
deleted file mode 100755 (executable)
index c0ced12..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-
-puts "============"
-puts "BUC60934"
-puts "============"
-
-restore [locate_data_file BUC60934.brep] a 
-puts [checkshape a]
-
-mkplane result a
-
-set square 40303.1
-set 2dviewer 0
-
diff --git a/tests/bugs/modalg/bug60942 b/tests/bugs/modalg/bug60942
deleted file mode 100755 (executable)
index ad645da..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-
-puts "============"
-puts "BUC60942"
-puts "============"
-###############################################################
-## SplitShape algorithm modifies original shape (increases vertex tolerance of a plitting edge). 
-###############################################################
-
-restore [locate_data_file BUC60942_splitshape.brep] c 
-explode c
-puts [checkshape c_1]
-puts [checkshape c_2]
-
-renamevar c_1 f
-renamevar c_2 w
-
-set tol1 [maxtolerance w]
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxEdgeTol1
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxVertexTol1
-
-splitshape result f f w
-
-set tol2 [maxtolerance w]
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxEdgeTol2
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxVertexTol2
-
-
-if { $MaxEdgeTol1 <  $MaxEdgeTol2 || $MaxVertexTol1 < $MaxVertexTol1 } {
-    puts "Faulty BUC60942: max tolerance of the input wire has been increased by about 10 times."
-} else {
-    puts "BUC60942 OK: Tolerance of shape is correct"
-}
-
-set square 37.7032
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug60971 b/tests/bugs/modalg/bug60971
deleted file mode 100755 (executable)
index fc2502f..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "========"                                                                                   
-puts "BUC60971"
-puts "CASE 2"                                                                                   
-puts "========"                                                                                   
-puts ""                                                                                           
-
-restore [locate_data_file buc60971.brep] a 
-explode a
-puts [checkshape a_1]
-puts [checkshape a_2]
-
-bfuse result a_2 a_3
-set square 93698.1
-set 2dviewer 0
diff --git a/tests/bugs/modalg/bug62369 b/tests/bugs/modalg/bug62369
deleted file mode 100755 (executable)
index af4de49..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-
-puts "==========="
-puts "FRA62369"
-puts "==========="
-
-restore [locate_data_file fra62369a.brep] a 
-puts [checkshape a]
-
-compound result
-
-set i 1
-repeat 100 { 
-    plane p_$i 0 0 200+$i
-    mkface f_$i p_$i
-    bsection s_$i a f_$i -2d -a
-    compound s_$i result result
-    incr i
-}
-set length 3961.04
-set 2dviewer 0
diff --git a/tests/bugs/modalg/fra62369 b/tests/bugs/modalg/fra62369
new file mode 100644 (file)
index 0000000..af4de49
--- /dev/null
@@ -0,0 +1,20 @@
+
+puts "==========="
+puts "FRA62369"
+puts "==========="
+
+restore [locate_data_file fra62369a.brep] a 
+puts [checkshape a]
+
+compound result
+
+set i 1
+repeat 100 { 
+    plane p_$i 0 0 200+$i
+    mkface f_$i p_$i
+    bsection s_$i a f_$i -2d -a
+    compound s_$i result result
+    incr i
+}
+set length 3961.04
+set 2dviewer 0
diff --git a/tests/bugs/modalg/pro16983 b/tests/bugs/modalg/pro16983
new file mode 100644 (file)
index 0000000..41ca3bf
--- /dev/null
@@ -0,0 +1,17 @@
+
+puts "============"
+puts "PRO16983"
+puts "============"
+
+restore [locate_data_file pro16983a.brep] B 
+puts [checkshape B]
+plane p 0 0 0 1 0 0
+vertex v1 0 90.16396 252.4591
+vertex v2 0 252.459 -9.835989
+edge e v2 v1
+wire w e
+featlf B w p -5 0 0 5 0 0 1 1
+featperform lf result
+
+set square 796476
+set 2dviewer 0
diff --git a/tests/bugs/modalg/pro18892 b/tests/bugs/modalg/pro18892
new file mode 100644 (file)
index 0000000..89cbce0
--- /dev/null
@@ -0,0 +1,35 @@
+puts "TODO OCC12345 ALL: Faulty : Result is BAD. Distance is more than MaxTolerance"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+
+puts "=========="
+puts "PRO18892"
+puts "=========="
+# Version de test: K4O, PATCH LEVEL:
+#   GEOMETRY-M4-6A : 3 
+#   GEOMLITE-M4-6A : 1 
+#   TOPOLOGY-M4-6A : 2 
+
+restore [locate_data_file pro18892.rle] a 
+puts [checkshape a]
+
+explode a
+bsection result a_1 a_2 -2d -a
+explode result
+
+mkcurve c result_1
+cvalue c 1 X Y Z 
+vertex v X Y Z
+explode a e
+
+distmini d v a_8
+
+set tol [ maxtolerance a_8 ]
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxVertexTolerance
+regexp {([-0-9.+eE]+)} [dump d_val] full d
+
+if { [expr $d > $MaxEdgeTolerance] || [expr $d > $MaxVertexTolerance] } {
+    puts "Faulty : Result is BAD. Distance is more than MaxTolerance"
+}
+
+set length 0
diff --git a/tests/bugs/modalg/pro19424 b/tests/bugs/modalg/pro19424
new file mode 100644 (file)
index 0000000..d41052b
--- /dev/null
@@ -0,0 +1,19 @@
+
+puts "=========="
+puts "PRO19424"
+puts "=========="
+
+restore [locate_data_file pro19424a.brep] b 
+puts [checkshape b]
+restore [locate_data_file pro19424b.brep] p
+puts [checkshape p]
+
+if [catch {evolved result b p o } catch_result] {
+  puts "Faulty PRO19424 : function EVOLVED works wrongly"
+} else {
+  puts "PRO19424 OK: function EVOLVED works properly"
+}
+
+set square 246.506
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/pro19626 b/tests/bugs/modalg/pro19626
new file mode 100644 (file)
index 0000000..8313dc6
--- /dev/null
@@ -0,0 +1,22 @@
+
+puts "============"
+puts "PRO19626"
+puts "============"
+
+restore [locate_data_file pro19626a.brep] a 
+puts [checkshape a]
+restore [locate_data_file pro19626b.brep] b
+puts [checkshape b]
+
+bsection result a b
+regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num
+if { $num != 2 } {
+    puts " Faulty PRO19626: Result shape is INcorrect !!! "
+} else {
+    puts "PRO19626 OK : Result shape is CORRECT !!! "
+}
+
+set length 174.597
+set 2dviewer 0
+
+
diff --git a/tests/bugs/modalg/pro19653 b/tests/bugs/modalg/pro19653
new file mode 100644 (file)
index 0000000..f0329c1
--- /dev/null
@@ -0,0 +1,29 @@
+puts "TODO OCC12345 ALL: Faulty : TEST FAILED"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+
+puts "============"
+puts "PRO19653"
+puts "BREPALGO_BOOLEANOPERATION does not return result."
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+
+restore [locate_data_file pro19653a.brep] a 
+puts [checkshape a]
+restore [locate_data_file pro19653b.brep] b
+puts [checkshape b]
+bsection result a b
+
+explode result e
+checkshape result_1
+explode a e
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full ll_1
+regexp {Mass +: +([-0-9.+eE]+)} [lprops a_4] full ll_2
+if { $ll_1 != $ll_2 } {
+    puts "Faulty : TEST FAILED"
+} else {
+    puts "PRO19653 OK : BREPALGO_BOOLEANOPERATION returns result"
+}
+
+set length 0
+set 2dviewer 0
diff --git a/tests/bugs/moddata/buc60637 b/tests/bugs/moddata/buc60637
new file mode 100644 (file)
index 0000000..0beaab6
--- /dev/null
@@ -0,0 +1,11 @@
+
+puts "========================"
+puts "BUC60637"
+puts "========================"
+
+restore [locate_data_file buc60637a.brep] result
+fsameparameter result
+
+set check_square 1
+set square 144.866
+set 2dviewer 0
diff --git a/tests/bugs/moddata/buc60652_1 b/tests/bugs/moddata/buc60652_1
new file mode 100644 (file)
index 0000000..b19c919
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "=========="
+puts "BUC60652"
+puts "Case 1"
+puts "=========="
+
+pload QAcommands
+
+restore [locate_data_file buc60652a.brep] result
+puts [checkshape result]
+BUC60652 result
+
+set check_square 1
+set square 19614.8
+set 2dviewer 0
diff --git a/tests/bugs/moddata/buc60652_2 b/tests/bugs/moddata/buc60652_2
new file mode 100644 (file)
index 0000000..7f36042
--- /dev/null
@@ -0,0 +1,16 @@
+
+puts "=========="
+puts "BUC60652"
+puts "Case 2"
+puts "=========="
+
+pload QAcommands
+
+restore [locate_data_file buc60652b.brep] result
+puts [checkshape result]
+BUC60652 result
+
+set check_square 1
+set square 29961
+set 2dviewer 0
+
diff --git a/tests/bugs/moddata/buc60652_3 b/tests/bugs/moddata/buc60652_3
new file mode 100644 (file)
index 0000000..0591ce1
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "==========="
+puts "BUC60652"
+puts "Case 3"
+puts "==========="
+
+pload QAcommands
+
+restore [locate_data_file buc60652c.brep] result 
+puts [checkshape result]
+BUC60652 result
+
+set check_square 1
+set square 77815.1
+set 2dviewer 0
diff --git a/tests/bugs/moddata/buc60652_4 b/tests/bugs/moddata/buc60652_4
new file mode 100644 (file)
index 0000000..79a20ab
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "=========="
+puts "BUC60652"
+puts "Case 4"
+puts "=========="
+
+pload QAcommands
+
+restore [locate_data_file shading_104.brep] result 
+puts [checkshape result]
+BUC60652 result
+
+set check_square 1
+set square 119134
+set 2dviewer 0
diff --git a/tests/bugs/moddata/buc60667 b/tests/bugs/moddata/buc60667
new file mode 100644 (file)
index 0000000..663c9b6
--- /dev/null
@@ -0,0 +1,12 @@
+
+puts "==================="
+puts "BUC60667"
+puts "==================="
+
+restore [locate_data_file buc60667a.brep] result
+fsameparameter result
+puts [checkshape result]
+
+set 2dviewer 0
+
+
diff --git a/tests/bugs/moddata/buc60707 b/tests/bugs/moddata/buc60707
new file mode 100644 (file)
index 0000000..7a9f84d
--- /dev/null
@@ -0,0 +1,25 @@
+
+puts "==========="
+puts "BUC60707"
+puts "==========="
+puts ""
+#################################################
+## Fillets created in CasCade version 3 do not display as shaded surfaces. 
+#################################################
+restore [locate_data_file buc60707a.brep] result
+puts [checkshape result]
+
+tclean result
+incmesh result .1
+triangles result
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full Maxtriangl
+
+if { $Maxtriangl < 1 } {
+   puts "Error : inside mesh for shading wasn't build"
+}
+
+set 3dviewer 0
+
+
+
diff --git a/tests/bugs/moddata/buc60729 b/tests/bugs/moddata/buc60729
new file mode 100644 (file)
index 0000000..1942692
--- /dev/null
@@ -0,0 +1,14 @@
+
+puts "========================"
+puts "BUC60729"
+puts "========================"
+
+pload QAcommands
+
+if [catch {BUC60729} ] {
+  puts "BUC60729: Error"
+} else {
+  puts "BUC60729: OK"
+}
+
+set 3dviewer 1
diff --git a/tests/bugs/moddata/buc60755 b/tests/bugs/moddata/buc60755
new file mode 100644 (file)
index 0000000..758a13f
--- /dev/null
@@ -0,0 +1,23 @@
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========================"
+puts "BUC60755"
+puts "========================"
+
+restore [locate_data_file buc60755a.brep] a 
+puts [checkshape a]
+
+#########################################
+# "tcopy" command of a valid shape give a no-valid shape. 
+#########################################
+
+tcopy a result
+puts [checkshape result]
+
+set check_square 1
+set square 623.832
+set 2dviewer 0
+
+
+
+
diff --git a/tests/bugs/moddata/buc60769 b/tests/bugs/moddata/buc60769
new file mode 100644 (file)
index 0000000..161d881
--- /dev/null
@@ -0,0 +1,11 @@
+
+puts "============="
+puts "BUC60769"
+puts "============="
+
+restore [locate_data_file buc60769a.brep] result
+puts [checkshape result]
+
+set 2dviewer 0
+
+
diff --git a/tests/bugs/moddata/buc60825 b/tests/bugs/moddata/buc60825
new file mode 100644 (file)
index 0000000..0f28d3c
--- /dev/null
@@ -0,0 +1,20 @@
+puts "========================"
+puts "BUC60825"
+puts "========================"
+
+pload QAcommands
+
+line aLine 0 0 0 0 0 1
+mkedge aEdge1 aLine
+restore [locate_data_file buc60825.brep] aEdge2 
+puts [checkshape aEdge2]
+
+distmini d aEdge1 aEdge2
+regexp {NB RESULTS +: +([-0-9.+eE]+)} [BUC60825 aEdge1 aEdge2] full ext
+if { $ext != 0 } {
+    puts "Error : The extrema has not been calculated."
+}
+
+
+
+
diff --git a/tests/bugs/moddata/buc60828 b/tests/bugs/moddata/buc60828
new file mode 100644 (file)
index 0000000..c7e74d2
--- /dev/null
@@ -0,0 +1,11 @@
+
+puts "========"
+puts "BUC60828"
+puts "========"
+puts ""
+
+catch {BUC60828}
+
+
+
+
diff --git a/tests/bugs/moddata/buc60842 b/tests/bugs/moddata/buc60842
new file mode 100644 (file)
index 0000000..d8abb20
--- /dev/null
@@ -0,0 +1,16 @@
+
+puts "========"
+puts "BUC60842"
+puts "========"
+
+pload QAcommands
+vinit
+
+if [catch {BUC60842} catch_result] {
+    puts "Faulty BUC60842"
+} else {
+    puts "BUC60842 OK"
+}
+
+set 3dviewer 1
+
diff --git a/tests/bugs/moddata/buc60848 b/tests/bugs/moddata/buc60848
new file mode 100644 (file)
index 0000000..d2e7308
--- /dev/null
@@ -0,0 +1,45 @@
+
+puts "============"
+puts "BUC60848"
+puts "============"
+puts ""
+
+pload QAcommands
+
+restore [locate_data_file BUC60848.brep] a 
+puts [checkshape a]
+
+tcopy a res
+
+set Flag 0
+
+set Res [ catch { BUC60848 a } ]
+if { $Res != 0 } {
+    invert a
+    set Flag 1
+    puts ""
+}
+
+if { $Flag == 1 } {
+    set Res [ catch { BUC60848 a } ]
+    if { $Res != 0 } {
+        set Flag 2
+    }
+    puts ""
+}
+
+if { $Flag == 2 } {
+    puts "TEST FINISHED. RESULT IS BAD. Faulty"
+    puts ""
+}
+
+if { $Flag == 1 } {
+    puts "TEST FINISHED. RESULT IS OK. SHAPE HAS BEEN INVERTED."
+    puts ""
+}
+
+if { $Flag == 0 } {
+    puts "TEST FINISHED. RESULT IS OK."
+    puts ""
+}
+
diff --git a/tests/bugs/moddata/buc60852 b/tests/bugs/moddata/buc60852
new file mode 100644 (file)
index 0000000..c51594f
--- /dev/null
@@ -0,0 +1,68 @@
+
+puts "========"
+puts "BUC60852"
+puts "BUC60923"
+puts "========"
+
+pload QAcommands
+
+set bndbox_X1 0
+set bndbox_Y1 0
+set bndbox_Z1 0
+set bndbox_X2 30
+set bndbox_Y2 10
+set bndbox_Z2 20
+
+set point_1_1_X -20
+set point_1_1_Y -5
+set point_1_1_Z 10
+set point_1_2_X 50
+set point_1_2_Y 15
+set point_1_2_Z 10
+
+vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
+vertex vertex_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z
+
+edge edge_1 vertex_1_1 vertex_1_2
+
+puts ""
+
+set point_2_1_X -20
+set point_2_1_Y -10
+set point_2_1_Z 10
+set point_2_2_X 50
+set point_2_2_Y -10
+set point_2_2_Z 10
+
+vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
+vertex vertex_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z
+
+edge edge_2 vertex_2_1 vertex_2_2
+
+puts ""
+
+box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2
+
+
+line line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z [ expr { $point_1_1_X - $point_1_2_X } ] [ expr { $point_1_1_Y - $point_1_2_Y } ] [ expr { $point_1_1_Z - $point_1_2_Z } ]
+
+line line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z [ expr { $point_2_1_X - $point_2_2_X } ] [ expr { $point_2_1_Y - $point_2_2_Y } ] [ expr { $point_2_1_Z - $point_2_2_Z } ]
+
+puts ""
+
+set result1 [BUC60852 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
+if {${result1} != "Line that lies on edge intersects the box\n"} {
+  puts "BUC60852: Error; (case 1)"
+} else {
+  puts "BUC60852: OK; (case 1)"
+}
+
+puts ""
+
+set result2 [BUC60852 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
+if {${result2} != "Line that lies on edge does not intersect the box\n"} {
+  puts "BUC60852: Error; (case 2)"
+} else {
+  puts "BUC60852: OK; (case 2)"
+}
+
diff --git a/tests/bugs/moddata/buc60854 b/tests/bugs/moddata/buc60854
new file mode 100644 (file)
index 0000000..8a3cf41
--- /dev/null
@@ -0,0 +1,43 @@
+puts "TODO OCC12345 ALL: BUC60854: Error"
+
+puts "========"
+puts "BUC60854"
+puts "========"
+
+pload QAcommands
+
+plane test_plane
+mkface test_face test_plane 0 1 0 1
+
+vertex test_vertex_1 0 0.5 0
+vertex test_vertex_2 1 0.5 0
+edge test_edge test_vertex_1 test_vertex_2
+
+splitshape test_shape test_face test_face test_edge
+
+explode test_shape f
+
+renamevar test_shape_1 test_face
+
+vertex test_vertex_3 0.2 0.5 0
+vertex test_vertex_4 0.8 0.5 0
+edge test_edge_1 test_vertex_3 test_vertex_4
+
+vertex test_vertex_5 0 1 0
+edge test_edge_2 test_vertex_5 test_vertex_3
+
+vertex test_vertex_6 1 1 0
+edge test_edge_3 test_vertex_4 test_vertex_6
+
+BUC60854 result test_shape test_face test_edge_2 test_edge_3 @ test_edge test_edge_1
+
+erase test_plane
+
+regexp {FACE +: +([-0-9.+eE]+)} [numshapes result] full FACE_num
+
+if {${FACE_num} != 3} {
+  puts "BUC60854: Error"
+}
+
+set 2dviewer 0
+
diff --git a/tests/bugs/moddata/buc60868 b/tests/bugs/moddata/buc60868
new file mode 100644 (file)
index 0000000..9e56888
--- /dev/null
@@ -0,0 +1,21 @@
+
+puts "========"                                                                                                                                                 
+puts "BUC60868"                                                                                                                                                 
+puts "========"                                                                                                                                                 
+puts ""                                                                         
+
+pload QAcommands
+
+restore [locate_data_file buc60868.brep] sh 
+puts [checkshape sh]
+
+BUC60868 result sh
+puts [checkshape result]
+
+set len [llength [explode result w]]
+if { $len != 3 } {
+    puts "Error : the number of curves is $len, but it should be 3."
+}
+
+set 2dviewer 0
+
diff --git a/tests/bugs/moddata/buc60870 b/tests/bugs/moddata/buc60870
new file mode 100644 (file)
index 0000000..8bc322b
--- /dev/null
@@ -0,0 +1,35 @@
+
+puts "========"
+puts "BUC60870"
+puts "========"
+
+pload QAcommands
+
+vertex vertex_1 0 0 0
+vertex vertex_2 0 1 0
+vertex vertex_3 0 0.3 1
+
+edge edge_1 vertex_1 vertex_2
+
+set result [BUC60870 test_result edge_1 vertex_3 2.0]
+
+if {[llength ${result}] < 4} {
+  puts "BUC60870: Error; must be 3 solutions"
+} else {
+  set MinimumDistance [dval test_result_val]
+  set TheorMinimumDistance 1.0
+  set percent_max 1.0
+  set percent [expr abs(${MinimumDistance} - ${TheorMinimumDistance}) / ${TheorMinimumDistance} * 100.]
+  if {${percent} > ${percent_max}} {
+    puts "MinimumDistance=${MinimumDistance}"
+    puts "TheorMinimumDistance=${TheorMinimumDistance}"
+    puts "percent=${percent}"
+    puts "percent_max=${percent_max}"
+    puts "BUC60870: Error; bad value of minimum distance"
+  } else {
+    puts "BUC60870: OK"
+  }
+}
+
+set 2dviewer 0
+
diff --git a/tests/bugs/moddata/buc60889 b/tests/bugs/moddata/buc60889
new file mode 100644 (file)
index 0000000..e7ed39f
--- /dev/null
@@ -0,0 +1,93 @@
+
+puts "========"
+puts "BUC60889"
+puts "BUC60947"
+puts "========"
+
+pload QAcommands
+
+set bndbox_X1 0
+set bndbox_Y1 0
+set bndbox_Z1 0
+set bndbox_X2 30
+set bndbox_Y2 10
+set bndbox_Z2 20
+
+set point_1_1_X -30
+set point_1_1_Y -10
+set point_1_1_Z 5
+set point_1_2_X -30
+set point_1_2_Y -10
+set point_1_2_Z 15
+
+set point_1_3_X -15
+set point_1_3_Y -5
+set point_1_3_Z 5
+
+set dx_1 [ expr { $point_1_3_X - $point_1_1_X } ]
+set dy_1 [ expr { $point_1_3_Y - $point_1_1_Y } ]
+set dz_1 [ expr { $point_1_3_Z - $point_1_1_Z } ]
+
+point point_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
+point point_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z
+polyline p_line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $point_1_2_X $point_1_2_Y $point_1_2_Z
+vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
+vertex vertex_1_2 $point_1_3_X $point_1_3_Y $point_1_3_Z
+edge edge_1 vertex_1_1 vertex_1_2
+
+puts ""
+
+set point_2_1_X 30
+set point_2_1_Y 10
+set point_2_1_Z -5
+set point_2_2_X 30
+set point_2_2_Y 10
+set point_2_2_Z -15
+
+set point_2_3_X 0
+set point_2_3_Y 10
+set point_2_3_Z -5
+
+set dx_2 [ expr { $point_2_3_X - $point_2_1_X } ]
+set dy_2 [ expr { $point_2_3_Y - $point_2_1_Y } ]
+set dz_2 [ expr { $point_2_3_Z - $point_2_1_Z } ]
+
+point point_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
+point point_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z
+polyline p_line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z $point_2_2_X $point_2_2_Y $point_2_2_Z
+vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
+vertex vertex_2_2 $point_2_3_X $point_2_3_Y $point_2_3_Z
+edge edge_2 vertex_2_1 vertex_2_2
+
+puts ""
+
+box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2
+
+
+line line_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $dx_1 $dy_1 $dz_1
+line line_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z $dx_1 $dy_1 $dz_1
+
+line line_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z $dx_2 $dy_2 $dz_2
+line line_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z $dx_2 $dy_2 $dz_2
+
+puts ""
+
+set result1 [BUC60889 point_1_1 point_1_2 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
+
+if {${result1} != "The band intersects the box\n"} {
+  puts "BUC60889: Error; (case 1)"
+} else {
+  puts "BUC60889: OK; (case 1)"
+}
+
+puts ""
+
+set result2 [BUC60889 point_2_1 point_2_2 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
+
+if {${result2} != "The band lies out of the box\n"} {
+  puts "BUC60889: Error; (case 2)"
+} else {
+  puts "BUC60889: OK; (case 2)"
+}
+
+
diff --git a/tests/bugs/moddata/buc60895 b/tests/bugs/moddata/buc60895
new file mode 100644 (file)
index 0000000..1860d0a
--- /dev/null
@@ -0,0 +1,18 @@
+
+puts "============"
+puts "BUC60895"
+puts "============"
+puts ""
+##############################################################
+##If give command "sameparameter edge" on attached edge in the DRAW this command hang. 
+##############################################################
+
+restore [locate_data_file BUC60895.brep] result
+
+fsameparameter result
+puts [checkshape result]
+
+set check_square 1
+set length 12.6012
+set 2dviewer 0
+
diff --git a/tests/bugs/moddata/buc60897 b/tests/bugs/moddata/buc60897
new file mode 100644 (file)
index 0000000..e26a4ec
--- /dev/null
@@ -0,0 +1,72 @@
+puts "========"
+puts "BUC60897"
+puts "========"
+
+pload QAcommands
+
+if [catch { set result [BUC60897] } ] {
+  puts "BUC60897: Error; (case 1)"
+} else {
+  set len [llength ${result}]
+  if {${len} < 21} {
+    puts "length = ${len}"
+    puts "BUC60897: Error; (case 2)"
+  } else {
+    set circle_X [lindex ${result} 3]
+    set circle_Y [lindex ${result} 5]
+    set circle_R [lindex ${result} 7]
+    set tangency1_X [lindex ${result} 11]
+    set tangency1_Y [lindex ${result} 13]
+    set tangency2_X [lindex ${result} 17]
+    set tangency2_Y [lindex ${result} 19]
+
+    set x1 [expr abs(${tangency1_X} - ${circle_X})]
+    set y1 [expr abs(${tangency1_Y} - ${circle_Y})]
+    set R1 [expr sqrt(${x1} * ${x1} + ${y1} * ${y1})]
+
+    set x2 [expr abs(${tangency2_X} - ${circle_X})]
+    set y2 [expr abs(${tangency2_Y} - ${circle_Y})]
+    set R2 [expr sqrt(${x2} * ${x2} + ${y2} * ${y2})]
+
+    set maxdelta 1.0
+    set delta_R1 [expr abs(${R1} - ${circle_R}) / ${circle_R} * 100.]
+    set delta_R2 [expr abs(${R2} - ${circle_R}) / ${circle_R} * 100.]
+
+    if {${delta_R1} > ${maxdelta}} {
+      puts "circle_X = ${circle_X}"
+      puts "circle_Y = ${circle_Y}"
+      puts "circle_R = ${circle_R}"
+      puts "tangency1_X = ${tangency1_X}"
+      puts "tangency1_Y = ${tangency1_Y}"
+      puts "x1 = ${x1}"
+      puts "y1 = ${y1}"
+      puts "R1 = ${R1}"
+      puts "delta_R1 = ${delta_R1}"
+      puts "maxdelta = ${maxdelta}"
+      puts "BUC60897: Error; (case 3)"
+    } else {
+      puts "BUC60897: OK; (case 1)"
+    }
+
+    if {${delta_R2} > ${maxdelta}} {
+      puts "circle_X = ${circle_X}"
+      puts "circle_Y = ${circle_Y}"
+      puts "circle_R = ${circle_R}"
+      puts "tangency2_X = ${tangency2_X}"
+      puts "tangency2_Y = ${tangency2_Y}"
+      puts "x2 = ${x2}"
+      puts "y2 = ${y2}"
+      puts "R2 = ${R2}"
+      puts "delta_R2 = ${delta_R2}"
+      puts "maxdelta = ${maxdelta}"
+      puts "BUC60897: Error; (case 4)"
+    } else {
+      puts "BUC60897: OK; (case 2)"
+    }
+
+  }
+}
+
+set 3dviewer 0
+
+
diff --git a/tests/bugs/moddata/buc60911 b/tests/bugs/moddata/buc60911
new file mode 100644 (file)
index 0000000..38a262f
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "============"
+puts "BUC60911"
+puts "============"
+
+#####################################################
+## Bad value of the volume of the shape. 
+#####################################################
+
+restore [locate_data_file BUC60911.brep] result
+invert result
+
+set check_square 1
+set square 16353.8
+set 2dviewer 0
diff --git a/tests/bugs/moddata/buc60924 b/tests/bugs/moddata/buc60924
new file mode 100644 (file)
index 0000000..f32c584
--- /dev/null
@@ -0,0 +1,24 @@
+
+puts "========"
+puts "BUC60924"
+puts "========"
+puts ""
+
+##################################################
+## ShapeAnalysisStd_Curve::IsPlanar works incorrectly with a conic curve.
+################################################## 
+
+pload QAcommands
+
+ellipse el 0 0 1 20 10
+
+set result1 [BUC60924 el 0 0 1]
+
+if {${result1} != "The curve is planar !\n"} {
+    puts "BUC60924: Error"
+} else {
+    puts "BUC60924: OK"
+}
+
+set 3dviewer 1
+
diff --git a/tests/bugs/moddata/buc60955 b/tests/bugs/moddata/buc60955
new file mode 100644 (file)
index 0000000..022fd2e
--- /dev/null
@@ -0,0 +1,15 @@
+
+puts "==========="
+puts "  BUC60955"
+puts "==========="
+
+puts "Restoring face from file"
+restore [locate_data_file buc60955.brep] result
+puts [checkshape result]
+
+build3d result
+
+set check_square 1
+set square 8464.65
+set 2dviewer 0
+
diff --git a/tests/bugs/moddata/buc60960 b/tests/bugs/moddata/buc60960
new file mode 100644 (file)
index 0000000..77b6cfe
--- /dev/null
@@ -0,0 +1,30 @@
+
+puts "==========="
+puts "  BUC60960"
+puts "==========="
+
+proc do_offsets {i} {
+    global c c1 c2 c3 c4 c5
+
+    set poles {{0 0 1} {0 1 1} {1 1 1} {1 0 1} {2 0 1} {2 -1 1} {1 -1 1} \
+                  {1 -2 1} {0 -2 1} {0 -1 1} {-1 -1 1} {-1 0 1}}
+    set knots {{0 1} {1 1} {2 1} {3 1} {4 1} {5 1} {6 1} {7 1} {8 1} {9 1} \
+                  {10 1} {11 1} {12 1}}
+    eval 2dpbsplinecurve c 3 [llength $knots] [join $knots] [join $poles]
+
+
+    if [catch {offset c1 c 0.1}] {puts "while creating c1 at step $i"}
+    if [catch {offset c2 c 0.2}] {puts "while creating c2 at step $i"}
+    if [catch {offset c3 c 0.3}] {puts "while creating c3 at step $i"}
+    if [catch {offset c4 c 0.4}] {puts "while creating c4 at step $i"}
+    if [catch {offset c5 c 0.5}] {puts "while creating c5 at step $i"}
+    if [catch {offset c6 c 0.6}] {puts "while creating c6 at step $i"}
+    if [catch {offset c7 c 0.7}] {puts "while creating c7 at step $i"}
+    if [catch {offset c8 c 0.8}] {puts "while creating c8 at step $i"}
+}
+
+for {set i 0} {$i < 10} {incr i} {
+    do_offsets $i
+}
+
+
diff --git a/tests/bugs/moddata/buc60965 b/tests/bugs/moddata/buc60965
new file mode 100644 (file)
index 0000000..5c3093b
--- /dev/null
@@ -0,0 +1,24 @@
+
+puts "========================"
+puts "BUC60965"
+puts "========================"
+
+restore [locate_data_file buc60965-c.draw] c 
+restore [locate_data_file buc60965-s.draw] s
+
+project result c s
+
+regexp {The+ length+ result+ is +([-0-9.+eE]+)} [length result] full len
+set y [expr 3.e5+int(1.e5*($len-round($len)))]
+
+if { $y != 314196.0 } {
+   puts "Results is incorrect"
+}
+
+set 2dviewer 0
+
+
+
+
+
+
diff --git a/tests/bugs/moddata/buc60967 b/tests/bugs/moddata/buc60967
new file mode 100644 (file)
index 0000000..29f5991
--- /dev/null
@@ -0,0 +1,14 @@
+
+puts "========"                                                                                                                                                 
+puts "BUC60967"                                                                                                                                                 
+puts "========"                                                                                                                                                 
+puts ""                                                                         
+
+restore [locate_data_file buc60967.draw] bs2 
+
+to3d result bs2
+
+set 3dviewer 0
+
+
+
diff --git a/tests/bugs/moddata/buc60968 b/tests/bugs/moddata/buc60968
new file mode 100644 (file)
index 0000000..ec15968
--- /dev/null
@@ -0,0 +1,16 @@
+
+puts "========================"
+puts "BUC60968"
+puts "========================"
+
+restore [locate_data_file buc60968-c.draw] c 
+restore [locate_data_file buc60968-s1.draw] s1
+
+set che [extrema c s1]
+set err [llength $che]
+if { $err == 0} {
+    puts "Error : command extrema does NOT work properly"
+}
+
+
+
diff --git a/tests/bugs/moddata/buc61006 b/tests/bugs/moddata/buc61006
new file mode 100644 (file)
index 0000000..f54d8a2
--- /dev/null
@@ -0,0 +1,20 @@
+
+puts "========="
+puts "BUC61006"                
+puts "========="
+puts ""                                  
+#########################################################
+## Checkshape says that face is valid but it inludes selfintersecting wire. 
+#########################################################
+
+restore [locate_data_file buc61006.brep] result 
+decho off
+set ch [checkshape result]
+decho on
+
+if {![string compare $ch "This shape seems to be valid"]} {
+       puts "Error : the checkshape command returns incorrect result."
+}
+
+set 2dviewer 0
+
diff --git a/tests/bugs/moddata/bug20333 b/tests/bugs/moddata/bug20333
deleted file mode 100755 (executable)
index dcaf6dc..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-puts "TODO OCC12345 ALL: Faulty PRO20333: here is shading problem"
-
-puts "============"
-puts "PRO20333"
-puts ""
-puts "=================================="
-puts "It takes visual check for this BUG"
-puts "=================================="
-
-restore [locate_data_file pro20333a.brep] result
-puts [checkshape result]
-
-tclean result
-isos result 0
-incmesh result .1
-triangles result
-
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri != 107 || $nod != 109 } {  
-   puts "Faulty PRO20333: here is shading problem"
-}
-
-set 3dviewer 0
index dbe4525..d21dc13 100755 (executable)
@@ -1,6 +1,10 @@
+if { [array get env os_type] != "" } {
+    set os $env(os_type)
+}
 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
+if { [string compare $os "windows"] != 0 } {
+    puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+}
 puts "================"
 puts "OCC54"
 puts "================"
diff --git a/tests/bugs/moddata/bug60637 b/tests/bugs/moddata/bug60637
deleted file mode 100755 (executable)
index 0beaab6..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-
-puts "========================"
-puts "BUC60637"
-puts "========================"
-
-restore [locate_data_file buc60637a.brep] result
-fsameparameter result
-
-set check_square 1
-set square 144.866
-set 2dviewer 0
diff --git a/tests/bugs/moddata/bug60652_1 b/tests/bugs/moddata/bug60652_1
deleted file mode 100755 (executable)
index b19c919..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "=========="
-puts "BUC60652"
-puts "Case 1"
-puts "=========="
-
-pload QAcommands
-
-restore [locate_data_file buc60652a.brep] result
-puts [checkshape result]
-BUC60652 result
-
-set check_square 1
-set square 19614.8
-set 2dviewer 0
diff --git a/tests/bugs/moddata/bug60652_2 b/tests/bugs/moddata/bug60652_2
deleted file mode 100755 (executable)
index 7f36042..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-
-puts "=========="
-puts "BUC60652"
-puts "Case 2"
-puts "=========="
-
-pload QAcommands
-
-restore [locate_data_file buc60652b.brep] result
-puts [checkshape result]
-BUC60652 result
-
-set check_square 1
-set square 29961
-set 2dviewer 0
-
diff --git a/tests/bugs/moddata/bug60652_3 b/tests/bugs/moddata/bug60652_3
deleted file mode 100755 (executable)
index 0591ce1..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "==========="
-puts "BUC60652"
-puts "Case 3"
-puts "==========="
-
-pload QAcommands
-
-restore [locate_data_file buc60652c.brep] result 
-puts [checkshape result]
-BUC60652 result
-
-set check_square 1
-set square 77815.1
-set 2dviewer 0
diff --git a/tests/bugs/moddata/bug60652_4 b/tests/bugs/moddata/bug60652_4
deleted file mode 100755 (executable)
index 79a20ab..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "=========="
-puts "BUC60652"
-puts "Case 4"
-puts "=========="
-
-pload QAcommands
-
-restore [locate_data_file shading_104.brep] result 
-puts [checkshape result]
-BUC60652 result
-
-set check_square 1
-set square 119134
-set 2dviewer 0
diff --git a/tests/bugs/moddata/bug60667 b/tests/bugs/moddata/bug60667
deleted file mode 100755 (executable)
index b842410..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-
-puts "==================="
-puts "BUG60667"
-puts "==================="
-
-restore [locate_data_file buc60667a.brep] result
-fsameparameter result
-puts [checkshape result]
-
-set 2dviewer 0
-
-
diff --git a/tests/bugs/moddata/bug60707 b/tests/bugs/moddata/bug60707
deleted file mode 100755 (executable)
index 7a9f84d..0000000
+++ /dev/null
@@ -1,25 +0,0 @@
-
-puts "==========="
-puts "BUC60707"
-puts "==========="
-puts ""
-#################################################
-## Fillets created in CasCade version 3 do not display as shaded surfaces. 
-#################################################
-restore [locate_data_file buc60707a.brep] result
-puts [checkshape result]
-
-tclean result
-incmesh result .1
-triangles result
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full Maxtriangl
-
-if { $Maxtriangl < 1 } {
-   puts "Error : inside mesh for shading wasn't build"
-}
-
-set 3dviewer 0
-
-
-
diff --git a/tests/bugs/moddata/bug60729 b/tests/bugs/moddata/bug60729
deleted file mode 100755 (executable)
index 1942692..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-
-puts "========================"
-puts "BUC60729"
-puts "========================"
-
-pload QAcommands
-
-if [catch {BUC60729} ] {
-  puts "BUC60729: Error"
-} else {
-  puts "BUC60729: OK"
-}
-
-set 3dviewer 1
diff --git a/tests/bugs/moddata/bug60755 b/tests/bugs/moddata/bug60755
deleted file mode 100755 (executable)
index 758a13f..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "========================"
-puts "BUC60755"
-puts "========================"
-
-restore [locate_data_file buc60755a.brep] a 
-puts [checkshape a]
-
-#########################################
-# "tcopy" command of a valid shape give a no-valid shape. 
-#########################################
-
-tcopy a result
-puts [checkshape result]
-
-set check_square 1
-set square 623.832
-set 2dviewer 0
-
-
-
-
diff --git a/tests/bugs/moddata/bug60769 b/tests/bugs/moddata/bug60769
deleted file mode 100755 (executable)
index 161d881..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-
-puts "============="
-puts "BUC60769"
-puts "============="
-
-restore [locate_data_file buc60769a.brep] result
-puts [checkshape result]
-
-set 2dviewer 0
-
-
diff --git a/tests/bugs/moddata/bug60825 b/tests/bugs/moddata/bug60825
deleted file mode 100755 (executable)
index 0f28d3c..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-puts "========================"
-puts "BUC60825"
-puts "========================"
-
-pload QAcommands
-
-line aLine 0 0 0 0 0 1
-mkedge aEdge1 aLine
-restore [locate_data_file buc60825.brep] aEdge2 
-puts [checkshape aEdge2]
-
-distmini d aEdge1 aEdge2
-regexp {NB RESULTS +: +([-0-9.+eE]+)} [BUC60825 aEdge1 aEdge2] full ext
-if { $ext != 0 } {
-    puts "Error : The extrema has not been calculated."
-}
-
-
-
-
diff --git a/tests/bugs/moddata/bug60828 b/tests/bugs/moddata/bug60828
deleted file mode 100755 (executable)
index c7e74d2..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-
-puts "========"
-puts "BUC60828"
-puts "========"
-puts ""
-
-catch {BUC60828}
-
-
-
-
diff --git a/tests/bugs/moddata/bug60842 b/tests/bugs/moddata/bug60842
deleted file mode 100755 (executable)
index d8abb20..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-
-puts "========"
-puts "BUC60842"
-puts "========"
-
-pload QAcommands
-vinit
-
-if [catch {BUC60842} catch_result] {
-    puts "Faulty BUC60842"
-} else {
-    puts "BUC60842 OK"
-}
-
-set 3dviewer 1
-
diff --git a/tests/bugs/moddata/bug60848 b/tests/bugs/moddata/bug60848
deleted file mode 100755 (executable)
index d2e7308..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-
-puts "============"
-puts "BUC60848"
-puts "============"
-puts ""
-
-pload QAcommands
-
-restore [locate_data_file BUC60848.brep] a 
-puts [checkshape a]
-
-tcopy a res
-
-set Flag 0
-
-set Res [ catch { BUC60848 a } ]
-if { $Res != 0 } {
-    invert a
-    set Flag 1
-    puts ""
-}
-
-if { $Flag == 1 } {
-    set Res [ catch { BUC60848 a } ]
-    if { $Res != 0 } {
-        set Flag 2
-    }
-    puts ""
-}
-
-if { $Flag == 2 } {
-    puts "TEST FINISHED. RESULT IS BAD. Faulty"
-    puts ""
-}
-
-if { $Flag == 1 } {
-    puts "TEST FINISHED. RESULT IS OK. SHAPE HAS BEEN INVERTED."
-    puts ""
-}
-
-if { $Flag == 0 } {
-    puts "TEST FINISHED. RESULT IS OK."
-    puts ""
-}
-
diff --git a/tests/bugs/moddata/bug60852 b/tests/bugs/moddata/bug60852
deleted file mode 100755 (executable)
index c51594f..0000000
+++ /dev/null
@@ -1,68 +0,0 @@
-
-puts "========"
-puts "BUC60852"
-puts "BUC60923"
-puts "========"
-
-pload QAcommands
-
-set bndbox_X1 0
-set bndbox_Y1 0
-set bndbox_Z1 0
-set bndbox_X2 30
-set bndbox_Y2 10
-set bndbox_Z2 20
-
-set point_1_1_X -20
-set point_1_1_Y -5
-set point_1_1_Z 10
-set point_1_2_X 50
-set point_1_2_Y 15
-set point_1_2_Z 10
-
-vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
-vertex vertex_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z
-
-edge edge_1 vertex_1_1 vertex_1_2
-
-puts ""
-
-set point_2_1_X -20
-set point_2_1_Y -10
-set point_2_1_Z 10
-set point_2_2_X 50
-set point_2_2_Y -10
-set point_2_2_Z 10
-
-vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
-vertex vertex_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z
-
-edge edge_2 vertex_2_1 vertex_2_2
-
-puts ""
-
-box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2
-
-
-line line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z [ expr { $point_1_1_X - $point_1_2_X } ] [ expr { $point_1_1_Y - $point_1_2_Y } ] [ expr { $point_1_1_Z - $point_1_2_Z } ]
-
-line line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z [ expr { $point_2_1_X - $point_2_2_X } ] [ expr { $point_2_1_Y - $point_2_2_Y } ] [ expr { $point_2_1_Z - $point_2_2_Z } ]
-
-puts ""
-
-set result1 [BUC60852 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
-if {${result1} != "Line that lies on edge intersects the box\n"} {
-  puts "BUC60852: Error; (case 1)"
-} else {
-  puts "BUC60852: OK; (case 1)"
-}
-
-puts ""
-
-set result2 [BUC60852 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
-if {${result2} != "Line that lies on edge does not intersect the box\n"} {
-  puts "BUC60852: Error; (case 2)"
-} else {
-  puts "BUC60852: OK; (case 2)"
-}
-
diff --git a/tests/bugs/moddata/bug60854 b/tests/bugs/moddata/bug60854
deleted file mode 100755 (executable)
index 8a3cf41..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-puts "TODO OCC12345 ALL: BUC60854: Error"
-
-puts "========"
-puts "BUC60854"
-puts "========"
-
-pload QAcommands
-
-plane test_plane
-mkface test_face test_plane 0 1 0 1
-
-vertex test_vertex_1 0 0.5 0
-vertex test_vertex_2 1 0.5 0
-edge test_edge test_vertex_1 test_vertex_2
-
-splitshape test_shape test_face test_face test_edge
-
-explode test_shape f
-
-renamevar test_shape_1 test_face
-
-vertex test_vertex_3 0.2 0.5 0
-vertex test_vertex_4 0.8 0.5 0
-edge test_edge_1 test_vertex_3 test_vertex_4
-
-vertex test_vertex_5 0 1 0
-edge test_edge_2 test_vertex_5 test_vertex_3
-
-vertex test_vertex_6 1 1 0
-edge test_edge_3 test_vertex_4 test_vertex_6
-
-BUC60854 result test_shape test_face test_edge_2 test_edge_3 @ test_edge test_edge_1
-
-erase test_plane
-
-regexp {FACE +: +([-0-9.+eE]+)} [numshapes result] full FACE_num
-
-if {${FACE_num} != 3} {
-  puts "BUC60854: Error"
-}
-
-set 2dviewer 0
-
diff --git a/tests/bugs/moddata/bug60868 b/tests/bugs/moddata/bug60868
deleted file mode 100755 (executable)
index 9e56888..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-
-puts "========"                                                                                                                                                 
-puts "BUC60868"                                                                                                                                                 
-puts "========"                                                                                                                                                 
-puts ""                                                                         
-
-pload QAcommands
-
-restore [locate_data_file buc60868.brep] sh 
-puts [checkshape sh]
-
-BUC60868 result sh
-puts [checkshape result]
-
-set len [llength [explode result w]]
-if { $len != 3 } {
-    puts "Error : the number of curves is $len, but it should be 3."
-}
-
-set 2dviewer 0
-
diff --git a/tests/bugs/moddata/bug60870 b/tests/bugs/moddata/bug60870
deleted file mode 100755 (executable)
index 8bc322b..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-
-puts "========"
-puts "BUC60870"
-puts "========"
-
-pload QAcommands
-
-vertex vertex_1 0 0 0
-vertex vertex_2 0 1 0
-vertex vertex_3 0 0.3 1
-
-edge edge_1 vertex_1 vertex_2
-
-set result [BUC60870 test_result edge_1 vertex_3 2.0]
-
-if {[llength ${result}] < 4} {
-  puts "BUC60870: Error; must be 3 solutions"
-} else {
-  set MinimumDistance [dval test_result_val]
-  set TheorMinimumDistance 1.0
-  set percent_max 1.0
-  set percent [expr abs(${MinimumDistance} - ${TheorMinimumDistance}) / ${TheorMinimumDistance} * 100.]
-  if {${percent} > ${percent_max}} {
-    puts "MinimumDistance=${MinimumDistance}"
-    puts "TheorMinimumDistance=${TheorMinimumDistance}"
-    puts "percent=${percent}"
-    puts "percent_max=${percent_max}"
-    puts "BUC60870: Error; bad value of minimum distance"
-  } else {
-    puts "BUC60870: OK"
-  }
-}
-
-set 2dviewer 0
-
diff --git a/tests/bugs/moddata/bug60889 b/tests/bugs/moddata/bug60889
deleted file mode 100755 (executable)
index e7ed39f..0000000
+++ /dev/null
@@ -1,93 +0,0 @@
-
-puts "========"
-puts "BUC60889"
-puts "BUC60947"
-puts "========"
-
-pload QAcommands
-
-set bndbox_X1 0
-set bndbox_Y1 0
-set bndbox_Z1 0
-set bndbox_X2 30
-set bndbox_Y2 10
-set bndbox_Z2 20
-
-set point_1_1_X -30
-set point_1_1_Y -10
-set point_1_1_Z 5
-set point_1_2_X -30
-set point_1_2_Y -10
-set point_1_2_Z 15
-
-set point_1_3_X -15
-set point_1_3_Y -5
-set point_1_3_Z 5
-
-set dx_1 [ expr { $point_1_3_X - $point_1_1_X } ]
-set dy_1 [ expr { $point_1_3_Y - $point_1_1_Y } ]
-set dz_1 [ expr { $point_1_3_Z - $point_1_1_Z } ]
-
-point point_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
-point point_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z
-polyline p_line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $point_1_2_X $point_1_2_Y $point_1_2_Z
-vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
-vertex vertex_1_2 $point_1_3_X $point_1_3_Y $point_1_3_Z
-edge edge_1 vertex_1_1 vertex_1_2
-
-puts ""
-
-set point_2_1_X 30
-set point_2_1_Y 10
-set point_2_1_Z -5
-set point_2_2_X 30
-set point_2_2_Y 10
-set point_2_2_Z -15
-
-set point_2_3_X 0
-set point_2_3_Y 10
-set point_2_3_Z -5
-
-set dx_2 [ expr { $point_2_3_X - $point_2_1_X } ]
-set dy_2 [ expr { $point_2_3_Y - $point_2_1_Y } ]
-set dz_2 [ expr { $point_2_3_Z - $point_2_1_Z } ]
-
-point point_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
-point point_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z
-polyline p_line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z $point_2_2_X $point_2_2_Y $point_2_2_Z
-vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
-vertex vertex_2_2 $point_2_3_X $point_2_3_Y $point_2_3_Z
-edge edge_2 vertex_2_1 vertex_2_2
-
-puts ""
-
-box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2
-
-
-line line_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $dx_1 $dy_1 $dz_1
-line line_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z $dx_1 $dy_1 $dz_1
-
-line line_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z $dx_2 $dy_2 $dz_2
-line line_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z $dx_2 $dy_2 $dz_2
-
-puts ""
-
-set result1 [BUC60889 point_1_1 point_1_2 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
-
-if {${result1} != "The band intersects the box\n"} {
-  puts "BUC60889: Error; (case 1)"
-} else {
-  puts "BUC60889: OK; (case 1)"
-}
-
-puts ""
-
-set result2 [BUC60889 point_2_1 point_2_2 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
-
-if {${result2} != "The band lies out of the box\n"} {
-  puts "BUC60889: Error; (case 2)"
-} else {
-  puts "BUC60889: OK; (case 2)"
-}
-
-
diff --git a/tests/bugs/moddata/bug60895 b/tests/bugs/moddata/bug60895
deleted file mode 100755 (executable)
index 1860d0a..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-
-puts "============"
-puts "BUC60895"
-puts "============"
-puts ""
-##############################################################
-##If give command "sameparameter edge" on attached edge in the DRAW this command hang. 
-##############################################################
-
-restore [locate_data_file BUC60895.brep] result
-
-fsameparameter result
-puts [checkshape result]
-
-set check_square 1
-set length 12.6012
-set 2dviewer 0
-
diff --git a/tests/bugs/moddata/bug60897 b/tests/bugs/moddata/bug60897
deleted file mode 100755 (executable)
index e26a4ec..0000000
+++ /dev/null
@@ -1,72 +0,0 @@
-puts "========"
-puts "BUC60897"
-puts "========"
-
-pload QAcommands
-
-if [catch { set result [BUC60897] } ] {
-  puts "BUC60897: Error; (case 1)"
-} else {
-  set len [llength ${result}]
-  if {${len} < 21} {
-    puts "length = ${len}"
-    puts "BUC60897: Error; (case 2)"
-  } else {
-    set circle_X [lindex ${result} 3]
-    set circle_Y [lindex ${result} 5]
-    set circle_R [lindex ${result} 7]
-    set tangency1_X [lindex ${result} 11]
-    set tangency1_Y [lindex ${result} 13]
-    set tangency2_X [lindex ${result} 17]
-    set tangency2_Y [lindex ${result} 19]
-
-    set x1 [expr abs(${tangency1_X} - ${circle_X})]
-    set y1 [expr abs(${tangency1_Y} - ${circle_Y})]
-    set R1 [expr sqrt(${x1} * ${x1} + ${y1} * ${y1})]
-
-    set x2 [expr abs(${tangency2_X} - ${circle_X})]
-    set y2 [expr abs(${tangency2_Y} - ${circle_Y})]
-    set R2 [expr sqrt(${x2} * ${x2} + ${y2} * ${y2})]
-
-    set maxdelta 1.0
-    set delta_R1 [expr abs(${R1} - ${circle_R}) / ${circle_R} * 100.]
-    set delta_R2 [expr abs(${R2} - ${circle_R}) / ${circle_R} * 100.]
-
-    if {${delta_R1} > ${maxdelta}} {
-      puts "circle_X = ${circle_X}"
-      puts "circle_Y = ${circle_Y}"
-      puts "circle_R = ${circle_R}"
-      puts "tangency1_X = ${tangency1_X}"
-      puts "tangency1_Y = ${tangency1_Y}"
-      puts "x1 = ${x1}"
-      puts "y1 = ${y1}"
-      puts "R1 = ${R1}"
-      puts "delta_R1 = ${delta_R1}"
-      puts "maxdelta = ${maxdelta}"
-      puts "BUC60897: Error; (case 3)"
-    } else {
-      puts "BUC60897: OK; (case 1)"
-    }
-
-    if {${delta_R2} > ${maxdelta}} {
-      puts "circle_X = ${circle_X}"
-      puts "circle_Y = ${circle_Y}"
-      puts "circle_R = ${circle_R}"
-      puts "tangency2_X = ${tangency2_X}"
-      puts "tangency2_Y = ${tangency2_Y}"
-      puts "x2 = ${x2}"
-      puts "y2 = ${y2}"
-      puts "R2 = ${R2}"
-      puts "delta_R2 = ${delta_R2}"
-      puts "maxdelta = ${maxdelta}"
-      puts "BUC60897: Error; (case 4)"
-    } else {
-      puts "BUC60897: OK; (case 2)"
-    }
-
-  }
-}
-
-set 3dviewer 0
-
-
diff --git a/tests/bugs/moddata/bug60911 b/tests/bugs/moddata/bug60911
deleted file mode 100755 (executable)
index 38a262f..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "============"
-puts "BUC60911"
-puts "============"
-
-#####################################################
-## Bad value of the volume of the shape. 
-#####################################################
-
-restore [locate_data_file BUC60911.brep] result
-invert result
-
-set check_square 1
-set square 16353.8
-set 2dviewer 0
diff --git a/tests/bugs/moddata/bug60924 b/tests/bugs/moddata/bug60924
deleted file mode 100755 (executable)
index f32c584..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-
-puts "========"
-puts "BUC60924"
-puts "========"
-puts ""
-
-##################################################
-## ShapeAnalysisStd_Curve::IsPlanar works incorrectly with a conic curve.
-################################################## 
-
-pload QAcommands
-
-ellipse el 0 0 1 20 10
-
-set result1 [BUC60924 el 0 0 1]
-
-if {${result1} != "The curve is planar !\n"} {
-    puts "BUC60924: Error"
-} else {
-    puts "BUC60924: OK"
-}
-
-set 3dviewer 1
-
diff --git a/tests/bugs/moddata/bug60955 b/tests/bugs/moddata/bug60955
deleted file mode 100755 (executable)
index 022fd2e..0000000
+++ /dev/null
@@ -1,15 +0,0 @@
-
-puts "==========="
-puts "  BUC60955"
-puts "==========="
-
-puts "Restoring face from file"
-restore [locate_data_file buc60955.brep] result
-puts [checkshape result]
-
-build3d result
-
-set check_square 1
-set square 8464.65
-set 2dviewer 0
-
diff --git a/tests/bugs/moddata/bug60960 b/tests/bugs/moddata/bug60960
deleted file mode 100755 (executable)
index 77b6cfe..0000000
+++ /dev/null
@@ -1,30 +0,0 @@
-
-puts "==========="
-puts "  BUC60960"
-puts "==========="
-
-proc do_offsets {i} {
-    global c c1 c2 c3 c4 c5
-
-    set poles {{0 0 1} {0 1 1} {1 1 1} {1 0 1} {2 0 1} {2 -1 1} {1 -1 1} \
-                  {1 -2 1} {0 -2 1} {0 -1 1} {-1 -1 1} {-1 0 1}}
-    set knots {{0 1} {1 1} {2 1} {3 1} {4 1} {5 1} {6 1} {7 1} {8 1} {9 1} \
-                  {10 1} {11 1} {12 1}}
-    eval 2dpbsplinecurve c 3 [llength $knots] [join $knots] [join $poles]
-
-
-    if [catch {offset c1 c 0.1}] {puts "while creating c1 at step $i"}
-    if [catch {offset c2 c 0.2}] {puts "while creating c2 at step $i"}
-    if [catch {offset c3 c 0.3}] {puts "while creating c3 at step $i"}
-    if [catch {offset c4 c 0.4}] {puts "while creating c4 at step $i"}
-    if [catch {offset c5 c 0.5}] {puts "while creating c5 at step $i"}
-    if [catch {offset c6 c 0.6}] {puts "while creating c6 at step $i"}
-    if [catch {offset c7 c 0.7}] {puts "while creating c7 at step $i"}
-    if [catch {offset c8 c 0.8}] {puts "while creating c8 at step $i"}
-}
-
-for {set i 0} {$i < 10} {incr i} {
-    do_offsets $i
-}
-
-
diff --git a/tests/bugs/moddata/bug60965 b/tests/bugs/moddata/bug60965
deleted file mode 100755 (executable)
index 5c3093b..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-
-puts "========================"
-puts "BUC60965"
-puts "========================"
-
-restore [locate_data_file buc60965-c.draw] c 
-restore [locate_data_file buc60965-s.draw] s
-
-project result c s
-
-regexp {The+ length+ result+ is +([-0-9.+eE]+)} [length result] full len
-set y [expr 3.e5+int(1.e5*($len-round($len)))]
-
-if { $y != 314196.0 } {
-   puts "Results is incorrect"
-}
-
-set 2dviewer 0
-
-
-
-
-
-
diff --git a/tests/bugs/moddata/bug60967 b/tests/bugs/moddata/bug60967
deleted file mode 100755 (executable)
index 29f5991..0000000
+++ /dev/null
@@ -1,14 +0,0 @@
-
-puts "========"                                                                                                                                                 
-puts "BUC60967"                                                                                                                                                 
-puts "========"                                                                                                                                                 
-puts ""                                                                         
-
-restore [locate_data_file buc60967.draw] bs2 
-
-to3d result bs2
-
-set 3dviewer 0
-
-
-
diff --git a/tests/bugs/moddata/bug60968 b/tests/bugs/moddata/bug60968
deleted file mode 100755 (executable)
index ec15968..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-
-puts "========================"
-puts "BUC60968"
-puts "========================"
-
-restore [locate_data_file buc60968-c.draw] c 
-restore [locate_data_file buc60968-s1.draw] s1
-
-set che [extrema c s1]
-set err [llength $che]
-if { $err == 0} {
-    puts "Error : command extrema does NOT work properly"
-}
-
-
-
diff --git a/tests/bugs/moddata/bug61006 b/tests/bugs/moddata/bug61006
deleted file mode 100755 (executable)
index f54d8a2..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-
-puts "========="
-puts "BUC61006"                
-puts "========="
-puts ""                                  
-#########################################################
-## Checkshape says that face is valid but it inludes selfintersecting wire. 
-#########################################################
-
-restore [locate_data_file buc61006.brep] result 
-decho off
-set ch [checkshape result]
-decho on
-
-if {![string compare $ch "This shape seems to be valid"]} {
-       puts "Error : the checkshape command returns incorrect result."
-}
-
-set 2dviewer 0
-
diff --git a/tests/bugs/moddata/bug62476_1 b/tests/bugs/moddata/bug62476_1
deleted file mode 100755 (executable)
index da675ce..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-puts "TODO OCC12345 ALL: Error : here is shading problem"
-
-puts "============"
-puts "FRA62476"
-puts ""                                                                                  
-puts "=================================="                                                
-puts "It takes visual check for this BUG"                                                
-puts "=================================="                                                
-puts ""
-
-restore [locate_data_file fra62476a.brep] result
-puts [checkshape result]
-
-tclean result
-incmesh result .1
-triangles result
-
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri != 93 && $nod != 56 } {
-   puts "Error : here is shading problem"
-}
-
-set 3dviewer 0
-
-
-
diff --git a/tests/bugs/moddata/bug62476_2 b/tests/bugs/moddata/bug62476_2
deleted file mode 100755 (executable)
index 379f01e..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-
-puts "=========="
-puts "FRA62476"
-puts ""                                                                                  
-puts "=================================="                                                
-puts "It takes visual check for this BUG"                                                
-puts "=================================="                                                
-puts ""
-
-restore [locate_data_file fra62476b.brep] result 
-puts [checkshape result]
-
-tclean result
-incmesh result .1
-triangles result
-
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri !=239 && $nod != 145 } {
-   puts "Shady FRA62476: here may be shading problem, number tri & nod
-   are changed"
-}
-
-set 3dviewer 0
-
-
diff --git a/tests/bugs/moddata/fra62476_1 b/tests/bugs/moddata/fra62476_1
new file mode 100644 (file)
index 0000000..da675ce
--- /dev/null
@@ -0,0 +1,29 @@
+puts "TODO OCC12345 ALL: Error : here is shading problem"
+
+puts "============"
+puts "FRA62476"
+puts ""                                                                                  
+puts "=================================="                                                
+puts "It takes visual check for this BUG"                                                
+puts "=================================="                                                
+puts ""
+
+restore [locate_data_file fra62476a.brep] result
+puts [checkshape result]
+
+tclean result
+incmesh result .1
+triangles result
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri != 93 && $nod != 56 } {
+   puts "Error : here is shading problem"
+}
+
+set 3dviewer 0
+
+
+
diff --git a/tests/bugs/moddata/fra62476_2 b/tests/bugs/moddata/fra62476_2
new file mode 100644 (file)
index 0000000..379f01e
--- /dev/null
@@ -0,0 +1,28 @@
+
+puts "=========="
+puts "FRA62476"
+puts ""                                                                                  
+puts "=================================="                                                
+puts "It takes visual check for this BUG"                                                
+puts "=================================="                                                
+puts ""
+
+restore [locate_data_file fra62476b.brep] result 
+puts [checkshape result]
+
+tclean result
+incmesh result .1
+triangles result
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri !=239 && $nod != 145 } {
+   puts "Shady FRA62476: here may be shading problem, number tri & nod
+   are changed"
+}
+
+set 3dviewer 0
+
+
diff --git a/tests/bugs/moddata/pro20333 b/tests/bugs/moddata/pro20333
new file mode 100644 (file)
index 0000000..dcaf6dc
--- /dev/null
@@ -0,0 +1,26 @@
+puts "TODO OCC12345 ALL: Faulty PRO20333: here is shading problem"
+
+puts "============"
+puts "PRO20333"
+puts ""
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+
+restore [locate_data_file pro20333a.brep] result
+puts [checkshape result]
+
+tclean result
+isos result 0
+incmesh result .1
+triangles result
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri != 107 || $nod != 109 } {  
+   puts "Faulty PRO20333: here is shading problem"
+}
+
+set 3dviewer 0
diff --git a/tests/bugs/step/buc60624 b/tests/bugs/step/buc60624
new file mode 100644 (file)
index 0000000..29a53cd
--- /dev/null
@@ -0,0 +1,10 @@
+puts "========================"
+puts "BUC60624"
+puts "========================"
+
+stepread [locate_data_file buc60624a.stp] a *
+
+tpcompound result
+puts [checkshape result]
+
+set 2dviewer 0
diff --git a/tests/bugs/step/buc60809 b/tests/bugs/step/buc60809
new file mode 100644 (file)
index 0000000..1d02ef1
--- /dev/null
@@ -0,0 +1,19 @@
+puts "========================"
+puts "BUC60809"
+puts "========================"
+
+################################################################
+### Reading file teststp.stp produces a sphere without restriction which is not usable in the viewer 
+################################################################
+
+param read.step.product.mode OFF
+stepread [locate_data_file BUC60809.stp] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+
+
+
diff --git a/tests/bugs/step/buc60810 b/tests/bugs/step/buc60810
new file mode 100644 (file)
index 0000000..a1e9f31
--- /dev/null
@@ -0,0 +1,13 @@
+puts "==========="
+puts "BUC60810"
+puts "==========="
+
+#################################################
+## Reading file sample.stp crashes. 
+#################################################
+
+stepread [locate_data_file BUC60810.stp] a *
+
+tpcompound result
+
+set 2dviewer 0
diff --git a/tests/bugs/step/buc60906 b/tests/bugs/step/buc60906
new file mode 100644 (file)
index 0000000..d608ebf
--- /dev/null
@@ -0,0 +1,74 @@
+# by apn master-master 03.12.2012
+#puts "TODO OCC12345 ALL: An exception was caught"
+#puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
+puts "TODO OCC12345 ALL: Faulty OCC294"
+puts "TODO OCC12345 ALL: Error : OCC294"
+#puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+
+puts "========================"
+puts " BUC60906 "
+puts "========================"
+
+cpulimit 3000
+pload QAcommands
+
+stepread [locate_data_file carcasse_gauche_simpl3.stp] a *
+
+tpcompound com
+
+set AllEdgesList [explode com e]
+set list [split ${AllEdgesList}]
+set NumbEdges [llength ${list}]
+set delta 0.03
+set IsSmallEdges 0
+
+set IsOK 1
+
+for {set i 1} {${i} <= ${NumbEdges}} {incr i} {
+   set i_tolerance [maxtolerance com_${i}]
+   set i_list [split ${i_tolerance} "\n\t"]
+   set i_listLength [llength ${i_list}]
+   if { ${i_listLength} < 7 } then {
+      puts "BUC60906 - Error : i = ${i}"
+      puts "BUC60906 - Error : i_listLength = ${i_listLength}"
+   }
+   set i_EdgeList [lindex ${i_list} 3]
+   set i_MaxEdgeTolerance [lindex [split ${i_EdgeList}] [expr [llength [split ${i_EdgeList}] ] - 2] ]
+   #puts "i_MaxEdgeTolerance = ${i_MaxEdgeTolerance}"
+   if { ${i_MaxEdgeTolerance} > ${delta} } then {
+       set IsSmallEdges 1
+       puts "Remove ${i}-th small edge with a tolerance of ${delta} mm"
+
+       if [catch { OCC294 shape_result com com_${i} } result] {
+          puts "Error : OCC294"
+          set IsOK 0
+          break
+       }
+
+       renamevar shape_result com
+   }
+}
+if { ${IsOK} == 1 } {
+   if { ${IsSmallEdges} == 0 } {
+      puts "Error : here are not small edges"
+      set IsOK 0
+   }
+}
+
+if { ${IsOK} == 1 } {
+   set fullness [nbshapes com]
+   regexp {VERTEX +: +([-0-9.+eE]+)} $fullness full vert
+   regexp {EDGE +: +([-0-9.+eE]+)} $fullness full edg
+   if { $edg == 0 || $vert == 0 } { 
+      puts "Error : it is Faulty result" 
+      set IsOK 0
+   }
+} 
+
+if { ${IsOK} == 1 } {
+   fixshape result com ${delta}
+   puts [ checkshape result]
+   puts [checkshape result r]
+}
+
+set 2dviewer 0
diff --git a/tests/bugs/step/buc60948 b/tests/bugs/step/buc60948
new file mode 100644 (file)
index 0000000..3292aa9
--- /dev/null
@@ -0,0 +1,32 @@
+set os $env(os_type)
+if { [string compare $os "windows"] == 0 } {
+#     puts "TODO OCC23561 $os: child process exited abnormally"
+} else {
+    puts "TODO OCC23561 ALL: An exception was caught"
+    puts "TODO OCC23561 ALL: Tcl Exception:"
+    puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
+}
+puts "TODO OCC23561 ALL: TEST INCOMPLETE"
+
+puts "========================"
+puts "BUC60948"
+puts "========================"
+
+restore [locate_data_file pump4.brep] a_1 
+puts [checkshape a_1]
+
+#####################################################################
+catch {exec rm ${imagedir}/buc60948.stp}
+stepwrite a a_1 ${imagedir}/buc60948.stp
+
+dall
+
+stepread ${imagedir}/buc60948.stp a *
+
+tpcompound result
+puts [checkshape result]
+
+set 2dviewer 0
+
+
+
diff --git a/tests/bugs/step/bug19854 b/tests/bugs/step/bug19854
deleted file mode 100755 (executable)
index 2d4bae1..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-puts "=========="
-puts "PRO19854"
-puts "=========="
-puts "Incorrect translation of one entity from STEP file in optimaze mode of C30."
-
-stepread [locate_data_file id_turbine-B.stp] a *
-
-puts [checkshape a_1]
-puts [checkshape a_1 r]
-
-renamevar a_1 result
-
-tpdraw 2637
-
-puts [checkshape tp_2637]
-puts [checkshape tp_2637 r]
-
-set 2dviewer 0
-
diff --git a/tests/bugs/step/bug19895 b/tests/bugs/step/bug19895
deleted file mode 100755 (executable)
index c202d42..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-puts "=========="
-puts "PRO19895"
-puts "=========="
-
-#############################################################################
-## There is wrong tolerance after reading of the model in optimaze mode (C30). Retrive entity number 2139 from file
-## "bm4_db_punch_a.stp" and will obtaine tolerance. It is very big and isolains extend from entity. 
-#############################################################################
-
-stepread [locate_data_file bm4_db_punch_a.stp] a *
-
-tpcompound b
-isos b 0
-isos b 3
-tpcompound result
-
-tpdraw 2139
-
-puts [checkshape tp_2139]
-puts [checkshape tp_2139 r]
-
-set MaxTolerance [ lindex [ split [ lindex [tolerance tp_2139] 1 ] = ] 1 ]
-puts "MaxTolerance = $MaxTolerance"
-if { $MaxTolerance > 1 } {
-    puts "Error : Tolerance of shape is more then 1.0"
-}
-
-set 2dviewer 0
-
diff --git a/tests/bugs/step/bug20361_1 b/tests/bugs/step/bug20361_1
deleted file mode 100755 (executable)
index 2bca504..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-puts "================"
-puts "PRO20361"
-puts "case 1"
-puts "================"
-
-param read.step.product.mode OFF
-
-stepread [locate_data_file PRO20361-2.stp] a *
-
-tpcompound result
-
-set 2dviewer 0
diff --git a/tests/bugs/step/bug20361_2 b/tests/bugs/step/bug20361_2
deleted file mode 100755 (executable)
index 23ba2c7..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-puts "================"
-puts "PRO20361"
-puts "case 2"
-puts "================"
-
-param read.step.product.mode OFF
-stepread [locate_data_file PRO20361-1.stp] a *
-
-tpcompound result
-puts [checkshape result]
-puts [checkshape result r]
-
-set 2dviewer 0
diff --git a/tests/bugs/step/bug20361_3 b/tests/bugs/step/bug20361_3
deleted file mode 100755 (executable)
index c48e870..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-puts "================"
-puts "PRO20361"
-puts "case 3"
-puts "================"
-
-param read.step.product.mode OFF
-stepread [locate_data_file PRO20361-3.stp] a *
-
-tpcompound result
-puts [checkshape result]
-puts [checkshape result r]
-
-set 2dviewer 0
diff --git a/tests/bugs/step/bug20362 b/tests/bugs/step/bug20362
deleted file mode 100755 (executable)
index a80a6f1..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-puts "========================"
-puts "PRO20362"
-puts "========================"
-
-stepread [locate_data_file PRO20362.stp] a *
-
-explode a_1 f
-renamevar a_1 result
-
-puts [checkshape a_1_1]
-puts [checkshape a_1_1 r]
-
-set l [explode a_1_1 e]
-set n [llength $l]
-if { $n != 4 } {
-    puts "Error : The amount of edges in FIRST face is more than four"
-}
-
-puts [checkshape a_1_2]
-puts [checkshape a_1_2 r]
-
-set i [explode a_1_2 e]
-set m [llength $i]
-if { $m != 4 } {
-    puts "Faulty : The amount of edges in SECOND face is more than four"
-}
-
-set 2dviewer 0
index aeba84b..583543c 100755 (executable)
@@ -3,7 +3,7 @@ puts "OCC233"
 puts "========"
 puts "Problem during translation in dev in optimaze mode .Debug mode is OK)"
 
-stepread [locate_data_file Samtech_bottle.stp] a *
+stepread [locate_data_file Sbottle.stp] a *
 
 tpcompound result
 
diff --git a/tests/bugs/step/bug60624 b/tests/bugs/step/bug60624
deleted file mode 100755 (executable)
index 29a53cd..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-puts "========================"
-puts "BUC60624"
-puts "========================"
-
-stepread [locate_data_file buc60624a.stp] a *
-
-tpcompound result
-puts [checkshape result]
-
-set 2dviewer 0
diff --git a/tests/bugs/step/bug60809 b/tests/bugs/step/bug60809
deleted file mode 100755 (executable)
index 1d02ef1..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-puts "========================"
-puts "BUC60809"
-puts "========================"
-
-################################################################
-### Reading file teststp.stp produces a sphere without restriction which is not usable in the viewer 
-################################################################
-
-param read.step.product.mode OFF
-stepread [locate_data_file BUC60809.stp] a *
-
-tpcompound result
-puts [checkshape result]
-puts [checkshape result r]
-
-set 2dviewer 0
-
-
-
diff --git a/tests/bugs/step/bug60810 b/tests/bugs/step/bug60810
deleted file mode 100755 (executable)
index a1e9f31..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-puts "==========="
-puts "BUC60810"
-puts "==========="
-
-#################################################
-## Reading file sample.stp crashes. 
-#################################################
-
-stepread [locate_data_file BUC60810.stp] a *
-
-tpcompound result
-
-set 2dviewer 0
diff --git a/tests/bugs/step/bug60906 b/tests/bugs/step/bug60906
deleted file mode 100755 (executable)
index c3ee9e5..0000000
+++ /dev/null
@@ -1,74 +0,0 @@
-# by apn master-master 03.12.2012
-#puts "TODO OCC12345 ALL: An exception was caught"
-#puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
-puts "TODO OCC12345 ALL: Faulty OCC294"
-puts "TODO OCC12345 ALL: Error : OCC294"
-#puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
-puts "========================"
-puts " BUC60906 "
-puts "========================"
-
-cpulimit 3000
-pload QAcommands
-
-stepread [locate_data_file Samtech_carcasse_gauche_simpl3.stp] a *
-
-tpcompound com
-
-set AllEdgesList [explode com e]
-set list [split ${AllEdgesList}]
-set NumbEdges [llength ${list}]
-set delta 0.03
-set IsSmallEdges 0
-
-set IsOK 1
-
-for {set i 1} {${i} <= ${NumbEdges}} {incr i} {
-   set i_tolerance [maxtolerance com_${i}]
-   set i_list [split ${i_tolerance} "\n\t"]
-   set i_listLength [llength ${i_list}]
-   if { ${i_listLength} < 7 } then {
-      puts "BUC60906 - Error : i = ${i}"
-      puts "BUC60906 - Error : i_listLength = ${i_listLength}"
-   }
-   set i_EdgeList [lindex ${i_list} 3]
-   set i_MaxEdgeTolerance [lindex [split ${i_EdgeList}] [expr [llength [split ${i_EdgeList}] ] - 2] ]
-   #puts "i_MaxEdgeTolerance = ${i_MaxEdgeTolerance}"
-   if { ${i_MaxEdgeTolerance} > ${delta} } then {
-       set IsSmallEdges 1
-       puts "Remove ${i}-th small edge with a tolerance of ${delta} mm"
-
-       if [catch { OCC294 shape_result com com_${i} } result] {
-          puts "Error : OCC294"
-          set IsOK 0
-          break
-       }
-
-       renamevar shape_result com
-   }
-}
-if { ${IsOK} == 1 } {
-   if { ${IsSmallEdges} == 0 } {
-      puts "Error : here are not small edges"
-      set IsOK 0
-   }
-}
-
-if { ${IsOK} == 1 } {
-   set fullness [nbshapes com]
-   regexp {VERTEX +: +([-0-9.+eE]+)} $fullness full vert
-   regexp {EDGE +: +([-0-9.+eE]+)} $fullness full edg
-   if { $edg == 0 || $vert == 0 } { 
-      puts "Error : it is Faulty result" 
-      set IsOK 0
-   }