Integration part of tests of grid chl

tests/bugs/grids.list

@@ -8,3 +8,5 @@
 008 step
 009 caf
 010 mesh
+011 heal
+

tests/bugs/heal/begin

@@ -0,0 +1,3 @@
+pload XSDRAW
+
+

tests/bugs/heal/bug208

@@ -0,0 +1,18 @@
+#INTERFACE IGES
+puts "========"
+puts "OCC208"
+puts "========"
+
+##########################
+## Incorrect work of ShapeFix
+##########################
+
+restore [locate_data_file OCC208.brep] a 
+
+fixshape result a 0.01 0.01
+
+puts [checkshape result]
+set 2dviewer 0
+
+
+

tests/bugs/heal/bug209

@@ -0,0 +1,19 @@
+#INTERFACE IGES
+puts "========"
+puts "OCC209"
+puts "========"
+
+##########################################
+## FixMissingSeam leads to lost pcurve on neighbouring face
+##########################################
+
+restore [locate_data_file OCC209.brep] a 
+explode a f
+checkshape a_4
+
+fixshape result a 0.01 0.01
+explode result f
+
+puts [checkshape result_4]
+set 2dviewer 1
+

tests/bugs/heal/bug210_1

@@ -0,0 +1,16 @@
+puts "========"
+puts "OCC210"
+puts "(case 1)"
+puts "========"
+
+##########################################
+## Improve FixShape to correct case of touching wires 
+##########################################
+
+restore [locate_data_file OCC210a.brep] a 
+
+fixshape result a 0.01 0.01
+
+puts [checkshape result]
+set 2dviewer 1
+

tests/bugs/heal/bug210_2

@@ -0,0 +1,16 @@
+puts "========"
+puts "OCC210"
+puts "(case 2)"
+puts "========"
+
+##########################################
+## Improve FixShape to correct case of touching wires 
+##########################################
+
+restore [locate_data_file OCC210b.brep] a 
+
+fixshape result a 0.01 0.01
+
+puts [checkshape result]
+set 2dviewer 1
+

tests/bugs/heal/bug329

@@ -0,0 +1,33 @@
+puts "========================"
+puts " OCC329 "
+puts "========================"
+puts ""
+###########################################################
+##fixshape command does not fix incorrect tolerance order. 
+###########################################################
+
+restore [locate_data_file OCC329.brep] a 
+
+puts [checkshape a]
+set tol1 [maxtolerance a]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full face1
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full edge1
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full vert1
+
+fixshape result a 1.e-7 0.1
+
+puts [checkshape result]
+set tol2 [ maxtolerance result]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full face2
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full edge2
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full vert2
+
+if { ${face2} > ${face1} || ${edge2} > ${edge1} || ${vert2} > ${vert1} } {
+    puts "Error : Tolerance invalid. Function FixShape works WRONGLY"
+} else {
+    puts "Tolerance valed. Function FixShape works CORRECTLY"
+}
+
+set 2dviewer 1
+
+

tests/bugs/heal/bug482

@@ -0,0 +1,16 @@
+puts "========================"
+puts " OCC482 "
+puts "========================"
+puts ""
+#################################################
+## Regression in ShapeFix_Wireframe (caused by fix on OCC394)
+#################################################
+
+restore [locate_data_file OCC482.brep] a 
+
+fixsmall result a 0.05
+
+puts [checkshape result]
+set 2dviewer 1
+
+

tests/bugs/heal/bug60940

@@ -0,0 +1,10 @@
+puts "========================"                                                                                      
+puts "BUC60940"                                                                                                      
+puts "========================"                                                                                      
+
+restore [locate_data_file buc60940.rle] a 
+
+fixshape result a 1e-7 1
+puts [checkshape result]
+
+set 2dviewer 1

tests/bugs/heal/bug60950

@@ -0,0 +1,15 @@
+puts "==========="
+puts "  BUC60950"
+puts "==========="
+
+restore [locate_data_file buc60950.rle] a 
+checkshape a
+
+fixshape result a 1e-7
+
+puts [checkshape result]
+
+set 2dviewer 1
+
+
+

tests/bugs/iges/bug111_1

