Update of tests database

Test for 0025930: thickness of spherical cap is invalid
Test for 0025939: SIGSEGV in MakeThickSolid
Test for 0025940: MakeThickSolid creates C0 continuous edges
Test for 0026604: GeomFill_Pipe doesn't fit given bounds
Test for 0026655: ChFi3d_Builder algorithm fails to build fillets if some input edges connect with seam edges
Test for 0026697: BRepFeat_MakePrism returns empty compound
Test for 0026716: Mesher cannot create a mesh of brep model due to ShapeFix_Wire::FixShifted()
Test for 0026735: Adjacent perpendicular edges are detected as overlapped by DRAW command checkoverlap.
Test for 0026793: General Fuse algorithm produces incorrect result
Test for 0026795: Unable to perform General Fuse operation on the attached faces
Test for 0026842: bopsection result does not contain any edges.
Test for 0026882: Edge/Edge intersection algorithm produces incorrect result
Test for 0026883: Wrong result of Boolean Operation
Test for 0026889: Very poor mesh result from shape
Test for 0026928: Edges are meshed too coarsly
Test for 0026933: Section works unstably due to incorrect work of the method IsExistingPaveBlock
Test for 0026943: Wrong projection of helix on cylinder by ShapeConstruct_ProjectCurveOnSurface
Test for 0026957: Unify same domain operation is slow for multiple shells
Test for 0026978: Interactive selection is insensitive to swept shell
Test for 0027004: ShapeUpgrade_UnifySameDomain produces invalid result
Test for 0026280: Mechanism 'ShapeFix' is unable to heal a shape
Test for 0026282: Mechanism 'ShapeFix' has errors revealed by wire tool 'FixTails'
Test for 0026291: BRepMesh produces mesh with gap on the attached shape
Test for 0026382: BRepMesh produces internal nodes outside the face interior
Test for 0027453: Wrongly meshed surface
Test for 0027524: The command checkshape does not find the maximal deviation between curves representations
Test for 0026225: Wrong result of chamfer in case of coinciding bound of chamfer's surface with bound of a face
Test for 0026295: Sweep fails with BRepFill_ContactOnBorder
Test for 0026374: GeomFill_Profiler fails to unify BSplines if one has knot distance less than PConf
Test for 0026558: Failing to build isoline for offset surface
Test for 0026563: Boolean cut operation in new API multi-tool mode performs fuse instead of cut
Test for 0026568: Exception when creating pipe
Test for 0027419: Incorrect result of Edge/Face intersection
Test for 0027469: Regression vs 6.9.1: Wrong result of Edge/Face intersection
Test for 0027471: Wrong result of pipe
Test for 0027472: Wrong result of cut
Test for 0027614: Sewing returns result with too high tolerance
Test for 0026154: Visualization - v3d viewer grid disappears due to automatic z-fit
Test for 0026174: Loss of color after the second write of file (iges).

tests/bugs/heal/bug26280

@@ -0,0 +1,12 @@
+puts "TODO OCC26280 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========"
+puts "OCC26280"
+puts "========"
+puts ""
+##################################################
+# Mechanism 'ShapeFix' is unable to heal a shape
+##################################################
+
+stepread [locate_data_file bug26280_1kento13-mld-b-cv-qubit.stp] r *
+checkshape r_1

tests/bugs/heal/bug26282

@@ -0,0 +1,17 @@
+puts "TODO OCC26282 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========"
+puts "OCC26282"
+puts "========"
+puts ""
+####################################################################
+# Mechanism 'ShapeFix' has errors revealed by wire tool 'FixTails'
+####################################################################
+
+
+restore [locate_data_file bug26282_mld-m-cv-qubit-th.brep] s
+
+checkshape s
+fixshape result s 1e-4 1 -maxtaila 6 -maxtailw 1e-4
+
+checkshape result

tests/bugs/heal/bug26716

@@ -0,0 +1,21 @@
+puts "TODO OCC26716 ALL: Error: Number of triangles is equal to 0"
+
+puts "============"
+puts "OCC26716"
+puts "============"
+puts ""
+################################################################################
+## Mesher cannot create a mesh of brep model due to ShapeFix_Wire::FixShifted()
+################################################################################
+
+restore [locate_data_file bug26716_rev.brep] result
+
+checkshape result
+
+vinit
+vsetdispmode 1
+vdisplay result
+vfit
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png
+
+checktrinfo result -tri

tests/bugs/heal/bug26735

@@ -0,0 +1,26 @@
+puts "TODO OCC26735 ALL: Error : Adjacent perpendicular edges are detected as overlapped"
+
+puts "============"
+puts "OCC26735"
+puts "============"
+puts ""
+###########################################################################################
+##  Adjacent perpendicular edges are detected as overlapped by DRAW command "checkoverlap".
+###########################################################################################
+
+restore [locate_data_file bug26735_PartialOverlap_OCOverlapValidatorWire.brep] w1
+
+explode w1 e
+
+set Log [checkoverlapedges w1_1 w1_2 0.01 0.01]
+set Message "Edges is overlaped"
+
+if { [regexp ${Message} ${Log} ] == 1 } {
+    puts "Error : Adjacent perpendicular edges are detected as overlapped"
+} else {
+    puts "OK : Adjacent perpendicular edges are not detected as overlapped"
+}
+
+smallview
+fit
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png

