Added test cases to folders /bugs/modalg and /bugs/moddata from chl grid.
authorapn <apn@opencascade.com>
Fri, 25 Jan 2013 12:22:41 +0000 (16:22 +0400)
committerapn <apn@opencascade.com>
Fri, 25 Jan 2013 12:22:41 +0000 (16:22 +0400)
Modified TODO in some offset cases.
Deleted the same test cases bug697_* in /bugs/modalg
Deleted test cases which is based on v2d commands
Added test cases to folder bugs

185 files changed:
tests/bugs/caf/bug22788_1 [new file with mode: 0755]
tests/bugs/caf/bug22788_2 [new file with mode: 0755]
tests/bugs/fclasses/bug22611 [new file with mode: 0755]
tests/bugs/fclasses/bug22744 [new file with mode: 0755]
tests/bugs/fclasses/bug23192_1 [new file with mode: 0755]
tests/bugs/fclasses/bug23192_2 [new file with mode: 0755]
tests/bugs/iges/bug22294 [new file with mode: 0755]
tests/bugs/iges/bug22504 [new file with mode: 0755]
tests/bugs/modalg/bug20521 [new file with mode: 0755]
tests/bugs/modalg/bug20827 [new file with mode: 0755]
tests/bugs/modalg/bug21060 [new file with mode: 0755]
tests/bugs/modalg/bug21415 [new file with mode: 0755]
tests/bugs/modalg/bug21754 [new file with mode: 0755]
tests/bugs/modalg/bug21909 [new file with mode: 0755]
tests/bugs/modalg/bug22196 [new file with mode: 0755]
tests/bugs/modalg/bug22306_1 [new file with mode: 0755]
tests/bugs/modalg/bug22306_2 [new file with mode: 0755]
tests/bugs/modalg/bug22306_3 [new file with mode: 0755]
tests/bugs/modalg/bug22306_4 [new file with mode: 0755]
tests/bugs/modalg/bug22306_5 [new file with mode: 0755]
tests/bugs/modalg/bug22361 [new file with mode: 0755]
tests/bugs/modalg/bug22428 [new file with mode: 0755]
tests/bugs/modalg/bug22500 [new file with mode: 0755]
tests/bugs/modalg/bug22558 [new file with mode: 0755]
tests/bugs/modalg/bug22586 [new file with mode: 0755]
tests/bugs/modalg/bug22631 [new file with mode: 0755]
tests/bugs/modalg/bug22641 [new file with mode: 0755]
tests/bugs/modalg/bug22695 [new file with mode: 0755]
tests/bugs/modalg/bug22717 [new file with mode: 0755]
tests/bugs/modalg/bug22725 [new file with mode: 0755]
tests/bugs/modalg/bug22727 [new file with mode: 0755]
tests/bugs/modalg/bug22765 [new file with mode: 0755]
tests/bugs/modalg/bug22770_1 [new file with mode: 0755]
tests/bugs/modalg/bug22770_10 [new file with mode: 0755]
tests/bugs/modalg/bug22770_11 [new file with mode: 0755]
tests/bugs/modalg/bug22770_12 [new file with mode: 0755]
tests/bugs/modalg/bug22770_13 [new file with mode: 0755]
tests/bugs/modalg/bug22770_14 [new file with mode: 0755]
tests/bugs/modalg/bug22770_15 [new file with mode: 0755]
tests/bugs/modalg/bug22770_16 [new file with mode: 0755]
tests/bugs/modalg/bug22770_17 [new file with mode: 0755]
tests/bugs/modalg/bug22770_18 [new file with mode: 0755]
tests/bugs/modalg/bug22770_19 [new file with mode: 0755]
tests/bugs/modalg/bug22770_2 [new file with mode: 0755]
tests/bugs/modalg/bug22770_20 [new file with mode: 0755]
tests/bugs/modalg/bug22770_21 [new file with mode: 0755]
tests/bugs/modalg/bug22770_22 [new file with mode: 0755]
tests/bugs/modalg/bug22770_23 [new file with mode: 0755]
tests/bugs/modalg/bug22770_24 [new file with mode: 0755]
tests/bugs/modalg/bug22770_25 [new file with mode: 0755]
tests/bugs/modalg/bug22770_26 [new file with mode: 0755]
tests/bugs/modalg/bug22770_27 [new file with mode: 0755]
tests/bugs/modalg/bug22770_28 [new file with mode: 0755]
tests/bugs/modalg/bug22770_29 [new file with mode: 0755]
tests/bugs/modalg/bug22770_3 [new file with mode: 0755]
tests/bugs/modalg/bug22770_30 [new file with mode: 0755]
tests/bugs/modalg/bug22770_4 [new file with mode: 0755]
tests/bugs/modalg/bug22770_5 [new file with mode: 0755]
tests/bugs/modalg/bug22770_6 [new file with mode: 0755]
tests/bugs/modalg/bug22770_7 [new file with mode: 0755]
tests/bugs/modalg/bug22770_8 [new file with mode: 0755]
tests/bugs/modalg/bug22770_9 [new file with mode: 0755]
tests/bugs/modalg/bug22771 [new file with mode: 0755]
tests/bugs/modalg/bug22781_1 [new file with mode: 0755]
tests/bugs/modalg/bug22781_2 [new file with mode: 0755]
tests/bugs/modalg/bug22781_3 [new file with mode: 0755]
tests/bugs/modalg/bug22781_4 [new file with mode: 0755]
tests/bugs/modalg/bug22783 [new file with mode: 0755]
tests/bugs/modalg/bug22786 [new file with mode: 0755]
tests/bugs/modalg/bug22790 [new file with mode: 0755]
tests/bugs/modalg/bug22798_1 [new file with mode: 0755]
tests/bugs/modalg/bug22798_2 [new file with mode: 0755]
tests/bugs/modalg/bug22801 [new file with mode: 0755]
tests/bugs/modalg/bug22814 [new file with mode: 0755]
tests/bugs/modalg/bug22818_1 [new file with mode: 0755]
tests/bugs/modalg/bug22818_2 [new file with mode: 0755]
tests/bugs/modalg/bug22823 [new file with mode: 0755]
tests/bugs/modalg/bug22828 [new file with mode: 0755]
tests/bugs/modalg/bug22830 [new file with mode: 0755]
tests/bugs/modalg/bug22833 [new file with mode: 0755]
tests/bugs/modalg/bug22881 [new file with mode: 0755]
tests/bugs/modalg/bug22884 [new file with mode: 0755]
tests/bugs/modalg/bug22946 [new file with mode: 0755]
tests/bugs/modalg/bug22986 [new file with mode: 0755]
tests/bugs/modalg/bug22990 [new file with mode: 0755]
tests/bugs/modalg/bug23004 [new file with mode: 0755]
tests/bugs/modalg/bug23008 [new file with mode: 0755]
tests/bugs/modalg/bug23029 [new file with mode: 0755]
tests/bugs/modalg/bug23031 [new file with mode: 0755]
tests/bugs/modalg/bug23043 [new file with mode: 0755]
tests/bugs/modalg/bug23060 [new file with mode: 0755]
tests/bugs/modalg/bug23089 [new file with mode: 0755]
tests/bugs/modalg/bug23100 [new file with mode: 0755]
tests/bugs/modalg/bug23114 [new file with mode: 0755]
tests/bugs/modalg/bug23125 [new file with mode: 0755]
tests/bugs/modalg/bug23158 [new file with mode: 0755]
tests/bugs/modalg/bug23160 [new file with mode: 0755]
tests/bugs/modalg/bug23162_1 [new file with mode: 0755]
tests/bugs/modalg/bug23162_2 [new file with mode: 0755]
tests/bugs/modalg/bug23162_3 [new file with mode: 0755]
tests/bugs/modalg/bug23162_4 [new file with mode: 0755]
tests/bugs/modalg/bug23162_5 [new file with mode: 0755]
tests/bugs/modalg/bug23162_6 [new file with mode: 0755]
tests/bugs/modalg/bug23170 [new file with mode: 0755]
tests/bugs/modalg/bug23218 [new file with mode: 0755]
tests/bugs/modalg/bug397_1 [new file with mode: 0755]
tests/bugs/modalg/bug400_1 [new file with mode: 0755]
tests/bugs/modalg/bug6725 [new file with mode: 0755]
tests/bugs/modalg/bug697_10 [deleted file]
tests/bugs/modalg/bug697_11 [deleted file]
tests/bugs/modalg/bug697_12 [deleted file]
tests/bugs/modalg/bug697_3 [changed mode: 0644->0755]
tests/bugs/modalg/bug697_4 [changed mode: 0644->0755]
tests/bugs/modalg/bug697_5 [changed mode: 0644->0755]
tests/bugs/modalg/bug697_6 [changed mode: 0644->0755]
tests/bugs/modalg/bug697_7 [changed mode: 0644->0755]
tests/bugs/modalg/bug697_8 [changed mode: 0644->0755]
tests/bugs/modalg/bug697_9 [deleted file]
tests/bugs/modalg/bug8370 [new file with mode: 0755]
tests/bugs/moddata/bug22039 [new file with mode: 0755]
tests/bugs/moddata/bug22459 [new file with mode: 0755]
tests/bugs/moddata/bug22554_1 [new file with mode: 0755]
tests/bugs/moddata/bug22554_2 [new file with mode: 0755]
tests/bugs/moddata/bug22554_3 [new file with mode: 0755]
tests/bugs/moddata/bug22554_4 [new file with mode: 0755]
tests/bugs/moddata/bug22623 [new file with mode: 0755]
tests/bugs/moddata/bug22703 [new file with mode: 0755]
tests/bugs/moddata/bug22720 [new file with mode: 0755]
tests/bugs/moddata/bug22723 [new file with mode: 0755]
tests/bugs/moddata/bug22726 [new file with mode: 0755]
tests/bugs/moddata/bug22733 [new file with mode: 0755]
tests/bugs/moddata/bug22736 [new file with mode: 0755]
tests/bugs/moddata/bug22757 [new file with mode: 0755]
tests/bugs/moddata/bug22761 [new file with mode: 0755]
tests/bugs/moddata/bug22789 [new file with mode: 0755]
tests/bugs/moddata/bug22910_1 [new file with mode: 0755]
tests/bugs/moddata/bug22910_2 [new file with mode: 0755]
tests/bugs/moddata/bug22923 [new file with mode: 0755]
tests/bugs/moddata/bug22989 [new file with mode: 0755]
tests/bugs/moddata/bug22993 [new file with mode: 0755]
tests/bugs/moddata/bug23172 [new file with mode: 0755]
tests/bugs/moddata/bug23175 [new file with mode: 0755]
tests/bugs/moddata/bug6412_1 [new file with mode: 0755]
tests/bugs/vis/bug146 [deleted file]
tests/bugs/vis/bug186 [deleted file]
tests/bugs/vis/bug197_1 [deleted file]
tests/bugs/vis/bug197_2 [deleted file]
tests/bugs/vis/bug21757 [new file with mode: 0755]
tests/bugs/vis/bug22483_1 [new file with mode: 0755]
tests/bugs/vis/bug22483_2 [new file with mode: 0755]
tests/bugs/vis/bug22483_3 [new file with mode: 0755]
tests/bugs/vis/bug22483_4 [new file with mode: 0755]
tests/bugs/vis/bug22762 [new file with mode: 0755]
tests/bugs/vis/bug22796_1 [new file with mode: 0755]
tests/bugs/vis/bug22796_2 [new file with mode: 0755]
tests/bugs/vis/bug22796_3 [new file with mode: 0755]
tests/bugs/vis/bug22819 [new file with mode: 0755]
tests/bugs/vis/bug22985 [new file with mode: 0755]
tests/bugs/vis/bug23065 [new file with mode: 0755]
tests/bugs/vis/bug23120
tests/bugs/vis/bug23407_1
tests/bugs/vis/bug23407_2
tests/bugs/vis/bug288_10 [new file with mode: 0755]
tests/bugs/vis/bug288_6 [new file with mode: 0755]
tests/bugs/vis/bug288_7 [new file with mode: 0755]
tests/bugs/vis/bug288_8 [new file with mode: 0755]
tests/bugs/vis/bug288_9 [new file with mode: 0755]
tests/bugs/vis/bug331_1 [new file with mode: 0755]
tests/bugs/vis/bug451 [deleted file]
tests/bugs/vis/bug543 [deleted file]
tests/bugs/xde/bug22092 [new file with mode: 0755]
tests/bugs/xde/bug22535_1 [new file with mode: 0755]
tests/bugs/xde/bug22535_2 [new file with mode: 0755]
tests/bugs/xde/bug22670_1 [new file with mode: 0755]
tests/bugs/xde/bug22670_2 [new file with mode: 0755]
tests/bugs/xde/bug22728 [new file with mode: 0755]
tests/bugs/xde/bug22826 [new file with mode: 0755]
tests/bugs/xde/bug23182 [new file with mode: 0755]
tests/bugs/xde/bug810_1 [new file with mode: 0755]
tests/offset/faces_type_i/E7 [changed mode: 0644->0755]
tests/offset/faces_type_i/F2 [changed mode: 0644->0755]
tests/offset/shape_type_a/A4 [changed mode: 0644->0755]
tests/offset/shape_type_i/C7 [changed mode: 0644->0755]
tests/offset/shape_type_i/D6 [changed mode: 0644->0755]
tests/offset/shape_type_i/D7 [changed mode: 0644->0755]