@@ -0,0 +1,14 @@
+puts "========"
+puts "BUC61054"
+puts "OCC111"
+puts "(case 1)"
+puts "========"
+
+igesbrep [locate_data_file OCC111a.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug111_2

@@ -0,0 +1,14 @@
+puts "========"
+puts "BUC61054"
+puts "OCC111"
+puts "(case 2)"
+puts "========"
+
+igesbrep [locate_data_file OCC111b.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug131_1

@@ -0,0 +1,13 @@
+puts "========"
+puts "OCC131"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file OCC131-1.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug131_2

@@ -0,0 +1,12 @@
+puts "========"
+puts "OCC131"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file OCC131-2.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug131_3

@@ -0,0 +1,12 @@
+puts "========"
+puts "OCC131"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file OCC131-3.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug131_4

@@ -0,0 +1,14 @@
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========"
+puts "OCC131"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file OCC131-4.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug131_5

@@ -0,0 +1,12 @@
+puts "========"
+puts "OCC131"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file OCC131-5.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug131_6

@@ -0,0 +1,12 @@
+puts "========"
+puts "OCC131"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file OCC131-6.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug131_7

@@ -0,0 +1,12 @@
+puts "========"
+puts "OCC131"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file OCC131-7.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug131_8

@@ -0,0 +1,14 @@
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========"
+puts "OCC131"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file OCC131-8.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug133_1

@@ -0,0 +1,18 @@
+puts "========================"
+puts "BUC60993"
+puts "OCC99"
+puts "OCC133"
+puts "========================"
+puts ""
+##############################################
+##Loading phase returns error status (though no exception raised).
+##############################################
+
+igesbrep [locate_data_file igsBF5.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug133_10

@@ -0,0 +1,19 @@
+puts "========================"
+puts "BUC60985"
+puts "OCC92"
+puts "OCC133"
+puts "========================"
+puts ""
+################################################################
+##Many untrimmed faces resulting from translating an IGES file to Open CASCADE
+## Sometimes resulting models look very different.
+################################################################
+
+igesbrep [locate_data_file Cover.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug133_5

@@ -0,0 +1,19 @@
+puts "========================"
+puts "BUC60983"
+puts "OCC90"
+puts "OCC133"
+puts "========================"
+
+#######################################################
+## Exception when translating an IGES file to Open CASCADE (mapping phase).
+#######################################################
+
+igesbrep [locate_data_file Case.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+
+

tests/bugs/iges/bug133_6

@@ -0,0 +1,15 @@
+puts "========================"
+puts "BUC60984"
+puts "OCC91"
+puts "OCC133" 
+puts "========================"
+puts ""
+#####################################################
+## Exception when translating an IGES file to Open CASCADE (loading phase).
+#####################################################
+
+catch {param read.iges.faulty.entities 1}
+
+igesbrep [locate_data_file frame.igs] a *
+
+

tests/bugs/iges/bug133_7

@@ -0,0 +1,21 @@
+puts "========================"
+puts "BUC60986"
+puts "OCC93"
+puts "OCC133"
+puts "========================"
+puts ""
+
+################################################################
+##Exception when translating an IGES file to Open CASCADE (loading phase).
+################################################################
+
+cpulimit 3000
+
+igesbrep [locate_data_file igsBF1.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug133_8

@@ -0,0 +1,18 @@
+puts "========================"
+puts "BUC60988"
+puts "OCC94"
+puts "OCC133"
+puts "========================"
+puts ""
+################################################################
+##Exception when translating an IGES file to Open CASCADE (loading phase).
+################################################################
+
+igesbrep [locate_data_file Rich.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug156

@@ -0,0 +1,18 @@
+puts "========"
+puts "OCC156"
+puts "BUC60832"
+puts "SAM392/SAM289"
+puts "========"
+
+#####################################################
+## See also 913 case D1 
+## SAM392, #289: Crash when you want to import the "waaier_para.igs" file
+#####################################################
+
+igesbrep [locate_data_file Samtech_waaier_para.igs] a *
+
+tpcompound result
+
+set 3dviewer 1
+
+

tests/bugs/iges/bug201

@@ -0,0 +1,16 @@
+puts "========"
+puts "OCC201"
+puts "========"
+puts ""
+#########################################################
+## Incorrect face (with wrong boundary) is imported from the file ps1002-v5.igs.
+#########################################################
+
+igesbrep [locate_data_file OCC201.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug272_1

@@ -0,0 +1,16 @@
+puts "========"
+puts "OCC272"
+puts "========"
+
+igesbrep [locate_data_file 919-001-T02-04-CP-VL.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+if { [llength [whatis result]] == 3 } {
+    puts "Error : There is no result"
+}
+
+set 2dviewer 0
+

tests/bugs/iges/bug272_2

@@ -0,0 +1,16 @@
+puts "========"
+puts "OCC272"
+puts "========"
+
+igesbrep [locate_data_file 919-001-T02-04-FT-VL.igs] a * 
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+if { [llength [whatis result]] == 3 } {
+    puts "Error : There is no result"
+}
+
+set 2dviewer 0
+

tests/bugs/iges/bug272_3

@@ -0,0 +1,16 @@
+puts "========"
+puts "OCC272"
+puts "========"
+
+igesbrep [locate_data_file 919-004-T02-01-FT-VL.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+if { [llength [whatis result]] == 3 } {
+    puts "Error : There is no result"
+}
+
+set 2dviewer 0
+

tests/bugs/iges/bug272_4

@@ -0,0 +1,14 @@
+puts "========"
+puts "OCC272"
+puts "========"
+
+igesbrep [locate_data_file 919-004-T03-04-CP-VL.igs] a *
+
+tpcompound result
+
+if { [llength [whatis result]] == 3 } {
+    puts "Error : There is no result.
+}
+
+set 2dviewer 0
+

tests/bugs/iges/bug283

@@ -0,0 +1,12 @@
+puts "========"
+puts "OCC283"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file BUC50030.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug285

@@ -0,0 +1,12 @@
+puts "========"
+puts "OCC285"
+puts "========"
+
+igesbrep [locate_data_file OCC285.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug306

@@ -0,0 +1,34 @@
+puts "================"
+puts "OCC306"
+puts "================"
+puts ""
+#############################################################################
+##After applying sewing on the model from the file TibTray_Size3.igs (see the attachment) one surface is not shaded.
+#############################################################################
+
+igesbrep [locate_data_file TibTray_Size3.igs] a *
+
+tpcompound a
+tclean a
+
+sewing result a
+
+puts [checkshape result]
+
+vinit
+vsetdispmode result 1
+vdisplay result
+vfit
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { ($tri != 6409 || $nod != 6195) } {
+    puts "Shading problem may be, nb tri & nod"
+} 
+
+set 3dviewer 1
+
+
+

tests/bugs/iges/bug365_1

@@ -0,0 +1,12 @@
+puts "========"
+puts "OCC365"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file BUC61004-1.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug365_3

@@ -0,0 +1,12 @@
+puts "========"
+puts "OCC365"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file BUC61004-2.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug365_4

@@ -0,0 +1,12 @@
+puts "========"
+puts "OCC365"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file BUC61004-3.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug365_5

@@ -0,0 +1,12 @@
+puts "========"
+puts "OCC365"
+puts "========"
+puts ""
+
+igesbrep [locate_data_file BUC61004-4.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug386

@@ -0,0 +1,16 @@
+puts "========"
+puts "OCC386"
+puts "========"
+puts ""
+#######################################
+## Crash when reading an IGES file
+#######################################
+
+igesbrep [locate_data_file So5571b.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug450_1

@@ -0,0 +1,21 @@
+puts "========"
+puts "OCC450"
+puts "========"
+puts "(case 1)"
+puts ""
+#################################################################
+## After reading file5.igs, the surface of revolution written in this file becomes a plane. 
+#################################################################
+
+igesbrep [locate_data_file OCC450a.igs] a *
+
+explode a
+mksurface result a_3
+set info [dump result]
+
+if { [regexp "SurfaceOfRevolution" $info] != 1 } {
+    puts "Error : surface of revolution becomes a plane"
+}
+
+set 2dviewer 0
+

tests/bugs/iges/bug450_2

@@ -0,0 +1,21 @@
+puts "========"
+puts "OCC450"
+puts "========"
+puts "(case 2)"
+puts ""
+#################################################################
+## After reading file5.igs, the surface of revolution written in this file becomes a plane. 
+#################################################################
+
+igesbrep [locate_data_file NIC_file5.igs] a *
+
+mksurface result a
+
+set info [dump result]
+
+if { [regexp "SurfaceOfRevolution" $info] != 1 } {
+    puts "Error : surface of revolution becomes a plane"
+}
+
+set 2dviewer 0
+

tests/bugs/iges/bug58_1

@@ -0,0 +1,16 @@
+puts "========"
+puts "OCC58"
+puts "========"
+puts ""
+puts "Shape is incorrect after translation"
+puts "case 1 (6546a01.igs)"
+puts ""
+
+igesbrep [locate_data_file OCC58a.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug58_2

@@ -0,0 +1,18 @@
+puts "========"
+puts "OCC58"
+puts "========"
+puts ""
+puts "Shape is incorrect after translation"
+puts "case 2 (JC_Turbine.igs)"
+puts ""
+
+cpulimit 3000
+
+igesbrep [locate_data_file OCC58b.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug58_3

@@ -0,0 +1,18 @@
+puts "========"
+puts "OCC58"
+puts "========"
+puts ""
+puts "Shape is incorrect after translation"
+puts "case 3 (MACPartSolid.igs)"
+puts ""
+
+cpulimit 3000
+
+igesbrep [locate_data_file OCC58c.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug60591_1

@@ -0,0 +1,41 @@
+puts "=========="
+puts "BUC60591"
+puts "=========="
+puts ""
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+puts "consideration of \"buc60591a\" model"
+
+igesbrep [locate_data_file buc60591a.igs] a *
+
+tpcompound buc60591a
+
+puts [checkshape buc60591a r]
+
+######################################################################
+
+catch {exec rm ${imagedir}/buc60591a.brep}
+save buc60591a  ${imagedir}/buc60591a.brep
+catch {exec rm ${imagedir}/buc60591a_iges.igs}
+brepiges buc60591a ${imagedir}/buc60591a_iges.igs
+dall
+
+restore  ${imagedir}/buc60591a.brep buc60591a_brep
+catch {exec rm  ${imagedir}/buc60591a_brep.igs}
+brepiges buc60591a_brep ${imagedir}/buc60591a_brep.igs
+dall
+
+igesbrep  ${imagedir}/buc60591a_brep.igs a_brep_iges *
+tpcompound buc60591a_brep_iges
+puts [checkshape buc60591a_brep_iges]
+
+igesbrep  ${imagedir}/buc60591a_iges.igs a_iges *
+tpcompound buc60591a_iges
+puts [checkshape buc60591a_iges]
+
+renamevar buc60591a_iges result
+
+set 2dviewer 0
+

tests/bugs/iges/bug60591_2

@@ -0,0 +1,40 @@
+puts "=================================="
+puts "BUC60591"
+puts "=================================="
+puts ""
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+puts "consideration of \"buc60591b\" model"
+
+igesbrep [locate_data_file buc60591b.igs] a *
+
+tpcompound buc60591b
+
+puts [checkshape buc60591b r]
+
+######################################################################
+
+catch {exec rm ${imagedir}/buc60591b.brep}
+save buc60591b ${imagedir}/buc60591b.brep
+catch {exec rm ${imagedir}/buc60591b_iges.igs}
+brepiges buc60591b ${imagedir}/buc60591b_iges.igs
+dall
+
+restore ${imagedir}/buc60591b.brep buc60591b_brep
+catch {exec rm ${imagedir}/buc60591b_brep.igs}
+brepiges buc60591b_brep ${imagedir}/buc60591b_brep.igs
+dall
+
+igesbrep ${imagedir}/buc60591b_brep.igs b_brep_iges *
+tpcompound buc60591b_brep_iges
+puts [checkshape buc60591b_brep_iges]
+
+igesbrep ${imagedir}/buc60591b_iges.igs b_iges *
+tpcompound buc60591b_iges
+puts [checkshape buc60591b_iges]
+
+renamevar buc60591b_iges result
+
+set 2dviewer 0
+

tests/bugs/iges/bug60591_3

@@ -0,0 +1,39 @@
+puts "=================================="
+puts "BUC60591"
+puts "=================================="
+puts ""
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+puts "consideration of \"buc60591c\" model"
+
+igesbrep [locate_data_file buc60591c.igs] a *
+
+tpcompound buc60591c
+puts [checkshape buc60591c r]
+
+######################################################################
+
+catch {exec rm ${imagedir}/buc60591c.brep}
+save buc60591c ${imagedir}/buc60591c.brep
+catch {exec rm ${imagedir}/buc60591c_iges.igs}
+brepiges buc60591c ${imagedir}/buc60591c_iges.igs
+dall
+
+restore  ${imagedir}/buc60591c.brep buc60591c_brep
+catch {exec rm ${imagedir}/buc60591c_brep.igs}
+brepiges buc60591c_brep ${imagedir}/buc60591c_brep.igs
+dall
+
+igesbrep ${imagedir}/buc60591c_brep.igs c_brep_iges *
+tpcompound buc60591c_brep_iges
+puts [checkshape buc60591c_brep_iges]
+
+igesbrep ${imagedir}/buc60591c_iges.igs c_iges *
+tpcompound buc60591c_iges
+puts [checkshape buc60591c_iges]
+
+renamevar  buc60591c_iges result
+
+set 2dviewer 0
+

tests/bugs/iges/bug60591_4

@@ -0,0 +1,38 @@
+puts "BUC60591"
+puts ""
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+puts "consideration of \"buc60591d\" model"
+
+igesbrep [locate_data_file buc60591d.igs] a *
+
+tpcompound buc60591d
+puts [checkshape buc60591d r]
+
+######################################################################
+
+catch {exec rm ${imagedir}/buc60591d.brep}
+save buc60591d ${imagedir}/buc60591d.brep
+catch {exec rm ${imagedir}/buc60591d_iges.igs}
+brepiges buc60591d ${imagedir}/buc60591d_iges.igs
+dall
+
+restore ${imagedir}/buc60591d.brep buc60591d_brep
+catch {exec rm ${imagedir}/buc60591d_brep.igs}
+brepiges buc60591d_brep ${imagedir}/buc60591d_brep.igs
+dall
+
+igesbrep ${imagedir}/buc60591d_brep.igs d_brep_iges *
+tpcompound buc60591d_brep_iges
+puts [checkshape buc60591d_brep_iges]
+
+igesbrep ${imagedir}/buc60591d_iges.igs d_iges *
+tpcompound buc60591d_iges
+puts [checkshape buc60591d_iges]
+
+renamevar  buc60591d_iges result
+
+set 2dviewer 0
+

tests/bugs/iges/bug60594

@@ -0,0 +1,15 @@
+puts "=================================="
+puts "BUC60594"
+puts "=================================="
+puts ""
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+
+igesbrep [locate_data_file buc60594a.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug60595_1

@@ -0,0 +1,24 @@
+puts "=================="
+puts "BUC60595"
+puts "=================="
+puts ""
+###################################################################
+## This one relates to the generation of floating point exceptions during the IGE to BRep translation.
+## See the notes in fw_fpe.READ. 
+###################################################################
+
+set bug_var [ igesbrep [locate_data_file buc60595a.igs] a * ] 
+
+tpcompound result
+
+if { [ string match "*Uninspired signal*" $bug_var ] == 1 } {
+    puts "Error : TEST FAILED"
+}
+
+isos 0
+isos result 15
+
+puts "Previously here was message:  Uninspired signal 8"
+
+set 2dviewer 0
+

tests/bugs/iges/bug60595_2

@@ -0,0 +1,18 @@
+puts "=================="
+puts "BUC60595"
+puts "=================="
+
+set bug_var [ igesbrep [locate_data_file buc60595b.igs] a * ] 
+
+tpcompound result
+
+if { [ string match "*Uninspired signal*" $bug_var ] == 1 } {
+    puts "Error : TEST FAILED"
+}
+
+isos 0
+isos result 15
+
+puts "Previously here was message:  Uninspired signal 8"
+
+set 2dviewer 0

tests/bugs/iges/bug60595_3

@@ -0,0 +1,17 @@
+puts "================"
+puts "BUC60595"
+puts "================"
+
+set bug_var [ igesbrep [locate_data_file buc60595c.igs] c * ] 
+if { [ string match "*Uninspired signal*" $bug_var ] == 1 } {
+    puts "Error : TEST FAILED"
+}
+
+tpcompound result
+
+isos result 0
+isos result 15
+
+set 2dviewer 0
+
+

tests/bugs/iges/bug60610

@@ -0,0 +1,14 @@
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========================"
+puts "BUC60610"
+puts "========================"
+
+igesbrep [locate_data_file buc60610a.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug60625

@@ -0,0 +1,55 @@
+puts "===================="
+puts "BUC60625"
+puts "===================="
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+
+cpulimit 1500
+
+set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] 
+
+tpcompound result
+puts [checkshape result r]
+
+set start [lindex $l 60]
+set bug_list_numb [ llength $l ]
+set bug_list_elem 0
+
+# Search word sequence:        Nb entities selected : XXXX
+while { $bug_list_elem < $bug_list_numb } {
+    if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } {
+	set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
+	set bug_list_elem [ expr { $bug_list_numb - 1 } ]
+    }
+    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
+}
+
+# Search word sequence:        Nb Shapes successfully produced : XXXX
+set end [lindex $l 0]
+set bug_list_elem 0
+while { $bug_list_elem < $bug_list_numb } {
+    set word_0 [ lindex $l [ expr { $bug_list_elem + 0 } ] ]
+    set word_1 [ lindex $l [ expr { $bug_list_elem + 1 } ] ]
+    set word_2 [ lindex $l [ expr { $bug_list_elem + 2 } ] ]
+    set word_3 [ lindex $l [ expr { $bug_list_elem + 3 } ] ]
+    set word_4 [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
+    if { [ string compare "Nb" ${word_0} ] == 0 &&
+	[ string compare "Shapes" ${word_1} ] == 0 &&
+	[ string compare "successfully" ${word_2} ] == 0 &&
+	[ string compare "produced" ${word_3} ] == 0 &&
+	[ string compare ":" ${word_4} ] == 0 } {
+	set end [ lindex $l [ expr { $bug_list_elem + 5 } ] ]
+	set bug_list_elem [ expr { $bug_list_numb - 1 } ]
+    }
+    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
+}
+
+if { $start != $end } {
+  puts " Error : The number of visible roots ($start) IS NOT EQUAL Nb Shapes successfully produced ($end)"
+} else {
+  puts " The number of visible roots ($start) IS EQUAL Nb Shapes successfully produced ($end)"
+}
+
+set 2dviewer 0
+

tests/bugs/iges/bug60646

@@ -0,0 +1,56 @@
+puts "==============="
+puts "BUC60646"
+puts "==============="
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+
+set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] 
+
+tpcompound res
+puts [checkshape res r]
+
+tcopy res result
+
+set start [lindex $l 60]
+set bug_list_numb [ llength $l ]
+set bug_list_elem 0
+
+# Search word sequence:        Nb entities selected : XXXX
+while { $bug_list_elem < $bug_list_numb } {
+    if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } {
+	set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
+	set bug_list_elem [ expr { $bug_list_numb - 1 } ]
+    }
+    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
+}
+
+# Search word sequence:        Nb Shapes successfully produced : XXXX
+set end [lindex $l 0]
+set bug_list_elem 0
+while { $bug_list_elem < $bug_list_numb } {
+    set word_0 [ lindex $l [ expr { $bug_list_elem + 0 } ] ]
+    set word_1 [ lindex $l [ expr { $bug_list_elem + 1 } ] ]
+    set word_2 [ lindex $l [ expr { $bug_list_elem + 2 } ] ]
+    set word_3 [ lindex $l [ expr { $bug_list_elem + 3 } ] ]
+    set word_4 [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
+    if { [ string compare "Nb" ${word_0} ] == 0 &&
+	[ string compare "Shapes" ${word_1} ] == 0 &&
+	[ string compare "successfully" ${word_2} ] == 0 &&
+	[ string compare "produced" ${word_3} ] == 0 &&
+	[ string compare ":" ${word_4} ] == 0 } {
+	set end [ lindex $l [ expr { $bug_list_elem + 5 } ] ]
+	set bug_list_elem [ expr { $bug_list_numb - 1 } ]
+    }
+    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
+}
+
+if { $start != $end } {
+    puts " Error : The number of visible roots ($start) IS NOT EQUAL Nb Shapes successfully produced ($end)"
+} else {
+    puts " The number of visible roots ($start) IS EQUAL Nb Shapes successfully produced ($end)"
+}
+
+set 2dviewer 0
+
+

tests/bugs/iges/bug60685

@@ -0,0 +1,30 @@
+puts "============"
+puts "BUC60685"
+puts "============"
+puts ""
+
+cpulimit 1500
+
+set l [igesbrep [locate_data_file buc60685a.igs] a xst-transferrable-roots] 
+
+tpcompound result
+puts [checkshape result r]
+
+set start [lindex $l 60]
+set bug_list_numb [ llength $l ]
+set bug_list_elem 0
+while { $bug_list_elem != $bug_list_numb } {
+    if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } {
+	set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ]
+	set bug_list_elem [ expr { $bug_list_numb - 1 } ]
+    }
+    set bug_list_elem [ expr { $bug_list_elem + 1 } ]
+}
+
+set n [llength $l]
+set end [lindex $l [expr $n-1]]
+if { $start != $end } {
+    puts "Error : wrong number of translated shapes. It is ${end} instead of ${start}"
+}
+
+set 2dviewer 0

tests/bugs/iges/bug60686

@@ -0,0 +1,15 @@
+puts "=========="
+puts "BUC60686"
+puts "=========="
+puts ""
+#puts "=================================="
+#puts "It takes visual check for this BUG"
+#puts "=================================="
+
+igesbrep [locate_data_file BUC50029.igs] a xst-transferrable-roots
+
+tpcompound result
+
+set 2dviewer 0
+
+

tests/bugs/iges/bug60687

@@ -0,0 +1,11 @@
+puts "=========="
+puts "BUC60687"
+puts "=========="
+
+igesbrep [locate_data_file buc40130.igs] a xst-transferrable-roots
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug60820_1

@@ -0,0 +1,22 @@
+puts "========================"
+puts "BUC60820"
+puts "========================"
+
+igesbrep [locate_data_file buc60820.igs] a *
+
+tpcompound result
+
+puts [checkshape result r]
+
+tclean result
+incmesh result 0.1
+triangles result
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri <= 0 || $nod <= 0 } {
+    puts "Error : Problems with shading"
+}
+
+set 2dviewer 0

tests/bugs/iges/bug60820_2

@@ -0,0 +1,26 @@
+puts "========================"
+puts "BUC60820"
+puts "========================"
+
+igesbrep [locate_data_file buc60820.igs] a *
+
+tpcompound result
+puts [checkshape result r]
+
+tclean result
+vinit
+vdisplay result
+vsetdispmode result 1
+vfit
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nod} $info full nod
+
+
+if { $tri != 1655 || $nod != 1143 } {
+    puts "Shading problem may be, nb tri & nod were changed"
+}
+
+set 2dviewer 0
+

tests/bugs/iges/bug60823

@@ -0,0 +1,30 @@
+puts "TODO OCC12345 ALL: An exception was caught"
+puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
+puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+
+puts "========================"                                               
+puts "BUC60823"
+puts "========================"                                                
+
+igesbrep [locate_data_file buc60823.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+tclean result
+vinit
+vdisplay result
+vsetdispmode result 1
+vfit
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri != 17618 || $nod != 11153 } {
+    puts "Shading problem may be, nb tri & nod are changed"
+}
+
+set 2dviewer 0
+

tests/bugs/iges/bug60850

@@ -0,0 +1,11 @@
+puts "==========="
+puts "  BUC60850"
+puts "==========="
+
+igesbrep [locate_data_file BUC60850.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0

tests/bugs/iges/bug60894

@@ -0,0 +1,11 @@
+puts "==========="
+puts "  BUC60894"
+puts "==========="
+
+cpulimit 3000
+
+igesbrep [locate_data_file buc60894.igs] a xst-transferrable-roots
+
+tpcompound result
+
+set 2dviewer 0

tests/bugs/iges/bug60949

@@ -0,0 +1,17 @@
+puts "==========="
+puts "  BUC60949"
+puts "==========="
+
+######################################################
+## Can not read iges file in XCAFEXE neither by command ReadIges no igesbrep. 
+######################################################
+
+igesbrep [locate_data_file buc60949.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+
+

tests/bugs/iges/bug61337

@@ -0,0 +1,14 @@
+puts "==========="
+puts "GER61337"
+puts "=================================="
+
+cpulimit 3000
+
+igesbrep [locate_data_file ger61337a.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/iges/bug62523

@@ -0,0 +1,19 @@
+puts "============="
+puts "FRA62523"
+puts "============="
+
+igesbrep [locate_data_file fra62523a.igs] a *
+
+# tpcompound b
+# checkshape a_1
+
+vinit
+tclean a_1
+vdisplay a_1
+vsetdispmode a_1 1
+
+defle a_1 .005
+defle a_1 .001
+
+set 3dviewer 1
+

tests/bugs/iges/bug89

@@ -0,0 +1,16 @@
+puts "========================"
+puts "BUC60800 OCC89"
+puts "========================"
+
+#######################################################
+##  Reading of this file crashes  ??? Reading of this file gives invalid shape ??? 
+#######################################################
+
+igesbrep [locate_data_file BUC60800.igs] a *
+
+tpcompound result
+puts [checkshape result]
+puts [checkshape result r]
+
+set 2dviewer 0
+

tests/bugs/modalg/bug100

@@ -0,0 +1,23 @@
+
+puts "================"
+puts "OCC100"
+puts "================"
+puts ""
+########################################
+## Draw is crashed during cut on Windows NT. SAM1185.
+########################################
+
+restore [locate_data_file OCC100_sp.brep] sh1 
+puts [checkshape sh1]
+
+restore [locate_data_file OCC100_cyl.brep] sh2
+puts [checkshape sh2]
+
+#OCC100 : on WNT result is crushed when we make the next command:
+
+bcut result sh1 sh2
+
+set square 2130.25
+set 2dviewer 0
+
+

tests/bugs/modalg/bug101

@@ -0,0 +1,20 @@
+
+puts "================"
+puts "BUC60663"
+puts "BUC60662"
+puts "OCC101"
+puts "================"
+puts ""
+######################################
+##  After restore c shell, section is incomplete
+######################################
+restore [locate_data_file buc60663a.brep] sh1 
+puts [checkshape sh1]
+restore [locate_data_file buc60663b.brep] sh2
+puts [checkshape sh2]
+
+bsection result sh1 sh2
+
+set length 26.2001
+set 2dviewer 0
+

tests/bugs/modalg/bug102_1

@@ -0,0 +1,19 @@
+
+puts "================"
+puts "BUC60803"
+puts "OCC102"
+puts "================"
+puts ""
+
+restore [locate_data_file buc60803a.brep] sh1 
+puts [checkshape sh1]
+restore [locate_data_file buc60803b.brep] sh2
+puts [checkshape sh2]
+
+bfuse result sh1 sh2
+
+set square 1.86064e+07
+set 2dviewer 0
+
+
+

tests/bugs/modalg/bug102_2

@@ -0,0 +1,18 @@
+
+puts "================"
+puts "BUC60803"
+puts "OCC102"
+puts "================"
+puts ""
+
+restore [locate_data_file buc60803a.brep] sh1 
+puts [checkshape sh1]
+restore [locate_data_file buc60803b.brep] sh2
+puts [checkshape sh2]
+
+bfuse result sh2 sh1
+
+set square 1.86064e+07
+set 2dviewer 0
+
+

tests/bugs/modalg/bug108

@@ -0,0 +1,28 @@
+
+puts "================"
+puts "BUC61037"
+puts "OCC108"
+puts "================"
+puts ""
+#####################################################################
+## BRepTools::AddUVBounds for the planar face bounded by a circle returns too small bounding box.
+#####################################################################
+
+restore [locate_data_file bug61037.brep] sh1
+puts [checkshape sh1]
+
+set rr [bounding sh1]
+regexp { *([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $rr full v1_x v1_y v1_z v2_x v2_y v2_z
+vertex v1 $v1_x $v1_y $v1_z
+vertex v2 $v2_x $v2_y $v2_z 
+edge result v1 v2
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full dis
+if { [expr $dis < 0.201357] } {
+   puts "Faulty BUC61037: Planar circle and bounded face a returns too small bounding box"
+} else {
+   puts "OCC134 OK: bounding box is correct"
+}
+
+set length 0.201357
+set 2dviewer 0
+

tests/bugs/modalg/bug109

@@ -0,0 +1,33 @@
+puts "TODO OCC12345 ALL: Faulty BUC61057: here can be shading problem"
+
+puts "================"
+puts "BUC61057"
+puts "OCC109"
+puts "================"
+puts ""
+##########################################################
+## Visualisation of the attached shape is wrong in the shading mode.
+##########################################################
+
+restore [locate_data_file OCC109.brep] result
+
+puts [checkshape result]
+
+vinit
+tclean result
+vdisplay result
+vsetdispmode result 1
+vfit
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+
+if { $tri != 294 && $nod != 300 }  {
+    puts "Faulty BUC61057: here can be shading problem"
+} else {
+    puts "Shading of BUC61057 is OK"
+}
+
+set square 33.8757
+set 3dviewer 2

tests/bugs/modalg/bug110_1

@@ -0,0 +1,24 @@
+
+puts "========================"
+puts "  BUC60706 "
+puts " OCC110 "
+puts "(case 1)"
+puts "========================"
+
+restore [locate_data_file buc60706a.brep] f 
+puts [checkshape f]
+
+restore [locate_data_file buc60706b.brep] w
+puts [checkshape w]
+pipe t w f
+
+restore [locate_data_file buc60706c.brep] s
+puts [checkshape s]
+
+bcut result s t
+
+catch {exec rm ${imagedir}/buc60706f.brep}
+save result ${imagedir}/buc60706f.brep
+
+set square 865745
+set 2dviewer 0

tests/bugs/modalg/bug110_2

@@ -0,0 +1,23 @@
+
+puts "========================"
+puts "  BUC60706 "
+puts " OCC110 "
+puts "(case 2)"
+puts "========================"
+
+restore [locate_data_file buc60706d.brep] f 
+puts [checkshape f]
+
+restore [locate_data_file buc60706e.brep] w
+puts [checkshape w]
+pipe t w f
+
+restore ${imagedir}/buc60706f.brep s
+puts [checkshape s]
+
+bcut result s t
+catch {exec rm ${imagedir}/buc60706i.brep}
+save result ${imagedir}/buc60706i.brep
+
+set square 865617
+set 2dviewer 0

tests/bugs/modalg/bug110_3

@@ -0,0 +1,21 @@
+
+puts "========================"
+puts "  BUC60706 "
+puts " OCC110 "
+puts "(case 3)"
+puts "========================"
+
+restore [locate_data_file buc60706g.brep] f 
+puts [checkshape f]
+
+restore [locate_data_file buc60706h.brep] w
+puts [checkshape w]
+pipe t w f
+
+restore ${imagedir}/buc60706i.brep s
+puts [checkshape s]
+
+bcut result s t
+
+set square 865172
+set 2dviewer 0

tests/bugs/modalg/bug110_4

@@ -0,0 +1,23 @@
+
+puts "========================"
+puts "  BUC60706 "
+puts " OCC110 "
+puts "(case 4)"
+puts "========================"
+
+restore [locate_data_file buc60706j.brep] f 
+puts [checkshape f]
+
+restore [locate_data_file buc60706b.brep] w
+puts [checkshape w]
+pipe t w f
+
+restore [locate_data_file buc60706l.brep] s
+puts [checkshape s]
+
+bcut result s t
+catch {exec rm ${imagedir}/buc60706o.brep}
+save result ${imagedir}/buc60706o.brep
+
+set square 861712
+set 2dviewer 0

tests/bugs/modalg/bug116

@@ -0,0 +1,23 @@
+
+puts "================"
+puts "OCC116"
+puts "================"
+puts ""
+#############################################
+## Creation of chamfer is impossible on attached shape.(SAM1201)
+#############################################
+
+restore [locate_data_file OCC116.brep] sh 
+puts [checkshape sh]
+ 
+explode sh f
+explode sh_6 e
+
+if [catch {chamf result sh sh_6_1 sh_6 A 2 45 sh_6_8 sh_6 A 2 45 } catch_result] {
+  puts "1) Faulty  OCC116: chamfer is NOT created properly"
+ } else {
+  puts "1) CHAMF OCC116 OK"
+}
+
+set square 48357.5
+set 3dviewer 2

tests/bugs/modalg/bug117_1

@@ -0,0 +1,16 @@
+
+puts "================"
+puts "OCC117"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC117.brep] sh 
+explode sh
+puts [checkshape sh_1]
+puts [checkshape sh_2]
+
+bfuse result sh_1 sh_2
+
+set square 292297
+set 2dviewer 0
+

tests/bugs/modalg/bug117_2

@@ -0,0 +1,17 @@
+
+puts "================"
+puts "OCC117"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC117.brep] sh 
+explode sh
+puts [checkshape sh_1]
+puts [checkshape sh_2]
+
+bfuse result sh_2 sh_1
+
+set square 292297
+set 2dviewer 0
+
+

tests/bugs/modalg/bug118_1

@@ -0,0 +1,17 @@
+puts "========"
+puts "OCC118"
+puts "========"
+########################################################
+## The Cone part of final fuse shape becomes invisible
+########################################################
+
+restore [locate_data_file OCC118-1.brep] a 
+puts [checkshape a]
+restore [locate_data_file OCC118-2.brep] b
+puts [checkshape b]
+
+bfuse result a b
+
+set square 4844.63
+set 3dviewer 1
+

tests/bugs/modalg/bug118_2

@@ -0,0 +1,17 @@
+puts "========"
+puts "OCC118"
+puts "========"
+########################################################
+## The Cone part of final fuse shape becomes invisible
+########################################################
+
+restore [locate_data_file OCC118-1.brep] a 
+puts [checkshape a]
+restore [locate_data_file OCC118-2.brep] b
+puts [checkshape b]
+
+bfuse result b a
+
+set square 4844.63
+set 3dviewer 1
+

tests/bugs/modalg/bug122_1

@@ -0,0 +1,17 @@
+
+puts "================"
+puts "OCC122"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC122.brep] sh 
+explode sh
+
+puts [checkshape sh_1]
+puts [checkshape sh_2]
+
+bfuse result sh_1 sh_2
+
+set square 172790
+set 2dviewer 0
+

tests/bugs/modalg/bug122_2

@@ -0,0 +1,17 @@
+
+puts "================"
+puts "OCC122"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC122.brep] sh 
+explode sh
+
+puts [checkshape sh_1]
+puts [checkshape sh_2]
+
+bfuse result sh_2 sh_1
+
+set square 172790
+set 2dviewer 0
+

tests/bugs/modalg/bug122_3

@@ -0,0 +1,17 @@
+
+puts "================"
+puts "OCC122"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC122.brep] sh 
+explode sh
+
+puts [checkshape sh_1]
+puts [checkshape sh_2]
+
+bcut result sh_1 sh_2
+
+set square 83334.1
+set 2dviewer 0
+

tests/bugs/modalg/bug122_4

@@ -0,0 +1,16 @@
+
+puts "================"
+puts "OCC122"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC122.brep] sh 
+explode sh
+
+puts [checkshape sh_1]
+puts [checkshape sh_2]
+
+bcut result sh_2 sh_1
+
+set square 132943
+set 2dviewer 0

tests/bugs/modalg/bug123_1

@@ -0,0 +1,17 @@
+
+puts "================"
+puts "OCC123"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC123.brep] sh 
+puts [checkshape sh]
+
+explode sh
+
+bfuse result sh_1 sh_2
+
+set square 81598.4
+set 2dviewer 0
+
+

tests/bugs/modalg/bug123_2

@@ -0,0 +1,18 @@
+
+puts "================"
+puts "OCC123"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC123.brep] sh 
+puts [checkshape sh]
+
+explode sh
+
+bfuse result sh_2 sh_1
+
+set square 81598.4
+set 2dviewer 0
+
+
+

tests/bugs/modalg/bug140

@@ -0,0 +1,23 @@
+
+puts "================"
+puts "OCC140"
+puts "================"
+puts ""
+#########################################################
+## Fillet is created incorrectly on attached shape.
+#########################################################
+
+restore [locate_data_file shading_137.brep] s 
+puts [checkshape s]
+
+dset SCALE1 5
+tscale s 0 0 0 SCALE1
+explode s e
+blend sh s  4.5*SCALE1 s_4  4.5*SCALE1 s_5  4.5*SCALE1 s_1
+explode sh so
+
+renamevar sh_1 result 
+fsameparameter result
+
+set square 3.65424e+06
+set 2dviewer 0

tests/bugs/modalg/bug144

@@ -0,0 +1,34 @@
+puts "TODO OCC12345 ALL: Faulty : the distanse is"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+
+puts "================"
+puts "BUC60663"
+puts "OCC144"
+puts "================"
+puts ""
+
+restore [locate_data_file buc60663a.brep] a 
+puts [checkshape a]
+restore [locate_data_file buc60663b.brep] b
+puts [checkshape b]
+
+bsection result a b
+
+puts [checksection result]
+
+regexp {(result_[-0-9.+eE]+$)} [explode result v] full ver
+
+explode b e
+explode b_4 v
+distmini d $ver b_5
+
+regexp {([-0-9.+eE]+)} [dump d_val] full dist
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [ maxtolerance $ver ] full toler
+
+if { [expr $dist > $toler] } {
+    puts "Faulty : the distanse is $dist. It is more $toler."
+}
+
+set length 0
+set 2dviewer 0
+

tests/bugs/modalg/bug16983

@@ -0,0 +1,17 @@
+
+puts "============"
+puts "PRO16983"
+puts "============"
+
+restore [locate_data_file pro16983a.brep] B 
+puts [checkshape B]
+plane p 0 0 0 1 0 0
+vertex v1 0 90.16396 252.4591
+vertex v2 0 252.459 -9.835989
+edge e v2 v1
+wire w e
+featlf B w p -5 0 0 5 0 0 1 1
+featperform lf result
+
+set square 796476
+set 2dviewer 0

tests/bugs/modalg/bug174

@@ -0,0 +1,15 @@
+#INTERFACE IGES
+puts "========"
+puts "OCC174"
+puts "========"
+puts ""
+###########################################################################
+## After analyze given face (file ff97.brep) using BRepCheck we recieve problem - "Bad Orientation of Subshape".
+## But we believe that this shape must be OK or we have to recieve more detail another reply from BRepCheck.
+###########################################################################
+
+restore [locate_data_file OCC174.brep] result
+
+set square 376.873
+set 2dviewer 0
+

tests/bugs/modalg/bug178_1

@@ -0,0 +1,18 @@
+
+puts "================"
+puts "BUC60938"
+puts "OCC178"
+puts "================"
+
+
+restore [locate_data_file BUC60937.brep] a 
+
+explode a
+puts [checkshape a_1]
+puts [checkshape a_2]
+
+bcommon result a_1 a_2
+
+set square 152908
+set 2dviewer 0
+

tests/bugs/modalg/bug178_2

@@ -0,0 +1,15 @@
+
+puts "================"
+puts "BUC60937"
+puts "OCC178"
+puts "================"
+
+restore [locate_data_file BUC60937.brep] a 
+explode a
+puts [checkshape a_1]
+puts [checkshape a_2]
+
+bfuse result a_1 a_2
+
+set square 835463
+set 2dviewer 0

tests/bugs/modalg/bug178_3

@@ -0,0 +1,16 @@
+
+puts "================"
+puts "BUC60936"
+puts "OCC178"
+puts "================"
+
+restore [locate_data_file BUC60937.brep] a 
+
+explode a
+puts [checkshape a_1]
+puts [checkshape a_2]
+
+bcut result a_1 a_2
+
+set square 786002
+set 2dviewer 0

tests/bugs/modalg/bug179

@@ -0,0 +1,31 @@
+
+puts "========"
+puts "OCC179"
+puts "========"
+puts ""
+###########################################
+## Bug in meshing of the enclosed face 
+###########################################
+
+restore [locate_data_file OCC179.brep] result
+
+tclean result
+isos result 0
+incmesh result 0.01
+triangles result 
+
+set tri 0
+set nod 0
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+
+if { $tri == 1874 || $nod == 1861} {
+    puts " OCC179  shading: OK"
+} else {
+    puts " OCC179  shading: Faulty"
+}
+
+set square 12229.8
+set 3dviewer 0

tests/bugs/modalg/bug18892

@@ -0,0 +1,36 @@
+puts "TODO OCC12345 ALL: Faulty : Result is BAD. Distance is more than MaxTolerance"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+
+puts "=========="
+puts "PRO18892"
+puts "=========="
+# Version de test: K4O, PATCH LEVEL:
+#   GEOMETRY-M4-6A : 3 
+#   GEOMLITE-M4-6A : 1 
+#   TOPOLOGY-M4-6A : 2 
+
+restore [locate_data_file pro18892.rle] a 
+puts [checkshape a]
+
+explode a
+bsection result a_1 a_2 -2d -a
+explode result
+
+mkcurve c result_1
+cvalue c 1 X Y Z 
+vertex v X Y Z
+explode a e
+
+distmini d v a_8
+
+set tol [ maxtolerance a_8 ]
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxVertexTolerance
+regexp {([-0-9.+eE]+)} [dump d_val] full d
+
+if { [expr $d > $MaxEdgeTolerance] || [expr $d > $MaxVertexTolerance] } {
+    puts "Faulty : Result is BAD. Distance is more than MaxTolerance"
+}
+
+set length 0
+set 3dviewer 2

tests/bugs/modalg/bug19424

@@ -0,0 +1,19 @@
+
+puts "=========="
+puts "PRO19424"
+puts "=========="
+
+restore [locate_data_file pro19424a.brep] b 
+puts [checkshape b]
+restore [locate_data_file pro19424b.brep] p
+puts [checkshape p]
+
+if [catch {evolved result b p o } catch_result] {
+  puts "Faulty PRO19424 : function EVOLVED works wrongly"
+} else {
+  puts "PRO19424 OK: function EVOLVED works properly"
+}
+
+set square 246.506
+set 2dviewer 0
+

tests/bugs/modalg/bug19626

@@ -0,0 +1,21 @@
+
+puts "============"
+puts "PRO19626"
+puts "============"
+
+restore [locate_data_file pro19626a.brep] a 
+puts [checkshape a]
+restore [locate_data_file pro19626b.brep] b
+puts [checkshape b]
+
+bsection result a b
+regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num
+if { $num != 2 } {
+    puts " Faulty PRO19626: Result shape is INcorrect !!! "
+} else {
+    puts "PRO19626 OK : Result shape is CORRECT !!! "
+}
+
+set length 174.597
+set 3dviewer 2
+