tests/bugs/heal/bug26943

@@ -0,0 +1,17 @@
+puts "TODO OCC26943 All: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "================"
+puts "OCC26943"
+puts "================"
+puts ""
+################################################################################
+# Wrong projection of helix on cylinder by ShapeConstruct_ProjectCurveOnSurface
+################################################################################
+
+restore [locate_data_file bug26943_face_helix.brep] ff
+
+fixshape result ff
+
+checkshape result
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/heal/bug26957

@@ -0,0 +1,25 @@
+puts "============"
+puts "OCC26957"
+puts "============"
+puts ""
+###########################################################
+## Unify same domain operation is slow for multiple shells
+###########################################################
+
+restore [locate_data_file bug26957-w-700.brep] a1
+
+nbshapes a1
+regexp {([-0-9.+eE]+)} [time {unifysamedom r1 a1}] full t1
+puts "t1=$t1"
+
+sewing a2 0.0 a1
+
+puts ""
+nbshapes a2
+regexp {([-0-9.+eE]+)} [time {unifysamedom r2 a2}] full t2
+puts "t2=$t2"
+
+set tol_rel 0.1
+if { [expr (${t1}*1. - ${t2}) / ${t2}] > ${tol_rel}} {
+   puts "Error: Unify same domain operation is slow for multiple shells"
+}

tests/bugs/mesh/bug26291

@@ -0,0 +1,14 @@
+puts "TODO OCC26291 ALL: Not connected mesh"
+
+puts "========"
+puts "OCC26291"
+puts "========"
+puts ""
+#########################################################
+# BRepMesh produces mesh with gap on the attached shape
+#########################################################
+
+restore [locate_data_file bug26291_mesh_gap.brep] a
+incmesh a 1
+
+tricheck a

tests/bugs/mesh/bug26382

@@ -0,0 +1,27 @@
+puts "========"
+puts "OCC22886"
+puts "========"
+puts ""
+###############################################################
+#  BRepMesh produces internal nodes outside the face interior
+###############################################################
+
+restore [locate_data_file bug26382_test.brep] result
+
+vinit
+vsetdispmode 1
+vdisplay result
+
+set scale 455.627
+set proj_x 0.521827
+set proj_y -0.641161
+set proj_z 0.56268
+set up_x -0.400279
+set up_y 0.398446
+set up_z 0.825238
+set at_x 146.11
+set at_y -109.936
+set at_z 60.2014"
+vviewparams -scale ${scale} -proj ${proj_x} ${proj_y} ${proj_z} -up ${up_x} ${up_y} ${up_z} -at ${at_x} ${at_y} ${at_z}
+
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png

tests/bugs/mesh/bug26889

@@ -0,0 +1,38 @@
+puts "TODO CR26889 ALL: Error: the mesh takes too long to be built"
+
+puts "========="
+puts "CR26889"
+puts "========="
+puts ""
+###############################################
+# Very poor mesh result from shape
+###############################################
+
+pload XDE
+
+stepread [locate_data_file bug26889_export.step] a *
+
+dlog reset
+dlog on
+
+dchrono t restart
+incmesh a_1 0.1 1
+dchrono t stop counter incmesh
+
+set info [dlog get]
+dlog reset
+dlog off
+
+regexp {COUNTER incmesh: +([-0-9.+eE]+)} ${info} full Time
+
+if { ${Time} > 30. } {
+  puts "Error: the mesh takes too long to be built"
+}
+
+checktrinfo a_1 -tri -nod
+
+vinit
+vsetdispmode 1
+vdisplay a_1
+vfit
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png

tests/bugs/mesh/bug26928

@@ -0,0 +1,96 @@
+puts "TODO CR26928 All: Error: Edges are meshed too coarsly"
+puts "REQUIRED CR26928 All: Error : Colors are not equal in default coordinate and in the near coordinates too"
+
+puts "========="
+puts "CR26928"
+puts "========="
+puts ""
+###############################
+# Edges are meshed too coarsly
+###############################
+
+restore [locate_data_file bug27356_comp.brep] c
+
+set x 168
+set y 298
+
+vinit
+vdisplay c
+vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
+vsetdispmode c 1
+checkview -screenshot -3d -path ${imagedir}/${test_image}-vdisplay.png
+if { [checkcolor $x $y 1 0 0] == 1 } {
+  puts "" 
+  puts "vdisplay.png" 
+  puts "Error: Edges are meshed too coarsly" 
+  puts "" 
+} else {
+  puts "" 
+  puts "vdisplay.png" 
+  puts "OK: Edges are meshed good" 
+  puts "" 
+}
+
+incmesh c 0.715 -a 11.459
+vdisplay -redisplay c
+vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
+checkview -screenshot -3d -path ${imagedir}/${test_image}-0715.png
+if { [checkcolor $x $y 1 0 0] == 1 } {
+  puts "" 
+  puts "0715.png" 
+  puts "Error: Edges are meshed too coarsly" 
+  puts "" 
+} else {
+  puts "" 
+  puts "0715.png" 
+  puts "OK: Edges are meshed good" 
+  puts "" 
+}
+
+incmesh c 0.5 -a 11.459
+vdisplay -redisplay c
+vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
+checkview -screenshot -3d -path ${imagedir}/${test_image}-05.png
+if { [checkcolor $x $y 1 0 0] == 1 } {
+  puts "" 
+  puts "05.png" 
+  puts "Error: Edges are meshed too coarsly" 
+  puts "" 
+} else {
+  puts "" 
+  puts "05.png" 
+  puts "OK: Edges are meshed good" 
+  puts "" 
+}
+
+incmesh c 0.3 -a 11.459
+vdisplay -redisplay c
+vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
+checkview -screenshot -3d -path ${imagedir}/${test_image}-03.png
+if { [checkcolor $x $y 1 0 0] == 1 } {
+  puts "" 
+  puts "03.png" 
+  puts "Error: Edges are meshed too coarsly" 
+  puts "" 
+} else {
+  puts "" 
+  puts "03.png" 
+  puts "OK: Edges are meshed good" 
+  puts "" 
+}
+
+incmesh c 0.1 -a 11.459
+vdisplay -redisplay c
+vviewparams -scale 17.2151 -proj 0.68553 -0.268225 -0.676834 -up -0.664339 0.149845 -0.732257 -at 33.3169 24.0699 29.5546
+checkview -screenshot -3d -path ${imagedir}/${test_image}-01.png
+if { [checkcolor $x $y 1 0 0] == 1 } {
+  puts "" 
+  puts "01.png" 
+  puts "Error: Edges are meshed too coarsly" 
+  puts "" 
+} else {
+  puts "" 
+  puts "01.png" 
+  puts "OK: Edges are meshed good" 
+  puts "" 
+}