diff --git a/tests/bugs/caf/bug22788_1 b/tests/bugs/caf/bug22788_1
new file mode 100755 (executable)
index 0000000..9bbfbfd
--- /dev/null
@@ -0,0 +1,41 @@
+puts "============"
+puts "OCC22788"
+puts "============"
+puts ""
+#######################################################################
+# 
+#######################################################################
+
+pload QAcommands
+
+set BugNumber OCC22788
+
+NewDocument D MDTV-Standard
+
+set aFile OCC22788.std
+
+Open [locate_data_file ${aFile}] D
+
+Close D
+
+return
+
+set log [OCC159 D]
+
+set list [split ${log}]
+set ll [llength ${list}]
+
+if { ${ll} < 13 } {
+    puts "OCC159: Error"
+} else {
+    set DocRefCount1 [lindex ${list} 2]
+    set DocOwner1    [lindex ${list} 5]
+    set DocOwner2    [lindex ${list} 8]
+    set DocRefCount2 [lindex ${list} 11]
+    set deltaRefCount [expr ${DocRefCount1} - ${DocRefCount2}]
+    if { ${DocOwner2} == "NULL" && ${deltaRefCount} >= 1 } then {
+       puts "OCC159: OK"
+    } else {
+       puts "OCC159: Error"
+    }
+}
diff --git a/tests/bugs/caf/bug22788_2 b/tests/bugs/caf/bug22788_2
new file mode 100755 (executable)
index 0000000..cef3dfa
--- /dev/null
@@ -0,0 +1,31 @@
+puts "================"
+puts "OCC22788"
+puts "================"
+puts ""
+#######################################################################################
+# Exception during closing of document due to corrupted memory.
+######################################################################################
+
+set BugNumber OCC22788
+
+set aFile [locate_data_file OCC22788.std]
+
+Open ${aFile} D
+
+GetShape D 0:2 result
+smallview
+fit
+
+set catch_status 0
+if { [catch {Close D} catch_result] } {
+  set catch_status 1
+}
+
+if { ${catch_status} != 0 } {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
+set square 220000
+set 2dviewer 0
diff --git a/tests/bugs/fclasses/bug22611 b/tests/bugs/fclasses/bug22611
new file mode 100755 (executable)
index 0000000..6ceb159
--- /dev/null
@@ -0,0 +1,26 @@
+puts "TODO OCC22611 ALL: Tcl Exception: invalid command name"
+puts "TODO OCC22611 ALL: TEST INCOMPLETE"
+
+puts "========"
+puts "OCC22611"
+puts "========"
+puts ""
+#######################################################################
+# Memory leak in expression interpreter
+#######################################################################
+
+pload QAcommands
+
+set BugNumber OCC22611
+
+OCC22611 "0.1214343" 1
+
+set listmem {}
+set i_max 1000000
+OCC22611 "0.1214343" ${i_max}
+
+lappend listmem [expr [meminfo w] / 1024]
+if { [checktrend $listmem 0 1 "Memory leak detected"] } {
+    puts "No memory leak"
+    break
+}
diff --git a/tests/bugs/fclasses/bug22744 b/tests/bugs/fclasses/bug22744
new file mode 100755 (executable)
index 0000000..fec6d4c
--- /dev/null
@@ -0,0 +1,18 @@
+pload QAcommands
+
+puts "============"
+puts "OCC22744"
+puts "============"
+puts ""
+#######################################################################
+# Global HashCode function for TCollection_ExtendedString
+#######################################################################
+
+set BugNumber OCC22744
+
+set QATestVar [ catch { OCC22744 } ]
+if { ${QATestVar} == 0 } {
+   puts "OK ${BugNumber}"
+} else {
+   puts "Faulty ${BugNumber}"
+}
diff --git a/tests/bugs/fclasses/bug23192_1 b/tests/bugs/fclasses/bug23192_1
new file mode 100755 (executable)
index 0000000..9443460
--- /dev/null
@@ -0,0 +1,61 @@
+puts "================"
+puts "OCC23192"
+puts "================"
+puts ""
+#######################################################################################
+# Regression in writestl command
+#######################################################################################
+
+catch { pload XDE }
+
+set BugNumber OCC23192
+
+set aFile $imagedir/${test_image}.stl
+catch {exec rm -f ${aFile}}
+
+set anASCIImode 1
+set InParallel 0
+
+box res 10 10 10
+
+writestl res ${aFile} ${anASCIImode} ${InParallel}
+catch {exec chmod 777 ${aFile}}
+
+if { [file exists ${aFile}] } {
+  readstl result ${aFile}
+
+set nb_v_good 8
+set nb_e_good 18
+set nb_w_good 12
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 51
+
+  # Check file size
+  set size_status 0
+  if [string compare $tcl_platform(platform) "windows"] {
+       set filesize [lindex [exec ls -l ${aFile}] 5]
+  } else {
+       set filesize [lindex [exec ls -l ${aFile}] 4]
+  }
+  if { ${filesize} != 0 } {
+     set size_status 0
+  } else {
+     set size_status 1
+  }
+
+  if { ${size_status} == 0 } {
+     puts "OK ${BugNumber}"
+  } else {
+     puts "Faulty ${BugNumber}"
+  }
+} else {
+  puts "Faulty ${BugNumber}"
+}
+
+set square 600
+set 3dviewer 0
+
diff --git a/tests/bugs/fclasses/bug23192_2 b/tests/bugs/fclasses/bug23192_2
new file mode 100755 (executable)
index 0000000..dc37bd7
--- /dev/null
@@ -0,0 +1,60 @@
+puts "================"
+puts "OCC23192"
+puts "================"
+puts ""
+#######################################################################################
+# Regression in writestl command
+#######################################################################################
+
+catch { pload XDE }
+
+set BugNumber OCC23192
+
+set aFile $imagedir/${test_image}.stl
+catch {exec rm -f ${aFile}}
+
+set anASCIImode 0
+set InParallel 0
+
+box res 10 10 10
+
+writestl res ${aFile} ${anASCIImode} ${InParallel}
+catch {exec chmod 777 ${aFile}}
+
+if { [file exists ${aFile}] } {
+  readstl result ${aFile}
+
+set nb_v_good 8
+set nb_e_good 18
+set nb_w_good 12
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 51
+
+  # Check file size
+  set size_status 0
+  if [string compare $tcl_platform(platform) "windows"] {
+    set filesize [lindex [exec ls -l ${aFile}] 5]
+  } else {
+    set filesize [lindex [exec ls -l ${aFile}] 4]
+  }
+  if { ${filesize} != 0 } {
+     set size_status 0
+  } else {
+     set size_status 1
+  }
+
+  if { ${size_status} == 0 } {
+     puts "OK ${BugNumber}"
+  } else {
+     puts "Faulty ${BugNumber}"
+  }
+} else {
+  puts "Faulty ${BugNumber}"
+}
+
+set square 600
+set 3dviewer 0
diff --git a/tests/bugs/iges/bug22294 b/tests/bugs/iges/bug22294
new file mode 100755 (executable)
index 0000000..253335e
--- /dev/null
@@ -0,0 +1,14 @@
+puts "================"
+puts "OCC22294"
+puts "================"
+####
+
+igesbrep [locate_data_file OCC22294.igs] a *
+tpcompound result
+vinit
+vdisplay result
+vfit
+vsetdispmode 1
+
+set 3dviewer 1
+
diff --git a/tests/bugs/iges/bug22504 b/tests/bugs/iges/bug22504
new file mode 100755 (executable)
index 0000000..b5805a8
--- /dev/null
@@ -0,0 +1,13 @@
+puts "================"
+puts "OCC22504"
+puts "================"
+####
+
+igesbrep [locate_data_file OCC22504.igs] a *
+tpcompound result
+vinit
+vdisplay result
+vfit
+vsetdispmode 1
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug20521 b/tests/bugs/modalg/bug20521
new file mode 100755 (executable)
index 0000000..6a6cff9
--- /dev/null
@@ -0,0 +1,35 @@
+puts "================"
+puts "OCC20521"
+puts "================"
+puts ""
+#######################################################################################
+# Triangulation for a fece is not build 
+######################################################################################
+
+set BugNumber OCC20521
+
+catch { pload XDE }
+
+testreadstep [locate_data_file OCC20521-3DB.stp] result
+
+set square 322688
+
+set nb_v_good 119
+set nb_e_good 199
+set nb_w_good 96
+set nb_f_good 87
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 503
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set 3dviewer 0
+
+
diff --git a/tests/bugs/modalg/bug20827 b/tests/bugs/modalg/bug20827
new file mode 100755 (executable)
index 0000000..aec2ad7
--- /dev/null
@@ -0,0 +1,25 @@
+puts "================"
+puts "OCC20827"
+puts "================"
+puts ""
+#######################################################################################
+# Problem of displaying in SHADING mode
+######################################################################################
+
+set BugNumber OCC20827
+
+restore [locate_data_file OCC20827-ran24s_a-d_1_f107.brep] result
+
+set square 9707.82
+
+set nb_v_good 93
+set nb_e_good 93
+set nb_w_good 13
+set nb_f_good 1
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 200
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug21060 b/tests/bugs/modalg/bug21060
new file mode 100755 (executable)
index 0000000..bef0a13
--- /dev/null
@@ -0,0 +1,33 @@
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "================"
+puts "OCC21060"
+puts "================"
+puts ""
+#######################################################################################
+# Triangulatiom fails on non-manifold face with Sl wire
+######################################################################################
+
+set BugNumber OCC21060
+
+restore [locate_data_file OCC21060-A9_205.brep] result
+vinit
+vsetdispmode 1
+vdisplay result
+vfit
+
+set square 12
+
+set nb_v_good 4
+set nb_e_good 4
+set nb_w_good 2
+set nb_f_good 2
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug21415 b/tests/bugs/modalg/bug21415
new file mode 100755 (executable)
index 0000000..7b57ac9
--- /dev/null
@@ -0,0 +1,60 @@
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+pload QAcommands
+
+puts "============"
+puts "OCC21415"
+puts "============"
+puts ""
+#######################################################################
+# Bad triangulation of cylindrical face with large vertex tolerances
+#######################################################################
+
+set BugNumber OCC21415
+
+# Data
+
+set scale    19.469810863701095
+set center_X 436.67687011410339
+set center_Y 148.0981469658436
+set proj_X   0.99999862909317017
+set proj_Y   0.0012245246907696128
+set proj_Z   -0.0011169711360707879
+set up_X     0.00037844621692784131
+set up_Y     0.48741284012794495
+set up_Z     0.87317168712615967
+set at_X     291.61880493164062
+set at_Y     -453.53787231445312
+set at_Z     82.229469299316406
+
+# Start
+
+restore [locate_data_file OCC21415-face_bad_meshed.brep] result
+vinit
+vdisplay result
+vfit
+
+vsetdispmode 1
+vfit
+
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+            ${proj_X} ${proj_Y} ${proj_Z} \
+            ${up_X} ${up_Y} ${up_Z} \
+            ${at_X} ${at_Y} ${at_Z}
+
+puts "TEMPORARY!!!!!!!!!!!!!!!!!"
+set square 400000
+puts "TEMPORARY!!!!!!!!!!!!!!!!!"
+
+# Analysis of "nbshapes res"
+set nb_v_good 1
+set nb_e_good 2
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 5
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug21754 b/tests/bugs/modalg/bug21754
new file mode 100755 (executable)
index 0000000..560dc0e
--- /dev/null
@@ -0,0 +1,36 @@
+puts "================"
+puts "OCC21754"
+puts "================"
+puts ""
+#################################################################
+# Section of face by plane yields empty result
+#################################################################
+
+set BugNumber OCC21754
+
+# load shape and make face with natural bounds, to excluse possibility of
+# lame excuse saying that it contains small edges
+restore [locate_data_file OCC21754-bug_bsection_empty.brep] a 
+mksurface s a
+mkface f s
+
+# create plane at Z=-0.410 (the bug is reproduced for Z in range [-0.405;-0.420])
+plane pl 0 0 -0.410 0 0 1
+mkface p pl 0 10 -5 5
+
+bsection result f p -2d
+
+set nb_v_good 2
+set nb_e_good 1
+set nb_w_good 0
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 4
+
+set length 0.592137
+
+set 2dviewer 0
+
diff --git a/tests/bugs/modalg/bug21909 b/tests/bugs/modalg/bug21909
new file mode 100755 (executable)
index 0000000..5855262
--- /dev/null
@@ -0,0 +1,74 @@
+pload QAcommands
+
+puts "============"
+puts "OCC21909"
+puts "============"
+puts ""
+#######################################################################
+# The surface is visualized with rendering errors
+#######################################################################
+
+set BugNumber OCC21909
+
+# Data
+
+set scale    57.547428234801195
+set center_X -29.161882474505589
+set center_Y -27.085456554411167
+set proj_X   -0.25567048788070679
+set proj_Y   -0.92769843339920044
+set proj_Z   0.27204453945159912
+set up_X     0.43156850337982178
+set up_Y     0.14228194952011108
+set up_Z     0.89078855514526367
+set at_X     53.189125061035156
+set at_Y     -25.674787521362305
+set at_Z     -2.9377093315124512
+
+set x1 190
+
+set y1 216
+set y2 228
+
+#
+restore [locate_data_file OCC21909-render_error.brep] result
+
+vinit
+vdisplay result
+vfit
+
+vsetdispmode 1
+vfit
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+               ${proj_X} ${proj_Y} ${proj_Z} \
+               ${up_X} ${up_Y} ${up_Z} \
+               ${at_X} ${at_Y} ${at_Z}
+
+vmoveto ${x1} ${y1}
+vmoveto ${x1} ${y1}
+
+set status 0
+for {set i ${y1} } {$i <= ${y2} } {incr i} {
+    set Color1 [QAGetPixelColor ${x1} ${i}]
+
+    set R1 [lindex ${Color1} 2]
+    set G1 [lindex ${Color1} 5]
+    set B1 [lindex ${Color1} 8]
+
+    puts "x = ${x1}   y = ${i}   R = ${R1}   G = ${G1}   B = ${B1}"
+
+    if { ${R1} == 0 && ${G1} == 0 && ${B1} == 0 } {
+       incr status
+       puts "Error : rendering  x = ${x1}  y = ${i}"
+    }
+}
+
+if { ${status} != 0 } {
+    puts "Faulty ${BugNumber}"
+} else {
+    puts "OK ${BugNumber}"
+}
+
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug22196 b/tests/bugs/modalg/bug22196
new file mode 100755 (executable)
index 0000000..be2cd23
--- /dev/null
@@ -0,0 +1,29 @@
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "================"
+puts "OCC22196"
+puts "================"
+puts ""
+#######################################################################################
+# Problem with putting texture on the bottle.brep shape
+######################################################################################
+
+set BugNumber OCC22196
+
+restore [locate_data_file OCC22196-scaled.brep] result
+
+set square 147.003
+
+set nb_v_good 75
+set nb_e_good 157
+set nb_w_good 74
+set nb_f_good 71
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 380
+
+
+set 3dviewer 1
+
diff --git a/tests/bugs/modalg/bug22306_1 b/tests/bugs/modalg/bug22306_1
new file mode 100755 (executable)
index 0000000..f693ce3
--- /dev/null
@@ -0,0 +1,36 @@
+puts "============"
+puts "OCC22306"
+puts "============"
+puts ""
+#######################################################################
+# Fuse between cylinder and sphere produces not vallid result
+#######################################################################
+
+set BugNumber OCC22306
+
+puts "Load first shape ..."
+restore [locate_data_file OCC22306-cyl.brep] b1 
+
+puts "Load second shape ..."
+restore [locate_data_file OCC22306-sph.brep] b2 
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 655.829
+
+set nb_v_good 5
+set nb_e_good 10
+set nb_w_good 4
+set nb_f_good 4
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 26
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22306_2 b/tests/bugs/modalg/bug22306_2
new file mode 100755 (executable)
index 0000000..a30432e
--- /dev/null
@@ -0,0 +1,37 @@
+puts "============"
+puts "OCC22306"
+puts "============"
+puts ""
+#######################################################################
+# Fuse between cylinder and sphere produces not vallid result
+#######################################################################
+
+set BugNumber OCC22306
+
+puts "Load first shape ..."
+restore [locate_data_file OCC22306-cyl.brep] b1 
+
+puts "Load second shape ..."
+restore [locate_data_file OCC22306-sph.brep] b2 
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 458.125
+
+set nb_v_good 4
+set nb_e_good 7
+set nb_w_good 4
+set nb_f_good 4
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 22
+
+set 3dviewer 1
+
diff --git a/tests/bugs/modalg/bug22306_3 b/tests/bugs/modalg/bug22306_3
new file mode 100755 (executable)
index 0000000..32a043e
--- /dev/null
@@ -0,0 +1,36 @@
+puts "============"
+puts "OCC22306"
+puts "============"
+puts ""
+#######################################################################
+# Fuse between cylinder and sphere produces not vallid result
+#######################################################################
+
+set BugNumber OCC22306
+
+puts "Load first shape ..."
+restore [locate_data_file OCC22306-cyl.brep] b1 
+
+puts "Load second shape ..."
+restore [locate_data_file OCC22306-sph.brep] b2 
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+boptuc result
+puts "Finish boolean operation ..."
+
+set square 327.269
+
+set nb_v_good 5
+set nb_e_good 10
+set nb_w_good 4
+set nb_f_good 4
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 26
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22306_4 b/tests/bugs/modalg/bug22306_4
new file mode 100755 (executable)
index 0000000..e9949b4
--- /dev/null
@@ -0,0 +1,36 @@
+puts "============"
+puts "OCC22306"
+puts "============"
+puts ""
+#######################################################################
+# Fuse between cylinder and sphere produces not vallid result
+#######################################################################
+
+set BugNumber OCC22306
+
+puts "Load first shape ..."
+restore [locate_data_file OCC22306-cyl.brep] b1 
+
+puts "Load second shape ..."
+restore [locate_data_file OCC22306-sph.brep] b2 
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 26.4582
+
+set nb_v_good 3
+set nb_e_good 3
+set nb_w_good 0
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 7
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22306_5 b/tests/bugs/modalg/bug22306_5
new file mode 100755 (executable)
index 0000000..bb5181f
--- /dev/null
@@ -0,0 +1,36 @@
+puts "============"
+puts "OCC22306"
+puts "============"
+puts ""
+#######################################################################
+# Fuse between cylinder and sphere produces not vallid result
+#######################################################################
+
+set BugNumber OCC22306
+
+puts "Load first shape ..."
+restore [locate_data_file OCC22306-cyl.brep] b1 
+
+puts "Load second shape ..."
+restore [locate_data_file OCC22306-sph.brep] b2 
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set square 129.564
+
+set nb_v_good 4
+set nb_e_good 7
+set nb_w_good 4
+set nb_f_good 4
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 22
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22361 b/tests/bugs/modalg/bug22361
new file mode 100755 (executable)
index 0000000..257be48
--- /dev/null
@@ -0,0 +1,37 @@
+puts "============"
+puts "OCC22361"
+puts "============"
+puts ""
+################################################################################################################################
+# Incorrect result of BRepOffsetAPI_MakePipeShell algorithm: it tries to build conical surface between two non-coaxial circles
+################################################################################################################################
+set BugNumber 22361
+
+circle c1 0 0 0 7
+circle c2 5.28270543795374 13.2067635948844 26.4135271897687 21
+polyline pp 0 0 0  5.28270543795374 13.2067635948844 26.4135271897687
+mkedge c1 c1
+wire c1 c1
+mkedge c2 c2
+wire c2 c2
+fit
+
+mksweep pp
+addsweep c1
+addsweep c2
+
+buildsweep result
+
+set square 2745.88
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 8
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22428 b/tests/bugs/modalg/bug22428
new file mode 100755 (executable)
index 0000000..a8bd90b
--- /dev/null
@@ -0,0 +1,30 @@
+puts "================"
+puts "OCC22428"
+puts "================"
+puts ""
+##########################################################################################
+# The shape is valid on Linux but non-valid on Windows. Appendix for SALOME PARTITION_S2
+##########################################################################################
+
+set BugNumber OCC22428
+
+restore [locate_data_file bug22428_f1.brep] result
+set info [ checkshape result ]
+set word1 [string compare [lindex ${info} end] "valid"]
+set word2 [string compare [lindex ${info} end-1] "be"]
+set word3 [string compare [lindex ${info} end-2] "to"]
+set word4 [string compare [lindex ${info} end-3] "seems"]
+set word5 [string compare [lindex ${info} end-4] "shape"]
+set word6 [string compare [lindex ${info} end-5] "This"]
+
+# Resume
+puts ""
+if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 && ${word4} == 0 && ${word5} == 0 && ${word6} == 0} {
+   puts "OK ${BugNumber}"
+} else {
+   puts "Faulty ${BugNumber}"
+}
+
+set square 7837.39
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug22500 b/tests/bugs/modalg/bug22500
new file mode 100755 (executable)
index 0000000..56ddbfa
--- /dev/null
@@ -0,0 +1,18 @@
+puts "========================"
+puts "OCC22500"
+puts "========================"
+puts ""
+#######################################################################
+# Sewing creates invalid shape
+#######################################################################
+
+set BugNumber OCC22500
+
+restore [locate_data_file OCC22500-bug602badsewing.brep] a 
+
+if { [catch {sewing result 0.01 a} catch_result] } {
+    puts "Faulty ${BugNumber} : function Sewing works wrongly"
+}
+
+set square 0.0363594
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22558 b/tests/bugs/modalg/bug22558
new file mode 100755 (executable)
index 0000000..52e673d
--- /dev/null
@@ -0,0 +1,30 @@
+pload QAcommands
+
+puts "============"
+puts "OCC22558"
+puts "============"
+puts ""
+#######################################################################
+# Bug in gp_Dir::Mirror(const gp_Ax2 & axis)
+#######################################################################
+
+set BugNumber OCC22558
+
+set check1 -57735
+set check2 57735
+set info [ OCC22558 1 1 1 1 0 0 0 0 0 ]
+
+set res_z1 [lindex ${info} end]
+set res_y1 [lindex ${info} end-1]
+set res_x1 [lindex ${info} end-2]
+
+set res_z [ expr int($res_z1 * 100000) ]
+set res_y [ expr int($res_y1 * 100000) ]
+set res_x [ expr int($res_x1 * 100000) ]
+
+if { ${res_x} == ${check1} && ${res_y} == ${check2} && ${res_z} == ${check2} } {
+  puts "OK ${BugNumber}"
+} else {
+  puts "Faulty ${BugNumber}"
+}
+
diff --git a/tests/bugs/modalg/bug22586 b/tests/bugs/modalg/bug22586
new file mode 100755 (executable)
index 0000000..041b449
--- /dev/null
@@ -0,0 +1,22 @@
+pload QAcommands
+
+puts "==========="
+puts "OCC22586"
+puts "==========="
+puts ""
+#######################################################################
+# ShapeFix_FixSmallFace mistakenly removes a non-small pipe-like face with a seam edge
+#######################################################################
+
+set BugNumber OCC22586
+
+restore [locate_data_file OCC22586.brep] shape 
+
+if { [catch { OCC22586 shape result } catch_result] } {
+    puts "Faulty ${BugNumber}"
+} else {
+    puts "${BugNumber}  OK"
+}
+
+set 3dviewer 1 
+set square 11275.7
diff --git a/tests/bugs/modalg/bug22631 b/tests/bugs/modalg/bug22631
new file mode 100755 (executable)
index 0000000..da8164f
--- /dev/null
@@ -0,0 +1,33 @@
+puts "================"
+puts "OCC22631"
+puts "================"
+puts ""
+#######################################################################################
+# Regression in vizualization for b-spline surface
+######################################################################################
+
+set BugNumber OCC22631
+
+catch { pload XDE }
+
+testreadstep [locate_data_file OCC22145.stp] result
+
+set square 205444
+
+set nb_v_good 3344
+set nb_e_good 4685
+set nb_w_good 1943
+set nb_f_good 1943
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 2
+set nb_shape_good 11919
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22641 b/tests/bugs/modalg/bug22641
new file mode 100755 (executable)
index 0000000..0ef73b8
--- /dev/null
@@ -0,0 +1,36 @@
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "================"
+puts "OCC22641"
+puts "================"
+puts ""
+#######################################################################################
+# Meshing problem on the attached model
+######################################################################################
+
+set BugNumber OCC22641
+
+catch { pload XDE }
+
+testreadstep [locate_data_file OCC22641-RailBosch.stp] result
+
+set square 160133
+
+set nb_v_good 7608
+set nb_e_good 12032
+set nb_w_good 4750
+set nb_f_good 4444
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 28836
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22695 b/tests/bugs/modalg/bug22695
new file mode 100755 (executable)
index 0000000..8cae4e3
--- /dev/null
@@ -0,0 +1,49 @@
+puts "============"
+puts "OCC22695"
+puts "============"
+puts ""
+#######################################################################
+# The algorithm BRepFilletAPI_MakeFillet2d crashes in cases when some original edges of the face degenerate (become punctual)
+#######################################################################
+
+set BugNumber OCC22695
+
+smallview
+
+polyline pp 0 0 0 10 0 0 10 10 0 0 10 0 0 0 0
+mkplane ff pp
+explode ff e
+fit
+
+donly ff ff_1 ff_2
+if { [catch {chfi2d res1 ff ff_1 ff_2 F 5} catch_result] } {
+   puts "Faulty ${BugNumber}"
+}
+
+#set length 37.854
+
+explode res1 e
+donly res1 res1_3 res1_4
+if { [catch {chfi2d res2 res1 res1_3 res1_4 F 5} catch_result] } {
+   puts "Faulty ${BugNumber}"
+}
+
+#set length 35.708
+
+explode res2 e
+donly res2 res2_1 res2_5
+if {  [catch {chfi2d res3 res2 res2_1 res2_5 F 5} catch_result] } {
+   puts "Faulty ${BugNumber}"
+}
+
+#set length 33.5619
+
+explode res3 e
+donly res3 res3_4 res3_5
+if { [catch {chfi2d result res3 res3_4 res3_5 F 5} catch_result] } {
+   puts "Faulty ${BugNumber}"
+}
+
+set length 31.4159
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug22717 b/tests/bugs/modalg/bug22717
new file mode 100755 (executable)
index 0000000..0a575f8
--- /dev/null
@@ -0,0 +1,22 @@
+puts "==========="
+puts "OCC22717"
+puts "==========="
+puts ""
+#######################################################################
+#  Exception during sewing
+#######################################################################
+
+set BugNumber OCC22717
+
+catch { pload XDE }
+
+igesread [locate_data_file OCC22717-8_hole.igs] shape_8h *
+
+if [catch {sewing result 0.019 shape_8h} catch_result] {
+  puts "Faulty ${BugNumber} : function Sewing works wrongly"
+} else {
+  checkshape result f
+}
+set square 16490.5
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug22725 b/tests/bugs/modalg/bug22725
new file mode 100755 (executable)
index 0000000..acf8bd5
--- /dev/null
@@ -0,0 +1,36 @@
+puts "============"
+puts "OCC22725"
+puts "============"
+puts ""
+#######################################################################
+# BRepOffsetAPI_ThruSections algorithm produces twisted surface on some wires
+#######################################################################
+
+set BugNumber OCC22725
+
+restore [locate_data_file OCC22725-ruled_arc9.brep] a 
+restore [locate_data_file OCC22725-ruled_bsc9.brep] b 
+
+wire w1 a
+wire w2 b
+
+set issolid 0
+set isruled 1
+
+if { [catch { thrusections result ${issolid} ${isruled} w1 w2 } catch_result] } {
+   puts "Faulty ${BugNumber} : thrusections is wrong"
+}
+
+set square 11010.6
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 8
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22727 b/tests/bugs/modalg/bug22727
new file mode 100755 (executable)
index 0000000..7946cd2
--- /dev/null
@@ -0,0 +1,30 @@
+puts "================"
+puts "OCC22727"
+puts "================"
+puts ""
+#######################################################################################
+# Fillet not produces a result
+######################################################################################
+
+set BugNumber OCC22727
+
+restore [locate_data_file OCC22727-toFillet.brep] t
+
+tscale t 0.0507219 -0.0399294 -0.00324254 1000
+explode t e
+blend result t 2. t_3
+
+set square 3471.94
+
+set nb_v_good 12
+set nb_e_good 14
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 34
+
+set 3dviewer 1
+
diff --git a/tests/bugs/modalg/bug22765 b/tests/bugs/modalg/bug22765
new file mode 100755 (executable)
index 0000000..b6aa4ee
--- /dev/null
@@ -0,0 +1,16 @@
+puts "========================"
+puts "OCC22765"
+puts "========================"
+puts ""
+#######################################################################
+# Sewing produced invalid shape from attached compound with tolerance 0.1
+#######################################################################
+
+set BugNumber OCC22765
+
+restore [locate_data_file OCC22765.brep] a 
+sewing result 0.1 a
+
+checkshape result f
+set square 0.0141287
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22770_1 b/tests/bugs/modalg/bug22770_1
new file mode 100755 (executable)
index 0000000..1ebf722
--- /dev/null
@@ -0,0 +1,40 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+catch { pload XDE }
+
+# Create a new document and set UndoLimit
+# NewDocument D MDTV-XCAF
+# UndoLimit D 100
+# Open a transaction
+# NewCommand D
+
+vertex a 1 0 0
+vertex b 10 0 0
+edge e1 a b
+vertex c 10.01 0 0
+vertex d 20 0 0
+edge e2 c d
+sewing result +t 0.1 e1 e2 +e
+
+set length 18.99
+
+set nb_v_good 3
+set nb_e_good 2
+set nb_w_good 0
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 6
+
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug22770_10 b/tests/bugs/modalg/bug22770_10
new file mode 100755 (executable)
index 0000000..a3cf744
--- /dev/null
@@ -0,0 +1,27 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+sewing result +t 0.01 a b +mint 0.01 -a
+
+set square 1.88469e+07
+
+set nb_v_good 478
+set nb_e_good 748
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1761
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_11 b/tests/bugs/modalg/bug22770_11
new file mode 100755 (executable)
index 0000000..66c4e02
--- /dev/null
@@ -0,0 +1,27 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+sewing result +t 0.01 a b +mint 0.01 +s
+
+set square 1.88469e+07
+
+set nb_v_good 476
+set nb_e_good 748
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1759
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_12 b/tests/bugs/modalg/bug22770_12
new file mode 100755 (executable)
index 0000000..f7469d6
--- /dev/null
@@ -0,0 +1,27 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+sewing result a b -c
+
+set square 1.8847e+07
+
+set nb_v_good 930
+set nb_e_good 1164
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 11
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 2638
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_13 b/tests/bugs/modalg/bug22770_13
new file mode 100755 (executable)
index 0000000..23e9f35
--- /dev/null
@@ -0,0 +1,39 @@
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+catch { pload XDE }
+
+# Create a new document and set UndoLimit
+
+# NewDocument D MDTV-XCAF
+# UndoLimit D 100
+
+# Open a transaction
+# NewCommand D
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+sewing result a b +c
+
+set square 1.8847e+07
+
+set nb_v_good 796
+set nb_e_good 1103
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 5
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 2437
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_14 b/tests/bugs/modalg/bug22770_14
new file mode 100755 (executable)
index 0000000..5adb151
--- /dev/null
@@ -0,0 +1,27 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+sewing result a b +c -f
+
+set square 1.8847e+07
+
+set nb_v_good 1469
+set nb_e_good 1474
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 3476
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_15 b/tests/bugs/modalg/bug22770_15
new file mode 100755 (executable)
index 0000000..8f631d0
--- /dev/null
@@ -0,0 +1,39 @@
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+catch { pload XDE }
+
+# Create a new document and set UndoLimit
+
+# NewDocument D MDTV-XCAF
+# UndoLimit D 100
+
+# Open a transaction
+# NewCommand D
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+sewing result a b -p
+
+set square 1.8847e+07
+
+set nb_v_good 796
+set nb_e_good 1103
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 5
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 2437
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_16 b/tests/bugs/modalg/bug22770_16
new file mode 100755 (executable)
index 0000000..5484064
--- /dev/null
@@ -0,0 +1,31 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+vertex a 1 0 0
+vertex b 10 0 0
+edge e1 a b
+vertex c 10.01 0 0
+vertex d 20 0 0
+edge e2 c d
+sewing result 0.1 e1 e2 +e
+
+set length 18.99
+
+set nb_v_good 3
+set nb_e_good 2
+set nb_w_good 0
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 6
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_17 b/tests/bugs/modalg/bug22770_17
new file mode 100755 (executable)
index 0000000..9d66f49
--- /dev/null
@@ -0,0 +1,31 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+vertex a 1 0 0
+vertex b 10 0 0
+edge e1 a b
+vertex c 10.01 0 0
+vertex d 20 0 0
+edge e2 c d
+sewing result 0.1 e1 e2 -e
+
+set length 18.99
+
+set nb_v_good 4
+set nb_e_good 2
+set nb_w_good 0
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 7
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_18 b/tests/bugs/modalg/bug22770_18
new file mode 100755 (executable)
index 0000000..d0c5ab4
--- /dev/null
@@ -0,0 +1,30 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+box a 1 2 3
+box b 2 0 0 1 2 3
+explode a f
+explode b f
+
+sewing result 1.1 a_2 b_1
+
+set square 12
+
+set nb_v_good 4
+set nb_e_good 4
+set nb_w_good 2
+set nb_f_good 2
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_19 b/tests/bugs/modalg/bug22770_19
new file mode 100755 (executable)
index 0000000..c41c1aa
--- /dev/null
@@ -0,0 +1,30 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+box a 1 2 3
+box b 2 0 0 1 2 3
+explode a f
+explode b f
+
+sewing result 1.1 a_2 b_1 -f
+
+set square 12
+
+set nb_v_good 8
+set nb_e_good 8
+set nb_w_good 2
+set nb_f_good 2
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 21
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_2 b/tests/bugs/modalg/bug22770_2
new file mode 100755 (executable)
index 0000000..8710211
--- /dev/null
@@ -0,0 +1,39 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+catch { pload XDE }
+
+# Create a new document and set UndoLimit
+# NewDocument D MDTV-XCAF
+# UndoLimit D 100
+# Open a transaction
+# NewCommand D
+
+vertex a 1 0 0
+vertex b 10 0 0
+edge e1 a b
+vertex c 10.01 0 0
+vertex d 20 0 0
+edge e2 c d
+sewing result +t 0.1 e1 e2 -e
+
+set length 18.99
+
+set nb_v_good 4
+set nb_e_good 2
+set nb_w_good 0
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 7
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_20 b/tests/bugs/modalg/bug22770_20
new file mode 100755 (executable)
index 0000000..1c2f60b
--- /dev/null
@@ -0,0 +1,30 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+box a 1 2 3
+box b 2 0 0 1 2 3
+explode a f
+explode b f
+
+sewing result 1.1 a_2 b_1 +f
+
+set square 12
+
+set nb_v_good 4
+set nb_e_good 4
+set nb_w_good 2
+set nb_f_good 2
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_21 b/tests/bugs/modalg/bug22770_21
new file mode 100755 (executable)
index 0000000..d213aab
--- /dev/null
@@ -0,0 +1,30 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+box a 1 1 1
+box b 1 0 0 1 2 1
+explode a f
+explode b f
+
+sewing result a_2 a_3 b_3
+
+set square 3
+
+set nb_v_good 10
+set nb_e_good 11
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 29
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_22 b/tests/bugs/modalg/bug22770_22
new file mode 100755 (executable)
index 0000000..8813601
--- /dev/null
@@ -0,0 +1,30 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+box a 1 1 1
+box b 1 0 0 1 2 1
+explode a f
+explode b f
+
+sewing result a_2 a_3 b_3 +n
+
+set square 3
+
+set nb_v_good 8
+set nb_e_good 10
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 25
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_23 b/tests/bugs/modalg/bug22770_23
new file mode 100755 (executable)
index 0000000..bc31bc4
--- /dev/null
@@ -0,0 +1,28 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+
+sewing result 0.1 a b 
+
+set square 1.8847e+07
+
+set nb_v_good 480
+set nb_e_good 741
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1756
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_24 b/tests/bugs/modalg/bug22770_24
new file mode 100755 (executable)
index 0000000..514f25b
--- /dev/null
@@ -0,0 +1,30 @@
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+
+sewing result 0.1 a b +mint 0.01 
+
+set square 1.88469e+07
+
+set nb_v_good 476
+set nb_e_good 748
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1759
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_25 b/tests/bugs/modalg/bug22770_25
new file mode 100755 (executable)
index 0000000..b598450
--- /dev/null
@@ -0,0 +1,30 @@
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+
+sewing result 0.1 a b +mint 0.01 -a
+
+set square 1.88469e+07
+
+set nb_v_good 478
+set nb_e_good 748
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1761
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_26 b/tests/bugs/modalg/bug22770_26
new file mode 100755 (executable)
index 0000000..458b9bb
--- /dev/null
@@ -0,0 +1,30 @@
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+
+sewing result 0.1 a b +mint 0.01 +s
+
+set square 1.88469e+07
+
+set nb_v_good 476
+set nb_e_good 748
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1759
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_27 b/tests/bugs/modalg/bug22770_27
new file mode 100755 (executable)
index 0000000..434392e
--- /dev/null
@@ -0,0 +1,28 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+
+sewing result 0.1 a b -c
+
+set square 1.8847e+07
+
+set nb_v_good 483
+set nb_e_good 744
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1762
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_28 b/tests/bugs/modalg/bug22770_28
new file mode 100755 (executable)
index 0000000..3ea3fff
--- /dev/null
@@ -0,0 +1,28 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+
+sewing result 0.1 a b +c
+
+set square 1.8847e+07
+
+set nb_v_good 480
+set nb_e_good 741
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1756
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_29 b/tests/bugs/modalg/bug22770_29
new file mode 100755 (executable)
index 0000000..dd81aea
--- /dev/null
@@ -0,0 +1,28 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+
+sewing result 0.1 a b +c -f
+
+set square 1.8847e+07
+
+set nb_v_good 1469
+set nb_e_good 1474
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 3476
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_3 b/tests/bugs/modalg/bug22770_3
new file mode 100755 (executable)
index 0000000..0426ee2
--- /dev/null
@@ -0,0 +1,37 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+catch { pload XDE }
+
+# Create a new document and set UndoLimit
+# NewDocument D MDTV-XCAF
+# UndoLimit D 100
+# Open a transaction
+# NewCommand D
+
+box a 1 2 3
+box b 2 0 0 1 2 3
+explode a f
+explode b f
+sewing result +t 1.1 a_2 b_1
+
+set square 12
+set nb_v_good 4
+set nb_e_good 4
+set nb_w_good 2
+set nb_f_good 2
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug22770_30 b/tests/bugs/modalg/bug22770_30
new file mode 100755 (executable)
index 0000000..41710a7
--- /dev/null
@@ -0,0 +1,28 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+
+sewing result 0.1 a b -p
+
+set square 1.8847e+07
+
+set nb_v_good 480
+set nb_e_good 741
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1756
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_4 b/tests/bugs/modalg/bug22770_4
new file mode 100755 (executable)
index 0000000..84581a5
--- /dev/null
@@ -0,0 +1,28 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+box a 1 2 3
+box b 2 0 0 1 2 3
+explode a f
+explode b f
+sewing result +t 1.1 a_2 b_1 -f
+
+set square 12
+set nb_v_good 8
+set nb_e_good 8
+set nb_w_good 2
+set nb_f_good 2
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 21
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_5 b/tests/bugs/modalg/bug22770_5
new file mode 100755 (executable)
index 0000000..c779148
--- /dev/null
@@ -0,0 +1,28 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+box a 1 2 3
+box b 2 0 0 1 2 3
+explode a f
+explode b f
+sewing result +t 1.1 a_2 b_1 +f
+
+set square 12
+set nb_v_good 4
+set nb_e_good 4
+set nb_w_good 2
+set nb_f_good 2
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_6 b/tests/bugs/modalg/bug22770_6
new file mode 100755 (executable)
index 0000000..8b96320
--- /dev/null
@@ -0,0 +1,28 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+box a 1 1 1
+box b 1 0 0 1 2 1
+explode a f
+explode b f
+sewing result a_2 a_3 b_3
+
+set square 3
+set nb_v_good 10
+set nb_e_good 11
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 29
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_7 b/tests/bugs/modalg/bug22770_7
new file mode 100755 (executable)
index 0000000..5a207fc
--- /dev/null
@@ -0,0 +1,28 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+box a 1 1 1
+box b 1 0 0 1 2 1
+explode a f
+explode b f
+sewing result a_2 a_3 b_3 +n
+
+set square 3
+set nb_v_good 8
+set nb_e_good 10
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 25
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_8 b/tests/bugs/modalg/bug22770_8
new file mode 100755 (executable)
index 0000000..af0acc4
--- /dev/null
@@ -0,0 +1,29 @@
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+sewing result +t 0.01 a b 
+
+set square 1.88469e+07
+
+set nb_v_good 482
+set nb_e_good 744
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1761
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22770_9 b/tests/bugs/modalg/bug22770_9
new file mode 100755 (executable)
index 0000000..41b7b40
--- /dev/null
@@ -0,0 +1,27 @@
+puts "================"
+puts "OCC22770"
+puts "================"
+puts ""
+#######################################################################################
+# Improve comman sewing in DRAW
+######################################################################################
+
+set BugNumber OCC22770
+
+restore [locate_data_file 22770-tramp.brep] a 
+restore [locate_data_file 22770-trans.brep] b 
+sewing result +t 0.01 a b +mint 0.01 
+
+set square 1.88469e+07
+
+set nb_v_good 476
+set nb_e_good 748
+set nb_w_good 273
+set nb_f_good 259
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1759
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22771 b/tests/bugs/modalg/bug22771
new file mode 100755 (executable)
index 0000000..ec60b79
--- /dev/null
@@ -0,0 +1,40 @@
+puts "============"
+puts "OCC22771"
+puts "============"
+puts ""
+#######################################################################
+# An extra vertex produced in result of Boolean section for the cases of closed intersection curves.
+#######################################################################
+
+set BugNumber OCC22771
+
+puts "Load first shape ..."
+restore [locate_data_file bug22771_Box_1.brep] b1 
+
+puts "Load second shape ..."
+restore [locate_data_file bug22771_Cylinder_1.brep] b2 
+
+puts "Prepare boolean operation ..."
+explode b1 f
+copy b1_5 b1
+copy b2_1 b2
+
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 314.159
+
+set nb_v_good 1
+set nb_e_good 1
+set nb_w_good 0
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 3
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22781_1 b/tests/bugs/modalg/bug22781_1
new file mode 100755 (executable)
index 0000000..cf78f32
--- /dev/null
@@ -0,0 +1,14 @@
+puts "================"
+puts "OCC22781"
+puts "================"
+puts ""
+#######################################################################################
+# Regression in GCPnts_TangentialDeflection
+######################################################################################
+
+set BugNumber OCC22781
+
+restore [locate_data_file OCC22781-BeforeCont.brep] result
+
+set length 5.82393
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22781_2 b/tests/bugs/modalg/bug22781_2
new file mode 100755 (executable)
index 0000000..1d2703a
--- /dev/null
@@ -0,0 +1,21 @@
+pload QAcommands
+
+puts "================"
+puts "OCC22781"
+puts "================"
+puts ""
+#######################################################################################
+# Regression in GCPnts_TangentialDeflection
+######################################################################################
+
+set BugNumber OCC22781
+
+restore [locate_data_file OCC22781-BeforeCont.brep] result
+vinit
+vdisplay result
+vfit
+vsetdispmode 0
+vselect 290 135
+
+set length 5.82393
+set only_screen 0
\ No newline at end of file
diff --git a/tests/bugs/modalg/bug22781_3 b/tests/bugs/modalg/bug22781_3
new file mode 100755 (executable)
index 0000000..676ea6f
--- /dev/null
@@ -0,0 +1,15 @@
+puts "================"
+puts "OCC22781"
+puts "================"
+puts ""
+#######################################################################################
+# Regression in GCPnts_TangentialDeflection
+######################################################################################
+
+set BugNumber OCC22781
+
+restore [locate_data_file OCC22781-BeforeCont.brep] result
+
+set length 5.82393
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug22781_4 b/tests/bugs/modalg/bug22781_4
new file mode 100755 (executable)
index 0000000..496fa05
--- /dev/null
@@ -0,0 +1,21 @@
+pload QAcommands
+
+puts "================"
+puts "OCC22781"
+puts "================"
+puts ""
+#######################################################################################
+# Regression in GCPnts_TangentialDeflection
+######################################################################################
+
+set BugNumber OCC22781
+
+restore [locate_data_file OCC22781-BeforeCont.brep] result
+vinit
+vdisplay result
+vfit
+vsetdispmode 1
+vselect 290 135
+
+set length 5.82393
+set only_screen 0
diff --git a/tests/bugs/modalg/bug22783 b/tests/bugs/modalg/bug22783
new file mode 100755 (executable)
index 0000000..8910dd6
--- /dev/null
@@ -0,0 +1,30 @@
+puts "==========="
+puts "OCC22783"
+puts "==========="
+puts ""
+#######################################################################
+#  Improvement of BRepOffsetAPI_MakeFilling: keep old and new boundary edges with all pcurves
+#######################################################################
+
+catch {pload XDE}
+
+set BugNumber OCC22783
+
+restore [locate_data_file bug22783_cs.brep] a 
+explode a
+explode a_1 e
+explode a_1_6
+explode a_1_13
+edge e1 a_1_6_1 a_1_13_1
+edge e2 a_1_6_2 a_1_13_2
+smallview
+donly a_1_6 a_1_13 e1 e2
+fit
+
+filling result 4 0 0  a_1_6 0 a_1_13 0 e1 0 e2 0
+tolerance result
+checkshape result
+dump result
+
+set square 0.00456273
+set 2dviewer 0
diff --git a/tests/bugs/modalg/bug22786 b/tests/bugs/modalg/bug22786
new file mode 100755 (executable)
index 0000000..24fffc4
--- /dev/null
@@ -0,0 +1,36 @@
+puts "============"
+puts "OCC22786"
+puts "============"
+puts ""
+#######################################################################
+# 64bit issue in AdvApp2Var
+#######################################################################
+
+set BugNumber OCC22786
+
+restore [locate_data_file OCC22786-c.brep] c 
+
+explode c
+
+gplate result 5 0 c_1 0 c_2 0 c_3 0 c_4 0 c_5 0
+
+set square 2.92409
+
+set nb_v_good 4
+set nb_e_good 4
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 10
+
+
+vinit
+vdisplay c_1 c_2 c_3 c_4 c_5
+vdisplay result
+vsetdispmode 1
+vfit
+
+set only_screen 1
diff --git a/tests/bugs/modalg/bug22790 b/tests/bugs/modalg/bug22790
new file mode 100755 (executable)
index 0000000..15712fa
--- /dev/null
@@ -0,0 +1,35 @@
+puts "============"
+puts "OCC22790"
+puts "============"
+puts ""
+#######################################################################
+# Boolean opeation Fuse fails.
+#######################################################################
+
+set BugNumber OCC22790
+
+puts "Load shape ..."
+restore [locate_data_file OCC22790-cx.brep] b 
+
+explode b
+copy b_1 b1
+copy b_3 b2
+
+bop b1 b2
+
+bopfuse result
+
+set square 1.21408e+09
+
+set nb_v_good 11
+set nb_e_good 12
+set nb_w_good 4
+set nb_f_good 2
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 31
+
+set 3dviewer 1
+
diff --git a/tests/bugs/modalg/bug22798_1 b/tests/bugs/modalg/bug22798_1
new file mode 100755 (executable)
index 0000000..aaee325
--- /dev/null
@@ -0,0 +1,26 @@
+puts "============"
+puts "OCC22798"
+puts "============"
+puts ""
+#############################################################################
+# Regression: BRepBuilderAPI_GTransform produces an invalid result on sphere
+#############################################################################
+
+set BugNumber OCC22798
+
+psphere a 100
+nurbsconvert result a
+
+set square 126261
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 9
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22798_2 b/tests/bugs/modalg/bug22798_2
new file mode 100755 (executable)
index 0000000..94d9075
--- /dev/null
@@ -0,0 +1,27 @@
+puts "============"
+puts "OCC22798"
+puts "============"
+puts ""
+#############################################################################
+# Regression: BRepBuilderAPI_GTransform produces an invalid result on sphere
+#############################################################################
+
+set BugNumber OCC22798
+
+psphere a 100
+scalexyz result a 2 3 4
+
+set square 1.12112e+06
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 9
+
+set 3dviewer 1
+
diff --git a/tests/bugs/modalg/bug22801 b/tests/bugs/modalg/bug22801
new file mode 100755 (executable)
index 0000000..2579527
--- /dev/null
@@ -0,0 +1,36 @@
+puts "============"
+puts "OCC22801"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operations algorithm fails on two customer's shapes
+#######################################################################
+
+set BugNumber OCC22801
+
+puts "Load first shape ..."
+restore [locate_data_file OCC22801-first_shape.brep] b1 
+
+puts "Load second shape ..."
+restore [locate_data_file OCC22801-second_shape.brep] b2 
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 287634
+
+set nb_v_good 55
+set nb_e_good 97
+set nb_w_good 44
+set nb_f_good 44
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 243
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22814 b/tests/bugs/modalg/bug22814
new file mode 100755 (executable)
index 0000000..c0cecf0
--- /dev/null
@@ -0,0 +1,30 @@
+puts "============"
+puts "OCC22814"
+puts "============"
+puts ""
+#######################################################################
+# Boolean opeation Section fails
+#######################################################################
+
+set BugNumber OCC22814
+
+restore [locate_data_file bug22814_F6_Shell.brep] b1 
+restore [locate_data_file bug22814_F6_box.brep] b2 
+
+bop b1 b2
+bopsection result
+
+set length 0.667008
+
+set nb_v_good 4
+set nb_e_good 4
+set nb_w_good 0
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 9
+
+set 3dviewer 1
+
diff --git a/tests/bugs/modalg/bug22818_1 b/tests/bugs/modalg/bug22818_1
new file mode 100755 (executable)
index 0000000..6278cb5
--- /dev/null
@@ -0,0 +1,37 @@
+puts "================"
+puts "OCC22818"
+puts "================"
+puts ""
+#######################################################################################
+# Wrong triangulation of Revolution surface with slice angle <= 180 degree
+######################################################################################
+
+set BugNumber OCC22818
+
+vertex v1 0 10 0
+vertex v2 0 10 10
+vertex v3 0 0 -10
+edge e1 v1 v2
+edge e2 v2 v3
+edge e3 v3 v1
+wire w1 e1 e2 e3
+plane pln 0 10 0 1 0 0
+mkface f1 pln
+add w1 f1
+don f1
+revol result f1 0 10 0 0 0 1 180
+checkshape result
+
+set square 823.385
+
+set nb_v_good 3
+set nb_e_good 8
+set nb_w_good 4
+set nb_f_good 4
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 21
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22818_2 b/tests/bugs/modalg/bug22818_2
new file mode 100755 (executable)
index 0000000..a50b75a
--- /dev/null
@@ -0,0 +1,38 @@
+puts "================"
+puts "OCC22818"
+puts "================"
+puts ""
+#######################################################################################
+# Wrong triangulation of Revolution surface with slice angle <= 180 degree
+######################################################################################
+
+set BugNumber OCC22818
+
+vertex v1 0 10 0
+vertex v2 0 10 10
+vertex v3 0 5 5
+vertex v4 0 0 -10
+edge e1 v1 v2
+edge e2 v2 v3
+edge e3 v3 v1
+wire w1 e1 e2 e3
+plane pln 0 5 5 1 0 0
+mkface f1 pln
+add w1 f1
+don f1
+revol result f1 0 10 0 0 0 1 180
+checkshape result
+
+set square 186.072
+
+set nb_v_good 3
+set nb_e_good 8
+set nb_w_good 4
+set nb_f_good 4
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 21
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22823 b/tests/bugs/modalg/bug22823
new file mode 100755 (executable)
index 0000000..218f58b
--- /dev/null
@@ -0,0 +1,28 @@
+puts "============"
+puts "OCC22823"
+puts "============"
+puts ""
+##############################################################################################
+# Exception in thickshell operation
+##############################################################################################
+
+catch {pload XDE}
+
+set BugNumber OCC22823
+
+restore [locate_data_file OCC22823-occ_bug_thickshell.brep] sh 
+
+checkshape sh
+tolerance sh
+set aStatus [catch {thickshell result sh 0.01} ]
+
+# Resume
+puts ""
+if { ${aStatus} != 0 } {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
+set square 0.38266
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22828 b/tests/bugs/modalg/bug22828
new file mode 100755 (executable)
index 0000000..d1a27b5
--- /dev/null
@@ -0,0 +1,28 @@
+puts "============"
+puts "OCC22828"
+puts "============"
+puts ""
+#######################################################################
+# Fuse on simple shapes with conical surfaces crashes
+#######################################################################
+
+set BugNumber OCC22828
+
+restore [locate_data_file bug22828_shape1.brep] b1 
+restore [locate_data_file bug22828_shape2.brep] b2 
+catch { bfuse result b1 b2 }
+
+set square 4029.04
+
+set nb_v_good 11
+set nb_e_good 15
+set nb_w_good 12
+set nb_f_good 9
+set nb_sh_good 2
+set nb_sol_good 2
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 52
+
+set 3dviewer 1
+
diff --git a/tests/bugs/modalg/bug22830 b/tests/bugs/modalg/bug22830
new file mode 100755 (executable)
index 0000000..62520d6
--- /dev/null
@@ -0,0 +1,30 @@
+puts "================"
+puts "OCC22830"
+puts "================"
+puts ""
+#######################################################################################
+# BRep mesh can't apply mesh for the face
+######################################################################################
+
+set BugNumber OCC22830
+
+restore [locate_data_file OCC22830-maze.brep] result
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set square 52482
+
+set nb_v_good 300
+set nb_e_good 300
+set nb_w_good 30
+set nb_f_good 1
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 631
+
+set only_screen 1
diff --git a/tests/bugs/modalg/bug22833 b/tests/bugs/modalg/bug22833
new file mode 100755 (executable)
index 0000000..c4413e1
--- /dev/null
@@ -0,0 +1,33 @@
+puts "========================"
+puts "OCC22833"
+puts "========================"
+puts ""
+#######################################################################
+# Command "checkshape" in DRAWEXE give error "Self intersection wire" on attached shape
+#######################################################################
+
+set BugNumber OCC22833
+
+restore [locate_data_file OCC22833-bugInt.brep] result
+
+set text [checkshape result f]
+set last1 [lindex $text end]
+set last2 [lindex $text end-1]
+
+set status 0
+set s1 "OK"
+set s2 "looks"
+
+if { [string equal $last1 $s1] && [string equal $last2 $s2] } {
+    set status 0
+} else {
+    set status 1 }
+
+if { ${status} != 0 } {
+    puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
+set square 63427.2
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug22881 b/tests/bugs/modalg/bug22881
new file mode 100755 (executable)
index 0000000..9cf18bd
--- /dev/null
@@ -0,0 +1,27 @@
+puts "================"
+puts "OCC22881"
+puts "================"
+puts ""
+#######################################################################################
+# Sewing does not sew edge to its copy
+######################################################################################
+
+set BugNumber OCC22881
+
+restore [locate_data_file OCC22881-sewing-pb.brep] a 
+
+sewing result a
+
+set square 12.819
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 4
+set nb_f_good 4
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 19
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22884 b/tests/bugs/modalg/bug22884
new file mode 100755 (executable)
index 0000000..03aa90c
--- /dev/null
@@ -0,0 +1,53 @@
+pload QAcommands
+
+puts "============"
+puts "OCC22884"
+puts "============"
+puts ""
+#############################################################################
+# The attached face cannot be displayed in shading mode
+#############################################################################
+
+set BugNumber OCC22884
+
+set x1 136
+set y1 176
+
+restore [locate_data_file bug22884_Face_1.brep] result
+vinit
+vdisplay result
+vfit
+vsetdispmode 1
+
+set square 697.812
+
+set nb_v_good 46
+set nb_e_good 46
+set nb_w_good 3
+set nb_f_good 1
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 96
+
+set Color [QAGetPixelColor $x1 $y1]
+set R [lindex ${Color} 2]
+set G [lindex ${Color} 5]
+set B [lindex ${Color} 8]
+set color_status 0
+if { $R == 0 && $G == 0 && $B == 0 } {
+    set color_status 1
+} else {
+    set color_status 0
+}
+
+
+if { ${color_status} == 0} {
+   puts "OK ${BugNumber}"
+} else {
+   puts "Faulty ${BugNumber}"
+}
+
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug22946 b/tests/bugs/modalg/bug22946
new file mode 100755 (executable)
index 0000000..7717eb4
--- /dev/null
@@ -0,0 +1,17 @@
+puts "================"
+puts "OCC22946"
+puts "================"
+puts ""
+#######################################################################################
+# BRepFeat_SplitShape crashes on splitting a face by two edges
+######################################################################################
+
+set BugNumber OCC22946
+
+restore [locate_data_file OCC22946-FaceWithNewCurves.brep] a 
+restore [locate_data_file OCC22946-CompoundWithoutPcurves.brep] b 
+
+splitshape result a a b
+
+set square 6.06498e+08
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22986 b/tests/bugs/modalg/bug22986
new file mode 100755 (executable)
index 0000000..f754280
--- /dev/null
@@ -0,0 +1,27 @@
+puts "==========="
+puts "OCC22986"
+puts "==========="
+puts ""
+#######################################################################
+# Regression with OCCT652 on Windows. DRAWEXE craches during featprism
+#######################################################################
+
+set BugNumber OCC22986
+
+#eval datadir ${CfeDir}/data/900
+
+restore [locate_data_file CFE900_cts21gbs.rle] base 
+restore [locate_data_file cts21322_face.rle] wire 
+
+explode base face
+copy base_6 fsketch
+
+splitshape result fsketch fsketch wire
+if { [llength [explode result f]] != 3 } {
+    puts "Faulty ${BugNumber} : The result of splitshape command is incorrect."
+} else {
+    puts "${BugNumber}  OK"
+}
+
+set square 414
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug22990 b/tests/bugs/modalg/bug22990
new file mode 100755 (executable)
index 0000000..d764ba8
--- /dev/null
@@ -0,0 +1,24 @@
+puts "============"
+puts "OCC22990"
+puts "============"
+puts ""
+############################################################################################################
+# Regression vs 6.5.2: splitting sphere across the seam is incomplete
+###########################################################################################################
+
+set BugNumber OCC22990
+
+psphere s 10
+plane p 2 0 0 1 0 0
+mkface f p -100 100 -100 100
+bsection e s f -2d
+
+explode s f
+explode e e
+
+splitshape result s s_1 e_1 e_2
+
+set nb_f_good 3
+set square 1256.64
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug23004 b/tests/bugs/modalg/bug23004
new file mode 100755 (executable)
index 0000000..d66fb64
--- /dev/null
@@ -0,0 +1,27 @@
+puts "==========="
+puts "OCC23004"
+puts "==========="
+######################################################
+# Boolean operation cut produces incorrect result
+######################################################
+
+set BugNumber OCC23004
+
+restore [locate_data_file bug23004_b_7_1] b1 
+restore [locate_data_file bug23004_b_7_2] b2 
+bop b1 b2
+bopcut result
+
+set square 31308.8
+
+set nb_v_good 26
+set nb_e_good 41
+set nb_w_good 17
+set nb_f_good 17
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 104
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug23008 b/tests/bugs/modalg/bug23008
new file mode 100755 (executable)
index 0000000..8b3c725
--- /dev/null
@@ -0,0 +1,34 @@
+puts "================"
+puts "OCC23008"
+puts "================"
+puts ""
+######################################################################################
+# Too many intersection vertices between line and cylinder
+######################################################################################
+
+set BugNumber OCC23008
+
+restore [locate_data_file bug23008_ez15] b1 
+restore [locate_data_file bug23008_fz37] b2 
+bop b1 b2
+set info [ bopnews -v ]
+for {set i 0} {$i <= 100} {incr i} {
+    set word [lsearch $info z$i]
+    if {$word == -1} {
+       lappend check_z 0
+    } else {
+       lappend check_z 1
+    }
+}
+
+# Resume
+puts ""
+set result [lsearch $check_z 1]
+if { ${result} == -1 } {
+   puts "OK ${BugNumber}"
+} else {
+   puts "Faulty ${BugNumber}"
+}
+
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug23029 b/tests/bugs/modalg/bug23029
new file mode 100755 (executable)
index 0000000..0726aed
--- /dev/null
@@ -0,0 +1,34 @@
+puts "============"
+puts "OCC23029"
+puts "============"
+puts ""
+#######################################################################
+# split shape algorithm works incorrectly in some cases
+#######################################################################
+
+set BugNumber OCC23029
+
+restore [locate_data_file OCC23029-F.brep] f 
+restore [locate_data_file OCC23029-W.brep] w 
+
+checkshape f
+checkshape w
+
+splitshape res f f w
+explode res
+renamevar res_2 result
+
+set square 27.3919
+
+set nb_v_good 5
+set nb_e_good 5
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 12
+
+set 3dviewer 1
+
diff --git a/tests/bugs/modalg/bug23031 b/tests/bugs/modalg/bug23031
new file mode 100755 (executable)
index 0000000..7cd9ad4
--- /dev/null
@@ -0,0 +1,28 @@
+puts "========"
+puts "OCC23031"
+puts "========"
+puts ""
+###########################################################
+# Empty result for the extrema between a circle and a line.
+###########################################################
+
+set BugNumber OCC23031
+
+
+restore [locate_data_file OCC23031-b1.brep] b1 
+restore [locate_data_file OCC23031-b2.brep] b2 
+
+mkcurve c1 b1
+mkcurve c2 b2
+
+set extrema_res [extrema c1 c2]
+set extrema_length [llength ${extrema_res} ]
+
+if {${extrema_length} != 1 } {
+   puts "${BugNumber}: Faulty"
+} else {
+   puts "${BugNumber}: OK"
+}
+
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug23043 b/tests/bugs/modalg/bug23043
new file mode 100755 (executable)
index 0000000..6c0faf5
--- /dev/null
@@ -0,0 +1,31 @@
+puts "========================"
+puts "OCC23043"
+puts "========================"
+puts ""
+################################################################################################################
+# Wrong results of BRepExtrema_DistShapeShape: non-null minimum distance between intersecting line and cylinder
+################################################################################################################
+
+set BugNumber OCC23043
+
+restore [locate_data_file bug23043_croix.brep] a 
+restore [locate_data_file bug23043_cylindre.brep] b 
+vdisplay a b 
+vfit
+distmini dd a b
+set dist1 [ dval dd ]
+set dist2 [ dval dd2 ]
+set dist3 [ dval dd3 ]
+set dist4 [ dval dd4 ]
+
+
+puts ""
+if { $dist1 == 0 && $dist2 == 0 && $dist3 == 0 && $dist4 == 0 } {
+    puts "OK ${BugNumber}"
+} else {
+    puts "Faulty ${BugNumber}"
+}
+
+set 3dviewer 0
+
+
diff --git a/tests/bugs/modalg/bug23060 b/tests/bugs/modalg/bug23060
new file mode 100755 (executable)
index 0000000..2069fc3
--- /dev/null
@@ -0,0 +1,17 @@
+puts "==========="
+puts "OCC23060"
+puts "==========="
+puts ""
+#######################################################################
+# Exception is raised during intersection of two edges
+#######################################################################
+
+set BugNumber OCC23060
+
+restore [locate_data_file bug23060_ce.brep] result
+explode result
+bop result_1 result_2
+
+set length 176.06
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug23089 b/tests/bugs/modalg/bug23089
new file mode 100755 (executable)
index 0000000..a0b56b3
--- /dev/null
@@ -0,0 +1,27 @@
+puts "================"
+puts "OCC23089"
+puts "================"
+puts ""
+##########################################################################################
+# Wrong result done by solid classifier algorithm
+##########################################################################################
+
+set BugNumber OCC23089
+
+restore [locate_data_file bug23088_Pipe_1.brep] b2 
+restore [locate_data_file bug23089_px.draw] px 
+set info [ bclassify b2 px ]
+set word1 [string compare [lindex ${info} end] "shape"]
+set word2 [string compare [lindex ${info} end-1] "IN"]
+set word3 [string compare [lindex ${info} end-2] "is"]
+set word4 [string compare [lindex ${info} end-3] "point"]
+set word5 [string compare [lindex ${info} end-4] "The"]
+
+# Resume
+puts ""
+if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 && ${word4} == 0 && ${word5} == 0 } {
+   puts "OK ${BugNumber}"
+} else {
+   puts "Faulty ${BugNumber}"
+}
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug23100 b/tests/bugs/modalg/bug23100
new file mode 100755 (executable)
index 0000000..31e74f6
--- /dev/null
@@ -0,0 +1,34 @@
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC23100"
+puts "============"
+puts ""
+#######################################################################
+# Wrong adjustment of p-curves on a cylinder
+#######################################################################
+
+set BugNumber OCC23100
+
+restore [locate_data_file bug23100_qf.brep] qf 
+
+explode qf
+copy qf_1 b1
+copy qf_2 b2
+
+catch {bop b1 b2}
+catch {bopfuse result}
+
+set square 50252.6
+
+set nb_v_good 7
+set nb_e_good 8
+set nb_w_good 2
+set nb_f_good 2
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 22
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug23114 b/tests/bugs/modalg/bug23114
new file mode 100755 (executable)
index 0000000..b323d17
--- /dev/null
@@ -0,0 +1,23 @@
+puts "================"
+puts "OCC23114"
+puts "================"
+puts ""
+#######################################################################################
+# Extrema algorithm throws the exception
+######################################################################################
+
+set BugNumber OCC23114
+
+restore [locate_data_file OCC23114-c1.draw] c1 
+restore [locate_data_file OCC23114-c2.draw] c2 
+trim c1t c1 6.8444417666253693e-010 3.3201579728233819e-007
+trim c2t c2 0.57529999999422077 0.99999999996162448
+set exception_status [ catch { extrema c1t c2t } ]
+
+if { ${exception_status} == 0 } {
+   puts "OK ${BugNumber}"
+} else {
+   puts "Faulty ${BugNumber}"
+}
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug23125 b/tests/bugs/modalg/bug23125
new file mode 100755 (executable)
index 0000000..b27d8ed
--- /dev/null
@@ -0,0 +1,23 @@
+puts "================"
+puts "OCC23125"
+puts "================"
+puts ""
+##########################################################################################
+# Wrong result done by classifier algorithm for a point and a solid
+##########################################################################################
+
+set BugNumber OCC23125
+
+restore [locate_data_file bug23125_ref] b 
+restore [locate_data_file bug23125_pref] p 
+set info [ bclassify b p ]
+
+# Resume
+puts ""
+if { [regexp "The point is IN shape" $info] != 1 } {
+    puts "Faulty ${BugNumber}"
+} else {
+    puts "OK ${BugNumber}"
+}
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug23158 b/tests/bugs/modalg/bug23158
new file mode 100755 (executable)
index 0000000..8640b5d
--- /dev/null
@@ -0,0 +1,22 @@
+puts "============"
+puts "OCC23158"
+puts "============"
+puts ""
+#######################################################################
+# ApproxInt_PrmPrmSvSurfaces raises FPE (division by zero) signal
+#######################################################################
+
+set BugNumber OCC23158
+
+restore [locate_data_file bug23158_f1.brep] b1 
+restore [locate_data_file bug23158_f2.brep] b2 
+
+set exception_status [ catch { bop b1 b2 } ]
+
+if { ${exception_status} == 0 } {
+   puts "OK ${BugNumber}"
+} else {
+   puts "Faulty ${BugNumber}"
+}
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug23160 b/tests/bugs/modalg/bug23160
new file mode 100755 (executable)
index 0000000..caead06
--- /dev/null
@@ -0,0 +1,28 @@
+puts "============"
+puts "OCC23160"
+puts "============"
+puts ""
+#######################################################################
+# Cut operation with the attached shapes produces a not correct result.
+#######################################################################
+
+set BugNumber OCC23160
+
+restore [locate_data_file bug23160_tshape.brep] b1 
+restore [locate_data_file bug23160_box.brep] b2 
+bop b1 b2
+bopcut result
+
+set square 270192
+
+set nb_v_good 16
+set nb_e_good 24
+set nb_w_good 10
+set nb_f_good 10
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 63
+
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug23162_1 b/tests/bugs/modalg/bug23162_1
new file mode 100755 (executable)
index 0000000..4777151
--- /dev/null
@@ -0,0 +1,47 @@
+puts "================"
+puts "OCC23162"
+puts "================"
+puts ""
+##############################################################################
+# BRepOffsetAPI_MakePipeShell works wrong
+##############################################################################
+
+set BugNumber OCC23162
+
+catch {pload XDE}
+
+set status 0
+
+set radius 100.
+puts "------------- Radius $radius"
+# make a ring quarter
+vertex v1 [expr $radius / 2] 0 0
+vertex v2 $radius 0 0
+edge e v1 v2
+revol rq e  0 0 0  0 0 1 45
+
+# make rq scaled and translated
+scaleshape rq2 rq 0.2
+ttranslate rq2 0 0 $radius
+
+# get wires of rq
+explode rq W
+explode rq2 W
+
+# make a spine
+vertex v1 0 0 0
+vertex v2 0 0 $radius
+edge e v1 v2
+wire spine e
+
+# make a pipe
+mksweep spine
+addsweep rq_1 v1
+addsweep rq2_1 v2
+buildsweep result
+
+# BUG: a pipe is invalid
+checkshape result -short
+
+set square 14572.5
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug23162_2 b/tests/bugs/modalg/bug23162_2
new file mode 100755 (executable)
index 0000000..cdf95c3
--- /dev/null
@@ -0,0 +1,47 @@
+puts "================"
+puts "OCC23162"
+puts "================"
+puts ""
+##############################################################################
+# BRepOffsetAPI_MakePipeShell works wrong
+##############################################################################
+
+set BugNumber OCC23162
+
+catch {pload XDE}
+
+set status 0
+
+set radius 10.
+puts "------------- Radius $radius"
+# make a ring quarter
+vertex v1 [expr $radius / 2] 0 0
+vertex v2 $radius 0 0
+edge e v1 v2
+revol rq e  0 0 0  0 0 1 45
+
+# make rq scaled and translated
+scaleshape rq2 rq 0.2
+ttranslate rq2 0 0 $radius
+
+# get wires of rq
+explode rq W
+explode rq2 W
+
+# make a spine
+vertex v1 0 0 0
+vertex v2 0 0 $radius
+edge e v1 v2
+wire spine e
+
+# make a pipe
+mksweep spine
+addsweep rq_1 v1
+addsweep rq2_1 v2
+buildsweep result
+
+# BUG: a pipe is invalid
+checkshape result -short
+
+set square 145.725
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug23162_3 b/tests/bugs/modalg/bug23162_3
new file mode 100755 (executable)
index 0000000..d658253
--- /dev/null
@@ -0,0 +1,47 @@
+puts "================"
+puts "OCC23162"
+puts "================"
+puts ""
+##############################################################################
+# BRepOffsetAPI_MakePipeShell works wrong
+##############################################################################
+
+set BugNumber OCC23162
+
+catch {pload XDE}
+
+set status 0
+
+set radius 1.
+puts "------------- Radius $radius"
+# make a ring quarter
+vertex v1 [expr $radius / 2] 0 0
+vertex v2 $radius 0 0
+edge e v1 v2
+revol rq e  0 0 0  0 0 1 45
+
+# make rq scaled and translated
+scaleshape rq2 rq 0.2
+ttranslate rq2 0 0 $radius
+
+# get wires of rq
+explode rq W
+explode rq2 W
+
+# make a spine
+vertex v1 0 0 0
+vertex v2 0 0 $radius
+edge e v1 v2
+wire spine e
+
+# make a pipe
+mksweep spine
+addsweep rq_1 v1
+addsweep rq2_1 v2
+buildsweep result
+
+# BUG: a pipe is invalid
+checkshape result -short
+
+set square 1.45725
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug23162_4 b/tests/bugs/modalg/bug23162_4
new file mode 100755 (executable)
index 0000000..a8bb3ce
--- /dev/null
@@ -0,0 +1,47 @@
+puts "================"
+puts "OCC23162"
+puts "================"
+puts ""
+##############################################################################
+# BRepOffsetAPI_MakePipeShell works wrong
+##############################################################################
+
+set BugNumber OCC23162
+
+catch {pload XDE}
+
+set status 0
+
+set radius 0.1
+puts "------------- Radius $radius"
+# make a ring quarter
+vertex v1 [expr $radius / 2] 0 0
+vertex v2 $radius 0 0
+edge e v1 v2
+revol rq e  0 0 0  0 0 1 45
+
+# make rq scaled and translated
+scaleshape rq2 rq 0.2
+ttranslate rq2 0 0 $radius
+
+# get wires of rq
+explode rq W
+explode rq2 W
+
+# make a spine
+vertex v1 0 0 0
+vertex v2 0 0 $radius
+edge e v1 v2
+wire spine e
+
+# make a pipe
+mksweep spine
+addsweep rq_1 v1
+addsweep rq2_1 v2
+buildsweep result
+
+# BUG: a pipe is invalid
+checkshape result -short
+
+set square 0.0145725
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug23162_5 b/tests/bugs/modalg/bug23162_5
new file mode 100755 (executable)
index 0000000..778fbb1
--- /dev/null
@@ -0,0 +1,47 @@
+puts "================"
+puts "OCC23162"
+puts "================"
+puts ""
+##############################################################################
+# BRepOffsetAPI_MakePipeShell works wrong
+##############################################################################
+
+set BugNumber OCC23162
+
+catch {pload XDE}
+
+set status 0
+
+set radius 0.01
+puts "------------- Radius $radius"
+# make a ring quarter
+vertex v1 [expr $radius / 2] 0 0
+vertex v2 $radius 0 0
+edge e v1 v2
+revol rq e  0 0 0  0 0 1 45
+
+# make rq scaled and translated
+scaleshape rq2 rq 0.2
+ttranslate rq2 0 0 $radius
+
+# get wires of rq
+explode rq W
+explode rq2 W
+
+# make a spine
+vertex v1 0 0 0
+vertex v2 0 0 $radius
+edge e v1 v2
+wire spine e
+
+# make a pipe
+mksweep spine
+addsweep rq_1 v1
+addsweep rq2_1 v2
+buildsweep result
+
+# BUG: a pipe is invalid
+checkshape result -short
+
+set square 0.000145725
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug23162_6 b/tests/bugs/modalg/bug23162_6
new file mode 100755 (executable)
index 0000000..fcd026b
--- /dev/null
@@ -0,0 +1,47 @@
+puts "================"
+puts "OCC23162"
+puts "================"
+puts ""
+##############################################################################
+# BRepOffsetAPI_MakePipeShell works wrong
+##############################################################################
+
+set BugNumber OCC23162
+
+catch {pload XDE}
+
+set status 0
+
+set radius 0.001
+puts "------------- Radius $radius"
+# make a ring quarter
+vertex v1 [expr $radius / 2] 0 0
+vertex v2 $radius 0 0
+edge e v1 v2
+revol rq e  0 0 0  0 0 1 45
+
+# make rq scaled and translated
+scaleshape rq2 rq 0.2
+ttranslate rq2 0 0 $radius
+
+# get wires of rq
+explode rq W
+explode rq2 W
+
+# make a spine
+vertex v1 0 0 0
+vertex v2 0 0 $radius
+edge e v1 v2
+wire spine e
+
+# make a pipe
+mksweep spine
+addsweep rq_1 v1
+addsweep rq2_1 v2
+buildsweep result
+
+# BUG: a pipe is invalid
+checkshape result -short
+
+set square 1.45725e-06
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug23170 b/tests/bugs/modalg/bug23170
new file mode 100755 (executable)
index 0000000..4373a54
--- /dev/null
@@ -0,0 +1,18 @@
+puts "============"
+puts "OCC23170"
+puts "============"
+puts ""
+######################################
+# Bug of creating a full sphere face
+######################################
+
+set BugNumber OCC23170
+
+pload MODELING
+
+sphere s 10
+
+mkface result s 0 6.2831853071795880 -1.5707963267948970 1.5707963267948970
+
+set square 1256.63
+set 3dviewer 0
diff --git a/tests/bugs/modalg/bug23218 b/tests/bugs/modalg/bug23218
new file mode 100755 (executable)
index 0000000..1806c85
--- /dev/null
@@ -0,0 +1,48 @@
+puts "============"
+puts "OCC23218"
+puts "============"
+puts ""
+#######################################################################
+# Wrong value of tolerance for the intersection curve.
+#######################################################################
+
+set BugNumber OCC23218
+
+puts "Load first shape ..."
+restore [locate_data_file bug23218_b1] b1 
+
+puts "Load second shape ..."
+restore [locate_data_file bug23218_b4] b2 
+
+puts "Start project operation ..."
+set result [bopcurves b1 b2]
+puts $result
+puts "Finish project operation ..."
+
+set GoodToleranceReached 8.9651741230950248e-06
+regexp {Tolerance Reached=([-0-9.+eE]+)} $result full ToleranceReached
+
+proc GetPercent {Value GoodValue} {
+    set Percent 0.
+    if {${GoodValue} != 0.} {
+       set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
+    } elseif {${Value} != 0.} {
+       set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
+    } else {
+       set Percent 0.
+    }
+    return ${Percent}
+}
+                                    
+                                    
+set percent_max 0.1
+set ToleranceReached_percent [expr abs ( [GetPercent ${ToleranceReached} ${GoodToleranceReached}] ) ]
+
+if {${ToleranceReached_percent} > ${percent_max}} {
+   puts "${BugNumber}: Faulty"
+} else {
+   puts "OK ${BugNumber}"
+}
+
+set 3dviewer 0
+
diff --git a/tests/bugs/modalg/bug397_1 b/tests/bugs/modalg/bug397_1
new file mode 100755 (executable)
index 0000000..2df6543
--- /dev/null
@@ -0,0 +1,37 @@
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "================"
+puts "OCC397"
+puts "================"
+puts ""
+#######################################################################################
+# One face from IGES is not shaded 
+######################################################################################
+
+set BugNumber OCC8370
+
+catch { pload XDE }
+
+igesread [locate_data_file Amino_komatsu.igs] result *
+
+set square 25310.8
+
+set nb_v_good 5060
+set nb_e_good 5105
+set nb_w_good 416
+set nb_f_good 399
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 10981
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug400_1 b/tests/bugs/modalg/bug400_1
new file mode 100755 (executable)
index 0000000..7b3819a
--- /dev/null
@@ -0,0 +1,31 @@
+puts "========================"
+puts "OCC400"
+puts "========================"
+puts ""
+#######################################################################
+# Wrong triangulation of faces
+#######################################################################
+
+set BugNumber OCC400
+
+restore [locate_data_file OCC400.brep] result
+
+set square 6607.38
+
+set nb_v_good 26
+set nb_e_good 26
+set nb_w_good 2
+set nb_f_good 2
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 57
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug6725 b/tests/bugs/modalg/bug6725
new file mode 100755 (executable)
index 0000000..fba7ee5
--- /dev/null
@@ -0,0 +1,46 @@
+puts "============"
+puts "OCC6725"
+puts "============"
+puts ""
+######################################################
+# Application crashed with "Segmentation Fault" message. Red Hat Linux 8.0
+######################################################
+
+set BugNumber OCC6725
+
+restore [locate_data_file OCC6725.brep] result
+
+set text [incmesh result 0.01]
+set last [lindex $text end]
+set r [string compare $last Failure]
+
+set status1 0
+if {$r == 0} {
+   set status1 1
+}
+
+set square 624989
+
+set nb_v_good 3806
+set nb_e_good 3808
+set nb_w_good 756
+set nb_f_good 730
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 9101
+
+if { ${status1} != 0} {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set 3dviewer 1
diff --git a/tests/bugs/modalg/bug697_10 b/tests/bugs/modalg/bug697_10
deleted file mode 100644 (file)
index fe00953..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-puts "============"
-puts "OCC697"
-puts "============"
-puts ""
-######################################################
-# Fuse operation does not work
-######################################################
-## (new topology)
-## (bopfuse)
-######################################################
-
-restore [locate_data_file OCC697_2.brep] b2 
-restore [locate_data_file OCC697_3.brep] b3 
-
-checkshape b2
-checkshape b3
-
-bop b3 b2
-if { [catch {bopfuse result} catch_result] } {
-   puts "Faulty OCC697"
-}
-set square 25357.5
-set 3dviewer 1
-
diff --git a/tests/bugs/modalg/bug697_11 b/tests/bugs/modalg/bug697_11
deleted file mode 100644 (file)
index ef72bfc..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-puts "============"
-puts "OCC697"
-puts "============"
-puts ""
-######################################################
-# Fuse operation does not work
-######################################################
-## (old topology)
-## (fuse)
-######################################################
-
-restore [locate_data_file OCC697_1.brep] b1 
-restore [locate_data_file OCC697_2.brep] b2 
-
-checkshape b1
-checkshape b2
-if { [catch {bfuse result b2 b1} catch_result] } {
-   puts "Faulty OCC697"
-}
-set square 8879.41
-set 3dviewer 1
-
diff --git a/tests/bugs/modalg/bug697_12 b/tests/bugs/modalg/bug697_12
deleted file mode 100644 (file)
index 489d407..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-puts "============"
-puts "OCC697"
-puts "============"
-puts ""
-######################################################
-# Fuse operation does not work
-######################################################
-## (old topology)
-## (fuse)
-######################################################
-
-restore [locate_data_file OCC697_2.brep] b2 
-restore [locate_data_file OCC697_3.brep] b3 
-
-checkshape b2
-checkshape b3
-if { [catch {bfuse result b3 b2} catch_result] } {
-   puts "Faulty OCC697"
-}
-set square 25357.5
-set 3dviewer 1
-
old mode 100644 (file)
new mode 100755 (executable)
index 5854b25..062a879
@@ -15,9 +15,9 @@ restore [locate_data_file OCC697_2.brep] b2
 checkshape b1
 checkshape b2
 
-if { [catch {bfuse result b1 b2} catch_result] } {
+if { [catch {bfuse result b2 b1} catch_result] } {
     puts "Faulty OCC697"
-} 
+}
 
 set square 8879.41
 set 3dviewer 1
old mode 100644 (file)
new mode 100755 (executable)
index 062a879..69adc12
@@ -9,15 +9,15 @@ puts ""
 ## (bfuse)
 ######################################################
 
-restore [locate_data_file OCC697_1.brep] b1 
 restore [locate_data_file OCC697_2.brep] b2 
+restore [locate_data_file OCC697_3.brep] b3 
 
-checkshape b1
 checkshape b2
+checkshape b3
 
-if { [catch {bfuse result b2 b1} catch_result] } {
-    puts "Faulty OCC697"
+if { [catch {bfuse result b3 b2} catch_result] } {
+   puts "Faulty OCC697"
 }
-
-set square 8879.41
+set square 25357.5
 set 3dviewer 1
+
old mode 100644 (file)
new mode 100755 (executable)
index 081912d..c9c5e67
@@ -6,18 +6,19 @@ puts ""
 # Fuse operation does not work
 ######################################################
 ## (new topology)
-## (bfuse)
+## (bopfuse)
 ######################################################
 
+restore [locate_data_file OCC697_1.brep] b1 
 restore [locate_data_file OCC697_2.brep] b2 
-restore [locate_data_file OCC697_3.brep] b3 
 
+checkshape b1
 checkshape b2
-checkshape b3
 
-if { [catch {bfuse result b2 b3} catch_result] } {
-    puts "Faulty OCC697"
-} 
-set square 25357.5
+bop b1 b2
+if { [catch {bopfuse result} catch_result] } {
+   puts "Faulty OCC697"
+}
+set square 8879.41
 set 3dviewer 1
 
old mode 100644 (file)
new mode 100755 (executable)
index 69adc12..2188a19
@@ -6,18 +6,19 @@ puts ""
 # Fuse operation does not work
 ######################################################
 ## (new topology)
-## (bfuse)
+## (bopfuse)
 ######################################################
 
+restore [locate_data_file OCC697_1.brep] b1 
 restore [locate_data_file OCC697_2.brep] b2 
-restore [locate_data_file OCC697_3.brep] b3 
 
+checkshape b1
 checkshape b2
-checkshape b3
 
-if { [catch {bfuse result b3 b2} catch_result] } {
+bop b2 b1
+if { [catch {bopfuse result} catch_result] } {
    puts "Faulty OCC697"
 }
-set square 25357.5
+set square 8879.41
 set 3dviewer 1
 
old mode 100644 (file)
new mode 100755 (executable)
index c9c5e67..c897130
@@ -9,16 +9,16 @@ puts ""
 ## (bopfuse)
 ######################################################
 
-restore [locate_data_file OCC697_1.brep] b1 
 restore [locate_data_file OCC697_2.brep] b2 
+restore [locate_data_file OCC697_3.brep] b3 
 
-checkshape b1
 checkshape b2
+checkshape b3
 
-bop b1 b2
+bop b2 b3
 if { [catch {bopfuse result} catch_result] } {
-   puts "Faulty OCC697"
+   puts "Faulty OCC697 "
 }
-set square 8879.41
+set square 25357.5
 set 3dviewer 1
 
old mode 100644 (file)
new mode 100755 (executable)
index 2188a19..fe00953
@@ -9,16 +9,16 @@ puts ""
 ## (bopfuse)
 ######################################################
 
-restore [locate_data_file OCC697_1.brep] b1 
 restore [locate_data_file OCC697_2.brep] b2 
+restore [locate_data_file OCC697_3.brep] b3 
 
-checkshape b1
 checkshape b2
+checkshape b3
 
-bop b2 b1
+bop b3 b2
 if { [catch {bopfuse result} catch_result] } {
    puts "Faulty OCC697"
 }
-set square 8879.41
+set square 25357.5
 set 3dviewer 1
 
diff --git a/tests/bugs/modalg/bug697_9 b/tests/bugs/modalg/bug697_9
deleted file mode 100644 (file)
index c897130..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-puts "============"
-puts "OCC697"
-puts "============"
-puts ""
-######################################################
-# Fuse operation does not work
-######################################################
-## (new topology)
-## (bopfuse)
-######################################################
-
-restore [locate_data_file OCC697_2.brep] b2 
-restore [locate_data_file OCC697_3.brep] b3 
-
-checkshape b2
-checkshape b3
-
-bop b2 b3
-if { [catch {bopfuse result} catch_result] } {
-   puts "Faulty OCC697 "
-}
-set square 25357.5
-set 3dviewer 1
-
diff --git a/tests/bugs/modalg/bug8370 b/tests/bugs/modalg/bug8370
new file mode 100755 (executable)
index 0000000..c8fca38
--- /dev/null
@@ -0,0 +1,33 @@
+puts "================"
+puts "OCC8370"
+puts "================"
+puts ""
+#######################################################################################
+# One face is not displayed in shading mode 
+######################################################################################
+
+set BugNumber OCC8370
+
+pload XDE
+
+igesread [locate_data_file OCC8370-part1.igs] result *
+
+set square 25310.8
+
+set nb_v_good 5060
+set nb_e_good 5105
+set nb_w_good 416
+set nb_f_good 399
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 10981
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set 3dviewer 1
diff --git a/tests/bugs/moddata/bug22039 b/tests/bugs/moddata/bug22039
new file mode 100755 (executable)
index 0000000..39fe570
--- /dev/null
@@ -0,0 +1,46 @@
+pload QAcommands
+
+puts "================"
+puts "OCC22039"
+puts "================"
+puts ""
+#######################################################################################
+# Incorrect interactive detection (highlights) of elements
+######################################################################################
+
+set BugNumber OCC22039
+
+restore [locate_data_file OCC12121-CrankArm.brep] result
+
+vinit
+vsetdispmode 1
+vdisplay result
+vfit
+
+set x1 101
+set y1 199
+set Color [QAGetPixelColor ${x1} ${y1}]
+
+vmoveto ${x1} ${y1}
+set ColorMove [QAGetPixelColor ${x1} ${y1}]
+
+vselect ${x1} ${y1}
+set ColorSelect [QAGetPixelColor ${x1} ${y1}]
+
+set Color_Status 0
+if { ${Color} != ${ColorMove} && ${Color} != ${ColorSelect} && ${ColorMove} != ${ColorSelect} } {
+  set Color_Status 0
+} else {
+  set Color_Status 1
+}
+
+# Resume
+puts ""
+if { ${Color_Status} != 0} {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
+set square 24859.6
+set only_screen 1
diff --git a/tests/bugs/moddata/bug22459 b/tests/bugs/moddata/bug22459
new file mode 100755 (executable)
index 0000000..7d4bb7d
--- /dev/null
@@ -0,0 +1,32 @@
+puts "============"
+puts "OCC22459"
+puts "============"
+#######################################################################
+# The ImportExport sample crash
+#######################################################################
+
+catch { pload XDE }
+
+set BugNumber OCC22459
+
+stepread [locate_data_file OCC22459-TEST2.stp] result *
+
+set exception_status 0
+set msg [ tpstat c ]
+set index [ lsearch $msg Exeption ]
+
+if {$index > -1} {
+  set exception_status 1
+}
+
+if { ${exception_status} != 0 } {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
+
+
+
diff --git a/tests/bugs/moddata/bug22554_1 b/tests/bugs/moddata/bug22554_1
new file mode 100755 (executable)
index 0000000..f2907cb
--- /dev/null
@@ -0,0 +1,22 @@
+puts "============"
+puts "OCC22554"
+puts "============"
+puts ""
+#######################################################################
+# Application hangs on selection
+#######################################################################
+
+set BugNumber OCC22554
+
+vinit
+vpoint p1 0 0 0
+vpoint p2 5 5 0
+vpoint p3 10 0 0
+vcircle result p1 p2 p3 0
+verase p1 p2 p3
+vfit
+
+puts "OK ${BugNumber}"
+
+set only_screen 1
+
diff --git a/tests/bugs/moddata/bug22554_2 b/tests/bugs/moddata/bug22554_2
new file mode 100755 (executable)
index 0000000..e42bbf0
--- /dev/null
@@ -0,0 +1,21 @@
+puts "============"
+puts "OCC22554"
+puts "============"
+puts ""
+#######################################################################
+# Application hangs on selection
+#######################################################################
+
+set BugNumber OCC22554
+
+vinit
+vpoint p1 0 0 0
+vpoint p2 30 0 0
+vpoint p3 30 30 0
+vplane result p1 p2 p3
+verase p1 p2 p3
+vfit
+
+puts "OK ${BugNumber}"
+
+set only_screen 1
diff --git a/tests/bugs/moddata/bug22554_3 b/tests/bugs/moddata/bug22554_3
new file mode 100755 (executable)
index 0000000..a3e7825
--- /dev/null
@@ -0,0 +1,21 @@
+puts "============"
+puts "OCC22554"
+puts "============"
+puts ""
+#######################################################################
+# Application hangs on selection
+#######################################################################
+
+set BugNumber OCC22554
+
+vinit
+vpoint p1 0 0 0
+vpoint p2 50 0 0
+vpoint p3 25 40 0
+vtriangle result p1 p2 p3
+verase p1 p2 p3
+vfit
+
+puts "OK ${BugNumber}"
+
+set only_screen 1
diff --git a/tests/bugs/moddata/bug22554_4 b/tests/bugs/moddata/bug22554_4
new file mode 100755 (executable)
index 0000000..1142717
--- /dev/null
@@ -0,0 +1,20 @@
+puts "============"
+puts "OCC22554"
+puts "============"
+puts ""
+#######################################################################
+# Application hangs on selection
+#######################################################################
+
+set BugNumber OCC22554
+
+vinit
+vpoint p1 0 0 0
+vpoint p2 50 0 0
+vsegment segment p1 p2
+verase p1 p2
+vfit
+
+puts "OK ${BugNumber}"
+
+set only_screen 1
diff --git a/tests/bugs/moddata/bug22623 b/tests/bugs/moddata/bug22623
new file mode 100755 (executable)
index 0000000..a2a9aae
--- /dev/null
@@ -0,0 +1,44 @@
+puts "============"
+puts "OCC22623"
+puts "============"
+puts ""
+puts "ATTENTION! TEST IN DEBUG MODE!"
+puts ""
+#######################################################################
+# Use of uninitializaed variables in HLRBRep_Curve::UpdateMinMax in debug mode
+#######################################################################
+
+catch { pload XDE }
+
+set BugNumber OCC22623
+
+stepread [locate_data_file OCC22623-fg5test.step] a *
+
+# Axes for a_3 only
+hprj p1 -166.887936587259 -524.121423723229 -3.52089319794717 0. 0. 1. 1. 0. 0.
+
+# Axes for complete assembly
+compound a_1 a_2 a_3 a_4 a_5 a
+houtl o1 a_3
+hfill o1 p1 0
+hload o1
+hsetprj p1
+hupdate
+
+set exception_status 0
+set r [hhide]
+set index [lsearch $r exception]
+if {$index > -1} {
+  set exception_status 1
+}
+
+hres2d
+
+# Resume
+puts ""
+if { ${exception_status} != 0 } {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
diff --git a/tests/bugs/moddata/bug22703 b/tests/bugs/moddata/bug22703
new file mode 100755 (executable)
index 0000000..c954d50
--- /dev/null
@@ -0,0 +1,26 @@
+puts "==========="
+puts "OCC22703"
+puts "==========="
+puts ""
+#######################################################################
+#  Exception in bop command for the specified shapes
+#######################################################################
+
+set BugNumber OCC22703
+
+puts "Load first shape ..."
+restore [locate_data_file OCC22703-faceAC.brep] b1 
+
+puts "Load second shape ..."
+restore [locate_data_file OCC22703-pln.brep] b2 
+
+puts "Prepare boolean operation ..."
+
+if [catch { bop b1 b2 } catch_result] {
+    puts "Faulty ${BugNumber}"
+} else {
+    puts "${BugNumber}  OK"
+}
+
+set 2dviewer 0
+
diff --git a/tests/bugs/moddata/bug22720 b/tests/bugs/moddata/bug22720
new file mode 100755 (executable)
index 0000000..919f4ae
--- /dev/null
@@ -0,0 +1,20 @@
+puts "============"
+puts "OCC22720"
+puts "============"
+puts ""
+#######################################################################
+# Wrong intersection point for the case of intersection between sphere and plane
+#######################################################################
+
+set BugNumber OCC22720
+
+restore [locate_data_file OCC22720-f1.brep] f1 
+restore [locate_data_file OCC22720-f2.brep] f2 
+
+mksurface s1 f1
+mksurface s2 f2
+
+trim s1t s1 0 2 0 2
+intersect result s1t s2
+
+set 3dviewer 0
diff --git a/tests/bugs/moddata/bug22723 b/tests/bugs/moddata/bug22723
new file mode 100755 (executable)
index 0000000..cc02453
--- /dev/null
@@ -0,0 +1,32 @@
+puts "============"
+puts "OCC22723"
+puts "============"
+puts ""
+#######################################################################
+# Wrong intersection curve for the case of intersection between cylinder and plane
+#######################################################################
+
+set BugNumber OCC22723 
+
+restore [locate_data_file bug22723_fz44.brep] b1 
+restore [locate_data_file bug22723_fz7.brep] b2 
+mksurface s1 b1
+mksurface s2 b2
+intersect i s1 s2
+
+regexp {Parameters : ([-0-9.+eE]+) ([-0-9.+eE]+)} [dump i] full a1 a2
+set status 0
+
+if { ${a1}>=0 } {
+    if { ${a2}<6.29 } {
+       set status 1
+    }
+}
+
+if { ${status}==1 } {
+    puts "OK ${BugNumber}"
+} else {
+    puts "Faulty ${BugNumber}"
+}
+
+set 3dviewer 0
diff --git a/tests/bugs/moddata/bug22726 b/tests/bugs/moddata/bug22726
new file mode 100755 (executable)
index 0000000..af14631
--- /dev/null
@@ -0,0 +1,21 @@
+puts "============"
+puts "OCC22726"
+puts "============"
+puts ""
+#######################################################################
+# Exception on restoring shape
+#######################################################################
+
+set BugNumber OCC22726
+
+restore [locate_data_file OCC22726-b211.brep] result
+
+whatis result
+
+vinit
+vdisplay result
+vfit
+
+set square 812.984
+set 3dviewer 1
+
diff --git a/tests/bugs/moddata/bug22733 b/tests/bugs/moddata/bug22733
new file mode 100755 (executable)
index 0000000..916645b
--- /dev/null
@@ -0,0 +1,27 @@
+puts "========"
+puts "OCC22733"
+puts "========"
+puts ""
+###########################################################
+# Empty result for the extrema between a circle and a line
+###########################################################
+
+set BugNumber OCC22733
+
+restore [locate_data_file bug22733_ez4.brep] ez4 
+restore [locate_data_file bug22733_ez17.brep] ez17 
+
+mkcurve c4 ez4
+mkcurve c17 ez17
+
+set extrema_res [extrema c4 c17]
+set extrema_length [llength ${extrema_res} ]
+
+if {${extrema_length} != 1 } {
+   puts "${BugNumber}: Faulty"
+} else {
+   puts "${BugNumber}: OK"
+}
+
+set 3dviewer 0
+
diff --git a/tests/bugs/moddata/bug22736 b/tests/bugs/moddata/bug22736
new file mode 100755 (executable)
index 0000000..f710e45
--- /dev/null
@@ -0,0 +1,31 @@
+pload QAcommands
+
+puts "========"
+puts "OCC22736"
+puts "========"
+puts ""
+###########################################################
+# Incorrect Transformation
+###########################################################
+
+set BugNumber OCC22736
+
+set X_mirrorFirstPoint 2.0
+set Y_mirrorFirstPoint 1.0
+set X_mirrorSecondPoint 3.0
+set Y_mirrorSecondPoint 1.0
+set X_p1 1.0
+set Y_p1 0.0
+set X_p2 1.0
+set Y_p2 2.0
+set result_info [OCC22736 ${X_mirrorFirstPoint} ${Y_mirrorFirstPoint} ${X_mirrorSecondPoint} ${Y_mirrorSecondPoint} ${X_p1} {$Y_p1} ${X_p2} ${Y_p2}]
+regexp {Status = ([-0-9.+eE]+)} $result_info full status
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
diff --git a/tests/bugs/moddata/bug22757 b/tests/bugs/moddata/bug22757
new file mode 100755 (executable)
index 0000000..48fed27
--- /dev/null
@@ -0,0 +1,23 @@
+puts "================"
+puts "OCC22757"
+puts "================"
+puts ""
+#######################################################################################
+# Exception in ShapeHealing
+######################################################################################
+
+set BugNumber OCC22757
+
+catch {pload XDE}
+
+set status 0
+restore [locate_data_file BUC60887.brep] res
+set TestVar [ catch {fixshape result res 0.01} ]
+
+if { ${TestVar} != 0 } {
+    puts "Faulty ${BugNumber}"
+} else {
+    puts "OK ${BugNumber}"
+}
+
+set 3dviewer 0
diff --git a/tests/bugs/moddata/bug22761 b/tests/bugs/moddata/bug22761
new file mode 100755 (executable)
index 0000000..3476f7a
--- /dev/null
@@ -0,0 +1,27 @@
+puts "================"
+puts "OCC22761"
+puts "================"
+puts ""
+puts "ATTENTION! TEST IN DEBUG MODE!"
+puts ""
+#######################################################################################
+# Exception in ModelingData in debug mode
+#######################################################################################
+
+set BugNumber OCC22761
+
+restore [locate_data_file OCC22761-TransmissionTestModel5-notfixed.brep] result
+
+set nb_v_good 2171
+set nb_e_good 1210
+set nb_w_good 226
+set nb_f_good 213
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 3821
+
+set length 217577
+set 3dviewer 0
+
diff --git a/tests/bugs/moddata/bug22789 b/tests/bugs/moddata/bug22789
new file mode 100755 (executable)
index 0000000..0f6bf7e
--- /dev/null
@@ -0,0 +1,24 @@
+puts "==========="
+puts "OCC22789"
+puts "==========="
+puts ""
+#######################################################################
+# Exception in Encode regularity if edge has no pcurve
+#######################################################################
+
+set BugNumber OCC22789
+
+restore [locate_data_file OCC22789-cErr.brep] result
+
+if [catch { encoderegularity result } catch_result] {
+  puts "Faulty ${BugNumber}"
+} else {
+  puts "${BugNumber}  OK"
+}
+
+vinit
+vdisplay result
+vfit
+
+set 3dviewer 1
+
diff --git a/tests/bugs/moddata/bug22910_1 b/tests/bugs/moddata/bug22910_1
new file mode 100755 (executable)
index 0000000..0d4212e
--- /dev/null
@@ -0,0 +1,27 @@
+puts "TODO OCC11111 ALL: An exception was caught"
+puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: Faulty OCC22910"
+
+puts "================"
+puts "OCC22910"
+puts "================"
+puts ""
+#######################################################################################
+# Failure to compute iso-line for NURBS surface
+######################################################################################
+
+set BugNumber OCC22910
+
+catch { pload MODELING }
+
+restore [locate_data_file s.rle] result
+set exception_status [ catch { uiso u result 0.5 } ]
+
+if { ${exception_status} == 0 } {
+   puts "OK ${BugNumber}"
+} else {
+   puts "Faulty ${BugNumber}"
+}
+
+set sqaure 0
+set 3dviewer 0
diff --git a/tests/bugs/moddata/bug22910_2 b/tests/bugs/moddata/bug22910_2
new file mode 100755 (executable)
index 0000000..b95443b
--- /dev/null
@@ -0,0 +1,22 @@
+puts "================"
+puts "OCC22910"
+puts "================"
+puts ""
+#######################################################################################
+# Failure to compute iso-line for NURBS surface
+######################################################################################
+
+set BugNumber OCC22910
+
+restore [locate_data_file s.rle] s 
+mkface result s
+set exception_status [ catch { incmesh result 0.0038476968063336017 } ]
+
+if { ${exception_status} == 0 } {
+   puts "OK ${BugNumber}"
+} else {
+   puts "Faulty ${BugNumber}"
+}
+
+set square 0.110535
+set 3dviewer 0
diff --git a/tests/bugs/moddata/bug22923 b/tests/bugs/moddata/bug22923
new file mode 100755 (executable)
index 0000000..024e571
--- /dev/null
@@ -0,0 +1,28 @@
+puts "============"
+puts "OCC22923"
+puts "============"
+#######################################################################
+# The command "intersect" throws an exception
+#######################################################################
+
+set BugNumber OCC22923
+
+restore [locate_data_file bug22923_Face-2_7.brep] b1 
+restore [locate_data_file bug22923_Face-7_0.brep] b2 
+
+set exception_status 0
+
+mksurface s1 b1
+mksurface s2 b2
+
+set msg [ intersect i s1 s2 ]
+set index [ lsearch $msg Exception ]
+
+if {$index > -1} {
+  set exception_status 1 }   
+
+if { ${exception_status} != 0 } {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
diff --git a/tests/bugs/moddata/bug22989 b/tests/bugs/moddata/bug22989
new file mode 100755 (executable)
index 0000000..1a97a44
--- /dev/null
@@ -0,0 +1,16 @@
+puts "================"
+puts "OCC22989"
+puts "================"
+puts ""
+#######################################################################################
+# BSplCLib::Reparametrize() fails on near knots
+######################################################################################
+
+set BugNumber OCC22989
+
+restore [locate_data_file OCC22989-edge-nosameparameter.brep] result
+
+sameparameter result
+
+set length 85.0797
+set 3dviewer 0
diff --git a/tests/bugs/moddata/bug22993 b/tests/bugs/moddata/bug22993
new file mode 100755 (executable)
index 0000000..6ad60e9
--- /dev/null
@@ -0,0 +1,17 @@
+puts "TODO OCC11111 ALL: StepFile Error"
+puts "==========="
+puts "OCC22993"
+puts "==========="
+######################################################
+# Crash during reading STEP file
+######################################################
+
+set BugNumber OCC22993
+
+catch { pload XDE }
+
+stepread [locate_data_file OCC22993-23-9421-42601.stp] result *
+
+set 3viewer 0
+
+
diff --git a/tests/bugs/moddata/bug23172 b/tests/bugs/moddata/bug23172
new file mode 100755 (executable)
index 0000000..e395cc3
--- /dev/null
@@ -0,0 +1,32 @@
+puts "================"
+puts "OCC23172"
+puts "================"
+puts ""
+######################################
+# vexport failed on some Intel GPUs
+######################################
+
+set BugNumber OCC23172
+
+box b 1 2 3
+vinit
+vdisplay b
+vfit
+
+set aFile $imagedir/${test_image}.svg
+
+if { [file exists ${aFile}] } {
+  file delete ${aFile}
+}
+
+vexport $aFile SVG
+
+if { [file exists ${aFile}] } {
+   puts "Export to SVG file was done"
+   puts "OK : Export to SVG file was done"
+} else {
+   puts "Faulty : Export to SVG file was not done"
+}
+
+set only_screen 1
+
diff --git a/tests/bugs/moddata/bug23175 b/tests/bugs/moddata/bug23175
new file mode 100755 (executable)
index 0000000..77789ea
--- /dev/null
@@ -0,0 +1,29 @@
+puts "============"
+puts "OCC23175"
+puts "============"
+puts ""
+####################################################################################
+# Failed to segment a periodic B-Spline when parameter coincides with existing knot
+####################################################################################
+
+set BugNumber OCC23175
+
+restore [locate_data_file OCC23175-bspline-per-3_draw] result 
+
+catch { segment result 1 2.5 } msg
+
+set exception_status 0
+set index [lsearch $msg exception]
+if {$index > -1} {
+    set exception_status 1
+}
+
+if { ${exception_status} != 0 } {
+    puts "Faulty ${BugNumber}"
+} else {
+    puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
+
diff --git a/tests/bugs/moddata/bug6412_1 b/tests/bugs/moddata/bug6412_1
new file mode 100755 (executable)
index 0000000..5189653
--- /dev/null
@@ -0,0 +1,17 @@
+puts "================"
+puts "OCC6412"
+puts "================"
+puts ""
+#######################################################################################
+# Regression in vizualization
+#######################################################################################
+
+set BugNumber OCC6412
+
+restore [locate_data_file OCC6412.brep] result
+vinit
+vfit
+vsetdispmode 1
+
+set square 3480.05
+set 3dviewer 0
diff --git a/tests/bugs/vis/bug146 b/tests/bugs/vis/bug146
deleted file mode 100755 (executable)
index 487f828..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-puts "================"
-puts "OCC146"
-puts "================"
-############################################################################
-##The first click on shape selects it - it is right. But the second one deselects it and the following clicks have no effect.
-############################################################################
-
-v2dinit
-box b_b 10 15 20
-trotate b_b 0 0 0 1 1 1 45
-v2ddisplay b_b
-v2dfit
-
-QASelect2d 155 180
-QASelect2d 155 180
-QASelect2d 155 180
-
-set coord_x 155
-set coord_y 177
-set color2d 1
-
-checkcolor $coord_x $coord_y 0.8 0.8 0.8
-
-if { $stat != 1 } {
-    puts "Error : The second selection of selected object deselects it and the following clicks have no effect"
-}
-
-set only_screen2d 1
-
diff --git a/tests/bugs/vis/bug186 b/tests/bugs/vis/bug186
deleted file mode 100644 (file)
index f45b34d..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-puts "========"
-puts "OCC186"
-puts "========"
-
-v2dinit
-v2dcircle circle 0 0 5
-set zoom_factor 10000000
-QAv2dzoom ${zoom_factor}
-
-set only_screen2d 1
-
diff --git a/tests/bugs/vis/bug197_1 b/tests/bugs/vis/bug197_1
deleted file mode 100755 (executable)
index 0f9e740..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-puts "========"
-puts "OCC197"
-puts "(case 1)"
-puts "========"
-puts ""
-#############################################################
-##puts "Multiple Selection:  Choosing of viewer MODA for selection of  PRIMITIVE"
-##puts "(visual checking for this case is desirable)"
-#############################################################
-# Selection Modes Activation:
-# 0 - OBJECT, 1 - PRIMITIVE, 2 - ELEMENT, 3 - VERTEX, 4 - NONE
-
-v2dinit
-
-box b_b 10 15 20
-v2ddisplay b_b 0 0 0 1 1 1 1 0 0
-v2dfit
-set color2d 1
-
-QAv2dSetHighlightMode 1
-
-QASelect2d 169 148
-QAMoveTo2d 0 0
-QAShiftSelect2d 184 180
-
-set x_coord 169
-set y_coord 148
-
-checkcolor $x_coord $y_coord 0.8 0.8 0.8
-if { ${stat} != 1 } {
-    puts "Error : (PRIMITIVE number 1) Multiple Selection: Choosing of viewer MOD for selection of PRIMITIVE was NOT MADE properly"
-}
-
-set x_coord 184
-set y_coord 180
-
-checkcolor $x_coord $y_coord 0.8 0.8 0.8
-if { ${stat} != 1 } {
-    puts "Error : (PRIMITIVE number 2) Multiple Selection: Choosing of viewer MOD for selection of PRIMITIVE was NOT MADE properly"
-}
-
-set only_screen2d 1
-
-
-
diff --git a/tests/bugs/vis/bug197_2 b/tests/bugs/vis/bug197_2
deleted file mode 100755 (executable)
index 7234b57..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-puts "========"
-puts "OCC197"
-puts "(case 2)"
-puts "========"
-puts ""
-puts "====================="
-puts "Multiple Selection:  Choosing of viewer MODA for selection of  ELEMENT"
-puts "(visual checking for this case is desirable)"
-puts "====================="
-# Selection Modes Activation:
-# 0 - OBJECT, 1 - PRIMITIVE, 2 - ELEMENT, 3 - VERTEX, 4 - NONE
-
-v2dinit
-box b_b 10 15 20
-v2ddisplay b_b 0 0 0 1 1 1 1 0 0
-v2dfit
-QAv2dSetHighlightMode 2
-set color2d 1
-
-QASelect2d 296 160
-QAMoveTo2d 0 0
-QAShiftSelect2d 76 290
-
-set x_coord 296
-set y_coord 161
-
-checkcolor $x_coord $y_coord 0.8 0.8 0.8
-
-if { ${stat} != 1 } {
-    puts "Error : (ELEMENT number 1) Multiple Selection: Choosing of viewer MOD for selection of ELEMENT was NOT MADE properly"
-}
-
-set x_coord 76
-set y_coord 290
-
-checkcolor $x_coord $y_coord 0.8 0.8 0.8
-
-if { ${stat} != 1 } {
-    puts "Error : (ELEMENT number 2) Multiple Selection: Choosing of viewer MOD for selection of ELEMENT was NOT MADE properly"
-}
-
-set only_screen2d 1
-
diff --git a/tests/bugs/vis/bug21757 b/tests/bugs/vis/bug21757
new file mode 100755 (executable)
index 0000000..0751a80
--- /dev/null
@@ -0,0 +1,23 @@
+puts "==========="
+puts "OCC21757"
+puts "==========="
+puts ""
+################################################################################
+# Funny (giraffe-like) shading of torus meshed with specific parameters (WNT)
+################################################################################
+
+set BugNumber OCC21757
+
+vinit
+vsetdispmode 1
+vclear
+
+ptorus result 200 50 45
+incmesh result 0.4
+vdisplay result
+vfit
+
+set square 65069.2
+set only_screen 0
+
diff --git a/tests/bugs/vis/bug22483_1 b/tests/bugs/vis/bug22483_1
new file mode 100755 (executable)
index 0000000..be677c9
--- /dev/null
@@ -0,0 +1,16 @@
+puts "============"
+puts "OCC22483"
+puts "============"
+puts ""
+#######################################################################
+# ZBufferTrihedron loses user-defined color
+#######################################################################
+
+set BugNumber OCC22483
+
+vinit
+vzbufftrihedron
+
+set only_screen 1
+
+
diff --git a/tests/bugs/vis/bug22483_2 b/tests/bugs/vis/bug22483_2
new file mode 100755 (executable)
index 0000000..d4140cd
--- /dev/null
@@ -0,0 +1,15 @@
+puts "============"
+puts "OCC22483"
+puts "============"
+puts ""
+#######################################################################
+# ZBufferTrihedron loses user-defined color
+#######################################################################
+
+set BugNumber OCC22483
+
+vinit
+vzbufftrihedron left_lower 255 255 255 0.1 zbuffer 
+
+set only_screen 1
+
diff --git a/tests/bugs/vis/bug22483_3 b/tests/bugs/vis/bug22483_3
new file mode 100755 (executable)
index 0000000..60e3b1c
--- /dev/null
@@ -0,0 +1,16 @@
+puts "============"
+puts "OCC22483"
+puts "============"
+puts ""
+#######################################################################
+# ZBufferTrihedron loses user-defined color
+#######################################################################
+
+set BugNumber OCC22483
+
+vinit
+vzbufftrihedron right_upper 200 50 255 0.2 zbuffer 
+
+set only_screen 1
+
+
diff --git a/tests/bugs/vis/bug22483_4 b/tests/bugs/vis/bug22483_4
new file mode 100755 (executable)
index 0000000..e8e3853
--- /dev/null
@@ -0,0 +1,16 @@
+puts "============"
+puts "OCC22483"
+puts "============"
+puts ""
+#######################################################################
+# ZBufferTrihedron loses user-defined color
+#######################################################################
+
+set BugNumber OCC22483
+
+vinit
+vzbufftrihedron center 0 150 255 0.1 wireframe 
+
+set only_screen 1
+
+
diff --git a/tests/bugs/vis/bug22762 b/tests/bugs/vis/bug22762
new file mode 100755 (executable)
index 0000000..3aded17
--- /dev/null
@@ -0,0 +1,43 @@
+puts "================"
+puts "OCC22762"
+puts "================"
+puts ""
+######################################################################################
+# Bug in Graphic3d_Vector::IsParallel
+######################################################################################
+
+set BugNumber OCC22762
+
+set x0 0
+set y0 0
+set z0 0
+set x1 0.57735026
+set y1 0.57735026
+set z1 0.57735026
+set x2 -0.40824828
+set y2 -0.40824828
+set z2 0.81649655
+
+vinit
+vpoint p0 $x0 $y0 $z0
+vpoint p1 $x1 $y1 $z1
+vpoint p2 $x2 $y2 $z2
+vline line1 p0 p1
+vline line2 p0 p2
+vfit
+
+set info [ OCC22762 $x1 $y1 $z1 $x2 $y2 $z2]
+set Word [string compare [lindex ${info} end] "false"]
+
+# Resume
+puts ""
+if { ${Word} == 0 } {
+   puts "OK ${BugNumber}"
+} else {
+   puts "Faulty ${BugNumber}"
+}
+
+set only_screen 1
+
+
+
diff --git a/tests/bugs/vis/bug22796_1 b/tests/bugs/vis/bug22796_1
new file mode 100755 (executable)
index 0000000..f3c4ff8
--- /dev/null
@@ -0,0 +1,17 @@
+puts "============"
+puts "OCC22796"
+puts "============"
+puts ""
+#######################################################################
+# Possibility to display multi-line text in 3D
+#######################################################################
+
+set BugNumber OCC22796
+
+vdrawtext "MyTest1\rHello,\tWor\vld!\nMyTest2\t\a\bMyTest3" 0 0 0 255 255 255 0 0 0 1 50 0
+
+set only_screen 1
+
+
+
+
diff --git a/tests/bugs/vis/bug22796_2 b/tests/bugs/vis/bug22796_2
new file mode 100755 (executable)
index 0000000..1a4cc70
--- /dev/null
@@ -0,0 +1,14 @@
+puts "============"
+puts "OCC22796"
+puts "============"
+puts ""
+#######################################################################
+# Possibility to display multi-line text in 3D
+#######################################################################
+
+set BugNumber OCC22796
+
+vdrawtext "\x30\x42\x00\x09\x30\x79\x00\x0A\x30\x6F" 0 0 0 255 255 255 0 0 0 1 50 0 Mona 1
+
+set only_screen 1
+
diff --git a/tests/bugs/vis/bug22796_3 b/tests/bugs/vis/bug22796_3
new file mode 100755 (executable)
index 0000000..0dc4b39
--- /dev/null
@@ -0,0 +1,18 @@
+puts "============"
+puts "OCC22796"
+puts "============"
+puts ""
+#######################################################################
+# Possibility to display multi-line text in 3D
+#######################################################################
+
+set BugNumber OCC22796
+
+vdrawtext "TestString\nHello,\tWorld!" 0 0 0 255 255 255 0 0 0 1 50 0
+vexport $imagedir/${test_image}.pdf PDF
+
+set only_screen 1
+
+
+
+
diff --git a/tests/bugs/vis/bug22819 b/tests/bugs/vis/bug22819
new file mode 100755 (executable)
index 0000000..b26f736
--- /dev/null
@@ -0,0 +1,22 @@
+puts "============"
+puts "OCC22819"
+puts "============"
+puts ""
+##################################################################
+# Redesign of OpenGl driver(Tests ColorScale)
+##################################################################
+
+set BugNumber OCC22819
+
+plane p 100 100 100 0 0 1 1 0 0
+psphere result p 30
+vinit
+vdisplay result
+vsetmaterial result SILVER
+vsettransparency result 0.6
+vcolorscale
+vsetdispmode result 1 
+
+set square 11309.6
+set only_screen 1
+
diff --git a/tests/bugs/vis/bug22985 b/tests/bugs/vis/bug22985
new file mode 100755 (executable)
index 0000000..8f7e08e
--- /dev/null
@@ -0,0 +1,33 @@
+puts "============"
+puts "OCC22985"
+puts "============"
+puts ""
+#######################################################################
+# Regression: no shading on good face
+#######################################################################
+
+set BugNumber OCC22985
+
+restore [locate_data_file OCC22985-gt602-f72-noshading.brep] result
+
+vinit
+vdisplay result
+vfit
+
+vsetdispmode 1
+
+set x 150
+set y 175
+
+set RED_R1   0.68627399206161499
+set GREEN_R1 0.48627400398254395
+set BLUE_R1  0.078431000000000001
+
+vmoveto $x $y
+vmoveto $x $y
+
+checkcolor $x $y ${RED_R1} ${GREEN_R1} ${BLUE_R1}
+
+set square 0.0984334
+set only_screen 1
+
diff --git a/tests/bugs/vis/bug23065 b/tests/bugs/vis/bug23065
new file mode 100755 (executable)
index 0000000..a71e69b
--- /dev/null
@@ -0,0 +1,34 @@
+puts "================"
+puts "OCC23065"
+puts "================"
+puts ""
+##########################################################################################
+# This is desirable to add general DRAW command to estimate visualization performance
+##########################################################################################
+
+set BugNumber OCC23065
+
+vinit
+set Log [vfps]
+
+set status 0
+if { [llength ${Log}] == 5} {
+   set word1 [string compare [lindex ${Log} end] "msec"]
+   set word2 [string compare [lindex ${Log} end-2] "CPU:"]
+   set word3 [string compare [lindex ${Log} end-4] "FPS:"]
+   if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
+      set status 0
+   } else {
+      set status 1
+   }
+} else {
+   set status 1
+}
+
+# Resume
+puts ""
+if { ${status} == 0 } {
+   puts "OK ${BugNumber}"
+} else {
+   puts "Faulty ${BugNumber}"
+}
index fc93feb..c79affe 100755 (executable)
@@ -6,8 +6,6 @@ puts ""
 # Transform persistence is not restored
 ###########################################################################
 
-pload QAcommands
-
 box b1 10 20 30
 box b2 10 20 30
 ttranslate b2 50 50 0
index c5e7329..198e0c6 100755 (executable)
@@ -5,7 +5,6 @@ puts ""
 #######################################################################
 # Draw face outlines for XDE objects
 #######################################################################
-pload QAcommands
 pload XDEDRAW
 
 XNewDoc Doc1
index 471a138..56a7bec 100755 (executable)
@@ -5,8 +5,6 @@ puts ""
 #######################################################################
 # Draw face outlines for XDE objects
 #######################################################################
-pload QAcommands
-pload AISV MODELING
 
 box b 10 10 10
 vinit
diff --git a/tests/bugs/vis/bug288_10 b/tests/bugs/vis/bug288_10
new file mode 100755 (executable)
index 0000000..3ef962e
--- /dev/null
@@ -0,0 +1,31 @@
+puts "================"
+puts "OCC288"
+puts "================"
+puts ""
+#######################################################################################
+# Currently meshing (for shading) of some shapes looks incorrect
+######################################################################################
+
+set BugNumber OCC288
+
+restore [locate_data_file shading_151.brep] result
+
+set square 54328.8
+
+set nb_v_good 20
+set nb_e_good 37
+set nb_w_good 21
+set nb_f_good 19
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 98
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set 3dviewer 1
diff --git a/tests/bugs/vis/bug288_6 b/tests/bugs/vis/bug288_6
new file mode 100755 (executable)
index 0000000..6161bd2
--- /dev/null
@@ -0,0 +1,31 @@
+puts "================"
+puts "OCC288"
+puts "================"
+puts ""
+#######################################################################################
+# Currently meshing (for shading) of some shapes looks incorrect
+######################################################################################
+
+set BugNumber OCC288
+
+restore [locate_data_file OCC288-shading_176.brep] result
+
+set square 1.21055e+07
+
+set nb_v_good 667
+set nb_e_good 941
+set nb_w_good 368
+set nb_f_good 289
+set nb_sh_good 6
+set nb_sol_good 6
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 2278
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set 3dviewer 1
diff --git a/tests/bugs/vis/bug288_7 b/tests/bugs/vis/bug288_7
new file mode 100755 (executable)
index 0000000..6fc9c0f
--- /dev/null
@@ -0,0 +1,31 @@
+puts "================"
+puts "OCC288"
+puts "================"
+puts ""
+#######################################################################################
+# Currently meshing (for shading) of some shapes looks incorrect
+######################################################################################
+
+set BugNumber OCC288
+
+restore [locate_data_file shading_058.brep] result
+
+set square 14125.5
+
+set nb_v_good 23
+set nb_e_good 40
+set nb_w_good 19
+set nb_f_good 19
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 104
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set 3dviewer 1
diff --git a/tests/bugs/vis/bug288_8 b/tests/bugs/vis/bug288_8
new file mode 100755 (executable)
index 0000000..5ee2b6d
--- /dev/null
@@ -0,0 +1,31 @@
+puts "================"
+puts "OCC288"
+puts "================"
+puts ""
+#######################################################################################
+# Currently meshing (for shading) of some shapes looks incorrect
+######################################################################################
+
+set BugNumber OCC288
+
+restore [locate_data_file shading_105.brep] result
+
+set length 265.239
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 7
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set 3dviewer 1
diff --git a/tests/bugs/vis/bug288_9 b/tests/bugs/vis/bug288_9
new file mode 100755 (executable)
index 0000000..e59dc01
--- /dev/null
@@ -0,0 +1,31 @@
+puts "================"
+puts "OCC288"
+puts "================"
+puts ""
+#######################################################################################
+# Currently meshing (for shading) of some shapes looks incorrect
+######################################################################################
+
+set BugNumber OCC288
+
+restore [locate_data_file shading_107.brep] result
+
+set square 329710
+
+set nb_v_good 18
+set nb_e_good 36
+set nb_w_good 18
+set nb_f_good 18
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 91
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set 3dviewer 1
diff --git a/tests/bugs/vis/bug331_1 b/tests/bugs/vis/bug331_1
new file mode 100755 (executable)
index 0000000..8883b6b
--- /dev/null
@@ -0,0 +1,23 @@
+puts "================"
+puts "OCC331"
+puts "================"
+puts ""
+#######################################################################################
+# Dark spot on a sphere after nurbsconvert
+######################################################################################
+
+set BugNumber OCC331
+
+box b -5 -5 -5 10 10 10
+psphere s 6
+fuse res2 s b
+nurbsconvert result res2
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set square 619.595
+set 3dviewer 1
diff --git a/tests/bugs/vis/bug451 b/tests/bugs/vis/bug451
deleted file mode 100755 (executable)
index f940d90..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-puts "========================"
-puts " OCC451 "
-puts "========================"
-puts ""
-#############################################################
-## puts "Choosing of viewer MODA for selection of VERTEX"
-## puts "(visual checking for this case is desirable)"
-##
-#                                           Selection Modes Activation:
-#          0 - OBJECT, 1 - VERTEX, 2 - ELEMENT, 3 - VERTEX, 4 - NONE
-#############################################################
-
-vertex v1 0 0 0
-vertex v2 10 10 10
-v2dinit
-v2ddisplay v1
-v2ddisplay v2
-v2dfit
-
-set x_coord 49
-set y_coord 361
-set color2d 1
-
-QAv2dSetHighlightMode 3
-QAMoveTo2d 0 0
-QASelect2d $x_coord $y_coord
-
-checkcolor $x_coord $y_coord 0.8 0.8 0.8
-
-if {$stat != 1} {
-   puts "Error : Choosing of viewer MOD for selection of VERTEX was NOT MADE properly"
-}
-
-set only_screen2d 1
diff --git a/tests/bugs/vis/bug543 b/tests/bugs/vis/bug543
deleted file mode 100644 (file)
index fff91ca..0000000
+++ /dev/null
@@ -1,30 +0,0 @@
-puts "========"
-puts "OCC543"
-puts "========"
-
-v2dinit
-
-set X 0
-set Y 0
-set Radius 10
-set Alpha 0
-set Beta 3.14
-
-QAv2dcircle Circle ${X} ${Y} ${Radius} ${Alpha} ${Beta}
-v2dfit
-
-set x1 207
-#set y1 103
-set y1 104
-
-QAMoveTo2d ${x1} ${y1}
-
-set result [lindex [OCC543 Circle] 2]
-
-if {${result} == 0} {
-   puts "OCC543: Error"
-}
-
-set only_screen2d 1
-
-
diff --git a/tests/bugs/xde/bug22092 b/tests/bugs/xde/bug22092
new file mode 100755 (executable)
index 0000000..e7b64de
--- /dev/null
@@ -0,0 +1,23 @@
+puts "================"
+puts "OCC22092"
+puts "================"
+puts ""
+######################################################################################
+# Crash of application on attempt to load a VRML file with all degenerated triangles
+######################################################################################
+
+set BugNumber OCC22092
+
+loadvrml result [locate_data_file OCC22092-sk97.wrl]
+
+set nb_v_good 16
+set nb_e_good 25
+set nb_w_good 13
+set nb_f_good 13
+set nb_sh_good 2
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 10
+set nb_shape_good 79
+
+set 3dviewer 0
diff --git a/tests/bugs/xde/bug22535_1 b/tests/bugs/xde/bug22535_1
new file mode 100755 (executable)
index 0000000..2ff9b4a
--- /dev/null
@@ -0,0 +1,34 @@
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "==========="
+puts "OCC22535"
+puts "==========="
+######################################################
+# Cut cphere: invalid shape after reading from STEP
+######################################################
+
+set BugNumber OCC22535
+
+restore [locate_data_file OCC22535-sphere_cyl2_cut.brep] a 
+testwritestep $imagedir/${test_image}.stp a
+stepread $imagedir/${test_image}.stp b *
+renamevar b_1 result
+vinit
+vsetdispmode 1
+vdisplay result
+vfit
+
+set square 14217.2
+
+set nb_v_good 6
+set nb_e_good 9
+set nb_w_good 3
+set nb_f_good 2
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 23
+
+set 3dviewer 1
diff --git a/tests/bugs/xde/bug22535_2 b/tests/bugs/xde/bug22535_2
new file mode 100755 (executable)
index 0000000..8e964f5
--- /dev/null
@@ -0,0 +1,34 @@
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "==========="
+puts "OCC22535"
+puts "==========="
+######################################################
+# Cut cphere: invalid shape after reading from STEP
+######################################################
+
+set BugNumber OCC22535
+
+restore [locate_data_file OCC22535-cut_comp.brep] a 
+testwritestep $imagedir/${test_image}.stp a
+stepread $imagedir/${test_image}.stp b *
+renamevar b_1 result
+vinit
+vsetdispmode 1
+vdisplay result
+vfit
+
+set square 50201.3
+
+set nb_v_good 11
+set nb_e_good 23
+set nb_w_good 9
+set nb_f_good 8
+set nb_sh_good 5
+set nb_sol_good 4
+set nb_compsol_good 0
+set nb_compound_good 5
+set nb_shape_good 65
+
+set 3dviewer 1
diff --git a/tests/bugs/xde/bug22670_1 b/tests/bugs/xde/bug22670_1
new file mode 100755 (executable)
index 0000000..9c74bea
--- /dev/null
@@ -0,0 +1,32 @@
+puts "================"
+puts "OCC22670"
+puts "================"
+puts ""
+#######################################################################################
+# Regression in the method RWStl::WriteAscii
+#######################################################################################
+
+set BugNumber OCC22670
+
+readstl res_mesh [locate_data_file OMF6391_box.stl]
+
+set aFile ${imagedir}/OCC22670.stl
+file delete ${aFile}
+
+set anASCIImode 0
+writestl res_mesh ${aFile} ${anASCIImode}
+catch {exec chmod 777 ${aFile}}
+
+readstl result ${aFile}
+
+set nb_v_good 8
+set nb_e_good 18
+set nb_w_good 12
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 51
+
+set 2dviewer 0
diff --git a/tests/bugs/xde/bug22670_2 b/tests/bugs/xde/bug22670_2
new file mode 100755 (executable)
index 0000000..bc692f8
--- /dev/null
@@ -0,0 +1,46 @@
+puts "================"
+puts "OCC22670"
+puts "================"
+puts ""
+#######################################################################################
+# Regression in the method RWStl::WriteAscii
+#######################################################################################
+#
+puts "================"
+puts "OCC22866"
+puts "================"
+puts ""
+#######################################################################################
+# Now it is not possible to mesh a shape in parallel mode during the export in STL
+#######################################################################################
+#
+
+set BugNumber OCC22670
+
+if { [catch { readstl res_mesh [locate_data_file OMF6391_box.stl] } catch_result] } {
+    puts "Faulty ${BugNumber}: here is reading problem"
+} else {
+    set nbshapes_res_mesh [nbshapes res_mesh]
+
+    set aFile $imagedir/${test_image}.stl
+    catch {exec rm -f ${aFile}}
+
+    set anASCIImode 0
+    set InParallel 1
+    writestl res_mesh ${aFile} ${anASCIImode} ${InParallel}
+    catch {exec chmod 777 ${aFile}}
+
+    readstl result ${aFile}
+
+    set nb_v_good 8
+    set nb_e_good 18
+    set nb_w_good 12
+    set nb_f_good 12
+    set nb_sh_good 1
+    set nb_sol_good 0
+    set nb_compsol_good 0
+    set nb_compound_good 0
+    set nb_shape_good 51
+}
+set square 600
+set 3dviewer 0
diff --git a/tests/bugs/xde/bug22728 b/tests/bugs/xde/bug22728
new file mode 100755 (executable)
index 0000000..e37904b
--- /dev/null
@@ -0,0 +1,22 @@
+puts "================"
+puts "OCC22728"
+puts "================"
+puts ""
+#######################################################################################
+# STEP export API does not provide possibility to control output stream
+######################################################################################
+
+set BugNumber OCC22728
+
+box b 10 10 10
+
+cd ${imagedir}
+
+set text [stepwrite a b test.step]
+
+if { [regexp "File test.step written" $text] != 1 } {
+  puts "Faulty ${BugNumber}"
+} else {
+  puts "OK ${BugNumber}"
+}
+
diff --git a/tests/bugs/xde/bug22826 b/tests/bugs/xde/bug22826
new file mode 100755 (executable)
index 0000000..050858c
--- /dev/null
@@ -0,0 +1,27 @@
+puts "============"
+puts "OCC22826"
+puts "============"
+puts ""
+#######################################################################
+# Increasiong of perfomance of fixes applied during translation of STEP files.
+#######################################################################
+
+set BugNumber OCC22826
+
+restore [locate_data_file bug22610_f1.brep] a 
+mksurface s1 a
+
+proj s1 1500 1500 500 g
+set x [lindex [length ext_2] end]
+
+proj s1 1500 1500 500 t
+set y [lindex [length ext_1] end]
+
+# Resume
+puts ""
+if { $x == $y } {
+   puts "OK ${BugNumber}"
+} else {
+   puts "Faulty ${BugNumber}"
+}
+
diff --git a/tests/bugs/xde/bug23182 b/tests/bugs/xde/bug23182
new file mode 100755 (executable)
index 0000000..b2251f4
--- /dev/null
@@ -0,0 +1,38 @@
+puts "============"
+puts "OCC23182"
+puts "============"
+puts ""
+#######################################################################
+# During STEP translation isn't checked for validity flag IsClosed
+#######################################################################
+
+set BugNumber OCC23182
+
+testreadstep [locate_data_file OCC23182-Layout1.stp] result
+
+set CheckShape_status 0
+
+set square 1.24252
+
+set nb_v_good 98
+set nb_e_good 98
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 1
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 199
+
+set aClosed [lindex [whatis result] end]
+if { ${aClosed} != "Orientable" } {
+   set CheckShape_status 1
+}
+
+if { ${CheckShape_status} != 0 } {
+   puts "Faulty ${BugNumber}"
+} else {
+   puts "OK ${BugNumber}"
+}
+
+set 3dviewer 0
diff --git a/tests/bugs/xde/bug810_1 b/tests/bugs/xde/bug810_1
new file mode 100755 (executable)
index 0000000..0ba194f
--- /dev/null
@@ -0,0 +1,16 @@
+puts "========================"
+puts "OCC810"
+puts "========================"
+puts ""
+########################################################################
+## xalloc in optimise mode 
+########################################################################
+
+set BugNumber OCC810
+
+restore [locate_data_file OCC810.rle] a 
+
+fixshape result a 1.e-7 0.1
+
+set square 3454.13
+set 3dviewer 0
old mode 100644 (file)
new mode 100755 (executable)
index da4a814..6a613ea
@@ -12,7 +12,7 @@ if {
 } else {
   puts "TODO OCC23068 $os: Faulty shapes in variables faulty_1 to faulty_1"
   puts "TODO OCC23068 $os: Error : The offset is not valid. "
-  puts "TODO OCC23068 $os: Error : Square of face result_5 of the resulting shape is negative."
+  puts "TODO OCC23068 $os: Error : Thr area of face result_5 of the resulting shape is negative."
 }
 
 ellipse w1 0 0 0 15 10
old mode 100644 (file)
new mode 100755 (executable)
index c75a08f..de985e4
@@ -12,7 +12,7 @@ if {
 } else {
   puts "TODO OCC23068 $os: Faulty shapes in variables faulty_1 to faulty_1"
   puts "TODO OCC23068 $os: Error : The offset is not valid. "
-  puts "TODO OCC23068 $os: Error : Square of face result_5 of the resulting shape is negative."
+  puts "TODO OCC23068 $os: Error : The area of face result_5 of the resulting shape is negative."
 }
 
 ellipse w1 0 0 0 15 10
old mode 100644 (file)
new mode 100755 (executable)
index f44934c..1484655
@@ -1,6 +1,8 @@
-#old file ofs9
+puts "TODO ?OCC23086 ALL: Error : The offset is not valid. The volume is 0."
+puts "TODO ?OCC23086 ALL: Error : The volume of the resulting shape is"
 
-restore [locate_data_file CHE_bb9.rle] s
-OFFSETSHAPE -0.1 {} $calcul $type
+pcone s 10 5 20
 
-set volume 24.6541
+OFFSETSHAPE -1 {} $calcul $type
+
+set volume 2462.04
old mode 100644 (file)
new mode 100755 (executable)
index 5983572..6a9fdd4
@@ -1,6 +1,6 @@
 puts "TODO ?OCC23068 ALL: Faulty shapes in variables faulty_1 to faulty_"
 puts "TODO ?OCC23068 ALL: Error : The area of face result_\\d+ of the resulting shape is negative."
-puts "TODO ?OCC23068 ALL: Error: bsection of the result and s is not equal zero"
+puts "TODO ?OCC23068 ALL: Error: bsection of the result and s is not equal to zero"
 puts "TODO ?OCC23068 ALL:Error\\s*:\\s*.*The volume"
 
 ellipse w1 0 0 0 15 10
old mode 100644 (file)
new mode 100755 (executable)
index 27a365c..8182bab
@@ -1,4 +1,4 @@
-puts "TODO ?OCC23068 Mandriva2010: Error: bsection of the result and s is not equal zero"
+puts "TODO ?OCC23068 Mandriva2010: Error: bsection of the result and s is not equal to zero"
 puts "TODO ?OCC23068 Mandriva2010: Faulty shapes in variables faulty_1 to faulty_2"
 puts "TODO OCC23068 Mandriva2010: Error : The volume of the resulting shape"
 
old mode 100644 (file)
new mode 100755 (executable)
index 60ace77..031e11c
@@ -1,4 +1,4 @@
-puts "TODO OCC23068 Mandriva2010: Error: bsection of the result and s is not equal zero"
+puts "TODO OCC23068 Mandriva2010: Error: bsection of the result and s is not equal to zero"
 puts "TODO OCC23068 Mandriva2010: Error : The volume of the resulting shape "
 puts "TODO ?OCC23068 Mandriva2010: Faulty shapes in variables faulty_1 to faulty_2"
 ellipse w1 0 0 0 15 10