tests/bugs/mesh/bug27453

@@ -0,0 +1,20 @@
+puts "TODO OCC27453 ALL: Not connected mesh"
+
+puts "========"
+puts "OCC27453"
+puts "========"
+puts ""
+##########################
+# Wrongly meshed surface
+##########################
+
+pload XDE
+
+stepread [locate_data_file bug27453_165-174_piattello.stp] a *
+
+explode a_1 F
+renamevar a_1_13 result
+checkshape result
+incmesh result 0.01 -a 0.5
+
+tricheck result

tests/bugs/modalg_6/bug27524

@@ -0,0 +1,24 @@
+puts "TODO 0027524 ALL: Error: pcurve deviation is greater than shape tolerance" 
+puts "========="
+puts "CR27524"
+puts "========="
+puts ""
+###############################
+## Incorrect result of "checkshape" command
+###############################
+
+set aTol 1.0e-7
+set aShapeToler 0.0069791772900578497
+
+restore [locate_data_file bug27524.brep] aS
+
+checkshape aS
+
+explode aS E
+explode aS F
+set log [xdistef aS_3 aS_1]
+regexp {Max Distance = +([-0-9.+eE]+);} ${log} full aDist
+
+if { $aDist > $aShapeToler + $aTol } {
+  puts "Error: pcurve deviation is greater than shape tolerance"
+}

tests/bugs/modalg_7/bug25104

@@ -1,4 +1,4 @@
-puts "TODO OCC25104 ALL: ERROR: OCC25104 is reproduced."
+puts "TODO OCC25104 Windows: ERROR: OCC25104 is reproduced."
 
 puts "========"
 puts "OCC25104"

tests/bugs/modalg_7/bug25879

@@ -1,4 +1,4 @@
-puts "TODO OCC25879 ALL: Error : result of blend fails the bopcheck"
+puts "TODO OCC25879 Windows: Error : result of blend fails the bopcheck"
 
 puts "============"
 puts "OCC25879"

tests/bugs/modalg_7/bug25930

@@ -0,0 +1,20 @@
+puts "TODO OCC25930 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "============"
+puts "OCC25930"
+puts "============"
+puts ""
+######################################################
+# thickness of spherical cap is invalid
+######################################################
+
+psphere Sphere 5 -90 40 360
+explode Sphere F
+
+offsetparameter 1e-7 p a
+offsetload Sphere -1 Sphere_2
+offsetperform Thickness
+
+checkshape Thickness
+
+checkview -display Thickness -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug25939

@@ -0,0 +1,22 @@
+puts "TODO OCC25939 ALL: An exception was caught"
+puts "TODO OCC25939 ALL: \\*\\* Exception \\*\\*.*"
+
+puts "============"
+puts "OCC25939"
+puts "============"
+puts ""
+######################################################
+# SIGSEGV in MakeThickSolid
+######################################################
+
+psphere Sphere 5
+pcylinder Cylinder 83 100
+ttranslate Cylinder -83 0 -50
+bcut Cut Sphere Cylinder
+explode Cut F
+
+offsetparameter 1e-7 p a
+offsetload Cut -2 Cut_4
+catch {offsetperform Thickness}
+
+checkview -display Thickness -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26225_1

@@ -0,0 +1,28 @@
+puts "TODO OCC26225 ALL: Tcl Exception: compute of chamfer failed"
+puts "TODO OCC26225 ALL: TEST INCOMPLETE"
+
+
+puts "========"
+puts "OCC26225"
+puts "========"
+puts ""
+#################################################################################################
+# Wrong result of chamfer in case of coinciding bound of chamfer's surface with bound of a face
+#################################################################################################
+
+restore [locate_data_file bug26225_chamferror_1.brep] b1
+
+smallview
+
+explode b1 f
+copy b1_9 f1
+copy b1_1 f2
+explode b1 e
+copy b1_10 e
+
+donly b1 f1 e
+fit
+
+chamf r b1 e f1 0.1 0.1
+
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26225_2

@@ -0,0 +1,25 @@
+puts "TODO OCC26225 ALL: Tcl Exception: compute of chamfer failed"
+puts "TODO OCC26225 ALL: TEST INCOMPLETE"
+
+
+puts "========"
+puts "OCC26225"
+puts "========"
+puts ""
+#################################################################################################
+# Wrong result of chamfer in case of coinciding bound of chamfer's surface with bound of a face
+#################################################################################################
+
+restore [locate_data_file bug26225_chamferror_1.brep] b1
+
+smallview
+
+explode b1 f
+explode b1_13 e
+
+donly b1 b1_13 b1_13_1
+fit
+
+chamf r b1 b1_13_1 b1_13 0.1 0.1
+
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26295

@@ -0,0 +1,23 @@
+puts "TODO OCC26295 ALL: An exception was caught"
+puts "TODO OCC26295 ALL: \\*\\* Exception \\*\\*.*"
+puts "TODO OCC26295 ALL: TEST INCOMPLETE"
+
+puts "========"
+puts "OCC26295"
+puts "========"
+puts ""
+#############################################
+# Sweep fails with BRepFill_ContactOnBorder
+#############################################
+
+restore [locate_data_file bug26295_section.brep] section
+restore [locate_data_file bug26295_profile1.brep] profile1
+restore [locate_data_file bug26295_profile3.brep] profile3
+
+explode section
+explode profile1
+explode profile3
+mksweep profile1_1
+addsweep section_1 -T -R
+setsweep -G profile3_1 0 2
+buildsweep sw -S

tests/bugs/modalg_7/bug26374

@@ -0,0 +1,18 @@
+puts "TODO OCC26374 ALL: ERROR: OCC26374 is reproduced."
+
+puts "========"
+puts "OCC26374"
+puts "========"
+puts ""
+######################################################################################
+# GeomFill_Profiler fails to unify BSplines if one has knot distance less than PConf
+######################################################################################
+
+restore [locate_data_file bug26374_w1.brep] w1
+restore [locate_data_file bug26374_w2.brep] w2
+
+thrusections result 0 1 w1 w2
+
+if {[llength [whatis r]] < 4} {
+  puts "ERROR: OCC26374 is reproduced. Operation thrusections fails."
+}

tests/bugs/modalg_7/bug26558

@@ -0,0 +1,17 @@
+puts "TODO OCC26558 ALL: An exception was caught"
+puts "TODO OCC26558 ALL: \\*\\* Exception \\*\\*.*"
+puts "TODO OCC26558 ALL: TEST INCOMPLETE"
+
+puts "========"
+puts "OCC26558"
+puts "========"
+puts ""
+###############################################
+# Failing to build isoline for offset surface
+###############################################
+
+restore [locate_data_file bug26558_s.brep] s
+
+mksurface sur s
+offset o sur 0.5
+uiso icur o 0

tests/bugs/modalg_7/bug26563

@@ -0,0 +1,23 @@
+puts "========"
+puts "OCC26563"
+puts "========"
+puts ""
+#################################################################################
+# Boolean cut operation in new API multi-tool mode performs fuse instead of cut
+#################################################################################
+
+restore [locate_data_file bug26563_BodyShape.brep] bodyshape
+restore [locate_data_file bug26563_CutShape.brep] cutshape
+
+bclearobjects
+bcleartools
+baddobjects bodyshape
+baddtools cutshape
+bfuzzyvalue 1e-5
+bapibop result 2
+
+checkshape result
+checkprops result -v 1.52043e+7
+checknbshapes result -vertex 234 -edge 354 -wire 122 -face 121 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 834
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26568

@@ -0,0 +1,18 @@
+puts "TODO OCC26568 ALL: An exception was caught"
+puts "TODO OCC26568 ALL: \\*\\* Exception \\*\\*.*"
+puts "TODO OCC26568 ALL: TEST INCOMPLETE"
+
+puts "========"
+puts "OCC26568"
+puts "========"
+puts ""
+################################
+# Exception when creating pipe
+################################
+
+box b 10 10 10
+explode b f
+circle c 0 0 0 0 1 0 10
+mkedge e c
+wire w e
+pipe p w b_1

tests/bugs/modalg_7/bug26604

@@ -0,0 +1,47 @@
+puts "TODO OCC26604 ALL: Error: GeomFill_Pipe doesn't fit given bounds"
+
+puts "========"
+puts "OCC26604"
+puts "========"
+puts ""
+#######################################################
+# GeomFill_Pipe doesn't fit given bounds
+#######################################################
+
+pload QAcommands
+
+restore [locate_data_file bug26604_spine.brep] spine
+restore [locate_data_file bug26604_bound1.brep] bound1
+restore [locate_data_file bug26604_bound2.brep] bound2
+
+mkcurve s spine
+mkcurve b1 bound1
+mkcurve b2 bound2
+
+OCC9 result s b1 b2 10
+
+smallview
+top
+clear
+display bound1
+display bound2
+display result
+fit
+checkview -screenshot -2d -path ${imagedir}/${test_image}-2d.png
+
+mkface face result
+
+vinit
+vtop
+vclear
+vdisplay bound1
+vdisplay bound2
+vdisplay face
+vfit
+checkview -screenshot -3d -path ${imagedir}/${test_image}-3d.png
+
+set x 155
+set y 185
+if { [checkcolor $x $y 0 1 0] == 1 } {
+  puts "Error: GeomFill_Pipe doesn't fit given bounds"
+}

tests/bugs/modalg_7/bug26655

@@ -0,0 +1,25 @@
+puts "TODO OCC26655 ALL: Tcl Exception"
+puts "TODO OCC26655 ALL: TEST INCOMPLETE"
+
+puts "============"
+puts "OCC26655"
+puts "============"
+puts ""
+######################################################
+# ChFi3d_Builder algorithm fails to build fillets if some input edges connect with seam edges
+######################################################
+
+restore [locate_data_file bug26655_OCC50.brep] a
+
+explode a e
+
+smallview
+donly a a_20 a_10 a_5 a_17 a_3 a_4 a_1 a_2 a_16 a_11 a_6 a_7
+fit
+checkview -screenshot -2d -path ${imagedir}/${test_image}-1.png
+
+blend result a 1 a_20 1 a_10 1 a_5 1 a_17 1 a_3 1 a_4 1 a_1 1 a_2 1 a_16 1 a_11 1 a_6 1 a_7
+
+checkshape result
+
+checkview -display result -2d -path ${imagedir}/${test_image}-2.png

tests/bugs/modalg_7/bug26697

@@ -0,0 +1,20 @@
+puts "TODO CR26697 ALL: Error :  is WRONG because number of SHAPE entities"
+
+puts "================"
+puts "CR26697"
+puts "================"
+puts ""
+###############################################
+## BRepFeat_MakePrism returns empty compound
+###############################################
+
+restore [locate_data_file bug26697_aBase.brep] aB
+restore [locate_data_file bug26697_aFrom.brep] aF
+restore [locate_data_file bug26697_aTo.brep] aT
+
+featprism aB aB aB 0 -1 0 2 1
+featperform prism aR aF aT
+
+checknbshapes aR -shape 2
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26793_1

@@ -0,0 +1,25 @@
+puts "================"
+puts "OCC26793"
+puts "================"
+puts ""
+###################################################
+# General Fuse algorithm produces incorrect result
+###################################################
+
+restore [locate_data_file bug26793_GenFuse_BaseFace.brep] bf
+restore [locate_data_file bug26793_GenFuse_Splitter.brep] sp
+
+bclearobjects
+bcleartools
+baddobjects bf
+baddtools sp
+
+bfillds
+
+bbuild result
+
+checkshape result
+checkprops result -s 8
+checknbshapes result -face 2
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26793_2

@@ -0,0 +1,27 @@
+puts "TODO OCC26793 ALL: Error :  is WRONG because number of FACE entities"
+
+puts "================"
+puts "OCC26793"
+puts "================"
+puts ""
+###################################################
+# General Fuse algorithm produces incorrect result
+###################################################
+
+restore [locate_data_file bug26793_GenFuse_BaseFace2.brep] bf
+restore [locate_data_file bug26793_GenFuse_Splitter2.brep] sp
+
+bclearobjects
+bcleartools
+baddobjects bf
+baddtools sp
+
+bfillds
+
+bbuild result
+
+checkshape result
+checkprops result -s 1184.78
+checknbshapes result -face 2
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26795

@@ -0,0 +1,45 @@
+puts "TODO OCC26795 ALL: Error: General Fuse operation is bad"
+
+puts "================"
+puts "OCC26795"
+puts "================"
+puts ""
+#######################################################################
+# Unable to perform General Fuse operation on the attached faces
+#######################################################################
+
+restore [locate_data_file bug26795_c.brep] c
+
+explode c f
+
+bclearobjects
+bcleartools
+baddobjects c_1
+baddtools c_2
+
+bfillds
+
+bbuild result
+
+checkshape result
+
+set tol_rel 1.e-5
+
+set s_exp_c_1 8.71862e+06
+set s_exp_c_2 1.01299e+07
+
+set s_c_1_and_s_c_2 [expr ${s_exp_c_1} + ${s_exp_c_2}]
+
+set prop [ sprops result ]
+regexp {Mass\s*:\s*([0-9.e+-]+)} $prop prop_s s_Fuse
+
+checkprops c_1 -s ${s_exp_c_1}
+checkprops c_2 -s ${s_exp_c_2}
+
+if { [expr ( abs (${s_Fuse} - ${s_c_1_and_s_c_2}) ) / ${s_c_1_and_s_c_2}] > ${tol_rel} } {
+   puts "OK: General Fuse operation is good"
+} else {
+   puts "Error: General Fuse operation is bad"
+}
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26842_1

@@ -0,0 +1,20 @@
+puts "======="
+puts "OCC26842"
+puts "======="
+puts ""
+##################################################
+# bopsection result does not contain any edges.
+##################################################
+
+restore [locate_data_file bug26842_s1.brep] s1
+restore [locate_data_file bug26842_plane.brep] plane
+
+bsection result s1 plane
+
+checkshape result
+checksection result
+
+checknbshapes result -vertex 2 -edge 1
+checkprops result -l 1765.01
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26842_2

@@ -0,0 +1,24 @@
+puts "TODO OCC26842 ALL: Error :  is WRONG because number of EDGE entities in shape"
+puts "TODO OCC26842 ALL: Error : The length of result shape is"
+puts "TODO OCC26842 ALL: Error : The command is not valid. The length is 0."
+
+puts "======="
+puts "OCC26842"
+puts "======="
+puts ""
+##################################################
+# bopsection result does not contain any edges.
+##################################################
+
+restore [locate_data_file bug26842_s2.brep] s2
+restore [locate_data_file bug26842_plane.brep] plane
+
+bsection result s2 plane
+
+checkshape result
+checksection result
+
+checknbshapes result -vertex 2 -edge 1
+checkprops result -l 1765.01
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26882

@@ -0,0 +1,28 @@
+puts "TODO OCC26882 ALL: Error :  is WRONG because number of VERTEX entities in shape"
+puts "TODO OCC26882 ALL: Error :  is WRONG because number of EDGE entities in shape"
+
+puts "========"
+puts "OCC26882"
+puts "========"
+puts ""
+#############################################################
+# Edge/Edge intersection algorithm produces incorrect result
+#############################################################
+
+restore [locate_data_file bug26882_e1.brep] e1
+restore [locate_data_file bug26882_e2.brep] e2
+
+bclearobjects
+bcleartools
+baddobjects e1
+baddtools e2
+
+bfillds
+
+bbuild result
+
+checkshape result
+
+checknbshapes result -vertex 1 -edge 2
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26883_1

@@ -0,0 +1,24 @@
+puts "========"
+puts "OCC26883"
+puts "========"
+puts ""
+#######################################################################
+# Wrong result of Boolean Operation
+#######################################################################
+
+restore [locate_data_file bug26883_object_cut.brep] b1
+restore [locate_data_file bug26883_fuse_tool1.brep] b2
+
+bclearobjects
+bcleartools
+baddobjects b1
+baddtools b2
+bfillds
+ 
+bbop result 1
+
+checkshape result
+
+checknbshapes result -solid 1
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26883_2

@@ -0,0 +1,24 @@
+puts "========"
+puts "OCC26883"
+puts "========"
+puts ""
+#######################################################################
+# Wrong result of Boolean Operation
+#######################################################################
+
+restore [locate_data_file bug26883_object_cut.brep] b1
+restore [locate_data_file bug26883_fuse_tool1.brep] b2
+
+bclearobjects
+bcleartools
+baddobjects b1
+baddtools b2
+bfillds
+ 
+bbop result 0
+
+checkshape result
+
+checknbshapes result -solid 1
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26883_3

@@ -0,0 +1,24 @@
+puts "========"
+puts "OCC26883"
+puts "========"
+puts ""
+#######################################################################
+# Wrong result of Boolean Operation
+#######################################################################
+
+restore [locate_data_file bug26883_object.brep] b1
+restore [locate_data_file bug26883_fuse_tool1.brep] b2
+
+bclearobjects
+bcleartools
+baddobjects b1
+baddtools b2
+bfillds
+ 
+bbop result 1
+
+checkshape result
+
+checknbshapes result -solid 1
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26883_4

@@ -0,0 +1,27 @@
+puts "TODO OCC26883 ALL: Faulty shapes in variables faulty_1 to"
+puts "TODO OCC26883 ALL: Error :  is WRONG because number of SOLID entities in shape"
+
+puts "========"
+puts "OCC26883"
+puts "========"
+puts ""
+#######################################################################
+# Wrong result of Boolean Operation
+#######################################################################
+
+restore [locate_data_file bug26883_object.brep] b1
+restore [locate_data_file bug26883_fuse_tool2.brep] b2
+
+bclearobjects
+bcleartools
+baddobjects b1
+baddtools b2
+bfillds
+ 
+bbop result 1
+
+checkshape result
+
+checknbshapes result -solid 1
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug26933

@@ -0,0 +1,29 @@
+puts "TODO ?OCC26933 All: Error : The length of result shape is"
+
+puts "========"
+puts "OCC26933"
+puts "========"
+puts ""
+#################################################################################
+# Section works unstably due to incorrect work of the method IsExistingPaveBlock
+#################################################################################
+
+restore [locate_data_file bug26933.brep] a
+
+explode a
+
+bclearobjects
+bcleartools
+baddobjects a_1
+baddtools a_2
+bfillds
+
+bbop result 4
+
+smallview
+donly a_1 result
+fit
+
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png
+
+checkprops result -l 945.22 -deps 0.1

tests/bugs/modalg_7/bug27004

@@ -0,0 +1,29 @@
+puts "TODO OCC27004 ALL: Faulty shapes in variables faulty_1 to"
+
+puts "========"
+puts "OCC27004"
+puts "========"
+puts ""
+#####################################################
+# ShapeUpgrade_UnifySameDomain produces invalid result
+#####################################################
+
+restore [locate_data_file bug27004_prim_0_1.brep]  s0
+restore [locate_data_file bug27004_prim_0_29.brep] s1
+restore [locate_data_file bug27004_prim_0_30.brep] s2
+
+bclear
+bfuzzyvalue 1e-5
+
+baddobjects s0 s1 s2
+baddtools s0 s1 s2
+
+bfillds
+
+bbop r 1
+
+unifysamedom result r
+
+checkshape result
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug27419

@@ -0,0 +1,41 @@
+puts "TODO OCC27419 ALL: ERROR: OCC27419 is reproduced."
+
+puts "========"
+puts "OCC27419"
+puts "========"
+puts ""
+##############################################
+# Incorrect result of Edge/Face intersection
+##############################################
+
+restore [locate_data_file bug27419_ef.brep] b
+
+explode b
+mkcurve c b_1
+mksurface s b_2
+
+# Get intersection of Curve and Surface
+intersect i c s
+
+# Get coordinates of intersection of Curve and Surface
+set bug_info [string trim [dump i]]
+set x_Coord [lindex $bug_info 7]
+set x_Coord [string trim [string range $x_Coord 0 [expr {[string length $x_Coord] - 2}]]]
+set y_Coord [lindex $bug_info 8]
+set y_Coord [string trim [string range $y_Coord 0 [expr {[string length $y_Coord] - 2}]]]
+set z_Coord [lindex $bug_info 9]
+
+# Get projection of intersection point to Curve
+proj c $x_Coord $y_Coord $z_Coord
+
+#Get the length of projection
+set Proj_Len [lindex [string trim [length ext_1]] 4]
+
+#Get maximim value of tolerance for the EDGE
+set MaxTol_Edge [lindex [string trim [tolerance b_1]] 11]
+set MaxTol_Edge [string trim [string range $MaxTol_Edge [expr {[string first "=" $MaxTol_Edge] + 1}] [expr {[string length $MaxTol_Edge] - 1}]]]
+
+# ERROR if MaxTol_Edge < Proj_Len else OK
+if {$MaxTol_Edge < $Proj_Len} {
+  puts "ERROR: OCC27419 is reproduced. Result of Edge/Face intersection is incorrect."
+}

tests/bugs/modalg_7/bug27469_1

@@ -0,0 +1,24 @@
+puts "TODO OCC27469 ALL: Error :  is WRONG because number of"
+
+puts "========"
+puts "OCC27469"
+puts "========"
+puts ""
+###############################################################
+# Regression vs 6.9.1: Wrong result of Edge/Face intersection
+###############################################################
+
+restore [locate_data_file bug27469_shapes.brep] b
+
+explode b
+explode b_1 F
+explode b_2 E
+
+bclearobjects
+bcleartools
+baddobjects b_1_2
+baddtools b_2_10 b_2_9
+bfillds
+bbuild result
+
+checknbshapes result -edge 35

tests/bugs/modalg_7/bug27469_2

@@ -0,0 +1,22 @@
+puts "TODO OCC27469 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========"
+puts "OCC27469"
+puts "========"
+puts ""
+###############################################################
+# Regression vs 6.9.1: Wrong result of Edge/Face intersection
+###############################################################
+
+restore [locate_data_file bug27469_shapes.brep] b
+
+explode b
+
+bclearobjects
+bcleartools
+baddobjects b_1
+baddtools b_2
+bfillds
+bbuild result
+
+checkshape result

tests/bugs/modalg_7/bug27471

@@ -0,0 +1,25 @@
+puts "TODO OCC27471 ALL: ERROR: OCC27471 is reproduced."
+
+puts "========"
+puts "OCC27471"
+puts "========"
+puts ""
+########################
+# Wrong result of pipe
+########################
+
+restore [locate_data_file bug27471_s.brep] s
+restore [locate_data_file bug27471_p.brep] p
+
+pipe result s p
+
+set bug_info [string trim [bopcheck result]]
+if {$bug_info != "This shape seems to be OK."} {
+  puts "ERROR: OCC27471 is reproduced. Result of pipe creation is WRONG."
+}
+
+vinit
+vdisplay result
+vfit
+
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug27472

@@ -0,0 +1,26 @@
+puts "========"
+puts "OCC27472"
+puts "========"
+puts ""
+#######################
+# Wrong result of cut
+#######################
+
+restore [locate_data_file bug27472_o.brep] o
+restore [locate_data_file bug27472_t.brep] t
+
+bcut result o t
+checkshape result
+
+set o_Vol [lindex [string trim [vprops o]] 2]
+set r_Vol [lindex [string trim [vprops result]] 2]
+
+if {$r_Vol == $o_Vol} {
+  puts "ERROR: OCC27472 is reproduced. Result of bcut operation is WRONG."
+}
+
+vinit
+vdisplay result
+vfit
+
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png

tests/bugs/modalg_7/bug27614

@@ -0,0 +1,25 @@
+puts "TODO OCC27614 ALL: ERROR: OCC27614 is reproduced."
+
+puts "========"
+puts "OCC27614"
+puts "========"
+puts ""
+#################################################
+# Sewing returns result with too high tolerance
+#################################################
+
+set sew_Tol 0.2
+
+restore [locate_data_file bug27614_CC.brep] c
+
+explode c
+sewing result $sew_Tol c_1 c_2
+
+checkshape result
+
+set bug_info [string trim [tolerance result]]
+set max_Tol [lindex $bug_info 1]
+set max_Tol [string trim [string range $max_Tol [expr {[string first "=" $max_Tol] + 1}] [expr {[string length $max_Tol] - 1}]]]
+if {$max_Tol > $sew_Tol} {
+  puts "ERROR: OCC27614 is reproduced. Tolerance of shape is too high: ${max_Tol} (expected: ${sew_Tol})."
+}

tests/bugs/moddata_3/bug25693_1

@@ -1,4 +1,4 @@
-puts "TODO OCC25693 ALL: Wire of BSplines fails bopcheck"
+puts "TODO OCC25693 Windows: Wire of BSplines fails bopcheck"
 
 puts "============"
 puts "OCC25693"

tests/bugs/moddata_3/bug25693_2

@@ -1,4 +1,4 @@
-puts "TODO OCC25693 ALL: Wire of BSplines fails bopcheck"
+puts "TODO OCC25693 Windows: Wire of BSplines fails bopcheck"
 
 puts "============"
 puts "OCC25693"

tests/bugs/moddata_3/bug25940

@@ -0,0 +1,40 @@
+puts "TODO OCC25940 ALL: Error: MakeThickSolid creates C0 continuous edges"
+
+puts "============"
+puts "OCC25940"
+puts "============"
+puts ""
+#######################################################################
+# MakeThickSolid creates C0 continuous edges
+#######################################################################
+
+restore [locate_data_file bug25940_thickness-extrude1-tcl-Face.brep] Face
+
+prism Extrude Face -102 0 0
+explode Extrude F
+
+offsetparameter 1e-7 p a
+offsetload Extrude 3.34 Extrude_5
+offsetperform Thickness001
+
+set Log [bopargcheck Thickness001 #F]
+set Message "Shapes with Continuity C0       : YES"
+
+if { [regexp ${Message} ${Log}] != 1 } {
+    puts "OK: MakeThickSolid don't creates C0 continuous edges"
+} else {
+    puts "Error: MakeThickSolid creates C0 continuous edges"
+}
+
+smallview
+display Thickness001
+fit
+checkview -screenshot -2d -path ${imagedir}/${test_image}-Thickness001-2d.png
+
+donly Extrude
+checkview -screenshot -2d -path ${imagedir}/${test_image}-Extrude.png
+
+donly Face
+checkview -screenshot -2d -path ${imagedir}/${test_image}-Face.png
+
+checkview -display Thickness001 -3d -path ${imagedir}/${test_image}-Thickness001-3d.png

tests/bugs/vis/bug26154

@@ -0,0 +1,24 @@
+puts "TODO OCC26154 ALL: ERROR: OCC26154 is reproduced."
+
+puts "========"
+puts "OCC26154"
+puts "========"
+puts ""
+##############################################################################
+# 0026154: Visualization - v3d viewer grid disappears due to automatic z-fit
+##############################################################################
+
+vinit
+
+box b 1 1 1
+vdisplay b
+vfit
+vgrid r l 0 0 1 1 0
+vtop
+
+set bug_info [string trim [vreadpixel 86 355 name]]
+if {$bug_info != "GRAY50 1"} {
+  puts "ERROR: OCC26154 is reproduced. Grid is not visible."
+}
+
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png

tests/bugs/xde/bug26174

@@ -0,0 +1,54 @@
+puts "TODO OCC26174 ALL: ERROR: OCC26174 is reproduced."
+
+puts "========"
+puts "OCC26174"
+puts "========"
+puts ""
+#######################################################
+# Loss of color after the second write of file (iges)
+#######################################################
+
+pload DCAF
+
+set aFileD1 ${imagedir}/${casename}_D1.igs
+set aFileD2 ${imagedir}/${casename}_D2.igs
+
+set anImageD $imagedir/${casename}_D.png
+set anImageD1 $imagedir/${casename}_D1.png
+set anImageD2 $imagedir/${casename}_D2.png
+
+catch {exec rm ${aFileD1}}
+catch {exec rm ${aFileD2}}
+
+box b 0 0 0 10 10 10
+compound b c
+NewDocument D
+XAddShape D c 1
+XSetColor D 0:1:1:1 1 0 0
+
+XShow D
+vfit
+set ColorD [string trim [vreadpixel 204 204 name]]
+vdump $anImageD
+
+WriteIges D ${aFileD1}
+WriteIges D ${aFileD2}
+
+ReadIges D1 ${aFileD1}
+ReadIges D2 ${aFileD2}
+
+XShow D1
+vfit
+set ColorD1 [string trim [vreadpixel 204 204 name]]
+vdump $anImageD1
+if {$ColorD != $ColorD1} {
+  puts "ERROR: OCC26174 is reproduced. Expected color of shape from Document1 is ${ColorD}, not ${ColorD1}."
+}
+
+XShow D2
+vfit
+set ColorD2 [string trim [vreadpixel 204 204 name]]
+vdump $anImageD2
+if {$ColorD != $ColorD2} {
+  puts "ERROR: OCC26174 is reproduced. Expected color of shape from Document2 is ${ColorD}, not ${ColorD2}."
+}

tests/v3d/ivtk/bug26978

@@ -0,0 +1,29 @@
+puts "========"
+puts "OCC26978"
+puts "========"
+puts ""
+######################################################
+# Interactive selection is insensitive to swept shell
+#######################################################
+
+restore [locate_data_file bug26978_evol3.brep] s
+
+ivtkinit
+ivtkdisplay s
+ivtksetdispmode s 1
+
+set anImg1 ${imagedir}/${test_image}_1.png
+set anImg2 ${imagedir}/${test_image}_2.png
+set anImgDiff ${imagedir}/${test_image}_diff.png
+
+set x 75
+set y 200
+ivtkselect $x $y
+ivtkdump ${anImg1}
+
+set x 150
+set y 150
+ivtkselect $x $y
+ivtkdump ${anImg2}
+
+diffimage ${anImg2} ${anImg1} 0.0 0 0 ${anImgDiff}