--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC13963"
+puts "============"
+puts ""
+#######################################################################
+# Some improvements in Bnd and gp classes
+#######################################################################
+
+set BugNumber OCC13963
+
+set Result [OCC13963 1 0 0 1]
+
+regexp {\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)[ \t]*=>[ \t]*\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)} $Result full OriginX OriginY OriginZ ResultX ResultY ResultZ
+
+if { ${OriginX} == 1.000 } {
+ set Status 0
+} else {
+ set Status 1
+}
+if { ${OriginY} == 0.000 } {
+ set Status 0
+} else {
+ set Status 2
+}
+if { ${OriginZ} == 0.000 } {
+ set Status 0
+} else {
+ set Status 3
+}
+
+if { ${ResultX} == 1.000 } {
+ set Status 0
+} else {
+ set Status 4
+}
+if { ${ResultY} == 0.000 } {
+ set Status 0
+} else {
+ set Status 5
+}
+if { ${ResultZ} == 0.000 } {
+ set Status 0
+} else {
+ set Status 6
+}
+
+puts "Status = ${Status}"
+# Resume
+puts ""
+if { ${Status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC13963"
+puts "============"
+puts ""
+#######################################################################
+# Some improvements in Bnd and gp classes
+#######################################################################
+
+set BugNumber OCC13963
+
+set Result [OCC13963 1 0 0 2]
+
+regexp {\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)[ \t]*=>[ \t]*\([ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*([-0-9.+eE]+)[ \t]*\)} $Result full OriginX OriginY OriginZ ResultX ResultY ResultZ
+
+if { ${OriginX} == 1.000 } {
+ set Status 0
+} else {
+ set Status 1
+}
+if { ${OriginY} == 0.000 } {
+ set Status 0
+} else {
+ set Status 2
+}
+if { ${OriginZ} == 0.000 } {
+ set Status 0
+} else {
+ set Status 3
+}
+
+if { ${ResultX} == 1.500 } {
+ set Status 0
+} else {
+ set Status 4
+}
+if { ${ResultY} == -0.500 } {
+ set Status 0
+} else {
+ set Status 5
+}
+if { ${ResultZ} == 0.000 } {
+ set Status 0
+} else {
+ set Status 6
+}
+
+puts "Status = ${Status}"
+# Resume
+puts ""
+if { ${Status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
-puts "TODO ?OCC12345 ALL: OCC309: ERROR 2"
+puts "TODO ?OCC12345 ALL: OCC309: Error 2"
puts "================"
puts "OCC309"
if { ${ll} != 2 } {
puts "result = ${result}"
puts "length = ${ll}"
- puts "OCC309: ERROR 0"
+ puts "OCC309: Error 0"
} else {
set result1 [lindex ${result} 0]
set result2 [lindex ${result} 1]
set res1 [ string range $result1 1 [expr [string length $result1] -3 ] ]
set res2 [ string range $result2 1 [expr [string length $result2] -3 ] ]
} else {
- set info [pwd]
- set CurrentDirectory [string range $info 2 end]
- set info2 [file dirname ${CurrentDirectory}]
- set UpTrek [file dirname ${CurrentDirectory}]
- set res1 [ string range $result1 3 [expr [string length $result1] -2 ] ]
- set res2 [ string range $result2 3 [expr [string length $result2] -2 ] ]
+ set res1 [ string range $result1 1 [expr [string length $result1] -2 ] ]
+ set res2 [ string range $result2 1 [expr [string length $result2] -2 ] ]
}
if {[string compare ${res1} "${CurrentDirectory}"] == 0} {
puts "OCC309: OK 1"
puts "result1 = ${result1}"
puts "res1 = ${res1}"
puts "CurrentDirectory = ${CurrentDirectory}"
- puts "OCC309: ERROR 1"
+ puts "OCC309: Error 1"
}
if {[string compare ${res2} "${UpTrek}"] == 0} {
puts "OCC309: OK 2"
puts "result2 = ${result2}"
puts "res2 = ${res2}"
puts "UpTrek = ${UpTrek}"
- puts "OCC309: ERROR 2"
+ puts "OCC309: Error 2"
}
}
003 iges
004 vis
005 xde
-006 modalg
-007 moddata
-008 step
-009 caf
-010 mesh
-011 heal
+006 modalg_1
+007 modalg_2
+008 modalg_3
+009 modalg_4
+010 moddata_1
+011 moddata_2
+012 step
+013 caf
+014 mesh
+015 heal
--- /dev/null
+pload QAcommands
+
+puts "======="
+puts "OCC24"
+puts "======="
+puts ""
+###########################################################################
+## Recorded modifications are lost when converting from ShapeBuild_ReShape into ShapeProcess_ShapeContext
+## and back
+###########################################################################
+
+restore [locate_data_file OCC24.brep] s
+checkshape s
+
+explode s f
+
+compound s_1 c
+if [catch { OCC24 result s c OCC24 Seq } ] {
+ puts "OCC24 ERROR"
+} else {
+ puts "OCC24 OK"
+}
+
+set square 37.6991
+set 2dviewer 2
+++ /dev/null
-set subgroup modalg
-
-set calcul "p"
-set type "i"
-
-proc OFFSETSHAPE {distance faces calcul type} {
- uplevel #0 explode s f
- uplevel #0 offsetparameter 1e-7 $calcul $type
- uplevel #0 offsetload s $distance $faces
- uplevel #0 offsetperform result
-}
-
-
-
-
-
-
-
-
-
+++ /dev/null
-
-puts "=============="
-puts " BUC60409 "
-puts " FUSE "
-puts "=============="
-
-restore [locate_data_file buc60409a.brep] c
-restore [locate_data_file buc60409b.brep] s
-
-set che [checkshape c]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar c result
-} else {
- puts "BUC60409 OK (shape 1): Source shape is valid"
- set che [checkshape s]
- if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar s result
- } else {
- puts "BUC60409 OK (shape 2): Source shape is valid"
- bfuse result c s
- }
-}
-set square 39.0894
-set 2dviewer 0
+++ /dev/null
-
-puts "============="
-puts " BUC60409 "
-puts " CUT "
-puts "============="
-
-restore [locate_data_file buc60409a.brep] c
-restore [locate_data_file buc60409b.brep] s
-
-set che [checkshape c]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar c result
-} else {
- puts "BUC60409 OK (shape 1): Source shape is valid"
- set che [checkshape s]
- if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar s result
- } else {
- puts "BUC60409 OK (shape 2): Source shape is valid"
- bcut result c s
- }
-}
-set square 31.8476
-set 2dviewer 0
+++ /dev/null
-
-puts "================="
-puts " BUC60409 "
-puts " COMMON "
-puts "================="
-
-restore [locate_data_file buc60409a.brep] c
-restore [locate_data_file buc60409b.brep] s
-
-set che [checkshape c]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar c result
-} else {
- puts "BUC60409 OK (shape 1): Source shape is valid"
-
- set che [checkshape s]
- if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar s result
- } else {
- puts "BUC60409 OK (shape 2): Source shape is valid"
- bcommon result c s
- }
-}
-set square 4.89279
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : Section is incorrect"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-
-puts "============="
-puts "BUC60462"
-puts "============="
-puts "Section"
-puts ""
-
-restore [locate_data_file buc60462a.brep] a
-checkshape a
-restore [locate_data_file buc60462b.brep] b
-checkshape b
-bsection result a b
-
-regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs
-
-if { $cs != 0 } {
- puts "Faulty : Section is incorrect"
-}
-
-set length 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_17"
-puts "TODO OCC12345 ALL: Faulty : mistakes are found in checked shape by checkshape command"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-
-puts "=========="
-puts "BUC60462"
-puts "=========="
-
-restore [locate_data_file buc60462c.brep] a
-checkshape a
-restore [locate_data_file buc60462d.brep] b
-checkshape b
-puts "Fuse begin"
-bfuse result a b
-puts "Fuse end"
-
-set che [checkshape result r]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty : mistakes are found in checked shape by checkshape command"
-} else {
- puts "Checking by checkshape - OK"
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "TODO OCC12345 ALL: Faulty : Section is incorrect"
-
-puts "============="
-puts "BUC60463"
-puts "============="
-puts "Section"
-puts ""
-cpulimit 1400
-restore [locate_data_file buc60463a.brep] a
-checkshape a
-restore [locate_data_file buc60463b.brep] b
-checkshape b
-bsection result a b
-
-regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs
-if { $cs != 0 } {
- puts "Faulty : Section is incorrect"
-}
-set length 0
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60523"
-puts "========================"
-
-restore [locate_data_file buc60523a.brep] a
-checkshape a
-sewing result 1.e-7 a
-set square 156.919
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60531"
-puts "========================"
-
-restore [locate_data_file buc60531a.brep] r1
-checkshape r1
-restore [locate_data_file buc60531b.brep] pl1
-checkshape pl1
-
-bcut result r1 pl1
-
-set square 115935
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60531"
-puts "========================"
-
-restore [locate_data_file buc60531a.brep] r1
-checkshape r1
-
-restore [locate_data_file buc60531b.brep] pl1
-checkshape pl1
-
-bcut r2 r1 pl1
-checkshape r2
-
-restore [locate_data_file buc60531c.brep] pl2
-checkshape pl2
-
-bcut result r2 pl2
-
-set square 115935
-set 2dviewer 0
+++ /dev/null
-puts "==========="
-puts "BUC60532"
-puts "==========="
-
-restore [locate_data_file buc60532a.brep] p
-checkshape p
-
-restore [locate_data_file buc60532b.brep] t1
-checkshape t1
-
-restore [locate_data_file buc60532c.brep] t2
-checkshape t2
-
-# create halfspace
-halfspace h1 t1 20 20 0
-halfspace h2 t2 20 20 0
-
-# first cut
-bcut result p h1
-
-set square 81.8172
-set 2dviewer 0
+++ /dev/null
-puts "==========="
-puts "BUC60532"
-puts "==========="
-
-restore [locate_data_file buc60532a.brep] p
-checkshape p
-
-restore [locate_data_file buc60532b.brep] t1
-checkshape t1
-
-restore [locate_data_file buc60532c.brep] t2
-checkshape t2
-
-# create halfspace
-halfspace h1 t1 20 20 0
-halfspace h2 t2 20 20 0
-
-# first cut
-bcut result p h1
-
-set square 81.8172
-set 2dviewer 0
-
+++ /dev/null
-puts "=========="
-puts "BUC60532"
-puts "=========="
-
-restore [locate_data_file buc60532a.brep] p
-checkshape p
-
-restore [locate_data_file buc60532b.brep] t1
-checkshape t1
-
-restore [locate_data_file buc60532c.brep] t2
-checkshape t2
-
-# create halfspace
-#vertex v 20 20 0
-halfspace h1 t1 20 20 0
-halfspace h2 t2 20 20 0
-
-# first cut
-bcut res1 p h1
-
-explode res1 e
-mkcurve cu11 res1_1
-mkcurve cu12 res1_2
-mkcurve cu13 res1_3
-mkcurve cu14 res1_4
-mkcurve cu15 res1_5
-
-checkshape res1
-puts [computetolerance res1]
-
-# second cut
-bcut res2 res1 h2
-tcopy res2 res
-checkshape res2
-
-explode res2 e
-mkcurve cu21 res2_1
-mkcurve cu22 res2_2
-mkcurve cu23 res2_3
-mkcurve cu24 res2_4
-mkcurve cu25 res2_5
-
-explode res2 face
-
-puts [computetolerance res2]
-
-renamevar res2 result
-
-set square 78.8705
-set 2dviewer 0
-
+++ /dev/null
-puts "=========="
-puts "BUC60533"
-puts "=========="
-
-restore [locate_data_file buc60533a.brep] part
-checkshape part
-#puts "Tolerance part"
-#computetolerance part
-
-restore [locate_data_file buc60533b.brep] trTool
-checkshape trTool
-#puts "Tolerance trTool"
-#computetolerance trTool
-
-# create halfspace
-vertex v 10000 15000 -15000
-halfspace hs trTool 10000 15000 -15000
-#puts "Tolerance hs"
-#computetolerance hs
-
-#*************************************************
-if [catch {bcut result part hs} catch_result] {
- puts "Faulty BUC60533: function CUT works wrongly"
-} else {
- puts " BUC60533 OK: function CUT works properly"
-}
-#*************************************************
-
-#set che [checkshape res r]
-#set err [lindex $che [expr [llength $che] - 1]]
-#if { $err != "OK"} {
-# puts "Faulty : mistakes are found in checked shape by checkshape command"
-#} else {
-# puts "Checking by checkshape - OK"
-
-#explode res e
-#mkcurve cu1 res_1
-#mkcurve cu2 res_2
-#mkcurve cu3 res_3
-#mkcurve cu4 res_4
-#mkcurve cu5 res_5
-
-#checkshape res
-
-#set tolerance [ maxtolerance res ]
-#set MaxFaceTolerance [ lindex $tolerance 14 ]
-#set MaxEdgeTolerance [ lindex $tolerance 20 ]
-#set MaxVertexTolerance [ lindex $tolerance 26 ]
-#if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
-#puts "Faulty :Tolerance of shape is more then 1.0"
-#} else {
-#puts "Tolerance of shape is less then 1.0"
-#}
-#}
-
-# Objectif : Couper part par trTool
-#
-# part est construite a partir d'un semi de point et de telle facon que u=x et v=y.
-# On obtient une Geom_BSplineSurface. On cree alors la topologie a partir de cette
-# surface via BRepAPI::MakeFace(surface)
-# Dans notre code, a aucun moment, nous
-# n'initialisons la tolerance.
-#
-# Le cut n'est pas effectue car une exception est levee :
-# An exception was caught Standard_ConstructionError:
-# ** Exception ** Standard_ConstructionError:
-
-set square 1.63191e+07
-set 2dviewer 0
+++ /dev/null
-puts "==========="
-puts "BUC60555"
-puts "CUT Case 1"
-puts "==========="
-#cpulim add aki 070704
-cpulimit 1600
-restore [locate_data_file buc60555a.brep] part
-checkshape part
-restore [locate_data_file buc60555b.brep] trTool1
-checkshape trTool1
-halfspace hs1 trTool1 20000 10000 0
-bcut cut1 part hs1
-
-checkshape cut1
-
-tcopy cut1 result
-
-explode cut1 e
-mkcurve cu1 cut1_1
-mkcurve cu2 cut1_2
-mkcurve cu3 cut1_3
-mkcurve cu4 cut1_4
-
-set tolerance [ maxtolerance cut1 ]
-
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
-
-if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
- puts "Faulty :Tolerance of shape is more then 1.0"
-} else {
- puts "Tolerance of shape is less then 1.0"
-}
-
-set square 4.60842e+07
-set 2dviewer 0
+++ /dev/null
-puts "============="
-puts "BUC60555"
-puts "CUT Case2"
-puts "============="
-cpulimit 1400
-restore [locate_data_file buc60555a.brep] part
-checkshape part
-restore [locate_data_file buc60555b.brep] trTool1
-checkshape trTool1
-
-halfspace hs1 trTool1 20000 10000 0
-bcut cut1 part hs1
-checkshape cut1
-
-set che [checkshape cut1 r]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty : mistakes are found in checked shape by checkshape command"
-} else {
- puts "Checking by checkshape - OK"
-}
-
-puts [maxtolerance cut1]
-
-restore [locate_data_file buc60555c.brep] trTool2
-halfspace hs2 trTool2 10000 10000 0
-bcut cut2 cut1 hs2
-
-tcopy cut2 result
-
-explode cut2 e
-mkcurve cu1 cut2_1
-mkcurve cu2 cut2_2
-mkcurve cu3 cut2_3
-mkcurve cu4 cut2_4
-
-set che [checkshape cut2 r]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty : mistakes are found in checked shape by checkshape command"
-} else {
- puts "Checking by checkshape - OK"
-}
-
-checkshape cut2
-set tolerance [ maxtolerance cut2 ]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
-if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
- puts "Faulty : Tolerance of shape is more then 1.0"
-} else {
- puts "Tolerance of shape is less then 1.0"
-}
-set square 4.52817e+07
-set 2dviewer 0
+++ /dev/null
-puts "=============="
-puts "BUC60555"
-puts "CUT Case 3"
-puts "=============="
-cpulimit 5000
-restore [locate_data_file buc60555a.brep] part
-checkshape part
-restore [locate_data_file buc60555b.brep] trTool1
-checkshape trTool1
-
-halfspace hs1 trTool1 20000 10000 0
-bcut cut1 part hs1
-checkshape cut1
-
-set che [checkshape cut1 r]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty : mistakes are found in checked shape by checkshape command"
-} else {
- puts "Checking by checkshape - OK"
-}
-
-maxtolerance cut1
-
-restore [locate_data_file buc60555c.brep] trTool2
-halfspace hs2 trTool2 10000 10000 0
-bcut cut2 cut1 hs2
-checkshape cut2
-
-set che [checkshape cut2 r]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty : mistakes are found in checked shape by checkshape command"
-} else {
- puts "Checking by checkshape - OK"
-}
-
-maxtolerance cut2
-
-restore [locate_data_file buc60555d.brep] trTool3
-halfspace hs3 trTool3 20000 1000 0
-bcut cut3 cut2 hs3
-
-tcopy cut3 result
-
-explode cut3 e
-mkcurve cu1 cut3_1
-mkcurve cu2 cut3_2
-mkcurve cu3 cut3_3
-mkcurve cu4 cut3_4
-
-set che [checkshape cut3 r]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty : mistakes are found in checked shape by checkshape command"
-} else {
- puts "Checking by checkshape - OK"
-}
-
-checkshape cut3
-
-set tolerance [ maxtolerance cut3 ]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
-
-if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
- puts "Faulty : Tolerance of shape is more then 1.0"
-} else {
- puts "Tolerance of shape is less then 1.0"
-}
-set square 2.22138e+07
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts "BUC60585"
-puts "========================"
-
-restore [locate_data_file buc60585a.brep] s
-checkshape s
-plane ps 2036.25 -97.5 -1460.499755859375 0.0 -0.75103523489975432 -0.66026212668838646 1.0 0.0 0.0
-
-psection result s ps
-
-set length 117.81
-set 2dviewer 0
-
-## set num [lindex [checksection res] 4]
-# if { $num != 0 } {
-# puts " Faulty : Result shape is Unclosed !!! "
-# }
+++ /dev/null
-
-puts "========================"
-puts "BUC60585"
-puts "========================"
-
-restore [locate_data_file buc60585b.brep] t
-checkshape t
-plane pt 2036.25 -97.5 -1460.499755859375 0.0 -1.0 0.0 1.0 0.0 0.0
-
-psection result t pt
-
-set length 22.0446
-set 2dviewer 0
-
-# checksection res
+++ /dev/null
-
-puts "========================"
-puts "BUC60623"
-puts "========================"
-
-restore [locate_data_file buc60623a.brep] a
-checkshape a
-restore [locate_data_file buc60623b.brep] b
-checkshape b
-
-bsection result a b
-
-set length 1475.98
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60623"
-puts "========================"
-
-restore [locate_data_file buc60623a.brep] a
-checkshape a
-restore [locate_data_file buc60623b.brep] b
-checkshape b
-
-bsection result b a
-# checksection res
-
-set length 1475.98
-set 2dviewer 0
+++ /dev/null
-
-puts "============="
-puts "BUC60635"
-puts "============="
-
-restore [locate_data_file buc60635a.brep] a
-checkshape a
-
-mkplane result a
-
-set square 2035.58
-set 2dviewer 0
-
+++ /dev/null
-puts "=========="
-puts "BUC60649"
-puts "BUC60657"
-puts "=========="
-puts ""
-
-restore [locate_data_file buc60649a.brep] a
-checkshape a
-
-set che [checkshape a rr]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
- puts "Body of the script was not executed"
-} else {
- puts "Checking of SOURCE shape by checkshape - OK"
- mkoffset result a 1 1
- renamevar result_1 result
-}
-set length 271.473
-set 2dviewer 0
+++ /dev/null
-
-puts "====================================="
-puts "BUC60663"
-puts "====================================="
-puts ""
-puts "It takes visual check for this BUG. See V2 point"
-puts "====================================="
-puts ""
-
-restore [locate_data_file buc60663a.brep] a
-checkshape a
-restore [locate_data_file buc60663b.brep] b
-checkshape b
-
-bsection result a b
-
-regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
-if { $num != 2 } {
- puts " Faulty : Result shape is INcorrect !!! "
-}
-
-
-#fsameparameter res
-
-set length 26.2001
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : the distanse is"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-
-puts "====================================="
-puts "BUC60663"
-puts "====================================="
-puts ""
-puts "It takes visual check for this BUG."
-puts "====================================="
-puts ""
-
-restore [locate_data_file buc60663a.brep] a
-checkshape a
-restore [locate_data_file buc60663b.brep] b
-checkshape b
-
-bsection result a b
-
-set expl [explode result v]
-set len [llength $expl]
-set ver [lindex $expl [expr $len - 1]]
-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 {$dist > $toler} {
- puts "Faulty : the distanse is $dist. It is more $toler."
-}
-set length 0
-set 2dviewer 0
+++ /dev/null
-
-puts "===================="
-puts "BUC60668"
-puts "Three boxes must appear on picture"
-puts "===================="
-
-box b 100 0 0 10 10 10
-box b1 10 10 10
-box b2 50 50 50 10 10 10
-box a -10 -10 -10 200 200 200
-
-compound b b1 b2 c
-
-regexp {Mass +: +([-0-9.+eE]+)} [vprops c] full vcomp
-
-#compound b b1 c
-bcommon result c a
-
-regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full vcomm
-
-if { $vcomp != $vcomm } {
- puts " Faulty : Common is incorrect"
-} else {
- puts " BUC60668 OK : Common was made properly"
-}
-set square 1800
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "=================="
-puts "BUC60669"
-puts "=================="
-puts ""
-#############################################################
-## An exception was caught OSD_SIGBUS: SIGBUS 'bus error' detected.**
-## Exception ** OSD_SIGBUS: SIGBUS 'bus error' detected.
-#############################################################
-
-restore [locate_data_file buc60669a.brep] shell1
-checkshape shell1
-restore [locate_data_file buc60669b.brep] shell2
-checkshape shell2
-
-ksection result shell1 shell2 1000 0.0001 0.00001 0
-
-#checksection res
-set length 104.754
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty BUC60682"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-pload QAcommands
-
-puts "=================="
-puts "BUC60682"
-puts "=================="
-
-restore [locate_data_file buc60682a.brep] shell1
-restore [locate_data_file buc60682b.brep] shell2
-
-set che [checkshape shell1]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60682 (shell 1): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar shell1 result
-} else {
- puts "BUC60682 OK (shell 1): Source shape is valid"
- set che [checkshape shell2]
- if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60682 (shell 2): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar shell2 result
- } else {
- puts "BUC60682 OK (shell 2): Source shape is valid"
- ksection result shell1 shell2 1000 0.0001 0.00001 0
- }
-}
-set square 0
-set 2dviewer 0
+++ /dev/null
-
-puts "============="
-puts "BUC60684"
-puts "============="
-
-restore [locate_data_file buc60684a.brep] w
-checkshape w
-
-prism result w 0 0 10
-
-set square 148.875
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : The distance between"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-
-puts "========================"
-puts "BUC60690"
-puts "========================"
-puts ""
-
-restore [locate_data_file buc60690a.brep] a
-restore [locate_data_file buc60690b.brep] b
-
-set che [checkshape a]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60690 (shape 1): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar a result
-} else {
- puts "BUC60690 OK (shape 1): Source shape is valid"
- set che [checkshape b]
- if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60690 (shape 2): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar b result
- } else {
- puts "BUC60690 OK (shape 2): Source shape is valid"
-
- bsection result a b
-
- set le [explode result v]
- distmini d1 result_1 b
- distmini d2 [lindex $le [expr [llength $le] - 1]] b
-
- regexp {([-0-9.+eE]+)$} [dump d1_val] full du1
-
- if { [expr $du1 > 1e-7] } {
- puts "Faulty : The distance between first vertex and shellB is $du1. It is more then 1e-7."
- }
-
- regexp {([-0-9.+eE]+)$} [dump d2_val] full du2
- if { [expr $du2 > 1e-7] } {
- puts "Faulty : The distance between last vertex and shellB is $du2. It is more then 1e-7."
- }
- }
-}
-set length 0
-set 2dviewer 0
-
-
+++ /dev/null
-#puts "TODO OCC12345 ALL: An exception was caught"
-#puts "TODO OCC12345 ALL: Exception"
-#puts "TODO OCC12345 ALL: Faulty BUC60703: here is problem with FUSE operation"
-
-puts "========================"
-puts "BUC60703"
-puts "================================="
-puts "Action with models with VERY BIG tolerance"
-puts "================================="
-##########################################
-## Crash during a fuse whilst two plans are tangent.
-## ( Case has LIMITATION status currently )
-##########################################
-
-#cpulimit 9000
-
-restore [locate_data_file buc60703a.brep] a
-# maxtolerance a
-checkshape a
-restore [locate_data_file buc60703b.brep] b
-# maxtolerance b
-checkshape b
-
-if [catch {bfuse result a b } catch_result] {
- puts "Faulty BUC60703: here is problem with FUSE operation"
-} else {
- puts "OK OCC348: function FUSE works ok"
- if [catch {checkshape result } catch_result] {
- puts "Faulty BUC60703 : here is checking problem."
- } else {
- puts "BUC60703 OK"
- }
- # maxtolerance res
- set square 237.333
- set 2dviewer 0
-}
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60703"
-puts "================================="
-puts "Action with models with CORRECT tolerance"
-puts "================================="
-puts ""
-############################################
-## Crash during a fuse whilst two plans are tangent.
-############################################
-
-restore [locate_data_file buc60703c.brep] a
-checkshape a
-
-restore [locate_data_file buc60703e.brep] b
-checkshape b
-
-
-if [catch {bfuse result a b } catch_result] {
- puts "Faulty BUC60703: here is problem with FUSE operation"
-} else {
- puts "OK BUC60703: function FUSE works ok"
- if [catch {checkshape result } catch_result] {
- puts "WARNING BUC60703 : Function checkshape gives bad result"
- puts " See also OCC438: 919 D3 and D4"
- } else {
- puts "BUC60703 OK in checkshape"
- }
-}
-set square 236.72
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts "BUC60703"
-puts "========================"
-
-restore [locate_data_file buc60703e.brep] a
-#maxtolerance a
-checkshape a
-restore [locate_data_file buc60703d.brep] b
-#maxtolerance b
-checkshape b
-
-if [catch {bfuse result a b } catch_result] {
- puts "Faulty BUC60703: here is problem with FUSE operation"
-} else {
- puts "OK OCC348: function FUSE works ok"
- if [catch {checkshape result} catch_result] {
- puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4"
- } else {
- puts "BUC60703 : here is NOT checking problem"
- }
-}
-set square 371.259
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts "BUC60703"
-puts "========================"
-puts ""
-####################################
-## Crash during a fuse whilst two plans are tangent.
-####################################
-
-restore [locate_data_file buc60703d.brep] a
-#maxtolerance a
-checkshape a
-restore [locate_data_file buc60703f.brep] b
-#maxtolerance b
-checkshape b
-
-if [catch {bfuse result a b } catch_result] {
- puts "Faulty BUC60703: here is problem with FUSE operation"
-} else {
- puts "OK OCC348: function FUSE works ok"
- if [catch {checkshape result} catch_result] {
- set mistake 1
- } else {
- set mistake 0
- }
-
- if { $mistake != 0} {
- puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4"
- } else {
- puts "BUC60703 : here is NOT checking problem"
- }
-}
-set square 505.797
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60704"
-puts "BUC60709"
-puts "========================"
-
-restore [locate_data_file buc60704a.brep] p
-checkshape p
-restore [locate_data_file buc60704b.brep] s
-checkshape s
-
-bfuse result p s
-
-set square 39.0889
-set 2dviewer 0
+++ /dev/null
-
-puts "==========="
-puts "BUC60708"
-puts "==========="
-
-restore [locate_data_file buc60708a.brep] a
-checkshape a
-restore [locate_data_file buc60708b.brep] b
-checkshape b
-
-bcommon result a b
-
-set faces [explode result f]
-set n [llength $faces]
-
-set end [lindex $faces [expr $n-1]]
-
-if { $end != "result_4" } {
- puts " Faulty :Common operation was made wrongly"
-} else {
- puts " Common operation was made successfully"
-}
-set square 13.4871
-set 2dviewer 0
+++ /dev/null
-puts "=========="
-puts "BUC60712"
-puts "=========="
-puts ""
-puts "=================================="
-puts "It takes visual check for this BUG"
-puts "=================================="
-
-#
-# OCC22070: Grid Tests: CHL set, detected problems
-# Problems:
-# The shape buc60712a.brep is self-interferred.
-# thus it can not be used as the argument for Boolean Operation Algorithm.
-#
-# Proposals:
-# The Case chl/902/F3 should be removed or rewritten:
-
-restore [locate_data_file buc60712a.brep] a
-checkshape a
-
-restore [locate_data_file buc60712b.brep] b
-checkshape b
-
-# Recompute "a" shape
-explode a f
-
-bop a_1 a_2
-bopfuse r12
-
-bop a_3 a_4
-bopfuse r34
-
-bop r12 r34
-
-bopfuse r
-
-# Start boolean operation
-bop r b
-bopsection result
-
-# Check result
-regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
-# Resume
-if { $num != 0 } {
- puts " Faulty BUC60712: Result shape is INcorrect !!! "
-} else {
- puts "BUC60712 OK: Result shape is correct "
-}
-set length 1.88145
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts "BUC60714"
-puts "========================"
-
-profile f x 30 y 20 x -30
-explode f w
-vertex v1 0 0 0
-vertex v2 0 -10 -10
-edge e v1 v2
-
-wire w e
-mksweep f_1
-setsweep -FR
-addsweep w
-
-########
-#does'nt work
-buildsweep result -C -S
-
-set square 1979.9
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60728"
-puts "========================"
-puts ""
-####################################################
-## Infinite loop in section. Section between the two attached faces never finish.
-####################################################
-
-restore [locate_data_file buc60728a.brep] s1
-restore [locate_data_file buc60728b.brep] s2
-build3d s1
-checkshape s1
-checkshape s2
-
-bsection result s1 s2
-
-#checksection res
-#checkshape res
-
-set length 238.032
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "========================"
-puts "BUC60744"
-puts "========================"
-puts ""
-
-restore [locate_data_file buc60744a.brep] a
-restore [locate_data_file buc60744b.brep] b
-
-set che [checkshape a]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60744 (shape 1): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar a result
-} else {
- puts "BUC60744 OK (shape 1): Source shape is valid"
-
- set che [checkshape b]
- if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60744 (shape 2): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar b result
- } else {
- puts "BUC60744 OK (shape 2): Source shape is valid"
-
- ksection result a b 1000 0.0001 0.00001 0
-
- set ne [llength [explode result e]]
- set nv [llength [explode result v]]
-
- if {$ne >= $nv} {
- puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
- }
- }
-}
-bsection result a b
-
-set ne [llength [explode result e]]
-set nv [llength [explode result v]]
-
-if {$ne >= $nv} {
- puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
-}
-
-set length 228.386
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts "BUC60776"
-puts "========================"
-
-restore [locate_data_file buc60776a.brep] a
-checkshape a
-restore [locate_data_file buc60776b.brep] b
-checkshape b
-bfuse result a b
-
-set square 60771.3
-
-set 2dviewer 1
-
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60776"
-puts "========================"
-
-restore [locate_data_file buc60776c.brep] a
-checkshape a
-restore [locate_data_file buc60776d.brep] b
-checkshape b
-bsection result a b
-
-set length 111.405
-
-set 2dviewer 1
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60777"
-puts "========================"
-
-profile p x 30 y -10 x 10 y 10 x 10 y 30 t -30 -20 t -30 20
-mkoffset result p 1 -1
-explode p w
-
-regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full end
-regexp {Mass +: +([-0-9.+eE]+)} [lprops p_1] full end1
-
-if { $end >= $end1} {
- puts " Faulty Mkoffset operation was made wrongly"
- } else {
- puts " Mkoffset operation was made successfully"
-}
-
-# Lenth of "profile" : 203.733802110964
-
-renamevar result_1 result
-
-set length 191.044
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: An exception was caught"
-puts "TODO OCC12345 ALL: Exception"
-puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========================"
-puts "BUC60782"
-puts "CASE 1"
-puts "========================"
-puts ""
-puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
-puts ""
-
-restore [locate_data_file buc60782a.brep] a
-set che [checkshape a]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60782 (case 1): Source shape is invalid"
-} else {
- puts "BUC60782 OK (case 1): Sourse shape is correct"
-}
-
-set che [checkshape a rr]
-if { [regexp {OK} $che ] != 1} {
- puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
- puts "Body of the script was not executed"
-} else {
- puts "Checking of SOURCE shape by checkshape - OK"
- if [catch { mkoffset result a 1 10 } catch_result] {
- puts "Faulty BUC60782: mkoffset works wrongly"
- renamevar a result
- } else {
- puts "OK BUC60782: offset is created"
- tpcompound result
- }
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
-puts "TODO OCC12345 ALL: Faulty : mistakes are found in SOURCE shape by checkshape command"
-puts "TODO OCC12345 ALL: Faulty BUC60782"
-
-puts "========================"
-puts "BUC60782"
-puts "CASE 2"
-puts "========================"
-puts ""
-puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
-puts ""
-
-restore [locate_data_file buc60782b.brep] a
-set che [checkshape a]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60782 (case 2): Source shape is invalid"
-} else {
- puts "BUC60782 OK (case 2): Sourse shape is correct"
-}
-
-set che [checkshape a rr]
-if { [regexp {OK} $che ] != 1} {
- puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
- puts "Body of the script was not executed"
-} else {
- puts "Checking of SOURCE shape by checkshape - OK"
- if [catch { mkoffset result a 1 10 } catch_result] {
- puts "Faulty BUC60782: mkoffset works wrongly"
- renamevar a result
- } else {
- puts "OK BUC60782: offset is created"
- tpcompound result
- }
- set square 0
- set 2dviewer 0
-}
+++ /dev/null
-puts "TODO OCC12345 ALL: An exception was caught"
-puts "TODO OCC12345 ALL: Exception"
-puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-
-puts "========================"
-puts "BUC60782"
-puts "CASE 3"
-puts "========================"
-puts ""
-puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
-puts ""
-
-restore [locate_data_file buc60782c.brep] a
-
-set che [checkshape a]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty BUC60782 (case 3): Source shape is invalid"
-} else {
- puts "BUC60782 OK (case 3): Sourse shape is correct"
-}
-
-set che [checkshape a rr]
-if { [regexp {OK} $che ] != 1 } {
- puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
- puts "Body of the script was not executed"
-} else {
- puts "Checking of SOURCE shape by checkshape - OK"
- if [catch { mkoffset result a 1 10 } catch_result] {
- puts "Faulty BUC60782: mkoffset works wrongly"
- renamevar a result
- } else {
- puts "OK BUC60782: offset is created"
- tpcompound result
- }
-}
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : result should be a shell, but not a compound of faces"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "BUC60787"
-puts "BUC60783"
-puts "========"
-
-#restore Common_Shell_Case2.brep S1
-#restore Common_Solid_Case2.brep S2
-
-restore [locate_data_file buc60787a.brep] S1
-checkshape S1
-restore [locate_data_file buc60787b.brep] S2
-checkshape S1
-
-bcommon result S1 S2
-
-set nb_info [nbshapes result]
-regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
-
-if { $err != 0 || $err1 != 1} {
- puts "Faulty : result should be a shell, but not a compound of faces"
-} else {
- puts "BUC60787 - OK"
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : result should be a shell, but not a compound of faces"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "BUC60787"
-puts "BUC60783"
-puts "========"
-
-#restore Cut_Shell_Case2.brep S1
-#restore Cut_Solid_Case2.brep S2
-
-restore [locate_data_file buc60787c.brep] S1
-checkshape S1
-restore [locate_data_file buc60787d.brep] S2
-checkshape S2
-
-bcut result S1 S2
-
-set nb_info [nbshapes result]
-regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
-
-if { $err != 0 || $err1 != 1} {
- puts "Faulty : result should be a shell, but not a compound of faces"
-} else {
- puts "BUC60787 - OK"
-}
-set square 0
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60788"
-puts "case 1"
-puts "============"
-
-#restore Intersection_Shell1_Case1.brep S1
-#restore Intersection_Shell2_Case1.brep S2
-
-restore [locate_data_file buc60788a.brep] S1
-checkshape S1
-restore [locate_data_file buc60788b.brep] S2
-checkshape S2
-
-bsection result S1 S2
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full err
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
-
-if { $err != 4 && $err1 != 3} {
- puts "Faulty : result (res) is incorrect"
-} else {
- puts "BUC60788 - OK"
-}
-
-set length 750
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : result should be a shell, but not a compound of faces"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "BUC60788"
-puts "case 3"
-puts "========"
-
-#restore Cut_Shell_Case2.brep S1
-#restore Cut_Solid_Case2.brep S2
-
-restore [locate_data_file buc60788e.brep] S1
-checkshape S1
-restore [locate_data_file buc60787d.brep] S2
-checkshape S2
-
-bcut result S1 S2
-
-set nb_info [nbshapes result]
-regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
-
-if { $err != 0 || $err1 != 1} {
- puts "Faulty : result should be a shell, but not a compound of faces"
-} else {
- puts "BUC60788 - OK"
-}
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : result should be a shell, but not a compound of faces"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "BUC60788"
-puts "case 2"
-puts "========"
-
-#restore Common_Shell_Case2.brep S1
-#restore Common_Solid_Case2.brep S2
-
-restore [locate_data_file buc60788c.brep] S1
-checkshape S1
-restore [locate_data_file buc60787b.brep] S2
-checkshape S1
-
-bcommon result S1 S2
-
-set nb_info [nbshapes result]
-regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
-
-if { $err != 0 || $err1 != 1} {
- puts "Faulty : result should be a shell, but not a compound of faces"
-} else {
- puts "BUC60788 - OK"
-}
-set square 0
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "BUC60789"
-puts "========"
-puts ""
-
-#restore buc60789a.brep S1
-restore [locate_data_file buc60787b.brep] S1
-### (by apn during classification)
-checkshape S1
-restore [locate_data_file buc60789b.brep] S2
-checkshape S2
-
-bcommon result S1 S2
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-
-if { $ve != 0 && $ed != 0 } {
- puts " BUC60789 OK: COMMON operation was made properly"
-} else {
- puts "Faulty BUC60789: COMMON operation was made wrongly"
-}
-set length 78.3594
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "BUC60789"
-puts "========"
-puts ""
-
-#restore buc60789c.brep S1
-##by apn
-restore [locate_data_file buc60787b.brep] S1
-checkshape S1
-restore [locate_data_file buc60789d.brep] S2
-checkshape S2
-
-bcut result S2 S1
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-
- if { $ve != 0 && $ed != 0 } {
- puts " BUC60789 OK: CUT operation was made properly"
- } else {
- puts "Faulty BUC60789: CUT operation was made wrongly"
- }
-set length 288.856
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts "BUC60801"
-puts "========================"
-
-box b -10 -10 -10 30 40 40
-box a1 -20 0 -20 20 20 100
-box a2 0 20 -20 50 20 100
-box c -20 -20 20 100 100 100
-bcut r1 b a1
-bcut r2 r1 a2
-bcut r3 r2 c
-checkshape r3
-
-renamevar r3 result
-
-set square 6400
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60803"
-puts "========================"
-
-restore [locate_data_file buc60803a.brep] a
-checkshape a
-restore [locate_data_file buc60803b.brep] b
-checkshape b
-
-bfuse result a b
-
-set square 1.86064e+07
-set 2dviewer 0
-
+++ /dev/null
-puts "============="
-puts "BUC60830"
-puts "BUC60829"
-puts "============="
-
-restore [locate_data_file BUC60830-face2.brep] f
-checkshape f
-
-set che [checkshape f rr]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
- puts "Body of the script was not executed"
-} else {
- puts "Checking of SOURCE shape by checkshape - OK"
- mkoffset result f 1 3
- renamevar result_1 result
-}
-
-set length 81.5088
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60839"
-puts "============"
-puts ""
-
-restore [locate_data_file BUC60839-1.brep] a
-checkshape a
-restore [locate_data_file BUC60839-2.brep] b
-checkshape b
-
-puts "Starting fuse operation"
-
-bfuse result a b
-
-set square 27341.6
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "BUC60841"
-puts "========"
-
-restore [locate_data_file buc60841a.brep] sh1
-checkshape sh1
-restore [locate_data_file buc60841b.brep] sh2
-checkshape sh2
-
-bfuse result sh1 sh2
-
-set square 890971
-set 2dviewer 1
+++ /dev/null
-
-puts "============"
-puts "BUC60849"
-puts "============"
-puts ""
-
-restore [locate_data_file BUC60849.brep] result
-checkshape result
-
-set bndb [ lindex [bounding result] 3 ]
-
-if { $bndb > 100.000001 } {
- puts "Faulty BUC60849 : Bounding box of spherical surface is created wroughly."
-} else {
- puts "BUC60849 OK :Bounding box of spherical surface is created properly."
-}
-set square 125663
-set 2dviewer 0
-
+++ /dev/null
-
-puts "============"
-puts "BUC60865"
-puts "BUC60864"
-puts "============"
-puts ""
-##########################
-## Section gives duplicate edges.
-##########################
-
-restore [locate_data_file BUC60865_sh6.brep] sh
-checkshape sh
-
-plane pl 1.1 0.99999 1 0 1 0
-mkface f pl
-bsection result sh f
-
-set nb_info [nbshapes result]
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-
-if { $ed == 5 } {
- puts " BUC60865 : SECTION operation was made properly"
-} else {
- puts "Faulty BUC60865: SECTION operation was made wrongly"
-}
-set length 4.5
-set 2dviewer 0
-
+++ /dev/null
-puts "============="
-puts "BUC60878"
-puts "============="
-
-#restore BUC60878-wire1.brep a
-#########dtext -10 -10 -60 "THE CASE IS INCORRECT"
-#mkoffset r a 1 0.5
-#tpcompound res
-#checkshape res
-
-restore [locate_data_file BUC60878-wire1.brep] a
-checkshape a
-
-set che [checkshape a rr]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
- puts "Body of the script was not executed"
-} else {
- puts "Checking of SOURCE shape by checkshape - OK"
- mkoffset result a 1 0.5
- renamevar result_1 result
-}
-
-set length 370.796
-set 2dviewer 0
+++ /dev/null
-puts "============="
-puts "BUC60878"
-puts "============="
-
-#restore BUC60878-wire3.brep a
-#########dtext -10 -10 -60 "THE CASE IS INCORRECT"
-#mkoffset r a 1 0.25
-#tpcompound res
-#checkshape res
-
-restore [locate_data_file BUC60878-wire3.brep] a
-checkshape a
-
-set che [checkshape a rr]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
- puts "Body of the script was not executed"
-} else {
- puts "Checking of SOURCE shape by checkshape - OK"
- mkoffset result a 1 0.25
- renamevar result_1 result
-}
-
-set length 11.2406
-set 2dviewer 0
+++ /dev/null
-puts "============="
-puts "BUC60878"
-puts "============="
-
-#restore BUC60878-wire5.brep a
-###############dtext 0 -10 0 "THE CASE IS INCORRECT"
-#mkoffset r a 1 4
-#tpcompound res
-#checkshape res
-
-restore [locate_data_file BUC60878-wire5.brep] a
-checkshape a
-
-set che [checkshape a rr]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
- puts "Body of the script was not executed"
-} else {
- puts "Checking of SOURCE shape by checkshape - OK"
- mkoffset result a 1 4
- renamevar result_1 result
-}
-
-set length 107.351
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60880"
-puts "============"
-puts ""
-##########################################
-## We have overlapping edges when section a shell by plane.
-##########################################
-
-restore [locate_data_file BUC60880_sec_error2.brep] sh
-checkshape sh
-
-plane pl 65000 19000 2600 1 0 0
-mkface f pl
-
-bsection result sh f
-
-set nb_info [nbshapes result]
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-
-if { $ed == 1 } {
- puts "BUC60880 OK: SECTION operation was made properly"
-} else {
- explode result e
- set status [OCC333 result_1 result_2]
- if {[llength ${status}] < 1} {
- puts "BUC60880 ERROR"
- } else {
- regexp {([-0-9.+eE]+)} $status full code
- if { ${code} == 3 || ${code} == 2} {
- puts "BUC60880 : Section command works properly"
- } else {
- puts "Faulty BUC60880: Section was made WRONGLY"
- }
- }
-}
-set length 1424.94
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60881"
-puts "============"
-puts ""
-
-restore [locate_data_file BUC60881.brep] a
-explode a
-checkshape a_1
-checkshape a_1
-
-bfuse result a_1 a_2
-
-set square 34069
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "BUC60882"
-puts "============"
-puts ""
-#######################################################################
-## The edge is corrupted after applying command "fsameparameter": tolerance is increased up to 1e+50
-#######################################################################
-
-pload XDE
-
-restore [locate_data_file BUC60882_samepar.brep] result
-
-set che [checkshape result]
-
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Warning BUC60882: Source shape is NOT correct. It was detected by Checkshape command"
-} else {
- puts "BUC60882 OK: Source shape is valid"
-}
-
-puts "*** Before : "
-
-regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol
-
-puts "MaxTolerance = $MaxTol"
-if { $MaxTol > 1 } {
- puts "Warning : Tolerance of Source edge is more then 1.0"
-} else {
- puts " Tolerance of source edge is less then 1.0"
-}
-
-fsameparameter result 1e-5
-
-puts "*** After : "
-regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol_1
-
-puts "MaxTolerance = $MaxTol_1"
-if { $MaxTol_1 > $MaxTol } {
- puts [format "Faulty BUC60882 : Tolerance of Result edge increased and it is equal to %s" $MaxTol_1]
-} else {
- puts " BUC60882 OK: Tolerance of Result edge is less or equal to tolerance of Sourse edge."
-}
-
-set length 1768.53
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60896"
-puts "============"
-puts ""
-###############################################################
-## If give command "sameparameter edge" on attached edge in the DRAW this command hang.
-###############################################################
-
-restore [locate_data_file BUC60896_edge.rle] result
-# checkshape res
-
-sameparameter result
-sameparameter result tol 1.e-2
-sameparameter result tol 1000
-
-set length 48288.3
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty BUC60898: here is reading problem"
-
-puts "==========="
-puts " BUC60898"
-puts "==========="
-puts ""
-
-pload XDE
-
-if [catch { igesbrep [locate_data_file $filedir/buc60898.igs] a *} result] {
-## rename to BUC60898.igs
- puts "Faulty BUC60898: here is reading problem"
-} else {
- puts "BUC60898 OK"
- tpcompound a
-
- if [catch {sewing result 1e-7 a } catch_result] {
- puts "Faulty BUC60898: function SEWING gives except"
- } else {
- puts " BUC60898 OK: function SEWING works without except"
- }
- set square 0
- set 2dviewer 0
-}
-
-
+++ /dev/null
-
-puts "============"
-puts "BUC60899"
-puts "============"
-puts ""
-#####################################################
-## Execution of the script prism_sec.tcl gives exception "NumericError".
-#####################################################
-
-set n 2
-set dx 4
-set sx 1
-set sz 10
-set xc [dval (2*$dx+2*$sx)*$n/2]
-set zc -30
-set r [dval $xc*0.9]
-
-set x 0
-set y -50
-set z 0
-set pol "polyline w $x $y $z"
-for {set i 1} {$i <= $n} {incr i} {
- set x [dval $x+$dx]
- set pol "$pol $x $y $z"
- set x [dval $x+$sx]
- set z [dval $z+$sz]
- set pol "$pol $x $y $z"
- set x [dval $x+$dx]
- set pol "$pol $x $y $z"
- set x [dval $x+$sx]
- set z [dval $z-$sz]
- set pol "$pol $x $y $z"
-}
-
-eval $pol
-circle c $xc 0 $zc $r
-mkedge c c
-
-prism cyl c 0 0 -$zc*2 inf
-prism crg w 0 -$y*2 0 inf
-
-bsection result crg cyl
-
-set length 15.1392
-set 2dviewer 0
-
-# checksection res
-# checkshape res
+++ /dev/null
-
-puts "============"
-puts "BUC60899"
-puts "============"
-puts ""
-#####################################################
-## Execution of the script prism_sec.tcl gives exception "NumericError".
-#####################################################
-
-set n 2
-set dx 4
-set sx 1
-set sz 10
-set xc [dval (2*$dx+2*$sx)*$n/2]
-set zc -30
-set r [dval $xc*0.9]
-
-set x 0
-set y -50
-set z 0
-set pol "polyline w $x $y $z"
-for {set i 1} {$i <= $n} {incr i} {
- set x [dval $x+$dx]
- set pol "$pol $x $y $z"
- set x [dval $x+$sx]
- set z [dval $z+$sz]
- set pol "$pol $x $y $z"
- set x [dval $x+$dx]
- set pol "$pol $x $y $z"
- set x [dval $x+$sx]
- set z [dval $z-$sz]
- set pol "$pol $x $y $z"
-}
-
-eval $pol
-polyline c $xc-$r -$r*2 $zc $xc+$r -$r*2 $zc $xc+$r $r*2 $zc $xc-$r $r*2 $zc $xc-$r -$r*2 $zc
-
-prism cyl c 0 0 -$zc*2 inf
-prism crg w 0 -$y*2 0 inf
-bsection result crg cyl
-
-#checksection res
-#checkshape res
-
-set nb_info [nbshapes result]
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full edgeness
-
- #set fullness [ nbshapes res ]
- #puts "$fullness"
- #set qq [ lindex $fullness 0 ]
- #set edgeness [ lindex $fullness 10 ]
- # puts "$edgeness"
-
-if { $edgeness == 1 } {
- puts "Shape is empty, it is Faulty result"
-} else {
- puts "Shape is not empty, OK"
-}
-
-set length 162.299
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60901"
-puts "============"
-puts ""
-################################################################
-## We should get the edges forming a closed intersection line but we see breaks.
-################################################################
-
-set n 3
-set dx 1
-set sx 20
-set sz 10
-
-set xc [dval (2*$dx+2*$sx)*$n/2]
-set yc 0
-set zc [dval $sz*10]
-set nxc 0.5
-set nyc -0.3
-set nzc 1
-set r [dval $xc*0.9]
-
-set x 0
-set y [dval -$r*1.2]
-set z 0
-set pol "polyline w $x $y $z"
-for {set i 1} {$i <= $n} {incr i} {
- set x [dval $x+$dx]
- set pol "$pol $x $y $z"
- set x [dval $x+$sx]
- set z [dval $z+$sz]
- set pol "$pol $x $y $z"
- set x [dval $x+$dx]
- set pol "$pol $x $y $z"
- set x [dval $x+$sx]
- set z [dval $z-$sz]
- set pol "$pol $x $y $z"
-}
-
-eval $pol
-circle c $xc $yc $zc $nxc $nyc $nzc $r
-mkedge c c
-
-set lcyl [dval -$zc*2]
-set lcrg [dval -$y*2]
-
-prism cyl c 0 0 $lcyl
-prism crg w 0 $lcrg 0
-bsection result crg cyl
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
-
-if { $nb_vertices != $nb_edges } {
- puts "Section is opened: Faulty shape"
-} else {
- puts "Section is closed: OK"
-}
-
-set length 350.404
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60905"
-puts "============"
-puts ""
-puts "TODO CR23530 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-#########################################################
-## shape contains open shells if sewing would be made with big tolerance invalid shape
-## will be produced, and visualization crashes.
-#########################################################
-
-restore [locate_data_file BUC60905.brep] a
-# checkshape a
-
-sewing result 10 a
-
-vinit
-vdisplay result
-
-# checkshape res
-
-set square 270868
-set 3dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60909"
-puts "============"
-puts ""
-
-box boite 200 200 200
-nexplode boite F
-profile cont S boite_4 F 0 50 X 50 Y 100 X -50
-featrevol boite cont boite_4 0 0 200 0 -1 0 1 1
-featperform revol result boite_1
-
-set square 265343
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "============"
-puts "BUC60922"
-puts "============"
-puts ""
-#############################
-## Exception NumericError in Extrema
-#############################
-
-restore [locate_data_file BUC60907_px1.rle] sh
-checkshape sh
-
-line l 40 0 5 0 1 0
-mkedge e l
-subshape sh F 379
-mksurface result sh_379
-
-puts "Info: compute extrema"
-extrema result l
-
-puts "Info: compute distmini"
-distmini r sh e
-
-mkface result result
-
-set square 157.932
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60926"
-puts "============"
-puts ""
-######################################################################
-## Creating a sphere of radius 1 at 0,0,0 and a cone with r1=1 r2=2 height=2 angle=3*PI/2 at 1,1,0 and
-## then using BRepAlgoAPI_Fuse on the two solids will trigger a segmentation fault.
-######################################################################
-
-restore [locate_data_file shading_132.brep] a
-checkshape a
-
-restore [locate_data_file BUC60926-2.brep] b
-checkshape b
-
-bfuse result a b
-
-set square 41.7175
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60927"
-puts "============"
-
-restore [locate_data_file BUC60927.brep] a
-
-explode a
-checkshape a_1
-checkshape a_2
-
-bcut result a_2 a_1
-
-set square 94795.3
-set 2dviewer 0
-
+++ /dev/null
-
-puts "============"
-puts "BUC60930"
-puts "============"
-puts ""
-######################################
-## Exception ConstructionError in LocOpe_SplitShape.
-######################################
-
-restore [locate_data_file BUC60930_splitshape.brep] c
-explode c
-checkshape c_1
-checkshape c_2
-
-renamevar c_1 f
-renamevar c_2 e
-
-splitshape result f f e
-
-set square 13.3392
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60934"
-puts "============"
-
-restore [locate_data_file BUC60934.brep] a
-checkshape a
-
-mkplane result a
-
-set square 40303.1
-set 2dviewer 0
-
+++ /dev/null
-
-puts "============"
-puts "BUC60942"
-puts "============"
-###############################################################
-## SplitShape algorithm modifies original shape (increases vertex tolerance of a plitting edge).
-###############################################################
-
-restore [locate_data_file BUC60942_splitshape.brep] c
-explode c
-checkshape c_1
-checkshape c_2
-
-renamevar c_1 f
-renamevar c_2 w
-
-set tol1 [maxtolerance w]
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxEdgeTol1
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxVertexTol1
-
-splitshape result f f w
-
-set tol2 [maxtolerance w]
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxEdgeTol2
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxVertexTol2
-
-
-if { $MaxEdgeTol1 < $MaxEdgeTol2 || $MaxVertexTol1 < $MaxVertexTol1 } {
- puts "Faulty BUC60942: max tolerance of the input wire has been increased by about 10 times."
-} else {
- puts "BUC60942 OK: Tolerance of shape is correct"
-}
-
-set square 37.7032
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60946"
-puts "============"
-
-restore [locate_data_file BUC60946_prism.brep] c
-explode c
-checkshape c_1
-checkshape c_2
-
-renamevar c_1 sh
-renamevar c_2 pr
-bsection result sh pr
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
-
-if { $nb_vertices != $nb_edges } {
- puts "Section is opened: Faulty shape"
-} else {
- puts "Section is closed: OK"
-}
-set length 52.5057
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "BUC60971"
-puts "CASE 2"
-puts "========"
-puts ""
-
-restore [locate_data_file buc60971.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_2 a_3
-set square 93698.1
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC100"
-puts "================"
-puts ""
-########################################
-## Draw is crashed during cut on Windows NT. SAM1185.
-########################################
-
-restore [locate_data_file OCC100_sp.brep] sh1
-checkshape sh1
-
-restore [locate_data_file OCC100_cyl.brep] sh2
-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
-
-
+++ /dev/null
-
-puts "================"
-puts "BUC60663"
-puts "BUC60662"
-puts "OCC101"
-puts "================"
-puts ""
-######################################
-## After restore c shell, section is incomplete
-######################################
-restore [locate_data_file buc60663a.brep] sh1
-checkshape sh1
-restore [locate_data_file buc60663b.brep] sh2
-checkshape sh2
-
-bsection result sh1 sh2
-
-set length 26.2001
-set 2dviewer 0
-
+++ /dev/null
-puts "================"
-puts "OCC1013"
-puts "OCC906"
-puts "================"
-puts ""
-
-restore [locate_data_file DXF906.rle] wire
-checkshape wire
-
-mkplane result wire
-
-set square 92131.6
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC10160"
-puts "============"
-puts ""
-#######################################################################
-# BOP perfomance improvemen
-#######################################################################
-
-set BugNumber OCC10160
-
-restore [locate_data_file OCC10160-1.brep] b1
-restore [locate_data_file OCC10160-2.brep] b2
-
-set NbTests 3
-
-dchrono h0 reset
-dchrono h0 start
-
-bop b1 b2
-dchrono h0 stop
-set CPU_time0_List [dchrono h0 show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
-puts "CPU_user_time0=${CPU_user_time0}"
-
-puts "Start boolean operation ..."
-dchrono h reset; dchrono h start
-#
-# BOOLEAN OPERATION ----- START
-#
-for {set i 1} {$i <= ${NbTests}} {incr i} {
- bopcommon result
-}
-#
-# BOOLEAN OPERATION ----- FINISH
-#
-dchrono h stop; set CPU_time_List [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
-
-puts "Finish boolean operation ..."
-puts "CPU_user_time=${CPU_user_time}"
-set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
-puts "CPU_user_time=${CPU_user_time}"
-
-set square 1.30062e+07
-
-# Analysis of "nbshapes res"
-set nb_v_good 20
-set nb_e_good 28
-set nb_w_good 16
-set nb_f_good 15
-set nb_sh_good 3
-set nb_sol_good 3
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 86
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10160"
-puts "============"
-puts ""
-#######################################################################
-# BOP perfomance improvemen
-#######################################################################
-
-set BugNumber OCC10160
-
-restore [locate_data_file OCC10160-2.brep] b1
-restore [locate_data_file OCC10160-3.brep] b2
-
-set NbTests 3
-
-puts "Prepare boolean operation ..."
-dchrono h0 reset; dchrono h0 start
-bop b1 b2
-dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
-puts "CPU_user_time0=${CPU_user_time0}"
-
-puts "Start boolean operation ..."
-dchrono h reset; dchrono h start
-#
-# BOOLEAN OPERATION ----- START
-#
-for {set i 1} {$i <= ${NbTests}} {incr i} {
- bopfuse result
-}
-#
-# BOOLEAN OPERATION ----- FINISH
-#
-dchrono h stop; set CPU_time_List [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
-puts "Finish boolean operation ..."
-puts "CPU_user_time=${CPU_user_time}"
-set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
-puts "CPU_user_time=${CPU_user_time}"
-
-set square 3.20326e+07
-
-# Analysis of "nbshapes res"
-set nb_v_good 116
-set nb_e_good 173
-set nb_w_good 67
-set nb_f_good 63
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 422
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10160"
-puts "============"
-puts ""
-#######################################################################
-# BOP perfomance improvemen
-#######################################################################
-
-set BugNumber OCC10160
-
-restore [locate_data_file OCC10160-2.brep] b1
-restore [locate_data_file OCC10160-3.brep] b2
-
-set NbTests 3
-
-puts "Prepare boolean operation ..."
-dchrono h0 reset; dchrono h0 start
-bop b1 b2
-dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
-puts "CPU_user_time0=${CPU_user_time0}"
-
-puts "Start boolean operation ..."
-dchrono h reset; dchrono h start
-#
-# BOOLEAN OPERATION ----- START
-#
-for {set i 1} {$i <= ${NbTests}} {incr i} {
- bopcut result
-}
-#
-# BOOLEAN OPERATION ----- FINISH
-#
-dchrono h stop; set CPU_time_List [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
-puts "Finish boolean operation ..."
-puts "CPU_user_time=${CPU_user_time}"
-set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
-puts "CPU_user_time=${CPU_user_time}"
-
-set square 3.05154e+07
-
-# Analysis of "nbshapes res"
-set nb_v_good 96
-set nb_e_good 143
-set nb_w_good 51
-set nb_f_good 48
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 341
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10160"
-puts "============"
-puts ""
-#######################################################################
-# BOP perfomance improvemen
-#######################################################################
-
-set BugNumber OCC10160
-
-restore [locate_data_file OCC10160-2.brep] b1
-restore [locate_data_file OCC10160-3.brep] b2
-
-set NbTests 3
-
-puts "Prepare boolean operation ..."
-dchrono h0 reset; dchrono h0 start
-bop b1 b2
-dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
-puts "CPU_user_time0=${CPU_user_time0}"
-
-puts "Start boolean operation ..."
-dchrono h reset; dchrono h start
-#
-# BOOLEAN OPERATION ----- START
-#
-for {set i 1} {$i <= ${NbTests}} {incr i} {
- boptuc result
-}
-#
-# BOOLEAN OPERATION ----- FINISH
-#
-dchrono h stop; set CPU_time_List [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
-puts "Finish boolean operation ..."
-puts "CPU_user_time=${CPU_user_time}"
-set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
-puts "CPU_user_time=${CPU_user_time}"
-
-set square 6.38359e+06
-
-# Analysis of "nbshapes res"
-set nb_v_good 108
-set nb_e_good 161
-set nb_w_good 61
-set nb_f_good 60
-set nb_sh_good 3
-set nb_sol_good 3
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 397
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC10160"
-puts "============"
-puts ""
-#######################################################################
-# BOP perfomance improvemen
-#######################################################################
-
-set BugNumber OCC10160
-
-restore [locate_data_file OCC10160-1.brep] b1
-restore [locate_data_file OCC10160-2.brep] b2
-
-set NbTests 3
-
-puts "Prepare boolean operation ..."
-dchrono h0 reset; dchrono h0 start
-bop b1 b2
-dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
-puts "CPU_user_time0=${CPU_user_time0}"
-
-puts "Start boolean operation ..."
-dchrono h reset; dchrono h start
-#
-# BOOLEAN OPERATION ----- START
-#
-for {set i 1} {$i <= ${NbTests}} {incr i} {
- bopfuse result
-}
-#
-# BOOLEAN OPERATION ----- FINISH
-#
-dchrono h stop; set CPU_time_List [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
-puts "Finish boolean operation ..."
-puts "CPU_user_time=${CPU_user_time}"
-set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
-puts "CPU_user_time=${CPU_user_time}"
-
-set square 4.75218e+07
-
-# Analysis of "nbshapes res"
-set nb_v_good 32
-set nb_e_good 60
-set nb_w_good 32
-set nb_f_good 29
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 156
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-puts "============"
-puts "OCC10160"
-puts "============"
-puts ""
-#######################################################################
-# BOP perfomance improvemen
-#######################################################################
-
-set BugNumber OCC10160
-
-restore [locate_data_file OCC10160-1.brep] b1
-restore [locate_data_file OCC10160-2.brep] b2
-
-set NbTests 3
-
-puts "Prepare boolean operation ..."
-dchrono h0 reset; dchrono h0 start
-bop b1 b2
-dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
-puts "CPU_user_time0=${CPU_user_time0}"
-
-puts "Start boolean operation ..."
-dchrono h reset; dchrono h start
-#
-# BOOLEAN OPERATION ----- START
-#
-for {set i 1} {$i <= ${NbTests}} {incr i} {
- bopcut result
-}
-#
-# BOOLEAN OPERATION ----- FINISH
-#
-dchrono h stop; set CPU_time_List [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
-puts "Finish boolean operation ..."
-puts "CPU_user_time=${CPU_user_time}"
-set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
-puts "CPU_user_time=${CPU_user_time}"
-
-set square 2.36194e+07
-
-# Analysis of "nbshapes res"
-set nb_v_good 24
-set nb_e_good 34
-set nb_w_good 20
-set nb_f_good 19
-set nb_sh_good 4
-set nb_sol_good 4
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 106
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC10160"
-puts "============"
-puts ""
-#######################################################################
-# BOP perfomance improvemen
-#######################################################################
-
-set BugNumber OCC10160
-
-restore [locate_data_file OCC10160-1.brep] b1
-restore [locate_data_file OCC10160-2.brep] b2
-
-set NbTests 3
-
-puts "Prepare boolean operation ..."
-dchrono h0 reset; dchrono h0 start
-bop b1 b2
-dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
-puts "CPU_user_time0=${CPU_user_time0}"
-
-puts "Start boolean operation ..."
-dchrono h reset; dchrono h start
-#
-# BOOLEAN OPERATION ----- START
-#
-for {set i 1} {$i <= ${NbTests}} {incr i} {
- boptuc result
-}
-#
-# BOOLEAN OPERATION ----- FINISH
-#
-dchrono h stop; set CPU_time_List [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
-puts "Finish boolean operation ..."
-puts "CPU_user_time=${CPU_user_time}"
-set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
-puts "CPU_user_time=${CPU_user_time}"
-
-set square 3.56087e+07
-
-# Analysis of "nbshapes res"
-set nb_v_good 24
-set nb_e_good 34
-set nb_w_good 20
-set nb_f_good 17
-set nb_sh_good 3
-set nb_sol_good 3
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 102
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC10160"
-puts "============"
-puts ""
-#######################################################################
-# BOP perfomance improvemen
-#######################################################################
-
-set BugNumber OCC10160
-
-restore [locate_data_file OCC10160-1.brep] b1
-restore [locate_data_file OCC10160-3.brep] b2
-
-set NbTests 3
-
-puts "Prepare boolean operation ..."
-dchrono h0 reset; dchrono h0 start
-bop b1 b2
-dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
-puts "CPU_user_time0=${CPU_user_time0}"
-
-puts "Start boolean operation ..."
-dchrono h reset; dchrono h start
-#
-# BOOLEAN OPERATION ----- START
-#
-for {set i 1} {$i <= ${NbTests}} {incr i} {
- bopcommon result
-}
-#
-# BOOLEAN OPERATION ----- FINISH
-#
-dchrono h stop; set CPU_time_List [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
-puts "Finish boolean operation ..."
-puts "CPU_user_time=${CPU_user_time}"
-set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
-puts "CPU_user_time=${CPU_user_time}"
-
-set square 782201
-
-# Analysis of "nbshapes res"
-set nb_v_good 53
-set nb_e_good 75
-set nb_w_good 38
-set nb_f_good 34
-set nb_sh_good 6
-set nb_sol_good 6
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 213
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC10160"
-puts "============"
-puts ""
-#######################################################################
-# BOP perfomance improvemen
-#######################################################################
-
-set BugNumber OCC10160
-
-restore [locate_data_file OCC10160-1.brep] b1
-restore [locate_data_file OCC10160-3.brep] b2
-
-set NbTests 3
-
-puts "Prepare boolean operation ..."
-dchrono h0 reset; dchrono h0 start
-bop b1 b2
-dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
-puts "CPU_user_time0=${CPU_user_time0}"
-
-puts "Start boolean operation ..."
-dchrono h reset; dchrono h start
-#
-# BOOLEAN OPERATION ----- START
-#
-for {set i 1} {$i <= ${NbTests}} {incr i} {
- bopfuse result
-}
-#
-# BOOLEAN OPERATION ----- FINISH
-#
-dchrono h stop; set CPU_time_List [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
-puts "Finish boolean operation ..."
-puts "CPU_user_time=${CPU_user_time}"
-set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
-puts "CPU_user_time=${CPU_user_time}"
-
-set square 3.61484e+07
-
-# Analysis of "nbshapes res"
-set nb_v_good 121
-set nb_e_good 178
-set nb_w_good 65
-set nb_f_good 59
-set nb_sh_good 3
-set nb_sol_good 2
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 429
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC10160"
-puts "============"
-puts ""
-#######################################################################
-# BOP perfomance improvemen
-#######################################################################
-
-set BugNumber OCC10160
-
-restore [locate_data_file OCC10160-1.brep] b1
-restore [locate_data_file OCC10160-3.brep] b2
-
-set NbTests 3
-
-puts "Prepare boolean operation ..."
-dchrono h0 reset; dchrono h0 start
-bop b1 b2
-dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
-puts "CPU_user_time0=${CPU_user_time0}"
-
-puts "Start boolean operation ..."
-dchrono h reset; dchrono h start
-#
-# BOOLEAN OPERATION ----- START
-#
-for {set i 1} {$i <= ${NbTests}} {incr i} {
- bopcut result
-}
-#
-# BOOLEAN OPERATION ----- FINISH
-#
-dchrono h stop; set CPU_time_List [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
-puts "Finish boolean operation ..."
-puts "CPU_user_time=${CPU_user_time}"
-set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
-puts "CPU_user_time=${CPU_user_time}"
-
-set square 3.00597e+07
-
-# Analysis of "nbshapes res"
-set nb_v_good 61
-set nb_e_good 87
-set nb_w_good 44
-set nb_f_good 36
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 231
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC10160"
-puts "============"
-puts ""
-#######################################################################
-# BOP perfomance improvemen
-#######################################################################
-
-set BugNumber OCC10160
-
-restore [locate_data_file OCC10160-1.brep] b1
-restore [locate_data_file OCC10160-3.brep] b2
-
-set NbTests 3
-
-puts "Prepare boolean operation ..."
-dchrono h0 reset; dchrono h0 start
-bop b1 b2
-dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
-puts "CPU_user_time0=${CPU_user_time0}"
-
-puts "Start boolean operation ..."
-dchrono h reset; dchrono h start
-#
-# BOOLEAN OPERATION ----- START
-#
-for {set i 1} {$i <= ${NbTests}} {incr i} {
- boptuc result
-}
-#
-# BOOLEAN OPERATION ----- FINISH
-#
-dchrono h stop; set CPU_time_List [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
-puts "Finish boolean operation ..."
-puts "CPU_user_time=${CPU_user_time}"
-set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
-puts "CPU_user_time=${CPU_user_time}"
-
-set square 6.87093e+06
-
-# Analysis of "nbshapes res"
-set nb_v_good 113
-set nb_e_good 166
-set nb_w_good 59
-set nb_f_good 57
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 398
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10160"
-puts "============"
-puts ""
-#######################################################################
-# BOP perfomance improvemen
-#######################################################################
-
-set BugNumber OCC10160
-
-restore [locate_data_file OCC10160-2.brep] b1
-restore [locate_data_file OCC10160-3.brep] b2
-
-set NbTests 3
-
-puts "Prepare boolean operation ..."
-dchrono h0 reset; dchrono h0 start
-bop b1 b2
-dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
-puts "CPU_user_time0=${CPU_user_time0}"
-
-puts "Start boolean operation ..."
-dchrono h reset; dchrono h start
-#
-# BOOLEAN OPERATION ----- START
-#
-for {set i 1} {$i <= ${NbTests}} {incr i} {
- bopcommon result
-}
-#
-# BOOLEAN OPERATION ----- FINISH
-#
-dchrono h stop; set CPU_time_List [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
-puts "Finish boolean operation ..."
-puts "CPU_user_time=${CPU_user_time}"
-set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
-puts "CPU_user_time=${CPU_user_time}"
-
-set square 4.86635e+06
-
-# Analysis of "nbshapes res"
-set nb_v_good 88
-set nb_e_good 131
-set nb_w_good 45
-set nb_f_good 45
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 312
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC10232"
-puts "============"
-puts ""
-#######################################################################
-# Exception "Segmentation violation" in Boolean Operations
-#######################################################################
-
-set BugNumber OCC10232
-
-puts "Load first shape ..."
-restore [locate_data_file OCC10232_ms1.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC10232_ms2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result
-puts "Finish boolean operation ..."
-
-set length 3210.71
-
-set nb_v_good 1197
-set nb_e_good 1182
-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 2380
-
-set 2dviewer 1
-
+++ /dev/null
-
-puts "================"
-puts "BUC60803"
-puts "OCC102"
-puts "================"
-puts ""
-
-restore [locate_data_file buc60803a.brep] sh1
-checkshape sh1
-restore [locate_data_file buc60803b.brep] sh2
-checkshape sh2
-
-bfuse result sh1 sh2
-
-set square 1.86064e+07
-set 2dviewer 0
-
-
-
+++ /dev/null
-
-puts "================"
-puts "BUC60803"
-puts "OCC102"
-puts "================"
-puts ""
-
-restore [locate_data_file buc60803a.brep] sh1
-checkshape sh1
-restore [locate_data_file buc60803b.brep] sh2
-checkshape sh2
-
-bfuse result sh2 sh1
-
-set square 1.86064e+07
-set 2dviewer 0
-
-
+++ /dev/null
-puts "============"
-puts "OCC10435"
-puts "============"
-puts ""
-#######################################################################
-# error in fillet after Cut of torus from box
-#######################################################################
-
-set BugNumber OCC10435
-
-restore [locate_data_file OCC10435.brep] a
-
-checkshape a
-explode a e
-
-set radius 5.
-
-if { [catch {fillet result a ${radius} a_10 ${radius} a_15 ${radius} a_16 } catch_result] } {
- puts "Faulty ${BugNumber} exception (case 1): Fillet operation fails on given shape "
-} else {
- puts "${BugNumber} (case 1) OK: Fillet operation was made"
-
- set square 36455.2
-
- # Analysis of "nbshapes res"
- set nb_v_good 12
- set nb_e_good 19
- set nb_w_good 11
- 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 55
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC10435"
-puts "============"
-puts ""
-#######################################################################
-# error in fillet after Cut of torus from box
-#######################################################################
-
-set BugNumber OCC10435
-
-puts "Load shape ..."
-restore [locate_data_file OCC10435.brep] b1
-
-explode b1 e
-
-puts "Start fillet ..."
-fillet result b1 5 b1_15 5 b1_16 5 b1_10
-puts "Finish fillet ..."
-
-set square 36455.2
-
-# Analysis of "nbshapes res"
-set nb_v_good 12
-set nb_e_good 19
-set nb_w_good 11
-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 55
-
-set 2dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC10605"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10605
-
-restore [locate_data_file OCC10605-1.brep] b1
-restore [locate_data_file OCC10605-3.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-puts "Finish boolean operation ..."
-
-set square 233.798
-
-# Analysis of "nbshapes res"
-set nb_v_good 10
-set nb_e_good 15
-set nb_w_good 7
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 42
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10605"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10605
-
-restore [locate_data_file OCC10605-1.brep] b1
-restore [locate_data_file OCC10605-3.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set square 838.752
-
-# Analysis of "nbshapes res"
-set nb_v_good 15
-set nb_e_good 22
-set nb_w_good 10
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 59
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10605"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10605
-
-restore [locate_data_file OCC10605-1.brep] b1
-restore [locate_data_file OCC10605-3.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 779.887
-
-# Analysis of "nbshapes res"
-set nb_v_good 13
-set nb_e_good 19
-set nb_w_good 8
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 50
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10605"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10605
-
-restore [locate_data_file OCC10605-1.brep] b1
-restore [locate_data_file OCC10605-3.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-boptuc result
-puts "Finish boolean operation ..."
-
-set square 292.663
-
-# Analysis of "nbshapes res"
-set nb_v_good 12
-set nb_e_good 18
-set nb_w_good 9
-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 53
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10605"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10605
-
-restore [locate_data_file OCC10605-1.brep] b1
-restore [locate_data_file OCC10605-3.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result b1 b2
-puts "Finish boolean operation ..."
-
-set length 59.8334
-# Analysis of "nbshapes res"
-set nb_v_good 9
-set nb_e_good 9
-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 19
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10606"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10606
-
-restore [locate_data_file OCC10604-1.brep] b1
-restore [locate_data_file OCC10606-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-puts "Finish boolean operation ..."
-
-set square 66.672
-
-# Analysis of "nbshapes res"
-set nb_v_good 6
-set nb_e_good 8
-set nb_w_good 2
-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 21
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10606"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10606
-
-restore [locate_data_file OCC10604-1.brep] b1
-restore [locate_data_file OCC10606-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set square 1450.22
-
-# Analysis of "nbshapes res"
-set nb_v_good 6
-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 1
-set nb_shape_good 25
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10606"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10606
-
-restore [locate_data_file OCC10604-1.brep] b1
-restore [locate_data_file OCC10606-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 761.355
-
-# Analysis of "nbshapes res"
-set nb_v_good 6
-set nb_e_good 8
-set nb_w_good 3
-set nb_f_good 3
-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 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10606"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10606
-
-restore [locate_data_file OCC10604-1.brep] b1
-restore [locate_data_file OCC10606-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-boptuc result
-puts "Finish boolean operation ..."
-
-set square 755.54
-
-# Analysis of "nbshapes res"
-set nb_v_good 6
-set nb_e_good 8
-set nb_w_good 3
-set nb_f_good 3
-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 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10606"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10606
-
-restore [locate_data_file OCC10604-1.brep] b1
-restore [locate_data_file OCC10606-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result b1 b2
-puts "Finish boolean operation ..."
-
-set length 18.3861
-
-# Analysis of "nbshapes res"
-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 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "============"
-puts "OCC1077"
-puts "============"
-puts ""
-######################################################
-# BUG in boolean operations in the development version
-######################################################
-
-if { [catch { OCC1077 result } catch_result] } {
- puts "Faulty OCC1077"
-}
-
-set square 587.181
-set 3dviewer 1
+++ /dev/null
-
-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
-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
-
+++ /dev/null
-puts "TODO OCC111111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC10842"
-puts "============"
-puts ""
-#######################################################################
-# Bug in Bop
-#######################################################################
-
-set BugNumber OCC10842
-
-restore [locate_data_file OCC10842-1.brep] b1
-restore [locate_data_file OCC10842-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-puts "Finish boolean operation ..."
-
-set square 2312.93
-
-# Analysis of "nbshapes res"
-set nb_v_good 7
-set nb_e_good 9
-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 27
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC111111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC10842"
-puts "============"
-puts ""
-#######################################################################
-# Bug in Bop
-#######################################################################
-
-set BugNumber OCC10842
-
-restore [locate_data_file OCC10842-1.brep] b1
-restore [locate_data_file OCC10842-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set square 27919.7
-
-# Analysis of "nbshapes res"
-set nb_v_good 15
-set nb_e_good 21
-set nb_w_good 7
-set nb_f_good 6
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 52
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC111111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC10842"
-puts "============"
-puts ""
-#######################################################################
-# Bug in Bop
-#######################################################################
-
-set BugNumber OCC10842
-
-restore [locate_data_file OCC10842-1.brep] b1
-restore [locate_data_file OCC10842-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 18757.7
-
-# Analysis of "nbshapes res"
-set nb_v_good 13
-set nb_e_good 18
-set nb_w_good 6
-set nb_f_good 6
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 46
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC111111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC10842"
-puts "============"
-puts ""
-#######################################################################
-# Bug in Bop
-#######################################################################
-
-set BugNumber OCC10842
-
-restore [locate_data_file OCC10842-1.brep] b1
-restore [locate_data_file OCC10842-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-boptuc result
-puts "Finish boolean operation ..."
-
-set square 11475
-
-# Analysis of "nbshapes res"
-set nb_v_good 9
-set nb_e_good 12
-set nb_w_good 5
-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 33
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10842"
-puts "============"
-puts ""
-#######################################################################
-# Bug in Bop
-#######################################################################
-
-set BugNumber OCC10842
-
-restore [locate_data_file OCC10842-1.brep] b1
-restore [locate_data_file OCC10842-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result b1 b2
-puts "Finish boolean operation ..."
-
-set length 122.816
-
-# Analysis of "nbshapes res"
-set nb_v_good 6
-set nb_e_good 6
-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 13
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10846"
-puts "============"
-puts ""
-#######################################################################
-# Cut operation produces invalid result
-#######################################################################
-
-set BugNumber OCC10846
-
-restore [locate_data_file bug10846_solid1.brep] b1
-restore [locate_data_file bug10846_solid2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-puts "Finish boolean operation ..."
-
-set square 183.567
-
-# Analysis of "nbshapes res"
-set nb_v_good 18
-set nb_e_good 31
-set nb_w_good 19
-set nb_f_good 19
-set nb_sh_good 6
-set nb_sol_good 6
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 100
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10846"
-puts "============"
-puts ""
-#######################################################################
-# Cut operation produces invalid result
-#######################################################################
-
-set BugNumber OCC10846
-
-restore [locate_data_file bug10846_solid1.brep] b1
-restore [locate_data_file bug10846_solid2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set square 2309.97
-
-# Analysis of "nbshapes res"
-set nb_v_good 25
-set nb_e_good 45
-set nb_w_good 15
-set nb_f_good 15
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 103
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10846"
-puts "============"
-puts ""
-#######################################################################
-# Cut operation produces invalid result
-#######################################################################
-
-set BugNumber OCC10846
-
-restore [locate_data_file bug10846_solid1.brep] b1
-restore [locate_data_file bug10846_solid2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 510.907
-
-# Analysis of "nbshapes res"
-set nb_v_good 24
-set nb_e_good 43
-set nb_w_good 20
-set nb_f_good 20
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 110
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10846"
-puts "============"
-puts ""
-#######################################################################
-# Cut operation produces invalid result
-#######################################################################
-
-set BugNumber OCC10846
-
-restore [locate_data_file bug10846_solid1.brep] b1
-restore [locate_data_file bug10846_solid2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-boptuc result
-puts "Finish boolean operation ..."
-
-set square 1982.63
-
-# Analysis of "nbshapes res"
-set nb_v_good 19
-set nb_e_good 33
-set nb_w_good 14
-set nb_f_good 14
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 83
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10846"
-puts "============"
-puts ""
-#######################################################################
-# Cut operation produces invalid result
-#######################################################################
-
-set BugNumber OCC10846
-
-restore [locate_data_file bug10846_solid1.brep] b1
-restore [locate_data_file bug10846_solid2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result b1 b2
-puts "Finish boolean operation ..."
-
-set length 94.4534
-set 2dviewer 0
+++ /dev/null
-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
-
-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 only_screen 1
-
+++ /dev/null
-
-puts "========================"
-puts " BUC60706 "
-puts " OCC110 "
-puts "(cases 1-3)"
-puts "========================"
-
-restore [locate_data_file buc60706a.brep] f
-checkshape f
-
-restore [locate_data_file buc60706b.brep] w
-checkshape w
-pipe t w f
-
-restore [locate_data_file buc60706c.brep] s
-checkshape s
-
-bcut res_1 s t
-checkshape res_1
-
-restore [locate_data_file buc60706d.brep] f
-checkshape f
-
-restore [locate_data_file buc60706e.brep] w
-checkshape w
-pipe t w f
-
-bcut res_2 res_1 t
-checkshape res_2
-
-restore [locate_data_file buc60706g.brep] f
-checkshape f
-
-restore [locate_data_file buc60706h.brep] w
-checkshape w
-pipe t w f
-
-bcut result res_2 t
-
-set square 865172
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " BUC60706 "
-puts " OCC110 "
-puts "(case 4-6)"
-puts "========================"
-
-restore [locate_data_file buc60706j.brep] f
-checkshape f
-
-restore [locate_data_file buc60706b.brep] w
-checkshape w
-pipe t w f
-
-restore [locate_data_file buc60706l.brep] s
-checkshape s
-
-bcut res_1 s t
-checkshape res_1
-
-restore [locate_data_file buc60706m.brep] f
-checkshape f
-
-restore [locate_data_file buc60706e.brep] w
-checkshape w
-pipe t w f
-
-bcut res_2 res_1 t
-checkshape res_2
-
-restore [locate_data_file buc60706p.brep] f
-checkshape f
-
-restore [locate_data_file buc60706h.brep] w
-checkshape w
-pipe t w f
-
-bcut result res_2 t
-
-set square 860752
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " BUC60706 "
-puts " OCC110 "
-puts "(case 7-9)"
-puts "========================"
-
-restore [locate_data_file buc60706s.brep] f
-checkshape f
-
-restore [locate_data_file buc60706b.brep] w
-checkshape w
-pipe t w f
-
-restore [locate_data_file buc60706l.brep] s
-checkshape s
-
-bcut res_1 s t
-checkshape res_1
-
-restore [locate_data_file buc60706v.brep] f
-checkshape f
-
-restore [locate_data_file buc60706e.brep] w
-checkshape w
-pipe t w f
-
-bcut res_2 res_1 t
-checkshape res_2
-
-restore [locate_data_file buc60706x.brep] f
-checkshape f
-
-restore [locate_data_file buc60706h.brep] w
-checkshape w
-pipe t w f
-
-bcut result res_2 t
-
-set square 861220
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC11565"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operation "Cut" in 2d cannot cut the hole from the rectangle
-#######################################################################
-
-restore [locate_data_file OCC11565.brep] a
-explode a
-
-bop a_1 a_2
-bopcut result
-
-set square 28.6255
-set nb_v_good 12
-set nb_e_good 12
-set nb_w_good 2
-set nb_f_good 1
-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 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC11565"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operation "Cut" in 2d cannot cut the hole from the rectangle
-#######################################################################
-
-restore [locate_data_file OCC11565.brep] a
-explode a
-
-bop a_1 a_3
-bopcut result
-
-set square 28.6438
-set nb_v_good 12
-set nb_e_good 12
-set nb_w_good 2
-set nb_f_good 1
-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 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC116"
-puts "================"
-puts ""
-#############################################
-## Creation of chamfer is impossible on attached shape.(SAM1201)
-#############################################
-
-restore [locate_data_file OCC116.brep] sh
-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 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC117"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC117.brep] sh
-explode sh
-checkshape sh_1
-checkshape sh_2
-
-bfuse result sh_1 sh_2
-
-set square 292297
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC117"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC117.brep] sh
-explode sh
-checkshape sh_1
-checkshape sh_2
-
-bfuse result sh_2 sh_1
-
-set square 292297
-set 2dviewer 0
-
-
+++ /dev/null
-puts "========"
-puts "OCC118"
-puts "========"
-########################################################
-## The Cone part of final fuse shape becomes invisible
-########################################################
-
-restore [locate_data_file OCC118-1.brep] a
-checkshape a
-restore [locate_data_file OCC118-2.brep] b
-checkshape b
-
-bop a b
-bopfuse result a b
-
-set square 4844.63
-set 2dviewer 0
+++ /dev/null
-puts "========"
-puts "OCC118"
-puts "========"
-########################################################
-## The Cone part of final fuse shape becomes invisible
-########################################################
-
-restore [locate_data_file OCC118-1.brep] a
-checkshape a
-restore [locate_data_file OCC118-2.brep] b
-checkshape b
-
-bfuse result a b
-
-set square 4844.63
-set 3dviewer 1
-
+++ /dev/null
-puts "========"
-puts "OCC118"
-puts "========"
-########################################################
-## The Cone part of final fuse shape becomes invisible
-########################################################
-
-restore [locate_data_file OCC118-1.brep] a
-checkshape a
-restore [locate_data_file OCC118-2.brep] b
-checkshape b
-
-bfuse result b a
-
-set square 4844.63
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC12213"
-puts "============"
-puts ""
-#######################################################################
-# Invalid sweep was created by command "buildsweep" in DRAW in case circular path
-#######################################################################
-
-set BugNumber OCC12213
-
-circle c1 0 0 0 100
-trim cc1 c1 0 3.14
-mkedge e2 cc1
-wire w2 e2
-
-box a 95 -10 -5 10 10 10
-explode a w
-explode a_4 e
-wire w21 a_4_1 a_4_2 a_4_3 a_4_4
-
-box b -110 -10 -5 20 10 10
-explode b w
-explode b_4 e
-wire w22 b_4_1 b_4_2 b_4_3 b_4_4
-
-explode w2 v
-
-mksweep w2
-addsweep w21 w2_1
-addsweep w22 w2_2
-buildsweep result
-
-set square 15708.8
-
-# Analysis of "nbshapes res"
-set nb_v_good 8
-set nb_e_good 12
-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 29
-
-set 2dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC12257"
-puts "============"
-puts ""
-#######################################################################
-# Fuse operation fails
-#######################################################################
-
-set BugNumber OCC12257
-
-puts "Load shape ..."
-restore [locate_data_file OCC12257.brep] b1
-
-explode b1
-
-puts "Prepare boolean operation ..."
-bop b1_1 b1_2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set square 3394.17
-
-# Analysis of "nbshapes res"
-set nb_v_good 72
-set nb_e_good 109
-set nb_w_good 39
-set nb_f_good 39
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 262
-
-set 2dviewer 1
-
+++ /dev/null
-puts "================"
-puts "OCC1226"
-puts "The revolution problem reproduced in OCC Samples"
-puts "================"
-puts ""
-
-vertex v1 0 0 0
-vertex v2 50 0 0
-vertex v3 50 50 0
-
-edge e1 v1 v2
-edge e2 v2 v3
-edge e3 v3 v1
-
-wire w e1 e2 e3
-
-mkplane f w
-
-revol result f 0 0 30 0 1 0 180
-
-set square 23211.3
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC122"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC122.brep] sh
-explode sh
-
-checkshape sh_1
-checkshape sh_2
-
-bfuse result sh_1 sh_2
-
-set square 172790
-set 2dviewer 0
-
+++ /dev/null
-puts "================"
-puts "OCC122"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC122.brep] sh
-explode sh
-
-checkshape sh_1
-checkshape sh_2
-
-bfuse result sh_2 sh_1
-
-set square 172790
-set 2dviewer 0
-
+++ /dev/null
-puts "================"
-puts "OCC122"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC122.brep] sh
-explode sh
-
-checkshape sh_1
-checkshape sh_2
-
-bcut result sh_1 sh_2
-
-set square 83334.1
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC122"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC122.brep] sh
-explode sh
-
-checkshape sh_1
-checkshape sh_2
-
-bcut result sh_2 sh_1
-
-set square 132943
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC123"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC123.brep] sh
-checkshape sh
-
-explode sh
-
-bfuse result sh_1 sh_2
-
-set square 81598.4
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC123"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC123.brep] sh
-checkshape sh
-
-explode sh
-
-bfuse result sh_2 sh_1
-
-set square 81598.4
-set 2dviewer 0
-
-
-
+++ /dev/null
-puts "================"
-puts "OCC1243"
-puts "================"
-puts "Bad solid created from face with command 'revol'"
-puts ""
-
-restore [locate_data_file OCC1243-1.brep] f1
-checkshape f1
-
-revol result f1 -5000.0 0.0 0.0 10000.0 0.0 0.0 360.0
-
-set tolerance [maxtolerance result]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
-
-set max_tolerance 1.00000e-06
-
-if { ${MaxFaceTolerance} > ${max_tolerance} || ${MaxEdgeTolerance} > ${max_tolerance} || ${MaxVertexTolerance} > ${max_tolerance} } {
- puts "OCC1243 - Error"
-} else {
- puts "OCC1243 - OK"
-}
-
-set square 350733
-set 2dviewer 0
+++ /dev/null
-puts "================"
-puts "OCC1243"
-puts "================"
-puts "Bad solid created from face with command 'revol'"
-puts ""
-
-restore [locate_data_file OCC1243-2.brep] f1
-checkshape f1
-
-revol result f1 -5000.0 0.0 0.0 10000.0 0.0 0.0 360.0
-
-set tolerance [maxtolerance result]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
-
-set max_tolerance 1.00000e-06
-
-if { ${MaxFaceTolerance} > ${max_tolerance} || ${MaxEdgeTolerance} > ${max_tolerance} || ${MaxVertexTolerance} > ${max_tolerance} } {
- puts "OCC1243 - Error"
-} else {
- puts "OCC1243 - OK"
-}
-
-set square 3.06024e+06
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC12507"
-puts "============"
-puts ""
-#######################################################################
-# Wrong result of fuse operation
-#######################################################################
-
-puts "First shape ..."
-pcylinder c 3 3
-explode c e
-
-puts "Second shape ..."
-tcopy c_3 e3
-ttranslate e3 0 6 0
-
-bop c_3 e3
-bopfuse result
-
-set nb_v_good 3
-set nb_e_good 4
-set nb_w_good 1
-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 2dviewer 0
+++ /dev/null
-puts "================"
-puts "OCC1255"
-puts "================"
-puts ""
-# Exception in command 'section'
-
-restore [locate_data_file OCC1255.brep] a
-checkshape a
-
-plane p1 0 -36.8067 0 0 1 0
-mkface f1 p1
-
-bsection result a f1
-
-set length 5534.74
-set 2dviewer 0
+++ /dev/null
-puts "========="
-puts " OCC1255 "
-puts "========="
-puts ""
-###############################################
-## Exception in command 'section'
-# (This script tests new topology)
-###############################################
-
-restore [locate_data_file OCC1255.brep] a
-checkshape a
-
-plane p1 0 -36.8067 0 0 1 0
-mkface f1 p1
-
-if { [catch {bop a f1 } ] } {
- puts "Faulty OCC1255: BOP operation was made wrongly"
-} else {
- bopsection result
-}
-
-set length 5383.42
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC12627"
-puts "============"
-puts ""
-#######################################################################
-# Classification of a point comparing to a face is incorrect
-#######################################################################
-
-set BugNumber OCC12627
-
-restore [locate_data_file OCC12627_1.brep] b1
-restore [locate_data_file OCC12627_2.brep] b2
-
-bop b1 b2
-bopfuse result
-
-set square 272295
-set nb_v_good 13
-set nb_e_good 20
-set nb_w_good 9
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 54
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "================"
-puts "OCC12661"
-puts "================"
-puts ""
-#######################################################################################
-# Wrong calculation of bnd box for edge if edge has polygon of triangulation
-#######################################################################################
-
-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 BugNumber OCC12661
-
-restore [locate_data_file OCC12661.brep] result
-set res [bounding result]
-
-set x1 [lindex ${res} 0]
-set y1 [lindex ${res} 1]
-set z1 [lindex ${res} 2]
-set x2 [lindex ${res} 3]
-set y2 [lindex ${res} 4]
-set z2 [lindex ${res} 5]
-
-set good_x1 -6.3659273065258741
-set good_y1 0.7051405053395956
-set good_z1 -2.5792617865186296
-set good_x2 6.3659273065258795
-set good_y2 7.6599592236605769
-set good_z2 3.0815250146676485
-
-set percent_max 0.1
-set status 0
-
-set x1_percent [GetPercent ${x1} ${good_x1}]
-set y1_percent [GetPercent ${y1} ${good_y1}]
-set z1_percent [GetPercent ${z1} ${good_z1}]
-set x2_percent [GetPercent ${x2} ${good_x2}]
-set y2_percent [GetPercent ${y2} ${good_y2}]
-set z2_percent [GetPercent ${z2} ${good_z2}]
-
-if {${x1_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : x1 is wrong"
- set status 1
-}
-if {${y1_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : y1 is wrong"
- set status 1
-}
-if {${z1_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : z1 is wrong"
- set status 1
-}
-if {${x2_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : x2 is wrong"
- set status 1
-}
-if {${y2_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : y2 is wrong"
- set status 1
-}
-if {${z2_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : z2 is wrong"
- set status 1
-}
-
-if { ${status} == 0 } {
- puts "${BugNumber}: OK"
-} else {
- puts "${BugNumber}: Faulty"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC12918"
-puts "============"
-puts ""
-#######################################################################
-# Boolean Operations failed
-#######################################################################
-
-set BugNumber OCC12918
-
-restore [locate_data_file OCC12918_1.brep] b1
-restore [locate_data_file OCC12918_2.brep] b2
-
-bop b1 b2
-bopfuse result
-
-set square 0.00240038
-set nb_v_good 24
-set nb_e_good 36
-set nb_w_good 14
-set nb_f_good 14
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 91
-
-set 2dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC13116"
-puts "============"
-puts ""
-#######################################################################
-# Boolean Operations produce faulty shape
-#######################################################################
-
-set BugNumber OCC13116
-
-restore [locate_data_file OCC13116_sh1.brep] b1
-restore [locate_data_file OCC13116_sh2.brep] b2
-
-bop b1 b2
-bopfuse result
-
-set square 438194
-set nb_v_good 21
-set nb_e_good 37
-set nb_w_good 16
-set nb_f_good 16
-set nb_sh_good 2
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 94
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC13116"
-puts "============"
-puts ""
-#######################################################################
-# Boolean Operations produce faulty shape
-#######################################################################
-
-restore [locate_data_file OCC13116_sh1.brep] b1
-restore [locate_data_file OCC13116_sh2.brep] b2
-
-bop b1 b2
-bopcommon result
-
-set square 3769.91
-set nb_v_good 3
-set nb_e_good 5
-set nb_w_good 2
-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 15
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC13116"
-puts "============"
-puts ""
-#######################################################################
-# Boolean Operations produce faulty shape
-#######################################################################
-
-restore [locate_data_file OCC13116_sh1.brep] b1
-restore [locate_data_file OCC13116_sh2.brep] b2
-
-bop b1 b2
-bopcut result
-
-set square 438194
-set nb_v_good 21
-set nb_e_good 34
-set nb_w_good 15
-set nb_f_good 15
-set nb_sh_good 2
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 89
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC13116"
-puts "============"
-puts ""
-#######################################################################
-# Boolean Operations produce faulty shape
-#######################################################################
-
-restore [locate_data_file OCC13116_sh1.brep] b1
-restore [locate_data_file OCC13116_sh2.brep] b2
-
-bop b1 b2
-boptuc result
-
-set square 3769.89
-set nb_v_good 3
-set nb_e_good 8
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 20
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC13140"
-puts "============"
-puts ""
-#######################################################################
-# Exception during creation pipe on from attached spine and profile
-#######################################################################
-
-restore [locate_data_file OCC13140_Spine.brep] Spine
-restore [locate_data_file OCC13140_Profile.brep] Profile
-
-pipe result Spine Profile
-
-set square 3.48689
-set good_vertex 2
-set good_edge 3
-set good_wire 1
-set good_face 1
-
-set explode_v_length [llength [explode result v] ]
-set explode_e_length [llength [explode result e] ]
-set explode_w_length [llength [explode result w] ]
-set explode_f_length [llength [explode result f] ]
-
-if { ${explode_v_length} != ${good_vertex} } {
- puts "vertex: Faulty"
-} else {
- puts "vertex: OK"
-}
-if { ${explode_e_length} != ${good_edge} } {
- puts "edge: Faulty"
-} else {
- puts "edge: OK"
-}
-if { ${explode_w_length} != ${good_wire} } {
- puts "wire: Faulty"
-} else {
- puts "wire: OK"
-}
-if { ${explode_f_length} != ${good_face} } {
- puts "face: Faulty"
-} else {
- puts "face: OK"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC13142"
-puts "============"
-puts ""
-#######################################################################
-# Exception is raised while performing boolean operations
-#######################################################################
-
-restore [locate_data_file OCC13142.brep] result
-
-vinit
-vdisplay result
-vfit
-vsetdispmode 1
-
-set square 513.007
-set nb_v_good 34
-set nb_e_good 66
-set nb_w_good 47
-set nb_f_good 42
-set nb_sh_good 9
-set nb_sol_good 9
-set nb_compsol_good 0
-set nb_compound_good 3
-set nb_shape_good 210
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC13186"
-puts "============"
-puts ""
-#######################################################################
-# Problem with Boolean operation
-# Bug is reprodused on Linux platform only
-#######################################################################
-
-restore [locate_data_file OCC13186_cutcyl11.brep] b1
-restore [locate_data_file OCC13186_sphere.brep] b2
-
-bop b1 b2
-bopcut result
-
-set square 42.5841
-set nb_v_good 19
-set nb_e_good 25
-set nb_w_good 12
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 66
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC13186"
-puts "============"
-puts ""
-#######################################################################
-# Problem with Boolean operation
-# Bug is reprodused on Linux platform only
-#######################################################################
-
-restore [locate_data_file OCC13186_cutcyl11.brep] b1
-restore [locate_data_file OCC13186_sphere.brep] b2
-
-bop b1 b2
-bopfuse result
-
-set square 85.6816
-set nb_v_good 21
-set nb_e_good 28
-set nb_w_good 13
-set nb_f_good 8
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 73
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC13186"
-puts "============"
-puts ""
-#######################################################################
-# Problem with Boolean operation
-# Bug is reprodused on Linux platform only
-#######################################################################
-
-restore [locate_data_file OCC13186_cutcyl11.brep] b1
-restore [locate_data_file OCC13186_sphere.brep] b2
-
-bop b1 b2
-bopcommon result
-
-set square 14.9648
-set nb_v_good 8
-set nb_e_good 11
-set nb_w_good 7
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 34
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC13186"
-puts "============"
-puts ""
-#######################################################################
-# Problem with Boolean operation
-# Bug is reprodused on Linux platform only
-#######################################################################
-
-restore [locate_data_file OCC13186_cutcyl11.brep] b1
-restore [locate_data_file OCC13186_sphere.brep] b2
-
-bop b1 b2
-boptuc result
-
-set square 58.0624
-set nb_v_good 10
-set nb_e_good 14
-set nb_w_good 8
-set nb_f_good 6
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 41
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC13209"
-puts "============"
-puts ""
-#######################################################################
-# Exception is raised while performing boolean operations
-#######################################################################
-
-restore [locate_data_file OCC13209_s1.brep] b1
-restore [locate_data_file OCC13209_s2.brep] b2
-
-bop b1 b2
-bopfuse result
-
-set square 17308.3
-set nb_v_good 13
-set nb_e_good 25
-set nb_w_good 13
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 66
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC13209"
-puts "============"
-puts ""
-#######################################################################
-# Exception is raised while performing boolean operations
-#######################################################################
-
-restore [locate_data_file OCC13209_s1.brep] b1
-restore [locate_data_file OCC13209_s2.brep] b2
-
-bop b1 b2
-bopcommon result
-
-set square 2990.42
-set nb_v_good 13
-set nb_e_good 23
-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 59
-
-set 2dviewer 0
-
-
-
-
+++ /dev/null
-puts "============"
-puts "OCC13209"
-puts "============"
-puts ""
-#######################################################################
-# Exception is raised while performing boolean operations
-#######################################################################
-
-restore [locate_data_file OCC13209_s1.brep] b1
-restore [locate_data_file OCC13209_s2.brep] b2
-
-bop b1 b2
-bopcut result
-
-set square 17292.5
-set nb_v_good 13
-set nb_e_good 26
-set nb_w_good 12
-set nb_f_good 11
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 65
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC13209"
-puts "============"
-puts ""
-#######################################################################
-# Exception is raised while performing boolean operations
-#######################################################################
-
-restore [locate_data_file OCC13209_s1.brep] b1
-restore [locate_data_file OCC13209_s2.brep] b2
-
-bop b1 b2
-boptuc result
-
-set square 3006.19
-set nb_v_good 11
-set nb_e_good 18
-set nb_w_good 11
-set nb_f_good 11
-set nb_sh_good 3
-set nb_sol_good 3
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 58
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC13211"
-puts "============"
-puts ""
-#######################################################################
-# Wrong treatment of conical faces in BOP algorithm
-#######################################################################
-
-restore [locate_data_file OCC13211-f14.brep] b1
-restore [locate_data_file OCC13211-f24.brep] b2
-
-bop b1 b2
-bopsection result
-
-set length 37.7057
-set nb_v_good 5
-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 10
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC13211"
-puts "============"
-puts ""
-#######################################################################
-# Wrong treatment of conical faces in BOP algorithm
-#######################################################################
-
-restore [locate_data_file OCC13209_s1.brep] s1
-restore [locate_data_file OCC13209_s2.brep] s2
-
-bop s1 s2
-boptuc result
-
-set square 3006.19
-set nb_v_good 11
-set nb_e_good 18
-set nb_w_good 11
-set nb_f_good 11
-set nb_sh_good 3
-set nb_sol_good 3
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 58
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC13211"
-puts "============"
-puts ""
-#######################################################################
-# Wrong treatment of conical faces in BOP algorithm
-#######################################################################
-
-restore [locate_data_file OCC13209_s1.brep] s1
-restore [locate_data_file OCC13209_s2.brep] s2
-
-bop s1 s2
-bopsection result
-
-set length 228.699
-set nb_v_good 13
-set nb_e_good 15
-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 29
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC13211"
-puts "============"
-puts ""
-#######################################################################
-# Wrong treatment of conical faces in BOP algorithm
-#######################################################################
-
-set BugNumber OCC13211
-
-vertex v1 136.06, 187.51, 0.0
-vertex v2 136.06, 143.01, 0.0
-edge e1 v1 v2
-vertex v3 136.06, 143.01, 0.0
-vertex v4 128.08, 143.01, 0.0
-edge e2 v3 v4
-vertex v5 128.08, 143.01, 0.0
-vertex v6 127.88, 164.75, 0.0
-edge e3 v5 v6
-vertex v7 127.88, 164.75, 0.0
-vertex v8 116.11, 176.00, 0.0
-edge e4 v7 v8
-vertex v9 116.11, 176.00, 0.0
-vertex v10 136.06, 187.51, 0.0
-edge e5 v9 v10
-wire twire e1 e2 e3 e4 e5
-mkplane tface twire
-revol r1 tface 153.08, 143.01 0.0 1 0 0 360 1
-revol r2 tface 136.06, 68.01, 0.0 0 1 0 360 1
-
-bop r1 r2
-bopfuse result
-
-set square 17308.3
-set nb_v_good 13
-set nb_e_good 25
-set nb_w_good 13
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 66
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC13211"
-puts "============"
-puts ""
-#######################################################################
-# Wrong treatment of conical faces in BOP algorithm
-#######################################################################
-
-vertex v1 136.06, 187.51, 0.0
-vertex v2 136.06, 143.01, 0.0
-edge e1 v1 v2
-vertex v3 136.06, 143.01, 0.0
-vertex v4 128.08, 143.01, 0.0
-edge e2 v3 v4
-vertex v5 128.08, 143.01, 0.0
-vertex v6 127.88, 164.75, 0.0
-edge e3 v5 v6
-vertex v7 127.88, 164.75, 0.0
-vertex v8 116.11, 176.00, 0.0
-edge e4 v7 v8
-vertex v9 116.11, 176.00, 0.0
-vertex v10 136.06, 187.51, 0.0
-edge e5 v9 v10
-wire twire e1 e2 e3 e4 e5
-mkplane tface twire
-revol r1 tface 153.08, 143.01 0.0 1 0 0 360 1
-revol r2 tface 136.06, 68.01, 0.0 0 1 0 360 1
-
-bop r1 r2
-bopcommon result
-
-set square 2990.42
-set nb_v_good 13
-set nb_e_good 23
-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 59
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC13211"
-puts "============"
-puts ""
-#######################################################################
-# Wrong treatment of conical faces in BOP algorithm
-#######################################################################
-
-vertex v1 136.06, 187.51, 0.0
-vertex v2 136.06, 143.01, 0.0
-edge e1 v1 v2
-vertex v3 136.06, 143.01, 0.0
-vertex v4 128.08, 143.01, 0.0
-edge e2 v3 v4
-vertex v5 128.08, 143.01, 0.0
-vertex v6 127.88, 164.75, 0.0
-edge e3 v5 v6
-vertex v7 127.88, 164.75, 0.0
-vertex v8 116.11, 176.00, 0.0
-edge e4 v7 v8
-vertex v9 116.11, 176.00, 0.0
-vertex v10 136.06, 187.51, 0.0
-edge e5 v9 v10
-wire twire e1 e2 e3 e4 e5
-mkplane tface twire
-revol r1 tface 153.08, 143.01 0.0 1 0 0 360 1
-revol r2 tface 136.06, 68.01, 0.0 0 1 0 360 1
-
-bop r1 r2
-bopcut result
-
-set square 17292.5
-set nb_v_good 13
-set nb_e_good 26
-set nb_w_good 12
-set nb_f_good 11
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 65
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC13211"
-puts "============"
-puts ""
-#######################################################################
-# Wrong treatment of conical faces in BOP algorithm
-#######################################################################
-
-vertex v1 136.06, 187.51, 0.0
-vertex v2 136.06, 143.01, 0.0
-edge e1 v1 v2
-vertex v3 136.06, 143.01, 0.0
-vertex v4 128.08, 143.01, 0.0
-edge e2 v3 v4
-vertex v5 128.08, 143.01, 0.0
-vertex v6 127.88, 164.75, 0.0
-edge e3 v5 v6
-vertex v7 127.88, 164.75, 0.0
-vertex v8 116.11, 176.00, 0.0
-edge e4 v7 v8
-vertex v9 116.11, 176.00, 0.0
-vertex v10 136.06, 187.51, 0.0
-edge e5 v9 v10
-wire twire e1 e2 e3 e4 e5
-mkplane tface twire
-revol r1 tface 153.08, 143.01 0.0 1 0 0 360 1
-revol r2 tface 136.06, 68.01, 0.0 0 1 0 360 1
-
-bop r1 r2
-boptuc result
-
-set square 3006.19
-set nb_v_good 11
-set nb_e_good 18
-set nb_w_good 11
-set nb_f_good 11
-set nb_sh_good 3
-set nb_sol_good 3
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 58
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC13211"
-puts "============"
-puts ""
-#######################################################################
-# Wrong treatment of conical faces in BOP algorithm
-#######################################################################
-
-vertex v1 136.06, 187.51, 0.0
-vertex v2 136.06, 143.01, 0.0
-edge e1 v1 v2
-vertex v3 136.06, 143.01, 0.0
-vertex v4 128.08, 143.01, 0.0
-edge e2 v3 v4
-vertex v5 128.08, 143.01, 0.0
-vertex v6 127.88, 164.75, 0.0
-edge e3 v5 v6
-vertex v7 127.88, 164.75, 0.0
-vertex v8 116.11, 176.00, 0.0
-edge e4 v7 v8
-vertex v9 116.11, 176.00, 0.0
-vertex v10 136.06, 187.51, 0.0
-edge e5 v9 v10
-wire twire e1 e2 e3 e4 e5
-mkplane tface twire
-revol r1 tface 153.08, 143.01 0.0 1 0 0 360 1
-revol r2 tface 136.06, 68.01, 0.0 0 1 0 360 1
-
-bop r1 r2
-bopsection result
-
-set length 228.699
-set nb_v_good_vertex 13
-set nb_e_good_edge 15
-set nb_w_good_wire 0
-set nb_f_good_face 0
-set nb_sh_good_shell 0
-set nb_sol_good_solid 0
-set nb_compsol_good_compsolid 0
-set nb_compound_good_compound 1
-set nb_shape_good_shape 29
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC13211"
-puts "============"
-puts ""
-#######################################################################
-# Wrong treatment of conical faces in BOP algorithm
-#######################################################################
-
-restore [locate_data_file OCC13209_s1.brep] s1
-restore [locate_data_file OCC13209_s2.brep] s2
-
-bop s1 s2
-bopfuse result
-
-set square 17308.3
-set nb_v_good 13
-set nb_e_good 25
-set nb_w_good 13
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 66
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC13211"
-puts "============"
-puts ""
-#######################################################################
-# Wrong treatment of conical faces in BOP algorithm
-#######################################################################
-
-restore [locate_data_file OCC13209_s1.brep] s1
-restore [locate_data_file OCC13209_s2.brep] s2
-
-bop s1 s2
-bopcommon result
-
-set square 2990.42
-set nb_v_good 13
-set nb_e_good 23
-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 59
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC13211"
-puts "============"
-puts ""
-#######################################################################
-# Wrong treatment of conical faces in BOP algorithm
-#######################################################################
-
-restore [locate_data_file OCC13209_s1.brep] s1
-restore [locate_data_file OCC13209_s2.brep] s2
-
-bop s1 s2
-bopcut result
-
-set square 17292.5
-set nb_v_good 13
-set nb_e_good 26
-set nb_w_good 12
-set nb_f_good 11
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 65
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC13395"
-puts "============"
-puts ""
-#######################################################################
-# Pipe is constructed wrongly on a result of revolution
-#######################################################################
-
-# revolution of an edge to obtain half-disk
-line line1 0 0 0 1 0 0
-mkedge edge1 line1 0 10
-revol revol1 edge1 0 0 0 0 1 0 180
-
-# spine for pipe
-line line2 0 0 0 0 1 0
-mkedge edge2 line2 0 10
-wire wire_spine edge2
-
-# invalid pipe
-pipe result wire_spine revol1
-
-set square 828.319
-set good_vertex 6
-set good_edge 9
-set good_wire 5
-set good_face 5
-set explode_v_length [llength [explode result v] ]
-set explode_e_length [llength [explode result e] ]
-set explode_w_length [llength [explode result w] ]
-set explode_f_length [llength [explode result f] ]
-
-if { ${explode_v_length} != ${good_vertex} } {
- puts "vertex: Faulty"
-} else {
- puts "vertex: OK"
-}
-if { ${explode_e_length} != ${good_edge} } {
- puts "edge: Faulty"
-} else {
- puts "edge: OK"
-}
-if { ${explode_w_length} != ${good_wire} } {
- puts "wire: Faulty"
-} else {
- puts "wire: OK"
-}
-if { ${explode_f_length} != ${good_face} } {
- puts "face: Faulty"
-} else {
- puts "face: OK"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC13538"
-puts "============"
-puts ""
-#######################################################################
-# Problem with Boolean operation on Shells
-#######################################################################
-
-box a 100 100 100
-box b 100 100 100
-ttranslate b 0 0 100
-explode a Sh
-explode b Sh
-
-bop a_1 b_1
-bopcommon result
-
-set square 10000
-set nb_v_good 4
-set nb_e_good 4
-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 1
-set nb_shape_good 12
-
-set 2viewer 0
-
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC1360"
-puts "================"
-puts ""
-######################################################
-# Solid correctly displayed in shadding mode, but one tis faces itself has no prs
-######################################################
-
-pload XDE
-
-restore [locate_data_file OCC1360.brep] sh
-
-fixshape result sh 1e-7
-
-set square 407.599
-set 3dviewer 1
-
+++ /dev/null
-
-puts "================"
-puts "OCC140"
-puts "================"
-puts ""
-#########################################################
-## Fillet is created incorrectly on attached shape.
-#########################################################
-
-restore [locate_data_file shading_137.brep] s
-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
+++ /dev/null
-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
-checkshape a
-restore [locate_data_file buc60663b.brep] b
-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
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC14506"
-puts "============"
-puts ""
-#######################################################################
-# Wrong section of faces with bspline geometry
-#######################################################################
-
-restore [locate_data_file bug14506_face1.brep] face1
-restore [locate_data_file bug14506_face2.brep] face2
-
-bop face1 face2
-bopsection result
-
-set length 129.639
-set nb_v_good 2
-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 5
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC14536"
-puts "============"
-puts ""
-#######################################################################
-# Boolean Operation Algorithm failed
-#######################################################################
-
-restore [locate_data_file OCC14536-sh1.brep] s1
-restore [locate_data_file OCC14536-sh2.brep] s2
-
-bop s1 s2
-bopfuse result
-
-set square 330318
-set nb_v_good 7
-set nb_e_good 13
-set nb_w_good 6
-set nb_f_good 6
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 35
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC1456"
-puts "============"
-puts ""
-######################################################
-# Impossible to build mixed type fillets
-######################################################
-
-restore [locate_data_file OCC1456.brep] a
-
-checkshape a
-
-##############################################
-explode a w
-explode a_4 e
-mkevol result a
-updatevol a_4_1 0 5 0.5 20 1 5
-updatevol a_4_2 0 5
-updatevol a_4_3 0 5
-updatevol a_4_4 0 5 0.5 20 1 5
-updatevol a_4_5 0 5 0.5 20 1 5
-updatevol a_4_6 0 5
-updatevol a_4_7 0 5 0.5 20 1 5
-updatevol a_4_8 0 5
-
-if { [catch { buildevol } catch_result] } {
- puts "Faulty OCC1456 (case 2)"
-}
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set square 3.21455e+06
-set only_screen 1
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "============"
-puts "OCC14643"
-puts "============"
-puts ""
-#######################################################################
-# Checkshape command gives wrong result for compound of 66 solids
-#######################################################################
-
-set BugNumber OCC14643
-
-restore [locate_data_file OCC14643.brep] result
-
-set square 8.63143e+07
-set nb_v_good 108
-set nb_e_good 282
-set nb_w_good 239
-set nb_f_good 259
-set nb_sh_good 66
-set nb_sol_good 66
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 1021
-
-puts ""
-puts "Check each solid"
-explode result
-for {set k 1} {$k < 67} {incr k} {
- puts ""
- puts [eval whatis result_$k]
- puts [eval checkshape result_$k]
- wait .5
-}
-puts ""
-puts "End check each solid"
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC14777"
-puts "============"
-puts ""
-#######################################################################
-# Boolean Operation Algorithm failed
-#######################################################################
-
-restore [locate_data_file OCC14777-s1.brep] s1
-restore [locate_data_file OCC14777-s2.brep] s2
-
-bop s1 s2
-bopcut result
-
-set square 10653.3
-set nb_v_good 6
-set nb_e_good 9
-set nb_w_good 5
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 28
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC1477"
-puts "============"
-puts ""
-######################################################
-# Problems in MakePipeShell
-# (case 1)
-######################################################
-
-restore [locate_data_file OCC1477-1.brep] s1
-restore [locate_data_file OCC1477-2.brep] s2
-
-checkshape s1
-checkshape s2
-
-mksweep s1
-
-addsweep s2
-
-if { [catch {buildsweep result} catch_result] } {
- puts "Faulty OCC1477"
-}
-
-set square 913238
-set 3dviewer 1
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC1477"
-puts "============"
-puts ""
-######################################################
-# Problems in MakePipeShell
-# (case 10)
-######################################################
-
-restore [locate_data_file OCC1477-1.brep] s1
-restore [locate_data_file OCC1477-2.brep] s2
-
-checkshape s1
-checkshape s2
-
-mksweep s1
-
-addsweep s2 -T 0 1 1 2 2 .5
-
-if { [catch {buildsweep result -C} catch_result] } {
- puts "Faulty OCC1477"
-}
-
-set square 0
-set 3dviewer 1
-
+++ /dev/null
-puts "TODO ?OCC11111 ALL: An exception was caught"
-puts "TODO ?OCC11111 ALL: Exception"
-puts "TODO ?OCC11111 ALL: Faulty OCC1477"
-puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
-
-puts "============"
-puts "OCC1477"
-puts "============"
-puts ""
-######################################################
-# Problems in MakePipeShell
-# (case 11)
-######################################################
-
-restore [locate_data_file OCC1477-1.brep] s1
-restore [locate_data_file OCC1477-2.brep] s2
-
-checkshape s1
-checkshape s2
-
-mksweep s1
-
-addsweep s2 0 1 1 2 2 .5
-
-if { [catch {buildsweep result -R} catch_result] } {
- puts "Faulty OCC1477"
-}
-
-set square 1.81647e+006
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC1477"
-puts "============"
-puts ""
-######################################################
-# Problems in MakePipeShell
-# (case 12)
-######################################################
-
-restore [locate_data_file OCC1477-1.brep] s1
-restore [locate_data_file OCC1477-2.brep] s2
-
-checkshape s1
-checkshape s2
-
-mksweep s1
-
-addsweep s2 -T 0 1 1 2 2 .5
-
-if { [catch {buildsweep result -R} catch_result] } {
- puts "Faulty OCC1477"
-}
-
-set good_square 1.99019e+06
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC1477"
-puts "============"
-puts ""
-######################################################
-# Problems in MakePipeShell
-# (case 2)
-######################################################
-
-restore [locate_data_file OCC1477-1.brep] s1
-restore [locate_data_file OCC1477-2.brep] s2
-
-checkshape s1
-checkshape s2
-
-mksweep s1
-
-addsweep s2 -T
-
-if { [catch {buildsweep result} catch_result] } {
- puts "Faulty OCC1477"
-}
-
-set square 913238
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC1477"
-puts "============"
-puts ""
-######################################################
-# Problems in MakePipeShell
-# (case 3)
-######################################################
-
-restore [locate_data_file OCC1477-1.brep] s1
-restore [locate_data_file OCC1477-2.brep] s2
-
-checkshape s1
-checkshape s2
-
-mksweep s1
-
-addsweep s2
-
-if { [catch {buildsweep result -C} catch_result] } {
- puts "Faulty OCC1477"
-}
-
-set square 1.02648e+06
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC1477"
-puts "============"
-puts ""
-######################################################
-# Problems in MakePipeShell
-# (case 4)
-######################################################
-
-restore [locate_data_file OCC1477-1.brep] s1
-restore [locate_data_file OCC1477-2.brep] s2
-
-checkshape s1
-checkshape s2
-
-mksweep s1
-
-addsweep s2 -T
-
-if { [catch {buildsweep result -C} catch_result] } {
- puts "Faulty OCC1477"
-}
-
-set square 1.11707e+06
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC1477"
-puts "============"
-puts ""
-######################################################
-# Problems in MakePipeShell
-# (case 5)
-######################################################
-
-restore [locate_data_file OCC1477-1.brep] s1
-restore [locate_data_file OCC1477-2.brep] s2
-
-checkshape s1
-checkshape s2
-
-mksweep s1
-
-addsweep s2
-
-if { [catch {buildsweep result -R} catch_result] } {
- puts "Faulty OCC1477"
-}
-
-set square 1.02342e+06
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC1477"
-puts "============"
-puts ""
-######################################################
-# Problems in MakePipeShell
-# (case 6)
-######################################################
-
-restore [locate_data_file OCC1477-1.brep] s1
-restore [locate_data_file OCC1477-2.brep] s2
-
-checkshape s1
-checkshape s2
-
-mksweep s1
-
-addsweep s2 -T
-
-if { [catch {buildsweep result -R} catch_result] } {
- puts "Faulty OCC1477"
-}
-
-set square 1.10891e+06
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC1477"
-puts "============"
-puts ""
-######################################################
-# Problems in MakePipeShell
-# (case 7)
-######################################################
-
-restore [locate_data_file OCC1477-1.brep] s1
-restore [locate_data_file OCC1477-2.brep] s2
-
-checkshape s1
-checkshape s2
-
-mksweep s1
-
-addsweep s2 0 1 1 2 2 .5
-
-if { [catch {buildsweep result} catch_result] } {
- puts "Faulty OCC1477"
-}
-
-set square 1.49907e+06
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC1477"
-puts "============"
-puts ""
-######################################################
-# Problems in MakePipeShell
-# (case 8)
-######################################################
-
-restore [locate_data_file OCC1477-1.brep] s1
-restore [locate_data_file OCC1477-2.brep] s2
-
-checkshape s1
-checkshape s2
-
-mksweep s1
-
-addsweep s2 -T 0 1 1 2 2 .5
-
-if { [catch {buildsweep result} catch_result] } {
- puts "Faulty OCC1477"
-}
-
-set square 1.56786e+06
-set 3dviewer 1
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC1477"
-puts "============"
-puts ""
-######################################################
-# Problems in MakePipeShell
-# (case 9)
-######################################################
-
-restore [locate_data_file OCC1477-1.brep] s1
-restore [locate_data_file OCC1477-2.brep] s2
-
-checkshape s1
-checkshape s2
-
-mksweep s1
-
-addsweep s2 0 1 1 2 2 .5
-
-if { [catch {buildsweep result -C} catch_result] } {
- puts "Faulty OCC1477"
-}
-
-set square 0
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC14780"
-puts "============"
-puts ""
-######################################################
-# Boolean operations (section, fuse, common, cut) give incorrect result
-######################################################
-
-set BugNumber OCC14780
-
-restore [locate_data_file OCC14780_part1.brep] s1
-restore [locate_data_file OCC14780_part2.brep] s2
-
-bop s1 s2
-bopsection result
-
-regexp {nb alone Vertices +: +([-0-9.+eE]+)} [checksection result] full Vertices
-
-set good_Vertices 0
-if { ${Vertices} != ${good_Vertices} } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set length 171.289
-set 2dviewer 0
-
-
+++ /dev/null
-puts "============"
-puts "OCC15936"
-puts "============"
-puts ""
-#######################################################################
-# Wrong shape build by revolution algorithm
-#######################################################################
-
-vertex v1 0 725 20
-vertex v2 0 709 20
-vertex v3 0 709 230
-vertex v4 0 645 230
-vertex v5 0 645 320
-vertex v6 0 805 320
-vertex v7 0 805 230
-vertex v8 0 741 230
-vertex v9 0 741 20
-edge e12 v1 v2
-edge e23 v2 v3
-edge e34 v3 v4
-edge e45 v4 v5
-edge e56 v5 v6
-edge e67 v6 v7
-edge e78 v7 v8
-edge e89 v8 v9
-edge e91 v9 v1
-wire w e12 e23 e34 e45 e56 e67 e78 e89 e91
-mkplane fr w 1
-
-revol result fr 0.001428571428572667 640.5285714285715 20 -1.691188905560395E-05 0.9999999998569939 0 360
-
-set square 1.03597e+06
-set nb_v_good 9
-set nb_e_good 14
-set nb_w_good 13
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 47
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC15836"
-puts "============"
-puts ""
-#######################################################################
-# Wrong visualization of filleted shape on IRIX32 platform
-#######################################################################
-
-restore [locate_data_file OCC15836.brep] f
-explode f e
-
-fillet result f 10 f_8 15 f_9 20 f_11 25 f_17 30 f_21 35 f_29
-
-set square 42816.6
-set nb_v_good 31
-set nb_e_good 50
-set nb_w_good 21
-set nb_f_good 21
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 126
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC15850"
-puts "============"
-puts ""
-#######################################################################
-# Regression in BOP - wrong results for simple shapes with Bspline geometry
-#######################################################################
-
-restore [locate_data_file OCC15850_bb.brep] bb
-restore [locate_data_file OCC15850_bc.brep] bc
-
-bop bb bc
-bopcut result
-
-set square 732.453
-set nb_v_good 12
-set nb_e_good 17
-set nb_w_good 9
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 48
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC15850"
-puts "============"
-puts ""
-#######################################################################
-# Regression in BOP - wrong results for simple shapes with Bspline geometry
-#######################################################################
-
-restore [locate_data_file OCC15850_bb.brep] bb
-restore [locate_data_file OCC15850_bc.brep] bc
-
-bop bb bc
-boptuc result
-
-set square 301.996
-set nb_v_good 6
-set nb_e_good 8
-set nb_w_good 6
-set nb_f_good 6
-set nb_sh_good 2
-set nb_sol_good 2
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 31
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC15850"
-puts "============"
-puts ""
-#######################################################################
-# Regression in BOP - wrong results for simple shapes with Bspline geometry
-#######################################################################
-
-restore [locate_data_file OCC15850_bb.brep] bb
-restore [locate_data_file OCC15850_bc.brep] bc
-
-bop bb bc
-bopcommon result
-
-set square 245.55
-set nb_v_good 4
-set nb_e_good 5
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 18
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC15850"
-puts "============"
-puts ""
-#######################################################################
-# Regression in BOP - wrong results for simple shapes with Bspline geometry
-#######################################################################
-
-restore [locate_data_file OCC15850_bb.brep] bb
-restore [locate_data_file OCC15850_bc.brep] bc
-
-bop bb bc
-bopfuse result
-
-set square 788.9
-set nb_v_good 14
-set nb_e_good 20
-set nb_w_good 12
-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 59
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC15850"
-puts "============"
-puts ""
-#######################################################################
-# Regression in BOP - wrong results for simple shapes with Bspline geometry
-#######################################################################
-
-set BugNumber OCC15850
-
-restore [locate_data_file OCC15850_bb.brep] bb
-restore [locate_data_file OCC15850_bc.brep] bc
-
-bop bb bc
-bopsection result
-
-set length 37.6991
-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
-
-regexp {nb alone Vertices +: +([-0-9.+eE]+)} [checksection result] full Vertices
-set good_Vertices 0
-if { ${Vertices} != ${good_Vertices} } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC15943"
-puts "============"
-puts ""
-#######################################################################
-# Wrong result of boolen fuse
-#######################################################################
-
-restore [locate_data_file OCC15943_p1.brep] b1
-restore [locate_data_file OCC15943_p2.brep] b2
-
-bop b1 b2
-bopfuse result
-
-set square 266944
-set nb_v_good 12
-set nb_e_good 20
-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 55
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC15968"
-puts "============"
-puts ""
-#######################################################################
-# Result of checkshape command depends on order of subshapes in a shape
-#######################################################################
-
-restore [locate_data_file OCC15968.brep] s
-
-explode s f
-
-# shell 1
-shape s1 sh
-add s_2 s1
-add s_1 s1
-renamevar s1 result
-
-set square 164
-set nb_v_good 10
-set nb_e_good 11
-set nb_w_good 3
-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 27
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC15968"
-puts "============"
-puts ""
-#######################################################################
-# Result of checkshape command depends on order of subshapes in a shape
-#######################################################################
-
-restore [locate_data_file OCC15968.brep] s
-
-explode s f
-
-# shell 2
-shape s2 sh
-add s_1 s2
-add s_2 s2
-renamevar s2 result
-
-set square 164
-set nb_v_good 10
-set nb_e_good 11
-set nb_w_good 3
-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 27
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC16517"
-puts "============"
-puts ""
-#######################################################################
-# Cylindrical projection is wrong
-#######################################################################
-
-set BugNumber OCC16517
-
-restore [locate_data_file OCC16517_c.brep] c
-restore [locate_data_file OCC16517_s.brep] s
-
-set Result_List [prj p c s 0 0 1]
-set Result_Numbers [llength ${Result_List}]
-set mistake 0
-if { ${Result_Numbers} != 2 } {
- puts "Faulty ${BugNumber} : projection numbers are wrong"
- set mistake 1
-} else {
- puts "First projection ..."
- renamevar p_1 result
-
- set status 0
- set length 110.167
- set nb_v_good 1
- set nb_e_good 1
- set nb_w_good 1
- set nb_f_good 0
- set nb_sh_good 0
- set nb_sol_good 0
- set nb_compsol_good 0
- set nb_compound_good 0
- set nb_shape_good 3
-}
-
-if { ${mistake} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC16517"
-puts "============"
-puts ""
-#######################################################################
-# Cylindrical projection is wrong
-#######################################################################
-
-set BugNumber OCC16517
-
-restore [locate_data_file OCC16517_c.brep] c
-restore [locate_data_file OCC16517_s.brep] s
-
-set Result_List [prj p c s 0 0 1]
-set Result_Numbers [llength ${Result_List}]
-set mistake 0
-if { ${Result_Numbers} != 2 } {
- puts "Faulty ${BugNumber} : projection numbers are wrong"
- set mistake 1
-} else {
- puts "Second projection ..."
- renamevar p_2 result
- set status 0
-
- set length 110.167
- set nb_v_good 1
- set nb_e_good 1
- set nb_w_good 1
- set nb_f_good 0
- set nb_sh_good 0
- set nb_sol_good 0
- set nb_compsol_good 0
- set nb_compound_good 0
- set nb_shape_good 3
-}
-
-# Resume
-puts ""
-if { ${mistake} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC11111 ALL: An exception was caught"
-puts "TODO OCC11111 ALL: Exception"
-puts "TODO OCC11111 ALL: Faulty OCC165"
-puts "TODO OCC11111 ALL: Error : The length of result shape is"
-
-cpulimit 600
-
-puts "========"
-puts "OCC165"
-puts "========"
-puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
-
-
-dchrono h reset
-dchrono h start
-
-restore [locate_data_file offset_wire_019.brep] a
-checkshape a
-
-mkplane f a
-checkshape f
-
-set start_stepoffset -5.7
-set incr_stepoffset 0.1
-set finish_stepoffset -2.8
-
-set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1]
-
-set IsMade 0
-set IsBeginMade 0
-set IsGood 1
-set i 0
-set resume_string ""
-for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} {
- incr i
- puts "i = $i"
- if { [catch {mkoffset result f 1 $stepoffset } catch_result] } {
- puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly"
- set IsGood 0
- set IsMade 0
- } else {
- puts "OK OCC165 (stepoffset = $stepoffset)"
- set IsMade 1
- }
- if {$IsBeginMade == 0 && $IsMade == 1} {
- set IsBeginMade 1
- set BeginStepOffset $stepoffset
- }
- if {$IsMade == 1} {
- set FinishStepOffset $stepoffset
- }
-
- dchrono h show
-
- if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } {
- set IsBeginMade 0
- set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n"
- set resume_string "${resume_string}${resume_tmp}"
- }
-}
-
-puts ""
-if {[string length $resume_string] == 0} {
- puts "Offset is created wrongly on initial shape in following borders"
- puts "from [format "%0.2f" $start_stepoffset] till [format "%0.2f" $finish_stepoffset]"
-} else {
- puts "Offset is created correctly on initial shape in following borders"
- puts "$resume_string"
-}
-
-if {$IsGood == 1} {
- puts "OCC165 OK"
-} else {
- puts "Faulty OCC165"
-}
-
-dchrono h stop
-dchrono h show
-
-renamevar result_1 result
-
-set length 0
-set 2dviewer 0
+++ /dev/null
-cpulimit 600
-
-puts "========"
-puts "OCC165"
-puts "========"
-puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
-
-dchrono h reset
-dchrono h start
-
-restore [locate_data_file offset_wire_019.brep] a
-checkshape a
-
-mkplane f a
-checkshape f
-
-set start_stepoffset -2.6
-set incr_stepoffset 0.1
-set finish_stepoffset 0.0
-
-set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1]
-
-set IsMade 0
-set IsBeginMade 0
-set IsGood 1
-set i 0
-set resume_string ""
-for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} {
- incr i
- puts "i = $i"
- if { [catch {mkoffset result f 1 $stepoffset } catch_result] } {
- puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly"
- set IsGood 0
- set IsMade 0
- } else {
- puts "OK OCC165 (stepoffset = $stepoffset)"
- set IsMade 1
- }
- if {$IsBeginMade == 0 && $IsMade == 1} {
- set IsBeginMade 1
- set BeginStepOffset $stepoffset
- }
- if {$IsMade == 1} {
- set FinishStepOffset $stepoffset
- }
-
- dchrono h show
-
- if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } {
- set IsBeginMade 0
- set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n"
- set resume_string "${resume_string}${resume_tmp}"
- }
-}
-
-puts ""
-if {[string length $resume_string] == 0} {
- puts "Offset is created wrongly on initial shape in following borders"
- puts "from [format "%0.2f" $start_stepoffset] till [format "%0.2f" $finish_stepoffset]"
-} else {
- puts "Offset is created correctly on initial shape in following borders"
- puts "$resume_string"
-}
-
-if {$IsGood == 1} {
- puts "OCC165 OK"
-} else {
- puts "Faulty OCC165"
-}
-
-dchrono h stop
-dchrono h show
-
-renamevar result_1 result
-
-set length 1081.52
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC11111 ALL: An exception was caught"
-puts "TODO ?OCC11111 ALL: Exception"
-puts "TODO ?OCC11111 ALL: Faulty OCC165"
-puts "TODO ?OCC11111 ALL: Error : The length of result shape is"
-
-cpulimit 600
-
-puts "========"
-puts "OCC165"
-puts "========"
-puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
-
-
-dchrono h reset
-dchrono h start
-
-restore [locate_data_file offset_wire_019.brep] a
-checkshape a
-
-mkplane f a
-checkshape f
-
-set start_stepoffset 0.2
-set incr_stepoffset 0.1
-set finish_stepoffset 4.9
-
-set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1]
-
-set IsMade 0
-set IsBeginMade 0
-set IsGood 1
-set i 0
-set resume_string ""
-for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} {
- incr i
- puts "i = $i"
- if { [catch {mkoffset result f 1 $stepoffset } catch_result] } {
- puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly"
- set IsGood 0
- set IsMade 0
- } else {
- puts "OK OCC165 (stepoffset = $stepoffset)"
- set IsMade 1
- }
- if {$IsBeginMade == 0 && $IsMade == 1} {
- set IsBeginMade 1
- set BeginStepOffset $stepoffset
- }
- if {$IsMade == 1} {
- set FinishStepOffset $stepoffset
- }
-
- dchrono h show
-
- if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } {
- set IsBeginMade 0
- set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n"
- set resume_string "${resume_string}${resume_tmp}"
- }
-}
-
-puts ""
-if {[string length $resume_string] == 0} {
- puts "Offset is created wrongly on initial shape in following borders"
- puts "from [format "%0.2f" $start_stepoffset] till [format "%0.2f" $finish_stepoffset]"
-} else {
- puts "Offset is created correctly on initial shape in following borders"
- puts "$resume_string"
-}
-
-if {$IsGood == 1} {
- puts "OCC165 OK"
-} else {
- puts "Faulty OCC165"
-}
-
-renamevar result_1 result
-
-set length 1112.83
-set 2dviewer 0
-
-dchrono h stop
-dchrono h show
+++ /dev/null
-cpulimit 600
-
-puts "========"
-puts "OCC165"
-puts "========"
-puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
-
-dchrono h reset
-dchrono h start
-
-restore [locate_data_file offset_wire_019.brep] a
-checkshape a
-
-mkplane f a
-checkshape f
-
-set start_stepoffset 5.1
-set incr_stepoffset 0.1
-set finish_stepoffset 6.3
-
-set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1]
-
-set IsMade 0
-set IsBeginMade 0
-set IsGood 1
-set i 0
-set resume_string ""
-for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} {
- incr i
- puts "i = $i"
- if { [catch {mkoffset result f 1 $stepoffset } catch_result] } {
- puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly"
- set IsGood 0
- set IsMade 0
- } else {
- puts "OK OCC165 (stepoffset = $stepoffset)"
- set IsMade 1
- }
- if {$IsBeginMade == 0 && $IsMade == 1} {
- set IsBeginMade 1
- set BeginStepOffset $stepoffset
- }
- if {$IsMade == 1} {
- set FinishStepOffset $stepoffset
- }
-
- dchrono h show
-
- if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } {
- set IsBeginMade 0
- set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n"
- set resume_string "${resume_string}${resume_tmp}"
- }
-}
-
-puts ""
-if {[string length $resume_string] == 0} {
- puts "Offset is created wrongly on initial shape in following borders"
- puts "from [format "%0.2f" $start_stepoffset] till [format "%0.2f" $finish_stepoffset]"
-} else {
- puts "Offset is created correctly on initial shape in following borders"
- puts "$resume_string"
-}
-
-if {$IsGood == 1} {
- puts "OCC165 OK"
-} else {
- puts "Faulty OCC165"
-}
-
-renamevar result_1 result
-
-set length 1113.06
-set 2dviewer 0
-
-dchrono h stop
-dchrono h show
+++ /dev/null
-puts "========"
-puts "OCC1665"
-puts "========"
-############################################################
-## Geom_BSplineSurface::SetVPeriodic throws an exception
-############################################################
-
-restore [locate_data_file OCC1665.draw] a
-
-if {[catch {setvperiodic a} message]} {
- puts "OCC1665 FAULTY : setvperiodic"
-} else {
- if {[catch {mkface result a} message]} {
- puts "OCC1665 FAULTY : mkface"
- } else {
- set nb_e_good 3
- }
-}
-
-set square 12265.3
-set 3dviewer 2
+++ /dev/null
-puts "============"
-puts "OCC16667"
-puts "============"
-puts ""
-#######################################################################
-# 2D Offset algorithm fails
-#######################################################################
-
-restore [locate_data_file OCC16667-face.brep] a
-
-mkoffset resoffset a 1 20
-renamevar resoffset_1 result
-
-set length 1542.3
-set nb_v_good 7
-set nb_e_good 7
-set nb_w_good 1
-set nb_f_good 0
-set nb_sh_good 0
-set nb_sol_good 0
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 15
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC16667"
-puts "============"
-puts ""
-#######################################################################
-# 2D Offset algorithm fails
-#######################################################################
-
-restore [locate_data_file OCC16667-face.brep] a
-
-mkoffset resoffset a 1 -20
-renamevar resoffset_1 result
-
-set length 1188.62
-set nb_v_good 5
-set nb_e_good 5
-set nb_w_good 1
-set nb_f_good 0
-set nb_sh_good 0
-set nb_sol_good 0
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 11
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC16667"
-puts "============"
-puts ""
-#######################################################################
-# 2D Offset algorithm fails
-#######################################################################
-
-restore [locate_data_file OCC16667-wire.brep] a
-
-mkoffset resoffset a 1 20
-renamevar resoffset_1 result
-
-set length 1451.49
-set nb_v_good 8
-set nb_e_good 8
-set nb_w_good 1
-set nb_f_good 0
-set nb_sh_good 0
-set nb_sol_good 0
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 17
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC16667"
-puts "============"
-puts ""
-#######################################################################
-# 2D Offset algorithm fails
-#######################################################################
-
-restore [locate_data_file OCC16667-wire.brep] a
-
-mkoffset resoffset a 1 -20
-renamevar resoffset_1 result
-
-set length 1200.16
-set nb_v_good 8
-set nb_e_good 8
-set nb_w_good 1
-set nb_f_good 0
-set nb_sh_good 0
-set nb_sol_good 0
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 17
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "============"
-puts "OCC16781"
-puts "============"
-puts ""
-#######################################################################
-# Wrong result of Cut operation.
-#######################################################################
-
-restore [locate_data_file OCC16781-wing_solid.brep] s1
-restore [locate_data_file OCC16781-extr.brep] s2
-
-bop s1 s2
-bopcut result
-
-set square 3.92094e+07
-set nb_v_good 14
-set nb_e_good 21
-set nb_w_good 9
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 56
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC17194"
-puts "============"
-puts ""
-#######################################################################
-# Incorrect section of a face got by extrusion of an arc of circle
-#######################################################################
-
-set BugNumber OCC17194
-
-circle f 0 0 0 0 0 1 1 0 0 20
-mkedge f f -pi/2 pi/2
-prism f f 50 0 30
-plane pl 10 0 0 1 0 4
-mkface pl pl
-bsection result f pl
-
-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 length 15.8064
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC17194"
-puts "============"
-puts ""
-#######################################################################
-# Incorrect section of a face got by extrusion of an arc of circle
-#######################################################################
-
-set BugNumber OCC17194
-
-circle f 0 0 0 0 0 1 1 0 0 20
-mkedge f f -pi/2 pi/2
-prism f f 50 0 30
-plane pl 10 0 10 1 0 4
-mkface pl pl
-bsection result f pl
-
-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 54.6122
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC17357"
-puts "============"
-puts ""
-#######################################################################
-# Any boolean operation is impossible between attached shapes
-#######################################################################
-
-restore [locate_data_file OCC17357-1.brep] b1
-restore [locate_data_file OCC17357-2.brep] b2
-
-bop b1 b2
-bopcommon result
-
-set square 1.18671
-set nb_v_good 10
-set nb_e_good 18
-set nb_w_good 8
-set nb_f_good 8
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 47
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC17357"
-puts "============"
-puts ""
-#######################################################################
-# Any boolean operation is impossible between attached shapes
-#######################################################################
-
-restore [locate_data_file OCC17357-1.brep] b1
-restore [locate_data_file OCC17357-2.brep] b2
-
-bop b1 b2
-bopfuse result
-
-set square 241.111
-set nb_v_good 16
-set nb_e_good 24
-set nb_w_good 12
-set nb_f_good 10
-set nb_sh_goodl 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 65
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC17357"
-puts "============"
-puts ""
-#######################################################################
-# Any boolean operation is impossible between attached shapes
-#######################################################################
-
-restore [locate_data_file OCC17357-1.brep] b1
-restore [locate_data_file OCC17357-2.brep] b2
-
-bop b1 b2
-bopcut result
-
-set square 241.111
-set nb_v_good 18
-set nb_e_good 30
-set nb_w_good 14
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 77
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC17357"
-puts "============"
-puts ""
-#######################################################################
-# Any boolean operation is impossible between attached shapes
-#######################################################################
-
-restore [locate_data_file OCC17357-1.brep] b1
-restore [locate_data_file OCC17357-2.brep] b2
-
-bop b1 b2
-boptuc result
-
-set square 1.18671
-set nb_v_good 8
-set nb_e_good 12
-set nb_w_good 6
-set nb_f_good 6
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 35
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC17357"
-puts "============"
-puts ""
-#######################################################################
-# Any boolean operation is impossible between attached shapes
-#######################################################################
-
-restore [locate_data_file OCC17357-1.brep] b1
-restore [locate_data_file OCC17357-2.brep] b2
-
-bop b1 b2
-bopsection result
-
-set length 3.84991
-
-set 2dviewer 0
-
+++ /dev/null
-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
-
+++ /dev/null
-
-puts "================"
-puts "BUC60938"
-puts "OCC178"
-puts "================"
-
-
-restore [locate_data_file BUC60937.brep] a
-
-explode a
-checkshape a_1
-checkshape a_2
-
-bcommon result a_1 a_2
-
-set square 152908
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "BUC60937"
-puts "OCC178"
-puts "================"
-
-restore [locate_data_file BUC60937.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_1 a_2
-
-set square 835463
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "BUC60936"
-puts "OCC178"
-puts "================"
-
-restore [locate_data_file BUC60937.brep] a
-
-explode a
-checkshape a_1
-checkshape a_2
-
-bcut result a_1 a_2
-
-set square 786002
-set 2dviewer 0
+++ /dev/null
-
-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
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-puts "============"
-puts "OCC18186"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operation algo fails
-#######################################################################
-
-restore [locate_data_file OCC18186_r3.brep] bb
-restore [locate_data_file OCC18186_Tool2.brep] bc
-
-bop bb bc
-bopcut result
-
-set square 308374
-set nb_v_good 43
-set nb_e_good 68
-set nb_w_good 27
-set nb_f_good 27
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 168
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC19071"
-puts "============"
-puts ""
-#######################################################################
-# The MakeFuse or the MakePartition function crash together on 2 torus
-#######################################################################
-
-set BugNumber OCC19071
-
-puts "Load first shape ..."
-restore [locate_data_file OCC19071_Rotation_2.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC19071_Torus_2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set square 177462
-
-set nb_v_good 6
-set nb_e_good 16
-set nb_w_good 6
-set nb_f_good 6
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 37
-
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC19793"
-puts "============"
-puts ""
-#######################################################################
-# Fuse problem of symetrical shapes. Appendix for NPAL19789
-#######################################################################
-
-cpulimit 100
-#cpulimit 4500
-set BugNumber OCC19793
-
-puts "Load first shape ..."
-restore [locate_data_file bug19793_new_shape.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file bug19793_shape.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result
-puts "Finish boolean operation ..."
-
-set length 17730.1
-
-set nb_e_good 1190
-set nb_v_good 68
-set nb_e_good 70
-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 139
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC19811"
-puts "============"
-puts ""
-#######################################################################
-# Scaling problem. Appendix for NPAL19806
-#######################################################################
-
-set BugNumber OCC19811
-
-puts "Load shape ..."
-restore [locate_data_file bug19811_VanneMP_supports_tiges_V3.brep] result
-
-puts "Scaling operation ..."
-if [catch { tscale result 0 0 0 0.5 } catch_result] {
- puts "Faulty ${BugNumber} : Scaling is wrong"
-}
-
-set square 1.6949e+06
-
-set nb_v_good 173
-set nb_e_good 285
-set nb_w_good 113
-set nb_f_good 113
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 686
-
-vinit
-vdisplay result
-vfit
-
-set only_screen 0
+++ /dev/null
-puts "============"
-puts "OCC20222"
-puts "============"
-puts ""
-#######################################################################
-# Chamfer operation produces incorrect shape (PACE-01-006)
-#######################################################################
-
-set BugNumber OCC20222
-
-restore [locate_data_file OCC20222.brep] s
-explode s f
-explode s_10 e
-chamf result s s_10_3 s_10 S 50
-
-checkshape result
-
-set square 712126
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_5 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result
-puts "Finish boolean operation ..."
-
-set length 750.952
-
-set nb_v_good 8
-set nb_e_good 7
-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 16
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_6 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-boptuc result
-puts "Finish boolean operation ..."
-
-set square 37856.9
-
-set nb_v_good 15
-set nb_e_good 22
-set nb_w_good 9
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 58
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_7 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result
-puts "Finish boolean operation ..."
-
-set length 446.679
-
-set nb_v_good 8
-set nb_e_good 8
-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 17
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_7 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-puts "Finish boolean operation ..."
-
-set square 17028.5
-
-set nb_v_good 12
-set nb_e_good 18
-set nb_w_good 8
-set nb_f_good 8
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 49
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_7 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set square 160323
-
-set nb_v_good 26
-set nb_e_good 39
-set nb_w_good 15
-set nb_f_good 15
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 98
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_7 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 135189
-
-set nb_v_good 20
-set nb_e_good 30
-set nb_w_good 12
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 77
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_7 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-boptuc result
-puts "Finish boolean operation ..."
-
-set square 42162.7
-
-set nb_v_good 18
-set nb_e_good 27
-set nb_w_good 11
-set nb_f_good 11
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 70
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_5 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-puts "Finish boolean operation ..."
-
-set square 17577
-
-set nb_v_good 8
-set nb_e_good 12
-set nb_w_good 6
-set nb_f_good 6
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 35
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_5 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set square 113140
-
-set nb_v_good 18
-set nb_e_good 28
-set nb_w_good 11
-set nb_f_good 11
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 71
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_5 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 92859.7
-
-set nb_v_good 13
-set nb_e_good 19
-set nb_w_good 8
-set nb_f_good 8
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 51
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_5 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-boptuc result
-puts "Finish boolean operation ..."
-
-set square 37856.9
-
-set nb_v_good 15
-set nb_e_good 22
-set nb_w_good 9
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 58
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : The length of result shape is"
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_6 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result
-puts "Finish boolean operation ..."
-
-set length 750.952
-
-set nb_v_good 8
-set nb_e_good 7
-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 16
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_6 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-puts "Finish boolean operation ..."
-
-set square 17577
-
-set nb_v_good 8
-set nb_e_good 12
-set nb_w_good 6
-set nb_f_good 6
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 35
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_6 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set square 113140
-
-set nb_v_good 18
-set nb_e_good 28
-set nb_w_good 11
-set nb_f_good 11
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 71
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC20285"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
-#######################################################################
-
-set BugNumber OCC20285
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20285-main.brep] a1
-explode a1
-renamevar a1_6 b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC20285-tool.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 92859.7
-
-set nb_v_good 13
-set nb_e_good 19
-set nb_w_good 8
-set nb_f_good 8
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 51
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20297"
-puts "Customer : TATA"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operations (for ex. fuse) fail for given shapes
-#######################################################################
-
-set BugNumber OCC20297
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20297_1.brep] a1
-explode a1
-renamevar a1_1 b1
-puts "Load second shape ..."
-restore [locate_data_file OCC20297_2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result
-puts "Finish boolean operation ..."
-
-set length 389.898
-
-set nb_v_good 64
-set nb_e_good 64
-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 129
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20297"
-puts "Customer : TATA"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operations (for ex. fuse) fail for given shapes
-#######################################################################
-#######################################################################
-
-set BugNumber OCC20297
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20297_1.brep] a1
-explode a1
-renamevar a1_1 b1
-puts "Load second shape ..."
-restore [locate_data_file OCC20297_2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-puts "Finish boolean operation ..."
-
-set square 31648.3
-
-set nb_v_good 129
-set nb_e_good 194
-set nb_w_good 71
-set nb_f_good 69
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 466
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20297"
-puts "Customer : TATA"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operations (for ex. fuse) fail for given shapes
-#######################################################################
-#######################################################################
-
-set BugNumber OCC20297
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20297_1.brep] a1
-explode a1
-renamevar a1_1 b1
-puts "Load second shape ..."
-restore [locate_data_file OCC20297_2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set square 46473.9
-
-set nb_v_good 140
-set nb_e_good 209
-set nb_w_good 83
-set nb_f_good 77
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 512
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20297"
-puts "Customer : TATA"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operations (for ex. fuse) fail for given shapes
-#######################################################################
-#######################################################################
-
-set BugNumber OCC20297
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20297_1.brep] a1
-explode a1
-renamevar a1_1 b1
-puts "Load second shape ..."
-restore [locate_data_file OCC20297_2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 69719.6
-
-set nb_v_good 141
-set nb_e_good 211
-set nb_w_good 86
-set nb_f_good 78
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 519
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20297"
-puts "Customer : TATA"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operations (for ex. fuse) fail for given shapes
-#######################################################################
-#######################################################################
-
-set BugNumber OCC20297
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20297_1.brep] a1
-explode a1
-renamevar a1_1 b1
-puts "Load second shape ..."
-restore [locate_data_file OCC20297_2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-boptuc result
-puts "Finish boolean operation ..."
-
-set square 8402.56
-
-set nb_v_good 128
-set nb_e_good 192
-set nb_w_good 68
-set nb_f_good 68
-set nb_sh_good 2
-set nb_sol_good 2
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 461
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20413"
-puts "============"
-puts ""
-#######################################################################
-# Section is wrong for given shapes
-#######################################################################
-
-set BugNumber OCC20413
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20413_a1.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC20413_a2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result
-puts "Finish boolean operation ..."
-
-set length 233.024
-
-set nb_v_good 9
-set nb_e_good 9
-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 19
-
-
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts "OCC20465"
-puts "========================"
-puts ""
-#######################################################################
-# Wrong checkshape results for shells
-#######################################################################
-
-set BugNumber OCC20465
-
-restore [locate_data_file OCC20465.brep] r
-
-checkshape r
-explode r f
-compound r_1 r_2 r_3 r_4 r_5 r_6 r_7 r_8 r_9 r_10 r_11 result
-
-set square 900
-
-set nb_v_good 23
-set nb_e_good 33
-set nb_w_good 13
-set nb_f_good 11
-set nb_sh_good 0
-set nb_sol_good 0
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 81
-
-set square 900
-set 2dviewer 0
-
+++ /dev/null
-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
-
-
+++ /dev/null
-puts "========"
-puts "OCC20785"
-puts "========"
-puts ""
-######################################################
-# Surfaces are empty after shading
-######################################################
-
-set BugNumber OCC20785
-
-restore [locate_data_file OCC20785.brep] 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
-vdisplay res
-vsetdispmode 1
-vfit
-
-set only_screen 0
-
-set scale 2.7840527693872859
-set center_X 3.7559505017270567e-07
-set center_Y -71.035163389154491
-set proj_X -0.89892524480819702
-set proj_Y -0.37323716282844543
-set proj_Z -0.22940616309642792
-set up_X -0.41990724205970764
-set up_Y 0.58468854427337646
-set up_Z 0.69413024187088013
-set at_X -74.980735778808594
-set at_Y 22.785961151123047
-set at_Z -49.215263366699219
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-set only_screen 0
-
+++ /dev/null
-puts "============"
-puts "OCC20793"
-puts "============"
-puts ""
-#######################################################################
-# BRepOffsetAPI_MakeOffset produces incorrect result
-#######################################################################
-
-set BugNumber OCC20793
-
-puts "Load shape ..."
-restore [locate_data_file OCC20793.brep] a
-
-if [catch { mkoffset resoffset a 1 10 } ] {
- puts "Faulty ${BugNumber} : mkoffset is wrong"
-} else {
- renamevar resoffset_1 result
-
-set length 671.746
-
-set nb_v_good 4
-set nb_e_good 4
-set nb_w_good 1
-set nb_f_good 0
-set nb_sh_good 0
-set nb_sol_good 0
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 9
-
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20807"
-puts "============"
-puts ""
-#######################################################################
-# Construction of pipe among a helix containing several convolutions fails
-#######################################################################
-
-set BugNumber OCC20807
-
-restore [locate_data_file bug20807_helix_10.brep] spine
-wire spine spine
-
-restore [locate_data_file bug20807_profile.brep] profile
-
-mksweep spine
-setsweep -CN 0 0 1
-addsweep profile
-
-buildsweep result
-
-set square 254837
-
-set nb_v_good 8
-set nb_e_good 12
-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 29
-
-set 2dviewer 1
+++ /dev/null
-puts "============"
-puts "OCC20807"
-puts "============"
-puts ""
-#######################################################################
-# Construction of pipe among a helix containing several convolutions fails
-#######################################################################
-
-set BugNumber OCC20807
-
-restore [locate_data_file bug20807_coil.brep] spine
-explode spine
-
-restore [locate_data_file bug20807_circ.brep] profile
-
-mksweep spine_1
-addsweep profile
-
-buildsweep result
-
-set square 44761.1
-
-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 2dviewer 1
+++ /dev/null
-puts "============"
-puts "OCC20807"
-puts "============"
-puts ""
-#######################################################################
-# Construction of pipe among a helix containing several convolutions fails
-#######################################################################
-
-set BugNumber OCC20807
-
-restore [locate_data_file bug20807_coil2.brep] spine
-
-restore [locate_data_file bug20807_circ2.brep] profile
-
-mksweep spine
-addsweep profile
-
-buildsweep result
-
-set square 2933.11
-
-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 2dviewer 1
+++ /dev/null
-puts "============"
-puts "OCC20807"
-puts "============"
-puts ""
-#######################################################################
-# Construction of pipe among a helix containing several convolutions fails
-#######################################################################
-
-set BugNumber OCC20807
-
-restore [locate_data_file bug20807_spiral.brep] sp
-explode sp
-wire spine sp_1
-
-restore [locate_data_file bug20807_circ3.brep] profile
-
-mksweep spine
-addsweep profile
-
-buildsweep result
-
-set square 4.78336e+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 0
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 8
-
-set 2dviewer 1
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "OCC2083"
-puts "============"
-puts ""
-######################################################
-# BRepOffsetAPI_MakePipeShell throws an exception
-######################################################
-
-restore [locate_data_file OCC2083-f1.brep] f1
-restore [locate_data_file OCC2083-f2.brep] f2
-restore [locate_data_file OCC2083-w.brep] s
-
-checkshape f1
-checkshape f2
-checkshape s
-
-explode f1 w
-explode f2 w
-mksweep s
-addsweep f1_1
-addsweep f2_1
-
-if { [catch {buildsweep result} catch_result] } {
- puts "Faulty OCC2083"
-}
-
-set square 36302.3
-set 3dviewer 1
+++ /dev/null
-puts "============"
-puts "OCC2083"
-puts "============"
-puts ""
-######################################################
-# BRepOffsetAPI_MakePipeShell throws an exception
-######################################################
-
-restore [locate_data_file OCC2083-f1.brep] f1
-restore [locate_data_file OCC2083-f2.brep] f2
-restore [locate_data_file OCC2083-w.brep] s
-
-checkshape f1
-checkshape f2
-checkshape s
-
-explode f1 w
-explode f2 w
-mksweep s
-addsweep f1_1 -T
-addsweep f2_1 -T
-
-if { [catch {buildsweep result} catch_result] } {
- puts "Faulty OCC2083"
-}
-
-set square 36583.8
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC2083"
-puts "============"
-puts ""
-######################################################
-# BRepOffsetAPI_MakePipeShell throws an exception
-######################################################
-
-restore [locate_data_file OCC2083-f1.brep] f1
-restore [locate_data_file OCC2083-f2.brep] f2
-restore [locate_data_file OCC2083-w.brep] s
-
-checkshape f1
-checkshape f2
-checkshape s
-
-explode f1 w
-explode f2 w
-mksweep s
-addsweep f1_1 -T
-addsweep f2_1
-
-if { [catch {buildsweep result} catch_result] } {
- puts "Faulty OCC2083"
-}
-
-set square 36546.8
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC2083"
-puts "============"
-puts ""
-######################################################
-# BRepOffsetAPI_MakePipeShell throws an exception
-######################################################
-
-restore [locate_data_file OCC2083-f1.brep] f1
-restore [locate_data_file OCC2083-f2.brep] f2
-restore [locate_data_file OCC2083-w.brep] s
-
-checkshape f1
-checkshape f2
-checkshape s
-
-explode f1 w
-explode f2 w
-mksweep s
-addsweep f1_1
-addsweep f2_1 -T
-
-if { [catch {buildsweep result} catch_result] } {
- puts "Faulty OCC2083"
-}
-
-set square 36339.5
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC20964"
-puts "Customer : TATA"
-puts "============"
-puts ""
-#######################################################################
-# Wrong result of cut operation for given shapes
-#######################################################################
-
-set BugNumber OCC20964
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20964_revsolid.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC20964_sphere.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result
-puts "Finish boolean operation ..."
-
-set length 323.636
-
-set nb_v_good 6
-set nb_e_good 6
-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 13
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20964"
-puts "Customer : TATA"
-puts "============"
-puts ""
-#######################################################################
-# Wrong result of cut operation for given shapes
-#######################################################################
-
-set BugNumber OCC20964
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20964_revsolid.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC20964_sphere.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-puts "Finish boolean operation ..."
-
-set square 5164.66
-
-set nb_v_good 8
-set nb_e_good 12
-set nb_w_good 6
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 34
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20964"
-puts "Customer : TATA"
-puts "============"
-puts ""
-#######################################################################
-# Wrong result of cut operation for given shapes
-#######################################################################
-
-set BugNumber OCC20964
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20964_revsolid.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC20964_sphere.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set square 828829
-
-set nb_v_good 20
-set nb_e_good 32
-set nb_w_good 18
-set nb_f_good 16
-set nb_sh_good 3
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 91
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20964"
-puts "Customer : TATA"
-puts "============"
-puts ""
-#######################################################################
-# Wrong result of cut operation for given shapes
-#######################################################################
-
-set BugNumber OCC20964
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20964_revsolid.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC20964_sphere.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 821892
-
-set nb_v_good 22
-set nb_e_good 35
-set nb_w_good 17
-set nb_f_good 14
-set nb_sh_good 2
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 92
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20964"
-puts "Customer : TATA"
-puts "============"
-puts ""
-#######################################################################
-# Wrong result of cut operation for given shapes
-#######################################################################
-
-set BugNumber OCC20964
-
-puts "Load first shape ..."
-restore [locate_data_file OCC20964_revsolid.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC20964_sphere.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-boptuc result
-puts "Finish boolean operation ..."
-
-set square 12101.2
-
-set nb_v_good 6
-set nb_e_good 9
-set nb_w_good 7
-set nb_f_good 7
-set nb_sh_good 2
-set nb_sol_good 2
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 34
-
-
-set 2dviewer 0
+++ /dev/null
-puts "================"
-puts "OCC21"
-puts "================"
-puts ""
-
-#test for XSDRAWEXE application#
-#==============================#
-
-pload XDE
-
-restore [locate_data_file OCC21.brep] sh
-checkshape sh
-puts "two faces in the compound share one edge"
-
-DT_SplitAngle result sh 90
-
-puts "in the resulting shape sharing is not preserved"
-
-set square 12154.8
-set 2dviewer 0
-
+++ /dev/null
-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
+++ /dev/null
-puts "========"
-puts "OCC212"
-puts "========"
-################################################
-## Bug in Topological "Common" boolean operation
-################################################
-
-restore [locate_data_file OCC212-1.brep] S1
-checkshape S1
-restore [locate_data_file OCC212-2.brep] S2
-checkshape S2
-
-bop S1 S2
-bopcommon result
-
-set square 314.301
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC21255"
-puts "============"
-puts ""
-#######################################################################
-# Some problems with 3D chamfer construction
-#######################################################################
-
-set BugNumber OCC21255
-
-restore [locate_data_file OCC21255-1.brep] ss
-explode ss F
-explode ss_7 E
-
-vinit
-if [catch { chamf result ss ss_7_2 ss_7 5. 5. } ] {
- puts "Faulty ${BugNumber} : chamf is wrong"
-} else {
-set square 45382.5
-
-set nb_v_good 15
-set nb_e_good 22
-set nb_w_good 9
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 58
-
- set 3dviewer 0
- vdisplay result
- vsetdispmode 1
- vfit
-
- set scale 5.8955238204183011
- set center_X -43.928617104386774
- set center_Y 295.47887425975171
- set proj_X 0.62061613798141479
- set proj_Y -0.6891753077507019
- set proj_Z -0.37399500608444214
- set up_X -0.12894462049007416
- set up_Y -0.56017255783081055
- set up_Z 0.81827831268310547
- set at_X 15.248310089111328
- set at_Y 165.90042114257812
- set at_Z 225.19309997558594
-
- vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-}
-
-set only_screen 1
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-1.brep] s
-
-thickshell result s 5
-
-set square 36766
-
-set nb_v_good 4
-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 0
-set nb_shape_good 24
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 5.8136266443689317
-set center_X -34.878384652992025
-set center_Y 41.518039353084561
-set proj_X 0.5689244270324707
-set proj_Y -0.54117375612258911
-set proj_Z -0.61923813819885254
-set up_X 0.48309960961341858
-set up_Y -0.38943690061569214
-set up_Z 0.78418976068496704
-set at_X -38.500396728515625
-set at_Y 34.677536010742188
-set at_Z -7.9150166511535645
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-5.brep] s
-
-thickshell result s -5
-
-set square 29923.6
-
-set nb_v_good 4
-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 0
-set nb_shape_good 24
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 6.3723487126883533
-set center_X -4.2632564145606011e-14
-set center_Y -22.430308400362279
-set proj_X 0.57735025882720947
-set proj_Y -0.57735025882720947
-set proj_Z 0.57735025882720947
-set up_X -0.40824827551841736
-set up_Y 0.40824827551841736
-set up_Z 0.81649655103683472
-set at_X 0
-set at_Y 0
-set at_Z 0
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-cone1.brep] s
-
-thickshell result s -5
-
-set square 11054.2
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 17.084273613995954
-set center_X 210.44987026890158
-set center_Y -5.2570485620847549
-set proj_X 0.98952245712280273
-set proj_Y -0.12535266578197479
-set proj_Z 0.071637466549873352
-set up_X -0.016377445310354233
-set up_Y 0.39552098512649536
-set up_Z 0.91831082105636597
-set at_X 121.38485717773438
-set at_Y -46.730243682861328
-set at_Z 83.376449584960938
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-revarc.brep] s
-
-thickshell result s -5
-
-set square 39635.4
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-revbzc.brep] s
-
-thickshell result s -5
-
-set square 73788.5
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-2137_tsrf.brep] s
-
-thickshell result s -5
-
-set square 27432.4
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Exception"
-puts "TODO OCC11111 ALL: An exception was caught"
-puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-2137_bss1_crash_C0.brep] s
-
-thickshell result s -5
-
-set square 27432.4
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-1988_ellipsepipesrf_1.brep] s
-
-thickshell result s -5
-
-set square 17366.2
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-1988_bscpipesrf_2.brep] s
-
-thickshell result s -5
-
-set square 10250
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-1.brep] s
-
-thickshell result s -5
-
-set square 30288.5
-
-set nb_v_good 4
-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 0
-set nb_shape_good 24
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-box_trim_thickening.brep] s
-
-thickshell result s -5
-
-set square 47143.4
-
-set nb_v_good 26
-set nb_e_good 47
-set nb_w_good 23
-set nb_f_good 21
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 119
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-1.brep] s
-
-thickshell result s -5
-
-set square 30288.5
-
-set nb_v_good 4
-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 0
-set nb_shape_good 24
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 5.8136266443689317
-set center_X -34.878384652992025
-set center_Y 41.518039353084561
-set proj_X 0.5689244270324707
-set proj_Y -0.54117375612258911
-set proj_Z -0.61923813819885254
-set up_X 0.48309960961341858
-set up_Y -0.38943690061569214
-set up_Z 0.78418976068496704
-set at_X -38.500396728515625
-set at_Y 34.677536010742188
-set at_Z -7.9150166511535645
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-comb.brep] s
-
-thickshell result s -5
-
-set square 25639.3
-
-set nb_v_good 18
-set nb_e_good 31
-set nb_w_good 17
-set nb_f_good 15
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 83
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Exception"
-puts "TODO OCC11111 ALL: An exception was caught"
-puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-comb1.brep] s
-
-thickshell result s -5
-
-set square 25639.3
-
-set nb_v_good 18
-set nb_e_good 31
-set nb_w_good 17
-set nb_f_good 15
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 83
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-2.brep] s
-
-thickshell result s -5
-
-set square 66487
-
-set nb_v_good 12
-set nb_e_good 24
-set nb_w_good 12
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 62
-
-
-
-vinit
-vdisplay result
-vsetdispmode 1
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-3.brep] s
-
-thickshell result s -5
-
-set square 115498
-
-set nb_v_good 24
-set nb_e_good 48
-set nb_w_good 24
-set nb_f_good 24
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 122
-
-
-
-vinit
-vdisplay result
-vsetdispmode 1
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-4.brep] s
-
-thickshell result s -5
-
-set square 44935.7
-
-set nb_v_good 16
-set nb_e_good 28
-set nb_w_good 14
-set nb_f_good 14
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 74
-
-
-
-vinit
-vdisplay result
-vsetdispmode 1
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-5.brep] s
-
-thickshell result s -5
-
-set square 29923.6
-
-set nb_v_good 4
-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 0
-set nb_shape_good 24
-
-
-
-vinit
-vdisplay result
-vsetdispmode 1
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-cone1.brep] s
-
-thickshell result s -5
-
-set square 11054.2
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 1
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-revarc.brep] s
-
-thickshell result s -5
-
-set square 39635.4
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 1
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-revbzc.brep] s
-
-thickshell result s -5
-
-set square 73788.5
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 1
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-uneven_thickening.brep] s
-
-thickshell result s -2
-
-set square 4087.41
-
-set nb_v_good 30
-set nb_e_good 51
-set nb_w_good 21
-set nb_f_good 21
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 125
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-2.brep] s
-
-thickshell result s 5
-
-set square 61710.5
-
-set nb_v_good 12
-set nb_e_good 24
-set nb_w_good 12
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 62
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 5.4752524438940986
-set center_X 0.12443750381514462
-set center_Y 30.91257192276079
-set proj_X 0.75705158710479736
-set proj_Y -0.55456298589706421
-set proj_Z 0.34544554352760315
-set up_X -0.26271694898605347
-set up_Y 0.22571359574794769
-set up_Z 0.93810069561004639
-set at_X -8.4405813217163086
-set at_Y 5.1293683052062988
-set at_Z 1.3484655618667603
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-2137_tsrf.brep] s
-
-thickshell result s 5
-
-set square 27432.4
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-1988_ellipsepipesrf_1.brep] s
-
-thickshell result s 2
-
-set square 9163.91
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-1988_bscpipesrf_2.brep] s
-
-thickshell result s 2
-
-set square 5315.89
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-box_trim_thickening.brep] s
-
-thickshell result s 5
-
-set square 50357.1
-
-set nb_v_good 34
-set nb_e_good 67
-set nb_w_good 35
-set nb_f_good 33
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 171
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-box_trim_thickening.brep] s
-
-thickshell result s 5 i
-
-set square 50743.4
-
-set nb_v_good 26
-set nb_e_good 47
-set nb_w_good 23
-set nb_f_good 21
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 119
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-box_trim_thickening.brep] s
-
-thickshell result s -5 i
-
-set square 47143.4
-
-set nb_v_good 26
-set nb_e_good 47
-set nb_w_good 23
-set nb_f_good 21
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 119
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-comb.brep] s
-
-thickshell result s 5
-
-set square 24835.8
-
-set nb_v_good 16
-set nb_e_good 26
-set nb_w_good 14
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 70
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-comb.brep] s
-
-thickshell result s 5 i
-
-set square 24835.8
-
-set nb_v_good 16
-set nb_e_good 26
-set nb_w_good 14
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 70
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-comb.brep] s
-
-thickshell result s -5 i
-
-set square 25735.8
-
-set nb_v_good 16
-set nb_e_good 26
-set nb_w_good 14
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 70
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-uneven_thickening.brep] s
-
-thickshell result s 2
-
-set square 4435.62
-
-set nb_v_good 30
-set nb_e_good 51
-set nb_w_good 21
-set nb_f_good 21
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 125
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-2.brep] s
-
-thickshell result s -5
-
-set square 66487
-
-set nb_v_good 12
-set nb_e_good 24
-set nb_w_good 12
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 62
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 5.4752524438940986
-set center_X 0.12443750381514462
-set center_Y 30.91257192276079
-set proj_X 0.75705158710479736
-set proj_Y -0.55456298589706421
-set proj_Z 0.34544554352760315
-set up_X -0.26271694898605347
-set up_Y 0.22571359574794769
-set up_Z 0.93810069561004639
-set at_X -8.4405813217163086
-set at_Y 5.1293683052062988
-set at_Z 1.3484655618667603
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-3.brep] s
-
-thickshell result s -5 i
-
-set square 115498
-
-set nb_v_good 24
-set nb_e_good 48
-set nb_w_good 24
-set nb_f_good 24
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 122
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 4.1681300306816444
-set center_X 0.13164276086378379
-set center_Y 6.6154949824974238
-set proj_X 0.48621529340744019
-set proj_Y -0.47558537125587463
-set proj_Z 0.73308473825454712
-set up_X -0.51949578523635864
-set up_Y 0.51725912094116211
-set up_Z 0.68012285232543945
-set at_X 1.1775522232055664
-set at_Y -1.214188814163208
-set at_Z 0.14915035665035248
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-3.brep] s
-
-thickshell result s 5 i
-
-set square 110064
-
-set nb_v_good 24
-set nb_e_good 48
-set nb_w_good 24
-set nb_f_good 24
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 122
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 4.1681300306816444
-set center_X 0.13164276086378379
-set center_Y 6.6154949824974238
-set proj_X 0.48621529340744019
-set proj_Y -0.47558537125587463
-set proj_Z 0.73308473825454712
-set up_X -0.51949578523635864
-set up_Y 0.51725912094116211
-set up_Z 0.68012285232543945
-set at_X 1.1775522232055664
-set at_Y -1.214188814163208
-set at_Z 0.14915035665035248
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-4.brep] s
-
-thickshell result s -5 i
-
-set square 44935.7
-
-set nb_v_good 16
-set nb_e_good 28
-set nb_w_good 14
-set nb_f_good 14
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 74
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 5.7979972910353759
-set center_X 134.00320461480183
-set center_Y 57.36536300752401
-set proj_X 0.40099617838859558
-set proj_Y -0.39083370566368103
-set proj_Z 0.82852339744567871
-set up_X -0.58777821063995361
-set up_Y 0.58394128084182739
-set up_Z 0.55993682146072388
-set at_X 14.468252182006836
-set at_Y -14.975484848022461
-set at_Z -8.813446044921875
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-4.brep] s
-
-thickshell result s 5 i
-
-set square 43286.4
-
-set nb_v_good 16
-set nb_e_good 28
-set nb_w_good 14
-set nb_f_good 14
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 74
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 5.7979972910353759
-set center_X 134.00320461480183
-set center_Y 57.36536300752401
-set proj_X 0.40099617838859558
-set proj_Y -0.39083370566368103
-set proj_Z 0.82852339744567871
-set up_X -0.58777821063995361
-set up_Y 0.58394128084182739
-set up_Z 0.55993682146072388
-set at_X 14.468252182006836
-set at_Y -14.975484848022461
-set at_Z -8.813446044921875
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-cone1.brep] s
-
-thickshell result s 5
-
-set square 14506.6
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 17.084273613995954
-set center_X 210.44987026890158
-set center_Y -5.2570485620847549
-set proj_X 0.98952245712280273
-set proj_Y -0.12535266578197479
-set proj_Z 0.071637466549873352
-set up_X -0.016377445310354233
-set up_Y 0.39552098512649536
-set up_Z 0.91831082105636597
-set at_X 121.38485717773438
-set at_Y -46.730243682861328
-set at_Z 83.376449584960938
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-revarc.brep] s
-
-thickshell result s 5
-
-set square 48246.4
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-revbzc.brep] s
-
-thickshell result s 5
-
-set square 83884.6
-
-set nb_v_good 4
-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 22
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-3.brep] s
-
-thickshell result s 5
-
-set square 110064
-
-set nb_v_good 24
-set nb_e_good 48
-set nb_w_good 24
-set nb_f_good 24
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 122
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 4.1681300306816444
-set center_X 0.13164276086378379
-set center_Y 6.6154949824974238
-set proj_X 0.48621529340744019
-set proj_Y -0.47558537125587463
-set proj_Z 0.73308473825454712
-set up_X -0.51949578523635864
-set up_Y 0.51725912094116211
-set up_Z 0.68012285232543945
-set at_X 1.1775522232055664
-set at_Y -1.214188814163208
-set at_Z 0.14915035665035248
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-3.brep] s
-
-thickshell result s -5
-
-set square 115498
-
-set nb_v_good 24
-set nb_e_good 48
-set nb_w_good 24
-set nb_f_good 24
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 122
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 4.1681300306816444
-set center_X 0.13164276086378379
-set center_Y 6.6154949824974238
-set proj_X 0.48621529340744019
-set proj_Y -0.47558537125587463
-set proj_Z 0.73308473825454712
-set up_X -0.51949578523635864
-set up_Y 0.51725912094116211
-set up_Z 0.68012285232543945
-set at_X 1.1775522232055664
-set at_Y -1.214188814163208
-set at_Z 0.14915035665035248
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-4.brep] s
-
-thickshell result s 5
-
-set square 43286.4
-
-set nb_v_good 16
-set nb_e_good 28
-set nb_w_good 14
-set nb_f_good 14
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 74
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 5.7979972910353759
-set center_X 134.00320461480183
-set center_Y 57.36536300752401
-set proj_X 0.40099617838859558
-set proj_Y -0.39083370566368103
-set proj_Z 0.82852339744567871
-set up_X -0.58777821063995361
-set up_Y 0.58394128084182739
-set up_Z 0.55993682146072388
-set at_X 14.468252182006836
-set at_Y -14.975484848022461
-set at_Z -8.813446044921875
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-4.brep] s
-
-thickshell result s -5
-
-set square 44935.7
-
-set nb_v_good 16
-set nb_e_good 28
-set nb_w_good 14
-set nb_f_good 14
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 74
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 5.7979972910353759
-set center_X 134.00320461480183
-set center_Y 57.36536300752401
-set proj_X 0.40099617838859558
-set proj_Y -0.39083370566368103
-set proj_Z 0.82852339744567871
-set up_X -0.58777821063995361
-set up_Y 0.58394128084182739
-set up_Z 0.55993682146072388
-set at_X 14.468252182006836
-set at_Y -14.975484848022461
-set at_Z -8.813446044921875
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC21261"
-puts "Customer : TATA"
-puts "========"
-puts ""
-######################################################
-# Implementation of thickening of shell functionality
-######################################################
-
-set BugNumber OCC21261
-
-restore [locate_data_file OCC21261-5.brep] s
-
-thickshell result s 5
-
-set square 36363.8
-
-set nb_v_good 4
-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 0
-set nb_shape_good 24
-
-
-
-vinit
-vdisplay result
-vsetdispmode 0
-vfit
-
-set scale 6.3723487126883533
-set center_X -4.2632564145606011e-14
-set center_Y -22.430308400362279
-set proj_X 0.57735025882720947
-set proj_Y -0.57735025882720947
-set proj_Z 0.57735025882720947
-set up_X -0.40824827551841736
-set up_Y 0.40824827551841736
-set up_Z 0.81649655103683472
-set at_X 0
-set at_Y 0
-set at_Z 0
-
-vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
-
-set only_screen 0
+++ /dev/null
-puts "========"
-puts "OCC212"
-puts "========"
-################################################
-## Bug in Topological "Common" boolean operation
-################################################
-
-restore [locate_data_file OCC212-1.brep] S1
-checkshape S1
-restore [locate_data_file OCC212-2.brep] S2
-checkshape S2
-
-bcommon result S1 S2
-
-set square 314.301
-set 3dviewer 0
-
+++ /dev/null
-puts "========"
-puts "OCC212"
-puts "========"
-################################################
-## Bug in Topological "Common" boolean operation
-################################################
-
-restore [locate_data_file OCC212-1.brep] S1
-checkshape S1
-restore [locate_data_file OCC212-2.brep] S2
-checkshape S2
-
-bcommon result S2 S1
-
-set square 314.301
-set 3dviewer 0
-
+++ /dev/null
-puts "========"
-puts "OCC212"
-puts "========"
-################################################
-## Bug in Topological "Common" boolean operation
-################################################
-
-restore [locate_data_file OCC212-1.brep] S1
-checkshape S1
-restore [locate_data_file OCC212-2.brep] S2
-checkshape S2
-
-bop S1 S2
-bopcommon result
-
-set square 314.301
-set 2dviewer 1
-
+++ /dev/null
-puts "========"
-puts "OCC213"
-puts "========"
-################################################
-## Bug in Topological "fuse" boolean operation
-################################################
-
-cpulimit 3500
-
-restore [locate_data_file OCC213-1.brep] S1
-checkshape S1
-restore [locate_data_file OCC213-2.brep] S2
-checkshape S2
-
-bop S1 S2
-bopfuse result
-
-set square 4835.45
-set 2dviewer 1
-
+++ /dev/null
-puts "========"
-puts "OCC213"
-puts "========"
-################################################
-## Bug in Topological "fuse" boolean operation
-################################################
-
-restore [locate_data_file OCC213-1.brep] S1
-checkshape S1
-restore [locate_data_file OCC213-2.brep] S2
-checkshape S2
-
-bfuse result S1 S2
-set square 4835.45
-set 3dviewer 0
-
+++ /dev/null
-puts "========"
-puts "OCC213"
-puts "========"
-################################################
-## Bug in Topological "fuse" boolean operation
-################################################
-
-restore [locate_data_file OCC213-1.brep] S1
-checkshape S1
-restore [locate_data_file OCC213-2.brep] S2
-checkshape S2
-
-bfuse result S2 S1
-set square 4835.45
-set 3dviewer 0
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "OCC21448"
-puts "============"
-puts ""
-#######################################################################
-# Invalid result of BRepOffsetAPI_MakePipeShell
-#######################################################################
-
-set BugNumber OCC21448
-
-puts "Load first shape ..."
-restore [locate_data_file bug21448_base_1.brep] base1
-
-puts "Load second shape ..."
-restore [locate_data_file bug21448_Invert_2.brep] Invert_2
-
-puts "Load third shape ..."
-restore [locate_data_file bug21448_chemin.brep] chemin
-
-puts "Prepare shapes ..."
-wire w1 chemin
-explode base1 W
-explode Invert_2 W
-explode chemin V
-
-puts "Start Make pipe ..."
-mksweep w1
-addsweep base1_1 chemin_1 -R
-addsweep Invert_2_1 chemin_2 -R
-buildsweep result
-puts "Finish Make pipe ..."
-
-set square 1040.94
-
-set nb_v_good 4
-set nb_e_good 6
-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 15
-
-vinit
-vsetdispmode 0
-vdisplay result
-vfit
-
-set only_screen 0
+++ /dev/null
-puts "============"
-puts "OCC21460"
-puts "============"
-puts ""
-#######################################################################
-# SIGFPE in BOP on two attached edges
-#######################################################################
-
-set BugNumber OCC21460
-
-puts "Load first shape ..."
-restore [locate_data_file bug21460_aE1.brep] e1
-
-puts "Load second shape ..."
-restore [locate_data_file bug21460_aE2.brep] e2
-
-puts "Prepare boolean operation ..."
-bop e1 e2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set mistake 0
-
-set length 448.285
-
-set nb_v_good 5
-set nb_e_good 4
-set nb_w_good 1
-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 11
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC21540"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operation section produces wrong result (OCC 6.3.1)
-#######################################################################
-
-set BugNumber OCC21540
-
-puts "Load first shape ..."
-restore [locate_data_file OCC21540-HalfSpace.brep] b1
-
-puts "Load second shape ..."
-restore [locate_data_file OCC21540-Shape.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result
-puts "Finish boolean operation ..."
-
-set length 462.35
-
-set nb_v_good 58
-set nb_e_good 58
-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 117
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC21652"
-puts "Customer : TATA"
-puts "============"
-puts ""
-#######################################################################
-# TATA-08-005 Problem with offset on the wire
-#######################################################################
-
-set BugNumber OCC21652
-
-puts "Load shape ..."
-restore [locate_data_file OCC21652.brep] a
-
-if [catch { mkoffset resoffset a 1 1.0 } ] {
- puts "Faulty ${BugNumber} : mkoffset is wrong"
-} else {
- renamevar resoffset_1 result
-
-set length 372.531
-
-set nb_v_good 93
-set nb_e_good 93
-set nb_w_good 1
-set nb_f_good 0
-set nb_sh_good 0
-set nb_sol_good 0
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 187
-}
-
-set 2dviewer 1
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC21652"
-puts "Customer : TATA"
-puts "============"
-puts ""
-#######################################################################
-# TATA-08-005 Problem with offset on the wire
-#######################################################################
-
-set BugNumber OCC21652
-
-puts "Load shape ..."
-restore [locate_data_file OCC21652.brep] a
-
-if [catch { mkoffset resoffset a 1 0.9 } ] {
- puts "Faulty ${BugNumber} : mkoffset is wrong"
-} else {
- renamevar resoffset_1 result
-
-set length 371.913
-
-set nb_v_good 93
-set nb_e_good 93
-set nb_w_good 1
-set nb_f_good 0
-set nb_sh_good 0
-set nb_sol_good 0
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 187
-}
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC21722"
-puts "============"
-puts ""
-#######################################################################
-# The operation Section produces non-complete result.
-#######################################################################
-
-set BugNumber OCC21722
-
-puts "Load shape ..."
-restore [locate_data_file OCC21722.brep] g
-
-puts "Prepare first shape ..."
-explode g
-copy g_1 b1
-
-puts "Prepare second shape ..."
-copy g_2 b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result
-puts "Finish boolean operation ..."
-
-set length 1.91376
-
-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 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC2172"
-puts "============"
-puts ""
-######################################################
-# Fuse operation produces invalid shape
-######################################################
-## (new topology)
-## (bfuse)
-######################################################
-
-restore [locate_data_file OCC2172-torus.brep] torus
-restore [locate_data_file OCC2172-cylinder.brep] cylinder
-
-checkshape torus
-checkshape cylinder
-
-bfuse result torus cylinder
-
-set square 28603.8
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC2172"
-puts "============"
-puts ""
-######################################################
-# Fuse operation produces invalid shape
-######################################################
-## (new topology)
-## (bfuse)
-######################################################
-
-restore [locate_data_file OCC2172-torus.brep] torus
-restore [locate_data_file OCC2172-cylinder.brep] cylinder
-
-checkshape torus
-checkshape cylinder
-
-bfuse result cylinder torus
-
-set square 28603.8
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC2172"
-puts "============"
-puts ""
-######################################################
-# Fuse operation produces invalid shape
-######################################################
-## (old topology)
-## (fuse)
-######################################################
-
-restore [locate_data_file OCC2172-torus.brep] torus
-restore [locate_data_file OCC2172-cylinder.brep] cylinder
-
-checkshape torus
-checkshape cylinder
-
-if { [catch {bfuse result torus cylinder} catch_result] } {
- puts "Faulty OCC2172"
-}
-
-set square 28603.8
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC2172"
-puts "============"
-puts ""
-######################################################
-# Fuse operation produces invalid shape
-######################################################
-## (old topology)
-## (fuse)
-######################################################
-
-restore [locate_data_file OCC2172-torus.brep] torus
-restore [locate_data_file OCC2172-cylinder.brep] cylinder
-
-checkshape torus
-checkshape cylinder
-
-if { [catch {bfuse result cylinder torus} catch_result] } {
- puts "Faulty OCC2172"
-}
-
-set square 28603.8
-set 3dviewer 1
-
+++ /dev/null
-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
-
+++ /dev/null
-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
-
+++ /dev/null
-puts "========"
-puts "OCC221"
-puts "========"
-puts ""
-######################################################################
-##After loading attached file (one simple face) checkshape give a problem (Bad Orientation of SubShape)
-## but I believe that this face is correct. Also I believe that face is vitiated during performing checkshape
-## (perhaps - in BRepCheck_Face::ClassifyWire())
-######################################################################
-
-restore [locate_data_file OCC221.brep] result
-set che [checkshape result r]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty OCC221 (checkshape) : Checkshape command works wrongly"
-} else {
- puts "OCC221 OK (checkshape) : Checkshape command works properly"
-}
-puts ""
-set che [checkshape result]
-if { [regexp {Faulty} $che] == 1} {
- puts "Faulty OCC221 (checkshape) : Checkshape command works wrongly"
-} else {
- puts "OCC221 OK (checkshape) : Checkshape command works properly"
-}
-
-set square 425.537
-set 2dviewer 0
-
-
+++ /dev/null
-puts "============"
-puts "OCC22109"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operation common fails. Appendix to the SALOME bug: 0021060
-#######################################################################
-
-set BugNumber OCC22109
-
-puts "Load first shape ..."
-restore [locate_data_file bug22109_Solid_24.brep] b1
-
-puts "Load second shape ..."
-restore [locate_data_file bug22109_tore.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-puts "Finish boolean operation ..."
-
-set nb_v_good 0
-set nb_e_good 0
-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 1
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC22109"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operation common fails. Appendix to the SALOME bug: 0021060
-#######################################################################
-
-set BugNumber OCC22109
-
-puts "Load first shape ..."
-restore [locate_data_file bug22109_Solid_24.brep] b1
-
-puts "Load second shape ..."
-restore [locate_data_file bug22109_tore.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set square 87449.7
-
-set nb_v_good 17
-set nb_e_good 25
-set nb_w_good 14
-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 69
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC22109"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operation common fails. Appendix to the SALOME bug: 0021060
-#######################################################################
-
-set BugNumber OCC22109
-
-puts "Load first shape ..."
-restore [locate_data_file bug22109_Solid_24.brep] b1
-
-puts "Load second shape ..."
-restore [locate_data_file bug22109_tore.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 87443.6
-
-set nb_v_good 16
-set nb_e_good 23
-set nb_w_good 14
-set nb_f_good 10
-set nb_sh_good 2
-set nb_sol_good 2
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 68
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC22109"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operation common fails. Appendix to the SALOME bug: 0021060
-#######################################################################
-
-set BugNumber OCC22109
-
-puts "Load first shape ..."
-restore [locate_data_file bug22109_Solid_24.brep] b1
-
-puts "Load second shape ..."
-restore [locate_data_file bug22109_tore.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-boptuc result
-puts "Finish boolean operation ..."
-
-set square 1140.6
-
-set nb_v_good 5
-set nb_e_good 9
-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 25
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC22109"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operation common fails. Appendix to the SALOME bug: 0021060
-#######################################################################
-
-set BugNumber OCC22109
-
-puts "Load first shape ..."
-restore [locate_data_file bug22109_Solid_24.brep] b1
-
-puts "Load second shape ..."
-restore [locate_data_file bug22109_tore.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result
-puts "Finish boolean operation ..."
-
-set length 127.699
-
-set nb_v_good 4
-set nb_e_good 6
-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 11
-
-
-set 2dviewer 0
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "OCC22310"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operation common fails. Appendix to the SALOME bug: 0021128
-#######################################################################
-
-set BugNumber OCC22310
-
-puts "Load first shape ..."
-restore [locate_data_file bug22310_vol_inf_30.brep] b1
-
-puts "Load second shape ..."
-restore [locate_data_file bug22310_vol_sup_30.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-puts "Finish boolean operation ..."
-
-set square 0.0457691
-
-set nb_v_good 6
-set nb_e_good 9
-set nb_w_good 5
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 28
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC22356"
-puts "============"
-puts ""
-#######################################################################
-# The result of fuse is not valid for two straight edges.
-# Appendix to the SALOME bug: IPAL22182
-#######################################################################
-
-set BugNumber OCC22356
-
-restore [locate_data_file bug22356_cy.brep] bq
-explode bq e
-copy bq_1 b1
-copy bq_2 b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-puts "Finish boolean operation ..."
-
-set length 300
-
-set nb_v_good 3
-set nb_e_good 2
-set nb_w_good 1
-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 2dviewer 0
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "OCC22409"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operation cut fails. Appendix to the SALOME bug: 0019957
-#######################################################################
-
-set BugNumber OCC22409
-
-puts "Load first shape ..."
-restore [locate_data_file bug22409_Defaut1.brep] b1
-
-puts "Load second shape ..."
-restore [locate_data_file bug22409_Solid_7.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-puts "Finish boolean operation ..."
-
-set square 14969
-
-set nb_v_good 6
-set nb_e_good 9
-set nb_w_good 5
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 28
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC22409"
-puts "============"
-puts ""
-#######################################################################
-# Boolean operation cut fails. Appendix to the SALOME bug: 0019957
-#######################################################################
-
-set BugNumber OCC22409
-
-puts "Load first shape ..."
-restore [locate_data_file bug22409_bloc.brep] b1
-
-puts "Load second shape ..."
-restore [locate_data_file bug22409_Defaut1_new.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 366764
-
-set nb_v_good 40
-set nb_e_good 60
-set nb_w_good 22
-set nb_f_good 22
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 147
-
-
-set 2dviewer 0
+++ /dev/null
-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
-
+++ /dev/null
-puts "============"
-puts "OCC22436"
-puts "============"
-puts ""
-#######################################################################
-# Extra compound is created when importing non-manifold topology from STEP file
-#######################################################################
-
-catch { pload XDE }
-
-set BugNumber OCC22436
-
-param read.step.nonmanifold 1
-
-stepread [locate_data_file bug22436_box.step] b1 *
-renamevar b1_1 result
-
-set square 3.2e+11
-
-set nb_v_good 12
-set nb_e_good 20
-set nb_w_good 11
-set nb_f_good 11
-set nb_sh_good 2
-set nb_sol_good 2
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 59
-
-set 2dviewer 0
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "OCC22557"
-puts "============"
-puts ""
-#######################################################################
-# Bad result of the Cut operation (for CAS63-sp12-*)
-#######################################################################
-
-set BugNumber OCC22557
-
-puts "Load first shape ..."
-restore [locate_data_file bug22557_Bloc_racine_70deg.brep] b1
-
-puts "Load second shape ..."
-restore [locate_data_file bug22557_PaveEntree.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 0.172993
-
-set nb_v_good 192
-set nb_e_good 288
-set nb_w_good 98
-set nb_f_good 98
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 679
-
-
-set 2dviewer 0
+++ /dev/null
-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}"
-}
-
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "OCC22588"
-puts "============"
-puts ""
-#######################################################################
-# Revolution with negative volume in some cases
-#######################################################################
-
-set BugNumber OCC22588
-
-vertex v1 0 0 0
-vertex v12 0 0 160
-vertex v13 25 0 25
-edge e7 v1 v12
-edge e8 v12 v13
-edge e9 v13 v1
-wire w2 e7 e8 e9
-plane pln1 25 0 25 0 1 0 -25 0 -25
-mkface face2 pln1 w2
-revol result face2 0 0 0 0 0 1 45
-
-set square 5694.99
-
-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
-
-vinit
-vdisplay result
-vfit
-
-set only_screen 0
-
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "OCC22678"
-puts "============"
-puts ""
-#######################################################################
-# Bad result of the Cut operation.
-#######################################################################
-
-set BugNumber OCC22678
-
-puts "Load first shape ..."
-restore [locate_data_file bug22678_objCut.brep] b1
-
-puts "Load second shape ..."
-restore [locate_data_file bug22678_toolCut.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-puts "Finish boolean operation ..."
-
-set square 574348
-
-set nb_v_good 17
-set nb_e_good 29
-set nb_w_good 16
-set nb_f_good 15
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 80
-
-
-set 2dviewer 0
+++ /dev/null
-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
-
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-puts "========================"
-puts "OCC22804"
-puts "========================"
-puts ""
-#######################################################################
-# Sewing increases tolerance of vertices for redundant value.
-#######################################################################
-
-set BugNumber OCC22804
-
-catch {pload XDE}
-
-restore [locate_data_file OCC22804-sew_bug.brep] a
-
-set tol 200
-sewing result ${tol} a
-
-set ToleranceList [tolerance result]
-regexp {Tolerance MAX=([-0-9.+eE]+)} $ToleranceList full oTolerance
-regexp {FACE[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full FaceTolerance
-regexp {EDGE[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full EdgeTolerance
-regexp {VERTEX[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full VertexTolerance
-
-set percent_max 0.1
-
-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 IsOk 1
-
-set minTolerance ${EdgeTolerance}
-if { ${minTolerance} > ${VertexTolerance} } {
- set minTolerance $(VertexTolerance)
-}
-
-set minTolerance_percent [GetPercent ${minTolerance} ${oTolerance}]
-puts "minTolerance_percent = ${minTolerance_percent} %"
-if { ${minTolerance_percent} > ${percent_max} } {
- set IsOk 0
-}
-
-if { ${IsOk} == 0 } {
- puts "${BugNumber}: Faulty"
-} else {
- puts "${BugNumber}: OK"
-}
-
-set square 1.22542e+09
-set 2dviewer 0
-
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "OCC22864"
-puts "============"
-puts ""
-##############################################################################################
-# The algorithm BiTgte_Blend obtains instable results
-##############################################################################################
-
-set BugNumber OCC22864
-
-restore [locate_data_file bug22864_face1.brep] f1
-restore [locate_data_file bug22864_face2.brep] f2
-
-shape aShape C
-add f1 aShape
-add f2 aShape
-
-#
-set status 0
-#
-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 1
-set nb_shape_good 8
-#
-set Numbers 11
-#
-for {set i 0} {$i < ${Numbers}} {incr i} {
- puts "i=$i"
- rollingball result aShape 15 @ f1 f2
-
- set nb_info [nbshapes result]
- regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v
- regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_e
- regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full nb_w
- regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_f
- regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_sh
- regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_sol
- regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nb_compsol
- regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound
- regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_shape
-
- if {$nb_v != $nb_v_good || $nb_e != $nb_e_good ||
- $nb_w != $nb_w_good || $nb_f != $nb_f_good ||
- $nb_sh != $nb_sh_good || $nb_sol != $nb_sol_good ||
- $nb_compsol != $nb_compsol_good || $nb_compound != $nb_compound_good ||
- $nb_shape != $nb_shape_good } {
- set status 1
- }
-
- set aFile $imagedir/${test_image}.brep
- puts "aFile=${aFile}"
- file delete ${aFile}
- if { [file exists ${aFile}] } {
- puts "There is old ${aFile} file; Error"
- set status 1
- }
- #
- save result ${aFile}
- catch {exec chmod 777 ${aFile}}
- if { ![file exists ${aFile}] } {
- puts "There is not ${aFile} file; save command: Error"
- set status 1
- }
-
- set fp [open ${aFile} "r"]
- set Log [read -nonewline ${fp}]
- close ${fp}
- #
- if {$i == 0} {
- set StandardLog ${Log}
- } else {
- set info_result [string compare ${Log} ${StandardLog}]
- if {${info_result} == 0} {
- # Log == StandardLog
- puts "Log == StandardLog"
- } else {
- # Log != StandardLog
- set status 1
- puts "Log != StandardLog"
- }
- }
-}
-
-# Resume
-puts ""
-if {${status} == 0} {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set square 6935.38
-set 2dviewer 0
-
-
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-puts "============"
-puts "OCC22893"
-puts "============"
-puts ""
-#############################################################################
-# Possible regression is tesselation algorithm of OCCT 6.5.2
-#############################################################################
-
-set BugNumber OCC22893
-
-catch {pload XDE}
-
-igesread [locate_data_file OCC22893-thread_22534_boing777.igs] result *
-
-set square 26974.5
-
-set nb_v_good 4183
-set nb_e_good 4191
-set nb_w_good 653
-set nb_f_good 639
-set nb_sh_good 0
-set nb_sol_good 0
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 9667
-
-set 2dviewer 0
-
-
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "OCC22967"
-puts "============"
-puts ""
-############################################################################################################
-# Boolean operations between two cylinders with orthogonal axis generate a shape with big vertex tolerance
-###########################################################################################################
-
-set BugNumber OCC22967
-set check_value 1.04742e-05
-
-restore [locate_data_file bug22967_Cylinder_1.brep] b1
-restore [locate_data_file bug22967_Scale_1.brep] b2
-bop b1 b2
-bopfuse result
-set info [ maxtolerance result ]
-
-regexp {Edge[ \t]*:.*Max[ \t]*([-0-9.+eE]+)} $info full last1
-regexp {Vertex[ \t]*:.*Max[ \t]*([-0-9.+eE]+)} $info full last
-
-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 5
-set status 0
-
-set Tolerance_percent [expr abs ( [GetPercent ${last} ${check_value}] ) ]
-if {${Tolerance_percent} > ${percent_max}} {
- set status 1
-} else {
- set status 0
-}
-
-set Tolerance_percent [expr abs ( [GetPercent ${last1} ${check_value}] ) ]
-if {${Tolerance_percent} > ${percent_max}} {
- set status 1
-} else {
- set status 0
-}
-
-# Resume
-if {${status} > 0} {
- puts "${BugNumber}: Faulty"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set square 671262
-set 2dviewer 0
-
+++ /dev/null
-puts "================"
-puts "OCC22968"
-puts "================"
-puts ""
-######################################################################################
-# RebuildShape exchanges 2d-curves
-######################################################################################
-
-set BugNumber OCC22968
-
-pload XDE
-
-restore [locate_data_file OCC22968-cylface.brep] a
-checkshape a f
-removeloc result a
-set info [ checkshape result f ]
-
-if { [regexp {The Shape result looks OK} $info] } {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set square 3141.59
-set 2dviewer 0
-
-
-
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC23 : Checkshape command works wrongly"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "================"
-puts "OCC23"
-puts "================"
-puts ""
-#####################################################################
-## Checkshape gives result that there is a selfintersection on wire, but there are no intersection on it.
-#####################################################################
-
-restore [locate_data_file OCC23.brep] sh
-
-decho off
-set che [checkshape sh]
-decho on
-
-if { [regexp {Faulty} $che] == 1 } {
- puts "Faulty OCC23 : Checkshape command works wrongly"
-} else {
- puts "OCC23 OK : Checkshape command works properly"
-}
-
-explode sh f
-explode sh_2 w
-
-renamevar sh_2_1 result
-
-set length 0
-set 2dviewer 0
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-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
-
+++ /dev/null
-puts "============"
-puts "OCC23029"
-puts "============"
-puts ""
-#######################################################################
-# split shape algorithm works incorrectly in some cases
-#######################################################################
-
-set BugNumber OCC23029
-
-catch { pload XDE }
-
-testreadstep [locate_data_file OCC23029-ProblemF.stp] a
-restore [locate_data_file OCC23029-TempW.brep] t
-
-checkshape a
-explode a f
-splitshape result a a_1 t
-
-set square 215.198
-
-set nb_v_good 19
-set nb_e_good 21
-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 45
-
-set CheckShape_status 0
-
-set ll [ llength [explode result f2 ] ]
-
-if { $ll != 2 } {
- set CheckShape_status 1
-}
-
-# Resume
-puts ""
-if { ${CheckShape_status} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-vinit
-vsetdispmode 1
-vdisplay result
-vfit
-
-vmoveto 252 289
-
-set only_screen 1
-
+++ /dev/null
-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
-
+++ /dev/null
-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
-
-
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "CR23137"
-puts "============"
-puts ""
-##########################################################################################################
-# Class BRepAlgoAPI_Cut does not made correct result on attached shapes.
-##########################################################################################################
-
-restore [locate_data_file bug23137_bspl_cut.brep] b
-explode b
-copy b_1 b1
-copy b_2 b2
-#to provide positive volume of b2
-invert b2
-
-bop b1 b2
-bopcut result
-
-set square 44460.7
-
-set 3dviewer 1
+++ /dev/null
-puts "============"
-puts "CR23137"
-puts "============"
-puts ""
-##########################################################################################################
-# Class BRepAlgoAPI_Cut does not made correct result on attached shapes.
-##########################################################################################################
-
-restore [locate_data_file bug23137_rev_cut.brep] b
-explode b
-copy b_1 b1
-copy b_2 b2
-#to provide positive volume of b1
-invert b1
-
-bop b1 b2
-bopcut result
-
-set square 3452.78
-
-set 3dviewer 1
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-puts "================"
-puts "OCC23174"
-puts "================"
-puts ""
-##############################################################################
-# BRepLib_MakeFace(Wire) creates an invalid face on a wire of cylinder bottom
-##############################################################################
-
-set BugNumber OCC23174
-
-catch {pload XDE}
-
-set status 0
-
-# make a cylinder
-pcylinder cyl 50 150
-
-# get wires
-explode cyl W
-
-# make a face from the 3-d wire (planar bottom of the cylinder)
-mkplane f cyl_3 0
-
-# BUG: face is built on a cylindrical face of the cylinder instead of
-# a bottom face
-set reslog [checkshape f -short]
-puts $reslog
-if { $reslog != "This shape seems to be valid" } { set status 1 }
-
-# ========================================================================
-# Make a new cylindrical face from a wire composed from more than 3 edges
-# to check that the bug fix is valid for a wire of more than 1 edge
-# ========================================================================
-
-# get a bottom edge cyl_1; cyl_2 is a top edge; cyl_3 is a seam edge
-nexplode cyl E
-
-# get its 3D curve
-mkcurve c3D cyl_1
-
-# split cyl_1 into 3 edges
-mkedge e1 c3D 0 2
-mkedge e2 c3D 2 4
-mkedge e3 c3D 4 6.28318530717959
-
-# make a reversed seam
-copy cyl_3 cyl_3_r
-treverse cyl_3_r
-
-# make a new wire for a new cylindrical face
-wire w e1 e2 e3 cyl_3 cyl_2 cyl_3_r
-
-# get a surface for a new face
-nexplode cyl F
-mksurface cyl_surf cyl_3
-
-# make a new cylindrical face
-mkface cyl_face_0 cyl_surf w
-fixshape cyl_face cyl_face_0
-
-# make a wire of 3 bottom edges to check the fix
-explode cyl_face E
-wire w cyl_face_2 cyl_face_1 cyl_face_3
-
-# check the fix, i.e. that cylindrical surface is rejected and thus a valid face is built
-mkplane f w 0
-donly f
-set res_log [checkshape f -short]
-puts $reslog
-if { $reslog != "This shape seems to be valid" } { set status 1 }
-
-# =================================================================
-#check that mkplane finds cyl_surf if the wire of cyl_face is given
-# =================================================================
-
-explode cyl_face W
-mkplane f cyl_face_1 0
-
-# get surface of f
-mksurface cyl_surf_2 f
-
-# compare points of 2 surfaces at same UV
-svalue cyl_surf 1 1 x1 y1 z1
-svalue cyl_surf_2 1 1 x2 y2 z2
-
-if { [ expr [dval x1] - [dval x2] ] > 0.0 } { set status 1 }
-if { [ expr [dval y1] - [dval y2] ] > 0.0 } { set status 1 }
-if { [ expr [dval z1] - [dval z2] ] > 0.0 } { set status 1 }
-
-# Resume
-puts ""
-if { ${status} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-renamevar f result
-set square 47123.9
-set 2dviewer 0
-
-
-
-
+++ /dev/null
-puts "============"
-puts "OCC23214"
-puts "============"
-puts ""
-#######################################################################
-# BOP section operation produces incorrect result.
-#######################################################################
-
-restore [locate_data_file OCC23214-face_1188.brep] b1
-restore [locate_data_file OCC23214-shell_for_line_1188.brep] b2
-
-bop b1 b2
-bopsection result
-
-set length 2.94086
-set nb_good_vertex 4
-set nb_good_edge 2
-set nb_good_wire 0
-set nb_good_face 0
-set nb_good_shell 0
-set nb_good_solid 0
-set nb_good_compsolid 0
-set nb_good_compound 1
-set nb_good_shape 7
-
-set 2dviewer 0
+++ /dev/null
-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
-
+++ /dev/null
-puts "================"
-puts "OCC23341"
-puts "================"
-puts ""
-#######################################################################
-# Wrong result done by 2D classifier algorithm for a point and a face
-#######################################################################
-
-set BugNumber OCC23341
-
-restore [locate_data_file bug23341_f1] f1
-restore [locate_data_file bug23341_p] p
-set info [b2dclassify f1 p]
-set check [regexp "OUT" $info]
-
-if { ${check} == 1 } {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-box b 10 100 10
-explode b f
-donly b b_3 b_4
-fit
-
-middlepath result b b_3 b_4
-
-set length 100.
-
-set 2dviewer 1
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-polyline pp 0 0 0 10 0 0 20 10 0 20 20 0
-polyline sp 0 0 0 0 0 100 0 50 200 0 100 100
-mksweep sp
-addsweep pp
-buildsweep a -R
-explode a e
-wire w1 a_2 a_5 a_8
-wire w2 a_24 a_22 a_20
-donly a w1 w2
-fit
-middlepath result a w1 w2
-
-set length 288.824
-
-set 2dviewer 1
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-restore [locate_data_file bug23367_pipe1.brep] a
-explode a e
-wire w1 a_2
-wire w2 a_6
-donly a w1 w2
-fit
-middlepath result a w2 w1
-
-set length 1386.13
-
-set 2dviewer 1
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-restore [locate_data_file bug23367_aa.brep] a
-explode a e
-wire w1 a_57 a_73 a_54 a_71
-wire w2 a_133 a_148 a_130 a_146
-donly a w1 w2
-fit
-middlepath result a w2 w1
-
-set length 3.46311
-
-set 2dviewer 1
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-polyline pp 0 0 0 10 0 0 20 10 0 20 20 0
-polyline sp 0 0 0 0 0 100 -50 50 200 -100 100 100
-mksweep sp
-addsweep pp
-buildsweep a -R
-explode a e
-wire w1 a_2 a_5 a_8
-wire w2 a_24 a_27 a_30
-donly a w1 w2
-fit
-middlepath result a w1 w2
-
-set length 352.512
-
-set 2dviewer 1
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-polyline pp 0 0 0 10 -10 0 20 0 0 10 10 0 0 0 0
-polyline sp 0 0 0 0 0 50 -100 0 0 -50 0 -50 0 0 0
-mksweep sp
-addsweep pp
-buildsweep a -R
-explode a e
-wire ww a_11 a_8 a_5 a_2
-donly a ww
-fit
-middlepath result a ww ww
-
-set length 365.161
-
-set 2dviewer 1
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-polyline pp 0 0 0 10 -10 0 20 0 0 10 10 0 0 0 0
-polyline sp 0 0 0 0 0 50 -100 0 0 -50 0 -50
-mksweep sp
-addsweep pp
-buildsweep a -R
-explode a e
-wire w1 a_11 a_8 a_5 a_2
-wire w2 a_34 a_36 a_28 a_31
-donly a w1 w2
-fit
-middlepath result a w1 w2
-
-set length 270.149
-
-set 2dviewer 1
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-pcylinder a 10 30 180
-explode a f
-donly a a_2 a_3
-fit
-middlepath result a a_2 a_3
-
-set length 30.0036
-
-set 2dviewer 1
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-polyline pp 0 0 0 5 0 0 10 0 0 10 10 0 0 10 0 0 0 0
-mkplane ff pp
-prism a ff 0 0 50
-explode a f
-donly a a_6 a_7
-fit
-middlepath result a a_6 a_7
-
-set length 50.
-
-set 2dviewer 1
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-ptorus a 50 10
-explode a e
-wire ww a_2
-donly a ww
-fit
-middlepath result a ww ww
-
-set length 314.159
-
-set 2dviewer 1
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-pcylinder a 10 50
-explode a f
-donly a a_2 a_3
-fit
-middlepath result a a_2 a_3
-
-set length 50.
-
-set 2dviewer 1
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-restore [locate_data_file bug23367_pipe1.brep] a
-explode a e
-wire w1 a_2
-wire w2 a_6
-donly a w1 w2
-fit
-middlepath result a w1 w2
-
-set length 1386.13
-
-set 2dviewer 1
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-restore [locate_data_file bug23367_aa.brep] a
-explode a e
-wire w1 a_57 a_73 a_54 a_71
-wire w2 a_133 a_148 a_130 a_146
-donly a w1 w2
-fit
-middlepath result a w1 w2
-
-set length 3.46311
-
-set 2dviewer 1
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-restore [locate_data_file bug23367_bb.brep] b
-explode b e
-wire w1 b_1 b_29 b_60 b_27
-wire w2 b_11 b_23 b_56 b_33
-donly b w1 w2
-fit
-middlepath result b w1 w2
-
-set length 1.94244
-
-set 2dviewer 1
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23367"
-puts "============"
-puts ""
-##########################################################################################################
-# New functionality restoring the middle path of pipe-like shape
-##########################################################################################################
-
-ptorus a 50 10 0 180
-explode a f
-shape b Sh
-add a_1 b
-explode b e
-wire ww b_2
-donly b ww
-fit
-middlepath result b ww ww
-
-set length 314.159
-
-set 2dviewer 1
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23394"
-puts "============"
-puts ""
-##########################################################################################################
-# Problem with BRepOffset_MakeOffset on a cylindrical face
-##########################################################################################################
-
-restore [locate_data_file bug23394_Circular_tube.brep] sh1
-
-thickshell result sh1 5
-
-set square 128648
-
-set 3dviewer 1
+++ /dev/null
-puts "========"
-puts "OCC234"
-puts "========"
-
-######################################################################
-##I believe that attached shape is OK but checkshape finds out some problems (Bad Orientation of Subshape).
-######################################################################
-
-restore [locate_data_file OCC234.brep] result
-
-set che [checkshape result r]
-if { [regexp {OK} $che] != 1 } {
- puts "Faulty OCC234 (checkshape) : Checkshape command works wrongly"
-} else {
- puts "OCC234 OK (checkshape) : Checkshape command works properly"
-}
-
-set che [checkshape result]
-if { [regexp {Faulty} $che] == 1 } {
- puts "Faulty OCC234 (checkshape) : Checkshape command works wrongly"
-} else {
- puts "OCC234 OK (checkshape) : Checkshape command works properly"
-}
-
-set square 2464.17
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "CR23429"
-puts "============"
-puts ""
-##########################################################################################################
-# BRepFeat_SplitShape algorithm misses some section edges while building result from customer's shape
-##########################################################################################################
-pload QAcommands
-
-restore [locate_data_file OCC23388-Shape1.brep] a
-restore [locate_data_file CR23429-Shape3.brep] b
-
-OCC23429 result a b
-
-set square 1120.52
-
-set 2dviewer 1
-
-
-
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23436"
-puts "============"
-puts ""
-######################################################
-# BRepOffsetAPI_ThruSections crashes when lofting through identical profiles
-######################################################
-
-restore [locate_data_file bug23436_myloft.brep] s
-
-explode s
-
-thrusections result 0 0 s_1 s_2 s_3
+++ /dev/null
-puts "============"
-puts "CR23470"
-puts "============"
-puts ""
-##########################################################################################################
-# Boolean Fuse between two edges fails
-##########################################################################################################
-
-restore [locate_data_file bug23470_qe.brep] qe
-explode qe
-bop qe_1 qe_2
-bopfuse result
-
-set nb_v_good 2
-set nb_e_good 1
-set nb_w_good 1
-set nb_shape_good 5
-set length 48.4459
-set command bopfuse
-
-set 2dviewer 1
-
-
+++ /dev/null
-puts "============"
-puts "CR23472"
-puts "============"
-puts ""
-##########################################################################################################
-# BRepAlgoAPI_Section algorithm fails with exception while intersecting two faces
-##########################################################################################################
-
-restore [locate_data_file bug23472_f1.brep] f1
-restore [locate_data_file bug23472_f2.brep] f2
-
-bsection result f1 f2 -2d
-
-regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full l
-
-if { $l != 0} {
- puts "Error : The bsection is not valid"
-}
-
-# Service parameters
-set mass -0.1
-set m -0.1
+++ /dev/null
-puts "========"
-puts "CR23530"
-puts "========"
-puts ""
-##################################################
-## Error in Draw command "checkshape": invalid face is not recognized
-##################################################
-
-restore [locate_data_file bug23530_BadFace.brep] result
-pcurve result
-
-decho off
-set CheckLog [checkshape result]
-decho on
-
-if { [regexp "BRepCheck_UnorientableShape" ${CheckLog}] != 1 } {
- puts "CR23530: Error"
-}
+++ /dev/null
-puts "============"
-puts "OCC23606"
-puts "============"
-puts ""
-#######################################################################
-# Invalid result of pipe operation
-#######################################################################
-
-restore [locate_data_file bug23606_base.brep] sh
-restore [locate_data_file bug23606_path.brep] w
-pipe result w sh
-set n [llength [explode result f]]
-if { ${n} != 10 } {
- puts "Error : bad number of faces"
-}
-
-# Service parameters
-set mass -0.1
-set m -0.1
+++ /dev/null
-puts "============"
-puts "CR23651"
-puts "============"
-puts ""
-###############################
-## Exception on fillet construction between NURBS and surface of revolution
-###############################
-
-restore [locate_data_file bug23651_turbine_shell_one_edge.brep] s
-explode s e
-blend result s 1 s_4
-
-set 3dviewer 1
+++ /dev/null
-puts "============"
-puts "CR23651"
-puts "============"
-puts ""
-###############################
-## Exception on fillet construction between NURBS and surface of revolution
-###############################
-
-restore [locate_data_file bug23651_turbine_shell_one_edge.brep ] a
-explode a e
-
-mkevol result a
-updatevol a_4 0. 1.5 0.05 1 0.45 1 0.5 1.5 0.55 2 0.95 2 1. 1.5
-buildevol
-
-set 3dviewer 1
+++ /dev/null
-puts "============"
-puts "CR23676"
-puts "============"
-puts ""
-#########################################################
-## Intersection between edge and a face produces extra vertex
-#########################################################
-
-restore [locate_data_file bug23676_q1.brep] b1
-
-explode b1
-copy b1_1 b1
-copy b1_3 b2
-
-bop b1 b2
-bopcut result
-
-set nb_v_good 2
-set nb_e_good 1
-set nb_w_good 1
-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 5
+++ /dev/null
-puts "========="
-puts "CR23699"
-puts "========="
-puts ""
-###############################
-## Exception reaised during intersection between two surfaces
-###############################
-
-restore [locate_data_file bug23699_Compound_sigsegv.brep] b1
-
-explode b1 f
-
-mksurface s1 b1_1
-mksurface s2 b1_2
-
-intersect result s1 s2
-
-set 2dviewer 1
+++ /dev/null
-puts "========"
-puts "CR23711"
-puts "========"
-########################################################
-## Incorrect result done by fuse operation
-########################################################
-
-restore [locate_data_file bug23711_sph1.brep] b1
-restore [locate_data_file bug23711_sph2.brep] b2
-
-bop b1 b2
-bopfuse result
-
-set square 1256.63
-set 2dviewer 1
+++ /dev/null
-puts "========"
-puts "CR23716"
-puts "========"
-########################################################
-## Boolean Fuse between two faces fails
-########################################################
-
-restore [locate_data_file bug23716_qf.brep] b
-explode b
-
-bop b_1 b_3
-bopfuse result
-
-set square 45605.9
-
-set 2dviewer 1
+++ /dev/null
-puts "========="
-puts "CR23722"
-puts "========="
-puts ""
-###############################
-## Exception reaised during intersection between two surfaces
-###############################
-
-restore [locate_data_file bug23732_fx1.brep] b1
-restore [locate_data_file bug23732_fx2.brep] b2
-
-mksurface s1 b1
-mksurface s2 b1
-
-intersect result s1 s2
-
-set 2dviewer 1
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : Result shape is WRONG !!!"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "========================"
-puts " OCC238 "
-puts "========================"
-
-#################################################
-## puts " BOPCOMMON case_2_solid.brep and case_2_edge1.brep"
-#################################################
-puts " "
-puts [restore [locate_data_file OCC238a.brep] a]
-puts [restore [locate_data_file case_2_edge1.brep] b]
-puts [bop a b]
-puts [bopcommon result b a]
-
-explode result v
-explode a e
-distmini di result_1 a_3
-regexp {([-0-9.+eE]+)$} [dump $di_val] full dis
-if { [expr $dis > 1.e-5] } {
- puts "Faulty : Result shape is WRONG !!!"
-} else {
- puts " Result shape is COMPLITE"
-}
-
-set nb_v_good 14
-set nb_e_good 7
-set length 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : Result shape is WRONG !!!"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "========================"
-puts " OCC238 "
-puts "========================"
-
-#################################################
-## puts " BOPTUC case_2_solid.brep from case_2_edge1.brep"
-#################################################
-puts " "
-puts [restore [locate_data_file OCC238a.brep] a]
-puts [restore [locate_data_file case_2_edge1.brep] b]
-puts [bop a b]
-puts [boptuc result b a]
-
-explode result v
-explode a e
-distmini di result_2 a_3
-regexp {([-0-9.+eE]+)$} [dump $di_val] full dis
-if { [expr $dis > 1.e-5] } {
- puts "Faulty : Result shape is WRONG !!!"
-} else {
- puts " Result shape is COMPLITE"
-}
-
-set nb_v_good 14
-set nb_e_good 7
-set length 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contain"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-
-puts "========================"
-puts " OCC239 "
-puts "========================"
-
-#################################################
-## puts " BOPCOMMON case_2_solid.brep and case_2_wire1.brep"
-#################################################
- puts " "
-restore [locate_data_file OCC238a.brep] a
-restore [locate_data_file case_2_wire1.brep] b
-puts [bop a b]
-puts [bopcommon result]
-
-set nb_v_good 18
-set nb_e_good 10
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-
-puts "========================"
-puts " OCC239 "
-puts "========================"
-
-#################################################
-## puts " BOPTUC case_2_solid.brep and case_2_wire1.brep"
-#################################################
- puts " "
-restore [locate_data_file OCC238a.brep] a
-restore [locate_data_file case_2_wire1.brep] b
-puts [bop a b]
-puts [boptuc result]
-
-set nb_v_good 18
-set nb_e_good 11
-set length 2481.26
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The command is not valid"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"
-
-puts "========================"
-puts " OCC240 "
-puts "========================"
-
-#################################################
-## puts " BOPCOMMON case_2_shell.brep and case_2_edge2.brep"
-#################################################
- puts " "
-restore [locate_data_file OCC240a.brep] a
-restore [locate_data_file case_2_edge2.brep] b
-puts [bop a b]
-puts [bopcommon result]
-
-set nb_v_good 14
-set nb_e_good 6
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-
-puts "========================"
-puts " OCC240 "
-puts "========================"
-
-#################################################
-## puts " BOPTUC case_2_shell.brep and case_2_edge2.brep"
-#################################################
- puts " "
-restore [locate_data_file OCC240a.brep] a
-restore [locate_data_file case_2_edge2.brep] b
-puts [bop a b]
-puts [boptuc result]
-
-set nb_v_good 14
-set nb_e_good 7
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The command is not valid"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"
-
-puts "========================"
-puts " OCC241 "
-puts "========================"
-
-#################################################
-## puts " BOPCOMMON case_2_shell.brep and case_2_edge3.brep"
-#################################################
- puts " "
-restore [locate_data_file OCC240a.brep] a
-restore [locate_data_file case_2_edge3.brep] b
-puts [bop a b]
-puts [bopcommon result]
-
-set nb_v_good 6
-set nb_e_good 3
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"
-
-puts "========================"
-puts " OCC241 "
-puts "========================"
-
-#################################################
-## puts " BOPTUC case_2_shell.brep and case_2_edge3.brep"
-#################################################
- puts " "
-restore [locate_data_file OCC240a.brep] a
-restore [locate_data_file case_2_edge3.brep] b
-puts [bop a b]
-puts [boptuc result]
-
-set nb_v_good 6
-set nb_e_good 3
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The command is not valid"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"
-
-puts "========================"
-puts " OCC242 "
-puts "========================"
-
-#################################################
-## puts " BOPCOMMON case_2_shell.brep and case_2_wire1.brep"
-#################################################
- puts " "
-restore [locate_data_file OCC240a.brep] a
-restore [locate_data_file case_2_wire1.brep] b
-puts [bop a b]
-puts [bopcommon result]
-
-set nb_v_good 18
-set nb_e_good 9
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"
-
-puts "========================"
-puts " OCC242 "
-puts "========================"
-
-#################################################
-## puts " BOPTUC case_2_shell.brep and case_2_wire1.brep"
-#################################################
- puts " "
-restore [locate_data_file OCC240a.brep] a
-restore [locate_data_file case_2_wire1.brep] b
-puts [bop a b]
-puts [boptuc result]
-
-set nb_v_good 18
-set nb_e_good 13
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-
-puts "========================"
-puts " OCC243 "
-puts "========================"
-
-#################################################
-## puts " BOPCOMMON case_4_shell.brep and case_4_wire3.brep"
-#################################################
- puts " "
-restore [locate_data_file case_4_shell.brep] a
-restore [locate_data_file case_4_wire3.brep] b
-puts [bop a b]
-puts [bopcommon result]
-
-set nb_v_good 15
-set nb_e_good 10
-set length 1150.78
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-
-puts "========================"
-puts " OCC243 "
-puts "========================"
-
-#################################################
-## puts " BOPTUC case_4_shell.brep and case_4_wire3.brep"
-#################################################
- puts " "
-restore [locate_data_file case_4_shell.brep] a
-restore [locate_data_file case_4_wire3.brep] b
-puts [bop a b]
-puts [boptuc result]
-
-set nb_v_good 16
-set nb_e_good 11
-set length 929.278
-set 2dviewer 1
-
\ No newline at end of file
+++ /dev/null
-
-puts "========================"
-puts " OCC244 "
-puts "========================"
-
-#################################################
-## puts " BOPCOMMON case_5_solid.brep and case_5_wire3.brep"
-#################################################
- puts " "
-restore [locate_data_file case_5_solid.brep] a
-restore [locate_data_file case_4_wire3.brep] b
- puts [bop a b]
- puts [bopcommon result]
-
- set nb_v_good 12
- set nb_e_good 11
- set length 1808.02
- set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-
-puts "========================"
-puts " OCC245 "
-puts "========================"
-
-#################################################
-## puts " BOPCOMMON case_5_shell.brep and case_5_wire3.brep"
-#################################################
- puts " "
-restore [locate_data_file case_5_shell.brep] a
-restore [locate_data_file case_4_wire3.brep] b
-puts [bop a b]
-puts [bopcommon result]
-
-set nb_v_good 12
-set nb_e_good 11
-set length 1808.02
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-
-puts "========================"
-puts " OCC245 "
-puts "========================"
-
-#################################################
-## puts " BOPTUC case_5_shell.brep and case_5_wire3.brep"
-#################################################
- puts " "
-restore [locate_data_file case_5_shell.brep] a
-restore [locate_data_file case_4_wire3.brep] b
-puts [bop a b]
-puts [boptuc result]
-
-set nb_v_good 3
-set nb_e_good 2
-set length 272.04
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
-
-puts "========================"
-puts " OCC246 "
-puts "========================"
-
-#################################################
-## puts " BOPCOMMON case_1_solid.brep and case_1_wire1.brep"
-#################################################
- puts " "
-restore [locate_data_file OCC246a.brep] a
-restore [locate_data_file case_1_wire1.brep] b
-puts [bop a b]
-puts [bopcommon result]
-
-set nb_v_good 5
-set nb_e_good 2
-set length 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
-
-puts "========================"
-puts " OCC248 "
-puts "========================"
-
-#################################################
-## puts " BOPCOMMON case_8_solid.brep and case_8_wire6.brep"
-#################################################
- puts " "
-restore [locate_data_file OCC247a.brep] a
-restore [locate_data_file OCC248b.brep] b
-puts [bop a b]
-puts [bopcommon result]
-
-set nb_v_good 1
-set nb_e_good 0
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
-
-puts "========================"
-puts " OCC248 "
-puts "========================"
-
-#################################################
-## puts " BOPTUC case_8_solid.brep and case_8_wire6.brep"
-#################################################
- puts " "
-restore [locate_data_file OCC247a.brep] a
-restore [locate_data_file OCC248b.brep] b
-puts [bop a b]
-puts [boptuc result]
-
-set nb_v_good 8
-set nb_e_good 8
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
-
-puts "========================"
-puts " OCC249 "
-puts "========================"
-
-#################################################
-## puts " BOPCOMMON case_9_wire_a.brep and case_9_edge3.brep"
-#################################################
- puts " "
-restore [locate_data_file case_9_wire_a.brep] a
-restore [locate_data_file case_9_edge3.brep] b
-puts [bop a b]
-puts [bopcommon result]
-
-set nb_v_good 2
-set nb_e_good 1
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
-
-puts "========================"
-puts " OCC249 "
-puts "========================"
-
-#################################################
-## puts " BOPTUC case_9_wire_a.brep and case_9_edge3.brep"
-#################################################
- puts " "
-restore [locate_data_file case_9_wire_a.brep] a
-restore [locate_data_file case_9_edge3.brep] b
-puts [bop a b]
-puts [boptuc result]
-
-set nb_v_good 4
-set nb_e_good 2
-set length 0
-set 2dviewer 0
-
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
-
-puts "========================"
-puts " OCC249 "
-puts "========================"
-
-#################################################
-## puts " BOPCUT case_9_wire_a.brep and case_9_edge3.brep"
-#################################################
- puts " "
-restore [locate_data_file case_9_wire_a.brep] a
-restore [locate_data_file case_9_edge3.brep] b
-puts [bop a b]
-puts [bopcut result]
-
-set nb_v_good 4
-set nb_e_good 2
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
-
-puts "========================"
-puts " OCC249 "
-puts "========================"
-
-#################################################
-## puts " BOPFUSE case_9_wire_a.brep and case_9_edge3.brep"
-#################################################
- puts " "
-restore [locate_data_file case_9_wire_a.brep] a
-restore [locate_data_file case_9_edge3.brep] b
-puts [bop a b]
-puts [bopfuse result]
-
-set nb_v_good 6
-set nb_e_good 5
-set length 0
-set 2dviewer 2
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
-
-puts "========================"
-puts " OCC250 "
-puts "========================"
-
-#################################################
-## puts " BOPCOMMON case_9_wire_a.brep and case_9_wire2.brep"
-#################################################
- puts " "
-restore [locate_data_file case_9_wire_a.brep] a
-restore [locate_data_file case_9_wire2.brep] b
-puts [bop a b]
-puts [bopcommon result]
-
-set nb_v_good 2
-set nb_e_good 1
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
-
-puts "========================"
-puts " OCC250 "
-puts "========================"
-
-#################################################
-## puts " BOPTUC case_9_wire_a.brep and case_9_wire2.brep"
-#################################################
- puts " "
-restore [locate_data_file case_9_wire_a.brep] a
-restore [locate_data_file case_9_wire2.brep] b
-puts [bop a b]
-puts [boptuc result]
-
-set nb_v_good 7
-set nb_e_good 6
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
-
-puts "========================"
-puts " OCC250 "
-puts "========================"
-
-#################################################
-## puts " BOPCUT case_9_wire_a.brep and case_9_wire2.brep"
-#################################################
- puts " "
-restore [locate_data_file case_9_wire_a.brep] a
-restore [locate_data_file case_9_wire2.brep] b
-puts [bop a b]
-puts [bopcut result]
-
-set nb_v_good 4
-set nb_e_good 2
-set length 0
-set 2dviewer 0
-
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
-
-puts "========================"
-puts " OCC250 "
-puts "========================"
-
-#################################################
-## puts " BOPFUSE case_9_wire_a.brep and case_9_wire2.brep"
-#################################################
- puts " "
-restore [locate_data_file case_9_wire_a.brep] a
-restore [locate_data_file case_9_wire2.brep] b
-puts [bop a b]
-puts [bopfuse result]
-
-set nb_v_good 9
-set nb_e_good 9
-set length 0
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC251"
-puts "================"
-puts ""
-###########################################################
-## Section of two faces f1 and f2 depends on order of arguments: section r1 f1 f2 and
-## section r2 f2 f1 give different results, one of result is invalid - overlapped edges.
-###########################################################
-
-restore [locate_data_file OCC251.brep] f
-explode f
-checkshape f_1
-checkshape f_2
-
-bsection result f_1 f_2
-explode result
-
-set status [OCC333 result_1 result_2]
-if {[llength ${status}] < 1} {
- puts "OCC251 ERROR"
-} else {
- regexp {([-0-9.+eE]+)} $status full code
- if { ${code} == 3 || ${code} == 2} {
- puts "OCC251 OK (case 1) : Section command works properly"
- } else {
- puts "Faulty OCC251 (case 1): Section was made WRONGLY"
- }
-}
-
-set length 1.
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC251"
-puts "================"
-puts ""
-###########################################################
-## Section of two faces f1 and f2 depends on order of arguments: section r1 f1 f2 and
-## section r2 f2 f1 give different results, one of result is invalid - overlapped edges.
-###########################################################
-
-restore [locate_data_file OCC251.brep] f
-explode f
-checkshape f_1
-checkshape f_2
-
-bsection result f_2 f_1
-explode result
-
-set status [OCC333 result_1 result_2]
-if {[llength ${status}] < 1} {
- puts "OCC251 ERROR"
-} else {
- regexp {([-0-9.+eE]+)} $status full code
- if { ${code} == 3 || ${code} == 2 } {
- puts "OCC251 OK (case 2) : Section command works properly"
- } else {
- puts "Faulty OCC251 (case 2): Section was made WRONGLY"
- }
-}
-
-set length 1.
-set 2dviewer 0
+++ /dev/null
-#INTERFACE IGES
-puts "========"
-puts "OCC260"
-puts "========"
-
-pload XDE
-
-if { [catch { igesbrep [locate_data_file OCC260.igs] a * } catch_result] } {
- puts "OCC260: Error: there is reading problem"
-} else {
- regexp {([-0-9.+eE]+) Shape\(s\) listed} [tpcompound result] full ShapeNumber
- if {${ShapeNumber} > 0} {
- puts "OCC260: OK"
- } else {
- puts "OCC260: Error"
- }
-}
-
-set length 4.41928
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty OCC263: here is shading problem"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC263"
-puts "========"
-
-restore [locate_data_file OCC263.brep] result
-
-isos result 0
-tclean result
-
-#Creating mesh
-incmesh result 0.01
-
-#View the result of mesh
-triangles result
-
-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 != 989 && $nod != 535 } {
- puts "Faulty OCC263: here is shading problem"
-} else {
- puts "Shading of OCC263 is OK"
-}
-
-set square 0
-set 3dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC264"
-puts " (case 0)"
-puts "========"
-
-restore [locate_data_file OCC264_00.rle] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos result 0
-triangles result
-
-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 != 6 && $nod != 8 } {
- puts "Faulty OCC264_0: here is shading problem"
-} else {
- puts "Shading of OCC264_0 is OK"
-}
-
-set square 1.3135
-set 3dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC264_1: here is shading problem"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC264"
-puts " (case 1)"
-puts "========"
-
-restore [locate_data_file OCC264_01.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos result 0
-triangles result
-
-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 != 26 && $nod != 28 } {
- puts "Faulty OCC264_1: here is shading problem"
-} else {
- puts "Shading of OCC264_1 is OK"
-}
-
-set square 0
-set 3dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC264_10: here is shading problem"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC264"
-puts " (case 10)"
-puts "========"
-
-restore [locate_data_file OCC264_10.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos result 0
-triangles result
-
-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 != 8 && $nod != 10 } {
- puts "Faulty OCC264_10: here is shading problem"
-} else {
- puts "Shading of OCC264_10 is OK"
-}
-
-set square 0
-set 3dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC264_11: here is shading problem"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC264"
-puts " (case 11)"
-puts "========"
-
-restore [locate_data_file OCC264_11.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos result 0
-triangles result
-
-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 != 32 && $nod != 28 } {
- puts "Faulty OCC264_11: here is shading problem"
-} else {
- puts "Shading of OCC264_11 is OK"
-}
-
-set square 0
-set 3dviewer 0
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty OCC264_12: here is shading problem"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC264"
-puts " (case 12)"
-puts "========"
-
-restore [locate_data_file OCC264_12.brep] result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos res 0
-triangles result
-
-#smallview
-#fit
-
-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 != 19 && $nod != 21 } {
- puts "Faulty OCC264_12: here is shading problem"
-} else {
- puts "Shading of OCC264_12 is OK"
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC264_2: here is shading problem"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC264"
-puts " (case 2)"
-puts "========"
-
-restore [locate_data_file OCC264_02.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos result 0
-triangles result
-
-smallview
-fit
-
-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 != 10 && $nod != 12 } {
- puts "Faulty OCC264_2: here is shading problem"
-} else {
- puts "Shading of OCC264_2 is OK"
-}
-
-set square 0
-set 3dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC264_3: here is shading problem"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC264"
-puts " (case 3)"
-puts "========"
-
-restore [locate_data_file OCC264_03.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos result 0
-triangles result
-
-#smallview
-#fit
-
-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 != 13 && $nod != 15 } {
- puts "Faulty OCC264_3: here is shading problem"
-} else {
- puts "Shading of OCC264_3 is OK"
-}
-
-set square 0
-set 3dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC264_4: here is shading problem"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC264"
-puts " (case 4)"
-puts "========"
-
-restore [locate_data_file OCC264_04.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos result 0
-triangles result
-
-#smallview
-#fit
-
-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 != 13 && $nod != 15 } {
- puts "Faulty OCC264_4: here is shading problem"
-} else {
- puts "Shading of OCC264_4 is OK"
-}
-
-set square 0
-set 3dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC264_5: here is shading problem"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC264"
-puts " (case 5)"
-puts "========"
-
-restore [locate_data_file OCC264_05.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos result 0
-triangles result
-
-#smallview
-#fit
-
-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 != 85 && $nod != 87 } {
- puts "Faulty OCC264_5: here is shading problem"
-} else {
- puts "Shading of OCC264_5 is OK"
-}
-
-set square 0
-set 3dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC264"
-puts " (case 6)"
-puts "========"
-
-restore [locate_data_file OCC264_06.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos result 0
-triangles result
-
-#smallview
-#fit
-
-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 != 18 && $nod != 20 } {
- puts "Faulty OCC264_6: here is shading problem"
-} else {
- puts "Shading of OCC264_6 is OK"
-}
-
-set square 19.2399
-set 3dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC264"
-puts " (case 7)"
-puts "========"
-
-restore [locate_data_file OCC264_07.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos result 0
-triangles result
-
-#smallview
-#fit
-
-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 != 114 && $nod != 116) && ($tri != 116 && $nod != 118) } {
- puts "Shady OCC264_7: here may be shading problem"
-} else {
- puts "Shading of OCC264_7 is OK"
-}
-
-set square 150.283
-set 3dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC264_8: here is shading problem"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC264"
-puts " (case 8)"
-puts "========"
-
-restore [locate_data_file OCC264_08.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos result 0
-triangles result
-
-#smallview
-#fit
-
-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 != 19 && $nod != 21 } {
- puts "Faulty OCC264_8: here is shading problem"
-} else {
- puts "Shading of OCC264_8 is OK"
-}
-
-set square 0
-set 3dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC264_9: here is shading problem"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC264"
-puts " (case 9)"
-puts "========"
-
-restore [locate_data_file OCC264_09.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vclear
-
-isos result 0
-triangles result
-
-#smallview
-#fit
-
-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 != 19 && $nod != 21 } {
- puts "Faulty OCC264_9: here is shading problem"
-} else {
- puts "Shading of OCC264_9 is OK"
-}
-
-set square 0
-set 3dviewer 0
+++ /dev/null
-
-puts "======== OCC269 ========"
-
-restore [locate_data_file OCC269-1.brep] result
-checkshape result
-isos result 0
-tclean result
-
-#Creating mesh
-incmesh result 0.01
-
-#View the result of mesh
-triangles result
-
-set tri_info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
-regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
-
-#$tri != 8091 && $nod != 4121,aki251103
-if { $tri != 5853 && $nod != 2999 } {
- puts "Shady OCC269: shading problem may be, nb tri & nod changed"
-} else {
- puts "Shading of OCC269 is OK"
-}
-set square 32.9479
-set 2dviewer 0
+++ /dev/null
-
-puts "======== OCC269 ========"
-
-restore [locate_data_file OCC269-2.brep] result
-checkshape result
-isos result 0
-tclean result
-
-#Creating mesh
-incmesh result 0.01
-
-#View the result of mesh
-triangles result
-
-set tri_info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
-regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
-
-# $tri != 7627 && $nod != 3888,aki251103
-if { $tri != 6849 && $nod != 3498 } {
- puts "Shady OCC269: shading problem may be"
-} else {
- puts "Shading of OCC269 is OK"
-}
-set square 32.9479
-set 2dviewer 0
+++ /dev/null
-
-puts "======== OCC269 ========"
-
-restore [locate_data_file OCC269-3.brep] result
-checkshape result
-isos result 0
-tclean result
-
-#Creating mesh
-incmesh result 0.01
-
-#View the result of mesh
-triangles result
-
-set tri_info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
-regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
-
-# $tri != 7524 && $nod != 3840,aki251103
-if { $tri != 6302 && $nod != 3226 } {
- puts "Shady OCC269: shading problem may be, nb tri & nod changed"
-} else {
- puts "Shading of OCC269 is OK"
-}
-set square 36.4284
-set 2dviewer 0
-
+++ /dev/null
-
-puts "======== OCC269 ========"
-
-restore [locate_data_file OCC269-4.brep] result
-checkshape result
-isos result 0
-tclean result
-
-#Creating mesh
-incmesh result 0.01
-
-#View the result of mesh
-triangles result
-
-set tri_info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
-regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
-
-# $tri != 8362 && $nod != 4257
-if { $tri != 7218 && $nod != 3685 } {
- puts "Shady OCC269: shading problem may be, nb tri & nod changed"
-} else {
- puts "Shading of OCC269 is OK"
-}
-set square 36.4284
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC2785"
-puts "============"
-puts ""
-######################################################
-# Cut and fuse operations for two faces that share same domain give invalid result
-######################################################
-# Cut and fuse operations for two faces that share same domain gives invalid
-# result, if one face has a hole and other face touches a boundary of this hole.
-######################################################
-## (new topology)
-## (bcut)
-## (bop)
-## (boptuc)
-## (bfuse)
-######################################################
-
-############# data #############
-pcylinder c1 2 10
-pcylinder c2 2 2
-explode c1 f
-explode c2 f
-mksurface gs c2_1
-trim trgs gs 1 2 2 4
-mkface ff trgs
-trim trgs gs 0 1 2 4
-mkface ff2 trgs
-
-bcut rcut1 c1_1 ff
-checkshape rcut1
-
-bop ff2 rcut1
-boptuc rcut2
-checkshape rcut2
-
-bfuse fuse1 rcut2 ff2
-checkshape fuse1
-
-bfuse result fuse1 ff
-
-set square 125.664
-set 3dviewer 1
+++ /dev/null
-puts "============"
-puts "OCC2785"
-puts "============"
-puts ""
-######################################################
-# Cut and fuse operations for two faces that share same domain give invalid result
-######################################################
-# Cut and fuse operations for two faces that share same domain gives invalid
-# result, if one face has a hole and other face touches a boundary of this hole.
-######################################################
-## (old topology)
-## (cut)
-## (fuse)
-######################################################
-
-############# data #############
-pcylinder c1 2 10
-pcylinder c2 2 2
-explode c1 f
-explode c2 f
-mksurface gs c2_1
-trim trgs gs 1 2 2 4
-mkface ff trgs
-trim trgs gs 0 1 2 4
-mkface ff2 trgs
-
-bcut rcut1 c1_1 ff
-checkshape rcut1
-
-bcut rcut2 rcut1 ff2
-checkshape rcut2
-
-bfuse fuse1 rcut2 ff2
-checkshape fuse1
-
-bfuse result fuse1 ff
-
-set square 125.664
-set 3dviewer 1
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-puts "TODO OCC12345 ALL: OCC287 : Faulty"
-
-puts "========================"
-puts " OCC287 "
-puts "========================"
-
-restore [locate_data_file shading_170.brep] result
-checkshape result
-
-tclean result
-isos result 0
-incmesh result .1
-triangles result
-
-# set 3dviewer 1
-
-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 != 604 && $nod != 363} {
- puts " Warning: OCC287 looks like OK, but visual checking is required !!!!"
-} else {
- puts "OCC287 : Faulty"
-}
-
-puts ""
-puts "Besides, it is impossible to load this shape in 3D Viewer"
-vinit
-vdisplay result
-vfit
-vsetdispmode result 1
-
-set square 0
-set 3dviewer 0
-
+++ /dev/null
-
-puts "================= OCC291 ==================="
-
-#################################################################
-## Some triangles of shading mesh are outside of shape boundaries. (See attached shape).
-#################################################################
-
-restore [locate_data_file shading_171.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vsetdispmode result 1
-vfit
-
-isos result 0
-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
-
-#$tri == 395 && $nod == 350,aki251103.
-if { $tri == 382 && $nod == 343 } {
- puts " Warning: OCC291 looks like OK, but visual checking is required !"
-} else {
- puts " Shady OCC291 : nb tri & nod changed"
-}
-
-set square 376.873
-set only_screen 1
-
+++ /dev/null
-
-puts "========================"
-puts " OCC292 "
-puts "========================"
-puts ""
-#################################################################
-## Attached face looks as unclosed but command "checkshape" concludes that it is valid. Inspite of that,
-## mesh for shading is not creating on this face.
-#################################################################
-
-restore [locate_data_file OCC292.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vsetdispmode result 1
-
-isos result 0
-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 ==6 && $nod == 8} {
- puts " Warning: OCC292 looks like OK, but visual checking is required !!!!"
-} else {
- puts " OCC292 : Faulty"
-}
-
-set square 1.3135
-set 3dviewer 1
-
-
+++ /dev/null
-#by apn on master-master 03.12.2012
-#puts "TODO OCC12345 ALL: An exception was caught"
-#puts "TODO OCC12345 ALL: \\*\\* Exception *\\*\\*.*"
-#puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
-puts "================"
-puts "OCC293"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC293.brep] a
-tclean a
-checkshape a
-
-vinit
-#vdisplay a
-#vfit
-
-renamevar a edge
-explode edge e
-
-renamevar edge face
-explode face f
-
-chamf result1 face edge_26 face_5 A 1 45
-checkshape result1
-
-chamf result2 face edge_30 face_5 A 1 45
-checkshape result2
-
-chamf result3 face edge_34 face_5 A 1 45
-checkshape result3
-
-chamf result4 face edge_39 face_5 A 1 45
-checkshape result4
-
-chamf result5 face edge_35 face_5 A 1 45
-checkshape result5
-
-chamf result6 face edge_31 face_5 A 1 45
-checkshape result6
-
-chamf result7 face edge_27 face_5 A 1 45
-checkshape result7
-
-chamf result8 face edge_24 face_5 A 1 45
-checkshape result8
-
-# all contour is :
-#chamf result face edge_26 face_5 A 1 45 edge_28 face_5 A 1 45 edge_30 face_5 A 1 45 edge_32 face_5 A 1 45 edge_34 face_5 A 1 45 edge_36 face_5 A 1 45 edge_38 face_5 A 1 45 edge_40 face_5 A 1 45 edge_13 face_5 A 1 45 edge_14 face_5 A 1 45 edge_39 face_5 A 1 45 edge_37 face_5 A 1 45 edge_35 face_5 A 1 45 edge_33 face_5 A 1 45 edge_31 face_5 A 1 45 edge_29 face_5 A 1 45 edge_27 face_5 A 1 45 edge_6 face_5 A 1 45 edge_4 face_5 A 1 45 edge_19 face_5 A 1 45 edge_22 face_5 A 1 45 edge_23 face_5 A 1 45 edge_24 face_5 A 1 45 edge_25 face_5 A 1 45 edge_26 face_5 A 1 45
-
-#checkshape result
-
-vclear
-
-#vdisplay result1
-#vdisplay result2
-#vdisplay result3
-#vdisplay result4
-#vdisplay result5
-#vdisplay result6
-#vdisplay result7
-#vdisplay result8
-compound result1 result2 result3 result4 result5 result6 result7 result8 result
-vdisplay result
-vfit
-
-set square 9.80214e+06
-set only_screen 1
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC295"
-puts "================"
-puts ""
-##############################################################
-## Exception is raised in the GeomConvert_CompCurveToBSplineCurve
-##Exception "Run-time exception error
-## current exception: xalloc. No handler for exception.
-## " is raised during merging to edges in DRAW with command "merge re e1 e2".
-##############################################################
-
-restore [locate_data_file OCC295-1.brep] e1
-
-set che [checkshape e1]
-if { [regexp {Faulty} $che] == 1} {
- puts "Faulty OCC295 (shape1): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar e1 result
-} else {
- puts "OCC295 OK (shape1): Source shape is valid"
- restore [locate_data_file OCC295-2.brep] e2
- set che [checkshape e2]
- if { [regexp {Faulty} $che] == 1} {
- puts "Faulty OCC295 (shape2): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar e2 result
- } else {
- puts "OCC295 OK (shape2): Source shape is valid"
- OCC295 result e1 e2
- }
-}
-
-set length 19.5611
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC297"
-puts "========"
-
-vertex v1 250 250 0
-vertex v2 -250 250 0
-vertex v3 -250 -250 0
-vertex v4 250 -250 0
-
-edge e1 v1 v2
-edge e2 v2 v3
-edge e3 v3 v4
-edge e4 v4 v1
-
-wire w1 e1 e2 e3 e4
-
-mkplane f w1
-
-set x 0
-set y 0
-
-set Zpoint -100
-set Zbox -30
-
-halfspace hs f $x $y $Zpoint
-
-box b 0 0 $Zbox 150 200 200
-
-bcut result b hs
-
-set square 179000
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC297"
-puts "========"
-
-vertex v1 250 250 0
-vertex v2 -250 250 0
-vertex v3 -250 -250 0
-vertex v4 250 -250 0
-
-edge e1 v1 v2
-edge e2 v2 v3
-edge e3 v3 v4
-edge e4 v4 v1
-
-wire w1 e1 e2 e3 e4
-
-mkplane f w1
-
-set x 0
-set y 0
-
-set Zpoint 100
-set Zbox -30
-
-halfspace hs f $x $y $Zpoint
-
-box b 0 0 $Zbox 150 200 200
-
-bcut result b hs
-set square 81000
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC297"
-puts "========"
-
-vertex v1 250 250 0
-vertex v2 -250 250 0
-vertex v3 -250 -250 0
-vertex v4 250 -250 0
-
-edge e1 v1 v2
-edge e2 v2 v3
-edge e3 v3 v4
-edge e4 v4 v1
-
-wire w1 e1 e2 e3 e4
-
-mkplane f w1
-
-set x 0
-set y 0
-
-set Zpoint -100
-set Zbox -80
-
-halfspace hs f $x $y $Zpoint
-
-box b 0 0 $Zbox 150 200 200
-
-bcut result b hs
-set square 144000
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC297"
-puts "========"
-
-vertex v1 250 250 0
-vertex v2 -250 250 0
-vertex v3 -250 -250 0
-vertex v4 250 -250 0
-
-edge e1 v1 v2
-edge e2 v2 v3
-edge e3 v3 v4
-edge e4 v4 v1
-
-wire w1 e1 e2 e3 e4
-
-mkplane f w1
-
-set x 0
-set y 0
-
-set Zpoint 100
-set Zbox -80
-
-halfspace hs f $x $y $Zpoint
-
-box b 0 0 $Zbox 150 200 200
-
-bcut result b hs
-set square 116000
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC298 "
-puts "========================"
-puts ""
-#################################################################
-## Exception during "tcopy" command
-#################################################################
-
-restore [locate_data_file OCC298.brep] result
-checkshape result
-
-if [catch {tcopy result a } result] {
- puts "Faulty OCC298: function TCOPY works wrongly"
-} else {
- puts "OCC298 OK: function TCOPY works properly"
-}
-
-set square 8e+100
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC2986"
-puts "============"
-puts ""
-######################################################
-# Cut&fuse oprs. for 2 toroidal faces, sharing the same domain give invalid result
-######################################################
-## (new topology)
-## (bop)
-## (bopcut)
-## (bfuse)
-######################################################
-
-############# data #############
-ptorus p1 10 4
-explode p1 f
-mksurface gs p1_1
-trim trgs gs 1 2 1 2
-mkface ff trgs
-############# testing faces are: p1_1 ff #############
-
-bop p1_1 ff
-bopcut rcut1
-checkshape rcut1
-
-bfuse result rcut1 ff
-
-set square 1579.81
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC2986"
-puts "============"
-puts ""
-######################################################
-# Cut&fuse oprs. for 2 toroidal faces, sharing the same domain give invalid result
-######################################################
-## (old topology)
-## (cut)
-## (fuse)
-######################################################
-
-############# data #############
-ptorus p1 10 4
-explode p1 f
-mksurface gs p1_1
-trim trgs gs 1 2 1 2
-mkface ff trgs
-
-bcut rcut1 p1_1 ff
-checkshape rcut1
-
-bfuse result rcut1 ff
-
-set square 1579.81
-set 3dviewer 1
+++ /dev/null
-
-puts "================"
-puts "OCC300"
-puts "================"
-puts ""
-#################################################
-## Compsolids have no volume. #2432(SAM1380)
-#################################################
-
-restore [locate_data_file OCC300.brep] result
-
-set che [checkshape result]
-if { [regexp {Faulty} $che] == 1 } {
- puts "Faulty OCC300: Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
-} else {
- puts "OCC300 OK: Source shape is valid"
-
- set props [vprops result]
- set list [split ${props}]
- set listLength [llength ${list}]
- if { ${listLength} < 5 } {
- puts "OCC300 - Error : listLength= ${listLength}"
- }
-
- regexp {Mass +: +([-0-9.+eE]+)} $props full volume
- set maxdelta 0.000001
- if { ${volume} < ${maxdelta} } then {
- puts "OCC300 - Error "
- } else {
- puts "OCC300 - OK"
- }
- puts "Volume = ${volume}"
-}
-
-set square 750
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC302 "
-puts "(case 1)"
-puts "========================"
-puts ""
-#################################################################
-## After performing command "checkbrep" to attached face I receive "Bad Orientation of Subshape"
-## but I believe that orientation of this face is correct.
-#################################################################
-
-restore [locate_data_file OCC302a.brep] result
-
-set che [checkshape result r]
-if { [regexp {OK} $che] != 1} {
- puts "Faulty OCC302 (case 1): command checkbrep works wrongly"
-} else {
- puts "OCC302 OK (case 1) : command checkbrep works properly"
-}
-
-set square 271.611
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC302 "
-puts "(case 2)"
-puts "========================"
-puts ""
-#################################################################
-## After performing command "checkbrep" to attached face I receive "Bad Orientation of Subshape"
-## but I believe that orientation of this face is correct.
-#################################################################
-
-restore [locate_data_file OCC302b.brep] result
-
-set che [checkshape result r]
-if { [regexp {OK} $che] != 1} {
- puts "Faulty OCC302 (case 2): command checkbrep works wrongly"
-} else {
- puts "OCC302 OK (case 2) : command checkbrep works properly"
-}
-
-set square 1.93998
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC302 "
-puts "(case 3)"
-puts "========================"
-puts ""
-#################################################################
-## After performing command "checkshape" to attached face I receive "Bad Orientation of Subshape"
-## but I believe that orientation of this face is correct.
-#################################################################
-
-restore [locate_data_file OCC302c.brep] result
-
-set che [checkshape result r]
-if { [regexp {OK} $che] !=1 } {
- puts "Faulty OCC302 (case 3): command checkshape works wrongly"
-} else {
- puts "OCC302 OK (case 3) : command checkshape works properly"
-}
-
-set square 23240.8
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
-puts "========"
-puts "OCC305"
-puts "========"
-puts ""
-######################################################
-# BRepOffsetAPI_MakeOffset: problem with offsetting a wire
-######################################################
-
-puts ""
-puts "Bug's attributes"
-puts "################"
-puts ""
-puts "Customer : Telco"
-puts "Channel : External"
-puts "Version : 4.0"
-puts "OS : IRIX"
-puts "Urgency : High"
-puts "Type : BUG"
-puts ""
-puts "Summary: BRepOffsetAPI_MakeOffset: problem with offsetting a wire"
-puts ""
-puts "Description:"
-puts "I am attaching the brep file of a curve, obtained from intersection with a"
-puts "plane. Its a planer curve and we want to offset it by the amount which"
-puts "is feasible. after trying with all options we were not able to offset it."
-puts "But the same wire when we read inside EUCLID3 as well as CATIA it does"
-puts "the offset correctly."
-puts ""
-puts ""
-puts "Bug's advancement"
-puts "#################"
-puts ""
-puts "Customer version Development version"
-puts "Status : CLOSED Status : CLOSED"
-puts "Resolution : NOT Resolution : NOT"
-puts "Leave as CLOSED NOT Leave as CLOSED NOT"
-puts ""
-puts ""
-puts "Bug's history"
-puts "#############"
-puts ""
-puts "------- Additional Comments From Igor NAZAROV-BUGMASTER 2002-04-19 16:21 -------"
-puts "Dear Sergey,"
-
-puts "Below you will find conclusion of JGV about thia bug"
-puts "Bugmaster"
-puts " This case can not be done by existing algorithm. It is mathematical"
-puts "limitation: the offset may be performed only from at least C1-continuous"
-puts "curve, but all the 12 edges of initial wire are based on C0-continuous"
-puts "curves."
-puts " I may modify the algorithm so that it splits initial edges into"
-puts "C1-continuous curves, but then resulting wire will consist of too many"
-puts "small edges (in our case the number of edges will increase about 100"
-puts "times)."
-puts " But user may obtain initial wire more smooth: when he intersects"
-puts "something with a plane by command \"section\", he can add the key \"-a\""
-puts "(force approximation)."
-puts ""
-puts ""
-
-catch {pload XDE}
-
-restore [locate_data_file OCC305.brep] a
-checkshape a
-
-if [catch {mkoffset result a 1 0.5 } catch_result] {
- puts "Faulty OCC305 : function MKOFFSET works wrongly"
-} else {
- decho off
- set che [checkshape result]
- decho on
- if { [regexp {This shape seems to be valid} $che] == 1} {
- puts "OCC305 OK"
- } else {
- puts "Faulty OCC305"
- }
-}
-set square 0
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_1"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-pload QAcommands
-
-puts "================"
-puts "OCC307"
-puts "SAM1265"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC307.brep] f
-
-set che [checkshape f]
-if { [regexp {Faulty} $che ] == 1} {
- puts "Warning OCC307: Source shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC307 OK: Source shape is valid"
-}
-
-explode f f
-
-renamevar f w
-
-explode w w
-
-OCC307 result1 f_4 w_6 0
-OCC307 result2 f_5 result1 0
-
-checkshape result1
-renamevar result2 result
-
-set square 0
-set 2dviewer 0
-
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_1"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-pload QAcommands
-
-puts "================"
-puts "OCC307"
-puts "SAM1265"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC307.brep] f
-
-set che [checkshape f]
-if { [regexp {Faulty} $che] == 1} {
- puts "Warning OCC307: Source shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC307 OK: Source shape is valid"
-}
-
-explode f f
-
-renamevar f w
-
-explode w w
-
-OCC307 result1 f_4 w_6 1
-OCC307 result2 f_5 result1 1
-
-checkshape result1
-renamevar result2 result
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC315"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC315-1.brep] f1
-restore [locate_data_file OCC315-2.brep] f2
-checkshape f1
-checkshape f2
-
-bcut result f1 f2
-
-set square 58584.1
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC317 "
-puts "========================"
-puts ""
-##################################################
-## A Solid "so" is valid, whereas wire "so_5" from the solid is not valid.
-##################################################
-
-restore [locate_data_file OCC317.brep] result
-
-set che [checkshape result]
-if { [regexp {Faulty} $che] == 1} {
- puts "Faulty OCC317: Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
-} else {
- puts "OCC317 OK: Source shape is valid"
- explode result w
-
- set che [checkshape result_5]
- if { [regexp {Faulty} $che] == 1} {
- puts "Faulty OCC317: Wire is invalid. It was detected by Checkshape command"
- } else {
- puts "OCC317 OK : Wire is valid."
- }
-
- set che [checkshape result r]
- if { [regexp {OK} $che] != 1 } {
- puts "Faulty OCC317: Wire is invalid. It was detected by Checkshape command"
- } else {
- puts "OCC317 OK : Wire is valid."
- }
-}
-
-set square 2104.21
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC318 "
-puts "========================"
-puts ""
-##################################################
-## Checkshape works wrong with Semi-Infinite Prism (s)
-##################################################
-
-box mb -0.5 -0.5 -0.5 1 1 1
-explode mb F
-prism result mb_1 1 0 0 SemiInf
-
-set che [checkshape result]
-if { [regexp {Faulty} $che] == 1} {
- puts "Faulty OCC318: Result shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC318 OK: Result shape is valid"
-}
-
-set square 8e+100
-set 2dviewer 0
+++ /dev/null
-puts "================"
-puts "OCC322"
-puts "================"
-puts ""
-
-pload QAcommands
-
-restore [locate_data_file OCC322.brep] a
-checkshape a
-
-sewing result a
-
-vinit
-vdisplay result
-vfit
-
-set x_coord 204
-set y_coord 297
-
-checkcolor $x_coord $y_coord 1 1 0
-
-set x_coord 251
-set y_coord 232
-
-checkcolor $x_coord $y_coord 1 1 0
-
-set square 20000
-set only_screen 1
-
+++ /dev/null
-
-puts "================"
-puts "OCC323"
-puts "OCC229"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC323.brep] f
-explode f
-
-decho off
-set che [checkshape f_1]
-decho on
-
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Warning OCC323 (shape1): Source shape is NOT correct. It was detected by Checkshape command"
-} else {
- puts "OCC323 OK (shape1): Source shape is valid"
-}
-
-decho off
-set che [checkshape f_2]
-decho on
-
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Warning OCC323 (shape2): Source shape is NOT correct. It was detected by Checkshape command"
-} else {
- puts "OCC323 OK (shape2): Source shape is valid"
-}
-
-bsection r f_1 f_2
-checkshape r
-puts [checksection r]
-
-decho off
-set che [checkshape f_3]
-decho on
-
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Warning OCC323 (shape3): Source shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC323 OK (shape3): Source shape is valid"
-}
-
-bsection result f_1 f_3
-
-set length 1
-set 2dviewer 0
-
-
-
+++ /dev/null
-puts "========================"
-puts " OCC327 "
-puts " case 1 "
-puts "========================"
-
-restore [locate_data_file OCC327a.brep] result
-
-set che [checkshape result r]
-if { [regexp {OK} $che] == 1 } {
- puts " OCC327 case 1: OK"
-} else {
- puts " OCC327 case 1: Faulty"
-}
-
-set square 1477.93
-set 2dviewer 0
-
+++ /dev/null
-puts "========================"
-puts " OCC327 "
-puts " case 2 "
-puts "========================"
-
-restore [locate_data_file OCC327b.brep] result
-
-set che [checkshape result r]
-if { [regexp {OK} $che] == 1 } {
- puts " OCC327 case 2: OK"
-} else {
- puts " OCC327 case 2: Faulty"
-}
-
-set square 5674.84
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC327 "
-puts " case 3 "
-puts "========================"
-
-restore [locate_data_file OCC327c.brep] result
-
-set che [checkshape result r]
-if { [regexp {OK} $che] == 1 } {
- puts " OCC327 case 3: OK"
-} else {
- puts " OCC327 case 3: Faulty"
-}
-
-set square 61013.8
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC327 "
-puts " case 4 "
-puts "========================"
-
-restore [locate_data_file OCC327d.brep] result
-
-set che [checkshape result r]
-if { [regexp {OK} $che] == 1 } {
- puts " OCC327 case 4: OK"
-} else {
- puts " OCC327 case 4: Faulty"
-}
-
-set square 7793.26
-set 2dviewer 0
-
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC330: Checkshape command works wrongly"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========================"
-puts " OCC330 "
-puts "========================"
-puts ""
-##################################################
-## checkshape command consider the shape with incorrect order of tolerance as valid.
-##################################################
-
-restore [locate_data_file OCC330.brep] result
-
-decho off
-set che [checkshape result]
-decho on
-
-if { [regexp {Faulty} $che ] != 1 } {
- puts "Faulty OCC330: Checkshape command works wrongly"
-} else {
- puts "OCC330 OK : Checkshape command works properly"
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60928"
-puts "OCC334"
-puts "============"
-
-restore [locate_data_file BUC60928.brep] a
-
-explode a
-checkshape a_1
-checkshape a_2
-
-bcut result a_2 a_1
-
-set square 358258
-set 2dviewer 0
-
+++ /dev/null
-
-puts "============"
-puts "BUC60931"
-puts "OCC335"
-puts "============"
-puts ""
-#################################################################################
-## It's impossible to make boolean operations (common)for the two solids in the file attached. Samcef Modeler project bug
-#################################################################################
-
-restore [locate_data_file BUC60931.brep] a
-
-explode a
-checkshape a_1
-checkshape a_2
-
-bcommon result a_1 a_2
-
-set square 22715.9
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60939"
-puts "OCC336"
-puts "============"
-
-restore [locate_data_file BUC60939.brep] a
-
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_1 a_2
-
-set square 32903.1
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC337"
-puts "================"
-puts ""
-############################################
-## It's impossible to fuse two solids in the file attached.
-############################################
-
-restore [locate_data_file OCC337_clone1.brep] a
-explode a
-
-set che [checkshape a_1]
-
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC337 (shape 1): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar a_1 result
-} else {
- puts "OCC337 OK (shape 1): Source shape is valid"
- set che [checkshape a_2]
- if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC337 (shape 2): Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar a_2 result
- } else {
- puts "OCC337 OK (shape 2): Source shape is valid"
- bfuse result a_1 a_2
- }
-}
-
-set square 35009.9
-set 2dviewer 0
-
-
-
-
+++ /dev/null
-
-puts "========"
-puts "BUC60996"
-puts "OCC338"
-puts "========"
-puts ""
-
-restore [locate_data_file buc60996.brep] b
-explode b
-checkshape b_1
-checkshape b_2
-
-bfuse f1 b_1 b_2
-checkshape f1
-bfuse result b_2 b_1
-
-set square 73561.9
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "BUC61005"
-puts "OCC340"
-puts "========"
-puts ""
-
-restore [locate_data_file buc61005.brep] w
-checkshape w
-revol result w 0 0 0 0 0 1 360 1
-
-set square 55795.4
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "BUC61008"
-puts "OCC341"
-puts "========"
-puts ""
-
-restore [locate_data_file buc61008.brep] w
-checkshape w
-
-mkplane f w
-prism result f 0 0 100
-
-set square 24991
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "BUC61048"
-puts "OCC345"
-puts "================"
-puts ""
-############################################
-## Command sameparametr in DRAW hangs on attached edge.
-############################################
-
-restore [locate_data_file OCC345.brep] result
-
-sameparameter result
-set length 3.89067
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " BUC60959 "
-puts " OCC347 "
-puts " (case 1) "
-puts "========================"
-
-restore [locate_data_file OCC347a.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vfit
-vsetdispmode result 1
-set 3dviewer 1
-
-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 == 72 && $nod == 74} {
- puts " OCC347 case 1: OK"
-} else {
- puts " OCC347 case 1: Faulty"
-}
-
-set square 314.159
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " BUC60959 "
-puts " OCC347 "
-puts " (case 2) "
-puts "========================"
-
-restore [locate_data_file OCC347b.brep] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vfit
-vsetdispmode result 1
-set 3dviewer 1
-
-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 == 71 && $nod == 73} {
- puts " OCC347 case 2: OK"
-} else {
- puts " OCC347 case 2: Faulty"
-}
-
-set square 100.531
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC356"
-puts "================"
-puts ""
-#######################################################
-## The Draw command "wexplo" gives one edge instead of 6 for the face.
-#######################################################
-
-restore [locate_data_file OCC356.brep] result
-checkshape result
-
-explode result w
-
-wexplo result_1 result
-
-set nom 0
-set j 1
-repeat 10 {
- set err ""
- regexp { is a shape ([A-Z]+)} [whatis WEDGE_$j] full err
- if { $err != "EDGE"} {
- break
- } else {
- set nom [expr $nom + 1]
- }
- incr j
-}
-if { $nom != 6} {
- puts "Faulty OCC356 : Command WEXPLO works WRONGLY"
-} else {
- puts "OCC356 OK : Command WEXPLO works properly"
-}
-
-set square 6207.83
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC357"
-puts "BUC60970"
-puts "========"
-
-restore [locate_data_file buc60970a.brep] a
-checkshape a
-## small/brep/OCC358a.brep - second shape
-restore [locate_data_file OCC358a.brep] b
-checkshape b
-
-if { [catch { pipe result a b } catch_result] } {
- puts "$catch_result"
-}
-
-set square 44761.1
-set 2dviewer 0
-
-
+++ /dev/null
-puts "========================"
-puts " BUC60977 "
-puts " OCC358 "
-puts "========================"
-#####
-puts "The helical pipe is not shaded in AISViewer"
-#####
-
-restore [locate_data_file OCC358a.brep] f
-checkshape f
-
-restore [locate_data_file OCC358b.brep] w
-checkshape w
-
-pipe result w f
-
-vinit
-vdisplay result
-vfit
-vsetdispmode result 1
-# checkshape res
-# maxtolerance res
-
-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 == 12966 && $nod == 6896} {
- puts " OCC358 looks like OK"
-} else {
- puts [format " tri= %s nod= %s " $tri $nod]
- puts " OCC358 : Shady (bad shading)"
-}
-
-set square 24861.2
-set 2dviewer 0
-
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC369"
-puts "BUC61031"
-puts "========"
-puts ""
-#################################################################
-## BndLib_Add3dCurve raised an exception on edges which range is out of the domain of the curve.
-#################################################################
-
-restore [locate_data_file OCC369.brep] result
-OCC369 result
-
-set square 0.077223
-set 2dviewer 0
-
-
-
-
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC395"
-puts "SAM1296"
-puts "================"
-puts ""
-##############################################################
-## After merge two edges with help GeomConvert_CompCurveToBSplineCurve result is bad.
-##############################################################
-
-restore [locate_data_file OCC395-1.brep] e1
-
-set che [checkshape e1]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC395: Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar e1 result
-} else {
- puts "OCC395 OK: Source shape is valid"
-
- restore [locate_data_file OCC395-2.brep] e2
- set che [checkshape e2]
- if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC395: Source shape is invalid. It was detected by Checkshape command"
- puts "Body of the script was NOT executed"
- renamevar e2 result
- } else {
- puts "OCC395 OK: Source shape is valid"
- OCC395 result e1 e2
- }
-}
-
-set length 34.9073
-set 2dviewer 0
-
-
+++ /dev/null
-puts "========================"
-puts " OCC397 "
-puts "========================"
-
-pload QAcommands
-
-restore [locate_data_file OCC397.brep] a
-checkshape a
-
-tclean a
-explode a f
-renamevar a_55 result
-
-vinit
-vdisplay result
-vfit
-vsetdispmode result 1
-
-set x_coord 235
-set y_coord 180
-
-checkcolor $x_coord $y_coord 0.5 0.35 0.05
-
-if { ${stat} != 1 } {
- puts "Error : Shading is missing in 3D Viewer"
-}
-
-vselect 220 170
-
-set square 92.9029
-set only_screen 1
-
-
+++ /dev/null
-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
+++ /dev/null
-#INTERFACE IGES
-puts "========"
-puts "OCC398"
-puts "========"
-puts ""
-#############################################################
-## ShapeHealing modification 1:1 increases number of unique shapes in compound structure.
-#############################################################
-
-pload XDE
-
-restore [locate_data_file OCC398.brep] a
-#statsh a
-#nbshapes a
-#Statshape should give 3 solids
-#Nbshape should return 1 solid
-
-scaleshape result a 10
-
-#statsh res
-
-set nb_sol_good 1
-set square 180000.
-set 2dviewer 0
+++ /dev/null
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
- puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
- puts "TODO OCC12345 ALL: Faulty OCC399: Command checkshape works wrongly: Source shape is invalid but this shape must be OK"
-### by apn master 16.12.2012
-### puts "TODO OCC12345 ALL: Error : The square of result shape is"
-}
-
-puts "========"
-puts "OCC399"
-puts "========"
-puts ""
-#########################################
-## Checkshape gives wrong result for valid face
-#########################################
-
-restore [locate_data_file OCC399.brep] result
-
-set che [checkshape result]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC399: Command checkshape works wrongly: Source shape is invalid but this shape must be OK"
-} else {
- puts "OCC399 OK : Source shape is valid. Command checkshape works properly."
-}
-
-set square 4558.53
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: OCC358 : Faulty"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "========================"
-puts " OCC400 "
-puts "========================"
-
-restore [locate_data_file OCC400.brep] result
-
-tclean result
-isos result 0
-
-vinit
-vdisplay result
-vfit
-vsetdispmode result 1
-
-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 == 66 && $nod ==70} {
- puts " Warning: OCC358 looks like OK, but visual checking is required !!!!"
-} else {
- puts "OCC358 : Faulty , but visual checking is required !!!!"
-}
-
-set square 0
-set 3dviewer 1
-
-
+++ /dev/null
-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
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC405"
-puts "OCC435"
-puts "SAM1296"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC395-1.brep] e1
-restore [locate_data_file OCC405-2.brep] e2
-
-checkshape e1
-checkshape e2
-
-OCC405 result e1 e2
-
-regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
-
-if { $num == 2 } {
- puts "OCC405 OK : Result shape is CORRECT !!! "
-} else {
- puts " Faulty OCC405: Result shape is INcorrect !!! "
-}
-
-set length 17.5348
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC406: Command checkshape works wrongly: Source shape looks invalid"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC406"
-puts "========"
-puts ""
-#########################################
-## Checkshape says face is Ok, but it looks invalid
-#########################################
-
-restore [locate_data_file OCC406.brep] result
-
-set che [checkshape result]
-
-if { [regexp {Faulty} $che ] != 1 } {
- puts "Faulty OCC406: Command checkshape works wrongly: Source shape looks invalid"
-} else {
- puts "OCC406 OK : Source shape is invalid. Command checkshape works properly."
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC407 "
-puts "(case 1)"
-puts "========================"
-puts ""
-
-pcylinder b1 1 4
-pcylinder b2 1 4
-trotate b2 0 0 2 1 0 0 90
-trotate b2 0 0 2 0 1 0 60
-
-bfuse result b2 b1
-checkshape -top result
-
-set square 46.8319
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC407 "
-puts "(case 2)"
-puts "========================"
-puts ""
-
-pcylinder b1 1 4
-pcylinder b2 1 4
-trotate b2 0 0 2 1 0 0 90
-trotate b2 0 0 2 0 1 0 60
-
-bcut result b2 b1
-checkshape -top result
-
-set square 31.4159
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC409 "
-puts "========================"
-puts ""
-
-restore [locate_data_file f2] b1
-checkshape b1
-
-restore [locate_data_file f6] b2
-checkshape b2
-
-bcommon result b1 b2
-
-set square 45.5929
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC410 "
-puts "(case 1)"
-puts "========================"
-puts ""
-
-restore [locate_data_file f7] b1
-checkshape b1
-
-restore [locate_data_file f3] b2
-checkshape b2
-
-bcommon result b1 b2
-
-set square 63.4508
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC410 "
-puts "(case 2)"
-puts "========================"
-puts ""
-
-restore [locate_data_file f7] b1
-checkshape b1
-
-restore [locate_data_file f3] b2
-checkshape b2
-
-bfuse result b1 b2
-
-set square 172.169
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC410 "
-puts "(case 3)"
-puts "========================"
-puts ""
-
-restore [locate_data_file f7] b1
-checkshape b1
-
-restore [locate_data_file f3] b2
-checkshape b2
-
-bcut result b1 b2
-
-set square 15.0891
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC410 "
-puts "(case 4)"
-puts "========================"
-puts ""
-
-restore [locate_data_file f7] b1
-checkshape b1
-
-restore [locate_data_file f3] b2
-checkshape b2
-
-
-if [catch {bcut result b2 b1 } result] {
- puts "Faulty OCC410: function CUT works wrongly"
-} else {
- puts " OCC410 OK: function CUT works properly"
-}
-
-set square 93.6289
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC411 "
-puts "========================"
-puts ""
-
-restore [locate_data_file f4] b1
-checkshape b1
-
-restore [locate_data_file f5] b2
-checkshape b2
-
-bfuse result b1 b2
-
-set square 314.159
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC412 "
-puts "========================"
-puts ""
-
-restore [locate_data_file f2] b1
-checkshape b1
-
-restore [locate_data_file f3] b2
-checkshape b2
-
-bcut result b1 b2
-
-set square 43.6332
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC413 "
-puts "(case 1)"
-puts "========================"
-puts ""
-
-restore [locate_data_file so1] b1
-checkshape b1
-
-restore [locate_data_file so4] b2
-checkshape b2
-
-bcommon result b1 b2
-
-set square 549.779
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC413 "
-puts "(case 2)"
-puts "========================"
-puts ""
-
-restore [locate_data_file so1] b1
-checkshape b1
-
-restore [locate_data_file so4] b2
-checkshape b2
-
-bcut result b1 b2
-
-set square 863.938
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC415 "
-puts "PRO5557"
-puts "========================"
-puts ""
-
-restore [locate_data_file pro5557_revol.brep] revol1
-checkshape revol1
-restore [locate_data_file pro5557_bsurf.brep] bsurf2
-checkshape bsurf2
-
-zoom 660
-normals bsurf2 0.27
-point pnt1 0 -0.3 0
-halfspace space2 bsurf2 0 -0.3 0
-
-bcut result revol1 space2
-
-set testinfos(info) \
- "pro5557 : cut a cylinder by an infinite surface extrusion"
-set testinfos(infoX) -0.2
-set testinfos(infoY) -0.2
-set testinfos(infoZ) -0.34
-set testinfos(infoZ2) -0.3
-
-checkshape -top result
-
-set square 0.402138
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========================"
-puts " OCC416 "
-puts "CTS19305"
-puts "========================"
-puts ""
-
-restore [locate_data_file CTO900_cts19305-part.rle] part
-checkshape part
-
-restore [locate_data_file CTO900_cts19305-tool.rle] tool
-checkshape tool
-
-bcut result part tool
-
-checkshape -top result
-
-set square 76632.9
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========================"
-puts " OCC417 "
-puts "CTS21128"
-puts "========================"
-puts ""
-
-restore [locate_data_file cts21128c.rle] c
-checkshape c
-
-restore [locate_data_file cts21128d.rle] d
-checkshape d
-
-bcut result c d
-
-set square 2814.01
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC418 "
-puts "CTS20370"
-puts "(case 1)"
-puts "========================"
-puts ""
-
-restore [locate_data_file CTO904_cts20370-part.rle] part
-checkshape part
-
-restore [locate_data_file cts20370-tool.rle] tool
-checkshape tool
-
-bsection sec part tool
-checkshape -top sec
-
-bcut result part tool
-checkshape -top result
-
-set square 273365.
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC418 "
-puts "CTS20370"
-puts "(case 2)"
-puts "========================"
-puts ""
-
-restore [locate_data_file CTO904_cts20370-part.rle] a
-checkshape a
-
-restore [locate_data_file cts20370-tool.rle] b
-checkshape b
-
-bsection sec a b
-
-bfuse result a b
-checkshape -top result
-
-set square 261265.
-set 2dviewer 0
-
+++ /dev/null
-# Original bug :
-
-puts "========================"
-puts " OCC419 "
-puts "FRA50047"
-puts "========================"
-puts ""
-
-restore [locate_data_file CTO904_fra50047a.rle] a
-checkshape a
-
-restore [locate_data_file fra50047b.rle] b
-checkshape b
-
-bsection sec a b
-checkshape -top sec
-
-bfuse result a b
-checkshape -top result
-
-set square 508496.
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "========================"
-puts " OCC420 "
-puts "PRO12473"
-puts "========================"
-puts ""
-
-restore [locate_data_file CTO909_objects.brep] a
-checkshape a
-
-restore [locate_data_file CTO909_tool_4.brep] b
-checkshape b
-
-bsection sec a b
-puts [checksection sec]
-checkshape sec
-explode a so
-renamevar a_1 a
-
-bcut result a b
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC421 "
-puts "========================"
-puts ""
-
-profile p c 5 180 l 5 t 0 5 d -1 0 c 5 180 l 5
-polyline w 0 0 0 0 0 10
-pipe p w p
-nexplode p f
-
-depouille result p 0 0 1 p_1 5 0 0 0 0 0 1 \
-p_7 1 0 0 0 0 0 1 \
-p_8 5 0 0 0 0 0 1 \
-p_2 1 0 0 0 0 0 1
-
-set square 659.647
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC422 "
-puts "(case 1)"
-puts "========================"
-puts ""
-
-plane p 0 0 0 0 0 1 -1 0 0
-psphere p p 20 0 90
-#profile pf o -4 -4 1 l 8 d 0 1 l 8 d -1 0 l 8
-profile pf o -4 -4 1 l 8 c 2 90 l 8 d -1 0 l 8
-prism p2 pf 0 0 40
-bfuse f p p2
-nexplode f f
-
-depouille result f 0 0 1 f_7 5 0 0 40 0 0 1
-
-set square 4630.78
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC422 "
-puts "(case 2)"
-puts "========================"
-puts ""
-
-plane ps 10 -3 0 1 0 0 0 .2 1
-psphere ps ps 20
-profile pf o 5 1 5 l 10 c 2 90 l 5 d -1 0 \
-l 14 d 0 -1 l 5 c 2 90
-prism pr pf 0 0 30
-bfuse f ps pr
-nexplode f f
-
-depouille result f 0 0 1 f_4 4 0 0 30 0 0 1
-
-set square 5719.09
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC423 "
-puts "(case 1)"
-puts "========================"
-puts ""
-
-restore [locate_data_file cylindre.rle] cyl
-checkshape cyl
-
-restore [locate_data_file contour.rle] cont
-checkshape cont
-
-mkplane cont cont
-nexplode cyl F
-
-ttranslate cont 0 200 0
-featdprism cyl cont cont 10 1 1
-
-if [catch {featperformval dprism result 55 cyl_3 } catch_result] {
- puts "Faulty OCC423 (case 1): function FEATPERFORMVAL works wrongly"
-} else {
- puts "OCC423 OK (case 1): function FEATPERFORMVAL works properly"
-}
-
-set square 94944.4
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC423 "
-puts "(case 2)"
-puts "========================"
-puts ""
-
-restore [locate_data_file pro15515_base.rle] base
-checkshape base
-
-restore [locate_data_file pro15515_face.rle] cont
-checkshape cont
-
-explode base face
-copy base_4 ffrom
-copy base_3 funtil
-
-### From Until
-featrevol base cont cont 54.06494140625 70.2841796875 0 0 0 1 1 1
-featperform revol result funtil ffrom
-
-set square 560028.
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC424 "
-puts "(case 1)"
-puts "========================"
-puts ""
-
-restore [locate_data_file CFE_e_lonfzx.rle] E
-nexplode E f
-
-profile cont S E_10 F 50 -100 X 50 Y -100 X -50
-featdprism E cont E_10 10 1 1
-
-if [catch {featperform dprism result E_5 E_6 } catch_result] {
- puts "Faulty OCC424 (case 1): function FEATPERFORM works wrongly"
-} else {
- puts "OCC424 OK (case 1): function FEATPERFORM works properly"
-}
-
-set square 978236.
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC424 "
-puts "(case 2)"
-puts "========================"
-puts ""
-
-restore [locate_data_file CFE_e_lonfzx.rle] E
-nexplode E f
-
-profile cont S E_10 F 50 -100 X 50 Y -100 X -50
-featdprism E cont E_10 10 1 1
-
-if [catch {featperform dprism result } catch_result] {
- puts "Faulty OCC424 (case 2): function FEATPERFORM works wrongly"
-} else {
- puts "OCC424 OK (case 2): function FEATPERFORM works properly"
-}
-
-set square 978236.
-set 2dviewer 0
+++ /dev/null
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-if {[string compare $os "windows"] != 0 } {
- puts "TODO OCC12345 ALL: Exception"
- puts "TODO OCC12345 ALL: An exception was caught"
- puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-}
-
-pload QAcommands
-
-puts "========"
-puts "OCC426"
-puts "OCC50"
-puts "========"
-#############################################################################
-## The result of fuse operation is invalid
-#############################################################################
-## BRepFilletAPI_MakeFillet presents a bug on fillet computation (build())
-#############################################################################
-## (old topology)
-#############################################################################
-
-OCC426 result rs1 rs2 rs3 fuse32 fuse321 0
-
-checkshape rs1
-checkshape rs2
-checkshape rs3
-checkshape fuse32
-checkshape fuse321
-
-set square 7507.61
-set 2dviewer 1
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-pload QAcommands
-
-puts "========"
-puts "OCC426"
-puts "OCC50"
-puts "========"
-#############################################################################
-## The result of fuse operation is invalid
-#############################################################################
-## BRepFilletAPI_MakeFillet presents a bug on fillet computation (build())
-#############################################################################
-
-OCC426 result rs1 rs2 rs3 fuse32 fuse321
-
-checkshape rs1
-checkshape rs2
-checkshape rs3
-checkshape fuse32
-checkshape fuse321
-
-set square 7507.61
-set 3dviewer 1
-
+++ /dev/null
-
-puts "========="
-puts " OCC427 "
-puts "(case 1)"
-puts "========="
-puts ""
-cpulimit 1200
-proc OFFSETSHAPE {distance faces calcul type} {
- uplevel #0 explode s f
- uplevel #0 offsetparameter 1e-7 $calcul $type
- uplevel #0 offsetload s $distance $faces
- uplevel #0 offsetperform result
-}
-
-#Shell no rough and rounded mode
-
-set calcul "c"
-set type "i"
-
-pcone s 9 4 15 90
-trotate s 0 0 0 0 0 1 90
-
-OFFSETSHAPE 1 {} $calcul $type
-
-set square 671.382
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC427 "
-puts "(case 2)"
-puts "========================"
-puts ""
-cpulimit 1200
-proc OFFSETSHAPE {distance faces calcul type} {
- uplevel #0 explode s f
- uplevel #0 offsetparameter 1e-7 $calcul $type
- uplevel #0 offsetload s $distance $faces
- uplevel #0 offsetperform result
-}
-
-#Shell no rough and rounded mode
-
-set calcul "c"
-set type "i"
-
-pcone s 9 4 15 90
-trotate s 0 0 0 0 0 1 90
-
-OFFSETSHAPE 1 {s_5} $calcul $type
-
-set square 858.167
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC427 "
-puts "(case 3)"
-puts "========================"
-puts ""
-cpulimit 1200
-proc OFFSETSHAPE {distance faces calcul type} {
- uplevel #0 explode s f
- uplevel #0 offsetparameter 1e-7 $calcul $type
- uplevel #0 offsetload s $distance $faces
- uplevel #0 offsetperform result
-}
-
-#Shell no rough and rounded mode
-
-set calcul "c"
-set type "i"
-
-pcone s 9 4 15 90
-trotate s 0 0 0 0 0 1 90
-
-OFFSETSHAPE 1 {s_2 s_3} $calcul $type
-
-set square 885.688
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC427 "
-puts "(case 4)"
-puts "========================"
-puts ""
-cpulimit 1200
-proc OFFSETSHAPE {distance faces calcul type} {
- uplevel #0 explode s f
- uplevel #0 offsetparameter 1e-7 $calcul $type
- uplevel #0 offsetload s $distance $faces
- uplevel #0 offsetperform result
-}
-
-#Shell no rough and rounded mode
-
-set calcul "c"
-set type "i"
-
-circle w -20 0 0 20
-mkedge w w 0 pi*2/5
-wire w w
-polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
-mkplane profile profile
-pipe s w profile
-
-OFFSETSHAPE 1 {} $calcul $type
-
-set square 1306.3
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC427 "
-puts "(case 5)"
-puts "========================"
-puts ""
-cpulimit 1200
-proc OFFSETSHAPE {distance faces calcul type} {
- uplevel #0 explode s f
- uplevel #0 offsetparameter 1e-7 $calcul $type
- uplevel #0 offsetload s $distance $faces
- uplevel #0 offsetperform result
-}
-
-#Shell no rough and rounded mode
-
-set calcul "c"
-set type "i"
-
-circle w -20 0 0 20
-mkedge w w 0 pi*2/5
-wire w w
-polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
-mkplane profile profile
-pipe s w profile
-
-OFFSETSHAPE 1 {s_2} $calcul $type
-
-set square 1297.39
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC427 "
-puts "(case 6)"
-puts "========================"
-puts ""
-cpulimit 1200
-proc OFFSETSHAPE {distance faces calcul type} {
- uplevel #0 explode s f
- uplevel #0 offsetparameter 1e-7 $calcul $type
- uplevel #0 offsetload s $distance $faces
- uplevel #0 offsetperform result
-}
-
-#Shell no rough and rounded mode
-
-set calcul "c"
-set type "i"
-
-circle w -20 0 0 20
-mkedge w w 0 pi*2/5
-wire w w
-polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
-mkplane profile profile
-pipe s w profile
-
-OFFSETSHAPE 1 {s_4 s_5} $calcul $type
-
-set square 808.448
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC434"
-puts "SAM1296"
-puts "================"
-puts ""
-
-########################################################
-## Exception is raised on NT, SUN in the GeomConvert_CompCurveToBSplineCurve
-########################################################
-
-restore [locate_data_file OCC434.brep] e
-checkshape e
-explode e e
-
-OCC405 result e_1 e_2
-
-regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
-
-if { $num == 2 } {
- puts "OCC434 OK : Result shape is CORRECT !!! "
-} else {
- puts " Faulty OCC434: Result shape is INcorrect !!! "
-}
-
-set length 8.74616
-set 2dviewer 0
-
+++ /dev/null
-pload QAcommands
-
-#INTERFACE IGES
-puts "========================"
-puts " OCC435 "
-puts " OCC405 "
-puts "========================"
-puts ""
-###############################################################
-## Exception Standard_ConstructuionError is rased in DRAW in the
-## GeomConvert_CompCurveToBSplineCurve on the attached shapes during command merge
-###############################################################
-
-restore [locate_data_file OCC435a.brep] a
-explode a
-set j 1
-repeat 8 {
- explode a_$j
- if { [catch {OCC405 result a_${j}_1 a_${j}_2} catch_result] } {
- puts "Faulty OCC435 : merge operation was made incorrect"
- } else {
- puts " OCC435 OK: merge operation was made properly"
- }
- incr j
-}
-
-set length 17.2848
-set 3dviewer 1
+++ /dev/null
-puts "========================"
-puts " OCC437 "
-puts "========================"
-puts ""
-##########################################
-## different checkshape result under ros and rosdeb in KAS:dev.
-##########################################
-
-restore [locate_data_file OCC437.brep] result
-
-set che [checkshape result r]
-
-if { [regexp {OK} $che] != 1 } {
- puts " Faulty OCC437: function CHECKSHAPE works wrongly"
-} else {
- puts " OCC437 OK: function CHECKSHAPE works properly"
-}
-
-set square 0.000201234
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC439 "
-puts "========================"
-puts ""
-#####################################################
-## Cut operation produces NOT Valid result on attached shapes
-#####################################################
-
-restore [locate_data_file OCC439.brep] a
-explode a
-
-checkshape a_1
-checkshape a_2
-
-bcut result a_1 a_2
-
-set che [checkshape result]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC134: Resulte shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC134 OK: Result shape is valid"
-}
-
-set square 247000
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC442"
-puts "========"
-puts ""
-########################################################
-## The Revolution Algo produces result, but during check using IsValid method from
-## BRepAlgoAPI the exception is raised
-########################################################
-
-restore [locate_data_file OCC442.brep] a
-checkshape a
-
-explode a v
-
-mkpoint p_1 a_1
-mkpoint p_2 a_3
-coord p_1 x1 y1 z1
-coord p_2 x2 y2 z2
-set ax [dval x1]
-set ay [dval y1]
-set az [dval z1]
-set bx [dval x2]
-set by [dval y2]
-set bz [dval z2]
-set dx [expr $ax - $bx]
-set dy [expr $ay - $by]
-set dz [expr $az - $bz]
-
-revol result a $ax $ay $az $dx $dy $dz 360
-
-set square 692942
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
-puts "TODO OCC12345 ALL: Faulty OCC446"
-###puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC446"
-puts "OCC447"
-puts "(case 1)"
-puts "========"
-puts ""
-######################################
-## As result I have fail on shape that it is not closed.
-######################################
-
-restore [locate_data_file OCC446a.brep] result
-
-set che [checkshape result]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC446 (case 1): Source shape is NotClosed"
-} else {
- puts "OCC446 OK (case 1): Source shape is Closed"
-}
-set square 108.845
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC446"
-puts "OCC447"
-puts "(case 2)"
-puts "========"
-puts ""
-######################################
-## As result I have fail on shape that it is not closed.
-######################################
-
-restore [locate_data_file OCC446b.brep] result
-
-set che [checkshape result]
-if { [regexp {Faulty} $che ] == 1} {
- puts "Faulty OCC446 (case 2): Source shape is NotClosed"
-} else {
- puts "OCC446 OK (case 2): Source shape is Closed"
-}
-set square 24272.8
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC446"
-puts "OCC447"
-puts "(case 3)"
-puts "========"
-puts ""
-######################################
-## As result I have fail on shape that it is not closed.
-######################################
-
-restore [locate_data_file OCC446c.brep] result
-
-set che [checkshape result]
-if { [regexp {Faulty} $che ] == 1} {
- puts "Faulty OCC446 (case 3): Source shape is NotClosed"
-} else {
- puts "OCC446 OK (case 3): Source shape is Closed"
-}
-set square 13694.6
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========"
-puts "OCC446"
-puts "OCC447"
-puts "(case 4)"
-puts "========"
-puts ""
-######################################
-## As result I have fail on shape that it is not closed.
-######################################
-
-restore [locate_data_file OCC446d.brep] result
-
-set che [checkshape result]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC446 (case 4): Source shape is NotClosed"
-} else {
- puts "OCC446 OK (case 4): Source shape is Closed"
-}
-set square 629.347
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC449 "
-puts "========================"
-puts ""
-#######################
-## Invalid cut result
-#######################
-
-restore [locate_data_file OCC449a.brep] b1
-checkshape b1
-
-restore [locate_data_file OCC449b.brep] b2
-checkshape b2
-
-bcut result b1 b2
-
-set square 43401.5
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC452"
-puts "(case 1)"
-puts "========"
-puts ""
-
-pcone pc 10 0 20
-explode pc f
-
-prism pcy pc_2 0 0 10
-
-dchrono h2 reset
-dchrono h2 start
-
-bcut result pc pcy
-
-dchrono h2 stop
-set q2 [ dchrono h2 show ]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
-puts "$z2"
-if { $z2 > 3 } {
- puts "Elapsed time is more then 3 seconds - Faulty"
-} else {
- puts "Elapsed time is less then 3 seconds - OK"
-}
-
-set square 254.16
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "GER60239"
-puts "OCC452"
-puts "(case 2)"
-puts "========"
-puts ""
-
-restore [locate_data_file mds-part1.rle] a
-set che [checkshape a]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC452 (shape 1): Source shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC452 OK (shape 1): Source shape is valid"
-}
-
-restore [locate_data_file mds-part2.rle] b
-set che [checkshape b]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC452 (shape 2): Source shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC452 OK (shape 2): Source shape is valid"
-}
-
-restore [locate_data_file CTO900_ger60239a.rle] c
-set che [checkshape c]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC452 (shape 3): Source shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC452 OK (shape 3): Source shape is valid"
-}
-
-restore [locate_data_file CTO900_ger60239b.rle] d
-set che [checkshape d]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC452 (shape 4): Source shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC452 OK (shape 4): Source shape is valid"
-}
-dchrono h2 reset
-dchrono h2 start
-
-bfuse r a b
-#checkshape r
-
-bfuse result c d
-
-dchrono h2 stop
-set q2 [ dchrono h2 show ]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
-puts "$z2"
-if { $z2 > 60 } {
- puts "Elapsed time is more then 60 seconds - Faulty"
-} else {
- puts "Elapsed time is less then 60 seconds - OK"
-}
-set square 3468.6
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "GER60239"
-puts "OCC452"
-puts "(case 3)"
-puts "========"
-puts ""
-
-restore [locate_data_file CTO900_ger60239a.rle] a
-set che [checkshape a]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC452 (shape 5): Source shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC452 OK (shape 5): Source shape is valid"
-}
-
-restore [locate_data_file CTO900_ger60239b.rle] b
-set che [checkshape b]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC452 (shape 6): Source shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC452 OK (shape 6): Source shape is valid"
-}
-
-dchrono h2 reset
-dchrono h2 start
-
-bfuse result a b
-#checkshape -top res
-
-dchrono h2 stop
-set q2 [ dchrono h2 show ]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
-puts "$z2"
-if { $z2 > 50 } {
- puts "Elapsed time is more then 50 seconds - Faulty"
-} else {
- puts "Elapsed time is less then 50 seconds - OK"
-}
-set square 3468.6
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========"
-puts "PRO7934"
-puts "OCC452"
-puts "(case 4)"
-puts "========"
-puts ""
-
-restore [locate_data_file CTO900_pro7934a.rle] a
-set che [checkshape a]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC452 (shape 7): Source shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC452 OK (shape 7): Source shape is valid"
-}
-
-restore [locate_data_file CTO900_pro7934b.rle] b
-set che [checkshape b]
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC452 (shape 8): Source shape is invalid. It was detected by Checkshape command"
-} else {
- puts "OCC452 OK (shape 8): Source shape is valid"
-}
-
-dchrono h2 reset
-dchrono h2 start
-
-bfuse result a b
-#checkshape -top res
-
-dchrono h2 stop
-set q2 [ dchrono h2 show ]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
-puts "$z2"
-if { $z2 > 5 } {
- puts "Elapsed time is more then 5 seconds - Faulty"
-} else {
- puts "Elapsed time is less then 5 seconds - OK"
-}
-set square 201978
-set 2dviewer 0
-
-
-
+++ /dev/null
-
-puts "========"
-puts "OCC453"
-puts "(case 1)"
-puts "========"
-puts ""
-
-dchrono h2 reset
-dchrono h2 start
-
-set make_print_out 0
-
-dset SCALE 1000.
-dset SCALE1 5
-tolblend 0.01 1e-04 1e-05 1e-03
-
-restore [locate_data_file CFI_5_f12fgk.rle] s
-tscale s 0 0 0 SCALE1
-explode s E
-
-blend result s 0.5*SCALE1 s_1 0.5*SCALE1 s_4 0.5*SCALE1 s_12 0.5*SCALE1 s_8 0.5*SCALE1 s_6
-explode result sh
-tcopy result_1 result
-
-dchrono h2 stop
-set q2 [ dchrono h2 show ]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
-puts "$z2"
-if { $z2 > 50 } {
- puts "Elapsed time is more then 50 seconds - Faulty"
-} else {
- puts "Elapsed time is less then 50 seconds - OK"
-}
-set square 6021.51
-set 2dviewer 1
+++ /dev/null
-
-puts "========"
-puts "OCC453"
-puts "(case 2)"
-puts "========"
-puts ""
-
-dchrono h2 reset
-dchrono h2 start
-
-set make_print_out 0
-
-dset SCALE 1000.
-dset SCALE1 5
-tolblend 0.01 1e-04 1e-05 1e-03
-
-restore [locate_data_file shading_137.brep] s
-tscale s 0 0 0 SCALE1
-explode s E
-
- blend result s 4.5*SCALE1 s_2 4.5*SCALE1 s_1 4.5*SCALE1 s_6 4.5*SCALE1 s_8 4.5*SCALE1 s_10 4.5*SCALE1 s_14 4.5*SCALE1 s_4 4.5*SCALE1 s_5 4.5*SCALE1 s_16 4.5*SCALE1 s_11 4.5*SCALE1 s_19 4.5*SCALE1 s_13
- explode result So
- tcopy result_1 result
-
-dchrono h2 stop
-set q2 [ dchrono h2 show ]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
-puts "$z2"
-if { $z2 > 110 } {
- puts "Elapsed time is more then 110 seconds - Faulty"
-} else {
- puts "Elapsed time is less then 110 seconds - OK"
-}
-
-set square 3.65777e+06
-set 2dviewer 1
+++ /dev/null
-
-puts "========"
-puts "OCC465"
-puts "========"
-puts ""
-
-restore [locate_data_file OCC465.brep] result
-
-set dum [dump result]
-
-regexp {PCurve : 1 on surface 1, range : ([-0-9.+eE]+) ([-0-9.+eE]+)} $dum full err1 err2
-regexp {Curve 3D : 1, range : ([-0-9.+eE]+) ([-0-9.+eE]+)} $dum full err3 err4
-
-if { $err1== $err3 && $err2 == $err4 } {
- puts "Faulty OCC465: it is reset the PCurve range by range of Curve3d after restoring Curve3d"
-} else {
- puts "OCC465 OK"
-}
-
-set length 4.21716
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC4717"
-puts "============"
-puts ""
-######################################################
-# A regression of new Boolean Operations
-# (cfi/002/H3)
-######################################################
-
-dset SCALE1 10
-protect SCALE1
-
-box b -20 -20 -20 40 40 20
-ellipse w1 0 0 0 15 10
-mkedge w1 w1 -pi/2 pi/2
-trotate w1 0 0 0 1 0 0 90
-wire w w1
-revol r w 0 0 0 0 0 1 360
-shape s So
-add r s
-trotate s b 0 0 0 1 1 0 -40
-trotate s b 0 0 0 0 0 1 -10
-tscale b 0 0 0 SCALE1
-tscale s 0 0 0 SCALE1
-
-bop s b
-bopfuse result
-
-set square 680565
-
-set nb_v_good 11
-set nb_e_good 16
-set nb_w_good 8
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 45
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC4717"
-puts "============"
-puts ""
-######################################################
-# A regression of new Boolean Operations
-# (cfi/002/H3)
-######################################################
-
-dset SCALE1 10
-protect SCALE1
-
-box b -20 -20 -20 40 40 20
-ellipse w1 0 0 0 15 10
-mkedge w1 w1 -pi/2 pi/2
-trotate w1 0 0 0 1 0 0 90
-wire w w1
-revol r w 0 0 0 0 0 1 360
-shape s So
-add r s
-trotate s b 0 0 0 1 1 0 -40
-trotate s b 0 0 0 0 0 1 -10
-tscale b 0 0 0 SCALE1
-tscale s 0 0 0 SCALE1
-
-bop b s
-bopfuse result
-
-set square 680565
-
-set nb_v_good 11
-set nb_e_good 16
-set nb_w_good 8
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 45
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC4717"
-puts "============"
-puts ""
-######################################################
-# A regression of new Boolean Operations
-# (cfi/002/H3)
-######################################################
-
-dset SCALE1 10
-protect SCALE1
-
-box b -20 -20 -20 40 40 20
-ellipse w1 0 0 0 15 10
-mkedge w1 w1 -pi/2 pi/2
-trotate w1 0 0 0 1 0 0 90
-wire w w1
-revol r w 0 0 0 0 0 1 360
-shape s So
-add r s
-trotate s b 0 0 0 1 1 0 -40
-trotate s b 0 0 0 0 0 1 -10
-tscale b 0 0 0 SCALE1
-tscale s 0 0 0 SCALE1
-
-bop s b
-bopcut result
-
-set square 181937
-
-set nb_v_good 3
-set nb_e_good 4
-set nb_w_good 2
-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 14
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC4717"
-puts "============"
-puts ""
-######################################################
-# A regression of new Boolean Operations
-# (cfi/002/H3)
-######################################################
-
-dset SCALE1 10
-protect SCALE1
-
-box b -20 -20 -20 40 40 20
-ellipse w1 0 0 0 15 10
-mkedge w1 w1 -pi/2 pi/2
-trotate w1 0 0 0 1 0 0 90
-wire w w1
-revol r w 0 0 0 0 0 1 360
-shape s So
-add r s
-trotate s b 0 0 0 1 1 0 -40
-trotate s b 0 0 0 0 0 1 -10
-tscale b 0 0 0 SCALE1
-tscale s 0 0 0 SCALE1
-
-bop b s
-bopcut result
-
-set square 680565
-
-set nb_v_good 11
-set nb_e_good 16
-set nb_w_good 8
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 45
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC4717"
-puts "============"
-puts ""
-######################################################
-# A regression of new Boolean Operations
-# (cfi/002/H3)
-######################################################
-
-dset SCALE1 10
-protect SCALE1
-
-box b -20 -20 -20 40 40 20
-ellipse w1 0 0 0 15 10
-mkedge w1 w1 -pi/2 pi/2
-trotate w1 0 0 0 1 0 0 90
-wire w w1
-revol r w 0 0 0 0 0 1 360
-shape s So
-add r s
-trotate s b 0 0 0 1 1 0 -40
-trotate s b 0 0 0 0 0 1 -10
-tscale b 0 0 0 SCALE1
-tscale s 0 0 0 SCALE1
-
-bop s b
-boptuc result
-
-set square 680565
-
-set nb_v_good 11
-set nb_e_good 16
-set nb_w_good 8
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 45
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC4717"
-puts "============"
-puts ""
-######################################################
-# A regression of new Boolean Operations
-# (cfi/002/H3)
-######################################################
-
-dset SCALE1 10
-protect SCALE1
-
-box b -20 -20 -20 40 40 20
-ellipse w1 0 0 0 15 10
-mkedge w1 w1 -pi/2 pi/2
-trotate w1 0 0 0 1 0 0 90
-wire w w1
-revol r w 0 0 0 0 0 1 360
-shape s So
-add r s
-trotate s b 0 0 0 1 1 0 -40
-trotate s b 0 0 0 0 0 1 -10
-tscale b 0 0 0 SCALE1
-tscale s 0 0 0 SCALE1
-
-bop b s
-boptuc result
-
-set square 181937
-
-set nb_v_good 3
-set nb_e_good 4
-set nb_w_good 2
-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 14
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC4717"
-puts "============"
-puts ""
-######################################################
-# A regression of new Boolean Operations
-# (cfi/002/H3)
-######################################################
-
-dset SCALE1 10
-protect SCALE1
-
-box b -20 -20 -20 40 40 20
-ellipse w1 0 0 0 15 10
-mkedge w1 w1 -pi/2 pi/2
-trotate w1 0 0 0 1 0 0 90
-wire w w1
-revol r w 0 0 0 0 0 1 360
-shape s So
-add r s
-trotate s b 0 0 0 1 1 0 -40
-trotate s b 0 0 0 0 0 1 -10
-tscale b 0 0 0 SCALE1
-tscale s 0 0 0 SCALE1
-
-bop s b
-bopcommon result
-
-set square 181937
-
-set nb_v_good 3
-set nb_e_good 4
-set nb_w_good 2
-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 14
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC4717"
-puts "============"
-puts ""
-######################################################
-# A regression of new Boolean Operations
-# (cfi/002/H3)
-######################################################
-
-dset SCALE1 10
-protect SCALE1
-
-box b -20 -20 -20 40 40 20
-ellipse w1 0 0 0 15 10
-mkedge w1 w1 -pi/2 pi/2
-trotate w1 0 0 0 1 0 0 90
-wire w w1
-revol r w 0 0 0 0 0 1 360
-shape s So
-add r s
-trotate s b 0 0 0 1 1 0 -40
-trotate s b 0 0 0 0 0 1 -10
-tscale b 0 0 0 SCALE1
-tscale s 0 0 0 SCALE1
-
-bop b s
-bopcommon result
-
-set square 181937
-
-set nb_v_good 3
-set nb_e_good 4
-set nb_w_good 2
-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 14
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========================"
-puts " OCC472 "
-puts "(case 1)"
-puts "========================"
-puts ""
-#####################################################
-## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634)
-#####################################################
-
-restore [locate_data_file OCC472a.brep] b1
-checkshape b1
-
-restore [locate_data_file OCC472b.brep] b2
-checkshape b2
-
-bcut result b1 b2
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "========================"
-puts " OCC472 "
-puts "(case 2)"
-puts "========================"
-puts ""
-#####################################################
-## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634)
-#####################################################
-
-restore [locate_data_file OCC472a.brep] b1
-checkshape b1
-
-restore [locate_data_file OCC472b.brep] b2
-checkshape b2
-
-bcommon result b1 b2
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains 5 vertexes instead of 6"
-
-puts "========================"
-puts " OCC472 "
-puts "(case 3)"
-puts "========================"
-puts ""
-#####################################################
-## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634)
-#####################################################
-
-restore [locate_data_file OCC472a.brep] b1
-checkshape b1
-
-restore [locate_data_file OCC472b.brep] b2
-checkshape b2
-
-bfuse result b1 b2
-
-set nb_v_good 5
-set nb_e_edge 7
-set square 0
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC474 "
-puts "========================"
-puts ""
-##################################################
-## impossible to put a fillet to none of 5 edges sharing one vertrex
-##################################################
-
-restore [locate_data_file OCC474.brep] s
-
-explode s e
-
-blend result s 100 s_16
-
-set square 1.54883e+06
-set 3dviewer 1
+++ /dev/null
-puts "============"
-puts "OCC476"
-puts "============"
-puts ""
-######################################################
-# Regression on reading e3i files with respect of OCC30 and OCC40
-######################################################
-
-restore [locate_data_file OCC485b.brep] s1
-restore [locate_data_file OCC485a.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s1 s2
-bopfuse result
-
-set square 9333.96
-set nb_v_good 16
-set nb_e_good 26
-set nb_w_good 11
-set nb_f_good 11
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 67
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC476"
-puts "============"
-puts ""
-######################################################
-# Regression on reading e3i files with respect of OCC30 and OCC40
-######################################################
-
-restore [locate_data_file OCC485b.brep] s1
-restore [locate_data_file OCC485a.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s2 s1
-bopfuse result
-
-set square 9333.96
-set nb_v_good 16
-set nb_e_good 26
-set nb_w_good 11
-set nb_f_good 11
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 67
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC476"
-puts "============"
-puts ""
-######################################################
-# Regression on reading e3i files with respect of OCC30 and OCC40
-######################################################
-
-restore [locate_data_file OCC485b.brep] s1
-restore [locate_data_file OCC485a.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s1 s2
-bopcut result
-
-set square 99.5159
-set nb_v_good 12
-set nb_e_good 19
-set nb_w_good 9
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 52
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC476"
-puts "============"
-puts ""
-######################################################
-# Regression on reading e3i files with respect of OCC30 and OCC40
-######################################################
-
-restore [locate_data_file OCC485b.brep] s1
-restore [locate_data_file OCC485a.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s2 s1
-bopcut result
-
-set square 9340.03
-set nb_v_good 19
-set nb_e_good 33
-set nb_w_good 14
-set nb_f_good 14
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 83
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC476"
-puts "============"
-puts ""
-######################################################
-# Regression on reading e3i files with respect of OCC30 and OCC40
-######################################################
-
-restore [locate_data_file OCC485b.brep] s1
-restore [locate_data_file OCC485a.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s1 s2
-boptuc result
-
-set square 9340.03
-set nb_v_good 19
-set nb_e_good 33
-set nb_w_good 14
-set nb_f_good 14
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 83
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC476"
-puts "============"
-puts ""
-######################################################
-# Regression on reading e3i files with respect of OCC30 and OCC40
-######################################################
-
-restore [locate_data_file OCC485b.brep] s1
-restore [locate_data_file OCC485a.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s2 s1
-boptuc result
-
-set square 99.5159
-set nb_v_good 12
-set nb_e_good 19
-set nb_w_good 9
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 52
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC476"
-puts "============"
-puts ""
-######################################################
-# Regression on reading e3i files with respect of OCC30 and OCC40
-######################################################
-
-restore [locate_data_file OCC485b.brep] s1
-restore [locate_data_file OCC485a.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s1 s2
-bopcommon result
-
-set square 105.587
-set nb_v_good 15
-set nb_e_good 26
-set nb_w_good 12
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 68
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC476"
-puts "============"
-puts ""
-######################################################
-# Regression on reading e3i files with respect of OCC30 and OCC40
-######################################################
-
-restore [locate_data_file OCC485b.brep] s1
-restore [locate_data_file OCC485a.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s2 s1
-bopcommon result
-
-set square 105.587
-set nb_v_good 15
-set nb_e_good 26
-set nb_w_good 12
-set nb_f_good 12
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 68
-
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC481 "
-puts "========================"
-puts ""
-##########################################
-##Attached shape could not be displayed in the Shading mode.
-##########################################
-
-restore [locate_data_file OCC481.rle] result
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vfit
-vsetdispmode result 1
-
-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 == 72 && $nod == 74 } {
- puts " OCC481 : OK"
-} else {
- puts " OCC481 : Faulty"
-}
-
-set square 314.159
-set 3dviewer 1
+++ /dev/null
-
-puts "========="
-puts " OCC485 "
-puts "========="
-puts ""
-#######################################
-## Draw hangs up during performing fuse operation
-#######################################
-
-restore [locate_data_file OCC485a.brep] a_1
-checkshape a_1
-
-restore [locate_data_file OCC485a.brep] a_2
-checkshape a_2
-
-if [catch {bfuse result a_1 a_2 } result] {
- puts "Faulty OCC485: Draw hangs up during performing fuse operation"
-} else {
- puts "OCC485 OK: function FUSE works without Draw hangs up "
-}
-
-set square 9291.88
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC487 "
-puts "========================"
-#######################################################
-## Regression on KAS:dev:ros with respect to OCC4.0
-## Case cfi 900 N3.
-## Fillets are created on OCC4.0
-#######################################################
-
-restore [locate_data_file CFI_pro15441.rle] m
-explode m e
-
-if [catch {blend result m 2 m_36 2 m_21 } result] {
- puts "Faulty OCC485: function BLEND works wrongly"
-} else {
- puts "OCC485 OK: function BLEND works properly "
-}
-
-explode result sh
-
-renamevar result_1 result
-
-set square 6265.68
-set 3dviewer 1
-
-
-
-
-
+++ /dev/null
-
-puts "========="
-puts " OCC488 "
-puts "========="
-puts ""
-########################################################
-## Boolean operation returns invalid result, it lead to regression on test cfe/002/C1
-########################################################
-
-restore [locate_data_file OCC488a.brep] a_1
-checkshape a_1
-
-restore [locate_data_file OCC488b.brep] a_2
-checkshape a_2
-
-if [catch {bcommon result a_1 a_2 } catch_result] {
- puts "Faulty OCC488: command COMMON works wrongly"
-} else {
- puts "OCC488 OK: function COMMON works properly "
-}
-set square 92466.8
-set 2dviewer 0
+++ /dev/null
-
-puts "========="
-puts " OCC490 "
-puts "========="
-puts ""
-########################################################
-## Result of fuse operation is faulty shape although arguments are valid
-########################################################
-
-restore [locate_data_file OCC490a.brep] a_1
-checkshape a_1
-
-restore [locate_data_file OCC490b.brep] a_2
-checkshape a_2
-
-if [catch {bfuse result a_1 a_2 } catch_result] {
- puts "Faulty OCC490: command FUSE works wrongly"
-} else {
- puts "OCC490 : function FUSE works without hangs up "
-}
-set square 2744.08
-set 2dviewer 0
+++ /dev/null
-
-puts "========="
-puts " OCC492 "
-puts "========="
-puts ""
-##############################
-## Exception occurs during fuse operation
-##############################
-
-restore [locate_data_file OCC492a.brep] a_1
-checkshape a_1
-
-restore [locate_data_file OCC492b.brep] a_2
-checkshape a_2
-
-if [catch {bfuse result a_1 a_2 } catch_result] {
- puts "Faulty OCC492: command FUSE works wrongly"
-} else {
- puts "OCC492 : function FUSE works without hangs up "
-}
-set square 64.2386
-set 3dviewer 1
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_3"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========="
-puts " OCC497 "
-puts "(case 1)"
-puts "========="
-puts ""
-########################################################
-## Result of cut and fuse operation are faulty shapes although arguments are valid.
-########################################################
-
-restore [locate_data_file OCC497a.brep] a_1
-checkshape a_1
-
-restore [locate_data_file OCC497b.brep] a_2
-checkshape a_2
-
-if [catch {bcut result a_1 a_2 } catch_result] {
- puts "Faulty OCC497:function CUT works wrongly "
-} else {
- puts "OCC497 : function CUT works without hangs up "
-}
-set square 0
-set 2dviewer 0
+++ /dev/null
-
-puts "========="
-puts " OCC497 "
-puts "(case 2)"
-puts "========="
-puts ""
-########################################################
-## Result of cut and fuse operation are faulty shapes although arguments are valid.
-########################################################
-
-restore [locate_data_file OCC497c.brep] a_1
-checkshape a_1
-
-restore [locate_data_file OCC497d.brep] a_2
-checkshape a_2
-
-if [catch {bcut result a_1 a_2 } catch_result] {
- puts "Faulty OCC497:function CUT works wrongly "
-} else {
- puts "OCC497 : function CUT works without hangs up "
-}
-set square 2225.65
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: result is not a topological shape!!!"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
-puts "========="
-puts " OCC497 "
-puts "(case 3)"
-puts "========="
-puts ""
-########################################################
-## Result of cut and fuse operation are faulty shapes although arguments are valid.
-########################################################
-
-restore [locate_data_file OCC497e.brep] a_1
-checkshape a_1
-
-restore [locate_data_file OCC497f.brep] a_2
-checkshape a_2
-
-bcut result a_1 a_2
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-
-puts "========="
-puts " OCC497 "
-puts "(case 4)"
-puts "========="
-puts ""
-########################################################
-## Result of cut and fuse operation are faulty shapes although arguments are valid.
-########################################################
-
-restore [locate_data_file OCC497g.brep] a_1
-checkshape a_1
-
-restore [locate_data_file OCC497h.brep] a_2
-checkshape a_2
-
-if [catch {bfuse result a_1 a_2 } catch_result] {
- puts "Faulty OCC497:function FUSE works wrongly "
-} else {
- puts "OCC497 : function FUSE works without hangs up "
-}
-set square 8710.56
-set 2dviewer 0
+++ /dev/null
-
-puts "========="
-puts " OCC497 "
-puts "(case 5)"
-puts "========="
-puts ""
-########################################################
-## Result of cut and fuse operation are faulty shapes although arguments are valid.
-########################################################
-
-restore [locate_data_file OCC497i.brep] a_1
-checkshape a_1
-
-restore [locate_data_file OCC497j.brep] a_2
-checkshape a_2
-
-if [catch {bfuse result a_1 a_2 } catch_result] {
- puts "Faulty OCC497:function FUSE works wrongly "
-} else {
- puts "OCC497 : function FUSE works without hangs up "
-}
-set square 3233.42
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC4993"
-puts "============"
-puts ""
-######################################################
-# Problem in boolean fusion
-# (new topology)
-######################################################
-
-restore [locate_data_file OCC4993-s1.brep] s1
-restore [locate_data_file OCC4993-s2.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s1 s2
-bopfuse result
-
-set square 4854.51
-
-set nb_v_good 40
-set nb_e_good 64
-set nb_w_good 24
-set nb_f_good 24
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 155
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC4993"
-puts "============"
-puts ""
-######################################################
-# Problem in boolean fusion
-# (new topology)
-######################################################
-
-restore [locate_data_file OCC4993-s1.brep] s1
-restore [locate_data_file OCC4993-s2.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s2 s1
-bopfuse result
-
-set square 4854.51
-
-set nb_v_good 40
-set nb_e_good 64
-set nb_w_good 24
-set nb_f_good 24
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 155
-
-set 2dviewer 0
+++ /dev/null
-
-puts "========="
-puts " OCC500 "
-puts "========="
-puts ""
-###############################
-## Result of pipe command of Draw is faulty
-###############################
-
-restore [locate_data_file OCC500a.brep] a_1
-checkshape a_1
-
-restore [locate_data_file OCC500b.brep] a_2
-checkshape a_2
-
-if [catch {pipe result a_1 a_2 } catch_result] {
- puts "Faulty OCC500 : function PIPE works wrongly "
-} else {
- puts "OCC500 : function PIPE works without hangs up "
-}
-set square 1246.13
-set 2dviewer 0
+++ /dev/null
-
-puts "========="
-puts " OCC501 "
-puts "========="
-puts ""
-##################################################
-## Exception during tcopy command (only in 3.0fix), SAM1339 (#2137)
-###################################################
-
-restore [locate_data_file OCC501.brep] result
-
-if [catch {tcopy result b } catch_result] {
- puts "Faulty OCC501 : function TCOPY works wrongly "
-} else {
- puts "OCC501 OK: function TCOPY works without hangs up "
-}
-set square 121895
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5157"
-puts "============"
-puts ""
-######################################################
-# DRAW commands vprops and sprops with tolerance 1.e-6 hange on attached shape.
-######################################################
-
-cpulimit 3500
-#dchrono h reset; dchrono h start
-
-catch { pload XDE }
-
-set BugNumber OCC5157
-
-set status 0
-if {[catch { stepread [locate_data_file OCC5157.stp] a * } catch_result] } {
- puts "Faulty ${BugNumber} : here is reading problem"
-} else {
- tpcompound result
-}
-
-set tol_square 1.e-6
-set square 35273.9
-set 2dviewer 0
-
-
+++ /dev/null
-puts "============"
-puts "OCC5157"
-puts "============"
-puts ""
-######################################################
-# DRAW commands vprops and sprops with tolerance 1.e-6 hange on attached shape.
-######################################################
-
-cpulimit 3500
-#dchrono h reset; dchrono h start
-
-catch { pload XDE }
-
-set BugNumber OCC5157
-
-if { [catch { stepread [locate_data_file OCC5157.stp] a * } catch_result] } {
- puts "Faulty ${BugNumber} : here is reading problem"
-} else {
- tpcompound result
-}
-set tol_square 1.e-6
-set square 35362.3
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC516"
-puts "========"
-puts ""
-#########################################
-## Wrong classification of the 3D-point with the Solid .
-#########################################
-
-point p 14.99999878745701 5.52319672860377e-07 7.78393041
-vertex v 14.99999878745701 5.52319672860377e-07 7.78393041
-restore [locate_data_file OCC516.brep] result
-
-set cls [bclassify result p]
-
-if { [regexp {OUT} $cls] } {
- puts "Faulty : Wrong classification of the 3D-point with the Solid"
-} else {
- puts "CORRECT classification of the 3D-point with the Solid"
-}
-
-set square 7752.98
-set 2dviewer 0
+++ /dev/null
-#INTERFACE IGES
-puts "========"
-puts "OCC526"
-puts "========"
-puts ""
-################################################
-## BRepAlgoAPI_Section fails to build planar sections on some faces
-################################################
-
-pload XDE
-
-restore [locate_data_file OCC592.brep] a
-
-set Z 67.599311020481764
-plane p 0 0 $Z
-psection r1 a p
-if ![regexp VERTEX [statshape r1]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }
-
-set Z 66.599311020481764
-plane p 0 0 $Z
-psection r2 a p
-if ![regexp VERTEX [statshape r2]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }
-
-set Z 65.599311020481764
-plane p 0 0 $Z
-psection result a p
-if ![regexp VERTEX [statshape result]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }
-
-set length 27.8021
-set 2dviewer 1
-
-
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC527"
-puts "========"
-puts ""
-#####################################################
-## BRepAlgoAPI_Section creates very distant geometry on some planar sections
-#####################################################
-
-cpulimit 3600
-restore [locate_data_file OCC527.brep] result
-OCC527 result
-
-set square 3774.42
-set 2dviewer 1
+++ /dev/null
-
-puts "========================"
-puts "OCC528"
-puts "========================"
-puts ""
-##############################################
-## Result of bcut command is faulty although arguments are valid
-##############################################
-
-restore [locate_data_file OCC528_1.brep] c1
-checkshape c1
-
-restore [locate_data_file OCC528_2.brep] c2
-checkshape c2
-
-if { [catch { bcut result c1 c2 } catch_result] } {
- puts "OCC528 Faulty: function BCUT works wrongly"
-} else {
- puts "OCC528 OK:function BCUT works properly"
-}
-
-set square 124.092
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "======="
-puts "OCC530"
-puts "======="
-puts ""
-####################################
-## Draw hungs up during performing bfuse operation
-####################################
-
-cpulimit 3000
-
-restore [locate_data_file OCC530_1.brep] c1
-checkshape c1
-
-restore [locate_data_file OCC530_2.brep] c2
-checkshape c2
-
-if { [catch { bfuse result c1 c2 } catch_result] } {
- puts "Faulty OCC530 : function BFUSE works wrongly"
-} else {
- puts "OCC530 OK: function BFUSE works properly"
-}
-
-set square 0
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========================"
-puts " OCC534 "
-puts " case 1 "
-puts "========================"
-puts ""
-
-hyperbola hyperbola 0 0 0 30 10
-extsurf es_hyperbola hyperbola 0 0 1
-offset es_hyperbola_of es_hyperbola 5
-mkface result es_hyperbola_of 0 3 0 40
-
-
-set tolerance [maxtolerance result]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
-
-if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
- puts "Faulty : Tolerance of shape is more then 1.0"
-} else {
- puts "Tolerance is OK"
-}
-
-set square 11451.2
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC534 "
-puts " case 2 "
-puts "========================"
-puts ""
-
-hyperbola hyperbola 0 0 0 30 10
-extsurf es_hyperbola hyperbola 0 0 1
-offset es_hyperbola_of es_hyperbola 5
-offset es_hyperbola_of_of es_hyperbola_of 5
-mkface result es_hyperbola_of_of 0 3 0 40
-
-set tolerance [maxtolerance result]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
-
-if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
- puts "Faulty : Tolerance of shape is more then 1.0"
-} else {
- puts "Tolerance is OK"
-}
-
-set square 11460.7
-set 2dviewer 0
-
-
-
+++ /dev/null
-
-puts "========================"
-puts " OCC534 "
-puts " case 3 "
-puts "========================"
-puts ""
-
-hyperbola hyperbola 0 0 0 30 10
-revsurf rs_hyperbola hyperbola 0 400 0 1 0 0
-offset rs_hyperbola_of rs_hyperbola 5
-mkface result rs_hyperbola_of .3 .5 .3 .5
-
-set tolerance [maxtolerance result]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
-
-if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
- puts "Faulty : Tolerance of shape is more then 1.0"
-} else {
- puts "Tolerance is OK"
-}
-
-set square 171.992
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC534 "
-puts " case 4 "
-puts "========================"
-puts ""
-
-hyperbola hyperbola 0 0 0 30 10
-revsurf rs_hyperbola hyperbola 0 400 0 1 0 0
-offset rs_hyperbola_of rs_hyperbola 5
-offset rs_hyperbola_of_of rs_hyperbola_of 5
-mkface result rs_hyperbola_of_of .3 .5 .3 .5
-
-set tolerance [maxtolerance result]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
-
-if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
- puts "Faulty : Tolerance of shape is more then 1.0"
-} else {
- puts "Tolerance is OK"
-}
-
-set square 84.8861
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC534 "
-puts " case 5 "
-puts "========================"
-puts ""
-
-parabola parabola 0 0 0 30
-revsurf rs_parabola parabola 0 400 0 1 0 0
-offset rs_parabola_of rs_parabola 10
-mkface result rs_parabola_of .3 .5 .3 .5
-
-set tolerance [maxtolerance result]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
-
-if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
- puts "Faulty : Tolerance of shape is more then 1.0"
-} else {
- puts "Tolerance is OK"
-}
-
-set square 13.3227
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC534 "
-puts " case 6 "
-puts "========================"
-puts ""
-
-parabola parabola 0 0 0 30
-revsurf rs_parabola parabola 0 400 0 1 0 0
-offset rs_parabola_of rs_parabola 10
-offset rs_parabola_of_of rs_parabola_of 5
-mkface result rs_parabola_of_of .3 .5 .3 .5
-
-set tolerance [maxtolerance result]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
-
-if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
- puts "Faulty : Tolerance of shape is more then 1.0"
-} else {
- puts "Tolerance is OK"
-}
-
-set square 11.9915
-set 2dviewer 0
-
+++ /dev/null
-#INTERFACE IGES
-puts "======="
-puts "OCC535"
-puts "======="
-puts ""
-#############################################################
-## After command "fixshape" in DRAW on attached shape quantity of shapes obtained
-## with help command "nbs" is increased.
-#############################################################
-
-pload XDE
-
-restore [locate_data_file OCC535.brep] a
-
-set nb_info_a [nbshapes a]
-regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_a full r1
-
-fixshape result a
-
-set nb_info_res [nbshapes result]
-regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_res full r2
-
-puts ""
-puts [format "before Shapes = %s after Shapes = %s" $r1 $r2]
-puts ""
-
-if { $r1 == $r2 } {
- puts "OCC535 OK"
-} else {
- puts "OCC535 Faulty"
-}
-
-set square 3554.31
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC539 "
-puts "(case 1)"
-puts "========================"
-puts ""
-
- puts "==========================================="
- puts " BOPCOMMON case_4_shell.brep and case_4_wire3.brep"
- puts "==========================================="
- puts " "
-
-restore [locate_data_file case_4_shell.brep] a
-restore [locate_data_file case_4_wire3.brep] b
-bop a b
-bopcommon result
-
-set nb_v_good 15
-set nb_e_good 10
-set length 1150.78
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC539 "
-puts "(case 2)"
-puts "========================"
-puts ""
-
- puts "============================================"
- puts " BOPTUC case_4_shell.brep and case_4_wire3.brep"
- puts "============================================"
- puts " "
-
-restore [locate_data_file case_4_shell.brep] a
-restore [locate_data_file case_4_wire3.brep] b
-bop a b
-boptuc result
-
-set nb_v_good 16
-set nb_e_good 11
-set length 929.278
-set 2dviewer 0
-
+++ /dev/null
-puts "========"
-puts "OCC548"
-puts "OCC628"
-puts "========"
-puts ""
-##################################################################
-# Function BRepTool::IsClosed returns Standard_True although argument is open shell
-# Incorrect work of BRepCheck
-##################################################################
-
-pload XDE
-
-restore [locate_data_file CTO908_topo103-t.brep] a
-
-decho off
-
-checkshape a
-checkshape a b
-
-decho on
-
-fixshape result a 0.001
-
-set che [checkshape result c]
-if { [regexp {problems} $che] } {
- puts "Faulty OCC628"
-}
-
-set square 119630
-set 2dviewer 2
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC570"
-puts "========"
-puts ""
-
-OCC570 result
-
-set square 58500
-set 3dviewer 0
+++ /dev/null
-puts "========"
-puts "OCC571"
-puts "========"
-puts ""
-##########################
-## Fillet operation fails on given shape
-##########################
-## LIMITATION: Builds fillet with 0.03<=r<=1.2
-##########################
-
-restore [locate_data_file OCC571.brep] a
-checkshape a
-explode a
-
-if [catch {fillet result a_1 1.2 a_2 } catch_result] {
- puts "Faulty OCC571 exception (case 1): Fillet operation fails on given shape "
-} else {
- puts " OCC571 (case 1) OK: Fillet operation was made"
-}
-
-set square 21118.1
-set 2dviewer 0
+++ /dev/null
-puts "========"
-puts "OCC571"
-puts "========"
-puts ""
-##########################
-## Fillet operation fails on given shape
-##########################
-## LIMITATION: Builds fillet with 0.03<=r<=1.2
-##########################
-
-restore [locate_data_file OCC571.brep] a
-checkshape a
-explode a
-
-if [catch {fillet result a_1 0.03 a_2 } catch_result] {
- puts "Faulty OCC571 exception (case 2): Fillet operation fails on given shape "
-} else {
- puts " OCC571 (case 2) OK: Fillet operation was made"
-}
-
-set square 21209.9
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5729"
-puts "============"
-puts ""
-######################################################
-# Regression on case cfe 900 K5
-######################################################
-
-set BugNumber OCC5729
-
-restore [locate_data_file OCC5729-f1.brep] f1
-restore [locate_data_file OCC5729-f2.brep] f2
-
-decho off
-set che_1 [checkshape f1]
-decho on
-if { [regexp {Faulty} $che_1] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for f1"
-}
-
-decho off
-set che_2 [checkshape f2]
-decho on
-if { [regexp {Faulty} $che_2] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for f2"
-}
-
-bfuse result f1 f2
-
-set square 28559.8
-
-set nb_v_good 13
-set nb_e_good 22
-set nb_w_good 15
-set nb_f_good 13
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 66
-
+++ /dev/null
-puts "================"
-puts "OCC578"
-puts "OCC584"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC578_w1.brep] w1
-checkshape w1
-
-restore [locate_data_file OCC578_w2.brep] w2
-checkshape w2
-
-set x 1
-set y 1
-set z 0.5
-box b ${x} ${y} ${z}
-checkshape b
-
-bfuse res1 w1 w2
-checkshape res1
-
-bcut result b res1
-
-set square 4.84596
-set 3dviewer 0
+++ /dev/null
-puts "================"
-puts "OCC578"
-puts "OCC582"
-puts "OCC583"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC578_w1.brep] w1
-checkshape w1
-
-restore [locate_data_file OCC578_w2.brep] w2
-checkshape w2
-
-set x 1
-set y 1
-set z 0.5
-box b ${x} ${y} ${z}
-checkshape b
-
-bfuse res1 w1 w2
-checkshape res1
-
-bop b res1
-bopcut result
-
-set square 4.84596
-set 3dviewer 0
+++ /dev/null
-
-puts "================"
-puts "BUC60974 "
-puts " OCC57"
-puts "================"
-puts ""
-
-restore [locate_data_file BUC60974.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_1 a_2
-set square 191388
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "BUC60974 "
-puts " OCC57"
-puts "================"
-puts ""
-
-restore [locate_data_file BUC60974.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_2 a_1
-set square 191388
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-puts ""
-######################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-######################################################
-
-set BugNumber OCC5805
-
-puts "demonstration of pipes and hollowing for GTISoft"
-puts ""
-puts "Scenario 2A: Hollowed elliptical cylinder - ThroughSection and MakeThickSolid (work-around: ellipse is split into 2)"
-
-
-ellipse e 10 60 0 1 0 0 5 3
-trim e1 e 0 pi
-trim e2 e pi 2*pi
-mkedge ee1 e1
-mkedge ee2 e2
-wire w1 ee1 ee2
-copy w1 w2
-ttranslate w2 -20 0 0
-
-if { [catch { thrusections rthru2 1 1 w1 w2 } catch_result] } {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-}
-
-explode rthru2 f
-
-if { [catch { offsetshape result rthru2 -0.5 rthru2_3 rthru2_4 } catch_result] } {
- puts "Faulty ${BugNumber} : offsetshape is wrong"
-}
-
-if { [catch { set tolmaxres [tolmax result] } catch_result] } {
- puts "Faulty ${BugNumber} : tolmax is wrong"
-}
-
-regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
-if { [catch { expr $maxtolerance } result] } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
-}
-if { $maxtolerance > 1. } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
-}
-
-set square 981.941
-
-set nb_v_good 6
-set nb_e_good 10
-set nb_w_good 8
-set nb_f_good 6
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 32
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# ellipse1
-ellipse ell 10 0 0 1 0 0 5 3
-mkedge ee1 ell
-wire UpCover ee1
-
-# ellipse2
-copy ee1 ee2
-ttranslate ee2 -20 0 0
-wire BottomCover ee2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_2} $calcul $type }
-
-
-set square 1041.35
-
-set nb_v_good 3
-set nb_e_good 5
-set nb_w_good 6
-set nb_f_good 5
-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 index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-cpulimit 1400
-# ellipse1
-ellipse ell 10 0 0 1 0 0 5 3
-mkedge ee1 ell
-wire UpCover ee1
-
-# ellipse2
-copy ee1 ee2
-ttranslate ee2 -20 0 0
-wire BottomCover ee2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_3} $calcul $type }
-
-
-set square 1041.35
-
-set nb_v_good 3
-set nb_e_good 5
-set nb_w_good 6
-set nb_f_good 5
-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 index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# ellipse1
-ellipse ell 10 0 0 1 0 0 5 3
-mkedge ee1 ell
-wire UpCover ee1
-
-# ellipse2
-copy ee1 ee2
-ttranslate ee2 -20 0 0
-wire BottomCover ee2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
-
-
-set square 982.254
-
-set nb_v_good 3
-set nb_e_good 5
-set nb_w_good 6
-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 20
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# v12 v11
-# *---------------------*
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# *---------------------*
-# v13 v14
-#
-
-set z1 5
-set z2 -5
-
-# quadrangle1
-polyline UpCover 0 0 ${z1} 5 0 ${z1} 5 5 ${z1} 0 5 ${z1} 0 0 ${z1}
-
-# quadrangle2
-polyline BottomCover 0 0 ${z2} 5 0 ${z2} 5 5 ${z2} 0 5 ${z2} 0 0 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {} $calcul $type }
-
-
-set square 176
-
-set nb_v_good 8
-set nb_e_good 12
-set nb_w_good 6
-set nb_f_good 6
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 34
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# v12 v11
-# *---------------------*
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# *---------------------*
-# v13 v14
-#
-
-set z1 5
-set z2 -5
-
-# quadrangle1
-polyline UpCover 0 0 ${z1} 5 0 ${z1} 5 5 ${z1} 0 5 ${z1} 0 0 ${z1}
-
-# quadrangle2
-polyline BottomCover 0 0 ${z2} 5 0 ${z2} 5 5 ${z2} 0 5 ${z2} 0 0 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_5} $calcul $type }
-
-
-set square 402
-
-set nb_v_good 16
-set nb_e_good 24
-set nb_w_good 12
-set nb_f_good 11
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 65
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# v12 v11
-# *---------------------*
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# *---------------------*
-# v13 v14
-#
-
-set z1 5
-set z2 -5
-
-# quadrangle1
-polyline UpCover 0 0 ${z1} 5 0 ${z1} 5 5 ${z1} 0 5 ${z1} 0 0 ${z1}
-
-# quadrangle2
-polyline BottomCover 0 0 ${z2} 5 0 ${z2} 5 5 ${z2} 0 5 ${z2} 0 0 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_6} $calcul $type }
-
-
-set square 402
-
-set nb_v_good 16
-set nb_e_good 24
-set nb_w_good 12
-set nb_f_good 11
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 65
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# v12 v11
-# *---------------------*
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# *---------------------*
-# v13 v14
-#
-
-set z1 5
-set z2 -5
-
-# quadrangle1
-polyline UpCover 0 0 ${z1} 5 0 ${z1} 5 5 ${z1} 0 5 ${z1} 0 0 ${z1}
-
-# quadrangle2
-polyline BottomCover 0 0 ${z2} 5 0 ${z2} 5 5 ${z2} 0 5 ${z2} 0 0 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_5 s_6} $calcul $type }
-
-
-set square 378
-
-set nb_v_good 16
-set nb_e_good 24
-set nb_w_good 12
-set nb_f_good 10
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 64
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
-puts "TODO ?OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO ?OCC11111 ALL: Faulty OCC5805 : result is not Closed shape"
-puts "TODO ?OCC11111 ALL: Error : The command is not valid."
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 5
-set z2 -5
-
-# beziercurve1
-beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
-mkedge e1 bc1
-wire UpCover e1
-
-# beziercurve2
-copy e1 e2
-ttranslate e2 0 0 ${z2}
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.001
-catch { OFFSETSHAPE $distance {} $calcul $type }
-# Null result
-
-
-set square 495.635
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 5
-set z2 -5
-
-# beziercurve1
-beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
-mkedge e1 bc1
-wire UpCover e1
-
-# beziercurve2
-copy e1 e2
-ttranslate e2 0 0 ${z2}
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.001
-catch { OFFSETSHAPE $distance {s_2} $calcul $type }
-# Bad result
-
-
-set square 495.635
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC11111 ALL: Error : Result shape is WRONG"
-puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
-puts "TODO ?OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 5
-set z2 -5
-
-# beziercurve1
-beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
-mkedge e1 bc1
-wire UpCover e1
-
-# beziercurve2
-copy e1 e2
-ttranslate e2 0 0 ${z2}
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.001
-catch { OFFSETSHAPE $distance {s_3} $calcul $type }
-# Bad result
-
-
-set square 495.635
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-puts ""
-######################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-######################################################
-
-set BugNumber OCC5805
-
-puts "demonstration of pipes and hollowing for GTISoft"
-puts ""
-puts "Scenario 2A: Hollowed elliptical cylinder - ThroughSection and MakeThickSolid"
-
-ellipse e 10 60 0 1 0 0 5 3
-mkedge ee e
-wire w1 ee
-copy w1 w2
-ttranslate w2 -20 0 0
-
-if { [catch { thrusections rthru2 1 1 w1 w2 } catch_result] } {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-}
-
-explode rthru2 f
-
-if { [catch { offsetshape result rthru2 -0.5 rthru2_2 rthru2_3 } catch_result] } {
- puts "Faulty ${BugNumber} : offsetshape is wrong"
-}
-
-if { [catch { set tolmaxres [tolmax result] } catch_result] } {
- puts "Faulty ${BugNumber} : tolmax is wrong"
-}
-regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
-if { [catch { expr $maxtolerance } catch_result] } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
-}
-if { $maxtolerance > 1. } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
-}
-
-set square 982.254
-
-set nb_v_good 3
-set nb_e_good 5
-set nb_w_good 6
-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 20
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 5
-set z2 -5
-
-# beziercurve1
-beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
-mkedge e1 bc1
-wire UpCover e1
-
-# beziercurve2
-copy e1 e2
-ttranslate e2 0 0 ${z2}
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.001
-catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
-# Bad result
-
-
-set square 495.635
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# pbsplinecurve1
-pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
-mkedge e1 pbc1
-wire UpCover e1
-
-# pbsplinecurve1
-copy e1 e2
-ttranslate e2 0 0 20
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.1
-catch { OFFSETSHAPE $distance {} $calcul $type }
-
-
-set square 236.013
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# pbsplinecurve1
-pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
-mkedge e1 pbc1
-wire UpCover e1
-
-# pbsplinecurve1
-copy e1 e2
-ttranslate e2 0 0 20
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.1
-catch { OFFSETSHAPE $distance {s_3} $calcul $type }
-
-
-set square 484.846
-
-set nb_v_good 3
-set nb_e_good 5
-set nb_w_good 6
-set nb_f_good 5
-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 index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# pbsplinecurve1
-pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
-mkedge e1 pbc1
-wire UpCover e1
-
-# pbsplinecurve1
-copy e1 e2
-ttranslate e2 0 0 20
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.1
-catch { OFFSETSHAPE $distance {s_2} $calcul $type }
-
-
-set square 484.846
-
-set nb_v_good 3
-set nb_e_good 5
-set nb_w_good 6
-set nb_f_good 5
-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 index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# pbsplinecurve1
-pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
-mkedge e1 pbc1
-wire UpCover e1
-
-# pbsplinecurve1
-copy e1 e2
-ttranslate e2 0 0 20
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.1
-catch { OFFSETSHAPE $distance {s_3 s_2} $calcul $type }
-
-
-set square 472.222
-
-set nb_v_good 3
-set nb_e_good 5
-set nb_w_good 6
-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 20
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# *
-# | \
-# | \
-# | \
-# | \
-# | \
-# | \
-# | * v3 \
-# | | \ \
-# | | \ \
-# | | \ \
-# | | \ \
-# | | /* v2 *
-# | | / /
-# | | / /
-# | | / /
-# | * /
-# | v1 /
-# | /
-# | /
-# | /
-# | /
-# | /
-# |/
-# *
-#
-cpulimit 1400
-set z1 10
-set z2 -10
-
-# triangle1
-polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
-
-# triangle2
-polyline BottomCover -5 -5 ${z2} 10 10 ${z2} -5 20 ${z2} -5 -5 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {} $calcul $type }
-
-
-set square 914.876
-
-set nb_v_good 6
-set nb_e_good 9
-set nb_w_good 5
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 27
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# *
-# | \
-# | \
-# | \
-# | \
-# | \
-# | \
-# | * v3 \
-# | | \ \
-# | | \ \
-# | | \ \
-# | | \ \
-# | | /* v2 *
-# | | / /
-# | | / /
-# | | / /
-# | * /
-# | v1 /
-# | /
-# | /
-# | /
-# | /
-# | /
-# |/
-# *
-#
-
-set z1 10
-set z2 -10
-
-# triangle1
-polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
-
-# triangle2
-polyline BottomCover -5 -5 ${z2} 10 10 ${z2} -5 20 ${z2} -5 -5 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_4} $calcul $type }
-
-
-set square 2011.91
-
-set nb_v_good 12
-set nb_e_good 18
-set nb_w_good 10
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 51
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# *
-# | \
-# | \
-# | \
-# | \
-# | \
-# | \
-# | * v3 \
-# | | \ \
-# | | \ \
-# | | \ \
-# | | \ \
-# | | /* v2 *
-# | | / /
-# | | / /
-# | | / /
-# | * /
-# | v1 /
-# | /
-# | /
-# | /
-# | /
-# | /
-# |/
-# *
-#
-
-set z1 10
-set z2 -10
-
-# triangle1
-polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
-
-# triangle2
-polyline BottomCover -5 -5 ${z2} 10 10 ${z2} -5 20 ${z2} -5 -5 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_5} $calcul $type }
-
-
-set square 1755.54
-
-set nb_v_good 12
-set nb_e_good 18
-set nb_w_good 10
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 51
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# *
-# | \
-# | \
-# | \
-# | \
-# | \
-# | \
-# | * v3 \
-# | | \ \
-# | | \ \
-# | | \ \
-# | | \ \
-# | | /* v2 *
-# | | / /
-# | | / /
-# | | / /
-# | * /
-# | v1 /
-# | /
-# | /
-# | /
-# | /
-# | /
-# |/
-# *
-#
-
-set z1 10
-set z2 -10
-
-# triangle1
-polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
-
-# triangle2
-polyline BottomCover -5 -5 ${z2} 10 10 ${z2} -5 20 ${z2} -5 -5 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_4 s_5} $calcul $type }
-
-
-set square 1735.06
-
-set nb_v_good 12
-set nb_e_good 18
-set nb_w_good 10
-set nb_f_good 8
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 50
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "OCC7582"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-# Bad result of offset operation
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 10
-set z2 -10
-
-# circle1
-circle c1 0 0 ${z1} 5
-mkedge ec1 c1
-wire UpCover ec1
-
-# circle2
-circle c2 0 0 ${z2} 30
-mkedge ec2 c2
-wire BottomCover ec2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {} $calcul $type }
-
-
-set square 5829.59
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-puts ""
-######################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-######################################################
-
-set BugNumber OCC5805
-
-restore [locate_data_file OCC5805.brep] a
-
-decho off
-set che_a [checkshape a]
-decho on
-if { [regexp {Faulty} $che_a] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for a"
-}
-
-explode a f
-
-if { [catch { offsetshape result a -1 a_6 } catch_result] } {
- puts "Faulty ${BugNumber} : offsetshape is wrong"
-}
-
-if { [catch { set tolmaxres [tolmax result] } catch_result] } {
- puts "Faulty ${BugNumber} : tolmax is wrong"
-}
-
-regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
-if { [catch { expr $maxtolerance } catch_result] } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
-}
-if { $maxtolerance > 1. } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
-}
-
-set square 1185.03
-
-set nb_v_good 10
-set nb_e_good 15
-set nb_w_good 7
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 41
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 10
-set z2 -10
-
-# circle1
-circle c1 0 0 ${z1} 5
-mkedge ec1 c1
-wire UpCover ec1
-
-# circle2
-circle c2 0 0 ${z2} 30
-mkedge ec2 c2
-wire BottomCover ec2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_2} $calcul $type }
-
-
-set square 1336.75
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 23
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 10
-set z2 -10
-
-# circle1
-circle c1 0 0 ${z1} 5
-mkedge ec1 c1
-wire UpCover ec1
-
-# circle2
-circle c2 0 0 ${z2} 30
-mkedge ec2 c2
-wire BottomCover ec2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_3} $calcul $type }
-
-
-set square 7157.43
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 23
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC5805"
-puts "OCC7582"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-# Bad result of offset operation
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 10
-set z2 -10
-
-# circle1
-circle c1 0 0 ${z1} 5
-mkedge ec1 c1
-wire UpCover ec1
-
-# circle2
-circle c2 0 0 ${z2} 30
-mkedge ec2 c2
-wire BottomCover ec2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
-
-
-set square 1223.65
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-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 22
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set x1 10
-set x2 -10
-
-# ellipse1
-ellipse ell1 ${x1} 0 0 1 0 0 5 3
-mkedge ee1 ell1
-wire UpCover ee1
-
-# ellipse2
-ellipse ell2 ${x2} 0 0 1 0 0 4 2
-mkedge ee2 ell2
-wire BottomCover ee2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {} $calcul $type }
-
-
-set square 418.388
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set x1 10
-set x2 -10
-
-# ellipse1
-ellipse ell1 ${x1} 0 0 1 0 0 5 3
-mkedge ee1 ell1
-wire UpCover ee1
-
-# ellipse2
-ellipse ell2 ${x2} 0 0 1 0 0 4 2
-mkedge ee2 ell2
-wire BottomCover ee2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_2} $calcul $type }
-
-
-set square 881.591
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 23
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set x1 10
-set x2 -10
-
-# ellipse1
-ellipse ell1 ${x1} 0 0 1 0 0 5 3
-mkedge ee1 ell1
-wire UpCover ee1
-
-# ellipse2
-ellipse ell2 ${x2} 0 0 1 0 0 4 2
-mkedge ee2 ell2
-wire BottomCover ee2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_3} $calcul $type }
-
-
-set square 915.469
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 23
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set x1 10
-set x2 -10
-
-# ellipse1
-ellipse ell1 ${x1} 0 0 1 0 0 5 3
-mkedge ee1 ell1
-wire UpCover ee1
-
-# ellipse2
-ellipse ell2 ${x2} 0 0 1 0 0 4 2
-mkedge ee2 ell2
-wire BottomCover ee2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
-
-
-set square 856.92
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-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 22
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# v12 v11
-# *---------------------*
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# *---------------------*
-# v13 v14
-#
-
-set z1 5
-set z2 -5
-
-# quadrangle1
-polyline UpCover 0 0 ${z1} 6 0 ${z1} 6 6 ${z1} 0 6 ${z1} 0 0 ${z1}
-
-# quadrangle2
-polyline BottomCover 3 -2 ${z2} 8 3 ${z2} 3 8 ${z2} -2 3 ${z2} 3 -2 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {} $calcul $type }
-
-
-set square 246.821
-
-set nb_v_good 8
-set nb_e_good 12
-set nb_w_good 6
-set nb_f_good 6
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 34
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# v12 v11
-# *---------------------*
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# *---------------------*
-# v13 v14
-#
-
-set z1 5
-set z2 -5
-
-# quadrangle1
-polyline UpCover 0 0 ${z1} 6 0 ${z1} 6 6 ${z1} 0 6 ${z1} 0 0 ${z1}
-
-# quadrangle2
-polyline BottomCover 3 -2 ${z2} 8 3 ${z2} 3 8 ${z2} -2 3 ${z2} 3 -2 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_5} $calcul $type }
-
-
-set square 544.931
-
-set nb_v_good 16
-set nb_e_good 24
-set nb_w_good 12
-set nb_f_good 11
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 65
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# v12 v11
-# *---------------------*
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# *---------------------*
-# v13 v14
-#
-
-set z1 5
-set z2 -5
-
-# quadrangle1
-polyline UpCover 0 0 ${z1} 6 0 ${z1} 6 6 ${z1} 0 6 ${z1} 0 0 ${z1}
-
-# quadrangle2
-polyline BottomCover 3 -2 ${z2} 8 3 ${z2} 3 8 ${z2} -2 3 ${z2} 3 -2 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_6} $calcul $type }
-
-
-set square 524.758
-
-set nb_v_good 16
-set nb_e_good 24
-set nb_w_good 12
-set nb_f_good 11
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 65
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-puts ""
-######################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-######################################################
-
-set BugNumber OCC5805
-
-restore [locate_data_file OCC5805.brep] a
-
-decho off
-set che_a [checkshape a]
-decho on
-
-if { [regexp {Faulty} $che_a] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for a"
-}
-
-explode a f
-
-offsetparameter 1e-7 c a
-offsetload a -1 a_6
-
-if { [catch { offsetperform result } catch_result] } {
- puts "Faulty ${BugNumber} : offsetshape is wrong"
-}
-
-if { [catch { set tolmaxres [tolmax result] } catch_result] } {
- puts "Faulty ${BugNumber} : tolmax is wrong"
-}
-regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
-if { [catch { expr $maxtolerance } catch_result] } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
-}
-if { $maxtolerance > 1. } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
-}
-
-set square 1185.03
-
-set nb_v_good 10
-set nb_e_good 15
-set nb_w_good 7
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 41
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# v12 v11
-# *---------------------*
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# | |
-# *---------------------*
-# v13 v14
-#
-
-set z1 5
-set z2 -5
-
-# quadrangle1
-polyline UpCover 0 0 ${z1} 6 0 ${z1} 6 6 ${z1} 0 6 ${z1} 0 0 ${z1}
-
-# quadrangle2
-polyline BottomCover 3 -2 ${z2} 8 3 ${z2} 3 8 ${z2} -2 3 ${z2} 3 -2 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_5 s_6} $calcul $type }
-
-
-set square 485.358
-
-set nb_v_good 16
-set nb_e_good 24
-set nb_w_good 12
-set nb_f_good 10
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 64
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-puts "TODO ?OCC11111 ALL: Faulty OCC5805 : result is not Closed shape"
-puts "TODO ?OCC11111 ALL: Error : The command is not valid"
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 5
-set z2 -5
-
-# beziercurve1
-beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
-mkedge e1 bc1
-wire UpCover e1
-
-# beziercurve2
-beziercurve bc2 5 4 4 ${z2} 4 -4 ${z2} -4 -4 ${z2} -4 4 ${z2} 4 4 ${z2}
-mkedge e2 bc2
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.001
-catch { OFFSETSHAPE $distance {} $calcul $type }
-# Null result
-
-
-set square 495.635
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC11111 ALL: Error : Result shape is WRONG"
-puts "TODO ?OCC11111 ALL: Faulty OCC5805 : result is not Closed shape"
-puts "TODO ?OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO ?OCC11111 ALL: Error : The command is not valid."
-puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 5
-set z2 -5
-
-# beziercurve1
-beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
-mkedge e1 bc1
-wire UpCover e1
-
-# beziercurve2
-beziercurve bc2 5 4 4 ${z2} 4 -4 ${z2} -4 -4 ${z2} -4 4 ${z2} 4 4 ${z2}
-mkedge e2 bc2
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.001
-catch { OFFSETSHAPE $distance {s_2} $calcul $type }
-# Bad result
-
-
-set square 495.635
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-puts "TODO ?OCC11111 ALL: Error : Result shape is WRONG"
-puts "TODO ?OCC11111 ALL: Faulty OCC5805 : result is not Closed shape"
-puts "TODO ?OCC11111 ALL: Error : The command is not valid."
-puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
-puts "TODO ?OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 5
-set z2 -5
-
-# beziercurve1
-beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
-mkedge e1 bc1
-wire UpCover e1
-
-# beziercurve2
-beziercurve bc2 5 4 4 ${z2} 4 -4 ${z2} -4 -4 ${z2} -4 4 ${z2} 4 4 ${z2}
-mkedge e2 bc2
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.001
-catch { OFFSETSHAPE $distance {s_3} $calcul $type }
-# Bad result
-
-
-set square 495.635
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 5
-set z2 -5
-
-# beziercurve1
-beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
-mkedge e1 bc1
-wire UpCover e1
-
-# beziercurve2
-beziercurve bc2 5 4 4 ${z2} 4 -4 ${z2} -4 -4 ${z2} -4 4 ${z2} 4 4 ${z2}
-mkedge e2 bc2
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.001
-catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
-# Bad result
-
-
-set square 495.635
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# pbsplinecurve1
-pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
-mkedge e1 pbc1
-wire UpCover e1
-
-# pbsplinecurve1
-copy e1 e2
-ttranslate e2 0 0 20
-tscale e2 0 0 0 2
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.1
-catch { OFFSETSHAPE $distance {} $calcul $type }
-
-
-set square 754.039
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# pbsplinecurve1
-pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
-mkedge e1 pbc1
-wire UpCover e1
-
-# pbsplinecurve1
-copy e1 e2
-ttranslate e2 0 0 20
-tscale e2 0 0 0 2
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.1
-catch { OFFSETSHAPE $distance {s_3} $calcul $type }
-
-
-set square 1470.32
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 23
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC5805"
-puts "============"
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-cpulimit 8000
-set BugNumber OCC5805
-
-# pbsplinecurve1
-pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
-mkedge e1 pbc1
-wire UpCover e1
-
-# pbsplinecurve1
-copy e1 e2
-ttranslate e2 0 0 20
-tscale e2 0 0 0 2
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.1
-catch { OFFSETSHAPE $distance {s_2} $calcul $type }
-
-
-set square 1511.4
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 23
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC5805"
-puts "============"
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-cpulimit 8000
-set BugNumber OCC5805
-
-# pbsplinecurve1
-pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
-mkedge e1 pbc1
-wire UpCover e1
-
-# pbsplinecurve1
-copy e1 e2
-ttranslate e2 0 0 20
-tscale e2 0 0 0 2
-wire BottomCover e2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.1
-catch { OFFSETSHAPE $distance {s_3 s_2} $calcul $type }
-
-
-set square 1451.05
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-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 22
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# pcone
-pcone s 30 5 20
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {} $calcul $type }
-
-
-set square 5829.59
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-puts ""
-######################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-######################################################
-
-set BugNumber OCC5805
-
-restore [locate_data_file OCC5805.brep] a
-
-decho off
-set che_a [checkshape a]
-decho on
-if { [regexp {Faulty} $che_a] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for a"
-}
-
-explode a f
-
-offsetparameter 1e-7 c a
-offsetload a -1
-
-if { [catch { offsetperform result } catch_result] } {
- puts "Faulty ${BugNumber} : offsetshape is wrong"
-}
-
-if { [catch { set tolmaxres [tolmax result] } catch_result]} {
- puts "Faulty ${BugNumber} : tolmax is wrong"
-}
-regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
-if { [catch { expr $maxtolerance } catch_result] } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
-}
-if { $maxtolerance > 1. } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
-}
-
-set square 876.584
-
-set nb_v_good 10
-set nb_e_good 15
-set nb_w_good 7
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 41
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# pcone
-pcone s 30 5 20
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_2} $calcul $type }
-
-
-set square 12150
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 23
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# pcone
-pcone s 30 5 20
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_3} $calcul $type }
-
-
-set square 7157.43
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 23
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# pcone
-pcone s 30 5 20
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
-
-
-set square 7051.59
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-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 22
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# * v3
-# | \
-# | \
-# | \
-# | \
-# | /* v2
-# | /
-# | /
-# | /
-# *
-# v1
-#
-
-set z1 10
-set z2 -10
-
-# triangle1
-polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
-
-# triangle2
-polyline BottomCover 0 0 ${z2} 5 5 ${z2} 0 10 ${z2} 0 0 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_4} $calcul $type }
-
-
-set square 889.96
-
-set nb_v_good 12
-set nb_e_good 18
-set nb_w_good 10
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 51
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# * v3
-# | \
-# | \
-# | \
-# | \
-# | /* v2
-# | /
-# | /
-# | /
-# *
-# v1
-#
-
-set z1 10
-set z2 -10
-
-# triangle1
-polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
-
-# triangle2
-polyline BottomCover 0 0 ${z2} 5 5 ${z2} 0 10 ${z2} 0 0 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {} $calcul $type }
-
-
-set square 376.733
-
-set nb_v_good 6
-set nb_e_good 9
-set nb_w_good 5
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 27
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# * v3
-# | \
-# | \
-# | \
-# | \
-# | /* v2
-# | /
-# | /
-# | /
-# *
-# v1
-#
-
-set z1 10
-set z2 -10
-
-# triangle1
-polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
-
-# triangle2
-polyline BottomCover 0 0 ${z2} 5 5 ${z2} 0 10 ${z2} 0 0 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_5} $calcul $type }
-
-
-set square 889.96
-
-set nb_v_good 12
-set nb_e_good 18
-set nb_w_good 10
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 51
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-#
-# * v3
-# | \
-# | \
-# | \
-# | \
-# | /* v2
-# | /
-# | /
-# | /
-# *
-# v1
-#
-
-set z1 10
-set z2 -10
-
-# triangle1
-polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
-
-# triangle2
-polyline BottomCover 0 0 ${z2} 5 5 ${z2} 0 10 ${z2} 0 0 ${z2}
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_4 s_5} $calcul $type }
-
-
-set square 870.345
-
-set nb_v_good 12
-set nb_e_good 18
-set nb_w_good 10
-set nb_f_good 8
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 50
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 10
-set z2 -10
-
-# circle1
-circle c1 0 0 ${z1} 5
-mkedge ec1 c1
-wire UpCover ec1
-
-# circle2
-circle c2 0 0 ${z2} 5
-mkedge ec2 c2
-wire BottomCover ec2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {} $calcul $type }
-
-
-set square 664.447
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 10
-set z2 -10
-
-# circle1
-circle c1 0 0 ${z1} 5
-mkedge ec1 c1
-wire UpCover ec1
-
-# circle2
-circle c2 0 0 ${z2} 5
-mkedge ec2 c2
-wire BottomCover ec2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_2} $calcul $type }
-
-
-set square 1336.75
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 23
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-puts ""
-######################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-######################################################
-
-set BugNumber OCC5805
-
-restore [locate_data_file OCC5805.brep] a
-
-decho off
-set che_a [checkshape a]
-decho on
-if { [regexp {Faulty} $che_a] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for a"
-}
-
-if { [catch { offsetshape result a -1 } catch_result] } {
- puts "Faulty ${BugNumber} : offsetshape is wrong"
-}
-
-if { [catch { set tolmaxres [tolmax result] } catch_result] } {
- puts "Faulty ${BugNumber} : tolmax is wrong"
-}
-regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
-if { [catch { expr $maxtolerance } catch_result] } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
-}
-if { $maxtolerance > 1. } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (2)"
-}
-
-set square 876.584
-
-set nb_v_good 10
-set nb_e_good 15
-set nb_w_good 7
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 41
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 10
-set z2 -10
-
-# circle1
-circle c1 0 0 ${z1} 5
-mkedge ec1 c1
-wire UpCover ec1
-
-# circle2
-circle c2 0 0 ${z2} 5
-mkedge ec2 c2
-wire BottomCover ec2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_3} $calcul $type }
-
-
-set square 1336.75
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 23
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-set z1 10
-set z2 -10
-
-# circle1
-circle c1 0 0 ${z1} 5
-mkedge ec1 c1
-wire UpCover ec1
-
-# circle2
-circle c2 0 0 ${z2} 5
-mkedge ec2 c2
-wire BottomCover ec2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
-
-
-set square 1223.65
-
-set nb_v_good 4
-set nb_e_good 6
-set nb_w_good 6
-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 22
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5805"
-puts "============"
-
-#######################################################################
-# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
-#######################################################################
-
-set BugNumber OCC5805
-
-# ellipse1
-ellipse ell 10 0 0 1 0 0 5 3
-mkedge ee1 ell
-wire UpCover ee1
-
-# ellipse2
-copy ee1 ee2
-ttranslate ee2 -20 0 0
-wire BottomCover ee2
-
-set issolid 1
-set isruled 1
-if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-
-}
-
-set distance -0.5
-catch { OFFSETSHAPE $distance {} $calcul $type }
-
-
-set square 495.635
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 13
-
-
-set index [lsearch [whatis s] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : s is not Closed shape"
-
-}
-
-set index [lsearch [whatis result] Closed]
-if {$index == -1} {
- puts "Faulty ${BugNumber} : result is not Closed shape"
-
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC5806"
-puts "============"
-puts ""
-######################################################
-# BRepOffsetAPI_MakeThickSolid fails to build a result
-######################################################
-
-set BugNumber OCC5806
-
-puts "demonstration of pipes and hollowing for GTISoft"
-puts ""
-puts "Scenario 3A: Hollowed general pipe - ThroughSection with following shell reconstruction"
-
-circle c 0 100 0 1 0 0 5
-mkedge ec c
-wire wc ec
-polyline pl 10 90 -10 10 90 10 10 110 10 10 110 -10 10 90 -10
-
-if { [catch { thrusections resthru 1 1 wc pl } catch_result] } {
- puts "Faulty ${BugNumber} : thrusections is wrong"
-}
-
-# straighforward hollowing will fail due to problems in the algorithm
-explode resthru f
-
-if { [catch { offsetshape result resthru -0.5 resthru_6 resthru_7 } catch_result] } {
- puts "Faulty ${BugNumber} : offsetshape is wrong"
-}
-
-if { [catch { set tolmaxres [tolmax result] } catch_result] } {
- puts "Faulty ${BugNumber} : tolmax is wrong"
-}
-regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
-if { [catch { expr $maxtolerance } catch_result] } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
-}
-if { $maxtolerance > 1. } {
- puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
-}
-
-set square 1116.06
-
-set nb_v_good 10
-set nb_e_good 15
-set nb_w_good 7
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 41
-
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " SAL594 "
-puts "========================"
-puts ""
-###################################
-## It is impossible to put correct fillets on the shape
-###################################
-
-restore [locate_data_file SAL594.brep] a
-explode a e
-
-if [catch {blend result1 a 20 a_23 20 a_25 20 a_26 20 a_28} catch_result] {
- puts "Faulty SAL594 (case 1): function BLEND works wrongly"
-} else {
- puts "SAL594 OK (case 1): function BLEND works OK"
-}
-
-if [catch {blend result result1 2.5 a_15 2.5 a_12 2.5 a_4} catch_result] {
- puts "Faulty SAL594 (case 2): function BLEND works wrongly."
-} else {
- puts "SAL594 OK (case 2): function BLEND works OK"
-}
-
-set square 60513.1
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "BUC60975 "
-puts " OCC59"
-puts "================"
-puts ""
-
-restore [locate_data_file BUC60975.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_1 a_2
-set square 241843
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "BUC60975 "
-puts " OCC59"
-puts "================"
-puts ""
-
-restore [locate_data_file BUC60975.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_2 a_1
-set square 241843
-set 2dviewer 1
+++ /dev/null
-puts "TODO ?OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
-
-puts "========================"
-puts " OCC600"
-puts "========================"
-## Result of BOPCOMMON operation is unclosed shape inspite of source solids are valid
-############################################################
-cpulimit 5000
-restore [locate_data_file OCC600_1.brep] a
-checkshape a
-restore [locate_data_file OCC600_2.brep] b
-checkshape b
-bop b a
-
-bopcommon result
-
-set square 41970.8
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========================"
-puts " OCC602 "
-puts "========================"
-puts ""
-###########################################
-## Exception during filet creation if it cross samedge of cylinder.
-###########################################
-
-restore [locate_data_file OCC602.brep] a
-checkshape a
-
-explode a e
-
-if [catch {blend result a 20 a_9 } catch_result] {
- puts "Faulty OCC602: function BLEND works wrongly"
-} else {
- puts "OCC602 OK: function BLEND works OK"
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC605"
-puts "========================"
-puts ""
-##############################
-## No any faces in result of pipe command.
-##############################
-
-restore [locate_data_file OCC605a.brep] w1
-checkshape w1
-restore [locate_data_file OCC605b.brep] w2
-checkshape w2
-
-if { [catch {pipe result w2 w1 } catch_result] } {
- puts "Faulty OCC605: function PIPE works with exception."
-} else {
- explode result f
- set nom 0
- set j 1
- repeat 20 {
- if { [regexp {FACE} [whatis result_$j]] != 1 } {
- break
- } else {
- set nom [expr $nom + 1]
- }
- incr j
- }
- if { $nom == 0 } {
- puts " Faulty OCC605: Result of PIPE operation is incorrect !!! "
- } else {
- puts "OCC605 OK : Result of PIPE operation is NOT empty shell!!! "
- }
-}
-
-set square 20.6253
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6063"
-puts "============"
-puts ""
-######################################################
-# Exception is raised during command "sprops" in DRAW on attached shape.
-######################################################
-
-set BugNumber OCC6063
-cpulimit 2000
-
-restore [locate_data_file OCC6063-2.brep] result
-
-decho off
-set che_res [checkshape result]
-decho on
-if { [regexp {Faulty} $che_res] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for res"
-}
-
-set tol_square 1.e-6
-set square 2465.96
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6063"
-puts "============"
-puts ""
-######################################################
-# Exception is raised during command "sprops" in DRAW on attached shape.
-######################################################
-
-set BugNumber OCC6063
-
-restore [locate_data_file OCC6063.brep] result
-
-checkshape result
-
-set tol_square 1.e-6
-set square 413318
-set 3dviewer 1
-
-
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC606"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC606_2.brep] w2
-checkshape w2
-
-OCC606 result w2 -t
-
-set square 508.243
-set 3dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC606"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC606_10.brep] w10
-checkshape w10
-
-OCC606 result w10 -t
-
-set square 522.56
-set 3dviewer 0
+++ /dev/null
-puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
-
-puts "========================"
-puts " OCC615"
-puts "========================"
-puts ""
-#############################
-## Wrong resultat of BLEND operation
-#############################
-
-restore [locate_data_file OCC615.brep] a
-checkshape a
-explode a e
-
-if [catch {blend result a 9 a_15 } catch_result] {
- puts "Faulty OCC615: function BLEND works with exception"
-} else {
- puts "OCC615 OK: function CHAMF works OK"
-}
-
-set square 197055.
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC616"
-puts "========================"
-puts ""
-########################################
-## Function MKOFFSET gives exception for attached face
-########################################
-
-restore [locate_data_file OCC616.brep] a
-checkshape a
-
-if { [catch {mkoffset result a 5 -2} catch_result] } {
- puts "Faulty OCC616: function MKOFFSET works with exception"
-} else {
- renamevar result_1 result
- checkshape result
- puts "OCC616 OK: function MKOFFSET works OK"
-}
-
-set length 1062.78
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6181"
-puts "============"
-puts ""
-######################################################
-# Incorrect result of boolean cut
-######################################################
-
-set BugNumber OCC6181
-
-restore [locate_data_file OCC6181_A.brep] s1
-restore [locate_data_file OCC6181_B.brep] s2
-
-decho off
-set che_s1 [checkshape s1]
-set che_s2 [checkshape s2]
-decho on
-if { [regexp {Faulty} $che_s1] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for s1"
-}
-
-if { [regexp {Faulty} $che_s2] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for s2"
-}
-
-bcut result s1 s2
-
-set square 151691
-
-set nb_v_good 14
-set nb_e_good 21
-set nb_w_good 9
-set nb_f_good 9
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 56
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6182"
-puts "============"
-puts ""
-######################################################
-# Incorrect result of boolean cut
-######################################################
-
-set BugNumber OCC6182
-
-restore [locate_data_file OCC6182_A.brep] s1
-restore [locate_data_file OCC6182_B.brep] s2
-
-decho off
-set che_s1 [checkshape s1]
-set che_s2 [checkshape s2]
-decho on
-if { [regexp {Faulty} $che_s1] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for s1"
-}
-if { [regexp {Faulty} $che_s2] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for s2"
-}
-
-bcut result s1 s2
-
-set square 318709
-
-set nb_v_good 316
-set nb_e_good 502
-set nb_w_good 185
-set nb_f_good 181
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 1187
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_4"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "================"
-puts "OCC62"
-puts "BUC61001"
-puts "================"
-
-cpulimit 1400
-restore [locate_data_file OCC62.brep] sh
-
-explode sh
-checkshape sh
-
-bfuse res1 sh_1 sh_3
-checkshape res1
-
-bfuse res2 res1 sh_2
-checkshape res2
-
-bfuse res3 res2 sh_6
-checkshape res3
-
-bfuse res4 res3 sh_4
-checkshape res4
-
-bfuse res5 res4 sh_5
-checkshape res5
-
-renamevar res5 result
-
-set square 0
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts "OCC620"
-puts "========================"
-puts ""
-############################
-## No possibility to cut the shapes.
-############################
-
-restore [locate_data_file OCC620a.brep] a
-checkshape a
-restore [locate_data_file OCC620b.brep] b
-checkshape b
-
-bop a b
-
-if [catch { bopcut result } catch_result] {
- puts "Faulty OCC620 : BOPCUT operation was made wrongly"
-} else {
- puts "OCC620 OK: BOPCUT operation works OK"
-}
-
-set square 314742.
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts "OCC620"
-puts "========================"
-puts ""
-############################
-## No possibility to cut the shapes.
-############################
-
-restore [locate_data_file OCC620a.brep] a
-checkshape a
-restore [locate_data_file OCC620b.brep] b
-checkshape b
-
-bop a b
-
-if [catch { boptuc result } catch_result] {
- puts "Faulty OCC620 : BOPTUC operation was made wrongly"
-} else {
- puts "OCC620 OK: BOPTUC operation works OK"
-}
-
-set square 1.15562e+06
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts "OCC625"
-puts "========================"
-puts ""
-###############################################################################
-## Created filler looks strange (see attached picture) inspite of checkshapes told about correct source and result shapes.
-###############################################################################
-
-pload QAcommands
-
-restore [locate_data_file OCC625.brep] a
-checkshape a
-
-vinit
-tclean a
-explode a e
-
-blend res1 a 10 a_22 10 a_14
-blend result res1 10 a_17 10 a_4
-checkshape result
-
-vinit
-vdisplay result
-vfit
-vsetdispmode result 1
-
-set x_coord 116
-set y_coord 252
-
-checkcolor $x_coord $y_coord 0.82 0.58 0.09
-
-set square 19977
-set 3dviewer 1
\ No newline at end of file
+++ /dev/null
-puts "TODO OCC111111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC111111 ALL: Error : The square of result shape is"
-pload QAcommands
-
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-restore [locate_data_file OCC6272_revolution.brep] a2
-
-OCC307 result a1 a2 0
-
-set square 0
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC111111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC111111 ALL: Error : The square of result shape is"
-
-pload QAcommands
-
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-restore [locate_data_file OCC6272_revolution.brep] a2
-
-OCC307 result a1 a2 1
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC111111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC111111 ALL: Error : The square of result shape is"
-
-pload QAcommands
-
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-explode a1
-OCC307 result a1_1 a1_2 0
-
-set square 0
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC111111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC111111 ALL: Error : The square of result shape is"
-
-pload QAcommands
-
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-explode a1
-OCC307 result a1_1 a1_2 1
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-explode a1
-
-bop a1_1 a1_2
-bopfuse result
-
-set square 6552.67
-
-# Analysis of "nbshapes res"
-set nb_v_good 116
-set nb_e_good 176
-set nb_w_good 72
-set nb_f_good 70
-set nb_sh_good 5
-set nb_sol_good 5
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 445
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-restore [locate_data_file OCC6272_revolution.brep] a2
-
-bop a1 a2
-bopfuse result
-
-# puts "See result in the viewer!!!"
-
-set square 8979.70
-
-# Analysis of "nbshapes res"
-set nb_v_good 60
-set nb_e_good 90
-set nb_w_good 42
-set nb_f_good 40
-set nb_sh_good 5
-set nb_sol_good 5
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 243
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_3 a1_5
-if { [catch { bopfuse result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set square 730.993
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_6 a1_4
-if { [catch { bopfuse result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set square 3387.54
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_5 a1_3
-if { [catch { bopfuse result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set square 730.993
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_5 a1_1
-if { [catch { bopfuse result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set square 2037.7
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_1 a1_5
-if { [catch { bopfuse result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set square 2037.7
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_1 a1_2
-if { [catch { bopfuse result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set square 2314.14
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_2 a1_1
-if { [catch { bopfuse result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set square 2314.14
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_2 a1_4
-if { [catch { bopfuse result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set square 922.7
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_4 a1_2
-if { [catch { bopfuse result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set square 922.7
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_4 a1_6
-if { [catch { bopfuse result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set square 3387.54
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_3 a1_5
-if { [catch { bopsection result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set length 36
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_6 a1_4
-if { [catch { bopsection result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set length 57.3941
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_5 a1_3
-if { [catch { bopsection result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set length 36
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_5 a1_1
-if { [catch { bopsection result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set length 32
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_1 a1_5
-if { [catch { bopsection result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set length 32
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_1 a1_2
-if { [catch { bopsection result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set length 32
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_2 a1_1
-if { [catch { bopsection result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set length 32
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_2 a1_4
-if { [catch { bopsection result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set length 32.1528
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_4 a1_2
-if { [catch { bopsection result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set length 32.1528
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6272"
-puts "============"
-puts ""
-######################################################
-# Incorrect results of gluing operation
-######################################################
-
-set BugNumber OCC6272
-
-restore [locate_data_file OCC6272_bridge2.brep] a1
-
-#
-# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
-#
-
-explode a1 so
-
-bop a1_4 a1_6
-if { [catch { bopsection result } ] } {
- puts "Faulty ${BugNumber}"
-}
-
-set length 57.3941
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC6277"
-puts "============"
-puts ""
-######################################################
-# Cut operation does not produce any result
-######################################################
-
-set BugNumber OCC6277
-
-restore [locate_data_file OCC6277_A.brep] s1
-restore [locate_data_file OCC6277_B.brep] s2
-
-decho off
-set che_s1 [checkshape s1]
-set che_s2 [checkshape s2]
-decho on
-if { [regexp {Faulty} $che_s1] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for s1"
-}
-
-if { [regexp {Faulty} $che_s2] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for s2"
-}
-
-bcut result s1 s2
-
-set square 40084.9
-
-set nb_v_good 23
-set nb_e_good 34
-set nb_w_good 19
-set nb_f_good 14
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 93
-
-set 2dviewer 0
-
+++ /dev/null
-#INTERFACE STEP
-puts "============"
-puts "OCC6289"
-puts "============"
-puts ""
-######################################################
-# Internal error (code 101) in Section computation
-######################################################
-
-catch { pload XDE }
-
-set BugNumber OCC6289
-
-if { [catch { stepread [locate_data_file OCC6289.stp] a * } catch_result] } {
- puts "Faulty ${BugNumber} : here is reading problem"
-} else {
- tpcompound comp
-
- plane pl 0 0 28 0 0 1
- mkface f pl
-
- if { [catch { bsection result comp f } catch_result] } {
- puts "Faulty ${BugNumber}"
- }
-}
-
-set length 453.679
-set 3dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "================"
-puts "OCC629"
-puts "================"
-puts ""
-##########################################
-## Exception during attempt to create solid by command PIPE
-##########################################
-
-restore [locate_data_file OCC629a.brep] a
-checkshape a
-
-restore [locate_data_file OCC629b.brep] b
-checkshape b
-
-if [catch {pipe result a b } catch_result] {
- puts "Faulty OCC629: function PIPE works wrongly"
-} else {
- puts "OCC629 OK: function PIPE works properly"
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
-
-puts "============"
-puts "OCC6334"
-puts "============"
-puts ""
-######################################################
-# Invalid result of MakeCylindricalHole when input solid is REVERSED
-######################################################
-
-set BugNumber OCC6334
-
-# 1. Make box
-box b 100 100 100
-
-subshape b f 1
-offsetshape t b 10 b_1
-
-decho off
-set che_t [checkshape t]
-decho on
-
-if {[regexp {Faulty} $che_t]} {
- puts "Faulty ${BugNumber} : checkshape is wrong for t"
-}
-
-set bnd_t [bounding t]
-set ori [lindex [dtyp t] 2]
-puts "Orientation of thick solid is $ori"
-
-# 3. Make hole
-hole h t 110 50 50 1 0 0 10
-
-set che [checkshape h]
-if { [regexp {Faulty} $che] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for h"
-}
-
-set bnd_h [bounding h]
-
-renamevar h result
-
-set square 117509
-
-set nb_v_good 32
-set nb_e_good 53
-set nb_w_good 27
-set nb_f_good 24
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 139
-
-
-# 4. Check thickness of box and hole
-set dx_t [expr [lindex $bnd_t 3] - [lindex $bnd_t 0]]
-set dx_h [expr [lindex $bnd_h 3] - [lindex $bnd_h 0]]
-
-if { [expr abs($dx_h - $dx_t)] > 1e-5 } {
- puts "Thickness of solid = $dx_t"
- puts "Thickness of solid with hole = $dx_h"
- puts "Invalid result of making a hole"
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC636"
-puts "================"
-puts ""
-#####################################
-## BRepOffsetAPI_MakePipeShell builds twisted pipe
-#####################################
-
-restore [locate_data_file OCC636a.brep] s
-checkshape s
-
-restore [locate_data_file OCC636b.brep] s1
-checkshape s1
-
-restore [locate_data_file OCC636c.brep] s2
-checkshape s2
-
-mksweep s
-addsweep s1
-addsweep s2
-
-if [catch { buildsweep result } catch_result] {
- puts "Faulty OCC636: function buildsweep works wrongly"
-} else {
- puts "OCC636 OK: function buildsweep works properly"
-}
-
-set square 3836.92
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC637"
-puts "(case 1)"
-puts "================"
-puts ""
-##########################################
-## BRepOffsetAPI_MakePipeShell crashes with fatal exception
-##########################################
-
-restore [locate_data_file OCC637a.brep] s
-checkshape s
-
-restore [locate_data_file OCC636c.brep] s1
-checkshape s1
-
-restore [locate_data_file OCC637c.brep] s2
-checkshape s2
-
-mksweep s
-addsweep s1
-addsweep s2
-
-if [catch { buildsweep result } catch_result] {
- puts "Faulty OCC637 (case 1): function buildsweep works wrongly"
-}
-
-set square 1675.58
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC637"
-puts "(case 2)"
-puts "================"
-puts ""
-##########################################
-## BRepOffsetAPI_MakePipeShell crashes with fatal exception
-##########################################
-
-restore [locate_data_file OCC637d.brep] s
-checkshape s
-
-restore [locate_data_file OCC637c.brep] s1
-checkshape s1
-
-restore [locate_data_file OCC637f.brep] s2
-checkshape s2
-
-mksweep s
-addsweep s1
-addsweep s2
-
-if [catch {buildsweep result } catch_result] {
- puts "Faulty OCC637 (case 2): function buildsweep works wrongly"
-}
-
-set square 1090.91
-set 2dviewer 0
-
+++ /dev/null
-puts "================"
-puts "OCC6502"
-puts "================"
-puts ""
-#######################################################################################
-# Failure calculation of ShrunkRange resulting to failure of boolean operation
-#######################################################################################
-
-set BugNumber OCC6502
-
-
-restore [locate_data_file OCC6502.brep] a
-plane pl 100 0 0 1 0 0
-mkface f pl
-
-if { [catch { bsection result a f -a } catch_result] } {
- puts "Faulty ${BugNumber}"
-}
-
-set length 37.7831
-set 3dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6538"
-puts "============"
-puts ""
-######################################################
-# Empty result obtained by operation "common" for couple of faces
-######################################################
-
-set BugNumber OCC6538
-
-restore [locate_data_file OCC6538-f1.brep] s1
-restore [locate_data_file OCC6538-f2.brep] s2
-
-decho off
-set che_s1 [checkshape s1]
-set che_s2 [checkshape s2]
-decho on
-if { [regexp {Faulty} $che_s1] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for s1"
-}
-
-if { [regexp {Faulty} $che_s2] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for s2"
-}
-
-
-bop s1 s2
-bopcommon result
-
-set square 18.695
-
-set nb_v_good 16
-set nb_e_good 16
-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 1
-set nb_shape_good 36
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6554"
-puts "============"
-puts ""
-######################################################
-# Intersection shell-plane gives a disconnected set of edges
-######################################################
-
-set BugNumber OCC6554
-
-restore [locate_data_file OCC6554-shell.brep] sh
-restore [locate_data_file OCC6554-face.brep] f
-
-decho off
-set che_sh [checkshape sh]
-set che_f [checkshape f]
-decho on
-if { [regexp {Faulty} $che_sh] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for sh"
-}
-
-if { [regexp {Faulty} $che_f] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for f"
-}
-
-bsection result sh f -a
-
-regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full Vertices
-
-set good_Vertices 2
-
-if { ${Vertices} != ${good_Vertices} } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set length 110.045
-set 2dviewer 2
+++ /dev/null
-
-puts "================"
-puts "BUC61052"
-puts "OCC67"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC67.brep] sh
-checkshape sh
-
-explode sh e
-
-fillet result sh 5 sh_18
-
-set square 64281.8
-set 2dviewer 0
+++ /dev/null
-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
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC673: function SPLITSHAPE works wrongly"
-
-puts "================"
-puts "OCC673"
-puts "================"
-puts ""
-#######################################################
-## Exception is raised during splitting face by a wire laying on the face boundary.
-#######################################################
-
-restore [locate_data_file OCC673a.brep] a
-checkshape a
-
-restore [locate_data_file OCC673b.brep] b
-checkshape b
-
-if [catch {spliteshape result a a b} catch_result] {
- puts "Faulty OCC673: function SPLITSHAPE works wrongly"
-} else {
- puts "OCC673 OK : function SPLITSHAPE works OK"
- set square 0
- set 2dviewer 0
-}
-
-
-
+++ /dev/null
-puts "================"
-puts "OCC6766"
-puts "================"
-puts ""
-#######################################################################################
-# Invalid result of intersection of a bspline face with a plane
-#######################################################################################
-
-set BugNumber OCC6766
-
-restore [locate_data_file OCC6766.brep] a
-
-decho off
-set che_a [checkshape a]
-decho on
-if { [regexp {Faulty} $che_a] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for s1"
-}
-
-set Y 4
-plane pl 0 ${Y} 0 0 1 0
-mkface f pl
-bsection result a f -2d -a
-
-
-
-set nb_v_good 4
-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 8
-
-set length 138.474
-set 2dviewer 0
+++ /dev/null
-puts "================"
-puts "OCC6766"
-puts "================"
-puts ""
-#######################################################################################
-# Invalid result of intersection of a bspline face with a plane
-#######################################################################################
-
-set BugNumber OCC6766
-
-restore [locate_data_file OCC6766.brep] a
-
-decho off
-set che_a [checkshape a]
-decho on
-if { [regexp {Faulty} $che_a] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for a"
-}
-
-set Y 4
-plane pl 0 ${Y} 0 0 1 0
-mkface f pl
-bop a f
-bopsection result
-
-
-set nb_v_good 4
-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 8
-
-set length 138.474
-set 2dviewer 0
+++ /dev/null
-puts "================"
-puts "OCC6766"
-puts "================"
-puts ""
-#######################################################################################
-# Invalid result of intersection of a bspline face with a plane
-#######################################################################################
-
-set BugNumber OCC6766
-
-restore [locate_data_file OCC6766.brep] a
-
-decho off
-set che_a [checkshape a]
-decho on
-if { [regexp {Faulty} $che_a] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for a"
-}
-
-set Y 6
-plane pl 0 ${Y} 0 0 1 0
-mkface f pl
-bsection result a f -2d -a
-
-
-set nb_v_good 4
-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 8
-
-set length 126.138
-set 2dviewer 0
+++ /dev/null
-puts "================"
-puts "OCC6766"
-puts "================"
-puts ""
-#######################################################################################
-# Invalid result of intersection of a bspline face with a plane
-#######################################################################################
-
-set BugNumber OCC6766
-
-restore [locate_data_file OCC6766.brep] a
-decho off
-set che_a [checkshape a]
-decho on
-if { [regexp {Faulty} $che_a] } {
- puts "Faulty ${BugNumber} : checkshape is wrong for a"
-}
-
-set Y 6
-plane pl 0 ${Y} 0 0 1 0
-mkface f pl
-bop a f
-bopsection result
-
-
-set nb_v_good 4
-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 8
-
-set length 126.138
-set 2dviewer 0
+++ /dev/null
-#INTERFACE STEP
-puts "================"
-puts "OCC6811"
-puts "================"
-puts ""
-#######################################################################################
-# Unstable work of the checkshape on the attached file.
-#######################################################################################
-
-catch { pload XDE }
-
-set BugNumber OCC6811
-
-if { [catch { stepread [locate_data_file trj12_b3-tu-203.stp] a * } catch_result] } {
- puts "Faulty ${BugNumber} : here is reading problem"
-} else {
- decho off
- set che_a_1 [checkshape a_1 f]
- set che_a_2 [checkshape a_1 f]
- decho on
- if { [regexp {Faulty} $che_a_1] } {
- puts "Faulty ${BugNumber} : checkshape 1 is wrong for a"
- }
- if { [regexp {Faulty} $che_a_2] } {
- puts "Faulty ${BugNumber} : checkshape 2 is wrong for a"
- }
-
- renamevar a_1 result
-}
-
-set square 1.48021e+06
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "BUC61053"
-puts "OCC68"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC68.brep] sh
-checkshape sh
-
-explode sh
-
-bfuse result sh_1 sh_2
-
-set square 3675.77
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "BUC61053"
-puts "OCC68"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC68.brep] sh
-checkshape sh
-
-explode sh
-
-bfuse result sh_2 sh_1
-set square 3675.77
-set 2dviewer 0
-
-
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The square of result shape is "
-
-puts "================"
-puts "OCC693"
-puts "================"
-puts ""
-###################################################
-## The boolean operations give incorrect result if one of shapes is compound
-## consisting of several adjoint solids
-####################################################
-
-box h1 234 52 0 41 98 40
-box v1 241 136 20 31 31 15
-box h3 215 120 20 78 15 15
-
-#mu4
-#fit
-
-compound h1 c1
-compound v1 c2
-
-tcopy c1 cc1
-tcopy c2 cc2
-bcommon int1 cc1 cc2
-##########checkshape -top int1
-checkshape -top int1
-
-tcopy c1 cc1
-tcopy c2 cc2
-bcut cut1 cc1 cc2
-checkshape -top cut1
-
-tcopy c1 cc1
-tcopy c2 cc2
-bcut cut2 cc2 cc1
-##########checkshape -top cut2
-checkshape -top cut2
-
-compound int1 cut1 cut2 comp3
-##########checkshape -top comp3
-checkshape -top comp3
-#donly comp3
-
-tcopy comp3 ccomp3
-tcopy h3 ch3
-bcommon int2 ccomp3 ch3
-##########checkshape -top int2
-checkshape -top int2
-#donly int2
-
-tcopy comp3 ccomp3
-tcopy h3 ch3
-bcut cut3 ccomp3 ch3
-##########checkshape -top cut3
-checkshape -top cut3
-#donly cut3
-
-tcopy comp3 ccomp3
-tcopy h3 ch3
-bcut cut4 ch3 ccomp3
-##########checkshape -top cut4
-checkshape -top cut4
-
-compound int2 cut3 cut4 result
-##########checkshape -top res
-checkshape -top result
-
-##########set che [checkshape -top res]
-##########
-##########set err [lindex $che [expr [llength $che] - 7]]
-##########if { $err == "Faulty"} {
-########## puts "Faulty OCC693"
-##########} else {
-########## puts "OCC693 OK "
-##########}
-
-set square 33196
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "================"
-puts "OCC693"
-puts "================"
-puts ""
-###################################################
-## The boolean operations give incorrect result if one of shapes is compound
-## consisting of several adjoint solids
-####################################################
-
-box h1 234 52 0 41 98 40
-box v1 241 136 20 31 31 15
-box h3 215 120 20 78 15 15
-
-compound h1 c1
-compound v1 c2
-
-tcopy c1 cc1
-tcopy c2 cc2
-
-bop cc1 cc2
-bopcommon int1
-
-checkshape -top int1
-
-tcopy c1 cc1
-tcopy c2 cc2
-
-bop cc1 cc2
-bopcut cut1
-
-checkshape -top cut1
-
-tcopy c1 cc1
-tcopy c2 cc2
-
-bop cc2 cc1
-bopcut cut2
-
-checkshape -top cut2
-
-compound int1 cut1 cut2 comp3
-
-checkshape -top comp3
-
-tcopy comp3 ccomp3
-tcopy h3 ch3
-
-bop ccomp3 ch3
-bopcommon int2
-
-checkshape -top int2
-
-tcopy comp3 ccomp3
-tcopy h3 ch3
-
-bop ccomp3 ch3
-bopcut cut3
-
-checkshape -top cut3
-
-tcopy comp3 ccomp3
-tcopy h3 ch3
-
-bop ch3 ccomp3
-bopcut cut4
-
-checkshape -top cut4
-
-compound int2 cut3 cut4 result
-
-checkshape -top result
-
-set square 33196
-set 3dviewer 1
-
+++ /dev/null
-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 b1 b2} catch_result] } {
-##############################################
- puts "Faulty : an exception was caught"
-}
-
-set square 8879.41
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC697"
-puts "============"
-puts ""
-######################################################
-# Fuse operation does not work
-######################################################
-## (old topology)
-## (fuse)
-######################################################
-
-puts "#"
-puts "Non stable test case on Linux. MKV. 28.04.2010"
-puts "#"
-
-restore [locate_data_file OCC697_2.brep] b2
-restore [locate_data_file OCC697_3.brep] b3
-
-checkshape b2
-checkshape b3
-##############################################
-if { [catch {bfuse result b2 b3} catch_result] } {
-##############################################
- puts "Faulty : an exception was caught"
-}
-
-set square 25357.5
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC697"
-puts "============"
-puts ""
-######################################################
-# Fuse operation does not work
-######################################################
-## (new topology)
-## (bfuse)
-######################################################
-
-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
+++ /dev/null
-puts "============"
-puts "OCC697"
-puts "============"
-puts ""
-######################################################
-# Fuse operation does not work
-######################################################
-## (new topology)
-## (bfuse)
-######################################################
-
-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
-
+++ /dev/null
-puts "============"
-puts "OCC697"
-puts "============"
-puts ""
-######################################################
-# Fuse operation does not work
-######################################################
-## (new topology)
-## (bopfuse)
-######################################################
-
-restore [locate_data_file OCC697_1.brep] b1
-restore [locate_data_file OCC697_2.brep] b2
-
-checkshape b1
-checkshape b2
-
-bop b1 b2
-if { [catch {bopfuse result} catch_result] } {
- puts "Faulty OCC697"
-}
-set square 8879.41
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC697"
-puts "============"
-puts ""
-######################################################
-# Fuse operation does not work
-######################################################
-## (new topology)
-## (bopfuse)
-######################################################
-
-restore [locate_data_file OCC697_1.brep] b1
-restore [locate_data_file OCC697_2.brep] b2
-
-checkshape b1
-checkshape b2
-
-bop b2 b1
-if { [catch {bopfuse result} catch_result] } {
- puts "Faulty OCC697"
-}
-set square 8879.41
-set 3dviewer 1
-
+++ /dev/null
-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
-
+++ /dev/null
-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
-
+++ /dev/null
-
-puts "======= OCC698 ======="
-######################################
-## Cut operation produces bad result on attached shapes
-######################################
-cpulimit 10000
-restore [locate_data_file OCC698_1.brep] b4
-checkshape b4
-restore [locate_data_file OCC698_2.brep] b5
-checkshape b5
-
-bcut result b5 b4
-
-set square 19048.2
-set 2dviewer 0
-
+++ /dev/null
-
-puts "======="
-puts "OCC702"
-puts "SAM1541"
-puts "======="
-puts ""
-########################
-## No possibility to make a prism.
-########################
-
-restore [locate_data_file OCC702.brep] a
-
-if [ catch { prism result a 100 100 100 } catch_result ] {
- puts "Faulty OCC702 (case 1)"
-} else {
- regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full sq
- if { $sq <= 0. } {
- puts "Faulty OCC702 (case 2)"
- } else {
- puts "OCC702 OK"
- }
-}
-
-set square 308957.
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC712"
-puts "========"
-puts ""
-#########################################################
-## Exeption is raised in DRAW during building draft with help command "depouille"
-## on face in the attached shape.
-#########################################################
-
-restore [locate_data_file OCC712.brep] a
-checkshape a
-
-explode a f
-
-if [catch {depouille result a 0 0 1 a_2 10 0 39.6875 0 0. 0. -1 } catch_result] {
- puts "Faulty OCC712"
-} else {
- puts "OCC712 OK"
-}
-
-set square 41956.4
-set 2dviewer 0
+++ /dev/null
-#INTERFACE IGES
-puts "========"
-puts "OCC714"
-puts "========"
-puts ""
-####################################################
-## After command sew in DRAW on attached shape free wires are disappeared.
-####################################################
-
-restore [locate_data_file OCC714.brep] a
-checkshape a
-
-set nb_info1 [nbshapes a]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info1 full ve1
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info1 full ed1
-regexp {WIRE +: +([-0-9.+eE]+)} $nb_info1 full we1
-
-sewing result 0.1 a
-
-set nb_info2 [nbshapes a]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info2 full ve2
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info2 full ed2
-regexp {WIRE +: +([-0-9.+eE]+)} $nb_info2 full we2
-
-if { $ve1 != $ve2 || $ed1 != $ed2 || $we1 != $we2} {
- puts [format "Faulty OCC714 : SEWING operation was made WRONGLY: vertexes before %s, edges before %s, wires before %s" $ve1 $ed1 $we1]
- puts [format " vertexes after %s, edges after %s, wires after %s" $ve1 $ed1 $we1]
-} else {
- puts "OK OCC714: SEWING operation was made PROPERLY"
-}
-
-set square 12917.1
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC715"
-puts "SAM1582"
-puts "========"
-puts ""
-##########################################
-## section of two faces produces wrong number of section edges
-##########################################
-
-restore [locate_data_file OCC715_2.brep] f2
-restore [locate_data_file OCC715_3.brep] f3
-
-bsection result f2 f3
-
-set expl [explode result]
-
-set length [llength $expl]
-puts "Result is $length section edge"
-
-if {$length != 3} {
- puts "Faulty OCC715"
-} else {
- puts "OCC715 OK"
-}
-
-set length 100.
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC726"
-puts "SAM1594"
-puts "========"
-puts ""
-######################################
-## Boolean operations are impossible on the attachment.
-######################################
-
-restore [locate_data_file OCC726.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bcommon result a_1 a_2
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC726"
-puts "SAM1594"
-puts "========"
-puts ""
-######################################
-## Boolean operations are impossible on the attachment.
-######################################
-
-restore [locate_data_file OCC726.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bcut result a_1 a_2
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
-puts "========"
-puts "OCC726"
-puts "SAM1594"
-puts "========"
-puts ""
-######################################
-## Boolean operations are impossible on the attachment.
-######################################
-
-restore [locate_data_file OCC726.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bcut result a_2 a_1
-
-set square 10
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC743"
-puts "========"
-puts ""
-#######################################
-## The result of offset operation on a planar wire is wrong
-#######################################
-
-restore [locate_data_file OCC743_corr2.brep] a
-checkshape a
-
-if { [catch { mkoffset result a 1 -15 } status] } {
- puts "Faulty OCC743"
-} else {
- renamevar result_1 result
- set nb_info [nbshapes result]
- regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
- puts [format "Result shape result contains %s vertexes" $ve]
- if { $ve == 0 } {
- puts [format "Faulty : Result shape is NULL shape"]
- } else {
- regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
- if {$wi > 1 } {
- set ll [explode result w]
- set num [llength $ll]
- puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
- foreach {k} $ll {
- checkshape $k
- regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
- if { $cs != 0 } {
- puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
- } else {
- puts [format "OK: Result shape is CLOSED wire !!! "]
- }
- }
- }
- }
-}
-
-set length 3533.52
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC745"
-puts "========"
-puts ""
-#######################################################
-## There are several cases where the offset algo works wrong for various reasons
-## for wires containing only linear segments and arcs of circle.
-#######################################################
-
-restore [locate_data_file OCC745_1.brep] a
-checkshape a
-
-if { [catch { mkoffset result a 1 -10 } status] } {
- puts "Faulty : an exception was caught"
-} else {
- renamevar result_1 result
- set nb_info [nbshapes result]
- regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
- puts [format "Result shape result contains %s vertexes" $ve]
- if { $ve == 0 } {
- puts [format "Faulty : Result shape is NULL shape"]
- } else {
- regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
- if {$wi > 1 } {
- set ll [explode result w]
- set num [llength $ll]
- puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
- foreach {k} $ll {
- checkshape $k
- regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
- if { $cs != 0 } {
- puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
- } else {
- puts [format "OK: Result shape is CLOSED wire !!! "]
- }
- }
- }
- }
-}
-
-set length 932.825
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC745"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-
-puts "========"
-puts "OCC745"
-puts "========"
-puts ""
-#############################################
-# Negative offset parameter leads to positive offset and vise
-# versa. Result of the offset represent an edge instead of wire.
-#############################################
-
-restore [locate_data_file OCC745_nb1.brep] w
-mkoffset result w 1 -1
-
-set list [whatis result_1]
-
-if { [regexp {WIRE} $list] == 0 } {
- puts "Faulty OCC745"
-} else {
- puts "OCC745 OK"
-}
-
-renamevar result_1 result
-
-set length 0
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC745"
-puts "========"
-puts ""
-#########################
-# Not correct creation of bisector loci.
-#########################
-
-restore [locate_data_file OCC745_nb2.brep] w
-mkplane f w
-topoload f
-drawcont
-
-mat
-result
-
-##################################################
-#Exception thrown: Standard_ConstructionError: Offset wire is not closed.
-##################################################
-
-if { [catch { mkoffset result w 10 -7 } status] } {
- puts "Faulty OCC745"
-} else {
- renamevar result_1 result
- set nb_info [nbshapes result]
- regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
- puts [format "Result shape result contains %s vertexes" $ve]
- if { $ve == 0 } {
- puts [format "Faulty : Result shape is NULL shape"]
- } else {
- regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
- if {$wi > 1 } {
- set ll [explode result w]
- set num [llength $ll]
- puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
- foreach {k} $ll {
- checkshape $k
- regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
- if { $cs != 0 } {
- puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
- } else {
- puts [format "OK: Result shape is CLOSED wire !!! "]
- }
- }
- }
- }
-}
-
-set length 1930.99
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: An exception was caught"
-puts "TODO OCC12345 ALL: Exception "
-puts "TODO OCC12345 ALL: Faulty OCC745"
-
-puts "========"
-puts "OCC745"
-puts "========"
-puts ""
-##################################################
-# Exception thrown: Standard_ConstructionError: Offset wire is not closed.
-##################################################
-
-restore [locate_data_file OCC745_nb3.brep] w
-checkshape w
-
-if { [catch { mkoffset result w 1 10 } status] } {
- puts "Faulty OCC745"
-} else {
- renamevar result_1 result
- set nb_info [nbshapes result]
- regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
- puts [format "Result shape result contains %s vertexes" $ve]
- if { $ve == 0 } {
- puts [format "Faulty : Result shape is NULL shape"]
- } else {
- regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
- if {$wi > 1 } {
- set ll [explode result w]
- set num [llength $ll]
- puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
- foreach {k} $ll {
- checkshape $k
- regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
- if { $cs != 0 } {
- puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
- } else {
- puts [format "OK: Result shape is CLOSED wire !!! "]
- }
- }
- }
- }
- set length 0
- set 2dviewer 0
-}
+++ /dev/null
-
-puts "========"
-puts "OCC745"
-puts "========"
-puts ""
-#################################
-# Infinite loop during bisector loci calculation.
-#################################
-
-restore [locate_data_file OCC745_nb5.brep] w
-checkshape w
-mkplane result w
-topoload result
-drawcont
-
-cpulimit 600
-
-mat
-
-result
-
-puts "OCC745 OK"
-
-set square 5844.54
-set 2dviewer 1
+++ /dev/null
-
-puts "========"
-puts "OCC745"
-puts "========"
-puts ""
-##################################################
-## This test does not terminate due to infinite loop in bissector calculation
-##################################################
-
-restore [locate_data_file OCC745_2.brep] a
-checkshape a
-mkplane pl a
-topoload pl
-drawcont
-smallview -2D-
-2dfit
-
-set min 30
-cpulimit [expr 60 * $min]
-
-mat
-puts "OCC745 OK"
-
-renamevar pl result
-set square 5844.55
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC745"
-puts "========"
-puts ""
-###########################
-## Incorrect MAT (map of bissectors)
-###########################
-
-puts "#"
-puts "Non stable test case on Linux. MKV. 04.02.2011"
-puts " ( Gif )"
-puts "#"
-
-restore [locate_data_file OCC745_ellipse.brep] w
-checkshape w
-mkplane result w
-topoload result
-drawcont
-
-smallview -2D-
-2dfit
-
-mat
-#result
-
-set square 8357.41
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : Result shape is NULL shape"
-puts "TODO OCC12345 ALL: Exception: result is not a topological shape!!!"
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
-pload QAcommands
-
-puts "========"
-puts "OCC745"
-puts "========"
-puts ""
-###########################################
-# Exception Standard_NullValue while performing the offset:
-###########################################
-
-restore [locate_data_file OCC745_pocket1.brep] a
-checkshape a
-
-if { [catch { mkoffset result a 1 -10 } status] } {
- puts "Faulty OCC745"
-} else {
- renamevar result_1 result
- set nb_info [nbshapes result]
- set ve 0
- regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
- puts [format "Result shape result contains %s vertexes" $ve]
- if { $ve == 0 } {
- puts [format "Faulty : Result shape is NULL shape"]
- } else {
- regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
- if {$wi > 1 } {
- set ll [explode result w]
- set num [llength $ll]
- puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
- foreach {k} $ll {
- checkshape $k
- regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
- if { $cs != 0 } {
- puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
- } else {
- puts [format "OK: Result shape is CLOSED wire !!! "]
- }
- }
- }
- }
-}
-
-set length 0
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC745"
-puts "========"
-puts ""
-############################
-# Not correct creation of bisector loci:
-############################
-
-restore [locate_data_file OCC745_pocket4.brep] w
-checkshape w
-plane p
-mkface result p w
-topoload result
-drawcont
-
-smallview -2D-
-2dfit
-
-mat
-result
-
-set square 5844.21
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : Result shape is NULL shape"
-puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
-
-puts "========"
-puts "OCC745"
-puts "BUC60878"
-puts "========"
-puts ""
-################################
-# There are discontinuities in offset contours:
-################################
-
-restore [locate_data_file BUC60878-wire3.brep] a
-checkshape a
-
-if { [catch { mkoffset result a 1 -10 } status] } {
- puts "Faulty OCC745"
-} else {
- renamevar result_1 result
- set nb_info [nbshapes result]
- regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
- puts [format "Result shape result contains %s vertexes" $ve]
- if { $ve == 0 } {
- puts [format "Faulty : Result shape is NULL shape"]
- } else {
- regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
- if {$wi > 1 } {
- set ll [explode result w]
- set num [llength $ll]
- puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
- foreach {k} $ll {
- checkshape $k
- regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
- if { $cs != 0 } {
- puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
- } else {
- puts [format "OK: Result shape is CLOSED wire !!! "]
- }
- }
- }
- }
-}
-
-set length 0
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : Result shape is NULL shape"
-puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
-
-puts "========"
-puts "OCC745"
-puts "========"
-puts ""
-######################################################
-## Exception thrown: Standard_ConstructionError: Offset wire is not closed:
-######################################################
-
-source [locate_data_file OCC745_cont1.dat]
-checkshape pp
-
-if { [catch { mkoffset result pp 1 -10 } status] } {
- puts "Faulty OCC745"
-} else {
- renamevar result_1 result
- set nb_info [nbshapes result]
- regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
- puts [format "Result shape result contains %s vertexes" $ve]
- if { $ve == 0 } {
- puts [format "Faulty : Result shape is NULL shape"]
- } else {
- regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
- if {$wi > 1 } {
- set ll [explode result w]
- set num [llength $ll]
- puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
- foreach {k} $ll {
- checkshape $k
- regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
- if { $cs != 0 } {
- puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
- } else {
- puts [format "OK: Result shape is CLOSED wire !!! "]
- }
- }
- }
- }
-}
-
-set length 0
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC745"
-puts "========"
-puts ""
-###################################################
-## Exception thrown: Standard_ConstructionError: Offset wire is not closed:
-###################################################
-
-restore [locate_data_file BUC60830-face2.brep] f
-checkshape f
-
-if { [catch { mkoffset result f 45 -0.042225 } status] } {
- puts "Faulty OCC745"
-} else {
- renamevar result_1 result
- set nb_info [nbshapes result]
- regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
- puts [format "Result shape result contains %s vertexes" $ve]
- if { $ve == 0 } {
- puts [format "Faulty : Result shape is NULL shape"]
- } else {
- regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
- if {$wi > 1 } {
- set ll [explode result w]
- set num [llength $ll]
- puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
- foreach {k} $ll {
- checkshape $k
- regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
- if { $cs != 0 } {
- puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
- } else {
- puts [format "OK: Result shape is CLOSED wire !!! "]
- }
- }
- }
- }
-}
-
-set length 72.1851
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
-puts "TODO OCC12345 ALL: Faulty : Result shape is NULL shape"
-
-puts "========"
-puts "OCC745"
-puts "========"
-puts ""
-#####################################################
-# The latter command enters an endless loop: it was not completed in 30 min:
-#####################################################
-
-source [locate_data_file OCC745_cont2.dat]
-checkshape pq
-
-if { [catch { mkoffset result pq 1 -10 } status] } {
- puts "Faulty OCC745"
-} else {
- renamevar result_1 result
- set nb_info [nbshapes result]
- regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
- puts [format "Result shape result contains %s vertexes" $ve]
- if { $ve == 0 } {
- puts [format "Faulty : Result shape is NULL shape"]
- } else {
- regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
- if {$wi > 1 } {
- set ll [explode result w]
- set num [llength $ll]
- puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
- foreach {k} $ll {
- checkshape $k
- regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
- if { $cs != 0 } {
- puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
- } else {
- puts [format "OK: Result shape is CLOSED wire !!! "]
- }
- }
- }
- }
-}
-
-set length 0
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC748"
-puts "========"
-puts ""
-##################################
-## Incorrect work of DRAW-command "common"
-##################################
-
-restore [locate_data_file OCC748_1.brep] s1
-checkshape s1
-restore [locate_data_file OCC748_2.brep] s2
-checkshape s2
-
-bcommon result s1 s2
-
-set square 628.319
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC755"
-puts "SAM1607"
-puts "(case 1)"
-puts "========"
-puts ""
-####################################################################
-##Result of cut of capteur2 from capteur1 is a solid. It must be a compound, as it consists of 2 bodies.
-####################################################################
-
-restore [locate_data_file OCC755_1.brep] a1
-checkshape a1
-restore [locate_data_file OCC755_2.brep] a2
-checkshape a2
-
-bcut result a1 a2
-
-set wt_is [whatis result]
-
-set lth [llength $wt_is]
-
-if {$lth < 5} {
- puts "Faulty OCC755 (case 1)"
-} else {
- if {[regexp {COMPOUND} $wt_is] == 1} {
- puts "OCC755 OK (case 2)"
- } else {
- puts "Faulty OCC755 (case 2)"
- }
-}
-
-set square 1.57358e+06
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC758"
-puts "SAM1613"
-puts "========"
-puts ""
-###################################################
-##It's impossible to cut two little shapes from the big one in the attached file.
-###################################################
-
-restore [locate_data_file OCC758.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-checkshape a_3
-
-bcut res1 a_1 a_2
-
-checkshape res1
-
-bcut result res1 a_3
-
-set square 49473.6
-set 2dviewer 0
-
-
+++ /dev/null
-puts "============"
-puts "OCC7626"
-puts "============"
-puts ""
-######################################################
-# Bad result of bcut operation
-######################################################
-
-set BugNumber OCC7626
-
-psphere s 10
-box b 10 0 0 20 20 20
-trotate b 10 0 0 0 0 1 45
-
-bcut result s b
-
-set square 1271.7
-
-set nb_v_good 4
-set nb_e_good 7
-set nb_w_good 4
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 21
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC7626"
-puts "============"
-puts ""
-######################################################
-# Bad result of bcut operation
-######################################################
-
-set BugNumber OCC7626
-
-psphere s 10
-box b 10 0 0 20 20 20
-trotate b 10 0 0 0 0 1 45
-
-bcommon result s b
-
-set square 199.095
-
-set nb_v_good 2
-set nb_e_good 3
-set nb_w_good 3
-set nb_f_good 3
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 14
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC763"
-puts "========"
-puts ""
-####################################
-## Bad result of fuse operation between two cylinders
-####################################
-
-restore [locate_data_file OCC763_c1.brep] c1
-checkshape c1
-restore [locate_data_file OCC763_c2.brep] c2
-checkshape c2
-
-bop c1 c2
-bopfuse result
-
-set square 23189.4
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC7668"
-puts "============"
-puts ""
-#######################################################################
-# BRepOffsetAPI_MakeOffset wrong generated list
-#######################################################################
-
-puts "#"
-puts "Non stable test case on Linux. MKV. 29.12.2010"
-puts " ( VERTEX : 136 or VERTEX : 134 )"
-puts "#"
-
-set BugNumber OCC7668
-
-restore [locate_data_file OCC7668.brep] a1
-
-wire w1 a1
-
-mkoffset result w1 1 2
-
-renamevar result_1 result
-
-# Analysis of "nbshapes res"
-set nb_v_good 134
-set nb_e_good 134
-set nb_w_good 1
-set nb_f_good 0
-set nb_sh_good 0
-set nb_sol_good 0
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 269
-
-set length 136.008
-set 2dviewer 0
+++ /dev/null
-
-puts "======="
-puts "OCC767"
-puts "======="
-puts ""
-############################################
-## Command sameparametr in DRAW hangs on attached edge.
-############################################
-
-restore [locate_data_file OCC767.brep] result
-
-sameparameter result
-
-set length 7.6901
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " BUC60866 "
-puts " OCC77 "
-puts "========================"
-puts ""
-######################################################
-# The BRepFill_Pipe fails
-######################################################
-
-restore [locate_data_file buc60866a.rle] f
-checkshape f
-
-restore [locate_data_file buc60866b.rle] w
-checkshape w
-
-pipe result w f
-
-set square 1.12048e+07
-set 2dviewer 0
-
-
+++ /dev/null
-puts "TODO ?OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
-puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
-
-puts "========"
-puts "OCC770"
-puts "SAM1636"
-puts "========"
-puts ""
-############################
-## Impossible fusing 3 attached shapes
-############################
-
-restore [locate_data_file OCC770.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-checkshape a_3
-
-bfuse res1 a_1 a_2
-
-checkshape res1
-
-bfuse result res1 a_3
-
-set square 962546.
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC771"
-puts "SAM1639"
-puts "========"
-puts ""
-###########################
-## Impossible fusung 3 shapes attached
-###########################
-
-restore [locate_data_file OCC771.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-checkshape a_3
-
-bfuse res1 a_1 a_2
-
-checkshape res1
-
-bfuse result res1 a_3
-
-set square 1306.68
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC772"
-puts "SAM1643"
-puts "========"
-puts ""
-######################################
-## Impossible to make a common of the shapes attached.
-######################################
-
-restore [locate_data_file OCC772.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bcommon result a_1 a_2
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC774"
-puts "SAM1647"
-puts "(case 1)"
-puts "========"
-puts ""
-#################################
-## It's impossible to cut one shape from another.
-#################################
-
-restore [locate_data_file OCC774.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-if { [catch { bcut result a_1 a_2 } status] } {
- puts "Faulty OCC774 (case 1)"
-}
-
-set square 50704.6
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========"
-puts "OCC774"
-puts "SAM1647"
-puts "(case 2)"
-puts "========"
-puts ""
-#################################
-##
-restore [locate_data_file OCC774.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-if { [catch { bcut result a_2 a_1 } status] } {
- puts "Faulty OCC774 (case 2)"
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC775"
-puts "SAM1650"
-puts "========"
-puts ""
-#############################
-## Impossible to fuse two attached shapes.
-#############################
-
-restore [locate_data_file OCC775.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_1 a_2
-
-set square 61146.4
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC776"
-puts "SAM1654"
-puts "(case 1)"
-puts "========"
-puts ""
-##########################################
-## Impossible to cut one shape from another in the attachment
-##########################################
-
-restore [locate_data_file OCC776.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bcut result a_1 a_2
-
-set square 112637.
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC776"
-puts "SAM1654"
-puts "(case 2)"
-puts "========"
-puts ""
-##########################################
-## Impossible to cut one shape from another in the attachment
-##########################################
-
-restore [locate_data_file OCC776.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bcut result a_2 a_1
-
-set square 40403.2
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC778"
-puts "SAM1656"
-puts "(case 1)"
-puts "========"
-puts ""
-######################################
-## Incorrect result of cut of the cylinder from the shape.
-######################################
-
-restore [locate_data_file OCC778.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bcut result a_1 a_2
-
-set square 13633.6
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC778"
-puts "SAM1656"
-puts "(case 2)"
-puts "========"
-puts ""
-#####################################
-## Incorrect result of cut of the cylinder from the shape
-#####################################
-
-restore [locate_data_file OCC778.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bcut result a_2 a_1
-
-set square 678.584
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC779"
-puts "========"
-puts ""
-################################
-## Common operation produces invalid shape
-################################
-
-restore [locate_data_file OCC779_s1.brep] s1
-checkshape s1
-restore [locate_data_file OCC779_s2.brep] s2
-checkshape s2
-
-ttranslate s1 0 0 -30
-prism s1p s1 0 0 70
-checkshape s1p
-
-bcommon result s1p s2
-
-set square 64191.2
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "BUC60875"
-puts "OCC78"
-puts "============"
-puts ""
-###############################
-## Pipe is created incorrectly on two wires
-###############################
-
-#datadir /disk4/QA/hotline/GRIDS/chl/data
-restore [locate_data_file BUC60875_wire.brep] w
-restore [locate_data_file BUC60875_profile.brep] p
-checkshape w
-checkshape p
-
-pipe result w p
-set square 10191.8
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC780"
-puts "SAM1239"
-puts "(case 1)"
-puts "========"
-puts ""
-#########################################
-## Fuse and common between two faces are wrong (SAM1239)
-#########################################
-
-restore [locate_data_file OCC780.brep] f
-explode f f
-checkshape f_1
-checkshape f_2
-
-bcommon result f_1 f_2
-
-set square 6283.19
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC780"
-puts "SAM1239"
-puts "(case 2)"
-puts "========"
-puts ""
-#########################################
-## Fuse and common between two faces are wrong (SAM1239)
-#########################################
-
-restore [locate_data_file OCC780.brep] f
-explode f f
-checkshape f_1
-checkshape f_2
-
-bfuse result f_1 f_2
-
-set square 12566.4
-set 2dviewer 0
+++ /dev/null
-
-puts "========="
-puts " OCC788 "
-puts "========="
-puts ""
-#################################################
-## ThruSection cannot determine correctly correspondence between wires
-#################################################
-restore [locate_data_file OCC788_s1w.brep] w1
-explode w1
-wire ww1 w1_1
-
-restore [locate_data_file OCC788_s2w.brep] w2
-explode w2
-wire ww2 w2_1
-
-thrusections result 0 0 ww1 ww2
-
-set 2dviewer 0
-set square 148608.
+++ /dev/null
-
-puts "========="
-puts " OCC788 "
-puts "========="
-puts ""
-##################################################
-## ThruSection cannot determine correctly correspondence between wires
-##################################################
-
-restore [locate_data_file OCC788_s1w.brep] w1
-explode w1
-wire ww1 w1_1
-
-restore [locate_data_file OCC788_s2w.brep] w2
-explode w2
-wire ww2 w2_1
-
-
-thrusections result 0 0 ww1 ww2
-
-puts "It necessary to analyse the photo"
-
-set 2dviewer 0
-set square 148608.
+++ /dev/null
-
-puts "========="
-puts " OCC789 "
-puts "========="
-puts ""
-########################################################
-## When working on 2 closed wires (each of 1 edge), the thrusection algorithm creates
-## a surface with isolines which oscillate in longitudinal direction somewhere in the
-## middle between end sections.
-########################################################
-
-restore [locate_data_file OCC789_s3.brep] w1
-explode w1
-wire ww1 w1_1
-
-restore [locate_data_file OCC789_s4.brep] w2
-explode w2
-wire ww2 w2_1
-
-thrusections result 0 0 ww1 ww2
-
-puts "It necessary to analyse the photo"
-
-set square 142424.
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "========="
-puts " OCC794 "
-puts "========="
-puts ""
-#####################################################
-## The offset algorithm produced invalid result when offseting an attached face
-#####################################################
-
-pload QAcommands
-
-restore [locate_data_file OCC794.brep] a
-
-offsetshape result a 10
-
-set x_coord 120
-set y_coord 150
-
-vinit
-vdisplay result
-vsetdispmode 1
-vfit
-
-checkcolor $x_coord $y_coord 0.77 0.54 0.09
-
-set square 206399
-set 3dviewer 1
+++ /dev/null
-puts "============"
-puts "BUC60877"
-puts "OCC80"
-puts "============"
-puts ""
-##########################################################
-## The command "section" in Draw gives exception "attempt to access to null objec "
-##########################################################
-
-restore [locate_data_file BUC60877_lh.brep] sh
-checkshape sh
-
-plane pl 820 198 140 -1e-06 0 1
-mkface f pl -1000 500 -300 100
-
-if [catch {bsection result sh f } catch_result] {
- puts "Faulty BUC60877: function SECTION works wrongly"
-} else {
- puts "BUC60877 OK: function SECTION works properly"
-}
-set length 1358.63
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "BUC60907"
-puts "OCC81"
-puts "============"
-puts ""
-###############################
-## Section shell by plane gives overlapped edges
-###############################
-
-restore [locate_data_file BUC60907_px1.rle] sh
-checkshape sh
-
-plane f 60 0 0 1 0 0
-mkface f f
-bsection result sh f
-puts "Info: it should be 12 edges"
-
-set nb_info [nbshapes result]
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ne
-
-if { $ne != 12 } {
- puts "Faulty :Number of edges is wrong"
-} else {
- puts "Number of edges is OK"
-}
-
-set length 33.6353
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: OCC817: Error"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-pload QAcommands
-
-puts "============"
-puts "OCC817"
-puts "============"
-puts ""
-#############################
-## Bad results of BRepAlgoAPI_Common
-#############################
-
-set InfoList [OCC817 result 10]
-
-set OriginalVolume 0
-regexp {Info: Original volume = ([-0-9.+eE]+)} $InfoList full OriginalVolume
-
-set AccumulatedMeshedVolume 0
-regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume
-
-set percent_max 0.1
-set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.]
-
-if {${percent} > ${percent_max}} {
- puts "OCC817: Error"
-} else {
- puts "OCC817: OK"
-}
-
-set 2dviewer 0
-set square 0
+++ /dev/null
-pload QAcommands
-
-puts "============"
-puts "OCC817"
-puts "============"
-puts ""
-#############################
-## Bad results of BRepAlgoAPI_Common
-#############################
-
-set InfoList [OCC817 result 15]
-
-set OriginalVolume 0
-regexp {Info: Original volume = ([-0-9.+eE]+)} $InfoList full OriginalVolume
-
-set AccumulatedMeshedVolume 0
-regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume
-
-set percent_max 0.1
-set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.]
-
-if {${percent} > ${percent_max}} {
- puts "OCC817: Error"
-} else {
- puts "OCC817: OK"
-}
-set 2dviewer 0
-set square 6000
+++ /dev/null
-pload QAcommands
-
-puts "============"
-puts "OCC817"
-puts "============"
-puts ""
-#############################
-## Bad results of BRepAlgoAPI_Common
-#############################
-
-set InfoList [OCC817 result 30]
-
-
-set OriginalVolume 0
-regexp {Info: Original volume = ([-0-9.+eE]+)} $InfoList full OriginalVolume
-
-set AccumulatedMeshedVolume 0
-regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume
-
-set percent_max 0.1
-set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.]
-
-if {${percent} > ${percent_max}} {
- puts "OCC817: Error"
-} else {
- puts "OCC817: OK"
-}
-set 2dviewer 0
-set square 6000
+++ /dev/null
-puts "============"
-puts "BUC60908"
-puts "OCC82"
-puts "============"
-puts ""
-###############################
-## Incomplete section of shell by plane
-###############################
-
-restore [locate_data_file BUC60907_px1.rle] sh
-checkshape sh
-
-plane f 0 14.8053 0 0 1 0
-mkface f f
-bsection result sh f
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_verices
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
-
-set nnv [expr $nb_verices-1]
-
-puts "VERTEX : $nb_verices, EDGE : $nb_edges"
-
-if { $nnv > $nb_edges } {
- puts "Surplus of vertices, Faulty section"
-} else {
- puts "Number of vertices correspond edges: OK"
-}
-set length 113.703
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC8228"
-puts "============"
-puts ""
-######################################################
-# exeption is raised during the vprops in DRAW on the attached shape
-######################################################
-
-set BugNumber OCC8228
-
-catch {pload XDE}
-catch {pload DCAF}
-
-# Create a new document and set UndoLimit
-
-NewDocument D MDTV-XCAF
-UndoLimit D 100
-
-# Open a transaction
-NewCommand D
-
-ReadStep D [locate_data_file OCC8228.stp]
-XGetOneShape result D
-
-set square 1.46159e+06
-
-set nb_v_good 1296
-set nb_e_good 2041
-set nb_w_good 826
-set nb_f_good 761
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 4926
-
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC822"
-puts "========"
-puts ""
-#####################################
-## BRepMesh_IncrementalMesh fails on some faces
-#####################################
-## (old topology)
-#####################################
-
-if {[ catch { set info_result [OCC822_1 a1 a2 result 0] } ] } {
- puts "Faulty OCC822"
-} else {
- if { [regexp {FAILED} $info_result] } {
- puts "Faulty OCC822"
- }
-
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC822"
- }
-}
-
-set square 133931
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "======="
-puts "OCC822"
-puts "======="
-puts ""
-#####################################
-## BRepMesh_IncrementalMesh fails on some faces
-#####################################
-## (old topology)
-#####################################
-
-if { [ catch { set info_result [OCC822_2 a1 a2 result 0] } ] } {
- puts "Faulty OCC822"
-} else {
- if { [regexp {FAILED} $info_result] } {
- puts "Faulty OCC822"
- }
-
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC822"
- }
-}
-set square 61963.5
-set 3dviewer 1
+++ /dev/null
-pload QAcommands
-
-puts "======="
-puts "OCC823"
-puts "======="
-puts ""
-###############################
-## BRepAlgoAPI_Fuse fails on two cylinders
-###############################
-## (old topology)
-#####################################
-
-if { [ catch { set info_result [OCC823 a1 a2 result] } ] } {
- puts "Faulty OCC823"
-} else {
- if { [regexp {FAILED} $info_result] } {
- puts "Faulty OCC823"
- }
-
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC823 : Resulting shape is empty COMPOUND"
- }
-}
-set square 23189.5
-set 2dviewer 1
+++ /dev/null
-pload QAcommands
-
-puts "============"
-puts "OCC823"
-puts "============"
-puts ""
-################################
-## BRepAlgoAPI_Fuse fails on two cylinders
-################################
-##
-## Note: test for old topology
-##
-################################
-
-if { [ catch { set info_result [OCC823 a1 a2 a3] } ] } {
- puts "Faulty : exception was caught"
-} else {
- checkshape a1
- checkshape a2
- bfuse result a1 a2
-
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty : Resulting shape is empty COMPOUND"
- }
-}
-
-set square 23189.5
-set 2dviewer 0
-
+++ /dev/null
-pload QAcommands
-
-puts "============"
-puts "OCC824"
-puts "============"
-puts ""
-####################################
-## BRepAlgoAPI_Fuse fails on cylinder and sphere
-####################################
-## (old topology)
-#####################################
-
-if { [ catch { set info_result [OCC824 a1 a2 result 0] } ] } {
- puts "Faulty OCC824"
-} else {
- if { [regexp {FAILED} $info_result] } {
- puts "Faulty OCC824"
- }
-
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC824"
- }
-}
-
-set square 16336.3
-set 2dviewer 1
+++ /dev/null
-pload QAcommands
-
-puts "======="
-puts "OCC824"
-puts "======="
-puts ""
-####################################
-## BRepAlgoAPI_Fuse fails on cylinder and sphere
-####################################
-##
-## Note: test for old topology
-##
-################################
-
-if { [ catch { set info_result [OCC824 a1 a2 a3] } ] } {
- puts "Faulty : exception was catch"
-} else {
- checkshape a1
- checkshape a2
- bfuse result a1 a2
-
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty : Resulting shape is empty COMPOUND"
- }
-}
-
-set square 16336.3
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC825"
-puts "TODO OCC12345 ALL: Error : The command is not valid. The square is"
-
-pload QAcommands
-
-puts "============"
-puts "OCC825"
-puts "============"
-puts ""
-######################################
-## BRepAlgoAPI_Cut fails on sphere and b-spline face
-######################################
-## (old topology)
-#####################################
-
-if { [ catch { set info_result [OCC825 a1 a2 a3 res1 res2 0] } ] } {
- puts "Faulty OCC825"
-} else {
- if { [regexp {FAILED} $info_result] } {
- puts "Faulty OCC825"
- }
-
- set ExplodeList [explode res1]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC825"
- }
-
- set ExplodeList [explode res2]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC825"
- }
- checkshape res1
- renamevar res2 result
-}
-
-set square 0
-set 2dviewer 1
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-pload QAcommands
-
-puts "======="
-puts "OCC825"
-puts "======="
-puts ""
-######################################
-## BRepAlgoAPI_Cut fails on sphere and b-spline face
-######################################
-##
-## Note: test for old topology
-##
-################################
-
-if { [ catch { set info_result [OCC825 a1 a2 a3 a4 a5] } ] } {
- puts "Faulty : an exception was caught"
-} else {
- checkshape a1
- checkshape a2
- bcut result a2 a1
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty : Resulting shape is empty COMPOUND"
- }
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "========"
-puts "OCC825"
-puts "========"
-puts ""
-######################################
-## BRepAlgoAPI_Cut fails on sphere and b-spline face
-######################################
-##
-## Note: test for old topology
-##
-################################
-
-if { [ catch { set info_result [OCC825 a1 a2 a3 a4 a5] } ] } {
- puts "Faulty : an exception was caught"
-} else {
- checkshape a1
- checkshape a3
-
- bcut result a3 a1
-
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty : Resulting shape is empty COMPOUND"
- }
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "============"
-puts "OCC826"
-puts "============"
-puts ""
-###################################
-## BRepAlgoAPI_Fuse fails on revolved and sphere
-###################################
-## (old topology)
-#####################################
-
-if { [ catch { set info_result [OCC826 a1 a2 result] } ] } {
- puts "Faulty OCC826"
-} else {
- if { [regexp {FAILED} $info_result] } {
- puts "Faulty OCC826"
- }
-
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC826"
- }
-}
-
-set square 272939
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "============"
-puts "OCC826"
-puts "============"
-puts ""
-###################################
-## BRepAlgoAPI_Fuse fails on revolved and sphere
-###################################
-##
-## Note: test for old topology
-##
-################################
-
-if { [ catch { set result [OCC826 a1 a2 a3] } ] } {
- puts "Faulty : an exception was caught"
-} else {
- checkshape a1
- checkshape a2
- bfuse result a1 a2
-
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty : Resulting shape is empty COMPOUND"
- }
-}
-
-set square 272939
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC827"
-puts "========"
-puts ""
-###################################
-## BRepAlgoAPI_Fuse fails on cylinder and torus
-###################################
-
-#
-# a1 - Cylinder
-# a2 - Torus1
-# a3 - Torus1
-# res1 - Fuse(Torus1 & Cylinder)
-# res2 - Fuse(Torus2 & res1)
-#
-
-if { [ catch { set info_result [OCC827 a1 a2 a3 result1 result2] } ] } {
- puts "Faulty : an exception was caught"
-} else {
- if { [lsearch ${info_result} FAILED] > -1} {
- puts "Faulty OCC827 (case 1)"
- }
- checkshape a1
- checkshape a2
- checkshape a3
- checkshape result1
- checkshape result2
-
- set ExplodeList [explode result1]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty : Resulting shape is empty COMPOUND"
- }
-
- set ExplodeList [explode result2]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty : Resulting shape is empty COMPOUND"
- }
-
- renamevar result2 result
-}
-
-set square 11847.7
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Faulty OCC827"
-
-pload QAcommands
-
-puts "========"
-puts "OCC827"
-puts "========"
-puts ""
-###################################
-## BRepAlgoAPI_Fuse fails on cylinder and torus
-###################################
-## (old topology)
-#####################################
-
-#
-# a1 - Cylinder
-# a2 - Torus1
-# a3 - Torus1
-# res1 - Fuse(Torus1 & Cylinder)
-# res2 - Fuse(Torus2 & res1)
-#
-
-if { [ catch { set info_result [OCC827 a1 a2 a3 res1 res2 0] } ] } {
- puts "Faulty OCC827"
-} else {
- if { [regexp {FAILED} $info_result] } {
- puts "Faulty OCC827"
- }
- checkshape a1
- checkshape a2
- checkshape a3
- checkshape res1
-
- set ExplodeList [explode res1]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC827"
- }
-
- set ExplodeList [explode res2]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC827"
- }
- renamevar res2 result
-}
-set square 0
-set 2dviewer 1
+++ /dev/null
-pload QAcommands
-
-puts "======="
-puts "OCC827"
-puts "======="
-puts ""
-####################################
-## BRepAlgoAPI_Fuse fails on cylinder and torus
-####################################
-
-
-#
-# a1 - Cylinder
-# a2 - Torus1
-# a3 - Torus1
-# res1 - Fuse(Torus1 & Cylinder)
-# res2 - Fuse(Torus2 & res1)
-#
-
-if { [ catch { set info_result [OCC827 a1 a2 a3 a4 a5] } ] } {
- puts "Faulty OCC827"
-} else {
- checkshape a1
- checkshape a2
- checkshape a3
- bop a1 a2
- bopfuse res1
- checkshape res1
- set ExplodeList [explode res1]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC827 : Resulting shape is empty COMPOUND"
- }
- bop res1 a3
- bopfuse result
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC827 : Resulting shape is empty COMPOUND"
- }
-}
-set square 11847.7
-set 2dviewer 0
-
+++ /dev/null
-pload QAcommands
-
-puts "======="
-puts "OCC827"
-puts "======="
-puts ""
-####################################
-## BRepAlgoAPI_Fuse fails on cylinder and torus
-####################################
-
-#
-# a1 - Cylinder
-# a2 - Torus1
-# a3 - Torus1
-# res1 - Fuse(Torus1 & Cylinder)
-# res2 - Fuse(Torus2 & res1)
-#
-
-if { [ catch { set info_result [OCC827 a1 a2 a3 a4 a5] } ] } {
- puts "Faulty OCC827"
-} else {
- checkshape a1
- checkshape a2
- checkshape a3
- bop a2 a1
- bopfuse res1
- checkshape res1
- set ExplodeList [explode res1]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC827 : Resulting shape is empty COMPOUND"
- }
- bop a3 res1
- bopfuse result
-
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty OCC827 : Resulting shape is empty COMPOUND"
- }
-}
-
-set square 11847.7
-set 2dviewer 1
-
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC828"
-puts "========"
-puts ""
-###############################
-## BRepFilletAPI_MakeFillet fails on prism
-###############################
-
-if { [ catch { set info_result [OCC828 a1] } ] } {
- puts "Faulty : an exception was caught"
-} else {
- if { [lsearch ${info_result} FAILED] > -1} {
- puts "Faulty : command was FAILED"
- }
- checkshape a1
- explode a1 e
- blend result a1 10 a1_7 10 a1_6
-
- set ExplodeList [explode result]
- if {[llength ${ExplodeList}] < 1} {
- puts "Faulty : Resulting shape is empty COMPOUND"
- }
-}
-
-set square 17816.2
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: An exception was caught"
-puts "TODO OCC12345 ALL: Exception"
-
-puts "========"
-puts "OCC829"
-puts "========"
-puts ""
-###################################
-## BRepOffsetAPI_MakeOffset fails on given wires
-###################################
-puts " This part - LIMITATION for existed algorithms"
-###################################
-
-restore [locate_data_file OCC829_w1.brep] a
-checkshape a
-explode a w
-
-if { [catch { mkoffset result a_1 1 5 } status] } {
- puts "Faulty : An exception was caught"
-} else {
- renamevar result_1 result
- set nb_info [nbshapes result]
- regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
- puts [format "Result shape result contains %s vertexes" $ve]
- if { $ve == 0 } {
- puts [format "Faulty : Result shape is NULL shape"]
- } else {
- regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
- if {$wi > 1 } {
- set ll [explode result w]
- set num [llength $ll]
- puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
- foreach {k} $ll {
- checkshape $k
- regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
- if { $cs != 0 } {
- puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
- } else {
- puts [format "OK: Result shape is CLOSED wire !!! "]
- }
- }
- }
- }
- set length 0
- set 2dviewer 0
-}
+++ /dev/null
-
-puts "========"
-puts "OCC829"
-puts "========"
-puts ""
-###################################
-## BRepOffsetAPI_MakeOffset fails on given wires
-###################################
-restore [locate_data_file OCC829_w2.brep] a
-checkshape a
-explode a w
-
-if { [catch { mkoffset result a_1 1 5 } status] } {
- puts "Faulty OCC829 (case 1)"
-} else {
- renamevar result_1 result
- set nb_info [nbshapes result]
- regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
- puts [format "Result shape result contains %s vertexes" $ve]
- if { $ve == 0 } {
- puts [format "Faulty : Result shape is NULL shape"]
- } else {
- regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
- if {$wi > 1 } {
- set ll [explode result w]
- set num [llength $ll]
- puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
- foreach {k} $ll {
- checkshape $k
- regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
- if { $cs != 0 } {
- puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
- } else {
- puts [format "OK: Result shape is CLOSED wire !!! "]
- }
- }
- }
- }
-}
-
-set length 3690.75
-set 2dviewer 0
-
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "OCC8372"
-puts "============"
-puts ""
-######################################################
-# Twisted result of ThruSections operation
-######################################################
-
-set BugNumber OCC8372
-
-restore [locate_data_file OCC8372_1.brep] w1
-restore [locate_data_file OCC8372_2.brep] w2
-
-thrusections result 1 1 w1 w2
-
-set square 4140.46
-
-set nb_v_good 12
-set nb_e_good 18
-set nb_w_good 8
-set nb_f_good 8
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 0
-set nb_shape_good 48
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "BUC60912"
-puts "OCC83"
-puts "============"
-puts ""
-###############################
-## Section of simple BSpline surfaces is performed too slow
-###############################
-
-puts "1 case: perform section with plane"
-restore [locate_data_file BUC60912_sec_slow.brep] c
-explode c
-checkshape c_1
-checkshape c_2
-
-renamevar c_1 sh
-renamevar c_2 pr
-plane f 0 0 0 1 0 0
-mkface f f -11 11 -11 11
-
-dchrono h reset
-dchrono h start
-bsection result f pr
-
-dchrono h stop
-set q2 [dchrono h show]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z
-puts "$z"
-if { $z > 5 } {
- puts "Elapsed time is more then 5 seconds - Faulty"
-} else {
- puts "Elapsed time is less then 5 - OK"
-}
-
-set length 42.879
-set 2dviewer 0
-
-
+++ /dev/null
-puts "============"
-puts "BUC60912"
-puts "OCC83"
-puts "============"
-puts ""
-###############################
-## Section of simple BSpline surfaces is performed too slow
-###############################
-
-puts "2 case: perform section with planar BSpline surface"
-restore [locate_data_file BUC60912_sec_slow.brep] c
-explode c
-checkshape c_1
-checkshape c_2
-
-renamevar c_1 sh
-renamevar c_2 pr
-plane f 0 0 0 1 0 0
-mkface f f -11 11 -11 11
-
-puts "Info: perform section with planar BSpline surface"
-dchrono h2 reset
-dchrono h2 start
-bsection result sh pr
-dchrono h2 stop
-set q2 [ dchrono h2 show ]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
-puts "$z2"
-if { $z2 > 40 } {
- puts "Elapsed time is more then 40 seconds - Faulty"
-} else {
- puts "Elapsed time is less then 40 - OK"
-}
-set length 42.879
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " BUC60957 "
-puts " OCC86 "
-puts "========================"
-
-puts "Restoring the wires :"
-restore [locate_data_file OCC86a.brep] w1
-checkshape w1
-restore [locate_data_file OCC86b.brep] w2
-checkshape w2
-
-puts "Do Thrusection by following command: thrusections res 0 0 w1 w2 "
-
-thrusections result 0 0 w1 w2
-
-set length 102.832
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : Now w1,w2 have bspline curves as basic !!!"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
-
-puts "========================"
-puts " BUC60958 "
-puts " OCC87 "
-puts "========================"
-
-puts "Restoring the wires :"
-restore [locate_data_file OCC86a.brep] w1
-checkshape w1
-restore [locate_data_file OCC86b.brep] w2
-checkshape w2
-
-set first1 [dump w1]
-set second1 [dump w2]
-
-# puts "Do Thrusection by following command: thrusections res 0 0 w1 w2 "
-
-thrusections result 0 0 w1 w2
-
-set first2 [dump w1]
-set second2 [dump w2]
-
-if {$first1 != $first2 || $second1 != $second2} {
- puts "Faulty : Now w1,w2 have bspline curves as basic !!!"
-} else {
- puts "Correct result: Wires have circle curves as basic"
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "======="
-puts "DXF906"
-puts "OCC889"
-puts "OCC1013"
-puts "======="
-puts ""
-#########################################################
-## After fix OCC157 we have plane surface in face (instead bspline as in C40).
-## But now checkshape founds number of errors on new face. I think that face from
-## c40 is not better than in dev
-#########################################################
-
-restore [locate_data_file DXF906.rle] a
-
-mkplane result a
-
-set square 92131.6
-set 2dviewer 0
+++ /dev/null
-
-puts "======="
-puts "OCC890"
-puts "SAM1681"
-puts "======="
-puts ""
-##############################
-## No possibility to fuse the attached prisms.
-##############################
-
-restore [locate_data_file OCC890.brep] a
-explode a
-
-checkshape a_1
-checkshape a_2
-
-if { [ catch { bfuse result a_1 a_2 } catch_result ] } {
- puts "Faulty OCC890 (case 3)"
-}
-
-set square 1.8276e+06
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC895"
-puts "============"
-puts ""
-#########################################################
-## In one case, twisted surface is created.
-## The problem is in incorrect computation of mutual orientations of wire segments.
-#########################################################
-
-pload QAcommands
-
-set scale 73.609
-set center_X 7.93702
-set center_Y 0.264503
-set proj_X 0.523995
-set proj_Y 0.359655
-set proj_Z 0.77206
-set up_X -0.739036
-set up_Y -0.258607
-set up_Z 0.622051
-set at_X 9.06773
-set at_Y -1.93771
-set at_Z 1.45124
-
-set x_coord 210
-set y_coord 210
-
-set status 0
-
-set angle 5
-set reverse 0
-set order 0
-
-if { [ catch { OCC895 result ${angle} ${reverse} ${order} } ] } {
- puts "Faulty : an exception was caught"
-}
-
-if { ${status} == 0} {
- vinit
- vsetdispmode 1
- vdisplay result
-
- vviewparams ${scale} ${center_X} ${center_Y} \
- ${proj_X} ${proj_Y} ${proj_Z} \
- ${up_X} ${up_Y} ${up_Z} \
- ${at_X} ${at_Y} ${at_Z}
-
- checkcolor $x_coord $y_coord 0.98 0.72 0.13
-
- if { ${stat} != 1 } {
- puts "Faulty OCC895 (case 2)"
- }
-}
-
-set square 18.1614
-set 3dviewer 1
+++ /dev/null
-#INTERFACE DXF
-puts "============"
-puts "OCC910"
-puts "============"
-puts ""
-#####################################################
-## The problem with sat files depends on problem of BRepTools_WireExplorer
-#####################################################
-
-pload XDE
-
-restore [locate_data_file OCC910.rle] a
-
-checkshape a
-explode a w
-checkshape a_7
-
-set list1 [expwire a_7]
-regexp {TopoDS_Iterator\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopoDS_Iterator1
-regexp {TopExp_Explorer\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopExp_Explorer1
-regexp {BRepTools_WireExplorer donne ([-0-9.+eE]+) Edges} $list1 full BRepTools_WireExplorer1
-
-
-set list2 [expwire a_7 a]
-regexp {TopoDS_Iterator\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopoDS_Iterator2
-regexp {TopExp_Explorer\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopExp_Explorer2
-regexp {BRepTools_WireExplorer donne ([-0-9.+eE]+) Edges} $list1 full BRepTools_WireExplorer2
-
-puts "TopoDS_Iterator1 = ${TopoDS_Iterator1}"
-puts "TopExp_Explorer1 = ${TopExp_Explorer1}"
-puts "BRepTools_WireExplorer1 = ${BRepTools_WireExplorer1}"
-
-puts "TopoDS_Iterator2 = ${TopoDS_Iterator2}"
-puts "TopExp_Explorer2 = ${TopExp_Explorer2}"
-puts "BRepTools_WireExplorer2 = ${BRepTools_WireExplorer2}"
-
-if { ${TopoDS_Iterator1} != ${TopoDS_Iterator2} || \
- ${TopExp_Explorer1} != ${TopExp_Explorer2} || \
- ${BRepTools_WireExplorer1} != ${BRepTools_WireExplorer2} } {
- puts "Faulty OCC910"
-} else {
- puts "OCC910 OK"
-}
-
-renamevar a_7 result
-
-set length 149.816
-set 2dviewer 0
-
+++ /dev/null
-
-puts "======="
-puts "OCC919"
-puts "SAM1623"
-puts "======="
-puts ""
-#############################
-## Impossible to fuse the shapes.
-##############################
-
-restore [locate_data_file OCC919.brep] a
-
-explode a
-
-# See comment in CR23244:
-restore [locate_data_file OCC919-PROC.brep] a_1
-#
-
-checkshape a_1
-checkshape a_2
-
-if { [ catch { bfuse result a_1 a_2} catch_result ] } {
- puts "Faulty OCC919 (case 1)"
-} else {
- if { [ catch { checkshape result } catch_result ] } {
- puts "Faulty OCC919 (case 2)"
- } else {
- puts "OCC919 OK"
- }
-}
-
-set square 272591.
-set 2dviewer 0
+++ /dev/null
-puts "========="
-puts " OCC951 "
-puts "========="
-puts ""
-##################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-##################################################
-## (old topology)
-## (common)
-## (section)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] b
-restore [locate_data_file OCC951_2.brep] a
-
-checkshape b
-checkshape a
-
-bcommon result b a
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
-regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
-regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
-regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
-regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
-regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
-if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
- puts " OCC951 : COMMON operation was made PROPERLY"
-} else {
- puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
-}
-
-set square 560.908
-set 3dviewer 1
+++ /dev/null
-puts "========="
-puts " OCC951 "
-puts "========="
-puts ""
-##################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-##################################################
-## (new topology)
-## (bopcommon)
-## (bopsection)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] b
-restore [locate_data_file OCC951_2.brep] a
-
-checkshape b
-checkshape a
-
-bop b a
-bopcommon result
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
-regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
-regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
-regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
-regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
-regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
-if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
- puts " OCC951 : COMMON operation was made PROPERLY"
-} else {
- puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
-}
-
-set square 560.908
-set 3dviewer 1
+++ /dev/null
-puts "========="
-puts " OCC951 "
-puts "========="
-puts ""
-##################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-##################################################
-## (old topology)
-## (common)
-## (section)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] b
-restore [locate_data_file OCC951_2.brep] a
-
-checkshape b
-checkshape a
-
-bsection result b a
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
-regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
-regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
-regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
-regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
-regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
-if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
- puts " OCC951 : COMMON operation was made PROPERLY"
-} else {
- puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
-}
-
-set length 39.8616
-set 3dviewer 1
-
+++ /dev/null
-puts "========="
-puts " OCC951 "
-puts "========="
-puts ""
-##################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-##################################################
-## (old topology)
-## (common)
-## (section)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] b
-restore [locate_data_file OCC951_2.brep] a
-
-checkshape b
-checkshape a
-
-bcommon result a b
-
-set nb_info [nbshapes result]
-
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
-regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
-regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
-regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
-regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full shl
-
-if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
- puts " OCC951 : COMMON operation was made PROPERLY"
- puts ""
-} else {
- puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
- puts ""
-}
-
-set square 560.908
-set 3dviewer 1
-
+++ /dev/null
-puts "========="
-puts " OCC951 "
-puts "========="
-puts ""
-##################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-##################################################
-## (old topology)
-## (common)
-## (section)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] b
-restore [locate_data_file OCC951_2.brep] a
-
-checkshape b
-checkshape a
-
-bsection result a b
-
-set nb_info [nbshapes result]
-
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
-regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
-regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
-regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
-regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full shl
-
-
-
-if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
- puts " OCC951 : SECTION operation was made PROPERLY"
- puts ""
-} else {
- puts "Faulty OCC951 : result of SECTION operation is EMPTY compound"
- puts ""
-}
-set length 39.8616
-set 3dviewer 1
+++ /dev/null
-puts "========="
-puts " OCC951 "
-puts "========="
-puts ""
-##################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-##################################################
-## (new topology)
-## (bopcommon)
-## (bopsection)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] b
-restore [locate_data_file OCC951_2.brep] a
-
-checkshape b
-checkshape a
-
-bop b a
-bopsection result
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
-regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
-regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
-regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
-regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
-regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
-if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
- puts " OCC951 : COMMON operation was made PROPERLY"
-} else {
- puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
-}
-
-set length 39.8616
-set 3dviewer 1
+++ /dev/null
-puts "============"
-puts "OCC951"
-puts "============"
-puts ""
-######################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-######################################################
-## (new topology)
-## (bopcommon)
-## (bopsection)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] s1
-restore [locate_data_file OCC951_2.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s1 s2
-bopcommon result
-
-set square 560.908
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC951"
-puts "============"
-puts ""
-######################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-######################################################
-## (new topology)
-## (bopcommon)
-## (bopsection)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] s1
-restore [locate_data_file OCC951_2.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s1 s2
-bopsection result
-
-set length 39.8616
-set 3dviewer 1
-
+++ /dev/null
-puts "========="
-puts " OCC951 "
-puts "========="
-puts ""
-##################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-##################################################
-## (new topology)
-## (bopcommon)
-## (bopsection)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] b
-restore [locate_data_file OCC951_2.brep] a
-
-checkshape b
-checkshape a
-
-############
-bop a b
-bopcommon result
-############
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
-regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
-regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
-regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
-regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
-regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
-
-if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
- puts " OCC951 : COMMON operation was made PROPERLY"
- puts ""
-} else {
- puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
- puts ""
-}
-
-set square 560.908
-set 3dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC951"
-puts "============"
-puts ""
-######################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-######################################################
-## (new topology)
-## (bopcommon)
-## (bopsection)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] s1
-restore [locate_data_file OCC951_2.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s2 s1
-bopcommon result
-
-set square 560.908
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC951"
-puts "============"
-puts ""
-######################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-######################################################
-## (new topology)
-## (bopcommon)
-## (bopsection)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] s1
-restore [locate_data_file OCC951_2.brep] s2
-
-checkshape s1
-checkshape s2
-
-bop s2 s1
-bopsection result
-
-set length 39.8616
-set 3dviewer 1
-
+++ /dev/null
-puts "========="
-puts " OCC951 "
-puts "========="
-puts ""
-##################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-##################################################
-## (new topology)
-## (bopcommon)
-## (bopsection)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] b
-restore [locate_data_file OCC951_2.brep] a
-
-checkshape b
-checkshape a
-
-bop a b
-bopcommon res1
-bopsection result
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
-regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
-regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
-regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
-regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
-regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
-regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
-regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
-
-if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
- puts " OCC951 : COMMON operation was made PROPERLY"
- puts ""
-} else {
- puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
- puts ""
-}
-
-set length 39.8616
-set 3dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC951"
-puts "============"
-puts ""
-######################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-######################################################
-## (old topology)
-## (common)
-## (section)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] s1
-restore [locate_data_file OCC951_2.brep] s2
-
-checkshape s1
-checkshape s2
-
-bcommon result s1 s2
-
-set square 560.908
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC951"
-puts "============"
-puts ""
-######################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-######################################################
-## (old topology)
-## (common)
-## (section)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] s1
-restore [locate_data_file OCC951_2.brep] s2
-
-checkshape s1
-checkshape s2
-
-bsection result s1 s2
-
-set length 39.8616
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC951"
-puts "============"
-puts ""
-######################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-######################################################
-## (old topology)
-## (common)
-## (section)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] s1
-restore [locate_data_file OCC951_2.brep] s2
-
-checkshape s1
-checkshape s2
-
-bcommon result s2 s1
-
-set square 560.908
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC951"
-puts "============"
-puts ""
-######################################################
-##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
-######################################################
-## (old topology)
-## (common)
-## (section)
-######################################################
-
-restore [locate_data_file OCC951_1.brep] s1
-restore [locate_data_file OCC951_2.brep] s2
-
-checkshape s1
-checkshape s2
-
-bsection result s2 s1
-
-set length 39.8616
-set 3dviewer 1
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-
-puts "========"
-puts "OCC957"
-puts "========"
-puts ""
-##############################################################
-##Draw function PSPHERE creates incorrect shape (according to CHECKSHAPE function)
-##############################################################
-
-psphere result 10 10 10
-
-set length 0
-set 2dviewer 0
+++ /dev/null
-
-puts "==========="
-puts "FRA62369"
-puts "==========="
-
-restore [locate_data_file fra62369a.brep] a
-checkshape a
-
-compound result
-
-set i 1
-repeat 100 {
- plane p_$i 0 0 200+$i
- mkface f_$i p_$i
- bsection s_$i a f_$i -2d -a
- compound s_$i result result
- incr i
-}
-set length 3961.04
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "PRO16983"
-puts "============"
-
-restore [locate_data_file pro16983a.brep] B
-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
+++ /dev/null
-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
-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
+++ /dev/null
-
-puts "=========="
-puts "PRO19424"
-puts "=========="
-
-restore [locate_data_file pro19424a.brep] b
-checkshape b
-restore [locate_data_file pro19424b.brep] p
-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
-
+++ /dev/null
-
-puts "============"
-puts "PRO19626"
-puts "============"
-
-restore [locate_data_file pro19626a.brep] a
-checkshape a
-restore [locate_data_file pro19626b.brep] b
-checkshape b
-
-bsection result a b
-regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num
-if { $num != 2 } {
- puts " Faulty PRO19626: Result shape is INcorrect !!! "
-} else {
- puts "PRO19626 OK : Result shape is CORRECT !!! "
-}
-
-set length 174.597
-set 2dviewer 0
-
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty : TEST FAILED"
-puts "TODO OCC12345 ALL: Error : The length of result shape is"
-
-puts "============"
-puts "PRO19653"
-puts "BREPALGO_BOOLEANOPERATION does not return result."
-puts "=================================="
-puts "It takes visual check for this BUG"
-puts "=================================="
-
-restore [locate_data_file pro19653a.brep] a
-checkshape a
-restore [locate_data_file pro19653b.brep] b
-checkshape b
-bsection result a b
-
-explode result e
-checkshape result_1
-explode a e
-regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full ll_1
-regexp {Mass +: +([-0-9.+eE]+)} [lprops a_4] full ll_2
-if { $ll_1 != $ll_2 } {
- puts "Faulty : TEST FAILED"
-} else {
- puts "PRO19653 OK : BREPALGO_BOOLEANOPERATION returns result"
-}
-
-set length 0
-set 2dviewer 0
--- /dev/null
+set subgroup modalg
+
+set calcul "p"
+set type "i"
+
+proc OFFSETSHAPE {distance faces calcul type} {
+ uplevel #0 explode s f
+ uplevel #0 offsetparameter 1e-7 $calcul $type
+ uplevel #0 offsetload s $distance $faces
+ uplevel #0 offsetperform result
+}
+
+
+
+
+
+
+
+
+
--- /dev/null
+
+puts "=============="
+puts " BUC60409 "
+puts " FUSE "
+puts "=============="
+
+restore [locate_data_file buc60409a.brep] c
+restore [locate_data_file buc60409b.brep] s
+
+set che [checkshape c]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar c result
+} else {
+ puts "BUC60409 OK (shape 1): Source shape is valid"
+ set che [checkshape s]
+ if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar s result
+ } else {
+ puts "BUC60409 OK (shape 2): Source shape is valid"
+ bfuse result c s
+ }
+}
+set square 39.0894
+set 2dviewer 0
--- /dev/null
+
+puts "============="
+puts " BUC60409 "
+puts " CUT "
+puts "============="
+
+restore [locate_data_file buc60409a.brep] c
+restore [locate_data_file buc60409b.brep] s
+
+set che [checkshape c]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar c result
+} else {
+ puts "BUC60409 OK (shape 1): Source shape is valid"
+ set che [checkshape s]
+ if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar s result
+ } else {
+ puts "BUC60409 OK (shape 2): Source shape is valid"
+ bcut result c s
+ }
+}
+set square 31.8476
+set 2dviewer 0
--- /dev/null
+
+puts "================="
+puts " BUC60409 "
+puts " COMMON "
+puts "================="
+
+restore [locate_data_file buc60409a.brep] c
+restore [locate_data_file buc60409b.brep] s
+
+set che [checkshape c]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar c result
+} else {
+ puts "BUC60409 OK (shape 1): Source shape is valid"
+
+ set che [checkshape s]
+ if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar s result
+ } else {
+ puts "BUC60409 OK (shape 2): Source shape is valid"
+ bcommon result c s
+ }
+}
+set square 4.89279
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : Section is incorrect"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+
+puts "============="
+puts "BUC60462"
+puts "============="
+puts "Section"
+puts ""
+
+restore [locate_data_file buc60462a.brep] a
+checkshape a
+restore [locate_data_file buc60462b.brep] b
+checkshape b
+bsection result a b
+
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs
+
+if { $cs != 0 } {
+ puts "Faulty : Section is incorrect"
+}
+
+set length 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_17"
+puts "TODO OCC12345 ALL: Faulty : mistakes are found in checked shape by checkshape command"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+
+puts "=========="
+puts "BUC60462"
+puts "=========="
+
+restore [locate_data_file buc60462c.brep] a
+checkshape a
+restore [locate_data_file buc60462d.brep] b
+checkshape b
+puts "Fuse begin"
+bfuse result a b
+puts "Fuse end"
+
+set che [checkshape result r]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty : mistakes are found in checked shape by checkshape command"
+} else {
+ puts "Checking by checkshape - OK"
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "TODO OCC12345 ALL: Faulty : Section is incorrect"
+
+puts "============="
+puts "BUC60463"
+puts "============="
+puts "Section"
+puts ""
+cpulimit 1400
+restore [locate_data_file buc60463a.brep] a
+checkshape a
+restore [locate_data_file buc60463b.brep] b
+checkshape b
+bsection result a b
+
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs
+if { $cs != 0 } {
+ puts "Faulty : Section is incorrect"
+}
+set length 0
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts "BUC60523"
+puts "========================"
+
+restore [locate_data_file buc60523a.brep] a
+checkshape a
+sewing result 1.e-7 a
+set square 156.919
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========================"
+puts "BUC60531"
+puts "========================"
+
+restore [locate_data_file buc60531a.brep] r1
+checkshape r1
+restore [locate_data_file buc60531b.brep] pl1
+checkshape pl1
+
+bcut result r1 pl1
+
+set square 115935
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts "BUC60531"
+puts "========================"
+
+restore [locate_data_file buc60531a.brep] r1
+checkshape r1
+
+restore [locate_data_file buc60531b.brep] pl1
+checkshape pl1
+
+bcut r2 r1 pl1
+checkshape r2
+
+restore [locate_data_file buc60531c.brep] pl2
+checkshape pl2
+
+bcut result r2 pl2
+
+set square 115935
+set 2dviewer 0
--- /dev/null
+puts "==========="
+puts "BUC60532"
+puts "==========="
+
+restore [locate_data_file buc60532a.brep] p
+checkshape p
+
+restore [locate_data_file buc60532b.brep] t1
+checkshape t1
+
+restore [locate_data_file buc60532c.brep] t2
+checkshape t2
+
+# create halfspace
+halfspace h1 t1 20 20 0
+halfspace h2 t2 20 20 0
+
+# first cut
+bcut result p h1
+
+set square 81.8172
+set 2dviewer 0
--- /dev/null
+puts "==========="
+puts "BUC60532"
+puts "==========="
+
+restore [locate_data_file buc60532a.brep] p
+checkshape p
+
+restore [locate_data_file buc60532b.brep] t1
+checkshape t1
+
+restore [locate_data_file buc60532c.brep] t2
+checkshape t2
+
+# create halfspace
+halfspace h1 t1 20 20 0
+halfspace h2 t2 20 20 0
+
+# first cut
+bcut result p h1
+
+set square 81.8172
+set 2dviewer 0
+
--- /dev/null
+puts "=========="
+puts "BUC60532"
+puts "=========="
+
+restore [locate_data_file buc60532a.brep] p
+checkshape p
+
+restore [locate_data_file buc60532b.brep] t1
+checkshape t1
+
+restore [locate_data_file buc60532c.brep] t2
+checkshape t2
+
+# create halfspace
+#vertex v 20 20 0
+halfspace h1 t1 20 20 0
+halfspace h2 t2 20 20 0
+
+# first cut
+bcut res1 p h1
+
+explode res1 e
+mkcurve cu11 res1_1
+mkcurve cu12 res1_2
+mkcurve cu13 res1_3
+mkcurve cu14 res1_4
+mkcurve cu15 res1_5
+
+checkshape res1
+puts [computetolerance res1]
+
+# second cut
+bcut res2 res1 h2
+tcopy res2 res
+checkshape res2
+
+explode res2 e
+mkcurve cu21 res2_1
+mkcurve cu22 res2_2
+mkcurve cu23 res2_3
+mkcurve cu24 res2_4
+mkcurve cu25 res2_5
+
+explode res2 face
+
+puts [computetolerance res2]
+
+renamevar res2 result
+
+set square 78.8705
+set 2dviewer 0
+
--- /dev/null
+puts "=========="
+puts "BUC60533"
+puts "=========="
+
+restore [locate_data_file buc60533a.brep] part
+checkshape part
+#puts "Tolerance part"
+#computetolerance part
+
+restore [locate_data_file buc60533b.brep] trTool
+checkshape trTool
+#puts "Tolerance trTool"
+#computetolerance trTool
+
+# create halfspace
+vertex v 10000 15000 -15000
+halfspace hs trTool 10000 15000 -15000
+#puts "Tolerance hs"
+#computetolerance hs
+
+#*************************************************
+if [catch {bcut result part hs} catch_result] {
+ puts "Faulty BUC60533: function CUT works wrongly"
+} else {
+ puts " BUC60533 OK: function CUT works properly"
+}
+#*************************************************
+
+#set che [checkshape res r]
+#set err [lindex $che [expr [llength $che] - 1]]
+#if { $err != "OK"} {
+# puts "Faulty : mistakes are found in checked shape by checkshape command"
+#} else {
+# puts "Checking by checkshape - OK"
+
+#explode res e
+#mkcurve cu1 res_1
+#mkcurve cu2 res_2
+#mkcurve cu3 res_3
+#mkcurve cu4 res_4
+#mkcurve cu5 res_5
+
+#checkshape res
+
+#set tolerance [ maxtolerance res ]
+#set MaxFaceTolerance [ lindex $tolerance 14 ]
+#set MaxEdgeTolerance [ lindex $tolerance 20 ]
+#set MaxVertexTolerance [ lindex $tolerance 26 ]
+#if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
+#puts "Faulty :Tolerance of shape is more then 1.0"
+#} else {
+#puts "Tolerance of shape is less then 1.0"
+#}
+#}
+
+# Objectif : Couper part par trTool
+#
+# part est construite a partir d'un semi de point et de telle facon que u=x et v=y.
+# On obtient une Geom_BSplineSurface. On cree alors la topologie a partir de cette
+# surface via BRepAPI::MakeFace(surface)
+# Dans notre code, a aucun moment, nous
+# n'initialisons la tolerance.
+#
+# Le cut n'est pas effectue car une exception est levee :
+# An exception was caught Standard_ConstructionError:
+# ** Exception ** Standard_ConstructionError:
+
+set square 1.63191e+07
+set 2dviewer 0
--- /dev/null
+puts "==========="
+puts "BUC60555"
+puts "CUT Case 1"
+puts "==========="
+#cpulim add aki 070704
+cpulimit 1600
+restore [locate_data_file buc60555a.brep] part
+checkshape part
+restore [locate_data_file buc60555b.brep] trTool1
+checkshape trTool1
+halfspace hs1 trTool1 20000 10000 0
+bcut cut1 part hs1
+
+checkshape cut1
+
+tcopy cut1 result
+
+explode cut1 e
+mkcurve cu1 cut1_1
+mkcurve cu2 cut1_2
+mkcurve cu3 cut1_3
+mkcurve cu4 cut1_4
+
+set tolerance [ maxtolerance cut1 ]
+
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
+
+if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
+ puts "Faulty :Tolerance of shape is more then 1.0"
+} else {
+ puts "Tolerance of shape is less then 1.0"
+}
+
+set square 4.60842e+07
+set 2dviewer 0
--- /dev/null
+puts "============="
+puts "BUC60555"
+puts "CUT Case2"
+puts "============="
+cpulimit 1400
+restore [locate_data_file buc60555a.brep] part
+checkshape part
+restore [locate_data_file buc60555b.brep] trTool1
+checkshape trTool1
+
+halfspace hs1 trTool1 20000 10000 0
+bcut cut1 part hs1
+checkshape cut1
+
+set che [checkshape cut1 r]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty : mistakes are found in checked shape by checkshape command"
+} else {
+ puts "Checking by checkshape - OK"
+}
+
+puts [maxtolerance cut1]
+
+restore [locate_data_file buc60555c.brep] trTool2
+halfspace hs2 trTool2 10000 10000 0
+bcut cut2 cut1 hs2
+
+tcopy cut2 result
+
+explode cut2 e
+mkcurve cu1 cut2_1
+mkcurve cu2 cut2_2
+mkcurve cu3 cut2_3
+mkcurve cu4 cut2_4
+
+set che [checkshape cut2 r]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty : mistakes are found in checked shape by checkshape command"
+} else {
+ puts "Checking by checkshape - OK"
+}
+
+checkshape cut2
+set tolerance [ maxtolerance cut2 ]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
+if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
+ puts "Faulty : Tolerance of shape is more then 1.0"
+} else {
+ puts "Tolerance of shape is less then 1.0"
+}
+set square 4.52817e+07
+set 2dviewer 0
--- /dev/null
+puts "=============="
+puts "BUC60555"
+puts "CUT Case 3"
+puts "=============="
+cpulimit 5000
+restore [locate_data_file buc60555a.brep] part
+checkshape part
+restore [locate_data_file buc60555b.brep] trTool1
+checkshape trTool1
+
+halfspace hs1 trTool1 20000 10000 0
+bcut cut1 part hs1
+checkshape cut1
+
+set che [checkshape cut1 r]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty : mistakes are found in checked shape by checkshape command"
+} else {
+ puts "Checking by checkshape - OK"
+}
+
+maxtolerance cut1
+
+restore [locate_data_file buc60555c.brep] trTool2
+halfspace hs2 trTool2 10000 10000 0
+bcut cut2 cut1 hs2
+checkshape cut2
+
+set che [checkshape cut2 r]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty : mistakes are found in checked shape by checkshape command"
+} else {
+ puts "Checking by checkshape - OK"
+}
+
+maxtolerance cut2
+
+restore [locate_data_file buc60555d.brep] trTool3
+halfspace hs3 trTool3 20000 1000 0
+bcut cut3 cut2 hs3
+
+tcopy cut3 result
+
+explode cut3 e
+mkcurve cu1 cut3_1
+mkcurve cu2 cut3_2
+mkcurve cu3 cut3_3
+mkcurve cu4 cut3_4
+
+set che [checkshape cut3 r]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty : mistakes are found in checked shape by checkshape command"
+} else {
+ puts "Checking by checkshape - OK"
+}
+
+checkshape cut3
+
+set tolerance [ maxtolerance cut3 ]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
+
+if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
+ puts "Faulty : Tolerance of shape is more then 1.0"
+} else {
+ puts "Tolerance of shape is less then 1.0"
+}
+set square 2.22138e+07
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts "BUC60585"
+puts "========================"
+
+restore [locate_data_file buc60585a.brep] s
+checkshape s
+plane ps 2036.25 -97.5 -1460.499755859375 0.0 -0.75103523489975432 -0.66026212668838646 1.0 0.0 0.0
+
+psection result s ps
+
+set length 117.81
+set 2dviewer 0
+
+## set num [lindex [checksection res] 4]
+# if { $num != 0 } {
+# puts " Faulty : Result shape is Unclosed !!! "
+# }
--- /dev/null
+
+puts "========================"
+puts "BUC60585"
+puts "========================"
+
+restore [locate_data_file buc60585b.brep] t
+checkshape t
+plane pt 2036.25 -97.5 -1460.499755859375 0.0 -1.0 0.0 1.0 0.0 0.0
+
+psection result t pt
+
+set length 22.0446
+set 2dviewer 0
+
+# checksection res
--- /dev/null
+
+puts "========================"
+puts "BUC60623"
+puts "========================"
+
+restore [locate_data_file buc60623a.brep] a
+checkshape a
+restore [locate_data_file buc60623b.brep] b
+checkshape b
+
+bsection result a b
+
+set length 1475.98
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts "BUC60623"
+puts "========================"
+
+restore [locate_data_file buc60623a.brep] a
+checkshape a
+restore [locate_data_file buc60623b.brep] b
+checkshape b
+
+bsection result b a
+# checksection res
+
+set length 1475.98
+set 2dviewer 0
--- /dev/null
+
+puts "============="
+puts "BUC60635"
+puts "============="
+
+restore [locate_data_file buc60635a.brep] a
+checkshape a
+
+mkplane result a
+
+set square 2035.58
+set 2dviewer 0
+
--- /dev/null
+puts "=========="
+puts "BUC60649"
+puts "BUC60657"
+puts "=========="
+puts ""
+
+restore [locate_data_file buc60649a.brep] a
+checkshape a
+
+set che [checkshape a rr]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
+ puts "Body of the script was not executed"
+} else {
+ puts "Checking of SOURCE shape by checkshape - OK"
+ mkoffset result a 1 1
+ renamevar result_1 result
+}
+set length 271.473
+set 2dviewer 0
--- /dev/null
+
+puts "====================================="
+puts "BUC60663"
+puts "====================================="
+puts ""
+puts "It takes visual check for this BUG. See V2 point"
+puts "====================================="
+puts ""
+
+restore [locate_data_file buc60663a.brep] a
+checkshape a
+restore [locate_data_file buc60663b.brep] b
+checkshape b
+
+bsection result a b
+
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
+if { $num != 2 } {
+ puts " Faulty : Result shape is INcorrect !!! "
+}
+
+
+#fsameparameter res
+
+set length 26.2001
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : the distanse is"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+
+puts "====================================="
+puts "BUC60663"
+puts "====================================="
+puts ""
+puts "It takes visual check for this BUG."
+puts "====================================="
+puts ""
+
+restore [locate_data_file buc60663a.brep] a
+checkshape a
+restore [locate_data_file buc60663b.brep] b
+checkshape b
+
+bsection result a b
+
+set expl [explode result v]
+set len [llength $expl]
+set ver [lindex $expl [expr $len - 1]]
+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 {$dist > $toler} {
+ puts "Faulty : the distanse is $dist. It is more $toler."
+}
+set length 0
+set 2dviewer 0
--- /dev/null
+
+puts "===================="
+puts "BUC60668"
+puts "Three boxes must appear on picture"
+puts "===================="
+
+box b 100 0 0 10 10 10
+box b1 10 10 10
+box b2 50 50 50 10 10 10
+box a -10 -10 -10 200 200 200
+
+compound b b1 b2 c
+
+regexp {Mass +: +([-0-9.+eE]+)} [vprops c] full vcomp
+
+#compound b b1 c
+bcommon result c a
+
+regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full vcomm
+
+if { $vcomp != $vcomm } {
+ puts " Faulty : Common is incorrect"
+} else {
+ puts " BUC60668 OK : Common was made properly"
+}
+set square 1800
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "=================="
+puts "BUC60669"
+puts "=================="
+puts ""
+#############################################################
+## An exception was caught OSD_SIGBUS: SIGBUS 'bus error' detected.**
+## Exception ** OSD_SIGBUS: SIGBUS 'bus error' detected.
+#############################################################
+
+restore [locate_data_file buc60669a.brep] shell1
+checkshape shell1
+restore [locate_data_file buc60669b.brep] shell2
+checkshape shell2
+
+ksection result shell1 shell2 1000 0.0001 0.00001 0
+
+#checksection res
+set length 104.754
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty BUC60682"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+pload QAcommands
+
+puts "=================="
+puts "BUC60682"
+puts "=================="
+
+restore [locate_data_file buc60682a.brep] shell1
+restore [locate_data_file buc60682b.brep] shell2
+
+set che [checkshape shell1]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60682 (shell 1): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar shell1 result
+} else {
+ puts "BUC60682 OK (shell 1): Source shape is valid"
+ set che [checkshape shell2]
+ if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60682 (shell 2): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar shell2 result
+ } else {
+ puts "BUC60682 OK (shell 2): Source shape is valid"
+ ksection result shell1 shell2 1000 0.0001 0.00001 0
+ }
+}
+set square 0
+set 2dviewer 0
--- /dev/null
+
+puts "============="
+puts "BUC60684"
+puts "============="
+
+restore [locate_data_file buc60684a.brep] w
+checkshape w
+
+prism result w 0 0 10
+
+set square 148.875
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : The distance between"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+
+puts "========================"
+puts "BUC60690"
+puts "========================"
+puts ""
+
+restore [locate_data_file buc60690a.brep] a
+restore [locate_data_file buc60690b.brep] b
+
+set che [checkshape a]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60690 (shape 1): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar a result
+} else {
+ puts "BUC60690 OK (shape 1): Source shape is valid"
+ set che [checkshape b]
+ if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60690 (shape 2): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar b result
+ } else {
+ puts "BUC60690 OK (shape 2): Source shape is valid"
+
+ bsection result a b
+
+ set le [explode result v]
+ distmini d1 result_1 b
+ distmini d2 [lindex $le [expr [llength $le] - 1]] b
+
+ regexp {([-0-9.+eE]+)$} [dump d1_val] full du1
+
+ if { [expr $du1 > 1e-7] } {
+ puts "Faulty : The distance between first vertex and shellB is $du1. It is more then 1e-7."
+ }
+
+ regexp {([-0-9.+eE]+)$} [dump d2_val] full du2
+ if { [expr $du2 > 1e-7] } {
+ puts "Faulty : The distance between last vertex and shellB is $du2. It is more then 1e-7."
+ }
+ }
+}
+set length 0
+set 2dviewer 0
+
+
--- /dev/null
+#puts "TODO OCC12345 ALL: An exception was caught"
+#puts "TODO OCC12345 ALL: Exception"
+#puts "TODO OCC12345 ALL: Faulty BUC60703: here is problem with FUSE operation"
+
+puts "========================"
+puts "BUC60703"
+puts "================================="
+puts "Action with models with VERY BIG tolerance"
+puts "================================="
+##########################################
+## Crash during a fuse whilst two plans are tangent.
+## ( Case has LIMITATION status currently )
+##########################################
+
+#cpulimit 9000
+
+restore [locate_data_file buc60703a.brep] a
+# maxtolerance a
+checkshape a
+restore [locate_data_file buc60703b.brep] b
+# maxtolerance b
+checkshape b
+
+if [catch {bfuse result a b } catch_result] {
+ puts "Faulty BUC60703: here is problem with FUSE operation"
+} else {
+ puts "OK OCC348: function FUSE works ok"
+ if [catch {checkshape result } catch_result] {
+ puts "Faulty BUC60703 : here is checking problem."
+ } else {
+ puts "BUC60703 OK"
+ }
+ # maxtolerance res
+ set square 237.333
+ set 2dviewer 0
+}
+
--- /dev/null
+
+puts "========================"
+puts "BUC60703"
+puts "================================="
+puts "Action with models with CORRECT tolerance"
+puts "================================="
+puts ""
+############################################
+## Crash during a fuse whilst two plans are tangent.
+############################################
+
+restore [locate_data_file buc60703c.brep] a
+checkshape a
+
+restore [locate_data_file buc60703e.brep] b
+checkshape b
+
+
+if [catch {bfuse result a b } catch_result] {
+ puts "Faulty BUC60703: here is problem with FUSE operation"
+} else {
+ puts "OK BUC60703: function FUSE works ok"
+ if [catch {checkshape result } catch_result] {
+ puts "WARNING BUC60703 : Function checkshape gives bad result"
+ puts " See also OCC438: 919 D3 and D4"
+ } else {
+ puts "BUC60703 OK in checkshape"
+ }
+}
+set square 236.72
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts "BUC60703"
+puts "========================"
+
+restore [locate_data_file buc60703e.brep] a
+#maxtolerance a
+checkshape a
+restore [locate_data_file buc60703d.brep] b
+#maxtolerance b
+checkshape b
+
+if [catch {bfuse result a b } catch_result] {
+ puts "Faulty BUC60703: here is problem with FUSE operation"
+} else {
+ puts "OK OCC348: function FUSE works ok"
+ if [catch {checkshape result} catch_result] {
+ puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4"
+ } else {
+ puts "BUC60703 : here is NOT checking problem"
+ }
+}
+set square 371.259
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts "BUC60703"
+puts "========================"
+puts ""
+####################################
+## Crash during a fuse whilst two plans are tangent.
+####################################
+
+restore [locate_data_file buc60703d.brep] a
+#maxtolerance a
+checkshape a
+restore [locate_data_file buc60703f.brep] b
+#maxtolerance b
+checkshape b
+
+if [catch {bfuse result a b } catch_result] {
+ puts "Faulty BUC60703: here is problem with FUSE operation"
+} else {
+ puts "OK OCC348: function FUSE works ok"
+ if [catch {checkshape result} catch_result] {
+ set mistake 1
+ } else {
+ set mistake 0
+ }
+
+ if { $mistake != 0} {
+ puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4"
+ } else {
+ puts "BUC60703 : here is NOT checking problem"
+ }
+}
+set square 505.797
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts "BUC60704"
+puts "BUC60709"
+puts "========================"
+
+restore [locate_data_file buc60704a.brep] p
+checkshape p
+restore [locate_data_file buc60704b.brep] s
+checkshape s
+
+bfuse result p s
+
+set square 39.0889
+set 2dviewer 0
--- /dev/null
+
+puts "==========="
+puts "BUC60708"
+puts "==========="
+
+restore [locate_data_file buc60708a.brep] a
+checkshape a
+restore [locate_data_file buc60708b.brep] b
+checkshape b
+
+bcommon result a b
+
+set faces [explode result f]
+set n [llength $faces]
+
+set end [lindex $faces [expr $n-1]]
+
+if { $end != "result_4" } {
+ puts " Faulty :Common operation was made wrongly"
+} else {
+ puts " Common operation was made successfully"
+}
+set square 13.4871
+set 2dviewer 0
--- /dev/null
+puts "=========="
+puts "BUC60712"
+puts "=========="
+puts ""
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+
+#
+# OCC22070: Grid Tests: CHL set, detected problems
+# Problems:
+# The shape buc60712a.brep is self-interferred.
+# thus it can not be used as the argument for Boolean Operation Algorithm.
+#
+# Proposals:
+# The Case chl/902/F3 should be removed or rewritten:
+
+restore [locate_data_file buc60712a.brep] a
+checkshape a
+
+restore [locate_data_file buc60712b.brep] b
+checkshape b
+
+# Recompute "a" shape
+explode a f
+
+bop a_1 a_2
+bopfuse r12
+
+bop a_3 a_4
+bopfuse r34
+
+bop r12 r34
+
+bopfuse r
+
+# Start boolean operation
+bop r b
+bopsection result
+
+# Check result
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
+# Resume
+if { $num != 0 } {
+ puts " Faulty BUC60712: Result shape is INcorrect !!! "
+} else {
+ puts "BUC60712 OK: Result shape is correct "
+}
+set length 1.88145
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts "BUC60714"
+puts "========================"
+
+profile f x 30 y 20 x -30
+explode f w
+vertex v1 0 0 0
+vertex v2 0 -10 -10
+edge e v1 v2
+
+wire w e
+mksweep f_1
+setsweep -FR
+addsweep w
+
+########
+#does'nt work
+buildsweep result -C -S
+
+set square 1979.9
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts "BUC60728"
+puts "========================"
+puts ""
+####################################################
+## Infinite loop in section. Section between the two attached faces never finish.
+####################################################
+
+restore [locate_data_file buc60728a.brep] s1
+restore [locate_data_file buc60728b.brep] s2
+build3d s1
+checkshape s1
+checkshape s2
+
+bsection result s1 s2
+
+#checksection res
+#checkshape res
+
+set length 238.032
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "========================"
+puts "BUC60744"
+puts "========================"
+puts ""
+
+restore [locate_data_file buc60744a.brep] a
+restore [locate_data_file buc60744b.brep] b
+
+set che [checkshape a]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60744 (shape 1): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar a result
+} else {
+ puts "BUC60744 OK (shape 1): Source shape is valid"
+
+ set che [checkshape b]
+ if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60744 (shape 2): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar b result
+ } else {
+ puts "BUC60744 OK (shape 2): Source shape is valid"
+
+ ksection result a b 1000 0.0001 0.00001 0
+
+ set ne [llength [explode result e]]
+ set nv [llength [explode result v]]
+
+ if {$ne >= $nv} {
+ puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
+ }
+ }
+}
+bsection result a b
+
+set ne [llength [explode result e]]
+set nv [llength [explode result v]]
+
+if {$ne >= $nv} {
+ puts [format "Faulty : the number of edges is %s, but the number of vertexes is %s." $ne $nv]
+}
+
+set length 228.386
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts "BUC60776"
+puts "========================"
+
+restore [locate_data_file buc60776a.brep] a
+checkshape a
+restore [locate_data_file buc60776b.brep] b
+checkshape b
+bfuse result a b
+
+set square 60771.3
+
+set 2dviewer 1
+
+
--- /dev/null
+
+puts "========================"
+puts "BUC60776"
+puts "========================"
+
+restore [locate_data_file buc60776c.brep] a
+checkshape a
+restore [locate_data_file buc60776d.brep] b
+checkshape b
+bsection result a b
+
+set length 111.405
+
+set 2dviewer 1
+
--- /dev/null
+
+puts "========================"
+puts "BUC60777"
+puts "========================"
+
+profile p x 30 y -10 x 10 y 10 x 10 y 30 t -30 -20 t -30 20
+mkoffset result p 1 -1
+explode p w
+
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full end
+regexp {Mass +: +([-0-9.+eE]+)} [lprops p_1] full end1
+
+if { $end >= $end1} {
+ puts " Faulty Mkoffset operation was made wrongly"
+ } else {
+ puts " Mkoffset operation was made successfully"
+}
+
+# Lenth of "profile" : 203.733802110964
+
+renamevar result_1 result
+
+set length 191.044
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: An exception was caught"
+puts "TODO OCC12345 ALL: Exception"
+puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========================"
+puts "BUC60782"
+puts "CASE 1"
+puts "========================"
+puts ""
+puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
+puts ""
+
+restore [locate_data_file buc60782a.brep] a
+set che [checkshape a]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60782 (case 1): Source shape is invalid"
+} else {
+ puts "BUC60782 OK (case 1): Sourse shape is correct"
+}
+
+set che [checkshape a rr]
+if { [regexp {OK} $che ] != 1} {
+ puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
+ puts "Body of the script was not executed"
+} else {
+ puts "Checking of SOURCE shape by checkshape - OK"
+ if [catch { mkoffset result a 1 10 } catch_result] {
+ puts "Faulty BUC60782: mkoffset works wrongly"
+ renamevar a result
+ } else {
+ puts "OK BUC60782: offset is created"
+ tpcompound result
+ }
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
+puts "TODO OCC12345 ALL: Faulty : mistakes are found in SOURCE shape by checkshape command"
+puts "TODO OCC12345 ALL: Faulty BUC60782"
+
+puts "========================"
+puts "BUC60782"
+puts "CASE 2"
+puts "========================"
+puts ""
+puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
+puts ""
+
+restore [locate_data_file buc60782b.brep] a
+set che [checkshape a]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60782 (case 2): Source shape is invalid"
+} else {
+ puts "BUC60782 OK (case 2): Sourse shape is correct"
+}
+
+set che [checkshape a rr]
+if { [regexp {OK} $che ] != 1} {
+ puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
+ puts "Body of the script was not executed"
+} else {
+ puts "Checking of SOURCE shape by checkshape - OK"
+ if [catch { mkoffset result a 1 10 } catch_result] {
+ puts "Faulty BUC60782: mkoffset works wrongly"
+ renamevar a result
+ } else {
+ puts "OK BUC60782: offset is created"
+ tpcompound result
+ }
+ set square 0
+ set 2dviewer 0
+}
--- /dev/null
+puts "TODO OCC12345 ALL: An exception was caught"
+puts "TODO OCC12345 ALL: Exception"
+puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+
+puts "========================"
+puts "BUC60782"
+puts "CASE 3"
+puts "========================"
+puts ""
+puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
+puts ""
+
+restore [locate_data_file buc60782c.brep] a
+
+set che [checkshape a]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty BUC60782 (case 3): Source shape is invalid"
+} else {
+ puts "BUC60782 OK (case 3): Sourse shape is correct"
+}
+
+set che [checkshape a rr]
+if { [regexp {OK} $che ] != 1 } {
+ puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
+ puts "Body of the script was not executed"
+} else {
+ puts "Checking of SOURCE shape by checkshape - OK"
+ if [catch { mkoffset result a 1 10 } catch_result] {
+ puts "Faulty BUC60782: mkoffset works wrongly"
+ renamevar a result
+ } else {
+ puts "OK BUC60782: offset is created"
+ tpcompound result
+ }
+}
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : result should be a shell, but not a compound of faces"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "BUC60787"
+puts "BUC60783"
+puts "========"
+
+#restore Common_Shell_Case2.brep S1
+#restore Common_Solid_Case2.brep S2
+
+restore [locate_data_file buc60787a.brep] S1
+checkshape S1
+restore [locate_data_file buc60787b.brep] S2
+checkshape S1
+
+bcommon result S1 S2
+
+set nb_info [nbshapes result]
+regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
+
+if { $err != 0 || $err1 != 1} {
+ puts "Faulty : result should be a shell, but not a compound of faces"
+} else {
+ puts "BUC60787 - OK"
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : result should be a shell, but not a compound of faces"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "BUC60787"
+puts "BUC60783"
+puts "========"
+
+#restore Cut_Shell_Case2.brep S1
+#restore Cut_Solid_Case2.brep S2
+
+restore [locate_data_file buc60787c.brep] S1
+checkshape S1
+restore [locate_data_file buc60787d.brep] S2
+checkshape S2
+
+bcut result S1 S2
+
+set nb_info [nbshapes result]
+regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
+
+if { $err != 0 || $err1 != 1} {
+ puts "Faulty : result should be a shell, but not a compound of faces"
+} else {
+ puts "BUC60787 - OK"
+}
+set square 0
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60788"
+puts "case 1"
+puts "============"
+
+#restore Intersection_Shell1_Case1.brep S1
+#restore Intersection_Shell2_Case1.brep S2
+
+restore [locate_data_file buc60788a.brep] S1
+checkshape S1
+restore [locate_data_file buc60788b.brep] S2
+checkshape S2
+
+bsection result S1 S2
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full err
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
+
+if { $err != 4 && $err1 != 3} {
+ puts "Faulty : result (res) is incorrect"
+} else {
+ puts "BUC60788 - OK"
+}
+
+set length 750
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : result should be a shell, but not a compound of faces"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "BUC60788"
+puts "case 3"
+puts "========"
+
+#restore Cut_Shell_Case2.brep S1
+#restore Cut_Solid_Case2.brep S2
+
+restore [locate_data_file buc60788e.brep] S1
+checkshape S1
+restore [locate_data_file buc60787d.brep] S2
+checkshape S2
+
+bcut result S1 S2
+
+set nb_info [nbshapes result]
+regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
+
+if { $err != 0 || $err1 != 1} {
+ puts "Faulty : result should be a shell, but not a compound of faces"
+} else {
+ puts "BUC60788 - OK"
+}
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : result should be a shell, but not a compound of faces"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "BUC60788"
+puts "case 2"
+puts "========"
+
+#restore Common_Shell_Case2.brep S1
+#restore Common_Solid_Case2.brep S2
+
+restore [locate_data_file buc60788c.brep] S1
+checkshape S1
+restore [locate_data_file buc60787b.brep] S2
+checkshape S1
+
+bcommon result S1 S2
+
+set nb_info [nbshapes result]
+regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
+
+if { $err != 0 || $err1 != 1} {
+ puts "Faulty : result should be a shell, but not a compound of faces"
+} else {
+ puts "BUC60788 - OK"
+}
+set square 0
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "BUC60789"
+puts "========"
+puts ""
+
+#restore buc60789a.brep S1
+restore [locate_data_file buc60787b.brep] S1
+### (by apn during classification)
+checkshape S1
+restore [locate_data_file buc60789b.brep] S2
+checkshape S2
+
+bcommon result S1 S2
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+
+if { $ve != 0 && $ed != 0 } {
+ puts " BUC60789 OK: COMMON operation was made properly"
+} else {
+ puts "Faulty BUC60789: COMMON operation was made wrongly"
+}
+set length 78.3594
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "BUC60789"
+puts "========"
+puts ""
+
+#restore buc60789c.brep S1
+##by apn
+restore [locate_data_file buc60787b.brep] S1
+checkshape S1
+restore [locate_data_file buc60789d.brep] S2
+checkshape S2
+
+bcut result S2 S1
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+
+ if { $ve != 0 && $ed != 0 } {
+ puts " BUC60789 OK: CUT operation was made properly"
+ } else {
+ puts "Faulty BUC60789: CUT operation was made wrongly"
+ }
+set length 288.856
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts "BUC60801"
+puts "========================"
+
+box b -10 -10 -10 30 40 40
+box a1 -20 0 -20 20 20 100
+box a2 0 20 -20 50 20 100
+box c -20 -20 20 100 100 100
+bcut r1 b a1
+bcut r2 r1 a2
+bcut r3 r2 c
+checkshape r3
+
+renamevar r3 result
+
+set square 6400
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts "BUC60803"
+puts "========================"
+
+restore [locate_data_file buc60803a.brep] a
+checkshape a
+restore [locate_data_file buc60803b.brep] b
+checkshape b
+
+bfuse result a b
+
+set square 1.86064e+07
+set 2dviewer 0
+
--- /dev/null
+puts "============="
+puts "BUC60830"
+puts "BUC60829"
+puts "============="
+
+restore [locate_data_file BUC60830-face2.brep] f
+checkshape f
+
+set che [checkshape f rr]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
+ puts "Body of the script was not executed"
+} else {
+ puts "Checking of SOURCE shape by checkshape - OK"
+ mkoffset result f 1 3
+ renamevar result_1 result
+}
+
+set length 81.5088
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60839"
+puts "============"
+puts ""
+
+restore [locate_data_file BUC60839-1.brep] a
+checkshape a
+restore [locate_data_file BUC60839-2.brep] b
+checkshape b
+
+puts "Starting fuse operation"
+
+bfuse result a b
+
+set square 27341.6
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "BUC60841"
+puts "========"
+
+restore [locate_data_file buc60841a.brep] sh1
+checkshape sh1
+restore [locate_data_file buc60841b.brep] sh2
+checkshape sh2
+
+bfuse result sh1 sh2
+
+set square 890971
+set 2dviewer 1
--- /dev/null
+
+puts "============"
+puts "BUC60849"
+puts "============"
+puts ""
+
+restore [locate_data_file BUC60849.brep] result
+checkshape result
+
+set bndb [ lindex [bounding result] 3 ]
+
+if { $bndb > 100.000001 } {
+ puts "Faulty BUC60849 : Bounding box of spherical surface is created wroughly."
+} else {
+ puts "BUC60849 OK :Bounding box of spherical surface is created properly."
+}
+set square 125663
+set 2dviewer 0
+
--- /dev/null
+
+puts "============"
+puts "BUC60865"
+puts "BUC60864"
+puts "============"
+puts ""
+##########################
+## Section gives duplicate edges.
+##########################
+
+restore [locate_data_file BUC60865_sh6.brep] sh
+checkshape sh
+
+plane pl 1.1 0.99999 1 0 1 0
+mkface f pl
+bsection result sh f
+
+set nb_info [nbshapes result]
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+
+if { $ed == 5 } {
+ puts " BUC60865 : SECTION operation was made properly"
+} else {
+ puts "Faulty BUC60865: SECTION operation was made wrongly"
+}
+set length 4.5
+set 2dviewer 0
+
--- /dev/null
+puts "============="
+puts "BUC60878"
+puts "============="
+
+#restore BUC60878-wire1.brep a
+#########dtext -10 -10 -60 "THE CASE IS INCORRECT"
+#mkoffset r a 1 0.5
+#tpcompound res
+#checkshape res
+
+restore [locate_data_file BUC60878-wire1.brep] a
+checkshape a
+
+set che [checkshape a rr]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
+ puts "Body of the script was not executed"
+} else {
+ puts "Checking of SOURCE shape by checkshape - OK"
+ mkoffset result a 1 0.5
+ renamevar result_1 result
+}
+
+set length 370.796
+set 2dviewer 0
--- /dev/null
+puts "============="
+puts "BUC60878"
+puts "============="
+
+#restore BUC60878-wire3.brep a
+#########dtext -10 -10 -60 "THE CASE IS INCORRECT"
+#mkoffset r a 1 0.25
+#tpcompound res
+#checkshape res
+
+restore [locate_data_file BUC60878-wire3.brep] a
+checkshape a
+
+set che [checkshape a rr]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
+ puts "Body of the script was not executed"
+} else {
+ puts "Checking of SOURCE shape by checkshape - OK"
+ mkoffset result a 1 0.25
+ renamevar result_1 result
+}
+
+set length 11.2406
+set 2dviewer 0
--- /dev/null
+puts "============="
+puts "BUC60878"
+puts "============="
+
+#restore BUC60878-wire5.brep a
+###############dtext 0 -10 0 "THE CASE IS INCORRECT"
+#mkoffset r a 1 4
+#tpcompound res
+#checkshape res
+
+restore [locate_data_file BUC60878-wire5.brep] a
+checkshape a
+
+set che [checkshape a rr]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
+ puts "Body of the script was not executed"
+} else {
+ puts "Checking of SOURCE shape by checkshape - OK"
+ mkoffset result a 1 4
+ renamevar result_1 result
+}
+
+set length 107.351
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60880"
+puts "============"
+puts ""
+##########################################
+## We have overlapping edges when section a shell by plane.
+##########################################
+
+restore [locate_data_file BUC60880_sec_error2.brep] sh
+checkshape sh
+
+plane pl 65000 19000 2600 1 0 0
+mkface f pl
+
+bsection result sh f
+
+set nb_info [nbshapes result]
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+
+if { $ed == 1 } {
+ puts "BUC60880 OK: SECTION operation was made properly"
+} else {
+ explode result e
+ set status [OCC333 result_1 result_2]
+ if {[llength ${status}] < 1} {
+ puts "BUC60880 ERROR"
+ } else {
+ regexp {([-0-9.+eE]+)} $status full code
+ if { ${code} == 3 || ${code} == 2} {
+ puts "BUC60880 : Section command works properly"
+ } else {
+ puts "Faulty BUC60880: Section was made WRONGLY"
+ }
+ }
+}
+set length 1424.94
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60881"
+puts "============"
+puts ""
+
+restore [locate_data_file BUC60881.brep] a
+explode a
+checkshape a_1
+checkshape a_1
+
+bfuse result a_1 a_2
+
+set square 34069
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "BUC60882"
+puts "============"
+puts ""
+#######################################################################
+## The edge is corrupted after applying command "fsameparameter": tolerance is increased up to 1e+50
+#######################################################################
+
+pload XDE
+
+restore [locate_data_file BUC60882_samepar.brep] result
+
+set che [checkshape result]
+
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Warning BUC60882: Source shape is NOT correct. It was detected by Checkshape command"
+} else {
+ puts "BUC60882 OK: Source shape is valid"
+}
+
+puts "*** Before : "
+
+regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol
+
+puts "MaxTolerance = $MaxTol"
+if { $MaxTol > 1 } {
+ puts "Warning : Tolerance of Source edge is more then 1.0"
+} else {
+ puts " Tolerance of source edge is less then 1.0"
+}
+
+fsameparameter result 1e-5
+
+puts "*** After : "
+regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full MaxTol_1
+
+puts "MaxTolerance = $MaxTol_1"
+if { $MaxTol_1 > $MaxTol } {
+ puts [format "Faulty BUC60882 : Tolerance of Result edge increased and it is equal to %s" $MaxTol_1]
+} else {
+ puts " BUC60882 OK: Tolerance of Result edge is less or equal to tolerance of Sourse edge."
+}
+
+set length 1768.53
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60896"
+puts "============"
+puts ""
+###############################################################
+## If give command "sameparameter edge" on attached edge in the DRAW this command hang.
+###############################################################
+
+restore [locate_data_file BUC60896_edge.rle] result
+# checkshape res
+
+sameparameter result
+sameparameter result tol 1.e-2
+sameparameter result tol 1000
+
+set length 48288.3
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty BUC60898: here is reading problem"
+
+puts "==========="
+puts " BUC60898"
+puts "==========="
+puts ""
+
+pload XDE
+
+if [catch { igesbrep [locate_data_file $filedir/buc60898.igs] a *} result] {
+## rename to BUC60898.igs
+ puts "Faulty BUC60898: here is reading problem"
+} else {
+ puts "BUC60898 OK"
+ tpcompound a
+
+ if [catch {sewing result 1e-7 a } catch_result] {
+ puts "Faulty BUC60898: function SEWING gives except"
+ } else {
+ puts " BUC60898 OK: function SEWING works without except"
+ }
+ set square 0
+ set 2dviewer 0
+}
+
+
--- /dev/null
+
+puts "============"
+puts "BUC60899"
+puts "============"
+puts ""
+#####################################################
+## Execution of the script prism_sec.tcl gives exception "NumericError".
+#####################################################
+
+set n 2
+set dx 4
+set sx 1
+set sz 10
+set xc [dval (2*$dx+2*$sx)*$n/2]
+set zc -30
+set r [dval $xc*0.9]
+
+set x 0
+set y -50
+set z 0
+set pol "polyline w $x $y $z"
+for {set i 1} {$i <= $n} {incr i} {
+ set x [dval $x+$dx]
+ set pol "$pol $x $y $z"
+ set x [dval $x+$sx]
+ set z [dval $z+$sz]
+ set pol "$pol $x $y $z"
+ set x [dval $x+$dx]
+ set pol "$pol $x $y $z"
+ set x [dval $x+$sx]
+ set z [dval $z-$sz]
+ set pol "$pol $x $y $z"
+}
+
+eval $pol
+circle c $xc 0 $zc $r
+mkedge c c
+
+prism cyl c 0 0 -$zc*2 inf
+prism crg w 0 -$y*2 0 inf
+
+bsection result crg cyl
+
+set length 15.1392
+set 2dviewer 0
+
+# checksection res
+# checkshape res
--- /dev/null
+
+puts "============"
+puts "BUC60899"
+puts "============"
+puts ""
+#####################################################
+## Execution of the script prism_sec.tcl gives exception "NumericError".
+#####################################################
+
+set n 2
+set dx 4
+set sx 1
+set sz 10
+set xc [dval (2*$dx+2*$sx)*$n/2]
+set zc -30
+set r [dval $xc*0.9]
+
+set x 0
+set y -50
+set z 0
+set pol "polyline w $x $y $z"
+for {set i 1} {$i <= $n} {incr i} {
+ set x [dval $x+$dx]
+ set pol "$pol $x $y $z"
+ set x [dval $x+$sx]
+ set z [dval $z+$sz]
+ set pol "$pol $x $y $z"
+ set x [dval $x+$dx]
+ set pol "$pol $x $y $z"
+ set x [dval $x+$sx]
+ set z [dval $z-$sz]
+ set pol "$pol $x $y $z"
+}
+
+eval $pol
+polyline c $xc-$r -$r*2 $zc $xc+$r -$r*2 $zc $xc+$r $r*2 $zc $xc-$r $r*2 $zc $xc-$r -$r*2 $zc
+
+prism cyl c 0 0 -$zc*2 inf
+prism crg w 0 -$y*2 0 inf
+bsection result crg cyl
+
+#checksection res
+#checkshape res
+
+set nb_info [nbshapes result]
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full edgeness
+
+ #set fullness [ nbshapes res ]
+ #puts "$fullness"
+ #set qq [ lindex $fullness 0 ]
+ #set edgeness [ lindex $fullness 10 ]
+ # puts "$edgeness"
+
+if { $edgeness == 1 } {
+ puts "Shape is empty, it is Faulty result"
+} else {
+ puts "Shape is not empty, OK"
+}
+
+set length 162.299
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60901"
+puts "============"
+puts ""
+################################################################
+## We should get the edges forming a closed intersection line but we see breaks.
+################################################################
+
+set n 3
+set dx 1
+set sx 20
+set sz 10
+
+set xc [dval (2*$dx+2*$sx)*$n/2]
+set yc 0
+set zc [dval $sz*10]
+set nxc 0.5
+set nyc -0.3
+set nzc 1
+set r [dval $xc*0.9]
+
+set x 0
+set y [dval -$r*1.2]
+set z 0
+set pol "polyline w $x $y $z"
+for {set i 1} {$i <= $n} {incr i} {
+ set x [dval $x+$dx]
+ set pol "$pol $x $y $z"
+ set x [dval $x+$sx]
+ set z [dval $z+$sz]
+ set pol "$pol $x $y $z"
+ set x [dval $x+$dx]
+ set pol "$pol $x $y $z"
+ set x [dval $x+$sx]
+ set z [dval $z-$sz]
+ set pol "$pol $x $y $z"
+}
+
+eval $pol
+circle c $xc $yc $zc $nxc $nyc $nzc $r
+mkedge c c
+
+set lcyl [dval -$zc*2]
+set lcrg [dval -$y*2]
+
+prism cyl c 0 0 $lcyl
+prism crg w 0 $lcrg 0
+bsection result crg cyl
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
+
+if { $nb_vertices != $nb_edges } {
+ puts "Section is opened: Faulty shape"
+} else {
+ puts "Section is closed: OK"
+}
+
+set length 350.404
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60905"
+puts "============"
+puts ""
+puts "TODO CR23530 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+#########################################################
+## shape contains open shells if sewing would be made with big tolerance invalid shape
+## will be produced, and visualization crashes.
+#########################################################
+
+restore [locate_data_file BUC60905.brep] a
+# checkshape a
+
+sewing result 10 a
+
+vinit
+vdisplay result
+
+# checkshape res
+
+set square 270868
+set 3dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60909"
+puts "============"
+puts ""
+
+box boite 200 200 200
+nexplode boite F
+profile cont S boite_4 F 0 50 X 50 Y 100 X -50
+featrevol boite cont boite_4 0 0 200 0 -1 0 1 1
+featperform revol result boite_1
+
+set square 265343
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "============"
+puts "BUC60922"
+puts "============"
+puts ""
+#############################
+## Exception NumericError in Extrema
+#############################
+
+restore [locate_data_file BUC60907_px1.rle] sh
+checkshape sh
+
+line l 40 0 5 0 1 0
+mkedge e l
+subshape sh F 379
+mksurface result sh_379
+
+puts "Info: compute extrema"
+extrema result l
+
+puts "Info: compute distmini"
+distmini r sh e
+
+mkface result result
+
+set square 157.932
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60926"
+puts "============"
+puts ""
+######################################################################
+## Creating a sphere of radius 1 at 0,0,0 and a cone with r1=1 r2=2 height=2 angle=3*PI/2 at 1,1,0 and
+## then using BRepAlgoAPI_Fuse on the two solids will trigger a segmentation fault.
+######################################################################
+
+restore [locate_data_file shading_132.brep] a
+checkshape a
+
+restore [locate_data_file BUC60926-2.brep] b
+checkshape b
+
+bfuse result a b
+
+set square 41.7175
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60927"
+puts "============"
+
+restore [locate_data_file BUC60927.brep] a
+
+explode a
+checkshape a_1
+checkshape a_2
+
+bcut result a_2 a_1
+
+set square 94795.3
+set 2dviewer 0
+
--- /dev/null
+
+puts "============"
+puts "BUC60930"
+puts "============"
+puts ""
+######################################
+## Exception ConstructionError in LocOpe_SplitShape.
+######################################
+
+restore [locate_data_file BUC60930_splitshape.brep] c
+explode c
+checkshape c_1
+checkshape c_2
+
+renamevar c_1 f
+renamevar c_2 e
+
+splitshape result f f e
+
+set square 13.3392
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60934"
+puts "============"
+
+restore [locate_data_file BUC60934.brep] a
+checkshape a
+
+mkplane result a
+
+set square 40303.1
+set 2dviewer 0
+
--- /dev/null
+
+puts "============"
+puts "BUC60942"
+puts "============"
+###############################################################
+## SplitShape algorithm modifies original shape (increases vertex tolerance of a plitting edge).
+###############################################################
+
+restore [locate_data_file BUC60942_splitshape.brep] c
+explode c
+checkshape c_1
+checkshape c_2
+
+renamevar c_1 f
+renamevar c_2 w
+
+set tol1 [maxtolerance w]
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxEdgeTol1
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxVertexTol1
+
+splitshape result f f w
+
+set tol2 [maxtolerance w]
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxEdgeTol2
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxVertexTol2
+
+
+if { $MaxEdgeTol1 < $MaxEdgeTol2 || $MaxVertexTol1 < $MaxVertexTol1 } {
+ puts "Faulty BUC60942: max tolerance of the input wire has been increased by about 10 times."
+} else {
+ puts "BUC60942 OK: Tolerance of shape is correct"
+}
+
+set square 37.7032
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60946"
+puts "============"
+
+restore [locate_data_file BUC60946_prism.brep] c
+explode c
+checkshape c_1
+checkshape c_2
+
+renamevar c_1 sh
+renamevar c_2 pr
+bsection result sh pr
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
+
+if { $nb_vertices != $nb_edges } {
+ puts "Section is opened: Faulty shape"
+} else {
+ puts "Section is closed: OK"
+}
+set length 52.5057
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "BUC60971"
+puts "CASE 2"
+puts "========"
+puts ""
+
+restore [locate_data_file buc60971.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_2 a_3
+set square 93698.1
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC100"
+puts "================"
+puts ""
+########################################
+## Draw is crashed during cut on Windows NT. SAM1185.
+########################################
+
+restore [locate_data_file OCC100_sp.brep] sh1
+checkshape sh1
+
+restore [locate_data_file OCC100_cyl.brep] sh2
+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
+
+
--- /dev/null
+
+puts "================"
+puts "BUC60663"
+puts "BUC60662"
+puts "OCC101"
+puts "================"
+puts ""
+######################################
+## After restore c shell, section is incomplete
+######################################
+restore [locate_data_file buc60663a.brep] sh1
+checkshape sh1
+restore [locate_data_file buc60663b.brep] sh2
+checkshape sh2
+
+bsection result sh1 sh2
+
+set length 26.2001
+set 2dviewer 0
+
--- /dev/null
+puts "================"
+puts "OCC1013"
+puts "OCC906"
+puts "================"
+puts ""
+
+restore [locate_data_file DXF906.rle] wire
+checkshape wire
+
+mkplane result wire
+
+set square 92131.6
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC10160"
+puts "============"
+puts ""
+#######################################################################
+# BOP perfomance improvemen
+#######################################################################
+
+set BugNumber OCC10160
+
+restore [locate_data_file OCC10160-1.brep] b1
+restore [locate_data_file OCC10160-2.brep] b2
+
+set NbTests 3
+
+dchrono h0 reset
+dchrono h0 start
+
+bop b1 b2
+dchrono h0 stop
+set CPU_time0_List [dchrono h0 show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
+puts "CPU_user_time0=${CPU_user_time0}"
+
+puts "Start boolean operation ..."
+dchrono h reset; dchrono h start
+#
+# BOOLEAN OPERATION ----- START
+#
+for {set i 1} {$i <= ${NbTests}} {incr i} {
+ bopcommon result
+}
+#
+# BOOLEAN OPERATION ----- FINISH
+#
+dchrono h stop; set CPU_time_List [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
+
+puts "Finish boolean operation ..."
+puts "CPU_user_time=${CPU_user_time}"
+set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
+puts "CPU_user_time=${CPU_user_time}"
+
+set square 1.30062e+07
+
+# Analysis of "nbshapes res"
+set nb_v_good 20
+set nb_e_good 28
+set nb_w_good 16
+set nb_f_good 15
+set nb_sh_good 3
+set nb_sol_good 3
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 86
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10160"
+puts "============"
+puts ""
+#######################################################################
+# BOP perfomance improvemen
+#######################################################################
+
+set BugNumber OCC10160
+
+restore [locate_data_file OCC10160-2.brep] b1
+restore [locate_data_file OCC10160-3.brep] b2
+
+set NbTests 3
+
+puts "Prepare boolean operation ..."
+dchrono h0 reset; dchrono h0 start
+bop b1 b2
+dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
+puts "CPU_user_time0=${CPU_user_time0}"
+
+puts "Start boolean operation ..."
+dchrono h reset; dchrono h start
+#
+# BOOLEAN OPERATION ----- START
+#
+for {set i 1} {$i <= ${NbTests}} {incr i} {
+ bopfuse result
+}
+#
+# BOOLEAN OPERATION ----- FINISH
+#
+dchrono h stop; set CPU_time_List [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
+puts "Finish boolean operation ..."
+puts "CPU_user_time=${CPU_user_time}"
+set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
+puts "CPU_user_time=${CPU_user_time}"
+
+set square 3.20326e+07
+
+# Analysis of "nbshapes res"
+set nb_v_good 116
+set nb_e_good 173
+set nb_w_good 67
+set nb_f_good 63
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 422
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10160"
+puts "============"
+puts ""
+#######################################################################
+# BOP perfomance improvemen
+#######################################################################
+
+set BugNumber OCC10160
+
+restore [locate_data_file OCC10160-2.brep] b1
+restore [locate_data_file OCC10160-3.brep] b2
+
+set NbTests 3
+
+puts "Prepare boolean operation ..."
+dchrono h0 reset; dchrono h0 start
+bop b1 b2
+dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
+puts "CPU_user_time0=${CPU_user_time0}"
+
+puts "Start boolean operation ..."
+dchrono h reset; dchrono h start
+#
+# BOOLEAN OPERATION ----- START
+#
+for {set i 1} {$i <= ${NbTests}} {incr i} {
+ bopcut result
+}
+#
+# BOOLEAN OPERATION ----- FINISH
+#
+dchrono h stop; set CPU_time_List [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
+puts "Finish boolean operation ..."
+puts "CPU_user_time=${CPU_user_time}"
+set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
+puts "CPU_user_time=${CPU_user_time}"
+
+set square 3.05154e+07
+
+# Analysis of "nbshapes res"
+set nb_v_good 96
+set nb_e_good 143
+set nb_w_good 51
+set nb_f_good 48
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 341
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10160"
+puts "============"
+puts ""
+#######################################################################
+# BOP perfomance improvemen
+#######################################################################
+
+set BugNumber OCC10160
+
+restore [locate_data_file OCC10160-2.brep] b1
+restore [locate_data_file OCC10160-3.brep] b2
+
+set NbTests 3
+
+puts "Prepare boolean operation ..."
+dchrono h0 reset; dchrono h0 start
+bop b1 b2
+dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
+puts "CPU_user_time0=${CPU_user_time0}"
+
+puts "Start boolean operation ..."
+dchrono h reset; dchrono h start
+#
+# BOOLEAN OPERATION ----- START
+#
+for {set i 1} {$i <= ${NbTests}} {incr i} {
+ boptuc result
+}
+#
+# BOOLEAN OPERATION ----- FINISH
+#
+dchrono h stop; set CPU_time_List [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
+puts "Finish boolean operation ..."
+puts "CPU_user_time=${CPU_user_time}"
+set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
+puts "CPU_user_time=${CPU_user_time}"
+
+set square 6.38359e+06
+
+# Analysis of "nbshapes res"
+set nb_v_good 108
+set nb_e_good 161
+set nb_w_good 61
+set nb_f_good 60
+set nb_sh_good 3
+set nb_sol_good 3
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 397
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC10160"
+puts "============"
+puts ""
+#######################################################################
+# BOP perfomance improvemen
+#######################################################################
+
+set BugNumber OCC10160
+
+restore [locate_data_file OCC10160-1.brep] b1
+restore [locate_data_file OCC10160-2.brep] b2
+
+set NbTests 3
+
+puts "Prepare boolean operation ..."
+dchrono h0 reset; dchrono h0 start
+bop b1 b2
+dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
+puts "CPU_user_time0=${CPU_user_time0}"
+
+puts "Start boolean operation ..."
+dchrono h reset; dchrono h start
+#
+# BOOLEAN OPERATION ----- START
+#
+for {set i 1} {$i <= ${NbTests}} {incr i} {
+ bopfuse result
+}
+#
+# BOOLEAN OPERATION ----- FINISH
+#
+dchrono h stop; set CPU_time_List [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
+puts "Finish boolean operation ..."
+puts "CPU_user_time=${CPU_user_time}"
+set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
+puts "CPU_user_time=${CPU_user_time}"
+
+set square 4.75218e+07
+
+# Analysis of "nbshapes res"
+set nb_v_good 32
+set nb_e_good 60
+set nb_w_good 32
+set nb_f_good 29
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 156
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+puts "============"
+puts "OCC10160"
+puts "============"
+puts ""
+#######################################################################
+# BOP perfomance improvemen
+#######################################################################
+
+set BugNumber OCC10160
+
+restore [locate_data_file OCC10160-1.brep] b1
+restore [locate_data_file OCC10160-2.brep] b2
+
+set NbTests 3
+
+puts "Prepare boolean operation ..."
+dchrono h0 reset; dchrono h0 start
+bop b1 b2
+dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
+puts "CPU_user_time0=${CPU_user_time0}"
+
+puts "Start boolean operation ..."
+dchrono h reset; dchrono h start
+#
+# BOOLEAN OPERATION ----- START
+#
+for {set i 1} {$i <= ${NbTests}} {incr i} {
+ bopcut result
+}
+#
+# BOOLEAN OPERATION ----- FINISH
+#
+dchrono h stop; set CPU_time_List [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
+puts "Finish boolean operation ..."
+puts "CPU_user_time=${CPU_user_time}"
+set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
+puts "CPU_user_time=${CPU_user_time}"
+
+set square 2.36194e+07
+
+# Analysis of "nbshapes res"
+set nb_v_good 24
+set nb_e_good 34
+set nb_w_good 20
+set nb_f_good 19
+set nb_sh_good 4
+set nb_sol_good 4
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 106
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC10160"
+puts "============"
+puts ""
+#######################################################################
+# BOP perfomance improvemen
+#######################################################################
+
+set BugNumber OCC10160
+
+restore [locate_data_file OCC10160-1.brep] b1
+restore [locate_data_file OCC10160-2.brep] b2
+
+set NbTests 3
+
+puts "Prepare boolean operation ..."
+dchrono h0 reset; dchrono h0 start
+bop b1 b2
+dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
+puts "CPU_user_time0=${CPU_user_time0}"
+
+puts "Start boolean operation ..."
+dchrono h reset; dchrono h start
+#
+# BOOLEAN OPERATION ----- START
+#
+for {set i 1} {$i <= ${NbTests}} {incr i} {
+ boptuc result
+}
+#
+# BOOLEAN OPERATION ----- FINISH
+#
+dchrono h stop; set CPU_time_List [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
+puts "Finish boolean operation ..."
+puts "CPU_user_time=${CPU_user_time}"
+set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
+puts "CPU_user_time=${CPU_user_time}"
+
+set square 3.56087e+07
+
+# Analysis of "nbshapes res"
+set nb_v_good 24
+set nb_e_good 34
+set nb_w_good 20
+set nb_f_good 17
+set nb_sh_good 3
+set nb_sol_good 3
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 102
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC10160"
+puts "============"
+puts ""
+#######################################################################
+# BOP perfomance improvemen
+#######################################################################
+
+set BugNumber OCC10160
+
+restore [locate_data_file OCC10160-1.brep] b1
+restore [locate_data_file OCC10160-3.brep] b2
+
+set NbTests 3
+
+puts "Prepare boolean operation ..."
+dchrono h0 reset; dchrono h0 start
+bop b1 b2
+dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
+puts "CPU_user_time0=${CPU_user_time0}"
+
+puts "Start boolean operation ..."
+dchrono h reset; dchrono h start
+#
+# BOOLEAN OPERATION ----- START
+#
+for {set i 1} {$i <= ${NbTests}} {incr i} {
+ bopcommon result
+}
+#
+# BOOLEAN OPERATION ----- FINISH
+#
+dchrono h stop; set CPU_time_List [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
+puts "Finish boolean operation ..."
+puts "CPU_user_time=${CPU_user_time}"
+set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
+puts "CPU_user_time=${CPU_user_time}"
+
+set square 782201
+
+# Analysis of "nbshapes res"
+set nb_v_good 53
+set nb_e_good 75
+set nb_w_good 38
+set nb_f_good 34
+set nb_sh_good 6
+set nb_sol_good 6
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 213
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC10160"
+puts "============"
+puts ""
+#######################################################################
+# BOP perfomance improvemen
+#######################################################################
+
+set BugNumber OCC10160
+
+restore [locate_data_file OCC10160-1.brep] b1
+restore [locate_data_file OCC10160-3.brep] b2
+
+set NbTests 3
+
+puts "Prepare boolean operation ..."
+dchrono h0 reset; dchrono h0 start
+bop b1 b2
+dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
+puts "CPU_user_time0=${CPU_user_time0}"
+
+puts "Start boolean operation ..."
+dchrono h reset; dchrono h start
+#
+# BOOLEAN OPERATION ----- START
+#
+for {set i 1} {$i <= ${NbTests}} {incr i} {
+ bopfuse result
+}
+#
+# BOOLEAN OPERATION ----- FINISH
+#
+dchrono h stop; set CPU_time_List [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
+puts "Finish boolean operation ..."
+puts "CPU_user_time=${CPU_user_time}"
+set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
+puts "CPU_user_time=${CPU_user_time}"
+
+set square 3.61484e+07
+
+# Analysis of "nbshapes res"
+set nb_v_good 121
+set nb_e_good 178
+set nb_w_good 65
+set nb_f_good 59
+set nb_sh_good 3
+set nb_sol_good 2
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 429
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC10160"
+puts "============"
+puts ""
+#######################################################################
+# BOP perfomance improvemen
+#######################################################################
+
+set BugNumber OCC10160
+
+restore [locate_data_file OCC10160-1.brep] b1
+restore [locate_data_file OCC10160-3.brep] b2
+
+set NbTests 3
+
+puts "Prepare boolean operation ..."
+dchrono h0 reset; dchrono h0 start
+bop b1 b2
+dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
+puts "CPU_user_time0=${CPU_user_time0}"
+
+puts "Start boolean operation ..."
+dchrono h reset; dchrono h start
+#
+# BOOLEAN OPERATION ----- START
+#
+for {set i 1} {$i <= ${NbTests}} {incr i} {
+ bopcut result
+}
+#
+# BOOLEAN OPERATION ----- FINISH
+#
+dchrono h stop; set CPU_time_List [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
+puts "Finish boolean operation ..."
+puts "CPU_user_time=${CPU_user_time}"
+set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
+puts "CPU_user_time=${CPU_user_time}"
+
+set square 3.00597e+07
+
+# Analysis of "nbshapes res"
+set nb_v_good 61
+set nb_e_good 87
+set nb_w_good 44
+set nb_f_good 36
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 231
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC10160"
+puts "============"
+puts ""
+#######################################################################
+# BOP perfomance improvemen
+#######################################################################
+
+set BugNumber OCC10160
+
+restore [locate_data_file OCC10160-1.brep] b1
+restore [locate_data_file OCC10160-3.brep] b2
+
+set NbTests 3
+
+puts "Prepare boolean operation ..."
+dchrono h0 reset; dchrono h0 start
+bop b1 b2
+dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
+puts "CPU_user_time0=${CPU_user_time0}"
+
+puts "Start boolean operation ..."
+dchrono h reset; dchrono h start
+#
+# BOOLEAN OPERATION ----- START
+#
+for {set i 1} {$i <= ${NbTests}} {incr i} {
+ boptuc result
+}
+#
+# BOOLEAN OPERATION ----- FINISH
+#
+dchrono h stop; set CPU_time_List [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
+puts "Finish boolean operation ..."
+puts "CPU_user_time=${CPU_user_time}"
+set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
+puts "CPU_user_time=${CPU_user_time}"
+
+set square 6.87093e+06
+
+# Analysis of "nbshapes res"
+set nb_v_good 113
+set nb_e_good 166
+set nb_w_good 59
+set nb_f_good 57
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 398
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10160"
+puts "============"
+puts ""
+#######################################################################
+# BOP perfomance improvemen
+#######################################################################
+
+set BugNumber OCC10160
+
+restore [locate_data_file OCC10160-2.brep] b1
+restore [locate_data_file OCC10160-3.brep] b2
+
+set NbTests 3
+
+puts "Prepare boolean operation ..."
+dchrono h0 reset; dchrono h0 start
+bop b1 b2
+dchrono h0 stop; set CPU_time0_List [dchrono h0 show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time0_List full CPU_user_time0
+puts "CPU_user_time0=${CPU_user_time0}"
+
+puts "Start boolean operation ..."
+dchrono h reset; dchrono h start
+#
+# BOOLEAN OPERATION ----- START
+#
+for {set i 1} {$i <= ${NbTests}} {incr i} {
+ bopcommon result
+}
+#
+# BOOLEAN OPERATION ----- FINISH
+#
+dchrono h stop; set CPU_time_List [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $CPU_time_List full CPU_user_time
+puts "Finish boolean operation ..."
+puts "CPU_user_time=${CPU_user_time}"
+set CPU_user_time [expr ${CPU_user_time} / ${NbTests}]
+puts "CPU_user_time=${CPU_user_time}"
+
+set square 4.86635e+06
+
+# Analysis of "nbshapes res"
+set nb_v_good 88
+set nb_e_good 131
+set nb_w_good 45
+set nb_f_good 45
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 312
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC10232"
+puts "============"
+puts ""
+#######################################################################
+# Exception "Segmentation violation" in Boolean Operations
+#######################################################################
+
+set BugNumber OCC10232
+
+puts "Load first shape ..."
+restore [locate_data_file OCC10232_ms1.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC10232_ms2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 3210.71
+
+set nb_v_good 1197
+set nb_e_good 1182
+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 2380
+
+set 2dviewer 1
+
--- /dev/null
+
+puts "================"
+puts "BUC60803"
+puts "OCC102"
+puts "================"
+puts ""
+
+restore [locate_data_file buc60803a.brep] sh1
+checkshape sh1
+restore [locate_data_file buc60803b.brep] sh2
+checkshape sh2
+
+bfuse result sh1 sh2
+
+set square 1.86064e+07
+set 2dviewer 0
+
+
+
--- /dev/null
+
+puts "================"
+puts "BUC60803"
+puts "OCC102"
+puts "================"
+puts ""
+
+restore [locate_data_file buc60803a.brep] sh1
+checkshape sh1
+restore [locate_data_file buc60803b.brep] sh2
+checkshape sh2
+
+bfuse result sh2 sh1
+
+set square 1.86064e+07
+set 2dviewer 0
+
+
--- /dev/null
+puts "============"
+puts "OCC10435"
+puts "============"
+puts ""
+#######################################################################
+# error in fillet after Cut of torus from box
+#######################################################################
+
+set BugNumber OCC10435
+
+restore [locate_data_file OCC10435.brep] a
+
+checkshape a
+explode a e
+
+set radius 5.
+
+if { [catch {fillet result a ${radius} a_10 ${radius} a_15 ${radius} a_16 } catch_result] } {
+ puts "Faulty ${BugNumber} exception (case 1): Fillet operation fails on given shape "
+} else {
+ puts "${BugNumber} (case 1) OK: Fillet operation was made"
+
+ set square 36455.2
+
+ # Analysis of "nbshapes res"
+ set nb_v_good 12
+ set nb_e_good 19
+ set nb_w_good 11
+ 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 55
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC10435"
+puts "============"
+puts ""
+#######################################################################
+# error in fillet after Cut of torus from box
+#######################################################################
+
+set BugNumber OCC10435
+
+puts "Load shape ..."
+restore [locate_data_file OCC10435.brep] b1
+
+explode b1 e
+
+puts "Start fillet ..."
+fillet result b1 5 b1_15 5 b1_16 5 b1_10
+puts "Finish fillet ..."
+
+set square 36455.2
+
+# Analysis of "nbshapes res"
+set nb_v_good 12
+set nb_e_good 19
+set nb_w_good 11
+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 55
+
+set 2dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC10605"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10605
+
+restore [locate_data_file OCC10605-1.brep] b1
+restore [locate_data_file OCC10605-3.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set square 233.798
+
+# Analysis of "nbshapes res"
+set nb_v_good 10
+set nb_e_good 15
+set nb_w_good 7
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 42
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10605"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10605
+
+restore [locate_data_file OCC10605-1.brep] b1
+restore [locate_data_file OCC10605-3.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 838.752
+
+# Analysis of "nbshapes res"
+set nb_v_good 15
+set nb_e_good 22
+set nb_w_good 10
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 59
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10605"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10605
+
+restore [locate_data_file OCC10605-1.brep] b1
+restore [locate_data_file OCC10605-3.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 779.887
+
+# Analysis of "nbshapes res"
+set nb_v_good 13
+set nb_e_good 19
+set nb_w_good 8
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 50
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10605"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10605
+
+restore [locate_data_file OCC10605-1.brep] b1
+restore [locate_data_file OCC10605-3.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+boptuc result
+puts "Finish boolean operation ..."
+
+set square 292.663
+
+# Analysis of "nbshapes res"
+set nb_v_good 12
+set nb_e_good 18
+set nb_w_good 9
+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 53
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10605"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10605
+
+restore [locate_data_file OCC10605-1.brep] b1
+restore [locate_data_file OCC10605-3.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result b1 b2
+puts "Finish boolean operation ..."
+
+set length 59.8334
+# Analysis of "nbshapes res"
+set nb_v_good 9
+set nb_e_good 9
+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 19
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10606"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10606
+
+restore [locate_data_file OCC10604-1.brep] b1
+restore [locate_data_file OCC10606-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set square 66.672
+
+# Analysis of "nbshapes res"
+set nb_v_good 6
+set nb_e_good 8
+set nb_w_good 2
+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 21
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10606"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10606
+
+restore [locate_data_file OCC10604-1.brep] b1
+restore [locate_data_file OCC10606-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 1450.22
+
+# Analysis of "nbshapes res"
+set nb_v_good 6
+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 1
+set nb_shape_good 25
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10606"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10606
+
+restore [locate_data_file OCC10604-1.brep] b1
+restore [locate_data_file OCC10606-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 761.355
+
+# Analysis of "nbshapes res"
+set nb_v_good 6
+set nb_e_good 8
+set nb_w_good 3
+set nb_f_good 3
+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 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10606"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10606
+
+restore [locate_data_file OCC10604-1.brep] b1
+restore [locate_data_file OCC10606-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+boptuc result
+puts "Finish boolean operation ..."
+
+set square 755.54
+
+# Analysis of "nbshapes res"
+set nb_v_good 6
+set nb_e_good 8
+set nb_w_good 3
+set nb_f_good 3
+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 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10606"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10606
+
+restore [locate_data_file OCC10604-1.brep] b1
+restore [locate_data_file OCC10606-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result b1 b2
+puts "Finish boolean operation ..."
+
+set length 18.3861
+
+# Analysis of "nbshapes res"
+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 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC1077"
+puts "============"
+puts ""
+######################################################
+# BUG in boolean operations in the development version
+######################################################
+
+if { [catch { OCC1077 result } catch_result] } {
+ puts "Faulty OCC1077"
+}
+
+set square 587.181
+set 3dviewer 1
--- /dev/null
+
+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
+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
+
--- /dev/null
+puts "TODO OCC111111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC10842"
+puts "============"
+puts ""
+#######################################################################
+# Bug in Bop
+#######################################################################
+
+set BugNumber OCC10842
+
+restore [locate_data_file OCC10842-1.brep] b1
+restore [locate_data_file OCC10842-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set square 2312.93
+
+# Analysis of "nbshapes res"
+set nb_v_good 7
+set nb_e_good 9
+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 27
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC111111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC10842"
+puts "============"
+puts ""
+#######################################################################
+# Bug in Bop
+#######################################################################
+
+set BugNumber OCC10842
+
+restore [locate_data_file OCC10842-1.brep] b1
+restore [locate_data_file OCC10842-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 27919.7
+
+# Analysis of "nbshapes res"
+set nb_v_good 15
+set nb_e_good 21
+set nb_w_good 7
+set nb_f_good 6
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 52
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC111111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC10842"
+puts "============"
+puts ""
+#######################################################################
+# Bug in Bop
+#######################################################################
+
+set BugNumber OCC10842
+
+restore [locate_data_file OCC10842-1.brep] b1
+restore [locate_data_file OCC10842-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 18757.7
+
+# Analysis of "nbshapes res"
+set nb_v_good 13
+set nb_e_good 18
+set nb_w_good 6
+set nb_f_good 6
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 46
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC111111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC10842"
+puts "============"
+puts ""
+#######################################################################
+# Bug in Bop
+#######################################################################
+
+set BugNumber OCC10842
+
+restore [locate_data_file OCC10842-1.brep] b1
+restore [locate_data_file OCC10842-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+boptuc result
+puts "Finish boolean operation ..."
+
+set square 11475
+
+# Analysis of "nbshapes res"
+set nb_v_good 9
+set nb_e_good 12
+set nb_w_good 5
+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 33
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10842"
+puts "============"
+puts ""
+#######################################################################
+# Bug in Bop
+#######################################################################
+
+set BugNumber OCC10842
+
+restore [locate_data_file OCC10842-1.brep] b1
+restore [locate_data_file OCC10842-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result b1 b2
+puts "Finish boolean operation ..."
+
+set length 122.816
+
+# Analysis of "nbshapes res"
+set nb_v_good 6
+set nb_e_good 6
+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 13
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10846"
+puts "============"
+puts ""
+#######################################################################
+# Cut operation produces invalid result
+#######################################################################
+
+set BugNumber OCC10846
+
+restore [locate_data_file bug10846_solid1.brep] b1
+restore [locate_data_file bug10846_solid2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set square 183.567
+
+# Analysis of "nbshapes res"
+set nb_v_good 18
+set nb_e_good 31
+set nb_w_good 19
+set nb_f_good 19
+set nb_sh_good 6
+set nb_sol_good 6
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 100
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10846"
+puts "============"
+puts ""
+#######################################################################
+# Cut operation produces invalid result
+#######################################################################
+
+set BugNumber OCC10846
+
+restore [locate_data_file bug10846_solid1.brep] b1
+restore [locate_data_file bug10846_solid2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 2309.97
+
+# Analysis of "nbshapes res"
+set nb_v_good 25
+set nb_e_good 45
+set nb_w_good 15
+set nb_f_good 15
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 103
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10846"
+puts "============"
+puts ""
+#######################################################################
+# Cut operation produces invalid result
+#######################################################################
+
+set BugNumber OCC10846
+
+restore [locate_data_file bug10846_solid1.brep] b1
+restore [locate_data_file bug10846_solid2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 510.907
+
+# Analysis of "nbshapes res"
+set nb_v_good 24
+set nb_e_good 43
+set nb_w_good 20
+set nb_f_good 20
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 110
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10846"
+puts "============"
+puts ""
+#######################################################################
+# Cut operation produces invalid result
+#######################################################################
+
+set BugNumber OCC10846
+
+restore [locate_data_file bug10846_solid1.brep] b1
+restore [locate_data_file bug10846_solid2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+boptuc result
+puts "Finish boolean operation ..."
+
+set square 1982.63
+
+# Analysis of "nbshapes res"
+set nb_v_good 19
+set nb_e_good 33
+set nb_w_good 14
+set nb_f_good 14
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 83
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10846"
+puts "============"
+puts ""
+#######################################################################
+# Cut operation produces invalid result
+#######################################################################
+
+set BugNumber OCC10846
+
+restore [locate_data_file bug10846_solid1.brep] b1
+restore [locate_data_file bug10846_solid2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result b1 b2
+puts "Finish boolean operation ..."
+
+set length 94.4534
+set 2dviewer 0
--- /dev/null
+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
+
+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 only_screen 1
+
--- /dev/null
+
+puts "========================"
+puts " BUC60706 "
+puts " OCC110 "
+puts "(cases 1-3)"
+puts "========================"
+
+restore [locate_data_file buc60706a.brep] f
+checkshape f
+
+restore [locate_data_file buc60706b.brep] w
+checkshape w
+pipe t w f
+
+restore [locate_data_file buc60706c.brep] s
+checkshape s
+
+bcut res_1 s t
+checkshape res_1
+
+restore [locate_data_file buc60706d.brep] f
+checkshape f
+
+restore [locate_data_file buc60706e.brep] w
+checkshape w
+pipe t w f
+
+bcut res_2 res_1 t
+checkshape res_2
+
+restore [locate_data_file buc60706g.brep] f
+checkshape f
+
+restore [locate_data_file buc60706h.brep] w
+checkshape w
+pipe t w f
+
+bcut result res_2 t
+
+set square 865172
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " BUC60706 "
+puts " OCC110 "
+puts "(case 4-6)"
+puts "========================"
+
+restore [locate_data_file buc60706j.brep] f
+checkshape f
+
+restore [locate_data_file buc60706b.brep] w
+checkshape w
+pipe t w f
+
+restore [locate_data_file buc60706l.brep] s
+checkshape s
+
+bcut res_1 s t
+checkshape res_1
+
+restore [locate_data_file buc60706m.brep] f
+checkshape f
+
+restore [locate_data_file buc60706e.brep] w
+checkshape w
+pipe t w f
+
+bcut res_2 res_1 t
+checkshape res_2
+
+restore [locate_data_file buc60706p.brep] f
+checkshape f
+
+restore [locate_data_file buc60706h.brep] w
+checkshape w
+pipe t w f
+
+bcut result res_2 t
+
+set square 860752
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " BUC60706 "
+puts " OCC110 "
+puts "(case 7-9)"
+puts "========================"
+
+restore [locate_data_file buc60706s.brep] f
+checkshape f
+
+restore [locate_data_file buc60706b.brep] w
+checkshape w
+pipe t w f
+
+restore [locate_data_file buc60706l.brep] s
+checkshape s
+
+bcut res_1 s t
+checkshape res_1
+
+restore [locate_data_file buc60706v.brep] f
+checkshape f
+
+restore [locate_data_file buc60706e.brep] w
+checkshape w
+pipe t w f
+
+bcut res_2 res_1 t
+checkshape res_2
+
+restore [locate_data_file buc60706x.brep] f
+checkshape f
+
+restore [locate_data_file buc60706h.brep] w
+checkshape w
+pipe t w f
+
+bcut result res_2 t
+
+set square 861220
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC11565"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation "Cut" in 2d cannot cut the hole from the rectangle
+#######################################################################
+
+restore [locate_data_file OCC11565.brep] a
+explode a
+
+bop a_1 a_2
+bopcut result
+
+set square 28.6255
+set nb_v_good 12
+set nb_e_good 12
+set nb_w_good 2
+set nb_f_good 1
+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 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC11565"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation "Cut" in 2d cannot cut the hole from the rectangle
+#######################################################################
+
+restore [locate_data_file OCC11565.brep] a
+explode a
+
+bop a_1 a_3
+bopcut result
+
+set square 28.6438
+set nb_v_good 12
+set nb_e_good 12
+set nb_w_good 2
+set nb_f_good 1
+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 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC116"
+puts "================"
+puts ""
+#############################################
+## Creation of chamfer is impossible on attached shape.(SAM1201)
+#############################################
+
+restore [locate_data_file OCC116.brep] sh
+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 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC117"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC117.brep] sh
+explode sh
+checkshape sh_1
+checkshape sh_2
+
+bfuse result sh_1 sh_2
+
+set square 292297
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC117"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC117.brep] sh
+explode sh
+checkshape sh_1
+checkshape sh_2
+
+bfuse result sh_2 sh_1
+
+set square 292297
+set 2dviewer 0
+
+
--- /dev/null
+puts "========"
+puts "OCC118"
+puts "========"
+########################################################
+## The Cone part of final fuse shape becomes invisible
+########################################################
+
+restore [locate_data_file OCC118-1.brep] a
+checkshape a
+restore [locate_data_file OCC118-2.brep] b
+checkshape b
+
+bop a b
+bopfuse result a b
+
+set square 4844.63
+set 2dviewer 0
--- /dev/null
+puts "========"
+puts "OCC118"
+puts "========"
+########################################################
+## The Cone part of final fuse shape becomes invisible
+########################################################
+
+restore [locate_data_file OCC118-1.brep] a
+checkshape a
+restore [locate_data_file OCC118-2.brep] b
+checkshape b
+
+bfuse result a b
+
+set square 4844.63
+set 3dviewer 1
+
--- /dev/null
+puts "========"
+puts "OCC118"
+puts "========"
+########################################################
+## The Cone part of final fuse shape becomes invisible
+########################################################
+
+restore [locate_data_file OCC118-1.brep] a
+checkshape a
+restore [locate_data_file OCC118-2.brep] b
+checkshape b
+
+bfuse result b a
+
+set square 4844.63
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC12213"
+puts "============"
+puts ""
+#######################################################################
+# Invalid sweep was created by command "buildsweep" in DRAW in case circular path
+#######################################################################
+
+set BugNumber OCC12213
+
+circle c1 0 0 0 100
+trim cc1 c1 0 3.14
+mkedge e2 cc1
+wire w2 e2
+
+box a 95 -10 -5 10 10 10
+explode a w
+explode a_4 e
+wire w21 a_4_1 a_4_2 a_4_3 a_4_4
+
+box b -110 -10 -5 20 10 10
+explode b w
+explode b_4 e
+wire w22 b_4_1 b_4_2 b_4_3 b_4_4
+
+explode w2 v
+
+mksweep w2
+addsweep w21 w2_1
+addsweep w22 w2_2
+buildsweep result
+
+set square 15708.8
+
+# Analysis of "nbshapes res"
+set nb_v_good 8
+set nb_e_good 12
+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 29
+
+set 2dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC12257"
+puts "============"
+puts ""
+#######################################################################
+# Fuse operation fails
+#######################################################################
+
+set BugNumber OCC12257
+
+puts "Load shape ..."
+restore [locate_data_file OCC12257.brep] b1
+
+explode b1
+
+puts "Prepare boolean operation ..."
+bop b1_1 b1_2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 3394.17
+
+# Analysis of "nbshapes res"
+set nb_v_good 72
+set nb_e_good 109
+set nb_w_good 39
+set nb_f_good 39
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 262
+
+set 2dviewer 1
+
--- /dev/null
+puts "================"
+puts "OCC1226"
+puts "The revolution problem reproduced in OCC Samples"
+puts "================"
+puts ""
+
+vertex v1 0 0 0
+vertex v2 50 0 0
+vertex v3 50 50 0
+
+edge e1 v1 v2
+edge e2 v2 v3
+edge e3 v3 v1
+
+wire w e1 e2 e3
+
+mkplane f w
+
+revol result f 0 0 30 0 1 0 180
+
+set square 23211.3
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "================"
+puts "OCC122"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC122.brep] sh
+explode sh
+
+checkshape sh_1
+checkshape sh_2
+
+bfuse result sh_1 sh_2
+
+set square 172790
+set 2dviewer 0
+
--- /dev/null
+puts "================"
+puts "OCC122"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC122.brep] sh
+explode sh
+
+checkshape sh_1
+checkshape sh_2
+
+bfuse result sh_2 sh_1
+
+set square 172790
+set 2dviewer 0
+
--- /dev/null
+puts "================"
+puts "OCC122"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC122.brep] sh
+explode sh
+
+checkshape sh_1
+checkshape sh_2
+
+bcut result sh_1 sh_2
+
+set square 83334.1
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC122"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC122.brep] sh
+explode sh
+
+checkshape sh_1
+checkshape sh_2
+
+bcut result sh_2 sh_1
+
+set square 132943
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC123"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC123.brep] sh
+checkshape sh
+
+explode sh
+
+bfuse result sh_1 sh_2
+
+set square 81598.4
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "================"
+puts "OCC123"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC123.brep] sh
+checkshape sh
+
+explode sh
+
+bfuse result sh_2 sh_1
+
+set square 81598.4
+set 2dviewer 0
+
+
+
--- /dev/null
+puts "================"
+puts "OCC1243"
+puts "================"
+puts "Bad solid created from face with command 'revol'"
+puts ""
+
+restore [locate_data_file OCC1243-1.brep] f1
+checkshape f1
+
+revol result f1 -5000.0 0.0 0.0 10000.0 0.0 0.0 360.0
+
+set tolerance [maxtolerance result]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
+
+set max_tolerance 1.00000e-06
+
+if { ${MaxFaceTolerance} > ${max_tolerance} || ${MaxEdgeTolerance} > ${max_tolerance} || ${MaxVertexTolerance} > ${max_tolerance} } {
+ puts "OCC1243 - Error"
+} else {
+ puts "OCC1243 - OK"
+}
+
+set square 350733
+set 2dviewer 0
--- /dev/null
+puts "================"
+puts "OCC1243"
+puts "================"
+puts "Bad solid created from face with command 'revol'"
+puts ""
+
+restore [locate_data_file OCC1243-2.brep] f1
+checkshape f1
+
+revol result f1 -5000.0 0.0 0.0 10000.0 0.0 0.0 360.0
+
+set tolerance [maxtolerance result]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
+
+set max_tolerance 1.00000e-06
+
+if { ${MaxFaceTolerance} > ${max_tolerance} || ${MaxEdgeTolerance} > ${max_tolerance} || ${MaxVertexTolerance} > ${max_tolerance} } {
+ puts "OCC1243 - Error"
+} else {
+ puts "OCC1243 - OK"
+}
+
+set square 3.06024e+06
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC12507"
+puts "============"
+puts ""
+#######################################################################
+# Wrong result of fuse operation
+#######################################################################
+
+puts "First shape ..."
+pcylinder c 3 3
+explode c e
+
+puts "Second shape ..."
+tcopy c_3 e3
+ttranslate e3 0 6 0
+
+bop c_3 e3
+bopfuse result
+
+set nb_v_good 3
+set nb_e_good 4
+set nb_w_good 1
+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 2dviewer 0
--- /dev/null
+puts "================"
+puts "OCC1255"
+puts "================"
+puts ""
+# Exception in command 'section'
+
+restore [locate_data_file OCC1255.brep] a
+checkshape a
+
+plane p1 0 -36.8067 0 0 1 0
+mkface f1 p1
+
+bsection result a f1
+
+set length 5534.74
+set 2dviewer 0
--- /dev/null
+puts "========="
+puts " OCC1255 "
+puts "========="
+puts ""
+###############################################
+## Exception in command 'section'
+# (This script tests new topology)
+###############################################
+
+restore [locate_data_file OCC1255.brep] a
+checkshape a
+
+plane p1 0 -36.8067 0 0 1 0
+mkface f1 p1
+
+if { [catch {bop a f1 } ] } {
+ puts "Faulty OCC1255: BOP operation was made wrongly"
+} else {
+ bopsection result
+}
+
+set length 5383.42
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC12627"
+puts "============"
+puts ""
+#######################################################################
+# Classification of a point comparing to a face is incorrect
+#######################################################################
+
+set BugNumber OCC12627
+
+restore [locate_data_file OCC12627_1.brep] b1
+restore [locate_data_file OCC12627_2.brep] b2
+
+bop b1 b2
+bopfuse result
+
+set square 272295
+set nb_v_good 13
+set nb_e_good 20
+set nb_w_good 9
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 54
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "================"
+puts "OCC12661"
+puts "================"
+puts ""
+#######################################################################################
+# Wrong calculation of bnd box for edge if edge has polygon of triangulation
+#######################################################################################
+
+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 BugNumber OCC12661
+
+restore [locate_data_file OCC12661.brep] result
+set res [bounding result]
+
+set x1 [lindex ${res} 0]
+set y1 [lindex ${res} 1]
+set z1 [lindex ${res} 2]
+set x2 [lindex ${res} 3]
+set y2 [lindex ${res} 4]
+set z2 [lindex ${res} 5]
+
+set good_x1 -6.3659273065258741
+set good_y1 0.7051405053395956
+set good_z1 -2.5792617865186296
+set good_x2 6.3659273065258795
+set good_y2 7.6599592236605769
+set good_z2 3.0815250146676485
+
+set percent_max 0.1
+set status 0
+
+set x1_percent [GetPercent ${x1} ${good_x1}]
+set y1_percent [GetPercent ${y1} ${good_y1}]
+set z1_percent [GetPercent ${z1} ${good_z1}]
+set x2_percent [GetPercent ${x2} ${good_x2}]
+set y2_percent [GetPercent ${y2} ${good_y2}]
+set z2_percent [GetPercent ${z2} ${good_z2}]
+
+if {${x1_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : x1 is wrong"
+ set status 1
+}
+if {${y1_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : y1 is wrong"
+ set status 1
+}
+if {${z1_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : z1 is wrong"
+ set status 1
+}
+if {${x2_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : x2 is wrong"
+ set status 1
+}
+if {${y2_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : y2 is wrong"
+ set status 1
+}
+if {${z2_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : z2 is wrong"
+ set status 1
+}
+
+if { ${status} == 0 } {
+ puts "${BugNumber}: OK"
+} else {
+ puts "${BugNumber}: Faulty"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC12918"
+puts "============"
+puts ""
+#######################################################################
+# Boolean Operations failed
+#######################################################################
+
+set BugNumber OCC12918
+
+restore [locate_data_file OCC12918_1.brep] b1
+restore [locate_data_file OCC12918_2.brep] b2
+
+bop b1 b2
+bopfuse result
+
+set square 0.00240038
+set nb_v_good 24
+set nb_e_good 36
+set nb_w_good 14
+set nb_f_good 14
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 91
+
+set 2dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC13116"
+puts "============"
+puts ""
+#######################################################################
+# Boolean Operations produce faulty shape
+#######################################################################
+
+set BugNumber OCC13116
+
+restore [locate_data_file OCC13116_sh1.brep] b1
+restore [locate_data_file OCC13116_sh2.brep] b2
+
+bop b1 b2
+bopfuse result
+
+set square 438194
+set nb_v_good 21
+set nb_e_good 37
+set nb_w_good 16
+set nb_f_good 16
+set nb_sh_good 2
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 94
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC13116"
+puts "============"
+puts ""
+#######################################################################
+# Boolean Operations produce faulty shape
+#######################################################################
+
+restore [locate_data_file OCC13116_sh1.brep] b1
+restore [locate_data_file OCC13116_sh2.brep] b2
+
+bop b1 b2
+bopcommon result
+
+set square 3769.91
+set nb_v_good 3
+set nb_e_good 5
+set nb_w_good 2
+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 15
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC13116"
+puts "============"
+puts ""
+#######################################################################
+# Boolean Operations produce faulty shape
+#######################################################################
+
+restore [locate_data_file OCC13116_sh1.brep] b1
+restore [locate_data_file OCC13116_sh2.brep] b2
+
+bop b1 b2
+bopcut result
+
+set square 438194
+set nb_v_good 21
+set nb_e_good 34
+set nb_w_good 15
+set nb_f_good 15
+set nb_sh_good 2
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 89
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC13116"
+puts "============"
+puts ""
+#######################################################################
+# Boolean Operations produce faulty shape
+#######################################################################
+
+restore [locate_data_file OCC13116_sh1.brep] b1
+restore [locate_data_file OCC13116_sh2.brep] b2
+
+bop b1 b2
+boptuc result
+
+set square 3769.89
+set nb_v_good 3
+set nb_e_good 8
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 20
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC13140"
+puts "============"
+puts ""
+#######################################################################
+# Exception during creation pipe on from attached spine and profile
+#######################################################################
+
+restore [locate_data_file OCC13140_Spine.brep] Spine
+restore [locate_data_file OCC13140_Profile.brep] Profile
+
+pipe result Spine Profile
+
+set square 3.48689
+set good_vertex 2
+set good_edge 3
+set good_wire 1
+set good_face 1
+
+set explode_v_length [llength [explode result v] ]
+set explode_e_length [llength [explode result e] ]
+set explode_w_length [llength [explode result w] ]
+set explode_f_length [llength [explode result f] ]
+
+if { ${explode_v_length} != ${good_vertex} } {
+ puts "vertex: Faulty"
+} else {
+ puts "vertex: OK"
+}
+if { ${explode_e_length} != ${good_edge} } {
+ puts "edge: Faulty"
+} else {
+ puts "edge: OK"
+}
+if { ${explode_w_length} != ${good_wire} } {
+ puts "wire: Faulty"
+} else {
+ puts "wire: OK"
+}
+if { ${explode_f_length} != ${good_face} } {
+ puts "face: Faulty"
+} else {
+ puts "face: OK"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC13142"
+puts "============"
+puts ""
+#######################################################################
+# Exception is raised while performing boolean operations
+#######################################################################
+
+restore [locate_data_file OCC13142.brep] result
+
+vinit
+vdisplay result
+vfit
+vsetdispmode 1
+
+set square 513.007
+set nb_v_good 34
+set nb_e_good 66
+set nb_w_good 47
+set nb_f_good 42
+set nb_sh_good 9
+set nb_sol_good 9
+set nb_compsol_good 0
+set nb_compound_good 3
+set nb_shape_good 210
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC13186"
+puts "============"
+puts ""
+#######################################################################
+# Problem with Boolean operation
+# Bug is reprodused on Linux platform only
+#######################################################################
+
+restore [locate_data_file OCC13186_cutcyl11.brep] b1
+restore [locate_data_file OCC13186_sphere.brep] b2
+
+bop b1 b2
+bopcut result
+
+set square 42.5841
+set nb_v_good 19
+set nb_e_good 25
+set nb_w_good 12
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 66
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC13186"
+puts "============"
+puts ""
+#######################################################################
+# Problem with Boolean operation
+# Bug is reprodused on Linux platform only
+#######################################################################
+
+restore [locate_data_file OCC13186_cutcyl11.brep] b1
+restore [locate_data_file OCC13186_sphere.brep] b2
+
+bop b1 b2
+bopfuse result
+
+set square 85.6816
+set nb_v_good 21
+set nb_e_good 28
+set nb_w_good 13
+set nb_f_good 8
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 73
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC13186"
+puts "============"
+puts ""
+#######################################################################
+# Problem with Boolean operation
+# Bug is reprodused on Linux platform only
+#######################################################################
+
+restore [locate_data_file OCC13186_cutcyl11.brep] b1
+restore [locate_data_file OCC13186_sphere.brep] b2
+
+bop b1 b2
+bopcommon result
+
+set square 14.9648
+set nb_v_good 8
+set nb_e_good 11
+set nb_w_good 7
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 34
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC13186"
+puts "============"
+puts ""
+#######################################################################
+# Problem with Boolean operation
+# Bug is reprodused on Linux platform only
+#######################################################################
+
+restore [locate_data_file OCC13186_cutcyl11.brep] b1
+restore [locate_data_file OCC13186_sphere.brep] b2
+
+bop b1 b2
+boptuc result
+
+set square 58.0624
+set nb_v_good 10
+set nb_e_good 14
+set nb_w_good 8
+set nb_f_good 6
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 41
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC13209"
+puts "============"
+puts ""
+#######################################################################
+# Exception is raised while performing boolean operations
+#######################################################################
+
+restore [locate_data_file OCC13209_s1.brep] b1
+restore [locate_data_file OCC13209_s2.brep] b2
+
+bop b1 b2
+bopfuse result
+
+set square 17308.3
+set nb_v_good 13
+set nb_e_good 25
+set nb_w_good 13
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 66
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC13209"
+puts "============"
+puts ""
+#######################################################################
+# Exception is raised while performing boolean operations
+#######################################################################
+
+restore [locate_data_file OCC13209_s1.brep] b1
+restore [locate_data_file OCC13209_s2.brep] b2
+
+bop b1 b2
+bopcommon result
+
+set square 2990.42
+set nb_v_good 13
+set nb_e_good 23
+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 59
+
+set 2dviewer 0
+
+
+
+
--- /dev/null
+puts "============"
+puts "OCC13209"
+puts "============"
+puts ""
+#######################################################################
+# Exception is raised while performing boolean operations
+#######################################################################
+
+restore [locate_data_file OCC13209_s1.brep] b1
+restore [locate_data_file OCC13209_s2.brep] b2
+
+bop b1 b2
+bopcut result
+
+set square 17292.5
+set nb_v_good 13
+set nb_e_good 26
+set nb_w_good 12
+set nb_f_good 11
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 65
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC13209"
+puts "============"
+puts ""
+#######################################################################
+# Exception is raised while performing boolean operations
+#######################################################################
+
+restore [locate_data_file OCC13209_s1.brep] b1
+restore [locate_data_file OCC13209_s2.brep] b2
+
+bop b1 b2
+boptuc result
+
+set square 3006.19
+set nb_v_good 11
+set nb_e_good 18
+set nb_w_good 11
+set nb_f_good 11
+set nb_sh_good 3
+set nb_sol_good 3
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 58
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC13211"
+puts "============"
+puts ""
+#######################################################################
+# Wrong treatment of conical faces in BOP algorithm
+#######################################################################
+
+restore [locate_data_file OCC13211-f14.brep] b1
+restore [locate_data_file OCC13211-f24.brep] b2
+
+bop b1 b2
+bopsection result
+
+set length 37.7057
+set nb_v_good 5
+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 10
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC13211"
+puts "============"
+puts ""
+#######################################################################
+# Wrong treatment of conical faces in BOP algorithm
+#######################################################################
+
+restore [locate_data_file OCC13209_s1.brep] s1
+restore [locate_data_file OCC13209_s2.brep] s2
+
+bop s1 s2
+boptuc result
+
+set square 3006.19
+set nb_v_good 11
+set nb_e_good 18
+set nb_w_good 11
+set nb_f_good 11
+set nb_sh_good 3
+set nb_sol_good 3
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 58
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC13211"
+puts "============"
+puts ""
+#######################################################################
+# Wrong treatment of conical faces in BOP algorithm
+#######################################################################
+
+restore [locate_data_file OCC13209_s1.brep] s1
+restore [locate_data_file OCC13209_s2.brep] s2
+
+bop s1 s2
+bopsection result
+
+set length 228.699
+set nb_v_good 13
+set nb_e_good 15
+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 29
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC13211"
+puts "============"
+puts ""
+#######################################################################
+# Wrong treatment of conical faces in BOP algorithm
+#######################################################################
+
+set BugNumber OCC13211
+
+vertex v1 136.06, 187.51, 0.0
+vertex v2 136.06, 143.01, 0.0
+edge e1 v1 v2
+vertex v3 136.06, 143.01, 0.0
+vertex v4 128.08, 143.01, 0.0
+edge e2 v3 v4
+vertex v5 128.08, 143.01, 0.0
+vertex v6 127.88, 164.75, 0.0
+edge e3 v5 v6
+vertex v7 127.88, 164.75, 0.0
+vertex v8 116.11, 176.00, 0.0
+edge e4 v7 v8
+vertex v9 116.11, 176.00, 0.0
+vertex v10 136.06, 187.51, 0.0
+edge e5 v9 v10
+wire twire e1 e2 e3 e4 e5
+mkplane tface twire
+revol r1 tface 153.08, 143.01 0.0 1 0 0 360 1
+revol r2 tface 136.06, 68.01, 0.0 0 1 0 360 1
+
+bop r1 r2
+bopfuse result
+
+set square 17308.3
+set nb_v_good 13
+set nb_e_good 25
+set nb_w_good 13
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 66
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC13211"
+puts "============"
+puts ""
+#######################################################################
+# Wrong treatment of conical faces in BOP algorithm
+#######################################################################
+
+vertex v1 136.06, 187.51, 0.0
+vertex v2 136.06, 143.01, 0.0
+edge e1 v1 v2
+vertex v3 136.06, 143.01, 0.0
+vertex v4 128.08, 143.01, 0.0
+edge e2 v3 v4
+vertex v5 128.08, 143.01, 0.0
+vertex v6 127.88, 164.75, 0.0
+edge e3 v5 v6
+vertex v7 127.88, 164.75, 0.0
+vertex v8 116.11, 176.00, 0.0
+edge e4 v7 v8
+vertex v9 116.11, 176.00, 0.0
+vertex v10 136.06, 187.51, 0.0
+edge e5 v9 v10
+wire twire e1 e2 e3 e4 e5
+mkplane tface twire
+revol r1 tface 153.08, 143.01 0.0 1 0 0 360 1
+revol r2 tface 136.06, 68.01, 0.0 0 1 0 360 1
+
+bop r1 r2
+bopcommon result
+
+set square 2990.42
+set nb_v_good 13
+set nb_e_good 23
+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 59
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC13211"
+puts "============"
+puts ""
+#######################################################################
+# Wrong treatment of conical faces in BOP algorithm
+#######################################################################
+
+vertex v1 136.06, 187.51, 0.0
+vertex v2 136.06, 143.01, 0.0
+edge e1 v1 v2
+vertex v3 136.06, 143.01, 0.0
+vertex v4 128.08, 143.01, 0.0
+edge e2 v3 v4
+vertex v5 128.08, 143.01, 0.0
+vertex v6 127.88, 164.75, 0.0
+edge e3 v5 v6
+vertex v7 127.88, 164.75, 0.0
+vertex v8 116.11, 176.00, 0.0
+edge e4 v7 v8
+vertex v9 116.11, 176.00, 0.0
+vertex v10 136.06, 187.51, 0.0
+edge e5 v9 v10
+wire twire e1 e2 e3 e4 e5
+mkplane tface twire
+revol r1 tface 153.08, 143.01 0.0 1 0 0 360 1
+revol r2 tface 136.06, 68.01, 0.0 0 1 0 360 1
+
+bop r1 r2
+bopcut result
+
+set square 17292.5
+set nb_v_good 13
+set nb_e_good 26
+set nb_w_good 12
+set nb_f_good 11
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 65
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC13211"
+puts "============"
+puts ""
+#######################################################################
+# Wrong treatment of conical faces in BOP algorithm
+#######################################################################
+
+vertex v1 136.06, 187.51, 0.0
+vertex v2 136.06, 143.01, 0.0
+edge e1 v1 v2
+vertex v3 136.06, 143.01, 0.0
+vertex v4 128.08, 143.01, 0.0
+edge e2 v3 v4
+vertex v5 128.08, 143.01, 0.0
+vertex v6 127.88, 164.75, 0.0
+edge e3 v5 v6
+vertex v7 127.88, 164.75, 0.0
+vertex v8 116.11, 176.00, 0.0
+edge e4 v7 v8
+vertex v9 116.11, 176.00, 0.0
+vertex v10 136.06, 187.51, 0.0
+edge e5 v9 v10
+wire twire e1 e2 e3 e4 e5
+mkplane tface twire
+revol r1 tface 153.08, 143.01 0.0 1 0 0 360 1
+revol r2 tface 136.06, 68.01, 0.0 0 1 0 360 1
+
+bop r1 r2
+boptuc result
+
+set square 3006.19
+set nb_v_good 11
+set nb_e_good 18
+set nb_w_good 11
+set nb_f_good 11
+set nb_sh_good 3
+set nb_sol_good 3
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 58
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC13211"
+puts "============"
+puts ""
+#######################################################################
+# Wrong treatment of conical faces in BOP algorithm
+#######################################################################
+
+vertex v1 136.06, 187.51, 0.0
+vertex v2 136.06, 143.01, 0.0
+edge e1 v1 v2
+vertex v3 136.06, 143.01, 0.0
+vertex v4 128.08, 143.01, 0.0
+edge e2 v3 v4
+vertex v5 128.08, 143.01, 0.0
+vertex v6 127.88, 164.75, 0.0
+edge e3 v5 v6
+vertex v7 127.88, 164.75, 0.0
+vertex v8 116.11, 176.00, 0.0
+edge e4 v7 v8
+vertex v9 116.11, 176.00, 0.0
+vertex v10 136.06, 187.51, 0.0
+edge e5 v9 v10
+wire twire e1 e2 e3 e4 e5
+mkplane tface twire
+revol r1 tface 153.08, 143.01 0.0 1 0 0 360 1
+revol r2 tface 136.06, 68.01, 0.0 0 1 0 360 1
+
+bop r1 r2
+bopsection result
+
+set length 228.699
+set nb_v_good_vertex 13
+set nb_e_good_edge 15
+set nb_w_good_wire 0
+set nb_f_good_face 0
+set nb_sh_good_shell 0
+set nb_sol_good_solid 0
+set nb_compsol_good_compsolid 0
+set nb_compound_good_compound 1
+set nb_shape_good_shape 29
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC13211"
+puts "============"
+puts ""
+#######################################################################
+# Wrong treatment of conical faces in BOP algorithm
+#######################################################################
+
+restore [locate_data_file OCC13209_s1.brep] s1
+restore [locate_data_file OCC13209_s2.brep] s2
+
+bop s1 s2
+bopfuse result
+
+set square 17308.3
+set nb_v_good 13
+set nb_e_good 25
+set nb_w_good 13
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 66
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC13211"
+puts "============"
+puts ""
+#######################################################################
+# Wrong treatment of conical faces in BOP algorithm
+#######################################################################
+
+restore [locate_data_file OCC13209_s1.brep] s1
+restore [locate_data_file OCC13209_s2.brep] s2
+
+bop s1 s2
+bopcommon result
+
+set square 2990.42
+set nb_v_good 13
+set nb_e_good 23
+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 59
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC13211"
+puts "============"
+puts ""
+#######################################################################
+# Wrong treatment of conical faces in BOP algorithm
+#######################################################################
+
+restore [locate_data_file OCC13209_s1.brep] s1
+restore [locate_data_file OCC13209_s2.brep] s2
+
+bop s1 s2
+bopcut result
+
+set square 17292.5
+set nb_v_good 13
+set nb_e_good 26
+set nb_w_good 12
+set nb_f_good 11
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 65
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC13395"
+puts "============"
+puts ""
+#######################################################################
+# Pipe is constructed wrongly on a result of revolution
+#######################################################################
+
+# revolution of an edge to obtain half-disk
+line line1 0 0 0 1 0 0
+mkedge edge1 line1 0 10
+revol revol1 edge1 0 0 0 0 1 0 180
+
+# spine for pipe
+line line2 0 0 0 0 1 0
+mkedge edge2 line2 0 10
+wire wire_spine edge2
+
+# invalid pipe
+pipe result wire_spine revol1
+
+set square 828.319
+set good_vertex 6
+set good_edge 9
+set good_wire 5
+set good_face 5
+set explode_v_length [llength [explode result v] ]
+set explode_e_length [llength [explode result e] ]
+set explode_w_length [llength [explode result w] ]
+set explode_f_length [llength [explode result f] ]
+
+if { ${explode_v_length} != ${good_vertex} } {
+ puts "vertex: Faulty"
+} else {
+ puts "vertex: OK"
+}
+if { ${explode_e_length} != ${good_edge} } {
+ puts "edge: Faulty"
+} else {
+ puts "edge: OK"
+}
+if { ${explode_w_length} != ${good_wire} } {
+ puts "wire: Faulty"
+} else {
+ puts "wire: OK"
+}
+if { ${explode_f_length} != ${good_face} } {
+ puts "face: Faulty"
+} else {
+ puts "face: OK"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC13538"
+puts "============"
+puts ""
+#######################################################################
+# Problem with Boolean operation on Shells
+#######################################################################
+
+box a 100 100 100
+box b 100 100 100
+ttranslate b 0 0 100
+explode a Sh
+explode b Sh
+
+bop a_1 b_1
+bopcommon result
+
+set square 10000
+set nb_v_good 4
+set nb_e_good 4
+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 1
+set nb_shape_good 12
+
+set 2viewer 0
+
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC1360"
+puts "================"
+puts ""
+######################################################
+# Solid correctly displayed in shadding mode, but one tis faces itself has no prs
+######################################################
+
+pload XDE
+
+restore [locate_data_file OCC1360.brep] sh
+
+fixshape result sh 1e-7
+
+set square 407.599
+set 3dviewer 1
+
--- /dev/null
+
+puts "================"
+puts "OCC140"
+puts "================"
+puts ""
+#########################################################
+## Fillet is created incorrectly on attached shape.
+#########################################################
+
+restore [locate_data_file shading_137.brep] s
+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
--- /dev/null
+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
+checkshape a
+restore [locate_data_file buc60663b.brep] b
+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
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC14506"
+puts "============"
+puts ""
+#######################################################################
+# Wrong section of faces with bspline geometry
+#######################################################################
+
+restore [locate_data_file bug14506_face1.brep] face1
+restore [locate_data_file bug14506_face2.brep] face2
+
+bop face1 face2
+bopsection result
+
+set length 129.639
+set nb_v_good 2
+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 5
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC14536"
+puts "============"
+puts ""
+#######################################################################
+# Boolean Operation Algorithm failed
+#######################################################################
+
+restore [locate_data_file OCC14536-sh1.brep] s1
+restore [locate_data_file OCC14536-sh2.brep] s2
+
+bop s1 s2
+bopfuse result
+
+set square 330318
+set nb_v_good 7
+set nb_e_good 13
+set nb_w_good 6
+set nb_f_good 6
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 35
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC1456"
+puts "============"
+puts ""
+######################################################
+# Impossible to build mixed type fillets
+######################################################
+
+restore [locate_data_file OCC1456.brep] a
+
+checkshape a
+
+##############################################
+explode a w
+explode a_4 e
+mkevol result a
+updatevol a_4_1 0 5 0.5 20 1 5
+updatevol a_4_2 0 5
+updatevol a_4_3 0 5
+updatevol a_4_4 0 5 0.5 20 1 5
+updatevol a_4_5 0 5 0.5 20 1 5
+updatevol a_4_6 0 5
+updatevol a_4_7 0 5 0.5 20 1 5
+updatevol a_4_8 0 5
+
+if { [catch { buildevol } catch_result] } {
+ puts "Faulty OCC1456 (case 2)"
+}
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set square 3.21455e+06
+set only_screen 1
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "============"
+puts "OCC14643"
+puts "============"
+puts ""
+#######################################################################
+# Checkshape command gives wrong result for compound of 66 solids
+#######################################################################
+
+set BugNumber OCC14643
+
+restore [locate_data_file OCC14643.brep] result
+
+set square 8.63143e+07
+set nb_v_good 108
+set nb_e_good 282
+set nb_w_good 239
+set nb_f_good 259
+set nb_sh_good 66
+set nb_sol_good 66
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1021
+
+puts ""
+puts "Check each solid"
+explode result
+for {set k 1} {$k < 67} {incr k} {
+ puts ""
+ puts [eval whatis result_$k]
+ puts [eval checkshape result_$k]
+ wait .5
+}
+puts ""
+puts "End check each solid"
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC14777"
+puts "============"
+puts ""
+#######################################################################
+# Boolean Operation Algorithm failed
+#######################################################################
+
+restore [locate_data_file OCC14777-s1.brep] s1
+restore [locate_data_file OCC14777-s2.brep] s2
+
+bop s1 s2
+bopcut result
+
+set square 10653.3
+set nb_v_good 6
+set nb_e_good 9
+set nb_w_good 5
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 28
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC1477"
+puts "============"
+puts ""
+######################################################
+# Problems in MakePipeShell
+# (case 1)
+######################################################
+
+restore [locate_data_file OCC1477-1.brep] s1
+restore [locate_data_file OCC1477-2.brep] s2
+
+checkshape s1
+checkshape s2
+
+mksweep s1
+
+addsweep s2
+
+if { [catch {buildsweep result} catch_result] } {
+ puts "Faulty OCC1477"
+}
+
+set square 913238
+set 3dviewer 1
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC1477"
+puts "============"
+puts ""
+######################################################
+# Problems in MakePipeShell
+# (case 10)
+######################################################
+
+restore [locate_data_file OCC1477-1.brep] s1
+restore [locate_data_file OCC1477-2.brep] s2
+
+checkshape s1
+checkshape s2
+
+mksweep s1
+
+addsweep s2 -T 0 1 1 2 2 .5
+
+if { [catch {buildsweep result -C} catch_result] } {
+ puts "Faulty OCC1477"
+}
+
+set square 0
+set 3dviewer 1
+
--- /dev/null
+puts "TODO ?OCC11111 ALL: An exception was caught"
+puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: Faulty OCC1477"
+puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
+
+puts "============"
+puts "OCC1477"
+puts "============"
+puts ""
+######################################################
+# Problems in MakePipeShell
+# (case 11)
+######################################################
+
+restore [locate_data_file OCC1477-1.brep] s1
+restore [locate_data_file OCC1477-2.brep] s2
+
+checkshape s1
+checkshape s2
+
+mksweep s1
+
+addsweep s2 0 1 1 2 2 .5
+
+if { [catch {buildsweep result -R} catch_result] } {
+ puts "Faulty OCC1477"
+}
+
+set square 1.81647e+006
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC1477"
+puts "============"
+puts ""
+######################################################
+# Problems in MakePipeShell
+# (case 12)
+######################################################
+
+restore [locate_data_file OCC1477-1.brep] s1
+restore [locate_data_file OCC1477-2.brep] s2
+
+checkshape s1
+checkshape s2
+
+mksweep s1
+
+addsweep s2 -T 0 1 1 2 2 .5
+
+if { [catch {buildsweep result -R} catch_result] } {
+ puts "Faulty OCC1477"
+}
+
+set good_square 1.99019e+06
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC1477"
+puts "============"
+puts ""
+######################################################
+# Problems in MakePipeShell
+# (case 2)
+######################################################
+
+restore [locate_data_file OCC1477-1.brep] s1
+restore [locate_data_file OCC1477-2.brep] s2
+
+checkshape s1
+checkshape s2
+
+mksweep s1
+
+addsweep s2 -T
+
+if { [catch {buildsweep result} catch_result] } {
+ puts "Faulty OCC1477"
+}
+
+set square 913238
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC1477"
+puts "============"
+puts ""
+######################################################
+# Problems in MakePipeShell
+# (case 3)
+######################################################
+
+restore [locate_data_file OCC1477-1.brep] s1
+restore [locate_data_file OCC1477-2.brep] s2
+
+checkshape s1
+checkshape s2
+
+mksweep s1
+
+addsweep s2
+
+if { [catch {buildsweep result -C} catch_result] } {
+ puts "Faulty OCC1477"
+}
+
+set square 1.02648e+06
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC1477"
+puts "============"
+puts ""
+######################################################
+# Problems in MakePipeShell
+# (case 4)
+######################################################
+
+restore [locate_data_file OCC1477-1.brep] s1
+restore [locate_data_file OCC1477-2.brep] s2
+
+checkshape s1
+checkshape s2
+
+mksweep s1
+
+addsweep s2 -T
+
+if { [catch {buildsweep result -C} catch_result] } {
+ puts "Faulty OCC1477"
+}
+
+set square 1.11707e+06
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC1477"
+puts "============"
+puts ""
+######################################################
+# Problems in MakePipeShell
+# (case 5)
+######################################################
+
+restore [locate_data_file OCC1477-1.brep] s1
+restore [locate_data_file OCC1477-2.brep] s2
+
+checkshape s1
+checkshape s2
+
+mksweep s1
+
+addsweep s2
+
+if { [catch {buildsweep result -R} catch_result] } {
+ puts "Faulty OCC1477"
+}
+
+set square 1.02342e+06
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC1477"
+puts "============"
+puts ""
+######################################################
+# Problems in MakePipeShell
+# (case 6)
+######################################################
+
+restore [locate_data_file OCC1477-1.brep] s1
+restore [locate_data_file OCC1477-2.brep] s2
+
+checkshape s1
+checkshape s2
+
+mksweep s1
+
+addsweep s2 -T
+
+if { [catch {buildsweep result -R} catch_result] } {
+ puts "Faulty OCC1477"
+}
+
+set square 1.10891e+06
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC1477"
+puts "============"
+puts ""
+######################################################
+# Problems in MakePipeShell
+# (case 7)
+######################################################
+
+restore [locate_data_file OCC1477-1.brep] s1
+restore [locate_data_file OCC1477-2.brep] s2
+
+checkshape s1
+checkshape s2
+
+mksweep s1
+
+addsweep s2 0 1 1 2 2 .5
+
+if { [catch {buildsweep result} catch_result] } {
+ puts "Faulty OCC1477"
+}
+
+set square 1.49907e+06
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC1477"
+puts "============"
+puts ""
+######################################################
+# Problems in MakePipeShell
+# (case 8)
+######################################################
+
+restore [locate_data_file OCC1477-1.brep] s1
+restore [locate_data_file OCC1477-2.brep] s2
+
+checkshape s1
+checkshape s2
+
+mksweep s1
+
+addsweep s2 -T 0 1 1 2 2 .5
+
+if { [catch {buildsweep result} catch_result] } {
+ puts "Faulty OCC1477"
+}
+
+set square 1.56786e+06
+set 3dviewer 1
+
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC1477"
+puts "============"
+puts ""
+######################################################
+# Problems in MakePipeShell
+# (case 9)
+######################################################
+
+restore [locate_data_file OCC1477-1.brep] s1
+restore [locate_data_file OCC1477-2.brep] s2
+
+checkshape s1
+checkshape s2
+
+mksweep s1
+
+addsweep s2 0 1 1 2 2 .5
+
+if { [catch {buildsweep result -C} catch_result] } {
+ puts "Faulty OCC1477"
+}
+
+set square 0
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC14780"
+puts "============"
+puts ""
+######################################################
+# Boolean operations (section, fuse, common, cut) give incorrect result
+######################################################
+
+set BugNumber OCC14780
+
+restore [locate_data_file OCC14780_part1.brep] s1
+restore [locate_data_file OCC14780_part2.brep] s2
+
+bop s1 s2
+bopsection result
+
+regexp {nb alone Vertices +: +([-0-9.+eE]+)} [checksection result] full Vertices
+
+set good_Vertices 0
+if { ${Vertices} != ${good_Vertices} } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set length 171.289
+set 2dviewer 0
+
+
--- /dev/null
+puts "============"
+puts "OCC15936"
+puts "============"
+puts ""
+#######################################################################
+# Wrong shape build by revolution algorithm
+#######################################################################
+
+vertex v1 0 725 20
+vertex v2 0 709 20
+vertex v3 0 709 230
+vertex v4 0 645 230
+vertex v5 0 645 320
+vertex v6 0 805 320
+vertex v7 0 805 230
+vertex v8 0 741 230
+vertex v9 0 741 20
+edge e12 v1 v2
+edge e23 v2 v3
+edge e34 v3 v4
+edge e45 v4 v5
+edge e56 v5 v6
+edge e67 v6 v7
+edge e78 v7 v8
+edge e89 v8 v9
+edge e91 v9 v1
+wire w e12 e23 e34 e45 e56 e67 e78 e89 e91
+mkplane fr w 1
+
+revol result fr 0.001428571428572667 640.5285714285715 20 -1.691188905560395E-05 0.9999999998569939 0 360
+
+set square 1.03597e+06
+set nb_v_good 9
+set nb_e_good 14
+set nb_w_good 13
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 47
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC15836"
+puts "============"
+puts ""
+#######################################################################
+# Wrong visualization of filleted shape on IRIX32 platform
+#######################################################################
+
+restore [locate_data_file OCC15836.brep] f
+explode f e
+
+fillet result f 10 f_8 15 f_9 20 f_11 25 f_17 30 f_21 35 f_29
+
+set square 42816.6
+set nb_v_good 31
+set nb_e_good 50
+set nb_w_good 21
+set nb_f_good 21
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 126
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC15850"
+puts "============"
+puts ""
+#######################################################################
+# Regression in BOP - wrong results for simple shapes with Bspline geometry
+#######################################################################
+
+restore [locate_data_file OCC15850_bb.brep] bb
+restore [locate_data_file OCC15850_bc.brep] bc
+
+bop bb bc
+bopcut result
+
+set square 732.453
+set nb_v_good 12
+set nb_e_good 17
+set nb_w_good 9
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 48
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC15850"
+puts "============"
+puts ""
+#######################################################################
+# Regression in BOP - wrong results for simple shapes with Bspline geometry
+#######################################################################
+
+restore [locate_data_file OCC15850_bb.brep] bb
+restore [locate_data_file OCC15850_bc.brep] bc
+
+bop bb bc
+boptuc result
+
+set square 301.996
+set nb_v_good 6
+set nb_e_good 8
+set nb_w_good 6
+set nb_f_good 6
+set nb_sh_good 2
+set nb_sol_good 2
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 31
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC15850"
+puts "============"
+puts ""
+#######################################################################
+# Regression in BOP - wrong results for simple shapes with Bspline geometry
+#######################################################################
+
+restore [locate_data_file OCC15850_bb.brep] bb
+restore [locate_data_file OCC15850_bc.brep] bc
+
+bop bb bc
+bopcommon result
+
+set square 245.55
+set nb_v_good 4
+set nb_e_good 5
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 18
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC15850"
+puts "============"
+puts ""
+#######################################################################
+# Regression in BOP - wrong results for simple shapes with Bspline geometry
+#######################################################################
+
+restore [locate_data_file OCC15850_bb.brep] bb
+restore [locate_data_file OCC15850_bc.brep] bc
+
+bop bb bc
+bopfuse result
+
+set square 788.9
+set nb_v_good 14
+set nb_e_good 20
+set nb_w_good 12
+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 59
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC15850"
+puts "============"
+puts ""
+#######################################################################
+# Regression in BOP - wrong results for simple shapes with Bspline geometry
+#######################################################################
+
+set BugNumber OCC15850
+
+restore [locate_data_file OCC15850_bb.brep] bb
+restore [locate_data_file OCC15850_bc.brep] bc
+
+bop bb bc
+bopsection result
+
+set length 37.6991
+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
+
+regexp {nb alone Vertices +: +([-0-9.+eE]+)} [checksection result] full Vertices
+set good_Vertices 0
+if { ${Vertices} != ${good_Vertices} } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC15943"
+puts "============"
+puts ""
+#######################################################################
+# Wrong result of boolen fuse
+#######################################################################
+
+restore [locate_data_file OCC15943_p1.brep] b1
+restore [locate_data_file OCC15943_p2.brep] b2
+
+bop b1 b2
+bopfuse result
+
+set square 266944
+set nb_v_good 12
+set nb_e_good 20
+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 55
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC15968"
+puts "============"
+puts ""
+#######################################################################
+# Result of checkshape command depends on order of subshapes in a shape
+#######################################################################
+
+restore [locate_data_file OCC15968.brep] s
+
+explode s f
+
+# shell 1
+shape s1 sh
+add s_2 s1
+add s_1 s1
+renamevar s1 result
+
+set square 164
+set nb_v_good 10
+set nb_e_good 11
+set nb_w_good 3
+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 27
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC15968"
+puts "============"
+puts ""
+#######################################################################
+# Result of checkshape command depends on order of subshapes in a shape
+#######################################################################
+
+restore [locate_data_file OCC15968.brep] s
+
+explode s f
+
+# shell 2
+shape s2 sh
+add s_1 s2
+add s_2 s2
+renamevar s2 result
+
+set square 164
+set nb_v_good 10
+set nb_e_good 11
+set nb_w_good 3
+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 27
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC16517"
+puts "============"
+puts ""
+#######################################################################
+# Cylindrical projection is wrong
+#######################################################################
+
+set BugNumber OCC16517
+
+restore [locate_data_file OCC16517_c.brep] c
+restore [locate_data_file OCC16517_s.brep] s
+
+set Result_List [prj p c s 0 0 1]
+set Result_Numbers [llength ${Result_List}]
+set mistake 0
+if { ${Result_Numbers} != 2 } {
+ puts "Faulty ${BugNumber} : projection numbers are wrong"
+ set mistake 1
+} else {
+ puts "First projection ..."
+ renamevar p_1 result
+
+ set status 0
+ set length 110.167
+ set nb_v_good 1
+ set nb_e_good 1
+ set nb_w_good 1
+ set nb_f_good 0
+ set nb_sh_good 0
+ set nb_sol_good 0
+ set nb_compsol_good 0
+ set nb_compound_good 0
+ set nb_shape_good 3
+}
+
+if { ${mistake} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC16517"
+puts "============"
+puts ""
+#######################################################################
+# Cylindrical projection is wrong
+#######################################################################
+
+set BugNumber OCC16517
+
+restore [locate_data_file OCC16517_c.brep] c
+restore [locate_data_file OCC16517_s.brep] s
+
+set Result_List [prj p c s 0 0 1]
+set Result_Numbers [llength ${Result_List}]
+set mistake 0
+if { ${Result_Numbers} != 2 } {
+ puts "Faulty ${BugNumber} : projection numbers are wrong"
+ set mistake 1
+} else {
+ puts "Second projection ..."
+ renamevar p_2 result
+ set status 0
+
+ set length 110.167
+ set nb_v_good 1
+ set nb_e_good 1
+ set nb_w_good 1
+ set nb_f_good 0
+ set nb_sh_good 0
+ set nb_sol_good 0
+ set nb_compsol_good 0
+ set nb_compound_good 0
+ set nb_shape_good 3
+}
+
+# Resume
+puts ""
+if { ${mistake} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC11111 ALL: An exception was caught"
+puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: Faulty OCC165"
+puts "TODO OCC11111 ALL: Error : The length of result shape is"
+
+cpulimit 600
+
+puts "========"
+puts "OCC165"
+puts "========"
+puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
+
+
+dchrono h reset
+dchrono h start
+
+restore [locate_data_file offset_wire_019.brep] a
+checkshape a
+
+mkplane f a
+checkshape f
+
+set start_stepoffset -5.7
+set incr_stepoffset 0.1
+set finish_stepoffset -2.8
+
+set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1]
+
+set IsMade 0
+set IsBeginMade 0
+set IsGood 1
+set i 0
+set resume_string ""
+for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} {
+ incr i
+ puts "i = $i"
+ if { [catch {mkoffset result f 1 $stepoffset } catch_result] } {
+ puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly"
+ set IsGood 0
+ set IsMade 0
+ } else {
+ puts "OK OCC165 (stepoffset = $stepoffset)"
+ set IsMade 1
+ }
+ if {$IsBeginMade == 0 && $IsMade == 1} {
+ set IsBeginMade 1
+ set BeginStepOffset $stepoffset
+ }
+ if {$IsMade == 1} {
+ set FinishStepOffset $stepoffset
+ }
+
+ dchrono h show
+
+ if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } {
+ set IsBeginMade 0
+ set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n"
+ set resume_string "${resume_string}${resume_tmp}"
+ }
+}
+
+puts ""
+if {[string length $resume_string] == 0} {
+ puts "Offset is created wrongly on initial shape in following borders"
+ puts "from [format "%0.2f" $start_stepoffset] till [format "%0.2f" $finish_stepoffset]"
+} else {
+ puts "Offset is created correctly on initial shape in following borders"
+ puts "$resume_string"
+}
+
+if {$IsGood == 1} {
+ puts "OCC165 OK"
+} else {
+ puts "Faulty OCC165"
+}
+
+dchrono h stop
+dchrono h show
+
+renamevar result_1 result
+
+set length 0
+set 2dviewer 0
--- /dev/null
+cpulimit 600
+
+puts "========"
+puts "OCC165"
+puts "========"
+puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
+
+dchrono h reset
+dchrono h start
+
+restore [locate_data_file offset_wire_019.brep] a
+checkshape a
+
+mkplane f a
+checkshape f
+
+set start_stepoffset -2.6
+set incr_stepoffset 0.1
+set finish_stepoffset 0.0
+
+set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1]
+
+set IsMade 0
+set IsBeginMade 0
+set IsGood 1
+set i 0
+set resume_string ""
+for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} {
+ incr i
+ puts "i = $i"
+ if { [catch {mkoffset result f 1 $stepoffset } catch_result] } {
+ puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly"
+ set IsGood 0
+ set IsMade 0
+ } else {
+ puts "OK OCC165 (stepoffset = $stepoffset)"
+ set IsMade 1
+ }
+ if {$IsBeginMade == 0 && $IsMade == 1} {
+ set IsBeginMade 1
+ set BeginStepOffset $stepoffset
+ }
+ if {$IsMade == 1} {
+ set FinishStepOffset $stepoffset
+ }
+
+ dchrono h show
+
+ if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } {
+ set IsBeginMade 0
+ set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n"
+ set resume_string "${resume_string}${resume_tmp}"
+ }
+}
+
+puts ""
+if {[string length $resume_string] == 0} {
+ puts "Offset is created wrongly on initial shape in following borders"
+ puts "from [format "%0.2f" $start_stepoffset] till [format "%0.2f" $finish_stepoffset]"
+} else {
+ puts "Offset is created correctly on initial shape in following borders"
+ puts "$resume_string"
+}
+
+if {$IsGood == 1} {
+ puts "OCC165 OK"
+} else {
+ puts "Faulty OCC165"
+}
+
+dchrono h stop
+dchrono h show
+
+renamevar result_1 result
+
+set length 1081.52
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC11111 ALL: An exception was caught"
+puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: Faulty OCC165"
+puts "TODO ?OCC11111 ALL: Error : The length of result shape is"
+
+cpulimit 600
+
+puts "========"
+puts "OCC165"
+puts "========"
+puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
+
+
+dchrono h reset
+dchrono h start
+
+restore [locate_data_file offset_wire_019.brep] a
+checkshape a
+
+mkplane f a
+checkshape f
+
+set start_stepoffset 0.2
+set incr_stepoffset 0.1
+set finish_stepoffset 4.9
+
+set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1]
+
+set IsMade 0
+set IsBeginMade 0
+set IsGood 1
+set i 0
+set resume_string ""
+for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} {
+ incr i
+ puts "i = $i"
+ if { [catch {mkoffset result f 1 $stepoffset } catch_result] } {
+ puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly"
+ set IsGood 0
+ set IsMade 0
+ } else {
+ puts "OK OCC165 (stepoffset = $stepoffset)"
+ set IsMade 1
+ }
+ if {$IsBeginMade == 0 && $IsMade == 1} {
+ set IsBeginMade 1
+ set BeginStepOffset $stepoffset
+ }
+ if {$IsMade == 1} {
+ set FinishStepOffset $stepoffset
+ }
+
+ dchrono h show
+
+ if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } {
+ set IsBeginMade 0
+ set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n"
+ set resume_string "${resume_string}${resume_tmp}"
+ }
+}
+
+puts ""
+if {[string length $resume_string] == 0} {
+ puts "Offset is created wrongly on initial shape in following borders"
+ puts "from [format "%0.2f" $start_stepoffset] till [format "%0.2f" $finish_stepoffset]"
+} else {
+ puts "Offset is created correctly on initial shape in following borders"
+ puts "$resume_string"
+}
+
+if {$IsGood == 1} {
+ puts "OCC165 OK"
+} else {
+ puts "Faulty OCC165"
+}
+
+renamevar result_1 result
+
+set length 1112.83
+set 2dviewer 0
+
+dchrono h stop
+dchrono h show
--- /dev/null
+cpulimit 600
+
+puts "========"
+puts "OCC165"
+puts "========"
+puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
+
+dchrono h reset
+dchrono h start
+
+restore [locate_data_file offset_wire_019.brep] a
+checkshape a
+
+mkplane f a
+checkshape f
+
+set start_stepoffset 5.1
+set incr_stepoffset 0.1
+set finish_stepoffset 6.3
+
+set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1]
+
+set IsMade 0
+set IsBeginMade 0
+set IsGood 1
+set i 0
+set resume_string ""
+for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} {
+ incr i
+ puts "i = $i"
+ if { [catch {mkoffset result f 1 $stepoffset } catch_result] } {
+ puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly"
+ set IsGood 0
+ set IsMade 0
+ } else {
+ puts "OK OCC165 (stepoffset = $stepoffset)"
+ set IsMade 1
+ }
+ if {$IsBeginMade == 0 && $IsMade == 1} {
+ set IsBeginMade 1
+ set BeginStepOffset $stepoffset
+ }
+ if {$IsMade == 1} {
+ set FinishStepOffset $stepoffset
+ }
+
+ dchrono h show
+
+ if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } {
+ set IsBeginMade 0
+ set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n"
+ set resume_string "${resume_string}${resume_tmp}"
+ }
+}
+
+puts ""
+if {[string length $resume_string] == 0} {
+ puts "Offset is created wrongly on initial shape in following borders"
+ puts "from [format "%0.2f" $start_stepoffset] till [format "%0.2f" $finish_stepoffset]"
+} else {
+ puts "Offset is created correctly on initial shape in following borders"
+ puts "$resume_string"
+}
+
+if {$IsGood == 1} {
+ puts "OCC165 OK"
+} else {
+ puts "Faulty OCC165"
+}
+
+renamevar result_1 result
+
+set length 1113.06
+set 2dviewer 0
+
+dchrono h stop
+dchrono h show
--- /dev/null
+puts "========"
+puts "OCC1665"
+puts "========"
+############################################################
+## Geom_BSplineSurface::SetVPeriodic throws an exception
+############################################################
+
+restore [locate_data_file OCC1665.draw] a
+
+if {[catch {setvperiodic a} message]} {
+ puts "OCC1665 FAULTY : setvperiodic"
+} else {
+ if {[catch {mkface result a} message]} {
+ puts "OCC1665 FAULTY : mkface"
+ } else {
+ set nb_e_good 3
+ }
+}
+
+set square 12265.3
+set 3dviewer 2
--- /dev/null
+puts "============"
+puts "OCC16667"
+puts "============"
+puts ""
+#######################################################################
+# 2D Offset algorithm fails
+#######################################################################
+
+restore [locate_data_file OCC16667-face.brep] a
+
+mkoffset resoffset a 1 20
+renamevar resoffset_1 result
+
+set length 1542.3
+set nb_v_good 7
+set nb_e_good 7
+set nb_w_good 1
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 15
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC16667"
+puts "============"
+puts ""
+#######################################################################
+# 2D Offset algorithm fails
+#######################################################################
+
+restore [locate_data_file OCC16667-face.brep] a
+
+mkoffset resoffset a 1 -20
+renamevar resoffset_1 result
+
+set length 1188.62
+set nb_v_good 5
+set nb_e_good 5
+set nb_w_good 1
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 11
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC16667"
+puts "============"
+puts ""
+#######################################################################
+# 2D Offset algorithm fails
+#######################################################################
+
+restore [locate_data_file OCC16667-wire.brep] a
+
+mkoffset resoffset a 1 20
+renamevar resoffset_1 result
+
+set length 1451.49
+set nb_v_good 8
+set nb_e_good 8
+set nb_w_good 1
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 17
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC16667"
+puts "============"
+puts ""
+#######################################################################
+# 2D Offset algorithm fails
+#######################################################################
+
+restore [locate_data_file OCC16667-wire.brep] a
+
+mkoffset resoffset a 1 -20
+renamevar resoffset_1 result
+
+set length 1200.16
+set nb_v_good 8
+set nb_e_good 8
+set nb_w_good 1
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 17
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "============"
+puts "OCC16781"
+puts "============"
+puts ""
+#######################################################################
+# Wrong result of Cut operation.
+#######################################################################
+
+restore [locate_data_file OCC16781-wing_solid.brep] s1
+restore [locate_data_file OCC16781-extr.brep] s2
+
+bop s1 s2
+bopcut result
+
+set square 3.92094e+07
+set nb_v_good 14
+set nb_e_good 21
+set nb_w_good 9
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 56
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC17194"
+puts "============"
+puts ""
+#######################################################################
+# Incorrect section of a face got by extrusion of an arc of circle
+#######################################################################
+
+set BugNumber OCC17194
+
+circle f 0 0 0 0 0 1 1 0 0 20
+mkedge f f -pi/2 pi/2
+prism f f 50 0 30
+plane pl 10 0 0 1 0 4
+mkface pl pl
+bsection result f pl
+
+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 length 15.8064
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC17194"
+puts "============"
+puts ""
+#######################################################################
+# Incorrect section of a face got by extrusion of an arc of circle
+#######################################################################
+
+set BugNumber OCC17194
+
+circle f 0 0 0 0 0 1 1 0 0 20
+mkedge f f -pi/2 pi/2
+prism f f 50 0 30
+plane pl 10 0 10 1 0 4
+mkface pl pl
+bsection result f pl
+
+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 54.6122
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC17357"
+puts "============"
+puts ""
+#######################################################################
+# Any boolean operation is impossible between attached shapes
+#######################################################################
+
+restore [locate_data_file OCC17357-1.brep] b1
+restore [locate_data_file OCC17357-2.brep] b2
+
+bop b1 b2
+bopcommon result
+
+set square 1.18671
+set nb_v_good 10
+set nb_e_good 18
+set nb_w_good 8
+set nb_f_good 8
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 47
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC17357"
+puts "============"
+puts ""
+#######################################################################
+# Any boolean operation is impossible between attached shapes
+#######################################################################
+
+restore [locate_data_file OCC17357-1.brep] b1
+restore [locate_data_file OCC17357-2.brep] b2
+
+bop b1 b2
+bopfuse result
+
+set square 241.111
+set nb_v_good 16
+set nb_e_good 24
+set nb_w_good 12
+set nb_f_good 10
+set nb_sh_goodl 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 65
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC17357"
+puts "============"
+puts ""
+#######################################################################
+# Any boolean operation is impossible between attached shapes
+#######################################################################
+
+restore [locate_data_file OCC17357-1.brep] b1
+restore [locate_data_file OCC17357-2.brep] b2
+
+bop b1 b2
+bopcut result
+
+set square 241.111
+set nb_v_good 18
+set nb_e_good 30
+set nb_w_good 14
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 77
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC17357"
+puts "============"
+puts ""
+#######################################################################
+# Any boolean operation is impossible between attached shapes
+#######################################################################
+
+restore [locate_data_file OCC17357-1.brep] b1
+restore [locate_data_file OCC17357-2.brep] b2
+
+bop b1 b2
+boptuc result
+
+set square 1.18671
+set nb_v_good 8
+set nb_e_good 12
+set nb_w_good 6
+set nb_f_good 6
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 35
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC17357"
+puts "============"
+puts ""
+#######################################################################
+# Any boolean operation is impossible between attached shapes
+#######################################################################
+
+restore [locate_data_file OCC17357-1.brep] b1
+restore [locate_data_file OCC17357-2.brep] b2
+
+bop b1 b2
+bopsection result
+
+set length 3.84991
+
+set 2dviewer 0
+
--- /dev/null
+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
+
--- /dev/null
+
+puts "================"
+puts "BUC60938"
+puts "OCC178"
+puts "================"
+
+
+restore [locate_data_file BUC60937.brep] a
+
+explode a
+checkshape a_1
+checkshape a_2
+
+bcommon result a_1 a_2
+
+set square 152908
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "BUC60937"
+puts "OCC178"
+puts "================"
+
+restore [locate_data_file BUC60937.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_1 a_2
+
+set square 835463
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "BUC60936"
+puts "OCC178"
+puts "================"
+
+restore [locate_data_file BUC60937.brep] a
+
+explode a
+checkshape a_1
+checkshape a_2
+
+bcut result a_1 a_2
+
+set square 786002
+set 2dviewer 0
--- /dev/null
+
+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
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "============"
+puts "OCC18186"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation algo fails
+#######################################################################
+
+restore [locate_data_file OCC18186_r3.brep] bb
+restore [locate_data_file OCC18186_Tool2.brep] bc
+
+bop bb bc
+bopcut result
+
+set square 308374
+set nb_v_good 43
+set nb_e_good 68
+set nb_w_good 27
+set nb_f_good 27
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 168
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC19071"
+puts "============"
+puts ""
+#######################################################################
+# The MakeFuse or the MakePartition function crash together on 2 torus
+#######################################################################
+
+set BugNumber OCC19071
+
+puts "Load first shape ..."
+restore [locate_data_file OCC19071_Rotation_2.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC19071_Torus_2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 177462
+
+set nb_v_good 6
+set nb_e_good 16
+set nb_w_good 6
+set nb_f_good 6
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 37
+
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC19793"
+puts "============"
+puts ""
+#######################################################################
+# Fuse problem of symetrical shapes. Appendix for NPAL19789
+#######################################################################
+
+cpulimit 100
+#cpulimit 4500
+set BugNumber OCC19793
+
+puts "Load first shape ..."
+restore [locate_data_file bug19793_new_shape.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file bug19793_shape.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 17730.1
+
+set nb_e_good 1190
+set nb_v_good 68
+set nb_e_good 70
+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 139
+
+
+set 2dviewer 0
--- /dev/null
+set subgroup modalg
+
+set calcul "p"
+set type "i"
+
+proc OFFSETSHAPE {distance faces calcul type} {
+ uplevel #0 explode s f
+ uplevel #0 offsetparameter 1e-7 $calcul $type
+ uplevel #0 offsetload s $distance $faces
+ uplevel #0 offsetperform result
+}
+
+
+
+
+
+
+
+
+
--- /dev/null
+puts "============"
+puts "OCC19811"
+puts "============"
+puts ""
+#######################################################################
+# Scaling problem. Appendix for NPAL19806
+#######################################################################
+
+set BugNumber OCC19811
+
+puts "Load shape ..."
+restore [locate_data_file bug19811_VanneMP_supports_tiges_V3.brep] result
+
+puts "Scaling operation ..."
+if [catch { tscale result 0 0 0 0.5 } catch_result] {
+ puts "Faulty ${BugNumber} : Scaling is wrong"
+}
+
+set square 1.6949e+06
+
+set nb_v_good 173
+set nb_e_good 285
+set nb_w_good 113
+set nb_f_good 113
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 686
+
+vinit
+vdisplay result
+vfit
+
+set only_screen 0
--- /dev/null
+puts "============"
+puts "OCC20222"
+puts "============"
+puts ""
+#######################################################################
+# Chamfer operation produces incorrect shape (PACE-01-006)
+#######################################################################
+
+set BugNumber OCC20222
+
+restore [locate_data_file OCC20222.brep] s
+explode s f
+explode s_10 e
+chamf result s s_10_3 s_10 S 50
+
+checkshape result
+
+set square 712126
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_5 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 750.952
+
+set nb_v_good 8
+set nb_e_good 7
+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 16
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_6 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+boptuc result
+puts "Finish boolean operation ..."
+
+set square 37856.9
+
+set nb_v_good 15
+set nb_e_good 22
+set nb_w_good 9
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 58
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_7 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 446.679
+
+set nb_v_good 8
+set nb_e_good 8
+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 17
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_7 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set square 17028.5
+
+set nb_v_good 12
+set nb_e_good 18
+set nb_w_good 8
+set nb_f_good 8
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 49
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_7 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 160323
+
+set nb_v_good 26
+set nb_e_good 39
+set nb_w_good 15
+set nb_f_good 15
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 98
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_7 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 135189
+
+set nb_v_good 20
+set nb_e_good 30
+set nb_w_good 12
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 77
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_7 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+boptuc result
+puts "Finish boolean operation ..."
+
+set square 42162.7
+
+set nb_v_good 18
+set nb_e_good 27
+set nb_w_good 11
+set nb_f_good 11
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 70
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_5 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set square 17577
+
+set nb_v_good 8
+set nb_e_good 12
+set nb_w_good 6
+set nb_f_good 6
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 35
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_5 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 113140
+
+set nb_v_good 18
+set nb_e_good 28
+set nb_w_good 11
+set nb_f_good 11
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 71
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_5 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 92859.7
+
+set nb_v_good 13
+set nb_e_good 19
+set nb_w_good 8
+set nb_f_good 8
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 51
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_5 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+boptuc result
+puts "Finish boolean operation ..."
+
+set square 37856.9
+
+set nb_v_good 15
+set nb_e_good 22
+set nb_w_good 9
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 58
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : The length of result shape is"
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_6 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 750.952
+
+set nb_v_good 8
+set nb_e_good 7
+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 16
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_6 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set square 17577
+
+set nb_v_good 8
+set nb_e_good 12
+set nb_w_good 6
+set nb_f_good 6
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 35
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_6 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 113140
+
+set nb_v_good 18
+set nb_e_good 28
+set nb_w_good 11
+set nb_f_good 11
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 71
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC20285"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE Arithmetic exception on MakeCut Appendix for IPAL20277
+#######################################################################
+
+set BugNumber OCC20285
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20285-main.brep] a1
+explode a1
+renamevar a1_6 b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC20285-tool.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 92859.7
+
+set nb_v_good 13
+set nb_e_good 19
+set nb_w_good 8
+set nb_f_good 8
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 51
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20297"
+puts "Customer : TATA"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operations (for ex. fuse) fail for given shapes
+#######################################################################
+
+set BugNumber OCC20297
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20297_1.brep] a1
+explode a1
+renamevar a1_1 b1
+puts "Load second shape ..."
+restore [locate_data_file OCC20297_2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 389.898
+
+set nb_v_good 64
+set nb_e_good 64
+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 129
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20297"
+puts "Customer : TATA"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operations (for ex. fuse) fail for given shapes
+#######################################################################
+#######################################################################
+
+set BugNumber OCC20297
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20297_1.brep] a1
+explode a1
+renamevar a1_1 b1
+puts "Load second shape ..."
+restore [locate_data_file OCC20297_2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set square 31648.3
+
+set nb_v_good 129
+set nb_e_good 194
+set nb_w_good 71
+set nb_f_good 69
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 466
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20297"
+puts "Customer : TATA"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operations (for ex. fuse) fail for given shapes
+#######################################################################
+#######################################################################
+
+set BugNumber OCC20297
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20297_1.brep] a1
+explode a1
+renamevar a1_1 b1
+puts "Load second shape ..."
+restore [locate_data_file OCC20297_2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 46473.9
+
+set nb_v_good 140
+set nb_e_good 209
+set nb_w_good 83
+set nb_f_good 77
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 512
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20297"
+puts "Customer : TATA"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operations (for ex. fuse) fail for given shapes
+#######################################################################
+#######################################################################
+
+set BugNumber OCC20297
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20297_1.brep] a1
+explode a1
+renamevar a1_1 b1
+puts "Load second shape ..."
+restore [locate_data_file OCC20297_2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 69719.6
+
+set nb_v_good 141
+set nb_e_good 211
+set nb_w_good 86
+set nb_f_good 78
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 519
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20297"
+puts "Customer : TATA"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operations (for ex. fuse) fail for given shapes
+#######################################################################
+#######################################################################
+
+set BugNumber OCC20297
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20297_1.brep] a1
+explode a1
+renamevar a1_1 b1
+puts "Load second shape ..."
+restore [locate_data_file OCC20297_2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+boptuc result
+puts "Finish boolean operation ..."
+
+set square 8402.56
+
+set nb_v_good 128
+set nb_e_good 192
+set nb_w_good 68
+set nb_f_good 68
+set nb_sh_good 2
+set nb_sol_good 2
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 461
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20413"
+puts "============"
+puts ""
+#######################################################################
+# Section is wrong for given shapes
+#######################################################################
+
+set BugNumber OCC20413
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20413_a1.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC20413_a2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 233.024
+
+set nb_v_good 9
+set nb_e_good 9
+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 19
+
+
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts "OCC20465"
+puts "========================"
+puts ""
+#######################################################################
+# Wrong checkshape results for shells
+#######################################################################
+
+set BugNumber OCC20465
+
+restore [locate_data_file OCC20465.brep] r
+
+checkshape r
+explode r f
+compound r_1 r_2 r_3 r_4 r_5 r_6 r_7 r_8 r_9 r_10 r_11 result
+
+set square 900
+
+set nb_v_good 23
+set nb_e_good 33
+set nb_w_good 13
+set nb_f_good 11
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 81
+
+set square 900
+set 2dviewer 0
+
--- /dev/null
+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
+
+
--- /dev/null
+puts "========"
+puts "OCC20785"
+puts "========"
+puts ""
+######################################################
+# Surfaces are empty after shading
+######################################################
+
+set BugNumber OCC20785
+
+restore [locate_data_file OCC20785.brep] 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
+vdisplay res
+vsetdispmode 1
+vfit
+
+set only_screen 0
+
+set scale 2.7840527693872859
+set center_X 3.7559505017270567e-07
+set center_Y -71.035163389154491
+set proj_X -0.89892524480819702
+set proj_Y -0.37323716282844543
+set proj_Z -0.22940616309642792
+set up_X -0.41990724205970764
+set up_Y 0.58468854427337646
+set up_Z 0.69413024187088013
+set at_X -74.980735778808594
+set at_Y 22.785961151123047
+set at_Z -49.215263366699219
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+set only_screen 0
+
--- /dev/null
+puts "============"
+puts "OCC20793"
+puts "============"
+puts ""
+#######################################################################
+# BRepOffsetAPI_MakeOffset produces incorrect result
+#######################################################################
+
+set BugNumber OCC20793
+
+puts "Load shape ..."
+restore [locate_data_file OCC20793.brep] a
+
+if [catch { mkoffset resoffset a 1 10 } ] {
+ puts "Faulty ${BugNumber} : mkoffset is wrong"
+} else {
+ renamevar resoffset_1 result
+
+set length 671.746
+
+set nb_v_good 4
+set nb_e_good 4
+set nb_w_good 1
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 9
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20807"
+puts "============"
+puts ""
+#######################################################################
+# Construction of pipe among a helix containing several convolutions fails
+#######################################################################
+
+set BugNumber OCC20807
+
+restore [locate_data_file bug20807_helix_10.brep] spine
+wire spine spine
+
+restore [locate_data_file bug20807_profile.brep] profile
+
+mksweep spine
+setsweep -CN 0 0 1
+addsweep profile
+
+buildsweep result
+
+set square 254837
+
+set nb_v_good 8
+set nb_e_good 12
+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 29
+
+set 2dviewer 1
--- /dev/null
+puts "============"
+puts "OCC20807"
+puts "============"
+puts ""
+#######################################################################
+# Construction of pipe among a helix containing several convolutions fails
+#######################################################################
+
+set BugNumber OCC20807
+
+restore [locate_data_file bug20807_coil.brep] spine
+explode spine
+
+restore [locate_data_file bug20807_circ.brep] profile
+
+mksweep spine_1
+addsweep profile
+
+buildsweep result
+
+set square 44761.1
+
+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 2dviewer 1
--- /dev/null
+puts "============"
+puts "OCC20807"
+puts "============"
+puts ""
+#######################################################################
+# Construction of pipe among a helix containing several convolutions fails
+#######################################################################
+
+set BugNumber OCC20807
+
+restore [locate_data_file bug20807_coil2.brep] spine
+
+restore [locate_data_file bug20807_circ2.brep] profile
+
+mksweep spine
+addsweep profile
+
+buildsweep result
+
+set square 2933.11
+
+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 2dviewer 1
--- /dev/null
+puts "============"
+puts "OCC20807"
+puts "============"
+puts ""
+#######################################################################
+# Construction of pipe among a helix containing several convolutions fails
+#######################################################################
+
+set BugNumber OCC20807
+
+restore [locate_data_file bug20807_spiral.brep] sp
+explode sp
+wire spine sp_1
+
+restore [locate_data_file bug20807_circ3.brep] profile
+
+mksweep spine
+addsweep profile
+
+buildsweep result
+
+set square 4.78336e+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 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 8
+
+set 2dviewer 1
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "OCC2083"
+puts "============"
+puts ""
+######################################################
+# BRepOffsetAPI_MakePipeShell throws an exception
+######################################################
+
+restore [locate_data_file OCC2083-f1.brep] f1
+restore [locate_data_file OCC2083-f2.brep] f2
+restore [locate_data_file OCC2083-w.brep] s
+
+checkshape f1
+checkshape f2
+checkshape s
+
+explode f1 w
+explode f2 w
+mksweep s
+addsweep f1_1
+addsweep f2_1
+
+if { [catch {buildsweep result} catch_result] } {
+ puts "Faulty OCC2083"
+}
+
+set square 36302.3
+set 3dviewer 1
--- /dev/null
+puts "============"
+puts "OCC2083"
+puts "============"
+puts ""
+######################################################
+# BRepOffsetAPI_MakePipeShell throws an exception
+######################################################
+
+restore [locate_data_file OCC2083-f1.brep] f1
+restore [locate_data_file OCC2083-f2.brep] f2
+restore [locate_data_file OCC2083-w.brep] s
+
+checkshape f1
+checkshape f2
+checkshape s
+
+explode f1 w
+explode f2 w
+mksweep s
+addsweep f1_1 -T
+addsweep f2_1 -T
+
+if { [catch {buildsweep result} catch_result] } {
+ puts "Faulty OCC2083"
+}
+
+set square 36583.8
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC2083"
+puts "============"
+puts ""
+######################################################
+# BRepOffsetAPI_MakePipeShell throws an exception
+######################################################
+
+restore [locate_data_file OCC2083-f1.brep] f1
+restore [locate_data_file OCC2083-f2.brep] f2
+restore [locate_data_file OCC2083-w.brep] s
+
+checkshape f1
+checkshape f2
+checkshape s
+
+explode f1 w
+explode f2 w
+mksweep s
+addsweep f1_1 -T
+addsweep f2_1
+
+if { [catch {buildsweep result} catch_result] } {
+ puts "Faulty OCC2083"
+}
+
+set square 36546.8
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC2083"
+puts "============"
+puts ""
+######################################################
+# BRepOffsetAPI_MakePipeShell throws an exception
+######################################################
+
+restore [locate_data_file OCC2083-f1.brep] f1
+restore [locate_data_file OCC2083-f2.brep] f2
+restore [locate_data_file OCC2083-w.brep] s
+
+checkshape f1
+checkshape f2
+checkshape s
+
+explode f1 w
+explode f2 w
+mksweep s
+addsweep f1_1
+addsweep f2_1 -T
+
+if { [catch {buildsweep result} catch_result] } {
+ puts "Faulty OCC2083"
+}
+
+set square 36339.5
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC20964"
+puts "Customer : TATA"
+puts "============"
+puts ""
+#######################################################################
+# Wrong result of cut operation for given shapes
+#######################################################################
+
+set BugNumber OCC20964
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20964_revsolid.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC20964_sphere.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 323.636
+
+set nb_v_good 6
+set nb_e_good 6
+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 13
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20964"
+puts "Customer : TATA"
+puts "============"
+puts ""
+#######################################################################
+# Wrong result of cut operation for given shapes
+#######################################################################
+
+set BugNumber OCC20964
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20964_revsolid.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC20964_sphere.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set square 5164.66
+
+set nb_v_good 8
+set nb_e_good 12
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 34
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20964"
+puts "Customer : TATA"
+puts "============"
+puts ""
+#######################################################################
+# Wrong result of cut operation for given shapes
+#######################################################################
+
+set BugNumber OCC20964
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20964_revsolid.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC20964_sphere.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 828829
+
+set nb_v_good 20
+set nb_e_good 32
+set nb_w_good 18
+set nb_f_good 16
+set nb_sh_good 3
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 91
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20964"
+puts "Customer : TATA"
+puts "============"
+puts ""
+#######################################################################
+# Wrong result of cut operation for given shapes
+#######################################################################
+
+set BugNumber OCC20964
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20964_revsolid.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC20964_sphere.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 821892
+
+set nb_v_good 22
+set nb_e_good 35
+set nb_w_good 17
+set nb_f_good 14
+set nb_sh_good 2
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 92
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20964"
+puts "Customer : TATA"
+puts "============"
+puts ""
+#######################################################################
+# Wrong result of cut operation for given shapes
+#######################################################################
+
+set BugNumber OCC20964
+
+puts "Load first shape ..."
+restore [locate_data_file OCC20964_revsolid.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC20964_sphere.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+boptuc result
+puts "Finish boolean operation ..."
+
+set square 12101.2
+
+set nb_v_good 6
+set nb_e_good 9
+set nb_w_good 7
+set nb_f_good 7
+set nb_sh_good 2
+set nb_sol_good 2
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 34
+
+
+set 2dviewer 0
--- /dev/null
+puts "================"
+puts "OCC21"
+puts "================"
+puts ""
+
+#test for XSDRAWEXE application#
+#==============================#
+
+pload XDE
+
+restore [locate_data_file OCC21.brep] sh
+checkshape sh
+puts "two faces in the compound share one edge"
+
+DT_SplitAngle result sh 90
+
+puts "in the resulting shape sharing is not preserved"
+
+set square 12154.8
+set 2dviewer 0
+
--- /dev/null
+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
--- /dev/null
+puts "========"
+puts "OCC212"
+puts "========"
+################################################
+## Bug in Topological "Common" boolean operation
+################################################
+
+restore [locate_data_file OCC212-1.brep] S1
+checkshape S1
+restore [locate_data_file OCC212-2.brep] S2
+checkshape S2
+
+bop S1 S2
+bopcommon result
+
+set square 314.301
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC21255"
+puts "============"
+puts ""
+#######################################################################
+# Some problems with 3D chamfer construction
+#######################################################################
+
+set BugNumber OCC21255
+
+restore [locate_data_file OCC21255-1.brep] ss
+explode ss F
+explode ss_7 E
+
+vinit
+if [catch { chamf result ss ss_7_2 ss_7 5. 5. } ] {
+ puts "Faulty ${BugNumber} : chamf is wrong"
+} else {
+set square 45382.5
+
+set nb_v_good 15
+set nb_e_good 22
+set nb_w_good 9
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 58
+
+ set 3dviewer 0
+ vdisplay result
+ vsetdispmode 1
+ vfit
+
+ set scale 5.8955238204183011
+ set center_X -43.928617104386774
+ set center_Y 295.47887425975171
+ set proj_X 0.62061613798141479
+ set proj_Y -0.6891753077507019
+ set proj_Z -0.37399500608444214
+ set up_X -0.12894462049007416
+ set up_Y -0.56017255783081055
+ set up_Z 0.81827831268310547
+ set at_X 15.248310089111328
+ set at_Y 165.90042114257812
+ set at_Z 225.19309997558594
+
+ vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+}
+
+set only_screen 1
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-1.brep] s
+
+thickshell result s 5
+
+set square 36766
+
+set nb_v_good 4
+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 0
+set nb_shape_good 24
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 5.8136266443689317
+set center_X -34.878384652992025
+set center_Y 41.518039353084561
+set proj_X 0.5689244270324707
+set proj_Y -0.54117375612258911
+set proj_Z -0.61923813819885254
+set up_X 0.48309960961341858
+set up_Y -0.38943690061569214
+set up_Z 0.78418976068496704
+set at_X -38.500396728515625
+set at_Y 34.677536010742188
+set at_Z -7.9150166511535645
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-5.brep] s
+
+thickshell result s -5
+
+set square 29923.6
+
+set nb_v_good 4
+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 0
+set nb_shape_good 24
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 6.3723487126883533
+set center_X -4.2632564145606011e-14
+set center_Y -22.430308400362279
+set proj_X 0.57735025882720947
+set proj_Y -0.57735025882720947
+set proj_Z 0.57735025882720947
+set up_X -0.40824827551841736
+set up_Y 0.40824827551841736
+set up_Z 0.81649655103683472
+set at_X 0
+set at_Y 0
+set at_Z 0
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-cone1.brep] s
+
+thickshell result s -5
+
+set square 11054.2
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 17.084273613995954
+set center_X 210.44987026890158
+set center_Y -5.2570485620847549
+set proj_X 0.98952245712280273
+set proj_Y -0.12535266578197479
+set proj_Z 0.071637466549873352
+set up_X -0.016377445310354233
+set up_Y 0.39552098512649536
+set up_Z 0.91831082105636597
+set at_X 121.38485717773438
+set at_Y -46.730243682861328
+set at_Z 83.376449584960938
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-revarc.brep] s
+
+thickshell result s -5
+
+set square 39635.4
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-revbzc.brep] s
+
+thickshell result s -5
+
+set square 73788.5
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-2137_tsrf.brep] s
+
+thickshell result s -5
+
+set square 27432.4
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: An exception was caught"
+puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-2137_bss1_crash_C0.brep] s
+
+thickshell result s -5
+
+set square 27432.4
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-1988_ellipsepipesrf_1.brep] s
+
+thickshell result s -5
+
+set square 17366.2
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-1988_bscpipesrf_2.brep] s
+
+thickshell result s -5
+
+set square 10250
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-1.brep] s
+
+thickshell result s -5
+
+set square 30288.5
+
+set nb_v_good 4
+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 0
+set nb_shape_good 24
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-box_trim_thickening.brep] s
+
+thickshell result s -5
+
+set square 47143.4
+
+set nb_v_good 26
+set nb_e_good 47
+set nb_w_good 23
+set nb_f_good 21
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 119
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-1.brep] s
+
+thickshell result s -5
+
+set square 30288.5
+
+set nb_v_good 4
+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 0
+set nb_shape_good 24
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 5.8136266443689317
+set center_X -34.878384652992025
+set center_Y 41.518039353084561
+set proj_X 0.5689244270324707
+set proj_Y -0.54117375612258911
+set proj_Z -0.61923813819885254
+set up_X 0.48309960961341858
+set up_Y -0.38943690061569214
+set up_Z 0.78418976068496704
+set at_X -38.500396728515625
+set at_Y 34.677536010742188
+set at_Z -7.9150166511535645
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-comb.brep] s
+
+thickshell result s -5
+
+set square 25639.3
+
+set nb_v_good 18
+set nb_e_good 31
+set nb_w_good 17
+set nb_f_good 15
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 83
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: An exception was caught"
+puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-comb1.brep] s
+
+thickshell result s -5
+
+set square 25639.3
+
+set nb_v_good 18
+set nb_e_good 31
+set nb_w_good 17
+set nb_f_good 15
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 83
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-2.brep] s
+
+thickshell result s -5
+
+set square 66487
+
+set nb_v_good 12
+set nb_e_good 24
+set nb_w_good 12
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 62
+
+
+
+vinit
+vdisplay result
+vsetdispmode 1
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-3.brep] s
+
+thickshell result s -5
+
+set square 115498
+
+set nb_v_good 24
+set nb_e_good 48
+set nb_w_good 24
+set nb_f_good 24
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 122
+
+
+
+vinit
+vdisplay result
+vsetdispmode 1
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-4.brep] s
+
+thickshell result s -5
+
+set square 44935.7
+
+set nb_v_good 16
+set nb_e_good 28
+set nb_w_good 14
+set nb_f_good 14
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 74
+
+
+
+vinit
+vdisplay result
+vsetdispmode 1
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-5.brep] s
+
+thickshell result s -5
+
+set square 29923.6
+
+set nb_v_good 4
+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 0
+set nb_shape_good 24
+
+
+
+vinit
+vdisplay result
+vsetdispmode 1
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-cone1.brep] s
+
+thickshell result s -5
+
+set square 11054.2
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 1
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-revarc.brep] s
+
+thickshell result s -5
+
+set square 39635.4
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 1
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-revbzc.brep] s
+
+thickshell result s -5
+
+set square 73788.5
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 1
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-uneven_thickening.brep] s
+
+thickshell result s -2
+
+set square 4087.41
+
+set nb_v_good 30
+set nb_e_good 51
+set nb_w_good 21
+set nb_f_good 21
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 125
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-2.brep] s
+
+thickshell result s 5
+
+set square 61710.5
+
+set nb_v_good 12
+set nb_e_good 24
+set nb_w_good 12
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 62
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 5.4752524438940986
+set center_X 0.12443750381514462
+set center_Y 30.91257192276079
+set proj_X 0.75705158710479736
+set proj_Y -0.55456298589706421
+set proj_Z 0.34544554352760315
+set up_X -0.26271694898605347
+set up_Y 0.22571359574794769
+set up_Z 0.93810069561004639
+set at_X -8.4405813217163086
+set at_Y 5.1293683052062988
+set at_Z 1.3484655618667603
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-2137_tsrf.brep] s
+
+thickshell result s 5
+
+set square 27432.4
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-1988_ellipsepipesrf_1.brep] s
+
+thickshell result s 2
+
+set square 9163.91
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-1988_bscpipesrf_2.brep] s
+
+thickshell result s 2
+
+set square 5315.89
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-box_trim_thickening.brep] s
+
+thickshell result s 5
+
+set square 50357.1
+
+set nb_v_good 34
+set nb_e_good 67
+set nb_w_good 35
+set nb_f_good 33
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 171
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-box_trim_thickening.brep] s
+
+thickshell result s 5 i
+
+set square 50743.4
+
+set nb_v_good 26
+set nb_e_good 47
+set nb_w_good 23
+set nb_f_good 21
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 119
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-box_trim_thickening.brep] s
+
+thickshell result s -5 i
+
+set square 47143.4
+
+set nb_v_good 26
+set nb_e_good 47
+set nb_w_good 23
+set nb_f_good 21
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 119
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-comb.brep] s
+
+thickshell result s 5
+
+set square 24835.8
+
+set nb_v_good 16
+set nb_e_good 26
+set nb_w_good 14
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 70
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-comb.brep] s
+
+thickshell result s 5 i
+
+set square 24835.8
+
+set nb_v_good 16
+set nb_e_good 26
+set nb_w_good 14
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 70
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-comb.brep] s
+
+thickshell result s -5 i
+
+set square 25735.8
+
+set nb_v_good 16
+set nb_e_good 26
+set nb_w_good 14
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 70
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-uneven_thickening.brep] s
+
+thickshell result s 2
+
+set square 4435.62
+
+set nb_v_good 30
+set nb_e_good 51
+set nb_w_good 21
+set nb_f_good 21
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 125
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-2.brep] s
+
+thickshell result s -5
+
+set square 66487
+
+set nb_v_good 12
+set nb_e_good 24
+set nb_w_good 12
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 62
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 5.4752524438940986
+set center_X 0.12443750381514462
+set center_Y 30.91257192276079
+set proj_X 0.75705158710479736
+set proj_Y -0.55456298589706421
+set proj_Z 0.34544554352760315
+set up_X -0.26271694898605347
+set up_Y 0.22571359574794769
+set up_Z 0.93810069561004639
+set at_X -8.4405813217163086
+set at_Y 5.1293683052062988
+set at_Z 1.3484655618667603
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-3.brep] s
+
+thickshell result s -5 i
+
+set square 115498
+
+set nb_v_good 24
+set nb_e_good 48
+set nb_w_good 24
+set nb_f_good 24
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 122
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 4.1681300306816444
+set center_X 0.13164276086378379
+set center_Y 6.6154949824974238
+set proj_X 0.48621529340744019
+set proj_Y -0.47558537125587463
+set proj_Z 0.73308473825454712
+set up_X -0.51949578523635864
+set up_Y 0.51725912094116211
+set up_Z 0.68012285232543945
+set at_X 1.1775522232055664
+set at_Y -1.214188814163208
+set at_Z 0.14915035665035248
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-3.brep] s
+
+thickshell result s 5 i
+
+set square 110064
+
+set nb_v_good 24
+set nb_e_good 48
+set nb_w_good 24
+set nb_f_good 24
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 122
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 4.1681300306816444
+set center_X 0.13164276086378379
+set center_Y 6.6154949824974238
+set proj_X 0.48621529340744019
+set proj_Y -0.47558537125587463
+set proj_Z 0.73308473825454712
+set up_X -0.51949578523635864
+set up_Y 0.51725912094116211
+set up_Z 0.68012285232543945
+set at_X 1.1775522232055664
+set at_Y -1.214188814163208
+set at_Z 0.14915035665035248
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-4.brep] s
+
+thickshell result s -5 i
+
+set square 44935.7
+
+set nb_v_good 16
+set nb_e_good 28
+set nb_w_good 14
+set nb_f_good 14
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 74
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 5.7979972910353759
+set center_X 134.00320461480183
+set center_Y 57.36536300752401
+set proj_X 0.40099617838859558
+set proj_Y -0.39083370566368103
+set proj_Z 0.82852339744567871
+set up_X -0.58777821063995361
+set up_Y 0.58394128084182739
+set up_Z 0.55993682146072388
+set at_X 14.468252182006836
+set at_Y -14.975484848022461
+set at_Z -8.813446044921875
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-4.brep] s
+
+thickshell result s 5 i
+
+set square 43286.4
+
+set nb_v_good 16
+set nb_e_good 28
+set nb_w_good 14
+set nb_f_good 14
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 74
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 5.7979972910353759
+set center_X 134.00320461480183
+set center_Y 57.36536300752401
+set proj_X 0.40099617838859558
+set proj_Y -0.39083370566368103
+set proj_Z 0.82852339744567871
+set up_X -0.58777821063995361
+set up_Y 0.58394128084182739
+set up_Z 0.55993682146072388
+set at_X 14.468252182006836
+set at_Y -14.975484848022461
+set at_Z -8.813446044921875
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-cone1.brep] s
+
+thickshell result s 5
+
+set square 14506.6
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 17.084273613995954
+set center_X 210.44987026890158
+set center_Y -5.2570485620847549
+set proj_X 0.98952245712280273
+set proj_Y -0.12535266578197479
+set proj_Z 0.071637466549873352
+set up_X -0.016377445310354233
+set up_Y 0.39552098512649536
+set up_Z 0.91831082105636597
+set at_X 121.38485717773438
+set at_Y -46.730243682861328
+set at_Z 83.376449584960938
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-revarc.brep] s
+
+thickshell result s 5
+
+set square 48246.4
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-revbzc.brep] s
+
+thickshell result s 5
+
+set square 83884.6
+
+set nb_v_good 4
+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 22
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-3.brep] s
+
+thickshell result s 5
+
+set square 110064
+
+set nb_v_good 24
+set nb_e_good 48
+set nb_w_good 24
+set nb_f_good 24
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 122
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 4.1681300306816444
+set center_X 0.13164276086378379
+set center_Y 6.6154949824974238
+set proj_X 0.48621529340744019
+set proj_Y -0.47558537125587463
+set proj_Z 0.73308473825454712
+set up_X -0.51949578523635864
+set up_Y 0.51725912094116211
+set up_Z 0.68012285232543945
+set at_X 1.1775522232055664
+set at_Y -1.214188814163208
+set at_Z 0.14915035665035248
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-3.brep] s
+
+thickshell result s -5
+
+set square 115498
+
+set nb_v_good 24
+set nb_e_good 48
+set nb_w_good 24
+set nb_f_good 24
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 122
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 4.1681300306816444
+set center_X 0.13164276086378379
+set center_Y 6.6154949824974238
+set proj_X 0.48621529340744019
+set proj_Y -0.47558537125587463
+set proj_Z 0.73308473825454712
+set up_X -0.51949578523635864
+set up_Y 0.51725912094116211
+set up_Z 0.68012285232543945
+set at_X 1.1775522232055664
+set at_Y -1.214188814163208
+set at_Z 0.14915035665035248
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-4.brep] s
+
+thickshell result s 5
+
+set square 43286.4
+
+set nb_v_good 16
+set nb_e_good 28
+set nb_w_good 14
+set nb_f_good 14
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 74
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 5.7979972910353759
+set center_X 134.00320461480183
+set center_Y 57.36536300752401
+set proj_X 0.40099617838859558
+set proj_Y -0.39083370566368103
+set proj_Z 0.82852339744567871
+set up_X -0.58777821063995361
+set up_Y 0.58394128084182739
+set up_Z 0.55993682146072388
+set at_X 14.468252182006836
+set at_Y -14.975484848022461
+set at_Z -8.813446044921875
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-4.brep] s
+
+thickshell result s -5
+
+set square 44935.7
+
+set nb_v_good 16
+set nb_e_good 28
+set nb_w_good 14
+set nb_f_good 14
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 74
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 5.7979972910353759
+set center_X 134.00320461480183
+set center_Y 57.36536300752401
+set proj_X 0.40099617838859558
+set proj_Y -0.39083370566368103
+set proj_Z 0.82852339744567871
+set up_X -0.58777821063995361
+set up_Y 0.58394128084182739
+set up_Z 0.55993682146072388
+set at_X 14.468252182006836
+set at_Y -14.975484848022461
+set at_Z -8.813446044921875
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC21261"
+puts "Customer : TATA"
+puts "========"
+puts ""
+######################################################
+# Implementation of thickening of shell functionality
+######################################################
+
+set BugNumber OCC21261
+
+restore [locate_data_file OCC21261-5.brep] s
+
+thickshell result s 5
+
+set square 36363.8
+
+set nb_v_good 4
+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 0
+set nb_shape_good 24
+
+
+
+vinit
+vdisplay result
+vsetdispmode 0
+vfit
+
+set scale 6.3723487126883533
+set center_X -4.2632564145606011e-14
+set center_Y -22.430308400362279
+set proj_X 0.57735025882720947
+set proj_Y -0.57735025882720947
+set proj_Z 0.57735025882720947
+set up_X -0.40824827551841736
+set up_Y 0.40824827551841736
+set up_Z 0.81649655103683472
+set at_X 0
+set at_Y 0
+set at_Z 0
+
+vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+
+set only_screen 0
--- /dev/null
+puts "========"
+puts "OCC212"
+puts "========"
+################################################
+## Bug in Topological "Common" boolean operation
+################################################
+
+restore [locate_data_file OCC212-1.brep] S1
+checkshape S1
+restore [locate_data_file OCC212-2.brep] S2
+checkshape S2
+
+bcommon result S1 S2
+
+set square 314.301
+set 3dviewer 0
+
--- /dev/null
+puts "========"
+puts "OCC212"
+puts "========"
+################################################
+## Bug in Topological "Common" boolean operation
+################################################
+
+restore [locate_data_file OCC212-1.brep] S1
+checkshape S1
+restore [locate_data_file OCC212-2.brep] S2
+checkshape S2
+
+bcommon result S2 S1
+
+set square 314.301
+set 3dviewer 0
+
--- /dev/null
+puts "========"
+puts "OCC212"
+puts "========"
+################################################
+## Bug in Topological "Common" boolean operation
+################################################
+
+restore [locate_data_file OCC212-1.brep] S1
+checkshape S1
+restore [locate_data_file OCC212-2.brep] S2
+checkshape S2
+
+bop S1 S2
+bopcommon result
+
+set square 314.301
+set 2dviewer 1
+
--- /dev/null
+puts "========"
+puts "OCC213"
+puts "========"
+################################################
+## Bug in Topological "fuse" boolean operation
+################################################
+
+cpulimit 3500
+
+restore [locate_data_file OCC213-1.brep] S1
+checkshape S1
+restore [locate_data_file OCC213-2.brep] S2
+checkshape S2
+
+bop S1 S2
+bopfuse result
+
+set square 4835.45
+set 2dviewer 1
+
--- /dev/null
+puts "========"
+puts "OCC213"
+puts "========"
+################################################
+## Bug in Topological "fuse" boolean operation
+################################################
+
+restore [locate_data_file OCC213-1.brep] S1
+checkshape S1
+restore [locate_data_file OCC213-2.brep] S2
+checkshape S2
+
+bfuse result S1 S2
+set square 4835.45
+set 3dviewer 0
+
--- /dev/null
+puts "========"
+puts "OCC213"
+puts "========"
+################################################
+## Bug in Topological "fuse" boolean operation
+################################################
+
+restore [locate_data_file OCC213-1.brep] S1
+checkshape S1
+restore [locate_data_file OCC213-2.brep] S2
+checkshape S2
+
+bfuse result S2 S1
+set square 4835.45
+set 3dviewer 0
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "OCC21448"
+puts "============"
+puts ""
+#######################################################################
+# Invalid result of BRepOffsetAPI_MakePipeShell
+#######################################################################
+
+set BugNumber OCC21448
+
+puts "Load first shape ..."
+restore [locate_data_file bug21448_base_1.brep] base1
+
+puts "Load second shape ..."
+restore [locate_data_file bug21448_Invert_2.brep] Invert_2
+
+puts "Load third shape ..."
+restore [locate_data_file bug21448_chemin.brep] chemin
+
+puts "Prepare shapes ..."
+wire w1 chemin
+explode base1 W
+explode Invert_2 W
+explode chemin V
+
+puts "Start Make pipe ..."
+mksweep w1
+addsweep base1_1 chemin_1 -R
+addsweep Invert_2_1 chemin_2 -R
+buildsweep result
+puts "Finish Make pipe ..."
+
+set square 1040.94
+
+set nb_v_good 4
+set nb_e_good 6
+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 15
+
+vinit
+vsetdispmode 0
+vdisplay result
+vfit
+
+set only_screen 0
--- /dev/null
+puts "============"
+puts "OCC21460"
+puts "============"
+puts ""
+#######################################################################
+# SIGFPE in BOP on two attached edges
+#######################################################################
+
+set BugNumber OCC21460
+
+puts "Load first shape ..."
+restore [locate_data_file bug21460_aE1.brep] e1
+
+puts "Load second shape ..."
+restore [locate_data_file bug21460_aE2.brep] e2
+
+puts "Prepare boolean operation ..."
+bop e1 e2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set mistake 0
+
+set length 448.285
+
+set nb_v_good 5
+set nb_e_good 4
+set nb_w_good 1
+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 11
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC21540"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation section produces wrong result (OCC 6.3.1)
+#######################################################################
+
+set BugNumber OCC21540
+
+puts "Load first shape ..."
+restore [locate_data_file OCC21540-HalfSpace.brep] b1
+
+puts "Load second shape ..."
+restore [locate_data_file OCC21540-Shape.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 462.35
+
+set nb_v_good 58
+set nb_e_good 58
+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 117
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC21652"
+puts "Customer : TATA"
+puts "============"
+puts ""
+#######################################################################
+# TATA-08-005 Problem with offset on the wire
+#######################################################################
+
+set BugNumber OCC21652
+
+puts "Load shape ..."
+restore [locate_data_file OCC21652.brep] a
+
+if [catch { mkoffset resoffset a 1 1.0 } ] {
+ puts "Faulty ${BugNumber} : mkoffset is wrong"
+} else {
+ renamevar resoffset_1 result
+
+set length 372.531
+
+set nb_v_good 93
+set nb_e_good 93
+set nb_w_good 1
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 187
+}
+
+set 2dviewer 1
+
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC21652"
+puts "Customer : TATA"
+puts "============"
+puts ""
+#######################################################################
+# TATA-08-005 Problem with offset on the wire
+#######################################################################
+
+set BugNumber OCC21652
+
+puts "Load shape ..."
+restore [locate_data_file OCC21652.brep] a
+
+if [catch { mkoffset resoffset a 1 0.9 } ] {
+ puts "Faulty ${BugNumber} : mkoffset is wrong"
+} else {
+ renamevar resoffset_1 result
+
+set length 371.913
+
+set nb_v_good 93
+set nb_e_good 93
+set nb_w_good 1
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 187
+}
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC21722"
+puts "============"
+puts ""
+#######################################################################
+# The operation Section produces non-complete result.
+#######################################################################
+
+set BugNumber OCC21722
+
+puts "Load shape ..."
+restore [locate_data_file OCC21722.brep] g
+
+puts "Prepare first shape ..."
+explode g
+copy g_1 b1
+
+puts "Prepare second shape ..."
+copy g_2 b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 1.91376
+
+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 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC2172"
+puts "============"
+puts ""
+######################################################
+# Fuse operation produces invalid shape
+######################################################
+## (new topology)
+## (bfuse)
+######################################################
+
+restore [locate_data_file OCC2172-torus.brep] torus
+restore [locate_data_file OCC2172-cylinder.brep] cylinder
+
+checkshape torus
+checkshape cylinder
+
+bfuse result torus cylinder
+
+set square 28603.8
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC2172"
+puts "============"
+puts ""
+######################################################
+# Fuse operation produces invalid shape
+######################################################
+## (new topology)
+## (bfuse)
+######################################################
+
+restore [locate_data_file OCC2172-torus.brep] torus
+restore [locate_data_file OCC2172-cylinder.brep] cylinder
+
+checkshape torus
+checkshape cylinder
+
+bfuse result cylinder torus
+
+set square 28603.8
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC2172"
+puts "============"
+puts ""
+######################################################
+# Fuse operation produces invalid shape
+######################################################
+## (old topology)
+## (fuse)
+######################################################
+
+restore [locate_data_file OCC2172-torus.brep] torus
+restore [locate_data_file OCC2172-cylinder.brep] cylinder
+
+checkshape torus
+checkshape cylinder
+
+if { [catch {bfuse result torus cylinder} catch_result] } {
+ puts "Faulty OCC2172"
+}
+
+set square 28603.8
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC2172"
+puts "============"
+puts ""
+######################################################
+# Fuse operation produces invalid shape
+######################################################
+## (old topology)
+## (fuse)
+######################################################
+
+restore [locate_data_file OCC2172-torus.brep] torus
+restore [locate_data_file OCC2172-cylinder.brep] cylinder
+
+checkshape torus
+checkshape cylinder
+
+if { [catch {bfuse result cylinder torus} catch_result] } {
+ puts "Faulty OCC2172"
+}
+
+set square 28603.8
+set 3dviewer 1
+
--- /dev/null
+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
+
--- /dev/null
+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
+
--- /dev/null
+puts "========"
+puts "OCC221"
+puts "========"
+puts ""
+######################################################################
+##After loading attached file (one simple face) checkshape give a problem (Bad Orientation of SubShape)
+## but I believe that this face is correct. Also I believe that face is vitiated during performing checkshape
+## (perhaps - in BRepCheck_Face::ClassifyWire())
+######################################################################
+
+restore [locate_data_file OCC221.brep] result
+set che [checkshape result r]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty OCC221 (checkshape) : Checkshape command works wrongly"
+} else {
+ puts "OCC221 OK (checkshape) : Checkshape command works properly"
+}
+puts ""
+set che [checkshape result]
+if { [regexp {Faulty} $che] == 1} {
+ puts "Faulty OCC221 (checkshape) : Checkshape command works wrongly"
+} else {
+ puts "OCC221 OK (checkshape) : Checkshape command works properly"
+}
+
+set square 425.537
+set 2dviewer 0
+
+
--- /dev/null
+puts "============"
+puts "OCC22109"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation common fails. Appendix to the SALOME bug: 0021060
+#######################################################################
+
+set BugNumber OCC22109
+
+puts "Load first shape ..."
+restore [locate_data_file bug22109_Solid_24.brep] b1
+
+puts "Load second shape ..."
+restore [locate_data_file bug22109_tore.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set nb_v_good 0
+set nb_e_good 0
+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 1
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC22109"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation common fails. Appendix to the SALOME bug: 0021060
+#######################################################################
+
+set BugNumber OCC22109
+
+puts "Load first shape ..."
+restore [locate_data_file bug22109_Solid_24.brep] b1
+
+puts "Load second shape ..."
+restore [locate_data_file bug22109_tore.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set square 87449.7
+
+set nb_v_good 17
+set nb_e_good 25
+set nb_w_good 14
+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 69
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC22109"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation common fails. Appendix to the SALOME bug: 0021060
+#######################################################################
+
+set BugNumber OCC22109
+
+puts "Load first shape ..."
+restore [locate_data_file bug22109_Solid_24.brep] b1
+
+puts "Load second shape ..."
+restore [locate_data_file bug22109_tore.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 87443.6
+
+set nb_v_good 16
+set nb_e_good 23
+set nb_w_good 14
+set nb_f_good 10
+set nb_sh_good 2
+set nb_sol_good 2
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 68
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC22109"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation common fails. Appendix to the SALOME bug: 0021060
+#######################################################################
+
+set BugNumber OCC22109
+
+puts "Load first shape ..."
+restore [locate_data_file bug22109_Solid_24.brep] b1
+
+puts "Load second shape ..."
+restore [locate_data_file bug22109_tore.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+boptuc result
+puts "Finish boolean operation ..."
+
+set square 1140.6
+
+set nb_v_good 5
+set nb_e_good 9
+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 25
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC22109"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation common fails. Appendix to the SALOME bug: 0021060
+#######################################################################
+
+set BugNumber OCC22109
+
+puts "Load first shape ..."
+restore [locate_data_file bug22109_Solid_24.brep] b1
+
+puts "Load second shape ..."
+restore [locate_data_file bug22109_tore.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result
+puts "Finish boolean operation ..."
+
+set length 127.699
+
+set nb_v_good 4
+set nb_e_good 6
+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 11
+
+
+set 2dviewer 0
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "OCC22310"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation common fails. Appendix to the SALOME bug: 0021128
+#######################################################################
+
+set BugNumber OCC22310
+
+puts "Load first shape ..."
+restore [locate_data_file bug22310_vol_inf_30.brep] b1
+
+puts "Load second shape ..."
+restore [locate_data_file bug22310_vol_sup_30.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set square 0.0457691
+
+set nb_v_good 6
+set nb_e_good 9
+set nb_w_good 5
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 28
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC22356"
+puts "============"
+puts ""
+#######################################################################
+# The result of fuse is not valid for two straight edges.
+# Appendix to the SALOME bug: IPAL22182
+#######################################################################
+
+set BugNumber OCC22356
+
+restore [locate_data_file bug22356_cy.brep] bq
+explode bq e
+copy bq_1 b1
+copy bq_2 b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+puts "Finish boolean operation ..."
+
+set length 300
+
+set nb_v_good 3
+set nb_e_good 2
+set nb_w_good 1
+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 2dviewer 0
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "OCC22409"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation cut fails. Appendix to the SALOME bug: 0019957
+#######################################################################
+
+set BugNumber OCC22409
+
+puts "Load first shape ..."
+restore [locate_data_file bug22409_Defaut1.brep] b1
+
+puts "Load second shape ..."
+restore [locate_data_file bug22409_Solid_7.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+puts "Finish boolean operation ..."
+
+set square 14969
+
+set nb_v_good 6
+set nb_e_good 9
+set nb_w_good 5
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 28
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC22409"
+puts "============"
+puts ""
+#######################################################################
+# Boolean operation cut fails. Appendix to the SALOME bug: 0019957
+#######################################################################
+
+set BugNumber OCC22409
+
+puts "Load first shape ..."
+restore [locate_data_file bug22409_bloc.brep] b1
+
+puts "Load second shape ..."
+restore [locate_data_file bug22409_Defaut1_new.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 366764
+
+set nb_v_good 40
+set nb_e_good 60
+set nb_w_good 22
+set nb_f_good 22
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 147
+
+
+set 2dviewer 0
--- /dev/null
+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
+
--- /dev/null
+puts "============"
+puts "OCC22436"
+puts "============"
+puts ""
+#######################################################################
+# Extra compound is created when importing non-manifold topology from STEP file
+#######################################################################
+
+catch { pload XDE }
+
+set BugNumber OCC22436
+
+param read.step.nonmanifold 1
+
+stepread [locate_data_file bug22436_box.step] b1 *
+renamevar b1_1 result
+
+set square 3.2e+11
+
+set nb_v_good 12
+set nb_e_good 20
+set nb_w_good 11
+set nb_f_good 11
+set nb_sh_good 2
+set nb_sol_good 2
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 59
+
+set 2dviewer 0
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "OCC22557"
+puts "============"
+puts ""
+#######################################################################
+# Bad result of the Cut operation (for CAS63-sp12-*)
+#######################################################################
+
+set BugNumber OCC22557
+
+puts "Load first shape ..."
+restore [locate_data_file bug22557_Bloc_racine_70deg.brep] b1
+
+puts "Load second shape ..."
+restore [locate_data_file bug22557_PaveEntree.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 0.172993
+
+set nb_v_good 192
+set nb_e_good 288
+set nb_w_good 98
+set nb_f_good 98
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 679
+
+
+set 2dviewer 0
--- /dev/null
+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}"
+}
+
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "OCC22588"
+puts "============"
+puts ""
+#######################################################################
+# Revolution with negative volume in some cases
+#######################################################################
+
+set BugNumber OCC22588
+
+vertex v1 0 0 0
+vertex v12 0 0 160
+vertex v13 25 0 25
+edge e7 v1 v12
+edge e8 v12 v13
+edge e9 v13 v1
+wire w2 e7 e8 e9
+plane pln1 25 0 25 0 1 0 -25 0 -25
+mkface face2 pln1 w2
+revol result face2 0 0 0 0 0 1 45
+
+set square 5694.99
+
+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
+
+vinit
+vdisplay result
+vfit
+
+set only_screen 0
+
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "OCC22678"
+puts "============"
+puts ""
+#######################################################################
+# Bad result of the Cut operation.
+#######################################################################
+
+set BugNumber OCC22678
+
+puts "Load first shape ..."
+restore [locate_data_file bug22678_objCut.brep] b1
+
+puts "Load second shape ..."
+restore [locate_data_file bug22678_toolCut.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+puts "Finish boolean operation ..."
+
+set square 574348
+
+set nb_v_good 17
+set nb_e_good 29
+set nb_w_good 16
+set nb_f_good 15
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 80
+
+
+set 2dviewer 0
--- /dev/null
+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
+
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+puts "========================"
+puts "OCC22804"
+puts "========================"
+puts ""
+#######################################################################
+# Sewing increases tolerance of vertices for redundant value.
+#######################################################################
+
+set BugNumber OCC22804
+
+catch {pload XDE}
+
+restore [locate_data_file OCC22804-sew_bug.brep] a
+
+set tol 200
+sewing result ${tol} a
+
+set ToleranceList [tolerance result]
+regexp {Tolerance MAX=([-0-9.+eE]+)} $ToleranceList full oTolerance
+regexp {FACE[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full FaceTolerance
+regexp {EDGE[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full EdgeTolerance
+regexp {VERTEX[ \t]*: MAX=([-0-9.+eE]+)} $ToleranceList full VertexTolerance
+
+set percent_max 0.1
+
+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 IsOk 1
+
+set minTolerance ${EdgeTolerance}
+if { ${minTolerance} > ${VertexTolerance} } {
+ set minTolerance $(VertexTolerance)
+}
+
+set minTolerance_percent [GetPercent ${minTolerance} ${oTolerance}]
+puts "minTolerance_percent = ${minTolerance_percent} %"
+if { ${minTolerance_percent} > ${percent_max} } {
+ set IsOk 0
+}
+
+if { ${IsOk} == 0 } {
+ puts "${BugNumber}: Faulty"
+} else {
+ puts "${BugNumber}: OK"
+}
+
+set square 1.22542e+09
+set 2dviewer 0
+
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "OCC22864"
+puts "============"
+puts ""
+##############################################################################################
+# The algorithm BiTgte_Blend obtains instable results
+##############################################################################################
+
+set BugNumber OCC22864
+
+restore [locate_data_file bug22864_face1.brep] f1
+restore [locate_data_file bug22864_face2.brep] f2
+
+shape aShape C
+add f1 aShape
+add f2 aShape
+
+#
+set status 0
+#
+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 1
+set nb_shape_good 8
+#
+set Numbers 11
+#
+for {set i 0} {$i < ${Numbers}} {incr i} {
+ puts "i=$i"
+ rollingball result aShape 15 @ f1 f2
+
+ set nb_info [nbshapes result]
+ regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v
+ regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_e
+ regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full nb_w
+ regexp {FACE +: +([-0-9.+eE]+)} $nb_info full nb_f
+ regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full nb_sh
+ regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full nb_sol
+ regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full nb_compsol
+ regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full nb_compound
+ regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full nb_shape
+
+ if {$nb_v != $nb_v_good || $nb_e != $nb_e_good ||
+ $nb_w != $nb_w_good || $nb_f != $nb_f_good ||
+ $nb_sh != $nb_sh_good || $nb_sol != $nb_sol_good ||
+ $nb_compsol != $nb_compsol_good || $nb_compound != $nb_compound_good ||
+ $nb_shape != $nb_shape_good } {
+ set status 1
+ }
+
+ set aFile $imagedir/${test_image}.brep
+ puts "aFile=${aFile}"
+ file delete ${aFile}
+ if { [file exists ${aFile}] } {
+ puts "There is old ${aFile} file; Error"
+ set status 1
+ }
+ #
+ save result ${aFile}
+ catch {exec chmod 777 ${aFile}}
+ if { ![file exists ${aFile}] } {
+ puts "There is not ${aFile} file; save command: Error"
+ set status 1
+ }
+
+ set fp [open ${aFile} "r"]
+ set Log [read -nonewline ${fp}]
+ close ${fp}
+ #
+ if {$i == 0} {
+ set StandardLog ${Log}
+ } else {
+ set info_result [string compare ${Log} ${StandardLog}]
+ if {${info_result} == 0} {
+ # Log == StandardLog
+ puts "Log == StandardLog"
+ } else {
+ # Log != StandardLog
+ set status 1
+ puts "Log != StandardLog"
+ }
+ }
+}
+
+# Resume
+puts ""
+if {${status} == 0} {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set square 6935.38
+set 2dviewer 0
+
+
--- /dev/null
+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
--- /dev/null
+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
+
--- /dev/null
+puts "============"
+puts "OCC22893"
+puts "============"
+puts ""
+#############################################################################
+# Possible regression is tesselation algorithm of OCCT 6.5.2
+#############################################################################
+
+set BugNumber OCC22893
+
+catch {pload XDE}
+
+igesread [locate_data_file OCC22893-thread_22534_boing777.igs] result *
+
+set square 26974.5
+
+set nb_v_good 4183
+set nb_e_good 4191
+set nb_w_good 653
+set nb_f_good 639
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 9667
+
+set 2dviewer 0
+
+
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "OCC22967"
+puts "============"
+puts ""
+############################################################################################################
+# Boolean operations between two cylinders with orthogonal axis generate a shape with big vertex tolerance
+###########################################################################################################
+
+set BugNumber OCC22967
+set check_value 1.04742e-05
+
+restore [locate_data_file bug22967_Cylinder_1.brep] b1
+restore [locate_data_file bug22967_Scale_1.brep] b2
+bop b1 b2
+bopfuse result
+set info [ maxtolerance result ]
+
+regexp {Edge[ \t]*:.*Max[ \t]*([-0-9.+eE]+)} $info full last1
+regexp {Vertex[ \t]*:.*Max[ \t]*([-0-9.+eE]+)} $info full last
+
+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 5
+set status 0
+
+set Tolerance_percent [expr abs ( [GetPercent ${last} ${check_value}] ) ]
+if {${Tolerance_percent} > ${percent_max}} {
+ set status 1
+} else {
+ set status 0
+}
+
+set Tolerance_percent [expr abs ( [GetPercent ${last1} ${check_value}] ) ]
+if {${Tolerance_percent} > ${percent_max}} {
+ set status 1
+} else {
+ set status 0
+}
+
+# Resume
+if {${status} > 0} {
+ puts "${BugNumber}: Faulty"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set square 671262
+set 2dviewer 0
+
--- /dev/null
+puts "================"
+puts "OCC22968"
+puts "================"
+puts ""
+######################################################################################
+# RebuildShape exchanges 2d-curves
+######################################################################################
+
+set BugNumber OCC22968
+
+pload XDE
+
+restore [locate_data_file OCC22968-cylface.brep] a
+checkshape a f
+removeloc result a
+set info [ checkshape result f ]
+
+if { [regexp {The Shape result looks OK} $info] } {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set square 3141.59
+set 2dviewer 0
+
+
+
--- /dev/null
+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
--- /dev/null
+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
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC23 : Checkshape command works wrongly"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "================"
+puts "OCC23"
+puts "================"
+puts ""
+#####################################################################
+## Checkshape gives result that there is a selfintersection on wire, but there are no intersection on it.
+#####################################################################
+
+restore [locate_data_file OCC23.brep] sh
+
+decho off
+set che [checkshape sh]
+decho on
+
+if { [regexp {Faulty} $che] == 1 } {
+ puts "Faulty OCC23 : Checkshape command works wrongly"
+} else {
+ puts "OCC23 OK : Checkshape command works properly"
+}
+
+explode sh f
+explode sh_2 w
+
+renamevar sh_2_1 result
+
+set length 0
+set 2dviewer 0
--- /dev/null
+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
--- /dev/null
+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
+
--- /dev/null
+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
+
--- /dev/null
+puts "============"
+puts "OCC23029"
+puts "============"
+puts ""
+#######################################################################
+# split shape algorithm works incorrectly in some cases
+#######################################################################
+
+set BugNumber OCC23029
+
+catch { pload XDE }
+
+testreadstep [locate_data_file OCC23029-ProblemF.stp] a
+restore [locate_data_file OCC23029-TempW.brep] t
+
+checkshape a
+explode a f
+splitshape result a a_1 t
+
+set square 215.198
+
+set nb_v_good 19
+set nb_e_good 21
+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 45
+
+set CheckShape_status 0
+
+set ll [ llength [explode result f2 ] ]
+
+if { $ll != 2 } {
+ set CheckShape_status 1
+}
+
+# Resume
+puts ""
+if { ${CheckShape_status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+vinit
+vsetdispmode 1
+vdisplay result
+vfit
+
+vmoveto 252 289
+
+set only_screen 1
+
--- /dev/null
+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
+
--- /dev/null
+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
+
+
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "CR23137"
+puts "============"
+puts ""
+##########################################################################################################
+# Class BRepAlgoAPI_Cut does not made correct result on attached shapes.
+##########################################################################################################
+
+restore [locate_data_file bug23137_bspl_cut.brep] b
+explode b
+copy b_1 b1
+copy b_2 b2
+#to provide positive volume of b2
+invert b2
+
+bop b1 b2
+bopcut result
+
+set square 44460.7
+
+set 3dviewer 1
--- /dev/null
+puts "============"
+puts "CR23137"
+puts "============"
+puts ""
+##########################################################################################################
+# Class BRepAlgoAPI_Cut does not made correct result on attached shapes.
+##########################################################################################################
+
+restore [locate_data_file bug23137_rev_cut.brep] b
+explode b
+copy b_1 b1
+copy b_2 b2
+#to provide positive volume of b1
+invert b1
+
+bop b1 b2
+bopcut result
+
+set square 3452.78
+
+set 3dviewer 1
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+puts "================"
+puts "OCC23174"
+puts "================"
+puts ""
+##############################################################################
+# BRepLib_MakeFace(Wire) creates an invalid face on a wire of cylinder bottom
+##############################################################################
+
+set BugNumber OCC23174
+
+catch {pload XDE}
+
+set status 0
+
+# make a cylinder
+pcylinder cyl 50 150
+
+# get wires
+explode cyl W
+
+# make a face from the 3-d wire (planar bottom of the cylinder)
+mkplane f cyl_3 0
+
+# BUG: face is built on a cylindrical face of the cylinder instead of
+# a bottom face
+set reslog [checkshape f -short]
+puts $reslog
+if { $reslog != "This shape seems to be valid" } { set status 1 }
+
+# ========================================================================
+# Make a new cylindrical face from a wire composed from more than 3 edges
+# to check that the bug fix is valid for a wire of more than 1 edge
+# ========================================================================
+
+# get a bottom edge cyl_1; cyl_2 is a top edge; cyl_3 is a seam edge
+nexplode cyl E
+
+# get its 3D curve
+mkcurve c3D cyl_1
+
+# split cyl_1 into 3 edges
+mkedge e1 c3D 0 2
+mkedge e2 c3D 2 4
+mkedge e3 c3D 4 6.28318530717959
+
+# make a reversed seam
+copy cyl_3 cyl_3_r
+treverse cyl_3_r
+
+# make a new wire for a new cylindrical face
+wire w e1 e2 e3 cyl_3 cyl_2 cyl_3_r
+
+# get a surface for a new face
+nexplode cyl F
+mksurface cyl_surf cyl_3
+
+# make a new cylindrical face
+mkface cyl_face_0 cyl_surf w
+fixshape cyl_face cyl_face_0
+
+# make a wire of 3 bottom edges to check the fix
+explode cyl_face E
+wire w cyl_face_2 cyl_face_1 cyl_face_3
+
+# check the fix, i.e. that cylindrical surface is rejected and thus a valid face is built
+mkplane f w 0
+donly f
+set res_log [checkshape f -short]
+puts $reslog
+if { $reslog != "This shape seems to be valid" } { set status 1 }
+
+# =================================================================
+#check that mkplane finds cyl_surf if the wire of cyl_face is given
+# =================================================================
+
+explode cyl_face W
+mkplane f cyl_face_1 0
+
+# get surface of f
+mksurface cyl_surf_2 f
+
+# compare points of 2 surfaces at same UV
+svalue cyl_surf 1 1 x1 y1 z1
+svalue cyl_surf_2 1 1 x2 y2 z2
+
+if { [ expr [dval x1] - [dval x2] ] > 0.0 } { set status 1 }
+if { [ expr [dval y1] - [dval y2] ] > 0.0 } { set status 1 }
+if { [ expr [dval z1] - [dval z2] ] > 0.0 } { set status 1 }
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+renamevar f result
+set square 47123.9
+set 2dviewer 0
+
+
+
+
--- /dev/null
+puts "============"
+puts "OCC23214"
+puts "============"
+puts ""
+#######################################################################
+# BOP section operation produces incorrect result.
+#######################################################################
+
+restore [locate_data_file OCC23214-face_1188.brep] b1
+restore [locate_data_file OCC23214-shell_for_line_1188.brep] b2
+
+bop b1 b2
+bopsection result
+
+set length 2.94086
+set nb_good_vertex 4
+set nb_good_edge 2
+set nb_good_wire 0
+set nb_good_face 0
+set nb_good_shell 0
+set nb_good_solid 0
+set nb_good_compsolid 0
+set nb_good_compound 1
+set nb_good_shape 7
+
+set 2dviewer 0
--- /dev/null
+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
+
--- /dev/null
+puts "================"
+puts "OCC23341"
+puts "================"
+puts ""
+#######################################################################
+# Wrong result done by 2D classifier algorithm for a point and a face
+#######################################################################
+
+set BugNumber OCC23341
+
+restore [locate_data_file bug23341_f1] f1
+restore [locate_data_file bug23341_p] p
+set info [b2dclassify f1 p]
+set check [regexp "OUT" $info]
+
+if { ${check} == 1 } {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+box b 10 100 10
+explode b f
+donly b b_3 b_4
+fit
+
+middlepath result b b_3 b_4
+
+set length 100.
+
+set 2dviewer 1
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+polyline pp 0 0 0 10 0 0 20 10 0 20 20 0
+polyline sp 0 0 0 0 0 100 0 50 200 0 100 100
+mksweep sp
+addsweep pp
+buildsweep a -R
+explode a e
+wire w1 a_2 a_5 a_8
+wire w2 a_24 a_22 a_20
+donly a w1 w2
+fit
+middlepath result a w1 w2
+
+set length 288.824
+
+set 2dviewer 1
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+restore [locate_data_file bug23367_pipe1.brep] a
+explode a e
+wire w1 a_2
+wire w2 a_6
+donly a w1 w2
+fit
+middlepath result a w2 w1
+
+set length 1386.13
+
+set 2dviewer 1
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+restore [locate_data_file bug23367_aa.brep] a
+explode a e
+wire w1 a_57 a_73 a_54 a_71
+wire w2 a_133 a_148 a_130 a_146
+donly a w1 w2
+fit
+middlepath result a w2 w1
+
+set length 3.46311
+
+set 2dviewer 1
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+polyline pp 0 0 0 10 0 0 20 10 0 20 20 0
+polyline sp 0 0 0 0 0 100 -50 50 200 -100 100 100
+mksweep sp
+addsweep pp
+buildsweep a -R
+explode a e
+wire w1 a_2 a_5 a_8
+wire w2 a_24 a_27 a_30
+donly a w1 w2
+fit
+middlepath result a w1 w2
+
+set length 352.512
+
+set 2dviewer 1
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+polyline pp 0 0 0 10 -10 0 20 0 0 10 10 0 0 0 0
+polyline sp 0 0 0 0 0 50 -100 0 0 -50 0 -50 0 0 0
+mksweep sp
+addsweep pp
+buildsweep a -R
+explode a e
+wire ww a_11 a_8 a_5 a_2
+donly a ww
+fit
+middlepath result a ww ww
+
+set length 365.161
+
+set 2dviewer 1
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+polyline pp 0 0 0 10 -10 0 20 0 0 10 10 0 0 0 0
+polyline sp 0 0 0 0 0 50 -100 0 0 -50 0 -50
+mksweep sp
+addsweep pp
+buildsweep a -R
+explode a e
+wire w1 a_11 a_8 a_5 a_2
+wire w2 a_34 a_36 a_28 a_31
+donly a w1 w2
+fit
+middlepath result a w1 w2
+
+set length 270.149
+
+set 2dviewer 1
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+pcylinder a 10 30 180
+explode a f
+donly a a_2 a_3
+fit
+middlepath result a a_2 a_3
+
+set length 30.0036
+
+set 2dviewer 1
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+polyline pp 0 0 0 5 0 0 10 0 0 10 10 0 0 10 0 0 0 0
+mkplane ff pp
+prism a ff 0 0 50
+explode a f
+donly a a_6 a_7
+fit
+middlepath result a a_6 a_7
+
+set length 50.
+
+set 2dviewer 1
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+ptorus a 50 10
+explode a e
+wire ww a_2
+donly a ww
+fit
+middlepath result a ww ww
+
+set length 314.159
+
+set 2dviewer 1
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+pcylinder a 10 50
+explode a f
+donly a a_2 a_3
+fit
+middlepath result a a_2 a_3
+
+set length 50.
+
+set 2dviewer 1
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+restore [locate_data_file bug23367_pipe1.brep] a
+explode a e
+wire w1 a_2
+wire w2 a_6
+donly a w1 w2
+fit
+middlepath result a w1 w2
+
+set length 1386.13
+
+set 2dviewer 1
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+restore [locate_data_file bug23367_aa.brep] a
+explode a e
+wire w1 a_57 a_73 a_54 a_71
+wire w2 a_133 a_148 a_130 a_146
+donly a w1 w2
+fit
+middlepath result a w1 w2
+
+set length 3.46311
+
+set 2dviewer 1
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+restore [locate_data_file bug23367_bb.brep] b
+explode b e
+wire w1 b_1 b_29 b_60 b_27
+wire w2 b_11 b_23 b_56 b_33
+donly b w1 w2
+fit
+middlepath result b w1 w2
+
+set length 1.94244
+
+set 2dviewer 1
+
+
+
--- /dev/null
+puts "============"
+puts "CR23367"
+puts "============"
+puts ""
+##########################################################################################################
+# New functionality restoring the middle path of pipe-like shape
+##########################################################################################################
+
+ptorus a 50 10 0 180
+explode a f
+shape b Sh
+add a_1 b
+explode b e
+wire ww b_2
+donly b ww
+fit
+middlepath result b ww ww
+
+set length 314.159
+
+set 2dviewer 1
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23394"
+puts "============"
+puts ""
+##########################################################################################################
+# Problem with BRepOffset_MakeOffset on a cylindrical face
+##########################################################################################################
+
+restore [locate_data_file bug23394_Circular_tube.brep] sh1
+
+thickshell result sh1 5
+
+set square 128648
+
+set 3dviewer 1
--- /dev/null
+puts "========"
+puts "OCC234"
+puts "========"
+
+######################################################################
+##I believe that attached shape is OK but checkshape finds out some problems (Bad Orientation of Subshape).
+######################################################################
+
+restore [locate_data_file OCC234.brep] result
+
+set che [checkshape result r]
+if { [regexp {OK} $che] != 1 } {
+ puts "Faulty OCC234 (checkshape) : Checkshape command works wrongly"
+} else {
+ puts "OCC234 OK (checkshape) : Checkshape command works properly"
+}
+
+set che [checkshape result]
+if { [regexp {Faulty} $che] == 1 } {
+ puts "Faulty OCC234 (checkshape) : Checkshape command works wrongly"
+} else {
+ puts "OCC234 OK (checkshape) : Checkshape command works properly"
+}
+
+set square 2464.17
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "CR23429"
+puts "============"
+puts ""
+##########################################################################################################
+# BRepFeat_SplitShape algorithm misses some section edges while building result from customer's shape
+##########################################################################################################
+pload QAcommands
+
+restore [locate_data_file OCC23388-Shape1.brep] a
+restore [locate_data_file CR23429-Shape3.brep] b
+
+OCC23429 result a b
+
+set square 1120.52
+
+set 2dviewer 1
+
+
+
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23436"
+puts "============"
+puts ""
+######################################################
+# BRepOffsetAPI_ThruSections crashes when lofting through identical profiles
+######################################################
+
+restore [locate_data_file bug23436_myloft.brep] s
+
+explode s
+
+thrusections result 0 0 s_1 s_2 s_3
--- /dev/null
+puts "============"
+puts "CR23470"
+puts "============"
+puts ""
+##########################################################################################################
+# Boolean Fuse between two edges fails
+##########################################################################################################
+
+restore [locate_data_file bug23470_qe.brep] qe
+explode qe
+bop qe_1 qe_2
+bopfuse result
+
+set nb_v_good 2
+set nb_e_good 1
+set nb_w_good 1
+set nb_shape_good 5
+set length 48.4459
+set command bopfuse
+
+set 2dviewer 1
+
+
--- /dev/null
+puts "============"
+puts "CR23472"
+puts "============"
+puts ""
+##########################################################################################################
+# BRepAlgoAPI_Section algorithm fails with exception while intersecting two faces
+##########################################################################################################
+
+restore [locate_data_file bug23472_f1.brep] f1
+restore [locate_data_file bug23472_f2.brep] f2
+
+bsection result f1 f2 -2d
+
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full l
+
+if { $l != 0} {
+ puts "Error : The bsection is not valid"
+}
+
+# Service parameters
+set mass -0.1
+set m -0.1
--- /dev/null
+puts "========"
+puts "CR23530"
+puts "========"
+puts ""
+##################################################
+## Error in Draw command "checkshape": invalid face is not recognized
+##################################################
+
+restore [locate_data_file bug23530_BadFace.brep] result
+pcurve result
+
+decho off
+set CheckLog [checkshape result]
+decho on
+
+if { [regexp "BRepCheck_UnorientableShape" ${CheckLog}] != 1 } {
+ puts "CR23530: Error"
+}
--- /dev/null
+puts "============"
+puts "OCC23606"
+puts "============"
+puts ""
+#######################################################################
+# Invalid result of pipe operation
+#######################################################################
+
+restore [locate_data_file bug23606_base.brep] sh
+restore [locate_data_file bug23606_path.brep] w
+pipe result w sh
+set n [llength [explode result f]]
+if { ${n} != 10 } {
+ puts "Error : bad number of faces"
+}
+
+# Service parameters
+set mass -0.1
+set m -0.1
--- /dev/null
+puts "============"
+puts "CR23651"
+puts "============"
+puts ""
+###############################
+## Exception on fillet construction between NURBS and surface of revolution
+###############################
+
+restore [locate_data_file bug23651_turbine_shell_one_edge.brep] s
+explode s e
+blend result s 1 s_4
+
+set 3dviewer 1
--- /dev/null
+puts "============"
+puts "CR23651"
+puts "============"
+puts ""
+###############################
+## Exception on fillet construction between NURBS and surface of revolution
+###############################
+
+restore [locate_data_file bug23651_turbine_shell_one_edge.brep ] a
+explode a e
+
+mkevol result a
+updatevol a_4 0. 1.5 0.05 1 0.45 1 0.5 1.5 0.55 2 0.95 2 1. 1.5
+buildevol
+
+set 3dviewer 1
--- /dev/null
+puts "============"
+puts "CR23676"
+puts "============"
+puts ""
+#########################################################
+## Intersection between edge and a face produces extra vertex
+#########################################################
+
+restore [locate_data_file bug23676_q1.brep] b1
+
+explode b1
+copy b1_1 b1
+copy b1_3 b2
+
+bop b1 b2
+bopcut result
+
+set nb_v_good 2
+set nb_e_good 1
+set nb_w_good 1
+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 5
--- /dev/null
+puts "========="
+puts "CR23699"
+puts "========="
+puts ""
+###############################
+## Exception reaised during intersection between two surfaces
+###############################
+
+restore [locate_data_file bug23699_Compound_sigsegv.brep] b1
+
+explode b1 f
+
+mksurface s1 b1_1
+mksurface s2 b1_2
+
+intersect result s1 s2
+
+set 2dviewer 1
--- /dev/null
+puts "========"
+puts "CR23711"
+puts "========"
+########################################################
+## Incorrect result done by fuse operation
+########################################################
+
+restore [locate_data_file bug23711_sph1.brep] b1
+restore [locate_data_file bug23711_sph2.brep] b2
+
+bop b1 b2
+bopfuse result
+
+set square 1256.63
+set 2dviewer 1
--- /dev/null
+puts "========"
+puts "CR23716"
+puts "========"
+########################################################
+## Boolean Fuse between two faces fails
+########################################################
+
+restore [locate_data_file bug23716_qf.brep] b
+explode b
+
+bop b_1 b_3
+bopfuse result
+
+set square 45605.9
+
+set 2dviewer 1
--- /dev/null
+puts "========="
+puts "CR23722"
+puts "========="
+puts ""
+###############################
+## Exception reaised during intersection between two surfaces
+###############################
+
+restore [locate_data_file bug23732_fx1.brep] b1
+restore [locate_data_file bug23732_fx2.brep] b2
+
+mksurface s1 b1
+mksurface s2 b1
+
+intersect result s1 s2
+
+set 2dviewer 1
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : Result shape is WRONG !!!"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "========================"
+puts " OCC238 "
+puts "========================"
+
+#################################################
+## puts " BOPCOMMON case_2_solid.brep and case_2_edge1.brep"
+#################################################
+puts " "
+puts [restore [locate_data_file OCC238a.brep] a]
+puts [restore [locate_data_file case_2_edge1.brep] b]
+puts [bop a b]
+puts [bopcommon result b a]
+
+explode result v
+explode a e
+distmini di result_1 a_3
+regexp {([-0-9.+eE]+)$} [dump $di_val] full dis
+if { [expr $dis > 1.e-5] } {
+ puts "Faulty : Result shape is WRONG !!!"
+} else {
+ puts " Result shape is COMPLITE"
+}
+
+set nb_v_good 14
+set nb_e_good 7
+set length 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : Result shape is WRONG !!!"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "========================"
+puts " OCC238 "
+puts "========================"
+
+#################################################
+## puts " BOPTUC case_2_solid.brep from case_2_edge1.brep"
+#################################################
+puts " "
+puts [restore [locate_data_file OCC238a.brep] a]
+puts [restore [locate_data_file case_2_edge1.brep] b]
+puts [bop a b]
+puts [boptuc result b a]
+
+explode result v
+explode a e
+distmini di result_2 a_3
+regexp {([-0-9.+eE]+)$} [dump $di_val] full dis
+if { [expr $dis > 1.e-5] } {
+ puts "Faulty : Result shape is WRONG !!!"
+} else {
+ puts " Result shape is COMPLITE"
+}
+
+set nb_v_good 14
+set nb_e_good 7
+set length 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contain"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+
+puts "========================"
+puts " OCC239 "
+puts "========================"
+
+#################################################
+## puts " BOPCOMMON case_2_solid.brep and case_2_wire1.brep"
+#################################################
+ puts " "
+restore [locate_data_file OCC238a.brep] a
+restore [locate_data_file case_2_wire1.brep] b
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 18
+set nb_e_good 10
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+
+puts "========================"
+puts " OCC239 "
+puts "========================"
+
+#################################################
+## puts " BOPTUC case_2_solid.brep and case_2_wire1.brep"
+#################################################
+ puts " "
+restore [locate_data_file OCC238a.brep] a
+restore [locate_data_file case_2_wire1.brep] b
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 18
+set nb_e_good 11
+set length 2481.26
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The command is not valid"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"
+
+puts "========================"
+puts " OCC240 "
+puts "========================"
+
+#################################################
+## puts " BOPCOMMON case_2_shell.brep and case_2_edge2.brep"
+#################################################
+ puts " "
+restore [locate_data_file OCC240a.brep] a
+restore [locate_data_file case_2_edge2.brep] b
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 14
+set nb_e_good 6
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+
+puts "========================"
+puts " OCC240 "
+puts "========================"
+
+#################################################
+## puts " BOPTUC case_2_shell.brep and case_2_edge2.brep"
+#################################################
+ puts " "
+restore [locate_data_file OCC240a.brep] a
+restore [locate_data_file case_2_edge2.brep] b
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 14
+set nb_e_good 7
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The command is not valid"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"
+
+puts "========================"
+puts " OCC241 "
+puts "========================"
+
+#################################################
+## puts " BOPCOMMON case_2_shell.brep and case_2_edge3.brep"
+#################################################
+ puts " "
+restore [locate_data_file OCC240a.brep] a
+restore [locate_data_file case_2_edge3.brep] b
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 6
+set nb_e_good 3
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"
+
+puts "========================"
+puts " OCC241 "
+puts "========================"
+
+#################################################
+## puts " BOPTUC case_2_shell.brep and case_2_edge3.brep"
+#################################################
+ puts " "
+restore [locate_data_file OCC240a.brep] a
+restore [locate_data_file case_2_edge3.brep] b
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 6
+set nb_e_good 3
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The command is not valid"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"
+
+puts "========================"
+puts " OCC242 "
+puts "========================"
+
+#################################################
+## puts " BOPCOMMON case_2_shell.brep and case_2_wire1.brep"
+#################################################
+ puts " "
+restore [locate_data_file OCC240a.brep] a
+restore [locate_data_file case_2_wire1.brep] b
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 18
+set nb_e_good 9
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must"
+
+puts "========================"
+puts " OCC242 "
+puts "========================"
+
+#################################################
+## puts " BOPTUC case_2_shell.brep and case_2_wire1.brep"
+#################################################
+ puts " "
+restore [locate_data_file OCC240a.brep] a
+restore [locate_data_file case_2_wire1.brep] b
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 18
+set nb_e_good 13
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+
+puts "========================"
+puts " OCC243 "
+puts "========================"
+
+#################################################
+## puts " BOPCOMMON case_4_shell.brep and case_4_wire3.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_4_shell.brep] a
+restore [locate_data_file case_4_wire3.brep] b
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 15
+set nb_e_good 10
+set length 1150.78
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+
+puts "========================"
+puts " OCC243 "
+puts "========================"
+
+#################################################
+## puts " BOPTUC case_4_shell.brep and case_4_wire3.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_4_shell.brep] a
+restore [locate_data_file case_4_wire3.brep] b
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 16
+set nb_e_good 11
+set length 929.278
+set 2dviewer 1
+
\ No newline at end of file
--- /dev/null
+
+puts "========================"
+puts " OCC244 "
+puts "========================"
+
+#################################################
+## puts " BOPCOMMON case_5_solid.brep and case_5_wire3.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_5_solid.brep] a
+restore [locate_data_file case_4_wire3.brep] b
+ puts [bop a b]
+ puts [bopcommon result]
+
+ set nb_v_good 12
+ set nb_e_good 11
+ set length 1808.02
+ set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+
+puts "========================"
+puts " OCC245 "
+puts "========================"
+
+#################################################
+## puts " BOPCOMMON case_5_shell.brep and case_5_wire3.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_5_shell.brep] a
+restore [locate_data_file case_4_wire3.brep] b
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 12
+set nb_e_good 11
+set length 1808.02
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+
+puts "========================"
+puts " OCC245 "
+puts "========================"
+
+#################################################
+## puts " BOPTUC case_5_shell.brep and case_5_wire3.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_5_shell.brep] a
+restore [locate_data_file case_4_wire3.brep] b
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 3
+set nb_e_good 2
+set length 272.04
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
+
+puts "========================"
+puts " OCC246 "
+puts "========================"
+
+#################################################
+## puts " BOPCOMMON case_1_solid.brep and case_1_wire1.brep"
+#################################################
+ puts " "
+restore [locate_data_file OCC246a.brep] a
+restore [locate_data_file case_1_wire1.brep] b
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 5
+set nb_e_good 2
+set length 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
+
+puts "========================"
+puts " OCC248 "
+puts "========================"
+
+#################################################
+## puts " BOPCOMMON case_8_solid.brep and case_8_wire6.brep"
+#################################################
+ puts " "
+restore [locate_data_file OCC247a.brep] a
+restore [locate_data_file OCC248b.brep] b
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 1
+set nb_e_good 0
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
+
+puts "========================"
+puts " OCC248 "
+puts "========================"
+
+#################################################
+## puts " BOPTUC case_8_solid.brep and case_8_wire6.brep"
+#################################################
+ puts " "
+restore [locate_data_file OCC247a.brep] a
+restore [locate_data_file OCC248b.brep] b
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 8
+set nb_e_good 8
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
+
+puts "========================"
+puts " OCC249 "
+puts "========================"
+
+#################################################
+## puts " BOPCOMMON case_9_wire_a.brep and case_9_edge3.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_9_wire_a.brep] a
+restore [locate_data_file case_9_edge3.brep] b
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 2
+set nb_e_good 1
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
+
+puts "========================"
+puts " OCC249 "
+puts "========================"
+
+#################################################
+## puts " BOPTUC case_9_wire_a.brep and case_9_edge3.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_9_wire_a.brep] a
+restore [locate_data_file case_9_edge3.brep] b
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 4
+set nb_e_good 2
+set length 0
+set 2dviewer 0
+
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
+
+puts "========================"
+puts " OCC249 "
+puts "========================"
+
+#################################################
+## puts " BOPCUT case_9_wire_a.brep and case_9_edge3.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_9_wire_a.brep] a
+restore [locate_data_file case_9_edge3.brep] b
+puts [bop a b]
+puts [bopcut result]
+
+set nb_v_good 4
+set nb_e_good 2
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
+
+puts "========================"
+puts " OCC249 "
+puts "========================"
+
+#################################################
+## puts " BOPFUSE case_9_wire_a.brep and case_9_edge3.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_9_wire_a.brep] a
+restore [locate_data_file case_9_edge3.brep] b
+puts [bop a b]
+puts [bopfuse result]
+
+set nb_v_good 6
+set nb_e_good 5
+set length 0
+set 2dviewer 2
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
+
+puts "========================"
+puts " OCC250 "
+puts "========================"
+
+#################################################
+## puts " BOPCOMMON case_9_wire_a.brep and case_9_wire2.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_9_wire_a.brep] a
+restore [locate_data_file case_9_wire2.brep] b
+puts [bop a b]
+puts [bopcommon result]
+
+set nb_v_good 2
+set nb_e_good 1
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
+
+puts "========================"
+puts " OCC250 "
+puts "========================"
+
+#################################################
+## puts " BOPTUC case_9_wire_a.brep and case_9_wire2.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_9_wire_a.brep] a
+restore [locate_data_file case_9_wire2.brep] b
+puts [bop a b]
+puts [boptuc result]
+
+set nb_v_good 7
+set nb_e_good 6
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
+
+puts "========================"
+puts " OCC250 "
+puts "========================"
+
+#################################################
+## puts " BOPCUT case_9_wire_a.brep and case_9_wire2.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_9_wire_a.brep] a
+restore [locate_data_file case_9_wire2.brep] b
+puts [bop a b]
+puts [bopcut result]
+
+set nb_v_good 4
+set nb_e_good 2
+set length 0
+set 2dviewer 0
+
\ No newline at end of file
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains"
+
+puts "========================"
+puts " OCC250 "
+puts "========================"
+
+#################################################
+## puts " BOPFUSE case_9_wire_a.brep and case_9_wire2.brep"
+#################################################
+ puts " "
+restore [locate_data_file case_9_wire_a.brep] a
+restore [locate_data_file case_9_wire2.brep] b
+puts [bop a b]
+puts [bopfuse result]
+
+set nb_v_good 9
+set nb_e_good 9
+set length 0
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC251"
+puts "================"
+puts ""
+###########################################################
+## Section of two faces f1 and f2 depends on order of arguments: section r1 f1 f2 and
+## section r2 f2 f1 give different results, one of result is invalid - overlapped edges.
+###########################################################
+
+restore [locate_data_file OCC251.brep] f
+explode f
+checkshape f_1
+checkshape f_2
+
+bsection result f_1 f_2
+explode result
+
+set status [OCC333 result_1 result_2]
+if {[llength ${status}] < 1} {
+ puts "OCC251 ERROR"
+} else {
+ regexp {([-0-9.+eE]+)} $status full code
+ if { ${code} == 3 || ${code} == 2} {
+ puts "OCC251 OK (case 1) : Section command works properly"
+ } else {
+ puts "Faulty OCC251 (case 1): Section was made WRONGLY"
+ }
+}
+
+set length 1.
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC251"
+puts "================"
+puts ""
+###########################################################
+## Section of two faces f1 and f2 depends on order of arguments: section r1 f1 f2 and
+## section r2 f2 f1 give different results, one of result is invalid - overlapped edges.
+###########################################################
+
+restore [locate_data_file OCC251.brep] f
+explode f
+checkshape f_1
+checkshape f_2
+
+bsection result f_2 f_1
+explode result
+
+set status [OCC333 result_1 result_2]
+if {[llength ${status}] < 1} {
+ puts "OCC251 ERROR"
+} else {
+ regexp {([-0-9.+eE]+)} $status full code
+ if { ${code} == 3 || ${code} == 2 } {
+ puts "OCC251 OK (case 2) : Section command works properly"
+ } else {
+ puts "Faulty OCC251 (case 2): Section was made WRONGLY"
+ }
+}
+
+set length 1.
+set 2dviewer 0
--- /dev/null
+#INTERFACE IGES
+puts "========"
+puts "OCC260"
+puts "========"
+
+pload XDE
+
+if { [catch { igesbrep [locate_data_file OCC260.igs] a * } catch_result] } {
+ puts "OCC260: Error: there is reading problem"
+} else {
+ regexp {([-0-9.+eE]+) Shape\(s\) listed} [tpcompound result] full ShapeNumber
+ if {${ShapeNumber} > 0} {
+ puts "OCC260: OK"
+ } else {
+ puts "OCC260: Error"
+ }
+}
+
+set length 4.41928
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty OCC263: here is shading problem"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC263"
+puts "========"
+
+restore [locate_data_file OCC263.brep] result
+
+isos result 0
+tclean result
+
+#Creating mesh
+incmesh result 0.01
+
+#View the result of mesh
+triangles result
+
+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 != 989 && $nod != 535 } {
+ puts "Faulty OCC263: here is shading problem"
+} else {
+ puts "Shading of OCC263 is OK"
+}
+
+set square 0
+set 3dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC264"
+puts " (case 0)"
+puts "========"
+
+restore [locate_data_file OCC264_00.rle] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos result 0
+triangles result
+
+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 != 6 && $nod != 8 } {
+ puts "Faulty OCC264_0: here is shading problem"
+} else {
+ puts "Shading of OCC264_0 is OK"
+}
+
+set square 1.3135
+set 3dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC264_1: here is shading problem"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC264"
+puts " (case 1)"
+puts "========"
+
+restore [locate_data_file OCC264_01.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos result 0
+triangles result
+
+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 != 26 && $nod != 28 } {
+ puts "Faulty OCC264_1: here is shading problem"
+} else {
+ puts "Shading of OCC264_1 is OK"
+}
+
+set square 0
+set 3dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC264_10: here is shading problem"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC264"
+puts " (case 10)"
+puts "========"
+
+restore [locate_data_file OCC264_10.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos result 0
+triangles result
+
+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 != 8 && $nod != 10 } {
+ puts "Faulty OCC264_10: here is shading problem"
+} else {
+ puts "Shading of OCC264_10 is OK"
+}
+
+set square 0
+set 3dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC264_11: here is shading problem"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC264"
+puts " (case 11)"
+puts "========"
+
+restore [locate_data_file OCC264_11.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos result 0
+triangles result
+
+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 != 32 && $nod != 28 } {
+ puts "Faulty OCC264_11: here is shading problem"
+} else {
+ puts "Shading of OCC264_11 is OK"
+}
+
+set square 0
+set 3dviewer 0
+
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty OCC264_12: here is shading problem"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC264"
+puts " (case 12)"
+puts "========"
+
+restore [locate_data_file OCC264_12.brep] result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos res 0
+triangles result
+
+#smallview
+#fit
+
+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 != 19 && $nod != 21 } {
+ puts "Faulty OCC264_12: here is shading problem"
+} else {
+ puts "Shading of OCC264_12 is OK"
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC264_2: here is shading problem"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC264"
+puts " (case 2)"
+puts "========"
+
+restore [locate_data_file OCC264_02.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos result 0
+triangles result
+
+smallview
+fit
+
+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 != 10 && $nod != 12 } {
+ puts "Faulty OCC264_2: here is shading problem"
+} else {
+ puts "Shading of OCC264_2 is OK"
+}
+
+set square 0
+set 3dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC264_3: here is shading problem"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC264"
+puts " (case 3)"
+puts "========"
+
+restore [locate_data_file OCC264_03.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos result 0
+triangles result
+
+#smallview
+#fit
+
+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 != 13 && $nod != 15 } {
+ puts "Faulty OCC264_3: here is shading problem"
+} else {
+ puts "Shading of OCC264_3 is OK"
+}
+
+set square 0
+set 3dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC264_4: here is shading problem"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC264"
+puts " (case 4)"
+puts "========"
+
+restore [locate_data_file OCC264_04.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos result 0
+triangles result
+
+#smallview
+#fit
+
+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 != 13 && $nod != 15 } {
+ puts "Faulty OCC264_4: here is shading problem"
+} else {
+ puts "Shading of OCC264_4 is OK"
+}
+
+set square 0
+set 3dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC264_5: here is shading problem"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC264"
+puts " (case 5)"
+puts "========"
+
+restore [locate_data_file OCC264_05.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos result 0
+triangles result
+
+#smallview
+#fit
+
+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 != 85 && $nod != 87 } {
+ puts "Faulty OCC264_5: here is shading problem"
+} else {
+ puts "Shading of OCC264_5 is OK"
+}
+
+set square 0
+set 3dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC264"
+puts " (case 6)"
+puts "========"
+
+restore [locate_data_file OCC264_06.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos result 0
+triangles result
+
+#smallview
+#fit
+
+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 != 18 && $nod != 20 } {
+ puts "Faulty OCC264_6: here is shading problem"
+} else {
+ puts "Shading of OCC264_6 is OK"
+}
+
+set square 19.2399
+set 3dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC264"
+puts " (case 7)"
+puts "========"
+
+restore [locate_data_file OCC264_07.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos result 0
+triangles result
+
+#smallview
+#fit
+
+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 != 114 && $nod != 116) && ($tri != 116 && $nod != 118) } {
+ puts "Shady OCC264_7: here may be shading problem"
+} else {
+ puts "Shading of OCC264_7 is OK"
+}
+
+set square 150.283
+set 3dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC264_8: here is shading problem"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC264"
+puts " (case 8)"
+puts "========"
+
+restore [locate_data_file OCC264_08.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos result 0
+triangles result
+
+#smallview
+#fit
+
+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 != 19 && $nod != 21 } {
+ puts "Faulty OCC264_8: here is shading problem"
+} else {
+ puts "Shading of OCC264_8 is OK"
+}
+
+set square 0
+set 3dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC264_9: here is shading problem"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC264"
+puts " (case 9)"
+puts "========"
+
+restore [locate_data_file OCC264_09.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vclear
+
+isos result 0
+triangles result
+
+#smallview
+#fit
+
+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 != 19 && $nod != 21 } {
+ puts "Faulty OCC264_9: here is shading problem"
+} else {
+ puts "Shading of OCC264_9 is OK"
+}
+
+set square 0
+set 3dviewer 0
--- /dev/null
+
+puts "======== OCC269 ========"
+
+restore [locate_data_file OCC269-1.brep] result
+checkshape result
+isos result 0
+tclean result
+
+#Creating mesh
+incmesh result 0.01
+
+#View the result of mesh
+triangles result
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+
+#$tri != 8091 && $nod != 4121,aki251103
+if { $tri != 5853 && $nod != 2999 } {
+ puts "Shady OCC269: shading problem may be, nb tri & nod changed"
+} else {
+ puts "Shading of OCC269 is OK"
+}
+set square 32.9479
+set 2dviewer 0
--- /dev/null
+
+puts "======== OCC269 ========"
+
+restore [locate_data_file OCC269-2.brep] result
+checkshape result
+isos result 0
+tclean result
+
+#Creating mesh
+incmesh result 0.01
+
+#View the result of mesh
+triangles result
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+
+# $tri != 7627 && $nod != 3888,aki251103
+if { $tri != 6849 && $nod != 3498 } {
+ puts "Shady OCC269: shading problem may be"
+} else {
+ puts "Shading of OCC269 is OK"
+}
+set square 32.9479
+set 2dviewer 0
--- /dev/null
+
+puts "======== OCC269 ========"
+
+restore [locate_data_file OCC269-3.brep] result
+checkshape result
+isos result 0
+tclean result
+
+#Creating mesh
+incmesh result 0.01
+
+#View the result of mesh
+triangles result
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+
+# $tri != 7524 && $nod != 3840,aki251103
+if { $tri != 6302 && $nod != 3226 } {
+ puts "Shady OCC269: shading problem may be, nb tri & nod changed"
+} else {
+ puts "Shading of OCC269 is OK"
+}
+set square 36.4284
+set 2dviewer 0
+
--- /dev/null
+
+puts "======== OCC269 ========"
+
+restore [locate_data_file OCC269-4.brep] result
+checkshape result
+isos result 0
+tclean result
+
+#Creating mesh
+incmesh result 0.01
+
+#View the result of mesh
+triangles result
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+
+# $tri != 8362 && $nod != 4257
+if { $tri != 7218 && $nod != 3685 } {
+ puts "Shady OCC269: shading problem may be, nb tri & nod changed"
+} else {
+ puts "Shading of OCC269 is OK"
+}
+set square 36.4284
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC2785"
+puts "============"
+puts ""
+######################################################
+# Cut and fuse operations for two faces that share same domain give invalid result
+######################################################
+# Cut and fuse operations for two faces that share same domain gives invalid
+# result, if one face has a hole and other face touches a boundary of this hole.
+######################################################
+## (new topology)
+## (bcut)
+## (bop)
+## (boptuc)
+## (bfuse)
+######################################################
+
+############# data #############
+pcylinder c1 2 10
+pcylinder c2 2 2
+explode c1 f
+explode c2 f
+mksurface gs c2_1
+trim trgs gs 1 2 2 4
+mkface ff trgs
+trim trgs gs 0 1 2 4
+mkface ff2 trgs
+
+bcut rcut1 c1_1 ff
+checkshape rcut1
+
+bop ff2 rcut1
+boptuc rcut2
+checkshape rcut2
+
+bfuse fuse1 rcut2 ff2
+checkshape fuse1
+
+bfuse result fuse1 ff
+
+set square 125.664
+set 3dviewer 1
--- /dev/null
+puts "============"
+puts "OCC2785"
+puts "============"
+puts ""
+######################################################
+# Cut and fuse operations for two faces that share same domain give invalid result
+######################################################
+# Cut and fuse operations for two faces that share same domain gives invalid
+# result, if one face has a hole and other face touches a boundary of this hole.
+######################################################
+## (old topology)
+## (cut)
+## (fuse)
+######################################################
+
+############# data #############
+pcylinder c1 2 10
+pcylinder c2 2 2
+explode c1 f
+explode c2 f
+mksurface gs c2_1
+trim trgs gs 1 2 2 4
+mkface ff trgs
+trim trgs gs 0 1 2 4
+mkface ff2 trgs
+
+bcut rcut1 c1_1 ff
+checkshape rcut1
+
+bcut rcut2 rcut1 ff2
+checkshape rcut2
+
+bfuse fuse1 rcut2 ff2
+checkshape fuse1
+
+bfuse result fuse1 ff
+
+set square 125.664
+set 3dviewer 1
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+puts "TODO OCC12345 ALL: OCC287 : Faulty"
+
+puts "========================"
+puts " OCC287 "
+puts "========================"
+
+restore [locate_data_file shading_170.brep] result
+checkshape result
+
+tclean result
+isos result 0
+incmesh result .1
+triangles result
+
+# set 3dviewer 1
+
+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 != 604 && $nod != 363} {
+ puts " Warning: OCC287 looks like OK, but visual checking is required !!!!"
+} else {
+ puts "OCC287 : Faulty"
+}
+
+puts ""
+puts "Besides, it is impossible to load this shape in 3D Viewer"
+vinit
+vdisplay result
+vfit
+vsetdispmode result 1
+
+set square 0
+set 3dviewer 0
+
--- /dev/null
+
+puts "================= OCC291 ==================="
+
+#################################################################
+## Some triangles of shading mesh are outside of shape boundaries. (See attached shape).
+#################################################################
+
+restore [locate_data_file shading_171.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vsetdispmode result 1
+vfit
+
+isos result 0
+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
+
+#$tri == 395 && $nod == 350,aki251103.
+if { $tri == 382 && $nod == 343 } {
+ puts " Warning: OCC291 looks like OK, but visual checking is required !"
+} else {
+ puts " Shady OCC291 : nb tri & nod changed"
+}
+
+set square 376.873
+set only_screen 1
+
--- /dev/null
+
+puts "========================"
+puts " OCC292 "
+puts "========================"
+puts ""
+#################################################################
+## Attached face looks as unclosed but command "checkshape" concludes that it is valid. Inspite of that,
+## mesh for shading is not creating on this face.
+#################################################################
+
+restore [locate_data_file OCC292.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vsetdispmode result 1
+
+isos result 0
+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 ==6 && $nod == 8} {
+ puts " Warning: OCC292 looks like OK, but visual checking is required !!!!"
+} else {
+ puts " OCC292 : Faulty"
+}
+
+set square 1.3135
+set 3dviewer 1
+
+
--- /dev/null
+#by apn on master-master 03.12.2012
+#puts "TODO OCC12345 ALL: An exception was caught"
+#puts "TODO OCC12345 ALL: \\*\\* Exception *\\*\\*.*"
+#puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+
+puts "================"
+puts "OCC293"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC293.brep] a
+tclean a
+checkshape a
+
+vinit
+#vdisplay a
+#vfit
+
+renamevar a edge
+explode edge e
+
+renamevar edge face
+explode face f
+
+chamf result1 face edge_26 face_5 A 1 45
+checkshape result1
+
+chamf result2 face edge_30 face_5 A 1 45
+checkshape result2
+
+chamf result3 face edge_34 face_5 A 1 45
+checkshape result3
+
+chamf result4 face edge_39 face_5 A 1 45
+checkshape result4
+
+chamf result5 face edge_35 face_5 A 1 45
+checkshape result5
+
+chamf result6 face edge_31 face_5 A 1 45
+checkshape result6
+
+chamf result7 face edge_27 face_5 A 1 45
+checkshape result7
+
+chamf result8 face edge_24 face_5 A 1 45
+checkshape result8
+
+# all contour is :
+#chamf result face edge_26 face_5 A 1 45 edge_28 face_5 A 1 45 edge_30 face_5 A 1 45 edge_32 face_5 A 1 45 edge_34 face_5 A 1 45 edge_36 face_5 A 1 45 edge_38 face_5 A 1 45 edge_40 face_5 A 1 45 edge_13 face_5 A 1 45 edge_14 face_5 A 1 45 edge_39 face_5 A 1 45 edge_37 face_5 A 1 45 edge_35 face_5 A 1 45 edge_33 face_5 A 1 45 edge_31 face_5 A 1 45 edge_29 face_5 A 1 45 edge_27 face_5 A 1 45 edge_6 face_5 A 1 45 edge_4 face_5 A 1 45 edge_19 face_5 A 1 45 edge_22 face_5 A 1 45 edge_23 face_5 A 1 45 edge_24 face_5 A 1 45 edge_25 face_5 A 1 45 edge_26 face_5 A 1 45
+
+#checkshape result
+
+vclear
+
+#vdisplay result1
+#vdisplay result2
+#vdisplay result3
+#vdisplay result4
+#vdisplay result5
+#vdisplay result6
+#vdisplay result7
+#vdisplay result8
+compound result1 result2 result3 result4 result5 result6 result7 result8 result
+vdisplay result
+vfit
+
+set square 9.80214e+06
+set only_screen 1
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC295"
+puts "================"
+puts ""
+##############################################################
+## Exception is raised in the GeomConvert_CompCurveToBSplineCurve
+##Exception "Run-time exception error
+## current exception: xalloc. No handler for exception.
+## " is raised during merging to edges in DRAW with command "merge re e1 e2".
+##############################################################
+
+restore [locate_data_file OCC295-1.brep] e1
+
+set che [checkshape e1]
+if { [regexp {Faulty} $che] == 1} {
+ puts "Faulty OCC295 (shape1): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar e1 result
+} else {
+ puts "OCC295 OK (shape1): Source shape is valid"
+ restore [locate_data_file OCC295-2.brep] e2
+ set che [checkshape e2]
+ if { [regexp {Faulty} $che] == 1} {
+ puts "Faulty OCC295 (shape2): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar e2 result
+ } else {
+ puts "OCC295 OK (shape2): Source shape is valid"
+ OCC295 result e1 e2
+ }
+}
+
+set length 19.5611
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC297"
+puts "========"
+
+vertex v1 250 250 0
+vertex v2 -250 250 0
+vertex v3 -250 -250 0
+vertex v4 250 -250 0
+
+edge e1 v1 v2
+edge e2 v2 v3
+edge e3 v3 v4
+edge e4 v4 v1
+
+wire w1 e1 e2 e3 e4
+
+mkplane f w1
+
+set x 0
+set y 0
+
+set Zpoint -100
+set Zbox -30
+
+halfspace hs f $x $y $Zpoint
+
+box b 0 0 $Zbox 150 200 200
+
+bcut result b hs
+
+set square 179000
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC297"
+puts "========"
+
+vertex v1 250 250 0
+vertex v2 -250 250 0
+vertex v3 -250 -250 0
+vertex v4 250 -250 0
+
+edge e1 v1 v2
+edge e2 v2 v3
+edge e3 v3 v4
+edge e4 v4 v1
+
+wire w1 e1 e2 e3 e4
+
+mkplane f w1
+
+set x 0
+set y 0
+
+set Zpoint 100
+set Zbox -30
+
+halfspace hs f $x $y $Zpoint
+
+box b 0 0 $Zbox 150 200 200
+
+bcut result b hs
+set square 81000
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC297"
+puts "========"
+
+vertex v1 250 250 0
+vertex v2 -250 250 0
+vertex v3 -250 -250 0
+vertex v4 250 -250 0
+
+edge e1 v1 v2
+edge e2 v2 v3
+edge e3 v3 v4
+edge e4 v4 v1
+
+wire w1 e1 e2 e3 e4
+
+mkplane f w1
+
+set x 0
+set y 0
+
+set Zpoint -100
+set Zbox -80
+
+halfspace hs f $x $y $Zpoint
+
+box b 0 0 $Zbox 150 200 200
+
+bcut result b hs
+set square 144000
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC297"
+puts "========"
+
+vertex v1 250 250 0
+vertex v2 -250 250 0
+vertex v3 -250 -250 0
+vertex v4 250 -250 0
+
+edge e1 v1 v2
+edge e2 v2 v3
+edge e3 v3 v4
+edge e4 v4 v1
+
+wire w1 e1 e2 e3 e4
+
+mkplane f w1
+
+set x 0
+set y 0
+
+set Zpoint 100
+set Zbox -80
+
+halfspace hs f $x $y $Zpoint
+
+box b 0 0 $Zbox 150 200 200
+
+bcut result b hs
+set square 116000
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC298 "
+puts "========================"
+puts ""
+#################################################################
+## Exception during "tcopy" command
+#################################################################
+
+restore [locate_data_file OCC298.brep] result
+checkshape result
+
+if [catch {tcopy result a } result] {
+ puts "Faulty OCC298: function TCOPY works wrongly"
+} else {
+ puts "OCC298 OK: function TCOPY works properly"
+}
+
+set square 8e+100
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC2986"
+puts "============"
+puts ""
+######################################################
+# Cut&fuse oprs. for 2 toroidal faces, sharing the same domain give invalid result
+######################################################
+## (new topology)
+## (bop)
+## (bopcut)
+## (bfuse)
+######################################################
+
+############# data #############
+ptorus p1 10 4
+explode p1 f
+mksurface gs p1_1
+trim trgs gs 1 2 1 2
+mkface ff trgs
+############# testing faces are: p1_1 ff #############
+
+bop p1_1 ff
+bopcut rcut1
+checkshape rcut1
+
+bfuse result rcut1 ff
+
+set square 1579.81
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC2986"
+puts "============"
+puts ""
+######################################################
+# Cut&fuse oprs. for 2 toroidal faces, sharing the same domain give invalid result
+######################################################
+## (old topology)
+## (cut)
+## (fuse)
+######################################################
+
+############# data #############
+ptorus p1 10 4
+explode p1 f
+mksurface gs p1_1
+trim trgs gs 1 2 1 2
+mkface ff trgs
+
+bcut rcut1 p1_1 ff
+checkshape rcut1
+
+bfuse result rcut1 ff
+
+set square 1579.81
+set 3dviewer 1
--- /dev/null
+
+puts "================"
+puts "OCC300"
+puts "================"
+puts ""
+#################################################
+## Compsolids have no volume. #2432(SAM1380)
+#################################################
+
+restore [locate_data_file OCC300.brep] result
+
+set che [checkshape result]
+if { [regexp {Faulty} $che] == 1 } {
+ puts "Faulty OCC300: Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+} else {
+ puts "OCC300 OK: Source shape is valid"
+
+ set props [vprops result]
+ set list [split ${props}]
+ set listLength [llength ${list}]
+ if { ${listLength} < 5 } {
+ puts "OCC300 - Error : listLength= ${listLength}"
+ }
+
+ regexp {Mass +: +([-0-9.+eE]+)} $props full volume
+ set maxdelta 0.000001
+ if { ${volume} < ${maxdelta} } then {
+ puts "OCC300 - Error "
+ } else {
+ puts "OCC300 - OK"
+ }
+ puts "Volume = ${volume}"
+}
+
+set square 750
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " OCC302 "
+puts "(case 1)"
+puts "========================"
+puts ""
+#################################################################
+## After performing command "checkbrep" to attached face I receive "Bad Orientation of Subshape"
+## but I believe that orientation of this face is correct.
+#################################################################
+
+restore [locate_data_file OCC302a.brep] result
+
+set che [checkshape result r]
+if { [regexp {OK} $che] != 1} {
+ puts "Faulty OCC302 (case 1): command checkbrep works wrongly"
+} else {
+ puts "OCC302 OK (case 1) : command checkbrep works properly"
+}
+
+set square 271.611
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " OCC302 "
+puts "(case 2)"
+puts "========================"
+puts ""
+#################################################################
+## After performing command "checkbrep" to attached face I receive "Bad Orientation of Subshape"
+## but I believe that orientation of this face is correct.
+#################################################################
+
+restore [locate_data_file OCC302b.brep] result
+
+set che [checkshape result r]
+if { [regexp {OK} $che] != 1} {
+ puts "Faulty OCC302 (case 2): command checkbrep works wrongly"
+} else {
+ puts "OCC302 OK (case 2) : command checkbrep works properly"
+}
+
+set square 1.93998
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " OCC302 "
+puts "(case 3)"
+puts "========================"
+puts ""
+#################################################################
+## After performing command "checkshape" to attached face I receive "Bad Orientation of Subshape"
+## but I believe that orientation of this face is correct.
+#################################################################
+
+restore [locate_data_file OCC302c.brep] result
+
+set che [checkshape result r]
+if { [regexp {OK} $che] !=1 } {
+ puts "Faulty OCC302 (case 3): command checkshape works wrongly"
+} else {
+ puts "OCC302 OK (case 3) : command checkshape works properly"
+}
+
+set square 23240.8
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
+puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+
+puts "========"
+puts "OCC305"
+puts "========"
+puts ""
+######################################################
+# BRepOffsetAPI_MakeOffset: problem with offsetting a wire
+######################################################
+
+puts ""
+puts "Bug's attributes"
+puts "################"
+puts ""
+puts "Customer : Telco"
+puts "Channel : External"
+puts "Version : 4.0"
+puts "OS : IRIX"
+puts "Urgency : High"
+puts "Type : BUG"
+puts ""
+puts "Summary: BRepOffsetAPI_MakeOffset: problem with offsetting a wire"
+puts ""
+puts "Description:"
+puts "I am attaching the brep file of a curve, obtained from intersection with a"
+puts "plane. Its a planer curve and we want to offset it by the amount which"
+puts "is feasible. after trying with all options we were not able to offset it."
+puts "But the same wire when we read inside EUCLID3 as well as CATIA it does"
+puts "the offset correctly."
+puts ""
+puts ""
+puts "Bug's advancement"
+puts "#################"
+puts ""
+puts "Customer version Development version"
+puts "Status : CLOSED Status : CLOSED"
+puts "Resolution : NOT Resolution : NOT"
+puts "Leave as CLOSED NOT Leave as CLOSED NOT"
+puts ""
+puts ""
+puts "Bug's history"
+puts "#############"
+puts ""
+puts "------- Additional Comments From Igor NAZAROV-BUGMASTER 2002-04-19 16:21 -------"
+puts "Dear Sergey,"
+
+puts "Below you will find conclusion of JGV about thia bug"
+puts "Bugmaster"
+puts " This case can not be done by existing algorithm. It is mathematical"
+puts "limitation: the offset may be performed only from at least C1-continuous"
+puts "curve, but all the 12 edges of initial wire are based on C0-continuous"
+puts "curves."
+puts " I may modify the algorithm so that it splits initial edges into"
+puts "C1-continuous curves, but then resulting wire will consist of too many"
+puts "small edges (in our case the number of edges will increase about 100"
+puts "times)."
+puts " But user may obtain initial wire more smooth: when he intersects"
+puts "something with a plane by command \"section\", he can add the key \"-a\""
+puts "(force approximation)."
+puts ""
+puts ""
+
+catch {pload XDE}
+
+restore [locate_data_file OCC305.brep] a
+checkshape a
+
+if [catch {mkoffset result a 1 0.5 } catch_result] {
+ puts "Faulty OCC305 : function MKOFFSET works wrongly"
+} else {
+ decho off
+ set che [checkshape result]
+ decho on
+ if { [regexp {This shape seems to be valid} $che] == 1} {
+ puts "OCC305 OK"
+ } else {
+ puts "Faulty OCC305"
+ }
+}
+set square 0
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_1"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+pload QAcommands
+
+puts "================"
+puts "OCC307"
+puts "SAM1265"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC307.brep] f
+
+set che [checkshape f]
+if { [regexp {Faulty} $che ] == 1} {
+ puts "Warning OCC307: Source shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC307 OK: Source shape is valid"
+}
+
+explode f f
+
+renamevar f w
+
+explode w w
+
+OCC307 result1 f_4 w_6 0
+OCC307 result2 f_5 result1 0
+
+checkshape result1
+renamevar result2 result
+
+set square 0
+set 2dviewer 0
+
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_1"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+pload QAcommands
+
+puts "================"
+puts "OCC307"
+puts "SAM1265"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC307.brep] f
+
+set che [checkshape f]
+if { [regexp {Faulty} $che] == 1} {
+ puts "Warning OCC307: Source shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC307 OK: Source shape is valid"
+}
+
+explode f f
+
+renamevar f w
+
+explode w w
+
+OCC307 result1 f_4 w_6 1
+OCC307 result2 f_5 result1 1
+
+checkshape result1
+renamevar result2 result
+
+set square 0
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC315"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC315-1.brep] f1
+restore [locate_data_file OCC315-2.brep] f2
+checkshape f1
+checkshape f2
+
+bcut result f1 f2
+
+set square 58584.1
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " OCC317 "
+puts "========================"
+puts ""
+##################################################
+## A Solid "so" is valid, whereas wire "so_5" from the solid is not valid.
+##################################################
+
+restore [locate_data_file OCC317.brep] result
+
+set che [checkshape result]
+if { [regexp {Faulty} $che] == 1} {
+ puts "Faulty OCC317: Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+} else {
+ puts "OCC317 OK: Source shape is valid"
+ explode result w
+
+ set che [checkshape result_5]
+ if { [regexp {Faulty} $che] == 1} {
+ puts "Faulty OCC317: Wire is invalid. It was detected by Checkshape command"
+ } else {
+ puts "OCC317 OK : Wire is valid."
+ }
+
+ set che [checkshape result r]
+ if { [regexp {OK} $che] != 1 } {
+ puts "Faulty OCC317: Wire is invalid. It was detected by Checkshape command"
+ } else {
+ puts "OCC317 OK : Wire is valid."
+ }
+}
+
+set square 2104.21
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC318 "
+puts "========================"
+puts ""
+##################################################
+## Checkshape works wrong with Semi-Infinite Prism (s)
+##################################################
+
+box mb -0.5 -0.5 -0.5 1 1 1
+explode mb F
+prism result mb_1 1 0 0 SemiInf
+
+set che [checkshape result]
+if { [regexp {Faulty} $che] == 1} {
+ puts "Faulty OCC318: Result shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC318 OK: Result shape is valid"
+}
+
+set square 8e+100
+set 2dviewer 0
--- /dev/null
+puts "================"
+puts "OCC322"
+puts "================"
+puts ""
+
+pload QAcommands
+
+restore [locate_data_file OCC322.brep] a
+checkshape a
+
+sewing result a
+
+vinit
+vdisplay result
+vfit
+
+set x_coord 204
+set y_coord 297
+
+checkcolor $x_coord $y_coord 1 1 0
+
+set x_coord 251
+set y_coord 232
+
+checkcolor $x_coord $y_coord 1 1 0
+
+set square 20000
+set only_screen 1
+
--- /dev/null
+
+puts "================"
+puts "OCC323"
+puts "OCC229"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC323.brep] f
+explode f
+
+decho off
+set che [checkshape f_1]
+decho on
+
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Warning OCC323 (shape1): Source shape is NOT correct. It was detected by Checkshape command"
+} else {
+ puts "OCC323 OK (shape1): Source shape is valid"
+}
+
+decho off
+set che [checkshape f_2]
+decho on
+
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Warning OCC323 (shape2): Source shape is NOT correct. It was detected by Checkshape command"
+} else {
+ puts "OCC323 OK (shape2): Source shape is valid"
+}
+
+bsection r f_1 f_2
+checkshape r
+puts [checksection r]
+
+decho off
+set che [checkshape f_3]
+decho on
+
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Warning OCC323 (shape3): Source shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC323 OK (shape3): Source shape is valid"
+}
+
+bsection result f_1 f_3
+
+set length 1
+set 2dviewer 0
+
+
+
--- /dev/null
+puts "========================"
+puts " OCC327 "
+puts " case 1 "
+puts "========================"
+
+restore [locate_data_file OCC327a.brep] result
+
+set che [checkshape result r]
+if { [regexp {OK} $che] == 1 } {
+ puts " OCC327 case 1: OK"
+} else {
+ puts " OCC327 case 1: Faulty"
+}
+
+set square 1477.93
+set 2dviewer 0
+
--- /dev/null
+puts "========================"
+puts " OCC327 "
+puts " case 2 "
+puts "========================"
+
+restore [locate_data_file OCC327b.brep] result
+
+set che [checkshape result r]
+if { [regexp {OK} $che] == 1 } {
+ puts " OCC327 case 2: OK"
+} else {
+ puts " OCC327 case 2: Faulty"
+}
+
+set square 5674.84
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " OCC327 "
+puts " case 3 "
+puts "========================"
+
+restore [locate_data_file OCC327c.brep] result
+
+set che [checkshape result r]
+if { [regexp {OK} $che] == 1 } {
+ puts " OCC327 case 3: OK"
+} else {
+ puts " OCC327 case 3: Faulty"
+}
+
+set square 61013.8
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " OCC327 "
+puts " case 4 "
+puts "========================"
+
+restore [locate_data_file OCC327d.brep] result
+
+set che [checkshape result r]
+if { [regexp {OK} $che] == 1 } {
+ puts " OCC327 case 4: OK"
+} else {
+ puts " OCC327 case 4: Faulty"
+}
+
+set square 7793.26
+set 2dviewer 0
+
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC330: Checkshape command works wrongly"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========================"
+puts " OCC330 "
+puts "========================"
+puts ""
+##################################################
+## checkshape command consider the shape with incorrect order of tolerance as valid.
+##################################################
+
+restore [locate_data_file OCC330.brep] result
+
+decho off
+set che [checkshape result]
+decho on
+
+if { [regexp {Faulty} $che ] != 1 } {
+ puts "Faulty OCC330: Checkshape command works wrongly"
+} else {
+ puts "OCC330 OK : Checkshape command works properly"
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60928"
+puts "OCC334"
+puts "============"
+
+restore [locate_data_file BUC60928.brep] a
+
+explode a
+checkshape a_1
+checkshape a_2
+
+bcut result a_2 a_1
+
+set square 358258
+set 2dviewer 0
+
--- /dev/null
+
+puts "============"
+puts "BUC60931"
+puts "OCC335"
+puts "============"
+puts ""
+#################################################################################
+## It's impossible to make boolean operations (common)for the two solids in the file attached. Samcef Modeler project bug
+#################################################################################
+
+restore [locate_data_file BUC60931.brep] a
+
+explode a
+checkshape a_1
+checkshape a_2
+
+bcommon result a_1 a_2
+
+set square 22715.9
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60939"
+puts "OCC336"
+puts "============"
+
+restore [locate_data_file BUC60939.brep] a
+
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_1 a_2
+
+set square 32903.1
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC337"
+puts "================"
+puts ""
+############################################
+## It's impossible to fuse two solids in the file attached.
+############################################
+
+restore [locate_data_file OCC337_clone1.brep] a
+explode a
+
+set che [checkshape a_1]
+
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC337 (shape 1): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar a_1 result
+} else {
+ puts "OCC337 OK (shape 1): Source shape is valid"
+ set che [checkshape a_2]
+ if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC337 (shape 2): Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar a_2 result
+ } else {
+ puts "OCC337 OK (shape 2): Source shape is valid"
+ bfuse result a_1 a_2
+ }
+}
+
+set square 35009.9
+set 2dviewer 0
+
+
+
+
--- /dev/null
+
+puts "========"
+puts "BUC60996"
+puts "OCC338"
+puts "========"
+puts ""
+
+restore [locate_data_file buc60996.brep] b
+explode b
+checkshape b_1
+checkshape b_2
+
+bfuse f1 b_1 b_2
+checkshape f1
+bfuse result b_2 b_1
+
+set square 73561.9
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "BUC61005"
+puts "OCC340"
+puts "========"
+puts ""
+
+restore [locate_data_file buc61005.brep] w
+checkshape w
+revol result w 0 0 0 0 0 1 360 1
+
+set square 55795.4
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "BUC61008"
+puts "OCC341"
+puts "========"
+puts ""
+
+restore [locate_data_file buc61008.brep] w
+checkshape w
+
+mkplane f w
+prism result f 0 0 100
+
+set square 24991
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "BUC61048"
+puts "OCC345"
+puts "================"
+puts ""
+############################################
+## Command sameparametr in DRAW hangs on attached edge.
+############################################
+
+restore [locate_data_file OCC345.brep] result
+
+sameparameter result
+set length 3.89067
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " BUC60959 "
+puts " OCC347 "
+puts " (case 1) "
+puts "========================"
+
+restore [locate_data_file OCC347a.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vfit
+vsetdispmode result 1
+set 3dviewer 1
+
+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 == 72 && $nod == 74} {
+ puts " OCC347 case 1: OK"
+} else {
+ puts " OCC347 case 1: Faulty"
+}
+
+set square 314.159
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " BUC60959 "
+puts " OCC347 "
+puts " (case 2) "
+puts "========================"
+
+restore [locate_data_file OCC347b.brep] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vfit
+vsetdispmode result 1
+set 3dviewer 1
+
+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 == 71 && $nod == 73} {
+ puts " OCC347 case 2: OK"
+} else {
+ puts " OCC347 case 2: Faulty"
+}
+
+set square 100.531
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC356"
+puts "================"
+puts ""
+#######################################################
+## The Draw command "wexplo" gives one edge instead of 6 for the face.
+#######################################################
+
+restore [locate_data_file OCC356.brep] result
+checkshape result
+
+explode result w
+
+wexplo result_1 result
+
+set nom 0
+set j 1
+repeat 10 {
+ set err ""
+ regexp { is a shape ([A-Z]+)} [whatis WEDGE_$j] full err
+ if { $err != "EDGE"} {
+ break
+ } else {
+ set nom [expr $nom + 1]
+ }
+ incr j
+}
+if { $nom != 6} {
+ puts "Faulty OCC356 : Command WEXPLO works WRONGLY"
+} else {
+ puts "OCC356 OK : Command WEXPLO works properly"
+}
+
+set square 6207.83
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC357"
+puts "BUC60970"
+puts "========"
+
+restore [locate_data_file buc60970a.brep] a
+checkshape a
+## small/brep/OCC358a.brep - second shape
+restore [locate_data_file OCC358a.brep] b
+checkshape b
+
+if { [catch { pipe result a b } catch_result] } {
+ puts "$catch_result"
+}
+
+set square 44761.1
+set 2dviewer 0
+
+
--- /dev/null
+puts "========================"
+puts " BUC60977 "
+puts " OCC358 "
+puts "========================"
+#####
+puts "The helical pipe is not shaded in AISViewer"
+#####
+
+restore [locate_data_file OCC358a.brep] f
+checkshape f
+
+restore [locate_data_file OCC358b.brep] w
+checkshape w
+
+pipe result w f
+
+vinit
+vdisplay result
+vfit
+vsetdispmode result 1
+# checkshape res
+# maxtolerance res
+
+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 == 12966 && $nod == 6896} {
+ puts " OCC358 looks like OK"
+} else {
+ puts [format " tri= %s nod= %s " $tri $nod]
+ puts " OCC358 : Shady (bad shading)"
+}
+
+set square 24861.2
+set 2dviewer 0
+
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC369"
+puts "BUC61031"
+puts "========"
+puts ""
+#################################################################
+## BndLib_Add3dCurve raised an exception on edges which range is out of the domain of the curve.
+#################################################################
+
+restore [locate_data_file OCC369.brep] result
+OCC369 result
+
+set square 0.077223
+set 2dviewer 0
+
+
+
+
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC395"
+puts "SAM1296"
+puts "================"
+puts ""
+##############################################################
+## After merge two edges with help GeomConvert_CompCurveToBSplineCurve result is bad.
+##############################################################
+
+restore [locate_data_file OCC395-1.brep] e1
+
+set che [checkshape e1]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC395: Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar e1 result
+} else {
+ puts "OCC395 OK: Source shape is valid"
+
+ restore [locate_data_file OCC395-2.brep] e2
+ set che [checkshape e2]
+ if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC395: Source shape is invalid. It was detected by Checkshape command"
+ puts "Body of the script was NOT executed"
+ renamevar e2 result
+ } else {
+ puts "OCC395 OK: Source shape is valid"
+ OCC395 result e1 e2
+ }
+}
+
+set length 34.9073
+set 2dviewer 0
+
+
--- /dev/null
+puts "========================"
+puts " OCC397 "
+puts "========================"
+
+pload QAcommands
+
+restore [locate_data_file OCC397.brep] a
+checkshape a
+
+tclean a
+explode a f
+renamevar a_55 result
+
+vinit
+vdisplay result
+vfit
+vsetdispmode result 1
+
+set x_coord 235
+set y_coord 180
+
+checkcolor $x_coord $y_coord 0.5 0.35 0.05
+
+if { ${stat} != 1 } {
+ puts "Error : Shading is missing in 3D Viewer"
+}
+
+vselect 220 170
+
+set square 92.9029
+set only_screen 1
+
+
--- /dev/null
+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
--- /dev/null
+#INTERFACE IGES
+puts "========"
+puts "OCC398"
+puts "========"
+puts ""
+#############################################################
+## ShapeHealing modification 1:1 increases number of unique shapes in compound structure.
+#############################################################
+
+pload XDE
+
+restore [locate_data_file OCC398.brep] a
+#statsh a
+#nbshapes a
+#Statshape should give 3 solids
+#Nbshape should return 1 solid
+
+scaleshape result a 10
+
+#statsh res
+
+set nb_sol_good 1
+set square 180000.
+set 2dviewer 0
--- /dev/null
+if { [array get env os_type] != "" } {
+ set os $env(os_type)
+}
+if { [string compare $os "windows"] != 0 } {
+ puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
+ puts "TODO OCC12345 ALL: Faulty OCC399: Command checkshape works wrongly: Source shape is invalid but this shape must be OK"
+### by apn master 16.12.2012
+### puts "TODO OCC12345 ALL: Error : The square of result shape is"
+}
+
+puts "========"
+puts "OCC399"
+puts "========"
+puts ""
+#########################################
+## Checkshape gives wrong result for valid face
+#########################################
+
+restore [locate_data_file OCC399.brep] result
+
+set che [checkshape result]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC399: Command checkshape works wrongly: Source shape is invalid but this shape must be OK"
+} else {
+ puts "OCC399 OK : Source shape is valid. Command checkshape works properly."
+}
+
+set square 4558.53
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: OCC358 : Faulty"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "========================"
+puts " OCC400 "
+puts "========================"
+
+restore [locate_data_file OCC400.brep] result
+
+tclean result
+isos result 0
+
+vinit
+vdisplay result
+vfit
+vsetdispmode result 1
+
+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 == 66 && $nod ==70} {
+ puts " Warning: OCC358 looks like OK, but visual checking is required !!!!"
+} else {
+ puts "OCC358 : Faulty , but visual checking is required !!!!"
+}
+
+set square 0
+set 3dviewer 1
+
+
--- /dev/null
+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
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC405"
+puts "OCC435"
+puts "SAM1296"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC395-1.brep] e1
+restore [locate_data_file OCC405-2.brep] e2
+
+checkshape e1
+checkshape e2
+
+OCC405 result e1 e2
+
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
+
+if { $num == 2 } {
+ puts "OCC405 OK : Result shape is CORRECT !!! "
+} else {
+ puts " Faulty OCC405: Result shape is INcorrect !!! "
+}
+
+set length 17.5348
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC406: Command checkshape works wrongly: Source shape looks invalid"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC406"
+puts "========"
+puts ""
+#########################################
+## Checkshape says face is Ok, but it looks invalid
+#########################################
+
+restore [locate_data_file OCC406.brep] result
+
+set che [checkshape result]
+
+if { [regexp {Faulty} $che ] != 1 } {
+ puts "Faulty OCC406: Command checkshape works wrongly: Source shape looks invalid"
+} else {
+ puts "OCC406 OK : Source shape is invalid. Command checkshape works properly."
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC407 "
+puts "(case 1)"
+puts "========================"
+puts ""
+
+pcylinder b1 1 4
+pcylinder b2 1 4
+trotate b2 0 0 2 1 0 0 90
+trotate b2 0 0 2 0 1 0 60
+
+bfuse result b2 b1
+checkshape -top result
+
+set square 46.8319
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC407 "
+puts "(case 2)"
+puts "========================"
+puts ""
+
+pcylinder b1 1 4
+pcylinder b2 1 4
+trotate b2 0 0 2 1 0 0 90
+trotate b2 0 0 2 0 1 0 60
+
+bcut result b2 b1
+checkshape -top result
+
+set square 31.4159
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC409 "
+puts "========================"
+puts ""
+
+restore [locate_data_file f2] b1
+checkshape b1
+
+restore [locate_data_file f6] b2
+checkshape b2
+
+bcommon result b1 b2
+
+set square 45.5929
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC410 "
+puts "(case 1)"
+puts "========================"
+puts ""
+
+restore [locate_data_file f7] b1
+checkshape b1
+
+restore [locate_data_file f3] b2
+checkshape b2
+
+bcommon result b1 b2
+
+set square 63.4508
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC410 "
+puts "(case 2)"
+puts "========================"
+puts ""
+
+restore [locate_data_file f7] b1
+checkshape b1
+
+restore [locate_data_file f3] b2
+checkshape b2
+
+bfuse result b1 b2
+
+set square 172.169
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC410 "
+puts "(case 3)"
+puts "========================"
+puts ""
+
+restore [locate_data_file f7] b1
+checkshape b1
+
+restore [locate_data_file f3] b2
+checkshape b2
+
+bcut result b1 b2
+
+set square 15.0891
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC410 "
+puts "(case 4)"
+puts "========================"
+puts ""
+
+restore [locate_data_file f7] b1
+checkshape b1
+
+restore [locate_data_file f3] b2
+checkshape b2
+
+
+if [catch {bcut result b2 b1 } result] {
+ puts "Faulty OCC410: function CUT works wrongly"
+} else {
+ puts " OCC410 OK: function CUT works properly"
+}
+
+set square 93.6289
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC411 "
+puts "========================"
+puts ""
+
+restore [locate_data_file f4] b1
+checkshape b1
+
+restore [locate_data_file f5] b2
+checkshape b2
+
+bfuse result b1 b2
+
+set square 314.159
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC412 "
+puts "========================"
+puts ""
+
+restore [locate_data_file f2] b1
+checkshape b1
+
+restore [locate_data_file f3] b2
+checkshape b2
+
+bcut result b1 b2
+
+set square 43.6332
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC413 "
+puts "(case 1)"
+puts "========================"
+puts ""
+
+restore [locate_data_file so1] b1
+checkshape b1
+
+restore [locate_data_file so4] b2
+checkshape b2
+
+bcommon result b1 b2
+
+set square 549.779
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC413 "
+puts "(case 2)"
+puts "========================"
+puts ""
+
+restore [locate_data_file so1] b1
+checkshape b1
+
+restore [locate_data_file so4] b2
+checkshape b2
+
+bcut result b1 b2
+
+set square 863.938
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC415 "
+puts "PRO5557"
+puts "========================"
+puts ""
+
+restore [locate_data_file pro5557_revol.brep] revol1
+checkshape revol1
+restore [locate_data_file pro5557_bsurf.brep] bsurf2
+checkshape bsurf2
+
+zoom 660
+normals bsurf2 0.27
+point pnt1 0 -0.3 0
+halfspace space2 bsurf2 0 -0.3 0
+
+bcut result revol1 space2
+
+set testinfos(info) \
+ "pro5557 : cut a cylinder by an infinite surface extrusion"
+set testinfos(infoX) -0.2
+set testinfos(infoY) -0.2
+set testinfos(infoZ) -0.34
+set testinfos(infoZ2) -0.3
+
+checkshape -top result
+
+set square 0.402138
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========================"
+puts " OCC416 "
+puts "CTS19305"
+puts "========================"
+puts ""
+
+restore [locate_data_file CTO900_cts19305-part.rle] part
+checkshape part
+
+restore [locate_data_file CTO900_cts19305-tool.rle] tool
+checkshape tool
+
+bcut result part tool
+
+checkshape -top result
+
+set square 76632.9
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========================"
+puts " OCC417 "
+puts "CTS21128"
+puts "========================"
+puts ""
+
+restore [locate_data_file cts21128c.rle] c
+checkshape c
+
+restore [locate_data_file cts21128d.rle] d
+checkshape d
+
+bcut result c d
+
+set square 2814.01
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC418 "
+puts "CTS20370"
+puts "(case 1)"
+puts "========================"
+puts ""
+
+restore [locate_data_file CTO904_cts20370-part.rle] part
+checkshape part
+
+restore [locate_data_file cts20370-tool.rle] tool
+checkshape tool
+
+bsection sec part tool
+checkshape -top sec
+
+bcut result part tool
+checkshape -top result
+
+set square 273365.
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC418 "
+puts "CTS20370"
+puts "(case 2)"
+puts "========================"
+puts ""
+
+restore [locate_data_file CTO904_cts20370-part.rle] a
+checkshape a
+
+restore [locate_data_file cts20370-tool.rle] b
+checkshape b
+
+bsection sec a b
+
+bfuse result a b
+checkshape -top result
+
+set square 261265.
+set 2dviewer 0
+
--- /dev/null
+# Original bug :
+
+puts "========================"
+puts " OCC419 "
+puts "FRA50047"
+puts "========================"
+puts ""
+
+restore [locate_data_file CTO904_fra50047a.rle] a
+checkshape a
+
+restore [locate_data_file fra50047b.rle] b
+checkshape b
+
+bsection sec a b
+checkshape -top sec
+
+bfuse result a b
+checkshape -top result
+
+set square 508496.
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========================"
+puts " OCC420 "
+puts "PRO12473"
+puts "========================"
+puts ""
+
+restore [locate_data_file CTO909_objects.brep] a
+checkshape a
+
+restore [locate_data_file CTO909_tool_4.brep] b
+checkshape b
+
+bsection sec a b
+puts [checksection sec]
+checkshape sec
+explode a so
+renamevar a_1 a
+
+bcut result a b
+
+set square 0
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC421 "
+puts "========================"
+puts ""
+
+profile p c 5 180 l 5 t 0 5 d -1 0 c 5 180 l 5
+polyline w 0 0 0 0 0 10
+pipe p w p
+nexplode p f
+
+depouille result p 0 0 1 p_1 5 0 0 0 0 0 1 \
+p_7 1 0 0 0 0 0 1 \
+p_8 5 0 0 0 0 0 1 \
+p_2 1 0 0 0 0 0 1
+
+set square 659.647
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC422 "
+puts "(case 1)"
+puts "========================"
+puts ""
+
+plane p 0 0 0 0 0 1 -1 0 0
+psphere p p 20 0 90
+#profile pf o -4 -4 1 l 8 d 0 1 l 8 d -1 0 l 8
+profile pf o -4 -4 1 l 8 c 2 90 l 8 d -1 0 l 8
+prism p2 pf 0 0 40
+bfuse f p p2
+nexplode f f
+
+depouille result f 0 0 1 f_7 5 0 0 40 0 0 1
+
+set square 4630.78
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC422 "
+puts "(case 2)"
+puts "========================"
+puts ""
+
+plane ps 10 -3 0 1 0 0 0 .2 1
+psphere ps ps 20
+profile pf o 5 1 5 l 10 c 2 90 l 5 d -1 0 \
+l 14 d 0 -1 l 5 c 2 90
+prism pr pf 0 0 30
+bfuse f ps pr
+nexplode f f
+
+depouille result f 0 0 1 f_4 4 0 0 30 0 0 1
+
+set square 5719.09
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC423 "
+puts "(case 1)"
+puts "========================"
+puts ""
+
+restore [locate_data_file cylindre.rle] cyl
+checkshape cyl
+
+restore [locate_data_file contour.rle] cont
+checkshape cont
+
+mkplane cont cont
+nexplode cyl F
+
+ttranslate cont 0 200 0
+featdprism cyl cont cont 10 1 1
+
+if [catch {featperformval dprism result 55 cyl_3 } catch_result] {
+ puts "Faulty OCC423 (case 1): function FEATPERFORMVAL works wrongly"
+} else {
+ puts "OCC423 OK (case 1): function FEATPERFORMVAL works properly"
+}
+
+set square 94944.4
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC423 "
+puts "(case 2)"
+puts "========================"
+puts ""
+
+restore [locate_data_file pro15515_base.rle] base
+checkshape base
+
+restore [locate_data_file pro15515_face.rle] cont
+checkshape cont
+
+explode base face
+copy base_4 ffrom
+copy base_3 funtil
+
+### From Until
+featrevol base cont cont 54.06494140625 70.2841796875 0 0 0 1 1 1
+featperform revol result funtil ffrom
+
+set square 560028.
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC424 "
+puts "(case 1)"
+puts "========================"
+puts ""
+
+restore [locate_data_file CFE_e_lonfzx.rle] E
+nexplode E f
+
+profile cont S E_10 F 50 -100 X 50 Y -100 X -50
+featdprism E cont E_10 10 1 1
+
+if [catch {featperform dprism result E_5 E_6 } catch_result] {
+ puts "Faulty OCC424 (case 1): function FEATPERFORM works wrongly"
+} else {
+ puts "OCC424 OK (case 1): function FEATPERFORM works properly"
+}
+
+set square 978236.
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC424 "
+puts "(case 2)"
+puts "========================"
+puts ""
+
+restore [locate_data_file CFE_e_lonfzx.rle] E
+nexplode E f
+
+profile cont S E_10 F 50 -100 X 50 Y -100 X -50
+featdprism E cont E_10 10 1 1
+
+if [catch {featperform dprism result } catch_result] {
+ puts "Faulty OCC424 (case 2): function FEATPERFORM works wrongly"
+} else {
+ puts "OCC424 OK (case 2): function FEATPERFORM works properly"
+}
+
+set square 978236.
+set 2dviewer 0
--- /dev/null
+if {[array get env os_type] != ""} {
+ set os $env(os_type)
+}
+if {[string compare $os "windows"] != 0 } {
+ puts "TODO OCC12345 ALL: Exception"
+ puts "TODO OCC12345 ALL: An exception was caught"
+ puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+}
+
+pload QAcommands
+
+puts "========"
+puts "OCC426"
+puts "OCC50"
+puts "========"
+#############################################################################
+## The result of fuse operation is invalid
+#############################################################################
+## BRepFilletAPI_MakeFillet presents a bug on fillet computation (build())
+#############################################################################
+## (old topology)
+#############################################################################
+
+OCC426 result rs1 rs2 rs3 fuse32 fuse321 0
+
+checkshape rs1
+checkshape rs2
+checkshape rs3
+checkshape fuse32
+checkshape fuse321
+
+set square 7507.61
+set 2dviewer 1
+
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+pload QAcommands
+
+puts "========"
+puts "OCC426"
+puts "OCC50"
+puts "========"
+#############################################################################
+## The result of fuse operation is invalid
+#############################################################################
+## BRepFilletAPI_MakeFillet presents a bug on fillet computation (build())
+#############################################################################
+
+OCC426 result rs1 rs2 rs3 fuse32 fuse321
+
+checkshape rs1
+checkshape rs2
+checkshape rs3
+checkshape fuse32
+checkshape fuse321
+
+set square 7507.61
+set 3dviewer 1
+
--- /dev/null
+
+puts "========="
+puts " OCC427 "
+puts "(case 1)"
+puts "========="
+puts ""
+cpulimit 1200
+proc OFFSETSHAPE {distance faces calcul type} {
+ uplevel #0 explode s f
+ uplevel #0 offsetparameter 1e-7 $calcul $type
+ uplevel #0 offsetload s $distance $faces
+ uplevel #0 offsetperform result
+}
+
+#Shell no rough and rounded mode
+
+set calcul "c"
+set type "i"
+
+pcone s 9 4 15 90
+trotate s 0 0 0 0 0 1 90
+
+OFFSETSHAPE 1 {} $calcul $type
+
+set square 671.382
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC427 "
+puts "(case 2)"
+puts "========================"
+puts ""
+cpulimit 1200
+proc OFFSETSHAPE {distance faces calcul type} {
+ uplevel #0 explode s f
+ uplevel #0 offsetparameter 1e-7 $calcul $type
+ uplevel #0 offsetload s $distance $faces
+ uplevel #0 offsetperform result
+}
+
+#Shell no rough and rounded mode
+
+set calcul "c"
+set type "i"
+
+pcone s 9 4 15 90
+trotate s 0 0 0 0 0 1 90
+
+OFFSETSHAPE 1 {s_5} $calcul $type
+
+set square 858.167
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC427 "
+puts "(case 3)"
+puts "========================"
+puts ""
+cpulimit 1200
+proc OFFSETSHAPE {distance faces calcul type} {
+ uplevel #0 explode s f
+ uplevel #0 offsetparameter 1e-7 $calcul $type
+ uplevel #0 offsetload s $distance $faces
+ uplevel #0 offsetperform result
+}
+
+#Shell no rough and rounded mode
+
+set calcul "c"
+set type "i"
+
+pcone s 9 4 15 90
+trotate s 0 0 0 0 0 1 90
+
+OFFSETSHAPE 1 {s_2 s_3} $calcul $type
+
+set square 885.688
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC427 "
+puts "(case 4)"
+puts "========================"
+puts ""
+cpulimit 1200
+proc OFFSETSHAPE {distance faces calcul type} {
+ uplevel #0 explode s f
+ uplevel #0 offsetparameter 1e-7 $calcul $type
+ uplevel #0 offsetload s $distance $faces
+ uplevel #0 offsetperform result
+}
+
+#Shell no rough and rounded mode
+
+set calcul "c"
+set type "i"
+
+circle w -20 0 0 20
+mkedge w w 0 pi*2/5
+wire w w
+polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
+mkplane profile profile
+pipe s w profile
+
+OFFSETSHAPE 1 {} $calcul $type
+
+set square 1306.3
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC427 "
+puts "(case 5)"
+puts "========================"
+puts ""
+cpulimit 1200
+proc OFFSETSHAPE {distance faces calcul type} {
+ uplevel #0 explode s f
+ uplevel #0 offsetparameter 1e-7 $calcul $type
+ uplevel #0 offsetload s $distance $faces
+ uplevel #0 offsetperform result
+}
+
+#Shell no rough and rounded mode
+
+set calcul "c"
+set type "i"
+
+circle w -20 0 0 20
+mkedge w w 0 pi*2/5
+wire w w
+polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
+mkplane profile profile
+pipe s w profile
+
+OFFSETSHAPE 1 {s_2} $calcul $type
+
+set square 1297.39
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC427 "
+puts "(case 6)"
+puts "========================"
+puts ""
+cpulimit 1200
+proc OFFSETSHAPE {distance faces calcul type} {
+ uplevel #0 explode s f
+ uplevel #0 offsetparameter 1e-7 $calcul $type
+ uplevel #0 offsetload s $distance $faces
+ uplevel #0 offsetperform result
+}
+
+#Shell no rough and rounded mode
+
+set calcul "c"
+set type "i"
+
+circle w -20 0 0 20
+mkedge w w 0 pi*2/5
+wire w w
+polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
+mkplane profile profile
+pipe s w profile
+
+OFFSETSHAPE 1 {s_4 s_5} $calcul $type
+
+set square 808.448
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC434"
+puts "SAM1296"
+puts "================"
+puts ""
+
+########################################################
+## Exception is raised on NT, SUN in the GeomConvert_CompCurveToBSplineCurve
+########################################################
+
+restore [locate_data_file OCC434.brep] e
+checkshape e
+explode e e
+
+OCC405 result e_1 e_2
+
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
+
+if { $num == 2 } {
+ puts "OCC434 OK : Result shape is CORRECT !!! "
+} else {
+ puts " Faulty OCC434: Result shape is INcorrect !!! "
+}
+
+set length 8.74616
+set 2dviewer 0
+
--- /dev/null
+pload QAcommands
+
+#INTERFACE IGES
+puts "========================"
+puts " OCC435 "
+puts " OCC405 "
+puts "========================"
+puts ""
+###############################################################
+## Exception Standard_ConstructuionError is rased in DRAW in the
+## GeomConvert_CompCurveToBSplineCurve on the attached shapes during command merge
+###############################################################
+
+restore [locate_data_file OCC435a.brep] a
+explode a
+set j 1
+repeat 8 {
+ explode a_$j
+ if { [catch {OCC405 result a_${j}_1 a_${j}_2} catch_result] } {
+ puts "Faulty OCC435 : merge operation was made incorrect"
+ } else {
+ puts " OCC435 OK: merge operation was made properly"
+ }
+ incr j
+}
+
+set length 17.2848
+set 3dviewer 1
--- /dev/null
+puts "========================"
+puts " OCC437 "
+puts "========================"
+puts ""
+##########################################
+## different checkshape result under ros and rosdeb in KAS:dev.
+##########################################
+
+restore [locate_data_file OCC437.brep] result
+
+set che [checkshape result r]
+
+if { [regexp {OK} $che] != 1 } {
+ puts " Faulty OCC437: function CHECKSHAPE works wrongly"
+} else {
+ puts " OCC437 OK: function CHECKSHAPE works properly"
+}
+
+set square 0.000201234
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC439 "
+puts "========================"
+puts ""
+#####################################################
+## Cut operation produces NOT Valid result on attached shapes
+#####################################################
+
+restore [locate_data_file OCC439.brep] a
+explode a
+
+checkshape a_1
+checkshape a_2
+
+bcut result a_1 a_2
+
+set che [checkshape result]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC134: Resulte shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC134 OK: Result shape is valid"
+}
+
+set square 247000
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC442"
+puts "========"
+puts ""
+########################################################
+## The Revolution Algo produces result, but during check using IsValid method from
+## BRepAlgoAPI the exception is raised
+########################################################
+
+restore [locate_data_file OCC442.brep] a
+checkshape a
+
+explode a v
+
+mkpoint p_1 a_1
+mkpoint p_2 a_3
+coord p_1 x1 y1 z1
+coord p_2 x2 y2 z2
+set ax [dval x1]
+set ay [dval y1]
+set az [dval z1]
+set bx [dval x2]
+set by [dval y2]
+set bz [dval z2]
+set dx [expr $ax - $bx]
+set dy [expr $ay - $by]
+set dz [expr $az - $bz]
+
+revol result a $ax $ay $az $dx $dy $dz 360
+
+set square 692942
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
+puts "TODO OCC12345 ALL: Faulty OCC446"
+###puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC446"
+puts "OCC447"
+puts "(case 1)"
+puts "========"
+puts ""
+######################################
+## As result I have fail on shape that it is not closed.
+######################################
+
+restore [locate_data_file OCC446a.brep] result
+
+set che [checkshape result]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC446 (case 1): Source shape is NotClosed"
+} else {
+ puts "OCC446 OK (case 1): Source shape is Closed"
+}
+set square 108.845
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC446"
+puts "OCC447"
+puts "(case 2)"
+puts "========"
+puts ""
+######################################
+## As result I have fail on shape that it is not closed.
+######################################
+
+restore [locate_data_file OCC446b.brep] result
+
+set che [checkshape result]
+if { [regexp {Faulty} $che ] == 1} {
+ puts "Faulty OCC446 (case 2): Source shape is NotClosed"
+} else {
+ puts "OCC446 OK (case 2): Source shape is Closed"
+}
+set square 24272.8
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC446"
+puts "OCC447"
+puts "(case 3)"
+puts "========"
+puts ""
+######################################
+## As result I have fail on shape that it is not closed.
+######################################
+
+restore [locate_data_file OCC446c.brep] result
+
+set che [checkshape result]
+if { [regexp {Faulty} $che ] == 1} {
+ puts "Faulty OCC446 (case 3): Source shape is NotClosed"
+} else {
+ puts "OCC446 OK (case 3): Source shape is Closed"
+}
+set square 13694.6
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========"
+puts "OCC446"
+puts "OCC447"
+puts "(case 4)"
+puts "========"
+puts ""
+######################################
+## As result I have fail on shape that it is not closed.
+######################################
+
+restore [locate_data_file OCC446d.brep] result
+
+set che [checkshape result]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC446 (case 4): Source shape is NotClosed"
+} else {
+ puts "OCC446 OK (case 4): Source shape is Closed"
+}
+set square 629.347
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC449 "
+puts "========================"
+puts ""
+#######################
+## Invalid cut result
+#######################
+
+restore [locate_data_file OCC449a.brep] b1
+checkshape b1
+
+restore [locate_data_file OCC449b.brep] b2
+checkshape b2
+
+bcut result b1 b2
+
+set square 43401.5
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC452"
+puts "(case 1)"
+puts "========"
+puts ""
+
+pcone pc 10 0 20
+explode pc f
+
+prism pcy pc_2 0 0 10
+
+dchrono h2 reset
+dchrono h2 start
+
+bcut result pc pcy
+
+dchrono h2 stop
+set q2 [ dchrono h2 show ]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
+puts "$z2"
+if { $z2 > 3 } {
+ puts "Elapsed time is more then 3 seconds - Faulty"
+} else {
+ puts "Elapsed time is less then 3 seconds - OK"
+}
+
+set square 254.16
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "GER60239"
+puts "OCC452"
+puts "(case 2)"
+puts "========"
+puts ""
+
+restore [locate_data_file mds-part1.rle] a
+set che [checkshape a]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC452 (shape 1): Source shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC452 OK (shape 1): Source shape is valid"
+}
+
+restore [locate_data_file mds-part2.rle] b
+set che [checkshape b]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC452 (shape 2): Source shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC452 OK (shape 2): Source shape is valid"
+}
+
+restore [locate_data_file CTO900_ger60239a.rle] c
+set che [checkshape c]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC452 (shape 3): Source shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC452 OK (shape 3): Source shape is valid"
+}
+
+restore [locate_data_file CTO900_ger60239b.rle] d
+set che [checkshape d]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC452 (shape 4): Source shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC452 OK (shape 4): Source shape is valid"
+}
+dchrono h2 reset
+dchrono h2 start
+
+bfuse r a b
+#checkshape r
+
+bfuse result c d
+
+dchrono h2 stop
+set q2 [ dchrono h2 show ]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
+puts "$z2"
+if { $z2 > 60 } {
+ puts "Elapsed time is more then 60 seconds - Faulty"
+} else {
+ puts "Elapsed time is less then 60 seconds - OK"
+}
+set square 3468.6
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "GER60239"
+puts "OCC452"
+puts "(case 3)"
+puts "========"
+puts ""
+
+restore [locate_data_file CTO900_ger60239a.rle] a
+set che [checkshape a]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC452 (shape 5): Source shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC452 OK (shape 5): Source shape is valid"
+}
+
+restore [locate_data_file CTO900_ger60239b.rle] b
+set che [checkshape b]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC452 (shape 6): Source shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC452 OK (shape 6): Source shape is valid"
+}
+
+dchrono h2 reset
+dchrono h2 start
+
+bfuse result a b
+#checkshape -top res
+
+dchrono h2 stop
+set q2 [ dchrono h2 show ]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
+puts "$z2"
+if { $z2 > 50 } {
+ puts "Elapsed time is more then 50 seconds - Faulty"
+} else {
+ puts "Elapsed time is less then 50 seconds - OK"
+}
+set square 3468.6
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========"
+puts "PRO7934"
+puts "OCC452"
+puts "(case 4)"
+puts "========"
+puts ""
+
+restore [locate_data_file CTO900_pro7934a.rle] a
+set che [checkshape a]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC452 (shape 7): Source shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC452 OK (shape 7): Source shape is valid"
+}
+
+restore [locate_data_file CTO900_pro7934b.rle] b
+set che [checkshape b]
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC452 (shape 8): Source shape is invalid. It was detected by Checkshape command"
+} else {
+ puts "OCC452 OK (shape 8): Source shape is valid"
+}
+
+dchrono h2 reset
+dchrono h2 start
+
+bfuse result a b
+#checkshape -top res
+
+dchrono h2 stop
+set q2 [ dchrono h2 show ]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
+puts "$z2"
+if { $z2 > 5 } {
+ puts "Elapsed time is more then 5 seconds - Faulty"
+} else {
+ puts "Elapsed time is less then 5 seconds - OK"
+}
+set square 201978
+set 2dviewer 0
+
+
+
--- /dev/null
+
+puts "========"
+puts "OCC453"
+puts "(case 1)"
+puts "========"
+puts ""
+
+dchrono h2 reset
+dchrono h2 start
+
+set make_print_out 0
+
+dset SCALE 1000.
+dset SCALE1 5
+tolblend 0.01 1e-04 1e-05 1e-03
+
+restore [locate_data_file CFI_5_f12fgk.rle] s
+tscale s 0 0 0 SCALE1
+explode s E
+
+blend result s 0.5*SCALE1 s_1 0.5*SCALE1 s_4 0.5*SCALE1 s_12 0.5*SCALE1 s_8 0.5*SCALE1 s_6
+explode result sh
+tcopy result_1 result
+
+dchrono h2 stop
+set q2 [ dchrono h2 show ]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
+puts "$z2"
+if { $z2 > 50 } {
+ puts "Elapsed time is more then 50 seconds - Faulty"
+} else {
+ puts "Elapsed time is less then 50 seconds - OK"
+}
+set square 6021.51
+set 2dviewer 1
--- /dev/null
+
+puts "========"
+puts "OCC453"
+puts "(case 2)"
+puts "========"
+puts ""
+
+dchrono h2 reset
+dchrono h2 start
+
+set make_print_out 0
+
+dset SCALE 1000.
+dset SCALE1 5
+tolblend 0.01 1e-04 1e-05 1e-03
+
+restore [locate_data_file shading_137.brep] s
+tscale s 0 0 0 SCALE1
+explode s E
+
+ blend result s 4.5*SCALE1 s_2 4.5*SCALE1 s_1 4.5*SCALE1 s_6 4.5*SCALE1 s_8 4.5*SCALE1 s_10 4.5*SCALE1 s_14 4.5*SCALE1 s_4 4.5*SCALE1 s_5 4.5*SCALE1 s_16 4.5*SCALE1 s_11 4.5*SCALE1 s_19 4.5*SCALE1 s_13
+ explode result So
+ tcopy result_1 result
+
+dchrono h2 stop
+set q2 [ dchrono h2 show ]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
+puts "$z2"
+if { $z2 > 110 } {
+ puts "Elapsed time is more then 110 seconds - Faulty"
+} else {
+ puts "Elapsed time is less then 110 seconds - OK"
+}
+
+set square 3.65777e+06
+set 2dviewer 1
--- /dev/null
+
+puts "========"
+puts "OCC465"
+puts "========"
+puts ""
+
+restore [locate_data_file OCC465.brep] result
+
+set dum [dump result]
+
+regexp {PCurve : 1 on surface 1, range : ([-0-9.+eE]+) ([-0-9.+eE]+)} $dum full err1 err2
+regexp {Curve 3D : 1, range : ([-0-9.+eE]+) ([-0-9.+eE]+)} $dum full err3 err4
+
+if { $err1== $err3 && $err2 == $err4 } {
+ puts "Faulty OCC465: it is reset the PCurve range by range of Curve3d after restoring Curve3d"
+} else {
+ puts "OCC465 OK"
+}
+
+set length 4.21716
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC4717"
+puts "============"
+puts ""
+######################################################
+# A regression of new Boolean Operations
+# (cfi/002/H3)
+######################################################
+
+dset SCALE1 10
+protect SCALE1
+
+box b -20 -20 -20 40 40 20
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 -pi/2 pi/2
+trotate w1 0 0 0 1 0 0 90
+wire w w1
+revol r w 0 0 0 0 0 1 360
+shape s So
+add r s
+trotate s b 0 0 0 1 1 0 -40
+trotate s b 0 0 0 0 0 1 -10
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+
+bop s b
+bopfuse result
+
+set square 680565
+
+set nb_v_good 11
+set nb_e_good 16
+set nb_w_good 8
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 45
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC4717"
+puts "============"
+puts ""
+######################################################
+# A regression of new Boolean Operations
+# (cfi/002/H3)
+######################################################
+
+dset SCALE1 10
+protect SCALE1
+
+box b -20 -20 -20 40 40 20
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 -pi/2 pi/2
+trotate w1 0 0 0 1 0 0 90
+wire w w1
+revol r w 0 0 0 0 0 1 360
+shape s So
+add r s
+trotate s b 0 0 0 1 1 0 -40
+trotate s b 0 0 0 0 0 1 -10
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+
+bop b s
+bopfuse result
+
+set square 680565
+
+set nb_v_good 11
+set nb_e_good 16
+set nb_w_good 8
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 45
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC4717"
+puts "============"
+puts ""
+######################################################
+# A regression of new Boolean Operations
+# (cfi/002/H3)
+######################################################
+
+dset SCALE1 10
+protect SCALE1
+
+box b -20 -20 -20 40 40 20
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 -pi/2 pi/2
+trotate w1 0 0 0 1 0 0 90
+wire w w1
+revol r w 0 0 0 0 0 1 360
+shape s So
+add r s
+trotate s b 0 0 0 1 1 0 -40
+trotate s b 0 0 0 0 0 1 -10
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+
+bop s b
+bopcut result
+
+set square 181937
+
+set nb_v_good 3
+set nb_e_good 4
+set nb_w_good 2
+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 14
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC4717"
+puts "============"
+puts ""
+######################################################
+# A regression of new Boolean Operations
+# (cfi/002/H3)
+######################################################
+
+dset SCALE1 10
+protect SCALE1
+
+box b -20 -20 -20 40 40 20
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 -pi/2 pi/2
+trotate w1 0 0 0 1 0 0 90
+wire w w1
+revol r w 0 0 0 0 0 1 360
+shape s So
+add r s
+trotate s b 0 0 0 1 1 0 -40
+trotate s b 0 0 0 0 0 1 -10
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+
+bop b s
+bopcut result
+
+set square 680565
+
+set nb_v_good 11
+set nb_e_good 16
+set nb_w_good 8
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 45
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC4717"
+puts "============"
+puts ""
+######################################################
+# A regression of new Boolean Operations
+# (cfi/002/H3)
+######################################################
+
+dset SCALE1 10
+protect SCALE1
+
+box b -20 -20 -20 40 40 20
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 -pi/2 pi/2
+trotate w1 0 0 0 1 0 0 90
+wire w w1
+revol r w 0 0 0 0 0 1 360
+shape s So
+add r s
+trotate s b 0 0 0 1 1 0 -40
+trotate s b 0 0 0 0 0 1 -10
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+
+bop s b
+boptuc result
+
+set square 680565
+
+set nb_v_good 11
+set nb_e_good 16
+set nb_w_good 8
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 45
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC4717"
+puts "============"
+puts ""
+######################################################
+# A regression of new Boolean Operations
+# (cfi/002/H3)
+######################################################
+
+dset SCALE1 10
+protect SCALE1
+
+box b -20 -20 -20 40 40 20
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 -pi/2 pi/2
+trotate w1 0 0 0 1 0 0 90
+wire w w1
+revol r w 0 0 0 0 0 1 360
+shape s So
+add r s
+trotate s b 0 0 0 1 1 0 -40
+trotate s b 0 0 0 0 0 1 -10
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+
+bop b s
+boptuc result
+
+set square 181937
+
+set nb_v_good 3
+set nb_e_good 4
+set nb_w_good 2
+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 14
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC4717"
+puts "============"
+puts ""
+######################################################
+# A regression of new Boolean Operations
+# (cfi/002/H3)
+######################################################
+
+dset SCALE1 10
+protect SCALE1
+
+box b -20 -20 -20 40 40 20
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 -pi/2 pi/2
+trotate w1 0 0 0 1 0 0 90
+wire w w1
+revol r w 0 0 0 0 0 1 360
+shape s So
+add r s
+trotate s b 0 0 0 1 1 0 -40
+trotate s b 0 0 0 0 0 1 -10
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+
+bop s b
+bopcommon result
+
+set square 181937
+
+set nb_v_good 3
+set nb_e_good 4
+set nb_w_good 2
+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 14
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC4717"
+puts "============"
+puts ""
+######################################################
+# A regression of new Boolean Operations
+# (cfi/002/H3)
+######################################################
+
+dset SCALE1 10
+protect SCALE1
+
+box b -20 -20 -20 40 40 20
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 -pi/2 pi/2
+trotate w1 0 0 0 1 0 0 90
+wire w w1
+revol r w 0 0 0 0 0 1 360
+shape s So
+add r s
+trotate s b 0 0 0 1 1 0 -40
+trotate s b 0 0 0 0 0 1 -10
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+
+bop b s
+bopcommon result
+
+set square 181937
+
+set nb_v_good 3
+set nb_e_good 4
+set nb_w_good 2
+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 14
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========================"
+puts " OCC472 "
+puts "(case 1)"
+puts "========================"
+puts ""
+#####################################################
+## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634)
+#####################################################
+
+restore [locate_data_file OCC472a.brep] b1
+checkshape b1
+
+restore [locate_data_file OCC472b.brep] b2
+checkshape b2
+
+bcut result b1 b2
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========================"
+puts " OCC472 "
+puts "(case 2)"
+puts "========================"
+puts ""
+#####################################################
+## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634)
+#####################################################
+
+restore [locate_data_file OCC472a.brep] b1
+checkshape b1
+
+restore [locate_data_file OCC472b.brep] b2
+checkshape b2
+
+bcommon result b1 b2
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+puts "TODO OCC12345 ALL: Error : Result shape is WRONG because it must contains 5 vertexes instead of 6"
+
+puts "========================"
+puts " OCC472 "
+puts "(case 3)"
+puts "========================"
+puts ""
+#####################################################
+## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634)
+#####################################################
+
+restore [locate_data_file OCC472a.brep] b1
+checkshape b1
+
+restore [locate_data_file OCC472b.brep] b2
+checkshape b2
+
+bfuse result b1 b2
+
+set nb_v_good 5
+set nb_e_edge 7
+set square 0
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC474 "
+puts "========================"
+puts ""
+##################################################
+## impossible to put a fillet to none of 5 edges sharing one vertrex
+##################################################
+
+restore [locate_data_file OCC474.brep] s
+
+explode s e
+
+blend result s 100 s_16
+
+set square 1.54883e+06
+set 3dviewer 1
--- /dev/null
+puts "============"
+puts "OCC476"
+puts "============"
+puts ""
+######################################################
+# Regression on reading e3i files with respect of OCC30 and OCC40
+######################################################
+
+restore [locate_data_file OCC485b.brep] s1
+restore [locate_data_file OCC485a.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s1 s2
+bopfuse result
+
+set square 9333.96
+set nb_v_good 16
+set nb_e_good 26
+set nb_w_good 11
+set nb_f_good 11
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 67
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC476"
+puts "============"
+puts ""
+######################################################
+# Regression on reading e3i files with respect of OCC30 and OCC40
+######################################################
+
+restore [locate_data_file OCC485b.brep] s1
+restore [locate_data_file OCC485a.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s2 s1
+bopfuse result
+
+set square 9333.96
+set nb_v_good 16
+set nb_e_good 26
+set nb_w_good 11
+set nb_f_good 11
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 67
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC476"
+puts "============"
+puts ""
+######################################################
+# Regression on reading e3i files with respect of OCC30 and OCC40
+######################################################
+
+restore [locate_data_file OCC485b.brep] s1
+restore [locate_data_file OCC485a.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s1 s2
+bopcut result
+
+set square 99.5159
+set nb_v_good 12
+set nb_e_good 19
+set nb_w_good 9
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 52
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC476"
+puts "============"
+puts ""
+######################################################
+# Regression on reading e3i files with respect of OCC30 and OCC40
+######################################################
+
+restore [locate_data_file OCC485b.brep] s1
+restore [locate_data_file OCC485a.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s2 s1
+bopcut result
+
+set square 9340.03
+set nb_v_good 19
+set nb_e_good 33
+set nb_w_good 14
+set nb_f_good 14
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 83
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC476"
+puts "============"
+puts ""
+######################################################
+# Regression on reading e3i files with respect of OCC30 and OCC40
+######################################################
+
+restore [locate_data_file OCC485b.brep] s1
+restore [locate_data_file OCC485a.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s1 s2
+boptuc result
+
+set square 9340.03
+set nb_v_good 19
+set nb_e_good 33
+set nb_w_good 14
+set nb_f_good 14
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 83
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC476"
+puts "============"
+puts ""
+######################################################
+# Regression on reading e3i files with respect of OCC30 and OCC40
+######################################################
+
+restore [locate_data_file OCC485b.brep] s1
+restore [locate_data_file OCC485a.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s2 s1
+boptuc result
+
+set square 99.5159
+set nb_v_good 12
+set nb_e_good 19
+set nb_w_good 9
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 52
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC476"
+puts "============"
+puts ""
+######################################################
+# Regression on reading e3i files with respect of OCC30 and OCC40
+######################################################
+
+restore [locate_data_file OCC485b.brep] s1
+restore [locate_data_file OCC485a.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s1 s2
+bopcommon result
+
+set square 105.587
+set nb_v_good 15
+set nb_e_good 26
+set nb_w_good 12
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 68
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC476"
+puts "============"
+puts ""
+######################################################
+# Regression on reading e3i files with respect of OCC30 and OCC40
+######################################################
+
+restore [locate_data_file OCC485b.brep] s1
+restore [locate_data_file OCC485a.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s2 s1
+bopcommon result
+
+set square 105.587
+set nb_v_good 15
+set nb_e_good 26
+set nb_w_good 12
+set nb_f_good 12
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 68
+
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC481 "
+puts "========================"
+puts ""
+##########################################
+##Attached shape could not be displayed in the Shading mode.
+##########################################
+
+restore [locate_data_file OCC481.rle] result
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vfit
+vsetdispmode result 1
+
+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 == 72 && $nod == 74 } {
+ puts " OCC481 : OK"
+} else {
+ puts " OCC481 : Faulty"
+}
+
+set square 314.159
+set 3dviewer 1
--- /dev/null
+
+puts "========="
+puts " OCC485 "
+puts "========="
+puts ""
+#######################################
+## Draw hangs up during performing fuse operation
+#######################################
+
+restore [locate_data_file OCC485a.brep] a_1
+checkshape a_1
+
+restore [locate_data_file OCC485a.brep] a_2
+checkshape a_2
+
+if [catch {bfuse result a_1 a_2 } result] {
+ puts "Faulty OCC485: Draw hangs up during performing fuse operation"
+} else {
+ puts "OCC485 OK: function FUSE works without Draw hangs up "
+}
+
+set square 9291.88
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC487 "
+puts "========================"
+#######################################################
+## Regression on KAS:dev:ros with respect to OCC4.0
+## Case cfi 900 N3.
+## Fillets are created on OCC4.0
+#######################################################
+
+restore [locate_data_file CFI_pro15441.rle] m
+explode m e
+
+if [catch {blend result m 2 m_36 2 m_21 } result] {
+ puts "Faulty OCC485: function BLEND works wrongly"
+} else {
+ puts "OCC485 OK: function BLEND works properly "
+}
+
+explode result sh
+
+renamevar result_1 result
+
+set square 6265.68
+set 3dviewer 1
+
+
+
+
+
--- /dev/null
+
+puts "========="
+puts " OCC488 "
+puts "========="
+puts ""
+########################################################
+## Boolean operation returns invalid result, it lead to regression on test cfe/002/C1
+########################################################
+
+restore [locate_data_file OCC488a.brep] a_1
+checkshape a_1
+
+restore [locate_data_file OCC488b.brep] a_2
+checkshape a_2
+
+if [catch {bcommon result a_1 a_2 } catch_result] {
+ puts "Faulty OCC488: command COMMON works wrongly"
+} else {
+ puts "OCC488 OK: function COMMON works properly "
+}
+set square 92466.8
+set 2dviewer 0
--- /dev/null
+
+puts "========="
+puts " OCC490 "
+puts "========="
+puts ""
+########################################################
+## Result of fuse operation is faulty shape although arguments are valid
+########################################################
+
+restore [locate_data_file OCC490a.brep] a_1
+checkshape a_1
+
+restore [locate_data_file OCC490b.brep] a_2
+checkshape a_2
+
+if [catch {bfuse result a_1 a_2 } catch_result] {
+ puts "Faulty OCC490: command FUSE works wrongly"
+} else {
+ puts "OCC490 : function FUSE works without hangs up "
+}
+set square 2744.08
+set 2dviewer 0
--- /dev/null
+
+puts "========="
+puts " OCC492 "
+puts "========="
+puts ""
+##############################
+## Exception occurs during fuse operation
+##############################
+
+restore [locate_data_file OCC492a.brep] a_1
+checkshape a_1
+
+restore [locate_data_file OCC492b.brep] a_2
+checkshape a_2
+
+if [catch {bfuse result a_1 a_2 } catch_result] {
+ puts "Faulty OCC492: command FUSE works wrongly"
+} else {
+ puts "OCC492 : function FUSE works without hangs up "
+}
+set square 64.2386
+set 3dviewer 1
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_3"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========="
+puts " OCC497 "
+puts "(case 1)"
+puts "========="
+puts ""
+########################################################
+## Result of cut and fuse operation are faulty shapes although arguments are valid.
+########################################################
+
+restore [locate_data_file OCC497a.brep] a_1
+checkshape a_1
+
+restore [locate_data_file OCC497b.brep] a_2
+checkshape a_2
+
+if [catch {bcut result a_1 a_2 } catch_result] {
+ puts "Faulty OCC497:function CUT works wrongly "
+} else {
+ puts "OCC497 : function CUT works without hangs up "
+}
+set square 0
+set 2dviewer 0
--- /dev/null
+
+puts "========="
+puts " OCC497 "
+puts "(case 2)"
+puts "========="
+puts ""
+########################################################
+## Result of cut and fuse operation are faulty shapes although arguments are valid.
+########################################################
+
+restore [locate_data_file OCC497c.brep] a_1
+checkshape a_1
+
+restore [locate_data_file OCC497d.brep] a_2
+checkshape a_2
+
+if [catch {bcut result a_1 a_2 } catch_result] {
+ puts "Faulty OCC497:function CUT works wrongly "
+} else {
+ puts "OCC497 : function CUT works without hangs up "
+}
+set square 2225.65
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: result is not a topological shape!!!"
+puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+
+puts "========="
+puts " OCC497 "
+puts "(case 3)"
+puts "========="
+puts ""
+########################################################
+## Result of cut and fuse operation are faulty shapes although arguments are valid.
+########################################################
+
+restore [locate_data_file OCC497e.brep] a_1
+checkshape a_1
+
+restore [locate_data_file OCC497f.brep] a_2
+checkshape a_2
+
+bcut result a_1 a_2
+
+set square 0
+set 2dviewer 0
--- /dev/null
+
+puts "========="
+puts " OCC497 "
+puts "(case 4)"
+puts "========="
+puts ""
+########################################################
+## Result of cut and fuse operation are faulty shapes although arguments are valid.
+########################################################
+
+restore [locate_data_file OCC497g.brep] a_1
+checkshape a_1
+
+restore [locate_data_file OCC497h.brep] a_2
+checkshape a_2
+
+if [catch {bfuse result a_1 a_2 } catch_result] {
+ puts "Faulty OCC497:function FUSE works wrongly "
+} else {
+ puts "OCC497 : function FUSE works without hangs up "
+}
+set square 8710.56
+set 2dviewer 0
--- /dev/null
+
+puts "========="
+puts " OCC497 "
+puts "(case 5)"
+puts "========="
+puts ""
+########################################################
+## Result of cut and fuse operation are faulty shapes although arguments are valid.
+########################################################
+
+restore [locate_data_file OCC497i.brep] a_1
+checkshape a_1
+
+restore [locate_data_file OCC497j.brep] a_2
+checkshape a_2
+
+if [catch {bfuse result a_1 a_2 } catch_result] {
+ puts "Faulty OCC497:function FUSE works wrongly "
+} else {
+ puts "OCC497 : function FUSE works without hangs up "
+}
+set square 3233.42
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC4993"
+puts "============"
+puts ""
+######################################################
+# Problem in boolean fusion
+# (new topology)
+######################################################
+
+restore [locate_data_file OCC4993-s1.brep] s1
+restore [locate_data_file OCC4993-s2.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s1 s2
+bopfuse result
+
+set square 4854.51
+
+set nb_v_good 40
+set nb_e_good 64
+set nb_w_good 24
+set nb_f_good 24
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 155
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC4993"
+puts "============"
+puts ""
+######################################################
+# Problem in boolean fusion
+# (new topology)
+######################################################
+
+restore [locate_data_file OCC4993-s1.brep] s1
+restore [locate_data_file OCC4993-s2.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s2 s1
+bopfuse result
+
+set square 4854.51
+
+set nb_v_good 40
+set nb_e_good 64
+set nb_w_good 24
+set nb_f_good 24
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 155
+
+set 2dviewer 0
--- /dev/null
+
+puts "========="
+puts " OCC500 "
+puts "========="
+puts ""
+###############################
+## Result of pipe command of Draw is faulty
+###############################
+
+restore [locate_data_file OCC500a.brep] a_1
+checkshape a_1
+
+restore [locate_data_file OCC500b.brep] a_2
+checkshape a_2
+
+if [catch {pipe result a_1 a_2 } catch_result] {
+ puts "Faulty OCC500 : function PIPE works wrongly "
+} else {
+ puts "OCC500 : function PIPE works without hangs up "
+}
+set square 1246.13
+set 2dviewer 0
--- /dev/null
+
+puts "========="
+puts " OCC501 "
+puts "========="
+puts ""
+##################################################
+## Exception during tcopy command (only in 3.0fix), SAM1339 (#2137)
+###################################################
+
+restore [locate_data_file OCC501.brep] result
+
+if [catch {tcopy result b } catch_result] {
+ puts "Faulty OCC501 : function TCOPY works wrongly "
+} else {
+ puts "OCC501 OK: function TCOPY works without hangs up "
+}
+set square 121895
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5157"
+puts "============"
+puts ""
+######################################################
+# DRAW commands vprops and sprops with tolerance 1.e-6 hange on attached shape.
+######################################################
+
+cpulimit 3500
+#dchrono h reset; dchrono h start
+
+catch { pload XDE }
+
+set BugNumber OCC5157
+
+set status 0
+if {[catch { stepread [locate_data_file OCC5157.stp] a * } catch_result] } {
+ puts "Faulty ${BugNumber} : here is reading problem"
+} else {
+ tpcompound result
+}
+
+set tol_square 1.e-6
+set square 35273.9
+set 2dviewer 0
+
+
--- /dev/null
+puts "============"
+puts "OCC5157"
+puts "============"
+puts ""
+######################################################
+# DRAW commands vprops and sprops with tolerance 1.e-6 hange on attached shape.
+######################################################
+
+cpulimit 3500
+#dchrono h reset; dchrono h start
+
+catch { pload XDE }
+
+set BugNumber OCC5157
+
+if { [catch { stepread [locate_data_file OCC5157.stp] a * } catch_result] } {
+ puts "Faulty ${BugNumber} : here is reading problem"
+} else {
+ tpcompound result
+}
+set tol_square 1.e-6
+set square 35362.3
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC516"
+puts "========"
+puts ""
+#########################################
+## Wrong classification of the 3D-point with the Solid .
+#########################################
+
+point p 14.99999878745701 5.52319672860377e-07 7.78393041
+vertex v 14.99999878745701 5.52319672860377e-07 7.78393041
+restore [locate_data_file OCC516.brep] result
+
+set cls [bclassify result p]
+
+if { [regexp {OUT} $cls] } {
+ puts "Faulty : Wrong classification of the 3D-point with the Solid"
+} else {
+ puts "CORRECT classification of the 3D-point with the Solid"
+}
+
+set square 7752.98
+set 2dviewer 0
--- /dev/null
+#INTERFACE IGES
+puts "========"
+puts "OCC526"
+puts "========"
+puts ""
+################################################
+## BRepAlgoAPI_Section fails to build planar sections on some faces
+################################################
+
+pload XDE
+
+restore [locate_data_file OCC592.brep] a
+
+set Z 67.599311020481764
+plane p 0 0 $Z
+psection r1 a p
+if ![regexp VERTEX [statshape r1]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }
+
+set Z 66.599311020481764
+plane p 0 0 $Z
+psection r2 a p
+if ![regexp VERTEX [statshape r2]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }
+
+set Z 65.599311020481764
+plane p 0 0 $Z
+psection result a p
+if ![regexp VERTEX [statshape result]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }
+
+set length 27.8021
+set 2dviewer 1
+
+
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC527"
+puts "========"
+puts ""
+#####################################################
+## BRepAlgoAPI_Section creates very distant geometry on some planar sections
+#####################################################
+
+cpulimit 3600
+restore [locate_data_file OCC527.brep] result
+OCC527 result
+
+set square 3774.42
+set 2dviewer 1
--- /dev/null
+
+puts "========================"
+puts "OCC528"
+puts "========================"
+puts ""
+##############################################
+## Result of bcut command is faulty although arguments are valid
+##############################################
+
+restore [locate_data_file OCC528_1.brep] c1
+checkshape c1
+
+restore [locate_data_file OCC528_2.brep] c2
+checkshape c2
+
+if { [catch { bcut result c1 c2 } catch_result] } {
+ puts "OCC528 Faulty: function BCUT works wrongly"
+} else {
+ puts "OCC528 OK:function BCUT works properly"
+}
+
+set square 124.092
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "======="
+puts "OCC530"
+puts "======="
+puts ""
+####################################
+## Draw hungs up during performing bfuse operation
+####################################
+
+cpulimit 3000
+
+restore [locate_data_file OCC530_1.brep] c1
+checkshape c1
+
+restore [locate_data_file OCC530_2.brep] c2
+checkshape c2
+
+if { [catch { bfuse result c1 c2 } catch_result] } {
+ puts "Faulty OCC530 : function BFUSE works wrongly"
+} else {
+ puts "OCC530 OK: function BFUSE works properly"
+}
+
+set square 0
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========================"
+puts " OCC534 "
+puts " case 1 "
+puts "========================"
+puts ""
+
+hyperbola hyperbola 0 0 0 30 10
+extsurf es_hyperbola hyperbola 0 0 1
+offset es_hyperbola_of es_hyperbola 5
+mkface result es_hyperbola_of 0 3 0 40
+
+
+set tolerance [maxtolerance result]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
+
+if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
+ puts "Faulty : Tolerance of shape is more then 1.0"
+} else {
+ puts "Tolerance is OK"
+}
+
+set square 11451.2
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC534 "
+puts " case 2 "
+puts "========================"
+puts ""
+
+hyperbola hyperbola 0 0 0 30 10
+extsurf es_hyperbola hyperbola 0 0 1
+offset es_hyperbola_of es_hyperbola 5
+offset es_hyperbola_of_of es_hyperbola_of 5
+mkface result es_hyperbola_of_of 0 3 0 40
+
+set tolerance [maxtolerance result]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
+
+if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
+ puts "Faulty : Tolerance of shape is more then 1.0"
+} else {
+ puts "Tolerance is OK"
+}
+
+set square 11460.7
+set 2dviewer 0
+
+
+
--- /dev/null
+
+puts "========================"
+puts " OCC534 "
+puts " case 3 "
+puts "========================"
+puts ""
+
+hyperbola hyperbola 0 0 0 30 10
+revsurf rs_hyperbola hyperbola 0 400 0 1 0 0
+offset rs_hyperbola_of rs_hyperbola 5
+mkface result rs_hyperbola_of .3 .5 .3 .5
+
+set tolerance [maxtolerance result]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
+
+if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
+ puts "Faulty : Tolerance of shape is more then 1.0"
+} else {
+ puts "Tolerance is OK"
+}
+
+set square 171.992
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC534 "
+puts " case 4 "
+puts "========================"
+puts ""
+
+hyperbola hyperbola 0 0 0 30 10
+revsurf rs_hyperbola hyperbola 0 400 0 1 0 0
+offset rs_hyperbola_of rs_hyperbola 5
+offset rs_hyperbola_of_of rs_hyperbola_of 5
+mkface result rs_hyperbola_of_of .3 .5 .3 .5
+
+set tolerance [maxtolerance result]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
+
+if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
+ puts "Faulty : Tolerance of shape is more then 1.0"
+} else {
+ puts "Tolerance is OK"
+}
+
+set square 84.8861
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC534 "
+puts " case 5 "
+puts "========================"
+puts ""
+
+parabola parabola 0 0 0 30
+revsurf rs_parabola parabola 0 400 0 1 0 0
+offset rs_parabola_of rs_parabola 10
+mkface result rs_parabola_of .3 .5 .3 .5
+
+set tolerance [maxtolerance result]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
+
+if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
+ puts "Faulty : Tolerance of shape is more then 1.0"
+} else {
+ puts "Tolerance is OK"
+}
+
+set square 13.3227
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC534 "
+puts " case 6 "
+puts "========================"
+puts ""
+
+parabola parabola 0 0 0 30
+revsurf rs_parabola parabola 0 400 0 1 0 0
+offset rs_parabola_of rs_parabola 10
+offset rs_parabola_of_of rs_parabola_of 5
+mkface result rs_parabola_of_of .3 .5 .3 .5
+
+set tolerance [maxtolerance result]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
+
+if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
+ puts "Faulty : Tolerance of shape is more then 1.0"
+} else {
+ puts "Tolerance is OK"
+}
+
+set square 11.9915
+set 2dviewer 0
+
--- /dev/null
+#INTERFACE IGES
+puts "======="
+puts "OCC535"
+puts "======="
+puts ""
+#############################################################
+## After command "fixshape" in DRAW on attached shape quantity of shapes obtained
+## with help command "nbs" is increased.
+#############################################################
+
+pload XDE
+
+restore [locate_data_file OCC535.brep] a
+
+set nb_info_a [nbshapes a]
+regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_a full r1
+
+fixshape result a
+
+set nb_info_res [nbshapes result]
+regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_res full r2
+
+puts ""
+puts [format "before Shapes = %s after Shapes = %s" $r1 $r2]
+puts ""
+
+if { $r1 == $r2 } {
+ puts "OCC535 OK"
+} else {
+ puts "OCC535 Faulty"
+}
+
+set square 3554.31
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC539 "
+puts "(case 1)"
+puts "========================"
+puts ""
+
+ puts "==========================================="
+ puts " BOPCOMMON case_4_shell.brep and case_4_wire3.brep"
+ puts "==========================================="
+ puts " "
+
+restore [locate_data_file case_4_shell.brep] a
+restore [locate_data_file case_4_wire3.brep] b
+bop a b
+bopcommon result
+
+set nb_v_good 15
+set nb_e_good 10
+set length 1150.78
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC539 "
+puts "(case 2)"
+puts "========================"
+puts ""
+
+ puts "============================================"
+ puts " BOPTUC case_4_shell.brep and case_4_wire3.brep"
+ puts "============================================"
+ puts " "
+
+restore [locate_data_file case_4_shell.brep] a
+restore [locate_data_file case_4_wire3.brep] b
+bop a b
+boptuc result
+
+set nb_v_good 16
+set nb_e_good 11
+set length 929.278
+set 2dviewer 0
+
--- /dev/null
+puts "========"
+puts "OCC548"
+puts "OCC628"
+puts "========"
+puts ""
+##################################################################
+# Function BRepTool::IsClosed returns Standard_True although argument is open shell
+# Incorrect work of BRepCheck
+##################################################################
+
+pload XDE
+
+restore [locate_data_file CTO908_topo103-t.brep] a
+
+decho off
+
+checkshape a
+checkshape a b
+
+decho on
+
+fixshape result a 0.001
+
+set che [checkshape result c]
+if { [regexp {problems} $che] } {
+ puts "Faulty OCC628"
+}
+
+set square 119630
+set 2dviewer 2
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC570"
+puts "========"
+puts ""
+
+OCC570 result
+
+set square 58500
+set 3dviewer 0
--- /dev/null
+puts "========"
+puts "OCC571"
+puts "========"
+puts ""
+##########################
+## Fillet operation fails on given shape
+##########################
+## LIMITATION: Builds fillet with 0.03<=r<=1.2
+##########################
+
+restore [locate_data_file OCC571.brep] a
+checkshape a
+explode a
+
+if [catch {fillet result a_1 1.2 a_2 } catch_result] {
+ puts "Faulty OCC571 exception (case 1): Fillet operation fails on given shape "
+} else {
+ puts " OCC571 (case 1) OK: Fillet operation was made"
+}
+
+set square 21118.1
+set 2dviewer 0
--- /dev/null
+puts "========"
+puts "OCC571"
+puts "========"
+puts ""
+##########################
+## Fillet operation fails on given shape
+##########################
+## LIMITATION: Builds fillet with 0.03<=r<=1.2
+##########################
+
+restore [locate_data_file OCC571.brep] a
+checkshape a
+explode a
+
+if [catch {fillet result a_1 0.03 a_2 } catch_result] {
+ puts "Faulty OCC571 exception (case 2): Fillet operation fails on given shape "
+} else {
+ puts " OCC571 (case 2) OK: Fillet operation was made"
+}
+
+set square 21209.9
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5729"
+puts "============"
+puts ""
+######################################################
+# Regression on case cfe 900 K5
+######################################################
+
+set BugNumber OCC5729
+
+restore [locate_data_file OCC5729-f1.brep] f1
+restore [locate_data_file OCC5729-f2.brep] f2
+
+decho off
+set che_1 [checkshape f1]
+decho on
+if { [regexp {Faulty} $che_1] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for f1"
+}
+
+decho off
+set che_2 [checkshape f2]
+decho on
+if { [regexp {Faulty} $che_2] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for f2"
+}
+
+bfuse result f1 f2
+
+set square 28559.8
+
+set nb_v_good 13
+set nb_e_good 22
+set nb_w_good 15
+set nb_f_good 13
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 66
+
--- /dev/null
+puts "================"
+puts "OCC578"
+puts "OCC584"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC578_w1.brep] w1
+checkshape w1
+
+restore [locate_data_file OCC578_w2.brep] w2
+checkshape w2
+
+set x 1
+set y 1
+set z 0.5
+box b ${x} ${y} ${z}
+checkshape b
+
+bfuse res1 w1 w2
+checkshape res1
+
+bcut result b res1
+
+set square 4.84596
+set 3dviewer 0
--- /dev/null
+puts "================"
+puts "OCC578"
+puts "OCC582"
+puts "OCC583"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC578_w1.brep] w1
+checkshape w1
+
+restore [locate_data_file OCC578_w2.brep] w2
+checkshape w2
+
+set x 1
+set y 1
+set z 0.5
+box b ${x} ${y} ${z}
+checkshape b
+
+bfuse res1 w1 w2
+checkshape res1
+
+bop b res1
+bopcut result
+
+set square 4.84596
+set 3dviewer 0
--- /dev/null
+
+puts "================"
+puts "BUC60974 "
+puts " OCC57"
+puts "================"
+puts ""
+
+restore [locate_data_file BUC60974.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_1 a_2
+set square 191388
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "BUC60974 "
+puts " OCC57"
+puts "================"
+puts ""
+
+restore [locate_data_file BUC60974.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_2 a_1
+set square 191388
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+puts ""
+######################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+######################################################
+
+set BugNumber OCC5805
+
+puts "demonstration of pipes and hollowing for GTISoft"
+puts ""
+puts "Scenario 2A: Hollowed elliptical cylinder - ThroughSection and MakeThickSolid (work-around: ellipse is split into 2)"
+
+
+ellipse e 10 60 0 1 0 0 5 3
+trim e1 e 0 pi
+trim e2 e pi 2*pi
+mkedge ee1 e1
+mkedge ee2 e2
+wire w1 ee1 ee2
+copy w1 w2
+ttranslate w2 -20 0 0
+
+if { [catch { thrusections rthru2 1 1 w1 w2 } catch_result] } {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+}
+
+explode rthru2 f
+
+if { [catch { offsetshape result rthru2 -0.5 rthru2_3 rthru2_4 } catch_result] } {
+ puts "Faulty ${BugNumber} : offsetshape is wrong"
+}
+
+if { [catch { set tolmaxres [tolmax result] } catch_result] } {
+ puts "Faulty ${BugNumber} : tolmax is wrong"
+}
+
+regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
+if { [catch { expr $maxtolerance } result] } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
+}
+if { $maxtolerance > 1. } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
+}
+
+set square 981.941
+
+set nb_v_good 6
+set nb_e_good 10
+set nb_w_good 8
+set nb_f_good 6
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 32
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# ellipse1
+ellipse ell 10 0 0 1 0 0 5 3
+mkedge ee1 ell
+wire UpCover ee1
+
+# ellipse2
+copy ee1 ee2
+ttranslate ee2 -20 0 0
+wire BottomCover ee2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_2} $calcul $type }
+
+
+set square 1041.35
+
+set nb_v_good 3
+set nb_e_good 5
+set nb_w_good 6
+set nb_f_good 5
+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 index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+cpulimit 1400
+# ellipse1
+ellipse ell 10 0 0 1 0 0 5 3
+mkedge ee1 ell
+wire UpCover ee1
+
+# ellipse2
+copy ee1 ee2
+ttranslate ee2 -20 0 0
+wire BottomCover ee2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_3} $calcul $type }
+
+
+set square 1041.35
+
+set nb_v_good 3
+set nb_e_good 5
+set nb_w_good 6
+set nb_f_good 5
+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 index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# ellipse1
+ellipse ell 10 0 0 1 0 0 5 3
+mkedge ee1 ell
+wire UpCover ee1
+
+# ellipse2
+copy ee1 ee2
+ttranslate ee2 -20 0 0
+wire BottomCover ee2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
+
+
+set square 982.254
+
+set nb_v_good 3
+set nb_e_good 5
+set nb_w_good 6
+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 20
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# v12 v11
+# *---------------------*
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# *---------------------*
+# v13 v14
+#
+
+set z1 5
+set z2 -5
+
+# quadrangle1
+polyline UpCover 0 0 ${z1} 5 0 ${z1} 5 5 ${z1} 0 5 ${z1} 0 0 ${z1}
+
+# quadrangle2
+polyline BottomCover 0 0 ${z2} 5 0 ${z2} 5 5 ${z2} 0 5 ${z2} 0 0 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {} $calcul $type }
+
+
+set square 176
+
+set nb_v_good 8
+set nb_e_good 12
+set nb_w_good 6
+set nb_f_good 6
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 34
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# v12 v11
+# *---------------------*
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# *---------------------*
+# v13 v14
+#
+
+set z1 5
+set z2 -5
+
+# quadrangle1
+polyline UpCover 0 0 ${z1} 5 0 ${z1} 5 5 ${z1} 0 5 ${z1} 0 0 ${z1}
+
+# quadrangle2
+polyline BottomCover 0 0 ${z2} 5 0 ${z2} 5 5 ${z2} 0 5 ${z2} 0 0 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_5} $calcul $type }
+
+
+set square 402
+
+set nb_v_good 16
+set nb_e_good 24
+set nb_w_good 12
+set nb_f_good 11
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 65
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# v12 v11
+# *---------------------*
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# *---------------------*
+# v13 v14
+#
+
+set z1 5
+set z2 -5
+
+# quadrangle1
+polyline UpCover 0 0 ${z1} 5 0 ${z1} 5 5 ${z1} 0 5 ${z1} 0 0 ${z1}
+
+# quadrangle2
+polyline BottomCover 0 0 ${z2} 5 0 ${z2} 5 5 ${z2} 0 5 ${z2} 0 0 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_6} $calcul $type }
+
+
+set square 402
+
+set nb_v_good 16
+set nb_e_good 24
+set nb_w_good 12
+set nb_f_good 11
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 65
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# v12 v11
+# *---------------------*
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# *---------------------*
+# v13 v14
+#
+
+set z1 5
+set z2 -5
+
+# quadrangle1
+polyline UpCover 0 0 ${z1} 5 0 ${z1} 5 5 ${z1} 0 5 ${z1} 0 0 ${z1}
+
+# quadrangle2
+polyline BottomCover 0 0 ${z2} 5 0 ${z2} 5 5 ${z2} 0 5 ${z2} 0 0 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_5 s_6} $calcul $type }
+
+
+set square 378
+
+set nb_v_good 16
+set nb_e_good 24
+set nb_w_good 12
+set nb_f_good 10
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 64
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
+puts "TODO ?OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO ?OCC11111 ALL: Faulty OCC5805 : result is not Closed shape"
+puts "TODO ?OCC11111 ALL: Error : The command is not valid."
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 5
+set z2 -5
+
+# beziercurve1
+beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
+mkedge e1 bc1
+wire UpCover e1
+
+# beziercurve2
+copy e1 e2
+ttranslate e2 0 0 ${z2}
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.001
+catch { OFFSETSHAPE $distance {} $calcul $type }
+# Null result
+
+
+set square 495.635
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 5
+set z2 -5
+
+# beziercurve1
+beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
+mkedge e1 bc1
+wire UpCover e1
+
+# beziercurve2
+copy e1 e2
+ttranslate e2 0 0 ${z2}
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.001
+catch { OFFSETSHAPE $distance {s_2} $calcul $type }
+# Bad result
+
+
+set square 495.635
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
+puts "TODO ?OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 5
+set z2 -5
+
+# beziercurve1
+beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
+mkedge e1 bc1
+wire UpCover e1
+
+# beziercurve2
+copy e1 e2
+ttranslate e2 0 0 ${z2}
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.001
+catch { OFFSETSHAPE $distance {s_3} $calcul $type }
+# Bad result
+
+
+set square 495.635
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+puts ""
+######################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+######################################################
+
+set BugNumber OCC5805
+
+puts "demonstration of pipes and hollowing for GTISoft"
+puts ""
+puts "Scenario 2A: Hollowed elliptical cylinder - ThroughSection and MakeThickSolid"
+
+ellipse e 10 60 0 1 0 0 5 3
+mkedge ee e
+wire w1 ee
+copy w1 w2
+ttranslate w2 -20 0 0
+
+if { [catch { thrusections rthru2 1 1 w1 w2 } catch_result] } {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+}
+
+explode rthru2 f
+
+if { [catch { offsetshape result rthru2 -0.5 rthru2_2 rthru2_3 } catch_result] } {
+ puts "Faulty ${BugNumber} : offsetshape is wrong"
+}
+
+if { [catch { set tolmaxres [tolmax result] } catch_result] } {
+ puts "Faulty ${BugNumber} : tolmax is wrong"
+}
+regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
+if { [catch { expr $maxtolerance } catch_result] } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
+}
+if { $maxtolerance > 1. } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
+}
+
+set square 982.254
+
+set nb_v_good 3
+set nb_e_good 5
+set nb_w_good 6
+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 20
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 5
+set z2 -5
+
+# beziercurve1
+beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
+mkedge e1 bc1
+wire UpCover e1
+
+# beziercurve2
+copy e1 e2
+ttranslate e2 0 0 ${z2}
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.001
+catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
+# Bad result
+
+
+set square 495.635
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# pbsplinecurve1
+pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
+mkedge e1 pbc1
+wire UpCover e1
+
+# pbsplinecurve1
+copy e1 e2
+ttranslate e2 0 0 20
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.1
+catch { OFFSETSHAPE $distance {} $calcul $type }
+
+
+set square 236.013
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# pbsplinecurve1
+pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
+mkedge e1 pbc1
+wire UpCover e1
+
+# pbsplinecurve1
+copy e1 e2
+ttranslate e2 0 0 20
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.1
+catch { OFFSETSHAPE $distance {s_3} $calcul $type }
+
+
+set square 484.846
+
+set nb_v_good 3
+set nb_e_good 5
+set nb_w_good 6
+set nb_f_good 5
+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 index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# pbsplinecurve1
+pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
+mkedge e1 pbc1
+wire UpCover e1
+
+# pbsplinecurve1
+copy e1 e2
+ttranslate e2 0 0 20
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.1
+catch { OFFSETSHAPE $distance {s_2} $calcul $type }
+
+
+set square 484.846
+
+set nb_v_good 3
+set nb_e_good 5
+set nb_w_good 6
+set nb_f_good 5
+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 index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# pbsplinecurve1
+pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
+mkedge e1 pbc1
+wire UpCover e1
+
+# pbsplinecurve1
+copy e1 e2
+ttranslate e2 0 0 20
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.1
+catch { OFFSETSHAPE $distance {s_3 s_2} $calcul $type }
+
+
+set square 472.222
+
+set nb_v_good 3
+set nb_e_good 5
+set nb_w_good 6
+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 20
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# *
+# | \
+# | \
+# | \
+# | \
+# | \
+# | \
+# | * v3 \
+# | | \ \
+# | | \ \
+# | | \ \
+# | | \ \
+# | | /* v2 *
+# | | / /
+# | | / /
+# | | / /
+# | * /
+# | v1 /
+# | /
+# | /
+# | /
+# | /
+# | /
+# |/
+# *
+#
+cpulimit 1400
+set z1 10
+set z2 -10
+
+# triangle1
+polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
+
+# triangle2
+polyline BottomCover -5 -5 ${z2} 10 10 ${z2} -5 20 ${z2} -5 -5 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {} $calcul $type }
+
+
+set square 914.876
+
+set nb_v_good 6
+set nb_e_good 9
+set nb_w_good 5
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 27
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# *
+# | \
+# | \
+# | \
+# | \
+# | \
+# | \
+# | * v3 \
+# | | \ \
+# | | \ \
+# | | \ \
+# | | \ \
+# | | /* v2 *
+# | | / /
+# | | / /
+# | | / /
+# | * /
+# | v1 /
+# | /
+# | /
+# | /
+# | /
+# | /
+# |/
+# *
+#
+
+set z1 10
+set z2 -10
+
+# triangle1
+polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
+
+# triangle2
+polyline BottomCover -5 -5 ${z2} 10 10 ${z2} -5 20 ${z2} -5 -5 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_4} $calcul $type }
+
+
+set square 2011.91
+
+set nb_v_good 12
+set nb_e_good 18
+set nb_w_good 10
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 51
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# *
+# | \
+# | \
+# | \
+# | \
+# | \
+# | \
+# | * v3 \
+# | | \ \
+# | | \ \
+# | | \ \
+# | | \ \
+# | | /* v2 *
+# | | / /
+# | | / /
+# | | / /
+# | * /
+# | v1 /
+# | /
+# | /
+# | /
+# | /
+# | /
+# |/
+# *
+#
+
+set z1 10
+set z2 -10
+
+# triangle1
+polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
+
+# triangle2
+polyline BottomCover -5 -5 ${z2} 10 10 ${z2} -5 20 ${z2} -5 -5 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_5} $calcul $type }
+
+
+set square 1755.54
+
+set nb_v_good 12
+set nb_e_good 18
+set nb_w_good 10
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 51
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# *
+# | \
+# | \
+# | \
+# | \
+# | \
+# | \
+# | * v3 \
+# | | \ \
+# | | \ \
+# | | \ \
+# | | \ \
+# | | /* v2 *
+# | | / /
+# | | / /
+# | | / /
+# | * /
+# | v1 /
+# | /
+# | /
+# | /
+# | /
+# | /
+# |/
+# *
+#
+
+set z1 10
+set z2 -10
+
+# triangle1
+polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
+
+# triangle2
+polyline BottomCover -5 -5 ${z2} 10 10 ${z2} -5 20 ${z2} -5 -5 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_4 s_5} $calcul $type }
+
+
+set square 1735.06
+
+set nb_v_good 12
+set nb_e_good 18
+set nb_w_good 10
+set nb_f_good 8
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 50
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "OCC7582"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+# Bad result of offset operation
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 10
+set z2 -10
+
+# circle1
+circle c1 0 0 ${z1} 5
+mkedge ec1 c1
+wire UpCover ec1
+
+# circle2
+circle c2 0 0 ${z2} 30
+mkedge ec2 c2
+wire BottomCover ec2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {} $calcul $type }
+
+
+set square 5829.59
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+puts ""
+######################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+######################################################
+
+set BugNumber OCC5805
+
+restore [locate_data_file OCC5805.brep] a
+
+decho off
+set che_a [checkshape a]
+decho on
+if { [regexp {Faulty} $che_a] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for a"
+}
+
+explode a f
+
+if { [catch { offsetshape result a -1 a_6 } catch_result] } {
+ puts "Faulty ${BugNumber} : offsetshape is wrong"
+}
+
+if { [catch { set tolmaxres [tolmax result] } catch_result] } {
+ puts "Faulty ${BugNumber} : tolmax is wrong"
+}
+
+regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
+if { [catch { expr $maxtolerance } catch_result] } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
+}
+if { $maxtolerance > 1. } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
+}
+
+set square 1185.03
+
+set nb_v_good 10
+set nb_e_good 15
+set nb_w_good 7
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 41
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 10
+set z2 -10
+
+# circle1
+circle c1 0 0 ${z1} 5
+mkedge ec1 c1
+wire UpCover ec1
+
+# circle2
+circle c2 0 0 ${z2} 30
+mkedge ec2 c2
+wire BottomCover ec2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_2} $calcul $type }
+
+
+set square 1336.75
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 23
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 10
+set z2 -10
+
+# circle1
+circle c1 0 0 ${z1} 5
+mkedge ec1 c1
+wire UpCover ec1
+
+# circle2
+circle c2 0 0 ${z2} 30
+mkedge ec2 c2
+wire BottomCover ec2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_3} $calcul $type }
+
+
+set square 7157.43
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 23
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC5805"
+puts "OCC7582"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+# Bad result of offset operation
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 10
+set z2 -10
+
+# circle1
+circle c1 0 0 ${z1} 5
+mkedge ec1 c1
+wire UpCover ec1
+
+# circle2
+circle c2 0 0 ${z2} 30
+mkedge ec2 c2
+wire BottomCover ec2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
+
+
+set square 1223.65
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+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 22
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set x1 10
+set x2 -10
+
+# ellipse1
+ellipse ell1 ${x1} 0 0 1 0 0 5 3
+mkedge ee1 ell1
+wire UpCover ee1
+
+# ellipse2
+ellipse ell2 ${x2} 0 0 1 0 0 4 2
+mkedge ee2 ell2
+wire BottomCover ee2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {} $calcul $type }
+
+
+set square 418.388
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set x1 10
+set x2 -10
+
+# ellipse1
+ellipse ell1 ${x1} 0 0 1 0 0 5 3
+mkedge ee1 ell1
+wire UpCover ee1
+
+# ellipse2
+ellipse ell2 ${x2} 0 0 1 0 0 4 2
+mkedge ee2 ell2
+wire BottomCover ee2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_2} $calcul $type }
+
+
+set square 881.591
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 23
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set x1 10
+set x2 -10
+
+# ellipse1
+ellipse ell1 ${x1} 0 0 1 0 0 5 3
+mkedge ee1 ell1
+wire UpCover ee1
+
+# ellipse2
+ellipse ell2 ${x2} 0 0 1 0 0 4 2
+mkedge ee2 ell2
+wire BottomCover ee2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_3} $calcul $type }
+
+
+set square 915.469
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 23
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set x1 10
+set x2 -10
+
+# ellipse1
+ellipse ell1 ${x1} 0 0 1 0 0 5 3
+mkedge ee1 ell1
+wire UpCover ee1
+
+# ellipse2
+ellipse ell2 ${x2} 0 0 1 0 0 4 2
+mkedge ee2 ell2
+wire BottomCover ee2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
+
+
+set square 856.92
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+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 22
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# v12 v11
+# *---------------------*
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# *---------------------*
+# v13 v14
+#
+
+set z1 5
+set z2 -5
+
+# quadrangle1
+polyline UpCover 0 0 ${z1} 6 0 ${z1} 6 6 ${z1} 0 6 ${z1} 0 0 ${z1}
+
+# quadrangle2
+polyline BottomCover 3 -2 ${z2} 8 3 ${z2} 3 8 ${z2} -2 3 ${z2} 3 -2 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {} $calcul $type }
+
+
+set square 246.821
+
+set nb_v_good 8
+set nb_e_good 12
+set nb_w_good 6
+set nb_f_good 6
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 34
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# v12 v11
+# *---------------------*
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# *---------------------*
+# v13 v14
+#
+
+set z1 5
+set z2 -5
+
+# quadrangle1
+polyline UpCover 0 0 ${z1} 6 0 ${z1} 6 6 ${z1} 0 6 ${z1} 0 0 ${z1}
+
+# quadrangle2
+polyline BottomCover 3 -2 ${z2} 8 3 ${z2} 3 8 ${z2} -2 3 ${z2} 3 -2 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_5} $calcul $type }
+
+
+set square 544.931
+
+set nb_v_good 16
+set nb_e_good 24
+set nb_w_good 12
+set nb_f_good 11
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 65
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# v12 v11
+# *---------------------*
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# *---------------------*
+# v13 v14
+#
+
+set z1 5
+set z2 -5
+
+# quadrangle1
+polyline UpCover 0 0 ${z1} 6 0 ${z1} 6 6 ${z1} 0 6 ${z1} 0 0 ${z1}
+
+# quadrangle2
+polyline BottomCover 3 -2 ${z2} 8 3 ${z2} 3 8 ${z2} -2 3 ${z2} 3 -2 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_6} $calcul $type }
+
+
+set square 524.758
+
+set nb_v_good 16
+set nb_e_good 24
+set nb_w_good 12
+set nb_f_good 11
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 65
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+puts ""
+######################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+######################################################
+
+set BugNumber OCC5805
+
+restore [locate_data_file OCC5805.brep] a
+
+decho off
+set che_a [checkshape a]
+decho on
+
+if { [regexp {Faulty} $che_a] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for a"
+}
+
+explode a f
+
+offsetparameter 1e-7 c a
+offsetload a -1 a_6
+
+if { [catch { offsetperform result } catch_result] } {
+ puts "Faulty ${BugNumber} : offsetshape is wrong"
+}
+
+if { [catch { set tolmaxres [tolmax result] } catch_result] } {
+ puts "Faulty ${BugNumber} : tolmax is wrong"
+}
+regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
+if { [catch { expr $maxtolerance } catch_result] } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
+}
+if { $maxtolerance > 1. } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
+}
+
+set square 1185.03
+
+set nb_v_good 10
+set nb_e_good 15
+set nb_w_good 7
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 41
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# v12 v11
+# *---------------------*
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# | |
+# *---------------------*
+# v13 v14
+#
+
+set z1 5
+set z2 -5
+
+# quadrangle1
+polyline UpCover 0 0 ${z1} 6 0 ${z1} 6 6 ${z1} 0 6 ${z1} 0 0 ${z1}
+
+# quadrangle2
+polyline BottomCover 3 -2 ${z2} 8 3 ${z2} 3 8 ${z2} -2 3 ${z2} 3 -2 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_5 s_6} $calcul $type }
+
+
+set square 485.358
+
+set nb_v_good 16
+set nb_e_good 24
+set nb_w_good 12
+set nb_f_good 10
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 64
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+puts "TODO ?OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO ?OCC11111 ALL: Faulty OCC5805 : result is not Closed shape"
+puts "TODO ?OCC11111 ALL: Error : The command is not valid"
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 5
+set z2 -5
+
+# beziercurve1
+beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
+mkedge e1 bc1
+wire UpCover e1
+
+# beziercurve2
+beziercurve bc2 5 4 4 ${z2} 4 -4 ${z2} -4 -4 ${z2} -4 4 ${z2} 4 4 ${z2}
+mkedge e2 bc2
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.001
+catch { OFFSETSHAPE $distance {} $calcul $type }
+# Null result
+
+
+set square 495.635
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO ?OCC11111 ALL: Faulty OCC5805 : result is not Closed shape"
+puts "TODO ?OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO ?OCC11111 ALL: Error : The command is not valid."
+puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 5
+set z2 -5
+
+# beziercurve1
+beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
+mkedge e1 bc1
+wire UpCover e1
+
+# beziercurve2
+beziercurve bc2 5 4 4 ${z2} 4 -4 ${z2} -4 -4 ${z2} -4 4 ${z2} 4 4 ${z2}
+mkedge e2 bc2
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.001
+catch { OFFSETSHAPE $distance {s_2} $calcul $type }
+# Bad result
+
+
+set square 495.635
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+puts "TODO ?OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO ?OCC11111 ALL: Faulty OCC5805 : result is not Closed shape"
+puts "TODO ?OCC11111 ALL: Error : The command is not valid."
+puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
+puts "TODO ?OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 5
+set z2 -5
+
+# beziercurve1
+beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
+mkedge e1 bc1
+wire UpCover e1
+
+# beziercurve2
+beziercurve bc2 5 4 4 ${z2} 4 -4 ${z2} -4 -4 ${z2} -4 4 ${z2} 4 4 ${z2}
+mkedge e2 bc2
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.001
+catch { OFFSETSHAPE $distance {s_3} $calcul $type }
+# Bad result
+
+
+set square 495.635
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 5
+set z2 -5
+
+# beziercurve1
+beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
+mkedge e1 bc1
+wire UpCover e1
+
+# beziercurve2
+beziercurve bc2 5 4 4 ${z2} 4 -4 ${z2} -4 -4 ${z2} -4 4 ${z2} 4 4 ${z2}
+mkedge e2 bc2
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.001
+catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
+# Bad result
+
+
+set square 495.635
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# pbsplinecurve1
+pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
+mkedge e1 pbc1
+wire UpCover e1
+
+# pbsplinecurve1
+copy e1 e2
+ttranslate e2 0 0 20
+tscale e2 0 0 0 2
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.1
+catch { OFFSETSHAPE $distance {} $calcul $type }
+
+
+set square 754.039
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# pbsplinecurve1
+pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
+mkedge e1 pbc1
+wire UpCover e1
+
+# pbsplinecurve1
+copy e1 e2
+ttranslate e2 0 0 20
+tscale e2 0 0 0 2
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.1
+catch { OFFSETSHAPE $distance {s_3} $calcul $type }
+
+
+set square 1470.32
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 23
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC5805"
+puts "============"
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+cpulimit 8000
+set BugNumber OCC5805
+
+# pbsplinecurve1
+pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
+mkedge e1 pbc1
+wire UpCover e1
+
+# pbsplinecurve1
+copy e1 e2
+ttranslate e2 0 0 20
+tscale e2 0 0 0 2
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.1
+catch { OFFSETSHAPE $distance {s_2} $calcul $type }
+
+
+set square 1511.4
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 23
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC5805"
+puts "============"
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+cpulimit 8000
+set BugNumber OCC5805
+
+# pbsplinecurve1
+pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 0 1 -2 2 0 1 0 1 0 1 2 2 0 1 1 0 0 1 2 -2 0 1 0 -1 0 1 -2 -2 0 1
+mkedge e1 pbc1
+wire UpCover e1
+
+# pbsplinecurve1
+copy e1 e2
+ttranslate e2 0 0 20
+tscale e2 0 0 0 2
+wire BottomCover e2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.1
+catch { OFFSETSHAPE $distance {s_3 s_2} $calcul $type }
+
+
+set square 1451.05
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+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 22
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# pcone
+pcone s 30 5 20
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {} $calcul $type }
+
+
+set square 5829.59
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+puts ""
+######################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+######################################################
+
+set BugNumber OCC5805
+
+restore [locate_data_file OCC5805.brep] a
+
+decho off
+set che_a [checkshape a]
+decho on
+if { [regexp {Faulty} $che_a] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for a"
+}
+
+explode a f
+
+offsetparameter 1e-7 c a
+offsetload a -1
+
+if { [catch { offsetperform result } catch_result] } {
+ puts "Faulty ${BugNumber} : offsetshape is wrong"
+}
+
+if { [catch { set tolmaxres [tolmax result] } catch_result]} {
+ puts "Faulty ${BugNumber} : tolmax is wrong"
+}
+regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
+if { [catch { expr $maxtolerance } catch_result] } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
+}
+if { $maxtolerance > 1. } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
+}
+
+set square 876.584
+
+set nb_v_good 10
+set nb_e_good 15
+set nb_w_good 7
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 41
+
+set 2dviewer 0
--- /dev/null
+set subgroup modalg
+
+set calcul "p"
+set type "i"
+
+proc OFFSETSHAPE {distance faces calcul type} {
+ uplevel #0 explode s f
+ uplevel #0 offsetparameter 1e-7 $calcul $type
+ uplevel #0 offsetload s $distance $faces
+ uplevel #0 offsetperform result
+}
+
+
+
+
+
+
+
+
+
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# pcone
+pcone s 30 5 20
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_2} $calcul $type }
+
+
+set square 12150
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 23
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# pcone
+pcone s 30 5 20
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_3} $calcul $type }
+
+
+set square 7157.43
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 23
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# pcone
+pcone s 30 5 20
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
+
+
+set square 7051.59
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+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 22
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# * v3
+# | \
+# | \
+# | \
+# | \
+# | /* v2
+# | /
+# | /
+# | /
+# *
+# v1
+#
+
+set z1 10
+set z2 -10
+
+# triangle1
+polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
+
+# triangle2
+polyline BottomCover 0 0 ${z2} 5 5 ${z2} 0 10 ${z2} 0 0 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_4} $calcul $type }
+
+
+set square 889.96
+
+set nb_v_good 12
+set nb_e_good 18
+set nb_w_good 10
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 51
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# * v3
+# | \
+# | \
+# | \
+# | \
+# | /* v2
+# | /
+# | /
+# | /
+# *
+# v1
+#
+
+set z1 10
+set z2 -10
+
+# triangle1
+polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
+
+# triangle2
+polyline BottomCover 0 0 ${z2} 5 5 ${z2} 0 10 ${z2} 0 0 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {} $calcul $type }
+
+
+set square 376.733
+
+set nb_v_good 6
+set nb_e_good 9
+set nb_w_good 5
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 27
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# * v3
+# | \
+# | \
+# | \
+# | \
+# | /* v2
+# | /
+# | /
+# | /
+# *
+# v1
+#
+
+set z1 10
+set z2 -10
+
+# triangle1
+polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
+
+# triangle2
+polyline BottomCover 0 0 ${z2} 5 5 ${z2} 0 10 ${z2} 0 0 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_5} $calcul $type }
+
+
+set square 889.96
+
+set nb_v_good 12
+set nb_e_good 18
+set nb_w_good 10
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 51
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+#
+# * v3
+# | \
+# | \
+# | \
+# | \
+# | /* v2
+# | /
+# | /
+# | /
+# *
+# v1
+#
+
+set z1 10
+set z2 -10
+
+# triangle1
+polyline UpCover 0 0 ${z1} 5 5 ${z1} 0 10 ${z1} 0 0 ${z1}
+
+# triangle2
+polyline BottomCover 0 0 ${z2} 5 5 ${z2} 0 10 ${z2} 0 0 ${z2}
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_4 s_5} $calcul $type }
+
+
+set square 870.345
+
+set nb_v_good 12
+set nb_e_good 18
+set nb_w_good 10
+set nb_f_good 8
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 50
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 10
+set z2 -10
+
+# circle1
+circle c1 0 0 ${z1} 5
+mkedge ec1 c1
+wire UpCover ec1
+
+# circle2
+circle c2 0 0 ${z2} 5
+mkedge ec2 c2
+wire BottomCover ec2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {} $calcul $type }
+
+
+set square 664.447
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 10
+set z2 -10
+
+# circle1
+circle c1 0 0 ${z1} 5
+mkedge ec1 c1
+wire UpCover ec1
+
+# circle2
+circle c2 0 0 ${z2} 5
+mkedge ec2 c2
+wire BottomCover ec2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_2} $calcul $type }
+
+
+set square 1336.75
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 23
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+puts ""
+######################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+######################################################
+
+set BugNumber OCC5805
+
+restore [locate_data_file OCC5805.brep] a
+
+decho off
+set che_a [checkshape a]
+decho on
+if { [regexp {Faulty} $che_a] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for a"
+}
+
+if { [catch { offsetshape result a -1 } catch_result] } {
+ puts "Faulty ${BugNumber} : offsetshape is wrong"
+}
+
+if { [catch { set tolmaxres [tolmax result] } catch_result] } {
+ puts "Faulty ${BugNumber} : tolmax is wrong"
+}
+regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
+if { [catch { expr $maxtolerance } catch_result] } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
+}
+if { $maxtolerance > 1. } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (2)"
+}
+
+set square 876.584
+
+set nb_v_good 10
+set nb_e_good 15
+set nb_w_good 7
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 41
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 10
+set z2 -10
+
+# circle1
+circle c1 0 0 ${z1} 5
+mkedge ec1 c1
+wire UpCover ec1
+
+# circle2
+circle c2 0 0 ${z2} 5
+mkedge ec2 c2
+wire BottomCover ec2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_3} $calcul $type }
+
+
+set square 1336.75
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 23
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+set z1 10
+set z2 -10
+
+# circle1
+circle c1 0 0 ${z1} 5
+mkedge ec1 c1
+wire UpCover ec1
+
+# circle2
+circle c2 0 0 ${z2} 5
+mkedge ec2 c2
+wire BottomCover ec2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
+
+
+set square 1223.65
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+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 22
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# ellipse1
+ellipse ell 10 0 0 1 0 0 5 3
+mkedge ee1 ell
+wire UpCover ee1
+
+# ellipse2
+copy ee1 ee2
+ttranslate ee2 -20 0 0
+wire BottomCover ee2
+
+set issolid 1
+set isruled 1
+if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+
+}
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {} $calcul $type }
+
+
+set square 495.635
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 13
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : s is not Closed shape"
+
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+ puts "Faulty ${BugNumber} : result is not Closed shape"
+
+}
+
+
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " SAL594 "
+puts "========================"
+puts ""
+###################################
+## It is impossible to put correct fillets on the shape
+###################################
+
+restore [locate_data_file SAL594.brep] a
+explode a e
+
+if [catch {blend result1 a 20 a_23 20 a_25 20 a_26 20 a_28} catch_result] {
+ puts "Faulty SAL594 (case 1): function BLEND works wrongly"
+} else {
+ puts "SAL594 OK (case 1): function BLEND works OK"
+}
+
+if [catch {blend result result1 2.5 a_15 2.5 a_12 2.5 a_4} catch_result] {
+ puts "Faulty SAL594 (case 2): function BLEND works wrongly."
+} else {
+ puts "SAL594 OK (case 2): function BLEND works OK"
+}
+
+set square 60513.1
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "BUC60975 "
+puts " OCC59"
+puts "================"
+puts ""
+
+restore [locate_data_file BUC60975.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_1 a_2
+set square 241843
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "BUC60975 "
+puts " OCC59"
+puts "================"
+puts ""
+
+restore [locate_data_file BUC60975.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_2 a_1
+set square 241843
+set 2dviewer 1
--- /dev/null
+puts "TODO ?OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
+
+puts "========================"
+puts " OCC600"
+puts "========================"
+## Result of BOPCOMMON operation is unclosed shape inspite of source solids are valid
+############################################################
+cpulimit 5000
+restore [locate_data_file OCC600_1.brep] a
+checkshape a
+restore [locate_data_file OCC600_2.brep] b
+checkshape b
+bop b a
+
+bopcommon result
+
+set square 41970.8
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========================"
+puts " OCC602 "
+puts "========================"
+puts ""
+###########################################
+## Exception during filet creation if it cross samedge of cylinder.
+###########################################
+
+restore [locate_data_file OCC602.brep] a
+checkshape a
+
+explode a e
+
+if [catch {blend result a 20 a_9 } catch_result] {
+ puts "Faulty OCC602: function BLEND works wrongly"
+} else {
+ puts "OCC602 OK: function BLEND works OK"
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC605"
+puts "========================"
+puts ""
+##############################
+## No any faces in result of pipe command.
+##############################
+
+restore [locate_data_file OCC605a.brep] w1
+checkshape w1
+restore [locate_data_file OCC605b.brep] w2
+checkshape w2
+
+if { [catch {pipe result w2 w1 } catch_result] } {
+ puts "Faulty OCC605: function PIPE works with exception."
+} else {
+ explode result f
+ set nom 0
+ set j 1
+ repeat 20 {
+ if { [regexp {FACE} [whatis result_$j]] != 1 } {
+ break
+ } else {
+ set nom [expr $nom + 1]
+ }
+ incr j
+ }
+ if { $nom == 0 } {
+ puts " Faulty OCC605: Result of PIPE operation is incorrect !!! "
+ } else {
+ puts "OCC605 OK : Result of PIPE operation is NOT empty shell!!! "
+ }
+}
+
+set square 20.6253
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6063"
+puts "============"
+puts ""
+######################################################
+# Exception is raised during command "sprops" in DRAW on attached shape.
+######################################################
+
+set BugNumber OCC6063
+cpulimit 2000
+
+restore [locate_data_file OCC6063-2.brep] result
+
+decho off
+set che_res [checkshape result]
+decho on
+if { [regexp {Faulty} $che_res] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for res"
+}
+
+set tol_square 1.e-6
+set square 2465.96
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6063"
+puts "============"
+puts ""
+######################################################
+# Exception is raised during command "sprops" in DRAW on attached shape.
+######################################################
+
+set BugNumber OCC6063
+
+restore [locate_data_file OCC6063.brep] result
+
+checkshape result
+
+set tol_square 1.e-6
+set square 413318
+set 3dviewer 1
+
+
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC606"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC606_2.brep] w2
+checkshape w2
+
+OCC606 result w2 -t
+
+set square 508.243
+set 3dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC606"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC606_10.brep] w10
+checkshape w10
+
+OCC606 result w10 -t
+
+set square 522.56
+set 3dviewer 0
--- /dev/null
+puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
+
+puts "========================"
+puts " OCC615"
+puts "========================"
+puts ""
+#############################
+## Wrong resultat of BLEND operation
+#############################
+
+restore [locate_data_file OCC615.brep] a
+checkshape a
+explode a e
+
+if [catch {blend result a 9 a_15 } catch_result] {
+ puts "Faulty OCC615: function BLEND works with exception"
+} else {
+ puts "OCC615 OK: function CHAMF works OK"
+}
+
+set square 197055.
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC616"
+puts "========================"
+puts ""
+########################################
+## Function MKOFFSET gives exception for attached face
+########################################
+
+restore [locate_data_file OCC616.brep] a
+checkshape a
+
+if { [catch {mkoffset result a 5 -2} catch_result] } {
+ puts "Faulty OCC616: function MKOFFSET works with exception"
+} else {
+ renamevar result_1 result
+ checkshape result
+ puts "OCC616 OK: function MKOFFSET works OK"
+}
+
+set length 1062.78
+set 2dviewer 0
--- /dev/null
+
+puts "======= OCC698 ======="
+######################################
+## Cut operation produces bad result on attached shapes
+######################################
+cpulimit 10000
+restore [locate_data_file OCC698_1.brep] b4
+checkshape b4
+restore [locate_data_file OCC698_2.brep] b5
+checkshape b5
+
+bcut result b5 b4
+
+set square 19048.2
+set 2dviewer 0
+
--- /dev/null
+set subgroup modalg
+
+set calcul "p"
+set type "i"
+
+proc OFFSETSHAPE {distance faces calcul type} {
+ uplevel #0 explode s f
+ uplevel #0 offsetparameter 1e-7 $calcul $type
+ uplevel #0 offsetload s $distance $faces
+ uplevel #0 offsetperform result
+}
+
+
+
+
+
+
+
+
+
--- /dev/null
+puts "============"
+puts "OCC13595"
+puts "============"
+puts ""
+######################################################
+# MakePipe raises exception
+######################################################
+
+set BugNumber OCC13595
+
+restore [locate_data_file bug13595_spine.brep] sp
+restore [locate_data_file bug13595_profile1.brep] p1
+restore [locate_data_file bug13595_profile2.brep] p2
+
+if [catch { pipe result sp p1 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+set square 80
+
+set nb_v_good 4
+set nb_e_good 6
+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 1
+set nb_shape_good 16
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC13595"
+puts "============"
+puts ""
+######################################################
+# MakePipe raises exception
+######################################################
+
+set BugNumber OCC13595
+
+restore [locate_data_file bug13595_spine.brep] sp
+restore [locate_data_file bug13595_profile2.brep] p2
+
+if [catch { pipe result sp p2 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+set square 407.922
+
+set nb_v_good 4
+set nb_e_good 6
+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 1
+set nb_shape_good 16
+
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC22383"
+puts "============"
+puts ""
+######################################################
+# Four and more points at least on curve
+######################################################
+
+set BugNumber OCC22383
+
+restore [locate_data_file bug21645_Scale1_so1_f3.brep] result
+
+vinit
+tclean result
+incmesh result 0.01
+vdisplay result
+vfit
+
+set good_trip 16
+
+isos result 0
+trinfo result
+puts ""
+set ll [triepoints result]
+set nbpoints [llength $ll]
+puts $nbpoints
+
+## number of discretization points (triepoints command) with fix
+## must be less than number on clear occ651
+
+set status 0
+if {$nbpoints < $good_trip} {
+ set status 1
+}
+
+
+if { $status != 0 } {
+ puts "$BugNumber: OK"
+} else {
+ puts "$BugNumber: Faulty"
+}
+
+set square 2.04205e-08
+set only_screen 1
+
--- /dev/null
+puts "============"
+puts "OCC22646"
+puts "============"
+puts ""
+######################################################
+# Error in algorithms BRepOffsetAPI_ThruSections and BRepOffsetAPI_MakePipeShell:
+# sections with degenerated edges are processed in
+######################################################
+
+set BugNumber OCC22646
+
+
+restore [locate_data_file bug22646_source.brep] s1
+restore [locate_data_file bug22646_scale_translate_xyz.brep] s2
+restore [locate_data_file bug22646_scale_translate_yz.brep] s3
+restore [locate_data_file bug22646_scale_translate_z.brep] s4
+
+vinit
+explode s1
+explode s2
+explode s3
+explode s4
+vfit
+
+donly s1_1 s2_1
+thrusections res2 0 0 s1_1 s2_1
+
+donly s1_1 s3_1
+thrusections res3 0 0 s1_1 s3_1
+
+donly s1_1 s4_1
+thrusections res4 0 0 s1_1 s4_1
+
+set only_screen 1
+
--- /dev/null
+pload QAcommands
+
+#INTERFACE XCAF
+puts "========================"
+puts "OCC363"
+puts "BUC60998"
+puts "========================"
+puts ""
+#######################################################
+## Incorrect work of persistence during reading and writing of degenerated edges.
+#######################################################
+
+######################################################################
+#set filedir $env(TmpDir)
+#puts $filedir
+#catch {exec rm $filedir/OCC363.dxc}
+pload XDE
+
+set T [OCC363 OCC363Doc [locate_data_file OCC363.dxc]]
+puts $T
+
--- /dev/null
+puts "============"
+puts "OCC5806"
+puts "============"
+puts ""
+######################################################
+# BRepOffsetAPI_MakeThickSolid fails to build a result
+######################################################
+
+set BugNumber OCC5806
+
+puts "demonstration of pipes and hollowing for GTISoft"
+puts ""
+puts "Scenario 3A: Hollowed general pipe - ThroughSection with following shell reconstruction"
+
+circle c 0 100 0 1 0 0 5
+mkedge ec c
+wire wc ec
+polyline pl 10 90 -10 10 90 10 10 110 10 10 110 -10 10 90 -10
+
+if { [catch { thrusections resthru 1 1 wc pl } catch_result] } {
+ puts "Faulty ${BugNumber} : thrusections is wrong"
+}
+
+# straighforward hollowing will fail due to problems in the algorithm
+explode resthru f
+
+if { [catch { offsetshape result resthru -0.5 resthru_6 resthru_7 } catch_result] } {
+ puts "Faulty ${BugNumber} : offsetshape is wrong"
+}
+
+if { [catch { set tolmaxres [tolmax result] } catch_result] } {
+ puts "Faulty ${BugNumber} : tolmax is wrong"
+}
+regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full maxtolerance
+if { [catch { expr $maxtolerance } catch_result] } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (1)."
+}
+if { $maxtolerance > 1. } {
+ puts "Faulty ${BugNumber} : maxtolerance is wrong (2)."
+}
+
+set square 1116.06
+
+set nb_v_good 10
+set nb_e_good 15
+set nb_w_good 7
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 41
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6181"
+puts "============"
+puts ""
+######################################################
+# Incorrect result of boolean cut
+######################################################
+
+set BugNumber OCC6181
+
+restore [locate_data_file OCC6181_A.brep] s1
+restore [locate_data_file OCC6181_B.brep] s2
+
+decho off
+set che_s1 [checkshape s1]
+set che_s2 [checkshape s2]
+decho on
+if { [regexp {Faulty} $che_s1] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for s1"
+}
+
+if { [regexp {Faulty} $che_s2] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for s2"
+}
+
+bcut result s1 s2
+
+set square 151691
+
+set nb_v_good 14
+set nb_e_good 21
+set nb_w_good 9
+set nb_f_good 9
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 56
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6182"
+puts "============"
+puts ""
+######################################################
+# Incorrect result of boolean cut
+######################################################
+
+set BugNumber OCC6182
+
+restore [locate_data_file OCC6182_A.brep] s1
+restore [locate_data_file OCC6182_B.brep] s2
+
+decho off
+set che_s1 [checkshape s1]
+set che_s2 [checkshape s2]
+decho on
+if { [regexp {Faulty} $che_s1] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for s1"
+}
+if { [regexp {Faulty} $che_s2] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for s2"
+}
+
+bcut result s1 s2
+
+set square 318709
+
+set nb_v_good 316
+set nb_e_good 502
+set nb_w_good 185
+set nb_f_good 181
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 1187
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_4"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "================"
+puts "OCC62"
+puts "BUC61001"
+puts "================"
+
+cpulimit 1400
+restore [locate_data_file OCC62.brep] sh
+
+explode sh
+checkshape sh
+
+bfuse res1 sh_1 sh_3
+checkshape res1
+
+bfuse res2 res1 sh_2
+checkshape res2
+
+bfuse res3 res2 sh_6
+checkshape res3
+
+bfuse res4 res3 sh_4
+checkshape res4
+
+bfuse res5 res4 sh_5
+checkshape res5
+
+renamevar res5 result
+
+set square 0
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts "OCC620"
+puts "========================"
+puts ""
+############################
+## No possibility to cut the shapes.
+############################
+
+restore [locate_data_file OCC620a.brep] a
+checkshape a
+restore [locate_data_file OCC620b.brep] b
+checkshape b
+
+bop a b
+
+if [catch { bopcut result } catch_result] {
+ puts "Faulty OCC620 : BOPCUT operation was made wrongly"
+} else {
+ puts "OCC620 OK: BOPCUT operation works OK"
+}
+
+set square 314742.
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts "OCC620"
+puts "========================"
+puts ""
+############################
+## No possibility to cut the shapes.
+############################
+
+restore [locate_data_file OCC620a.brep] a
+checkshape a
+restore [locate_data_file OCC620b.brep] b
+checkshape b
+
+bop a b
+
+if [catch { boptuc result } catch_result] {
+ puts "Faulty OCC620 : BOPTUC operation was made wrongly"
+} else {
+ puts "OCC620 OK: BOPTUC operation works OK"
+}
+
+set square 1.15562e+06
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts "OCC625"
+puts "========================"
+puts ""
+###############################################################################
+## Created filler looks strange (see attached picture) inspite of checkshapes told about correct source and result shapes.
+###############################################################################
+
+pload QAcommands
+
+restore [locate_data_file OCC625.brep] a
+checkshape a
+
+vinit
+tclean a
+explode a e
+
+blend res1 a 10 a_22 10 a_14
+blend result res1 10 a_17 10 a_4
+checkshape result
+
+vinit
+vdisplay result
+vfit
+vsetdispmode result 1
+
+set x_coord 116
+set y_coord 252
+
+checkcolor $x_coord $y_coord 0.82 0.58 0.09
+
+set square 19977
+set 3dviewer 1
\ No newline at end of file
--- /dev/null
+puts "TODO OCC111111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC111111 ALL: Error : The square of result shape is"
+pload QAcommands
+
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+restore [locate_data_file OCC6272_revolution.brep] a2
+
+OCC307 result a1 a2 0
+
+set square 0
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC111111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC111111 ALL: Error : The square of result shape is"
+
+pload QAcommands
+
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+restore [locate_data_file OCC6272_revolution.brep] a2
+
+OCC307 result a1 a2 1
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC111111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC111111 ALL: Error : The square of result shape is"
+
+pload QAcommands
+
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+explode a1
+OCC307 result a1_1 a1_2 0
+
+set square 0
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC111111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC111111 ALL: Error : The square of result shape is"
+
+pload QAcommands
+
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+explode a1
+OCC307 result a1_1 a1_2 1
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+explode a1
+
+bop a1_1 a1_2
+bopfuse result
+
+set square 6552.67
+
+# Analysis of "nbshapes res"
+set nb_v_good 116
+set nb_e_good 176
+set nb_w_good 72
+set nb_f_good 70
+set nb_sh_good 5
+set nb_sol_good 5
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 445
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+restore [locate_data_file OCC6272_revolution.brep] a2
+
+bop a1 a2
+bopfuse result
+
+# puts "See result in the viewer!!!"
+
+set square 8979.70
+
+# Analysis of "nbshapes res"
+set nb_v_good 60
+set nb_e_good 90
+set nb_w_good 42
+set nb_f_good 40
+set nb_sh_good 5
+set nb_sol_good 5
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 243
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_3 a1_5
+if { [catch { bopfuse result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set square 730.993
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_6 a1_4
+if { [catch { bopfuse result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set square 3387.54
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_5 a1_3
+if { [catch { bopfuse result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set square 730.993
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_5 a1_1
+if { [catch { bopfuse result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set square 2037.7
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_1 a1_5
+if { [catch { bopfuse result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set square 2037.7
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_1 a1_2
+if { [catch { bopfuse result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set square 2314.14
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_2 a1_1
+if { [catch { bopfuse result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set square 2314.14
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_2 a1_4
+if { [catch { bopfuse result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set square 922.7
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_4 a1_2
+if { [catch { bopfuse result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set square 922.7
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_4 a1_6
+if { [catch { bopfuse result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set square 3387.54
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_3 a1_5
+if { [catch { bopsection result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set length 36
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_6 a1_4
+if { [catch { bopsection result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set length 57.3941
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_5 a1_3
+if { [catch { bopsection result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set length 36
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_5 a1_1
+if { [catch { bopsection result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set length 32
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_1 a1_5
+if { [catch { bopsection result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set length 32
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_1 a1_2
+if { [catch { bopsection result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set length 32
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_2 a1_1
+if { [catch { bopsection result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set length 32
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_2 a1_4
+if { [catch { bopsection result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set length 32.1528
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_4 a1_2
+if { [catch { bopsection result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set length 32.1528
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6272"
+puts "============"
+puts ""
+######################################################
+# Incorrect results of gluing operation
+######################################################
+
+set BugNumber OCC6272
+
+restore [locate_data_file OCC6272_bridge2.brep] a1
+
+#
+# a1 is compound. It containes a_3, a_5, a_1, a_2, a_4, a_6 solids
+#
+
+explode a1 so
+
+bop a1_4 a1_6
+if { [catch { bopsection result } ] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set length 57.3941
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC6277"
+puts "============"
+puts ""
+######################################################
+# Cut operation does not produce any result
+######################################################
+
+set BugNumber OCC6277
+
+restore [locate_data_file OCC6277_A.brep] s1
+restore [locate_data_file OCC6277_B.brep] s2
+
+decho off
+set che_s1 [checkshape s1]
+set che_s2 [checkshape s2]
+decho on
+if { [regexp {Faulty} $che_s1] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for s1"
+}
+
+if { [regexp {Faulty} $che_s2] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for s2"
+}
+
+bcut result s1 s2
+
+set square 40084.9
+
+set nb_v_good 23
+set nb_e_good 34
+set nb_w_good 19
+set nb_f_good 14
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 93
+
+set 2dviewer 0
+
--- /dev/null
+#INTERFACE STEP
+puts "============"
+puts "OCC6289"
+puts "============"
+puts ""
+######################################################
+# Internal error (code 101) in Section computation
+######################################################
+
+catch { pload XDE }
+
+set BugNumber OCC6289
+
+if { [catch { stepread [locate_data_file OCC6289.stp] a * } catch_result] } {
+ puts "Faulty ${BugNumber} : here is reading problem"
+} else {
+ tpcompound comp
+
+ plane pl 0 0 28 0 0 1
+ mkface f pl
+
+ if { [catch { bsection result comp f } catch_result] } {
+ puts "Faulty ${BugNumber}"
+ }
+}
+
+set length 453.679
+set 3dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "================"
+puts "OCC629"
+puts "================"
+puts ""
+##########################################
+## Exception during attempt to create solid by command PIPE
+##########################################
+
+restore [locate_data_file OCC629a.brep] a
+checkshape a
+
+restore [locate_data_file OCC629b.brep] b
+checkshape b
+
+if [catch {pipe result a b } catch_result] {
+ puts "Faulty OCC629: function PIPE works wrongly"
+} else {
+ puts "OCC629 OK: function PIPE works properly"
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Error : Result shape is WRONG"
+
+puts "============"
+puts "OCC6334"
+puts "============"
+puts ""
+######################################################
+# Invalid result of MakeCylindricalHole when input solid is REVERSED
+######################################################
+
+set BugNumber OCC6334
+
+# 1. Make box
+box b 100 100 100
+
+subshape b f 1
+offsetshape t b 10 b_1
+
+decho off
+set che_t [checkshape t]
+decho on
+
+if {[regexp {Faulty} $che_t]} {
+ puts "Faulty ${BugNumber} : checkshape is wrong for t"
+}
+
+set bnd_t [bounding t]
+set ori [lindex [dtyp t] 2]
+puts "Orientation of thick solid is $ori"
+
+# 3. Make hole
+hole h t 110 50 50 1 0 0 10
+
+set che [checkshape h]
+if { [regexp {Faulty} $che] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for h"
+}
+
+set bnd_h [bounding h]
+
+renamevar h result
+
+set square 117509
+
+set nb_v_good 32
+set nb_e_good 53
+set nb_w_good 27
+set nb_f_good 24
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 139
+
+
+# 4. Check thickness of box and hole
+set dx_t [expr [lindex $bnd_t 3] - [lindex $bnd_t 0]]
+set dx_h [expr [lindex $bnd_h 3] - [lindex $bnd_h 0]]
+
+if { [expr abs($dx_h - $dx_t)] > 1e-5 } {
+ puts "Thickness of solid = $dx_t"
+ puts "Thickness of solid with hole = $dx_h"
+ puts "Invalid result of making a hole"
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC636"
+puts "================"
+puts ""
+#####################################
+## BRepOffsetAPI_MakePipeShell builds twisted pipe
+#####################################
+
+restore [locate_data_file OCC636a.brep] s
+checkshape s
+
+restore [locate_data_file OCC636b.brep] s1
+checkshape s1
+
+restore [locate_data_file OCC636c.brep] s2
+checkshape s2
+
+mksweep s
+addsweep s1
+addsweep s2
+
+if [catch { buildsweep result } catch_result] {
+ puts "Faulty OCC636: function buildsweep works wrongly"
+} else {
+ puts "OCC636 OK: function buildsweep works properly"
+}
+
+set square 3836.92
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC637"
+puts "(case 1)"
+puts "================"
+puts ""
+##########################################
+## BRepOffsetAPI_MakePipeShell crashes with fatal exception
+##########################################
+
+restore [locate_data_file OCC637a.brep] s
+checkshape s
+
+restore [locate_data_file OCC636c.brep] s1
+checkshape s1
+
+restore [locate_data_file OCC637c.brep] s2
+checkshape s2
+
+mksweep s
+addsweep s1
+addsweep s2
+
+if [catch { buildsweep result } catch_result] {
+ puts "Faulty OCC637 (case 1): function buildsweep works wrongly"
+}
+
+set square 1675.58
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC637"
+puts "(case 2)"
+puts "================"
+puts ""
+##########################################
+## BRepOffsetAPI_MakePipeShell crashes with fatal exception
+##########################################
+
+restore [locate_data_file OCC637d.brep] s
+checkshape s
+
+restore [locate_data_file OCC637c.brep] s1
+checkshape s1
+
+restore [locate_data_file OCC637f.brep] s2
+checkshape s2
+
+mksweep s
+addsweep s1
+addsweep s2
+
+if [catch {buildsweep result } catch_result] {
+ puts "Faulty OCC637 (case 2): function buildsweep works wrongly"
+}
+
+set square 1090.91
+set 2dviewer 0
+
--- /dev/null
+puts "================"
+puts "OCC6502"
+puts "================"
+puts ""
+#######################################################################################
+# Failure calculation of ShrunkRange resulting to failure of boolean operation
+#######################################################################################
+
+set BugNumber OCC6502
+
+
+restore [locate_data_file OCC6502.brep] a
+plane pl 100 0 0 1 0 0
+mkface f pl
+
+if { [catch { bsection result a f -a } catch_result] } {
+ puts "Faulty ${BugNumber}"
+}
+
+set length 37.7831
+set 3dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6538"
+puts "============"
+puts ""
+######################################################
+# Empty result obtained by operation "common" for couple of faces
+######################################################
+
+set BugNumber OCC6538
+
+restore [locate_data_file OCC6538-f1.brep] s1
+restore [locate_data_file OCC6538-f2.brep] s2
+
+decho off
+set che_s1 [checkshape s1]
+set che_s2 [checkshape s2]
+decho on
+if { [regexp {Faulty} $che_s1] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for s1"
+}
+
+if { [regexp {Faulty} $che_s2] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for s2"
+}
+
+
+bop s1 s2
+bopcommon result
+
+set square 18.695
+
+set nb_v_good 16
+set nb_e_good 16
+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 1
+set nb_shape_good 36
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6554"
+puts "============"
+puts ""
+######################################################
+# Intersection shell-plane gives a disconnected set of edges
+######################################################
+
+set BugNumber OCC6554
+
+restore [locate_data_file OCC6554-shell.brep] sh
+restore [locate_data_file OCC6554-face.brep] f
+
+decho off
+set che_sh [checkshape sh]
+set che_f [checkshape f]
+decho on
+if { [regexp {Faulty} $che_sh] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for sh"
+}
+
+if { [regexp {Faulty} $che_f] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for f"
+}
+
+bsection result sh f -a
+
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full Vertices
+
+set good_Vertices 2
+
+if { ${Vertices} != ${good_Vertices} } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set length 110.045
+set 2dviewer 2
--- /dev/null
+
+puts "================"
+puts "BUC61052"
+puts "OCC67"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC67.brep] sh
+checkshape sh
+
+explode sh e
+
+fillet result sh 5 sh_18
+
+set square 64281.8
+set 2dviewer 0
--- /dev/null
+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
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC673: function SPLITSHAPE works wrongly"
+
+puts "================"
+puts "OCC673"
+puts "================"
+puts ""
+#######################################################
+## Exception is raised during splitting face by a wire laying on the face boundary.
+#######################################################
+
+restore [locate_data_file OCC673a.brep] a
+checkshape a
+
+restore [locate_data_file OCC673b.brep] b
+checkshape b
+
+if [catch {spliteshape result a a b} catch_result] {
+ puts "Faulty OCC673: function SPLITSHAPE works wrongly"
+} else {
+ puts "OCC673 OK : function SPLITSHAPE works OK"
+ set square 0
+ set 2dviewer 0
+}
+
+
+
--- /dev/null
+puts "================"
+puts "OCC6766"
+puts "================"
+puts ""
+#######################################################################################
+# Invalid result of intersection of a bspline face with a plane
+#######################################################################################
+
+set BugNumber OCC6766
+
+restore [locate_data_file OCC6766.brep] a
+
+decho off
+set che_a [checkshape a]
+decho on
+if { [regexp {Faulty} $che_a] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for s1"
+}
+
+set Y 4
+plane pl 0 ${Y} 0 0 1 0
+mkface f pl
+bsection result a f -2d -a
+
+
+
+set nb_v_good 4
+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 8
+
+set length 138.474
+set 2dviewer 0
--- /dev/null
+puts "================"
+puts "OCC6766"
+puts "================"
+puts ""
+#######################################################################################
+# Invalid result of intersection of a bspline face with a plane
+#######################################################################################
+
+set BugNumber OCC6766
+
+restore [locate_data_file OCC6766.brep] a
+
+decho off
+set che_a [checkshape a]
+decho on
+if { [regexp {Faulty} $che_a] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for a"
+}
+
+set Y 4
+plane pl 0 ${Y} 0 0 1 0
+mkface f pl
+bop a f
+bopsection result
+
+
+set nb_v_good 4
+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 8
+
+set length 138.474
+set 2dviewer 0
--- /dev/null
+puts "================"
+puts "OCC6766"
+puts "================"
+puts ""
+#######################################################################################
+# Invalid result of intersection of a bspline face with a plane
+#######################################################################################
+
+set BugNumber OCC6766
+
+restore [locate_data_file OCC6766.brep] a
+
+decho off
+set che_a [checkshape a]
+decho on
+if { [regexp {Faulty} $che_a] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for a"
+}
+
+set Y 6
+plane pl 0 ${Y} 0 0 1 0
+mkface f pl
+bsection result a f -2d -a
+
+
+set nb_v_good 4
+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 8
+
+set length 126.138
+set 2dviewer 0
--- /dev/null
+puts "================"
+puts "OCC6766"
+puts "================"
+puts ""
+#######################################################################################
+# Invalid result of intersection of a bspline face with a plane
+#######################################################################################
+
+set BugNumber OCC6766
+
+restore [locate_data_file OCC6766.brep] a
+decho off
+set che_a [checkshape a]
+decho on
+if { [regexp {Faulty} $che_a] } {
+ puts "Faulty ${BugNumber} : checkshape is wrong for a"
+}
+
+set Y 6
+plane pl 0 ${Y} 0 0 1 0
+mkface f pl
+bop a f
+bopsection result
+
+
+set nb_v_good 4
+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 8
+
+set length 126.138
+set 2dviewer 0
--- /dev/null
+#INTERFACE STEP
+puts "================"
+puts "OCC6811"
+puts "================"
+puts ""
+#######################################################################################
+# Unstable work of the checkshape on the attached file.
+#######################################################################################
+
+catch { pload XDE }
+
+set BugNumber OCC6811
+
+if { [catch { stepread [locate_data_file trj12_b3-tu-203.stp] a * } catch_result] } {
+ puts "Faulty ${BugNumber} : here is reading problem"
+} else {
+ decho off
+ set che_a_1 [checkshape a_1 f]
+ set che_a_2 [checkshape a_1 f]
+ decho on
+ if { [regexp {Faulty} $che_a_1] } {
+ puts "Faulty ${BugNumber} : checkshape 1 is wrong for a"
+ }
+ if { [regexp {Faulty} $che_a_2] } {
+ puts "Faulty ${BugNumber} : checkshape 2 is wrong for a"
+ }
+
+ renamevar a_1 result
+}
+
+set square 1.48021e+06
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "BUC61053"
+puts "OCC68"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC68.brep] sh
+checkshape sh
+
+explode sh
+
+bfuse result sh_1 sh_2
+
+set square 3675.77
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "BUC61053"
+puts "OCC68"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC68.brep] sh
+checkshape sh
+
+explode sh
+
+bfuse result sh_2 sh_1
+set square 3675.77
+set 2dviewer 0
+
+
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : The square of result shape is "
+
+puts "================"
+puts "OCC693"
+puts "================"
+puts ""
+###################################################
+## The boolean operations give incorrect result if one of shapes is compound
+## consisting of several adjoint solids
+####################################################
+
+box h1 234 52 0 41 98 40
+box v1 241 136 20 31 31 15
+box h3 215 120 20 78 15 15
+
+#mu4
+#fit
+
+compound h1 c1
+compound v1 c2
+
+tcopy c1 cc1
+tcopy c2 cc2
+bcommon int1 cc1 cc2
+##########checkshape -top int1
+checkshape -top int1
+
+tcopy c1 cc1
+tcopy c2 cc2
+bcut cut1 cc1 cc2
+checkshape -top cut1
+
+tcopy c1 cc1
+tcopy c2 cc2
+bcut cut2 cc2 cc1
+##########checkshape -top cut2
+checkshape -top cut2
+
+compound int1 cut1 cut2 comp3
+##########checkshape -top comp3
+checkshape -top comp3
+#donly comp3
+
+tcopy comp3 ccomp3
+tcopy h3 ch3
+bcommon int2 ccomp3 ch3
+##########checkshape -top int2
+checkshape -top int2
+#donly int2
+
+tcopy comp3 ccomp3
+tcopy h3 ch3
+bcut cut3 ccomp3 ch3
+##########checkshape -top cut3
+checkshape -top cut3
+#donly cut3
+
+tcopy comp3 ccomp3
+tcopy h3 ch3
+bcut cut4 ch3 ccomp3
+##########checkshape -top cut4
+checkshape -top cut4
+
+compound int2 cut3 cut4 result
+##########checkshape -top res
+checkshape -top result
+
+##########set che [checkshape -top res]
+##########
+##########set err [lindex $che [expr [llength $che] - 7]]
+##########if { $err == "Faulty"} {
+########## puts "Faulty OCC693"
+##########} else {
+########## puts "OCC693 OK "
+##########}
+
+set square 33196
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "================"
+puts "OCC693"
+puts "================"
+puts ""
+###################################################
+## The boolean operations give incorrect result if one of shapes is compound
+## consisting of several adjoint solids
+####################################################
+
+box h1 234 52 0 41 98 40
+box v1 241 136 20 31 31 15
+box h3 215 120 20 78 15 15
+
+compound h1 c1
+compound v1 c2
+
+tcopy c1 cc1
+tcopy c2 cc2
+
+bop cc1 cc2
+bopcommon int1
+
+checkshape -top int1
+
+tcopy c1 cc1
+tcopy c2 cc2
+
+bop cc1 cc2
+bopcut cut1
+
+checkshape -top cut1
+
+tcopy c1 cc1
+tcopy c2 cc2
+
+bop cc2 cc1
+bopcut cut2
+
+checkshape -top cut2
+
+compound int1 cut1 cut2 comp3
+
+checkshape -top comp3
+
+tcopy comp3 ccomp3
+tcopy h3 ch3
+
+bop ccomp3 ch3
+bopcommon int2
+
+checkshape -top int2
+
+tcopy comp3 ccomp3
+tcopy h3 ch3
+
+bop ccomp3 ch3
+bopcut cut3
+
+checkshape -top cut3
+
+tcopy comp3 ccomp3
+tcopy h3 ch3
+
+bop ch3 ccomp3
+bopcut cut4
+
+checkshape -top cut4
+
+compound int2 cut3 cut4 result
+
+checkshape -top result
+
+set square 33196
+set 3dviewer 1
+
--- /dev/null
+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 b1 b2} catch_result] } {
+##############################################
+ puts "Faulty : an exception was caught"
+}
+
+set square 8879.41
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC697"
+puts "============"
+puts ""
+######################################################
+# Fuse operation does not work
+######################################################
+## (old topology)
+## (fuse)
+######################################################
+
+puts "#"
+puts "Non stable test case on Linux. MKV. 28.04.2010"
+puts "#"
+
+restore [locate_data_file OCC697_2.brep] b2
+restore [locate_data_file OCC697_3.brep] b3
+
+checkshape b2
+checkshape b3
+##############################################
+if { [catch {bfuse result b2 b3} catch_result] } {
+##############################################
+ puts "Faulty : an exception was caught"
+}
+
+set square 25357.5
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC697"
+puts "============"
+puts ""
+######################################################
+# Fuse operation does not work
+######################################################
+## (new topology)
+## (bfuse)
+######################################################
+
+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
--- /dev/null
+puts "============"
+puts "OCC697"
+puts "============"
+puts ""
+######################################################
+# Fuse operation does not work
+######################################################
+## (new topology)
+## (bfuse)
+######################################################
+
+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
+
--- /dev/null
+puts "============"
+puts "OCC697"
+puts "============"
+puts ""
+######################################################
+# Fuse operation does not work
+######################################################
+## (new topology)
+## (bopfuse)
+######################################################
+
+restore [locate_data_file OCC697_1.brep] b1
+restore [locate_data_file OCC697_2.brep] b2
+
+checkshape b1
+checkshape b2
+
+bop b1 b2
+if { [catch {bopfuse result} catch_result] } {
+ puts "Faulty OCC697"
+}
+set square 8879.41
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC697"
+puts "============"
+puts ""
+######################################################
+# Fuse operation does not work
+######################################################
+## (new topology)
+## (bopfuse)
+######################################################
+
+restore [locate_data_file OCC697_1.brep] b1
+restore [locate_data_file OCC697_2.brep] b2
+
+checkshape b1
+checkshape b2
+
+bop b2 b1
+if { [catch {bopfuse result} catch_result] } {
+ puts "Faulty OCC697"
+}
+set square 8879.41
+set 3dviewer 1
+
--- /dev/null
+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
+
--- /dev/null
+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
+
--- /dev/null
+
+puts "======="
+puts "OCC702"
+puts "SAM1541"
+puts "======="
+puts ""
+########################
+## No possibility to make a prism.
+########################
+
+restore [locate_data_file OCC702.brep] a
+
+if [ catch { prism result a 100 100 100 } catch_result ] {
+ puts "Faulty OCC702 (case 1)"
+} else {
+ regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full sq
+ if { $sq <= 0. } {
+ puts "Faulty OCC702 (case 2)"
+ } else {
+ puts "OCC702 OK"
+ }
+}
+
+set square 308957.
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC712"
+puts "========"
+puts ""
+#########################################################
+## Exeption is raised in DRAW during building draft with help command "depouille"
+## on face in the attached shape.
+#########################################################
+
+restore [locate_data_file OCC712.brep] a
+checkshape a
+
+explode a f
+
+if [catch {depouille result a 0 0 1 a_2 10 0 39.6875 0 0. 0. -1 } catch_result] {
+ puts "Faulty OCC712"
+} else {
+ puts "OCC712 OK"
+}
+
+set square 41956.4
+set 2dviewer 0
--- /dev/null
+#INTERFACE IGES
+puts "========"
+puts "OCC714"
+puts "========"
+puts ""
+####################################################
+## After command sew in DRAW on attached shape free wires are disappeared.
+####################################################
+
+restore [locate_data_file OCC714.brep] a
+checkshape a
+
+set nb_info1 [nbshapes a]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info1 full ve1
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info1 full ed1
+regexp {WIRE +: +([-0-9.+eE]+)} $nb_info1 full we1
+
+sewing result 0.1 a
+
+set nb_info2 [nbshapes a]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info2 full ve2
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info2 full ed2
+regexp {WIRE +: +([-0-9.+eE]+)} $nb_info2 full we2
+
+if { $ve1 != $ve2 || $ed1 != $ed2 || $we1 != $we2} {
+ puts [format "Faulty OCC714 : SEWING operation was made WRONGLY: vertexes before %s, edges before %s, wires before %s" $ve1 $ed1 $we1]
+ puts [format " vertexes after %s, edges after %s, wires after %s" $ve1 $ed1 $we1]
+} else {
+ puts "OK OCC714: SEWING operation was made PROPERLY"
+}
+
+set square 12917.1
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC715"
+puts "SAM1582"
+puts "========"
+puts ""
+##########################################
+## section of two faces produces wrong number of section edges
+##########################################
+
+restore [locate_data_file OCC715_2.brep] f2
+restore [locate_data_file OCC715_3.brep] f3
+
+bsection result f2 f3
+
+set expl [explode result]
+
+set length [llength $expl]
+puts "Result is $length section edge"
+
+if {$length != 3} {
+ puts "Faulty OCC715"
+} else {
+ puts "OCC715 OK"
+}
+
+set length 100.
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC726"
+puts "SAM1594"
+puts "========"
+puts ""
+######################################
+## Boolean operations are impossible on the attachment.
+######################################
+
+restore [locate_data_file OCC726.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bcommon result a_1 a_2
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC726"
+puts "SAM1594"
+puts "========"
+puts ""
+######################################
+## Boolean operations are impossible on the attachment.
+######################################
+
+restore [locate_data_file OCC726.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bcut result a_1 a_2
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
+puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+
+puts "========"
+puts "OCC726"
+puts "SAM1594"
+puts "========"
+puts ""
+######################################
+## Boolean operations are impossible on the attachment.
+######################################
+
+restore [locate_data_file OCC726.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bcut result a_2 a_1
+
+set square 10
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC743"
+puts "========"
+puts ""
+#######################################
+## The result of offset operation on a planar wire is wrong
+#######################################
+
+restore [locate_data_file OCC743_corr2.brep] a
+checkshape a
+
+if { [catch { mkoffset result a 1 -15 } status] } {
+ puts "Faulty OCC743"
+} else {
+ renamevar result_1 result
+ set nb_info [nbshapes result]
+ regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+ puts [format "Result shape result contains %s vertexes" $ve]
+ if { $ve == 0 } {
+ puts [format "Faulty : Result shape is NULL shape"]
+ } else {
+ regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+ if {$wi > 1 } {
+ set ll [explode result w]
+ set num [llength $ll]
+ puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
+ foreach {k} $ll {
+ checkshape $k
+ regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
+ if { $cs != 0 } {
+ puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
+ } else {
+ puts [format "OK: Result shape is CLOSED wire !!! "]
+ }
+ }
+ }
+ }
+}
+
+set length 3533.52
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC745"
+puts "========"
+puts ""
+#######################################################
+## There are several cases where the offset algo works wrong for various reasons
+## for wires containing only linear segments and arcs of circle.
+#######################################################
+
+restore [locate_data_file OCC745_1.brep] a
+checkshape a
+
+if { [catch { mkoffset result a 1 -10 } status] } {
+ puts "Faulty : an exception was caught"
+} else {
+ renamevar result_1 result
+ set nb_info [nbshapes result]
+ regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+ puts [format "Result shape result contains %s vertexes" $ve]
+ if { $ve == 0 } {
+ puts [format "Faulty : Result shape is NULL shape"]
+ } else {
+ regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+ if {$wi > 1 } {
+ set ll [explode result w]
+ set num [llength $ll]
+ puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
+ foreach {k} $ll {
+ checkshape $k
+ regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
+ if { $cs != 0 } {
+ puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
+ } else {
+ puts [format "OK: Result shape is CLOSED wire !!! "]
+ }
+ }
+ }
+ }
+}
+
+set length 932.825
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC745"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+
+puts "========"
+puts "OCC745"
+puts "========"
+puts ""
+#############################################
+# Negative offset parameter leads to positive offset and vise
+# versa. Result of the offset represent an edge instead of wire.
+#############################################
+
+restore [locate_data_file OCC745_nb1.brep] w
+mkoffset result w 1 -1
+
+set list [whatis result_1]
+
+if { [regexp {WIRE} $list] == 0 } {
+ puts "Faulty OCC745"
+} else {
+ puts "OCC745 OK"
+}
+
+renamevar result_1 result
+
+set length 0
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC745"
+puts "========"
+puts ""
+#########################
+# Not correct creation of bisector loci.
+#########################
+
+restore [locate_data_file OCC745_nb2.brep] w
+mkplane f w
+topoload f
+drawcont
+
+mat
+result
+
+##################################################
+#Exception thrown: Standard_ConstructionError: Offset wire is not closed.
+##################################################
+
+if { [catch { mkoffset result w 10 -7 } status] } {
+ puts "Faulty OCC745"
+} else {
+ renamevar result_1 result
+ set nb_info [nbshapes result]
+ regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+ puts [format "Result shape result contains %s vertexes" $ve]
+ if { $ve == 0 } {
+ puts [format "Faulty : Result shape is NULL shape"]
+ } else {
+ regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+ if {$wi > 1 } {
+ set ll [explode result w]
+ set num [llength $ll]
+ puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
+ foreach {k} $ll {
+ checkshape $k
+ regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
+ if { $cs != 0 } {
+ puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
+ } else {
+ puts [format "OK: Result shape is CLOSED wire !!! "]
+ }
+ }
+ }
+ }
+}
+
+set length 1930.99
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: An exception was caught"
+puts "TODO OCC12345 ALL: Exception "
+puts "TODO OCC12345 ALL: Faulty OCC745"
+
+puts "========"
+puts "OCC745"
+puts "========"
+puts ""
+##################################################
+# Exception thrown: Standard_ConstructionError: Offset wire is not closed.
+##################################################
+
+restore [locate_data_file OCC745_nb3.brep] w
+checkshape w
+
+if { [catch { mkoffset result w 1 10 } status] } {
+ puts "Faulty OCC745"
+} else {
+ renamevar result_1 result
+ set nb_info [nbshapes result]
+ regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+ puts [format "Result shape result contains %s vertexes" $ve]
+ if { $ve == 0 } {
+ puts [format "Faulty : Result shape is NULL shape"]
+ } else {
+ regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+ if {$wi > 1 } {
+ set ll [explode result w]
+ set num [llength $ll]
+ puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
+ foreach {k} $ll {
+ checkshape $k
+ regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
+ if { $cs != 0 } {
+ puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
+ } else {
+ puts [format "OK: Result shape is CLOSED wire !!! "]
+ }
+ }
+ }
+ }
+ set length 0
+ set 2dviewer 0
+}
--- /dev/null
+
+puts "========"
+puts "OCC745"
+puts "========"
+puts ""
+#################################
+# Infinite loop during bisector loci calculation.
+#################################
+
+restore [locate_data_file OCC745_nb5.brep] w
+checkshape w
+mkplane result w
+topoload result
+drawcont
+
+cpulimit 600
+
+mat
+
+result
+
+puts "OCC745 OK"
+
+set square 5844.54
+set 2dviewer 1
--- /dev/null
+
+puts "========"
+puts "OCC745"
+puts "========"
+puts ""
+##################################################
+## This test does not terminate due to infinite loop in bissector calculation
+##################################################
+
+restore [locate_data_file OCC745_2.brep] a
+checkshape a
+mkplane pl a
+topoload pl
+drawcont
+smallview -2D-
+2dfit
+
+set min 30
+cpulimit [expr 60 * $min]
+
+mat
+puts "OCC745 OK"
+
+renamevar pl result
+set square 5844.55
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC745"
+puts "========"
+puts ""
+###########################
+## Incorrect MAT (map of bissectors)
+###########################
+
+puts "#"
+puts "Non stable test case on Linux. MKV. 04.02.2011"
+puts " ( Gif )"
+puts "#"
+
+restore [locate_data_file OCC745_ellipse.brep] w
+checkshape w
+mkplane result w
+topoload result
+drawcont
+
+smallview -2D-
+2dfit
+
+mat
+#result
+
+set square 8357.41
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : Result shape is NULL shape"
+puts "TODO OCC12345 ALL: Exception: result is not a topological shape!!!"
+puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+
+pload QAcommands
+
+puts "========"
+puts "OCC745"
+puts "========"
+puts ""
+###########################################
+# Exception Standard_NullValue while performing the offset:
+###########################################
+
+restore [locate_data_file OCC745_pocket1.brep] a
+checkshape a
+
+if { [catch { mkoffset result a 1 -10 } status] } {
+ puts "Faulty OCC745"
+} else {
+ renamevar result_1 result
+ set nb_info [nbshapes result]
+ set ve 0
+ regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+ puts [format "Result shape result contains %s vertexes" $ve]
+ if { $ve == 0 } {
+ puts [format "Faulty : Result shape is NULL shape"]
+ } else {
+ regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+ if {$wi > 1 } {
+ set ll [explode result w]
+ set num [llength $ll]
+ puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
+ foreach {k} $ll {
+ checkshape $k
+ regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
+ if { $cs != 0 } {
+ puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
+ } else {
+ puts [format "OK: Result shape is CLOSED wire !!! "]
+ }
+ }
+ }
+ }
+}
+
+set length 0
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC745"
+puts "========"
+puts ""
+############################
+# Not correct creation of bisector loci:
+############################
+
+restore [locate_data_file OCC745_pocket4.brep] w
+checkshape w
+plane p
+mkface result p w
+topoload result
+drawcont
+
+smallview -2D-
+2dfit
+
+mat
+result
+
+set square 5844.21
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : Result shape is NULL shape"
+puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
+
+puts "========"
+puts "OCC745"
+puts "BUC60878"
+puts "========"
+puts ""
+################################
+# There are discontinuities in offset contours:
+################################
+
+restore [locate_data_file BUC60878-wire3.brep] a
+checkshape a
+
+if { [catch { mkoffset result a 1 -10 } status] } {
+ puts "Faulty OCC745"
+} else {
+ renamevar result_1 result
+ set nb_info [nbshapes result]
+ regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+ puts [format "Result shape result contains %s vertexes" $ve]
+ if { $ve == 0 } {
+ puts [format "Faulty : Result shape is NULL shape"]
+ } else {
+ regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+ if {$wi > 1 } {
+ set ll [explode result w]
+ set num [llength $ll]
+ puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
+ foreach {k} $ll {
+ checkshape $k
+ regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
+ if { $cs != 0 } {
+ puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
+ } else {
+ puts [format "OK: Result shape is CLOSED wire !!! "]
+ }
+ }
+ }
+ }
+}
+
+set length 0
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : Result shape is NULL shape"
+puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
+
+puts "========"
+puts "OCC745"
+puts "========"
+puts ""
+######################################################
+## Exception thrown: Standard_ConstructionError: Offset wire is not closed:
+######################################################
+
+source [locate_data_file OCC745_cont1.dat]
+checkshape pp
+
+if { [catch { mkoffset result pp 1 -10 } status] } {
+ puts "Faulty OCC745"
+} else {
+ renamevar result_1 result
+ set nb_info [nbshapes result]
+ regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+ puts [format "Result shape result contains %s vertexes" $ve]
+ if { $ve == 0 } {
+ puts [format "Faulty : Result shape is NULL shape"]
+ } else {
+ regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+ if {$wi > 1 } {
+ set ll [explode result w]
+ set num [llength $ll]
+ puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
+ foreach {k} $ll {
+ checkshape $k
+ regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
+ if { $cs != 0 } {
+ puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
+ } else {
+ puts [format "OK: Result shape is CLOSED wire !!! "]
+ }
+ }
+ }
+ }
+}
+
+set length 0
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC745"
+puts "========"
+puts ""
+###################################################
+## Exception thrown: Standard_ConstructionError: Offset wire is not closed:
+###################################################
+
+restore [locate_data_file BUC60830-face2.brep] f
+checkshape f
+
+if { [catch { mkoffset result f 45 -0.042225 } status] } {
+ puts "Faulty OCC745"
+} else {
+ renamevar result_1 result
+ set nb_info [nbshapes result]
+ regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+ puts [format "Result shape result contains %s vertexes" $ve]
+ if { $ve == 0 } {
+ puts [format "Faulty : Result shape is NULL shape"]
+ } else {
+ regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+ if {$wi > 1 } {
+ set ll [explode result w]
+ set num [llength $ll]
+ puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
+ foreach {k} $ll {
+ checkshape $k
+ regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
+ if { $cs != 0 } {
+ puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
+ } else {
+ puts [format "OK: Result shape is CLOSED wire !!! "]
+ }
+ }
+ }
+ }
+}
+
+set length 72.1851
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
+puts "TODO OCC12345 ALL: Faulty : Result shape is NULL shape"
+
+puts "========"
+puts "OCC745"
+puts "========"
+puts ""
+#####################################################
+# The latter command enters an endless loop: it was not completed in 30 min:
+#####################################################
+
+source [locate_data_file OCC745_cont2.dat]
+checkshape pq
+
+if { [catch { mkoffset result pq 1 -10 } status] } {
+ puts "Faulty OCC745"
+} else {
+ renamevar result_1 result
+ set nb_info [nbshapes result]
+ regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+ puts [format "Result shape result contains %s vertexes" $ve]
+ if { $ve == 0 } {
+ puts [format "Faulty : Result shape is NULL shape"]
+ } else {
+ regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+ if {$wi > 1 } {
+ set ll [explode result w]
+ set num [llength $ll]
+ puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
+ foreach {k} $ll {
+ checkshape $k
+ regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
+ if { $cs != 0 } {
+ puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
+ } else {
+ puts [format "OK: Result shape is CLOSED wire !!! "]
+ }
+ }
+ }
+ }
+}
+
+set length 0
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC748"
+puts "========"
+puts ""
+##################################
+## Incorrect work of DRAW-command "common"
+##################################
+
+restore [locate_data_file OCC748_1.brep] s1
+checkshape s1
+restore [locate_data_file OCC748_2.brep] s2
+checkshape s2
+
+bcommon result s1 s2
+
+set square 628.319
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC755"
+puts "SAM1607"
+puts "(case 1)"
+puts "========"
+puts ""
+####################################################################
+##Result of cut of capteur2 from capteur1 is a solid. It must be a compound, as it consists of 2 bodies.
+####################################################################
+
+restore [locate_data_file OCC755_1.brep] a1
+checkshape a1
+restore [locate_data_file OCC755_2.brep] a2
+checkshape a2
+
+bcut result a1 a2
+
+set wt_is [whatis result]
+
+set lth [llength $wt_is]
+
+if {$lth < 5} {
+ puts "Faulty OCC755 (case 1)"
+} else {
+ if {[regexp {COMPOUND} $wt_is] == 1} {
+ puts "OCC755 OK (case 2)"
+ } else {
+ puts "Faulty OCC755 (case 2)"
+ }
+}
+
+set square 1.57358e+06
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC758"
+puts "SAM1613"
+puts "========"
+puts ""
+###################################################
+##It's impossible to cut two little shapes from the big one in the attached file.
+###################################################
+
+restore [locate_data_file OCC758.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+checkshape a_3
+
+bcut res1 a_1 a_2
+
+checkshape res1
+
+bcut result res1 a_3
+
+set square 49473.6
+set 2dviewer 0
+
+
--- /dev/null
+puts "============"
+puts "OCC7626"
+puts "============"
+puts ""
+######################################################
+# Bad result of bcut operation
+######################################################
+
+set BugNumber OCC7626
+
+psphere s 10
+box b 10 0 0 20 20 20
+trotate b 10 0 0 0 0 1 45
+
+bcut result s b
+
+set square 1271.7
+
+set nb_v_good 4
+set nb_e_good 7
+set nb_w_good 4
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 21
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC7626"
+puts "============"
+puts ""
+######################################################
+# Bad result of bcut operation
+######################################################
+
+set BugNumber OCC7626
+
+psphere s 10
+box b 10 0 0 20 20 20
+trotate b 10 0 0 0 0 1 45
+
+bcommon result s b
+
+set square 199.095
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 3
+set nb_f_good 3
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 14
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC763"
+puts "========"
+puts ""
+####################################
+## Bad result of fuse operation between two cylinders
+####################################
+
+restore [locate_data_file OCC763_c1.brep] c1
+checkshape c1
+restore [locate_data_file OCC763_c2.brep] c2
+checkshape c2
+
+bop c1 c2
+bopfuse result
+
+set square 23189.4
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC7668"
+puts "============"
+puts ""
+#######################################################################
+# BRepOffsetAPI_MakeOffset wrong generated list
+#######################################################################
+
+puts "#"
+puts "Non stable test case on Linux. MKV. 29.12.2010"
+puts " ( VERTEX : 136 or VERTEX : 134 )"
+puts "#"
+
+set BugNumber OCC7668
+
+restore [locate_data_file OCC7668.brep] a1
+
+wire w1 a1
+
+mkoffset result w1 1 2
+
+renamevar result_1 result
+
+# Analysis of "nbshapes res"
+set nb_v_good 134
+set nb_e_good 134
+set nb_w_good 1
+set nb_f_good 0
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 269
+
+set length 136.008
+set 2dviewer 0
--- /dev/null
+
+puts "======="
+puts "OCC767"
+puts "======="
+puts ""
+############################################
+## Command sameparametr in DRAW hangs on attached edge.
+############################################
+
+restore [locate_data_file OCC767.brep] result
+
+sameparameter result
+
+set length 7.6901
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " BUC60866 "
+puts " OCC77 "
+puts "========================"
+puts ""
+######################################################
+# The BRepFill_Pipe fails
+######################################################
+
+restore [locate_data_file buc60866a.rle] f
+checkshape f
+
+restore [locate_data_file buc60866b.rle] w
+checkshape w
+
+pipe result w f
+
+set square 1.12048e+07
+set 2dviewer 0
+
+
--- /dev/null
+puts "TODO ?OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
+puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
+
+puts "========"
+puts "OCC770"
+puts "SAM1636"
+puts "========"
+puts ""
+############################
+## Impossible fusing 3 attached shapes
+############################
+
+restore [locate_data_file OCC770.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+checkshape a_3
+
+bfuse res1 a_1 a_2
+
+checkshape res1
+
+bfuse result res1 a_3
+
+set square 962546.
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC771"
+puts "SAM1639"
+puts "========"
+puts ""
+###########################
+## Impossible fusung 3 shapes attached
+###########################
+
+restore [locate_data_file OCC771.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+checkshape a_3
+
+bfuse res1 a_1 a_2
+
+checkshape res1
+
+bfuse result res1 a_3
+
+set square 1306.68
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC772"
+puts "SAM1643"
+puts "========"
+puts ""
+######################################
+## Impossible to make a common of the shapes attached.
+######################################
+
+restore [locate_data_file OCC772.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bcommon result a_1 a_2
+
+set square 0
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC774"
+puts "SAM1647"
+puts "(case 1)"
+puts "========"
+puts ""
+#################################
+## It's impossible to cut one shape from another.
+#################################
+
+restore [locate_data_file OCC774.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+if { [catch { bcut result a_1 a_2 } status] } {
+ puts "Faulty OCC774 (case 1)"
+}
+
+set square 50704.6
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========"
+puts "OCC774"
+puts "SAM1647"
+puts "(case 2)"
+puts "========"
+puts ""
+#################################
+##
+restore [locate_data_file OCC774.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+if { [catch { bcut result a_2 a_1 } status] } {
+ puts "Faulty OCC774 (case 2)"
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC775"
+puts "SAM1650"
+puts "========"
+puts ""
+#############################
+## Impossible to fuse two attached shapes.
+#############################
+
+restore [locate_data_file OCC775.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_1 a_2
+
+set square 61146.4
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC776"
+puts "SAM1654"
+puts "(case 1)"
+puts "========"
+puts ""
+##########################################
+## Impossible to cut one shape from another in the attachment
+##########################################
+
+restore [locate_data_file OCC776.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bcut result a_1 a_2
+
+set square 112637.
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC776"
+puts "SAM1654"
+puts "(case 2)"
+puts "========"
+puts ""
+##########################################
+## Impossible to cut one shape from another in the attachment
+##########################################
+
+restore [locate_data_file OCC776.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bcut result a_2 a_1
+
+set square 40403.2
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC778"
+puts "SAM1656"
+puts "(case 1)"
+puts "========"
+puts ""
+######################################
+## Incorrect result of cut of the cylinder from the shape.
+######################################
+
+restore [locate_data_file OCC778.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bcut result a_1 a_2
+
+set square 13633.6
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC778"
+puts "SAM1656"
+puts "(case 2)"
+puts "========"
+puts ""
+#####################################
+## Incorrect result of cut of the cylinder from the shape
+#####################################
+
+restore [locate_data_file OCC778.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bcut result a_2 a_1
+
+set square 678.584
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC779"
+puts "========"
+puts ""
+################################
+## Common operation produces invalid shape
+################################
+
+restore [locate_data_file OCC779_s1.brep] s1
+checkshape s1
+restore [locate_data_file OCC779_s2.brep] s2
+checkshape s2
+
+ttranslate s1 0 0 -30
+prism s1p s1 0 0 70
+checkshape s1p
+
+bcommon result s1p s2
+
+set square 64191.2
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "BUC60875"
+puts "OCC78"
+puts "============"
+puts ""
+###############################
+## Pipe is created incorrectly on two wires
+###############################
+
+#datadir /disk4/QA/hotline/GRIDS/chl/data
+restore [locate_data_file BUC60875_wire.brep] w
+restore [locate_data_file BUC60875_profile.brep] p
+checkshape w
+checkshape p
+
+pipe result w p
+set square 10191.8
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC780"
+puts "SAM1239"
+puts "(case 1)"
+puts "========"
+puts ""
+#########################################
+## Fuse and common between two faces are wrong (SAM1239)
+#########################################
+
+restore [locate_data_file OCC780.brep] f
+explode f f
+checkshape f_1
+checkshape f_2
+
+bcommon result f_1 f_2
+
+set square 6283.19
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC780"
+puts "SAM1239"
+puts "(case 2)"
+puts "========"
+puts ""
+#########################################
+## Fuse and common between two faces are wrong (SAM1239)
+#########################################
+
+restore [locate_data_file OCC780.brep] f
+explode f f
+checkshape f_1
+checkshape f_2
+
+bfuse result f_1 f_2
+
+set square 12566.4
+set 2dviewer 0
--- /dev/null
+
+puts "========="
+puts " OCC788 "
+puts "========="
+puts ""
+#################################################
+## ThruSection cannot determine correctly correspondence between wires
+#################################################
+restore [locate_data_file OCC788_s1w.brep] w1
+explode w1
+wire ww1 w1_1
+
+restore [locate_data_file OCC788_s2w.brep] w2
+explode w2
+wire ww2 w2_1
+
+thrusections result 0 0 ww1 ww2
+
+set 2dviewer 0
+set square 148608.
--- /dev/null
+
+puts "========="
+puts " OCC788 "
+puts "========="
+puts ""
+##################################################
+## ThruSection cannot determine correctly correspondence between wires
+##################################################
+
+restore [locate_data_file OCC788_s1w.brep] w1
+explode w1
+wire ww1 w1_1
+
+restore [locate_data_file OCC788_s2w.brep] w2
+explode w2
+wire ww2 w2_1
+
+
+thrusections result 0 0 ww1 ww2
+
+puts "It necessary to analyse the photo"
+
+set 2dviewer 0
+set square 148608.
--- /dev/null
+
+puts "========="
+puts " OCC789 "
+puts "========="
+puts ""
+########################################################
+## When working on 2 closed wires (each of 1 edge), the thrusection algorithm creates
+## a surface with isolines which oscillate in longitudinal direction somewhere in the
+## middle between end sections.
+########################################################
+
+restore [locate_data_file OCC789_s3.brep] w1
+explode w1
+wire ww1 w1_1
+
+restore [locate_data_file OCC789_s4.brep] w2
+explode w2
+wire ww2 w2_1
+
+thrusections result 0 0 ww1 ww2
+
+puts "It necessary to analyse the photo"
+
+set square 142424.
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "========="
+puts " OCC794 "
+puts "========="
+puts ""
+#####################################################
+## The offset algorithm produced invalid result when offseting an attached face
+#####################################################
+
+pload QAcommands
+
+restore [locate_data_file OCC794.brep] a
+
+offsetshape result a 10
+
+set x_coord 120
+set y_coord 150
+
+vinit
+vdisplay result
+vsetdispmode 1
+vfit
+
+checkcolor $x_coord $y_coord 0.77 0.54 0.09
+
+set square 206399
+set 3dviewer 1
--- /dev/null
+puts "============"
+puts "BUC60877"
+puts "OCC80"
+puts "============"
+puts ""
+##########################################################
+## The command "section" in Draw gives exception "attempt to access to null objec "
+##########################################################
+
+restore [locate_data_file BUC60877_lh.brep] sh
+checkshape sh
+
+plane pl 820 198 140 -1e-06 0 1
+mkface f pl -1000 500 -300 100
+
+if [catch {bsection result sh f } catch_result] {
+ puts "Faulty BUC60877: function SECTION works wrongly"
+} else {
+ puts "BUC60877 OK: function SECTION works properly"
+}
+set length 1358.63
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "BUC60907"
+puts "OCC81"
+puts "============"
+puts ""
+###############################
+## Section shell by plane gives overlapped edges
+###############################
+
+restore [locate_data_file BUC60907_px1.rle] sh
+checkshape sh
+
+plane f 60 0 0 1 0 0
+mkface f f
+bsection result sh f
+puts "Info: it should be 12 edges"
+
+set nb_info [nbshapes result]
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ne
+
+if { $ne != 12 } {
+ puts "Faulty :Number of edges is wrong"
+} else {
+ puts "Number of edges is OK"
+}
+
+set length 33.6353
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: OCC817: Error"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+pload QAcommands
+
+puts "============"
+puts "OCC817"
+puts "============"
+puts ""
+#############################
+## Bad results of BRepAlgoAPI_Common
+#############################
+
+set InfoList [OCC817 result 10]
+
+set OriginalVolume 0
+regexp {Info: Original volume = ([-0-9.+eE]+)} $InfoList full OriginalVolume
+
+set AccumulatedMeshedVolume 0
+regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume
+
+set percent_max 0.1
+set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.]
+
+if {${percent} > ${percent_max}} {
+ puts "OCC817: Error"
+} else {
+ puts "OCC817: OK"
+}
+
+set 2dviewer 0
+set square 0
--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC817"
+puts "============"
+puts ""
+#############################
+## Bad results of BRepAlgoAPI_Common
+#############################
+
+set InfoList [OCC817 result 15]
+
+set OriginalVolume 0
+regexp {Info: Original volume = ([-0-9.+eE]+)} $InfoList full OriginalVolume
+
+set AccumulatedMeshedVolume 0
+regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume
+
+set percent_max 0.1
+set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.]
+
+if {${percent} > ${percent_max}} {
+ puts "OCC817: Error"
+} else {
+ puts "OCC817: OK"
+}
+set 2dviewer 0
+set square 6000
--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC817"
+puts "============"
+puts ""
+#############################
+## Bad results of BRepAlgoAPI_Common
+#############################
+
+set InfoList [OCC817 result 30]
+
+
+set OriginalVolume 0
+regexp {Info: Original volume = ([-0-9.+eE]+)} $InfoList full OriginalVolume
+
+set AccumulatedMeshedVolume 0
+regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume
+
+set percent_max 0.1
+set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.]
+
+if {${percent} > ${percent_max}} {
+ puts "OCC817: Error"
+} else {
+ puts "OCC817: OK"
+}
+set 2dviewer 0
+set square 6000
--- /dev/null
+puts "============"
+puts "BUC60908"
+puts "OCC82"
+puts "============"
+puts ""
+###############################
+## Incomplete section of shell by plane
+###############################
+
+restore [locate_data_file BUC60907_px1.rle] sh
+checkshape sh
+
+plane f 0 14.8053 0 0 1 0
+mkface f f
+bsection result sh f
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_verices
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
+
+set nnv [expr $nb_verices-1]
+
+puts "VERTEX : $nb_verices, EDGE : $nb_edges"
+
+if { $nnv > $nb_edges } {
+ puts "Surplus of vertices, Faulty section"
+} else {
+ puts "Number of vertices correspond edges: OK"
+}
+set length 113.703
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC8228"
+puts "============"
+puts ""
+######################################################
+# exeption is raised during the vprops in DRAW on the attached shape
+######################################################
+
+set BugNumber OCC8228
+
+catch {pload XDE}
+catch {pload DCAF}
+
+# Create a new document and set UndoLimit
+
+NewDocument D MDTV-XCAF
+UndoLimit D 100
+
+# Open a transaction
+NewCommand D
+
+ReadStep D [locate_data_file OCC8228.stp]
+XGetOneShape result D
+
+set square 1.46159e+06
+
+set nb_v_good 1296
+set nb_e_good 2041
+set nb_w_good 826
+set nb_f_good 761
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 4926
+
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC822"
+puts "========"
+puts ""
+#####################################
+## BRepMesh_IncrementalMesh fails on some faces
+#####################################
+## (old topology)
+#####################################
+
+if {[ catch { set info_result [OCC822_1 a1 a2 result 0] } ] } {
+ puts "Faulty OCC822"
+} else {
+ if { [regexp {FAILED} $info_result] } {
+ puts "Faulty OCC822"
+ }
+
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC822"
+ }
+}
+
+set square 133931
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "======="
+puts "OCC822"
+puts "======="
+puts ""
+#####################################
+## BRepMesh_IncrementalMesh fails on some faces
+#####################################
+## (old topology)
+#####################################
+
+if { [ catch { set info_result [OCC822_2 a1 a2 result 0] } ] } {
+ puts "Faulty OCC822"
+} else {
+ if { [regexp {FAILED} $info_result] } {
+ puts "Faulty OCC822"
+ }
+
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC822"
+ }
+}
+set square 61963.5
+set 3dviewer 1
--- /dev/null
+pload QAcommands
+
+puts "======="
+puts "OCC823"
+puts "======="
+puts ""
+###############################
+## BRepAlgoAPI_Fuse fails on two cylinders
+###############################
+## (old topology)
+#####################################
+
+if { [ catch { set info_result [OCC823 a1 a2 result] } ] } {
+ puts "Faulty OCC823"
+} else {
+ if { [regexp {FAILED} $info_result] } {
+ puts "Faulty OCC823"
+ }
+
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC823 : Resulting shape is empty COMPOUND"
+ }
+}
+set square 23189.5
+set 2dviewer 1
--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC823"
+puts "============"
+puts ""
+################################
+## BRepAlgoAPI_Fuse fails on two cylinders
+################################
+##
+## Note: test for old topology
+##
+################################
+
+if { [ catch { set info_result [OCC823 a1 a2 a3] } ] } {
+ puts "Faulty : exception was caught"
+} else {
+ checkshape a1
+ checkshape a2
+ bfuse result a1 a2
+
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty : Resulting shape is empty COMPOUND"
+ }
+}
+
+set square 23189.5
+set 2dviewer 0
+
--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC824"
+puts "============"
+puts ""
+####################################
+## BRepAlgoAPI_Fuse fails on cylinder and sphere
+####################################
+## (old topology)
+#####################################
+
+if { [ catch { set info_result [OCC824 a1 a2 result 0] } ] } {
+ puts "Faulty OCC824"
+} else {
+ if { [regexp {FAILED} $info_result] } {
+ puts "Faulty OCC824"
+ }
+
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC824"
+ }
+}
+
+set square 16336.3
+set 2dviewer 1
--- /dev/null
+pload QAcommands
+
+puts "======="
+puts "OCC824"
+puts "======="
+puts ""
+####################################
+## BRepAlgoAPI_Fuse fails on cylinder and sphere
+####################################
+##
+## Note: test for old topology
+##
+################################
+
+if { [ catch { set info_result [OCC824 a1 a2 a3] } ] } {
+ puts "Faulty : exception was catch"
+} else {
+ checkshape a1
+ checkshape a2
+ bfuse result a1 a2
+
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty : Resulting shape is empty COMPOUND"
+ }
+}
+
+set square 16336.3
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC825"
+puts "TODO OCC12345 ALL: Error : The command is not valid. The square is"
+
+pload QAcommands
+
+puts "============"
+puts "OCC825"
+puts "============"
+puts ""
+######################################
+## BRepAlgoAPI_Cut fails on sphere and b-spline face
+######################################
+## (old topology)
+#####################################
+
+if { [ catch { set info_result [OCC825 a1 a2 a3 res1 res2 0] } ] } {
+ puts "Faulty OCC825"
+} else {
+ if { [regexp {FAILED} $info_result] } {
+ puts "Faulty OCC825"
+ }
+
+ set ExplodeList [explode res1]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC825"
+ }
+
+ set ExplodeList [explode res2]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC825"
+ }
+ checkshape res1
+ renamevar res2 result
+}
+
+set square 0
+set 2dviewer 1
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+pload QAcommands
+
+puts "======="
+puts "OCC825"
+puts "======="
+puts ""
+######################################
+## BRepAlgoAPI_Cut fails on sphere and b-spline face
+######################################
+##
+## Note: test for old topology
+##
+################################
+
+if { [ catch { set info_result [OCC825 a1 a2 a3 a4 a5] } ] } {
+ puts "Faulty : an exception was caught"
+} else {
+ checkshape a1
+ checkshape a2
+ bcut result a2 a1
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty : Resulting shape is empty COMPOUND"
+ }
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========"
+puts "OCC825"
+puts "========"
+puts ""
+######################################
+## BRepAlgoAPI_Cut fails on sphere and b-spline face
+######################################
+##
+## Note: test for old topology
+##
+################################
+
+if { [ catch { set info_result [OCC825 a1 a2 a3 a4 a5] } ] } {
+ puts "Faulty : an exception was caught"
+} else {
+ checkshape a1
+ checkshape a3
+
+ bcut result a3 a1
+
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty : Resulting shape is empty COMPOUND"
+ }
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC826"
+puts "============"
+puts ""
+###################################
+## BRepAlgoAPI_Fuse fails on revolved and sphere
+###################################
+## (old topology)
+#####################################
+
+if { [ catch { set info_result [OCC826 a1 a2 result] } ] } {
+ puts "Faulty OCC826"
+} else {
+ if { [regexp {FAILED} $info_result] } {
+ puts "Faulty OCC826"
+ }
+
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC826"
+ }
+}
+
+set square 272939
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC826"
+puts "============"
+puts ""
+###################################
+## BRepAlgoAPI_Fuse fails on revolved and sphere
+###################################
+##
+## Note: test for old topology
+##
+################################
+
+if { [ catch { set result [OCC826 a1 a2 a3] } ] } {
+ puts "Faulty : an exception was caught"
+} else {
+ checkshape a1
+ checkshape a2
+ bfuse result a1 a2
+
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty : Resulting shape is empty COMPOUND"
+ }
+}
+
+set square 272939
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC827"
+puts "========"
+puts ""
+###################################
+## BRepAlgoAPI_Fuse fails on cylinder and torus
+###################################
+
+#
+# a1 - Cylinder
+# a2 - Torus1
+# a3 - Torus1
+# res1 - Fuse(Torus1 & Cylinder)
+# res2 - Fuse(Torus2 & res1)
+#
+
+if { [ catch { set info_result [OCC827 a1 a2 a3 result1 result2] } ] } {
+ puts "Faulty : an exception was caught"
+} else {
+ if { [lsearch ${info_result} FAILED] > -1} {
+ puts "Faulty OCC827 (case 1)"
+ }
+ checkshape a1
+ checkshape a2
+ checkshape a3
+ checkshape result1
+ checkshape result2
+
+ set ExplodeList [explode result1]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty : Resulting shape is empty COMPOUND"
+ }
+
+ set ExplodeList [explode result2]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty : Resulting shape is empty COMPOUND"
+ }
+
+ renamevar result2 result
+}
+
+set square 11847.7
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Faulty OCC827"
+
+pload QAcommands
+
+puts "========"
+puts "OCC827"
+puts "========"
+puts ""
+###################################
+## BRepAlgoAPI_Fuse fails on cylinder and torus
+###################################
+## (old topology)
+#####################################
+
+#
+# a1 - Cylinder
+# a2 - Torus1
+# a3 - Torus1
+# res1 - Fuse(Torus1 & Cylinder)
+# res2 - Fuse(Torus2 & res1)
+#
+
+if { [ catch { set info_result [OCC827 a1 a2 a3 res1 res2 0] } ] } {
+ puts "Faulty OCC827"
+} else {
+ if { [regexp {FAILED} $info_result] } {
+ puts "Faulty OCC827"
+ }
+ checkshape a1
+ checkshape a2
+ checkshape a3
+ checkshape res1
+
+ set ExplodeList [explode res1]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC827"
+ }
+
+ set ExplodeList [explode res2]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC827"
+ }
+ renamevar res2 result
+}
+set square 0
+set 2dviewer 1
--- /dev/null
+pload QAcommands
+
+puts "======="
+puts "OCC827"
+puts "======="
+puts ""
+####################################
+## BRepAlgoAPI_Fuse fails on cylinder and torus
+####################################
+
+
+#
+# a1 - Cylinder
+# a2 - Torus1
+# a3 - Torus1
+# res1 - Fuse(Torus1 & Cylinder)
+# res2 - Fuse(Torus2 & res1)
+#
+
+if { [ catch { set info_result [OCC827 a1 a2 a3 a4 a5] } ] } {
+ puts "Faulty OCC827"
+} else {
+ checkshape a1
+ checkshape a2
+ checkshape a3
+ bop a1 a2
+ bopfuse res1
+ checkshape res1
+ set ExplodeList [explode res1]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC827 : Resulting shape is empty COMPOUND"
+ }
+ bop res1 a3
+ bopfuse result
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC827 : Resulting shape is empty COMPOUND"
+ }
+}
+set square 11847.7
+set 2dviewer 0
+
--- /dev/null
+pload QAcommands
+
+puts "======="
+puts "OCC827"
+puts "======="
+puts ""
+####################################
+## BRepAlgoAPI_Fuse fails on cylinder and torus
+####################################
+
+#
+# a1 - Cylinder
+# a2 - Torus1
+# a3 - Torus1
+# res1 - Fuse(Torus1 & Cylinder)
+# res2 - Fuse(Torus2 & res1)
+#
+
+if { [ catch { set info_result [OCC827 a1 a2 a3 a4 a5] } ] } {
+ puts "Faulty OCC827"
+} else {
+ checkshape a1
+ checkshape a2
+ checkshape a3
+ bop a2 a1
+ bopfuse res1
+ checkshape res1
+ set ExplodeList [explode res1]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC827 : Resulting shape is empty COMPOUND"
+ }
+ bop a3 res1
+ bopfuse result
+
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty OCC827 : Resulting shape is empty COMPOUND"
+ }
+}
+
+set square 11847.7
+set 2dviewer 1
+
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC828"
+puts "========"
+puts ""
+###############################
+## BRepFilletAPI_MakeFillet fails on prism
+###############################
+
+if { [ catch { set info_result [OCC828 a1] } ] } {
+ puts "Faulty : an exception was caught"
+} else {
+ if { [lsearch ${info_result} FAILED] > -1} {
+ puts "Faulty : command was FAILED"
+ }
+ checkshape a1
+ explode a1 e
+ blend result a1 10 a1_7 10 a1_6
+
+ set ExplodeList [explode result]
+ if {[llength ${ExplodeList}] < 1} {
+ puts "Faulty : Resulting shape is empty COMPOUND"
+ }
+}
+
+set square 17816.2
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: An exception was caught"
+puts "TODO OCC12345 ALL: Exception"
+
+puts "========"
+puts "OCC829"
+puts "========"
+puts ""
+###################################
+## BRepOffsetAPI_MakeOffset fails on given wires
+###################################
+puts " This part - LIMITATION for existed algorithms"
+###################################
+
+restore [locate_data_file OCC829_w1.brep] a
+checkshape a
+explode a w
+
+if { [catch { mkoffset result a_1 1 5 } status] } {
+ puts "Faulty : An exception was caught"
+} else {
+ renamevar result_1 result
+ set nb_info [nbshapes result]
+ regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+ puts [format "Result shape result contains %s vertexes" $ve]
+ if { $ve == 0 } {
+ puts [format "Faulty : Result shape is NULL shape"]
+ } else {
+ regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+ if {$wi > 1 } {
+ set ll [explode result w]
+ set num [llength $ll]
+ puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
+ foreach {k} $ll {
+ checkshape $k
+ regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
+ if { $cs != 0 } {
+ puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
+ } else {
+ puts [format "OK: Result shape is CLOSED wire !!! "]
+ }
+ }
+ }
+ }
+ set length 0
+ set 2dviewer 0
+}
--- /dev/null
+
+puts "========"
+puts "OCC829"
+puts "========"
+puts ""
+###################################
+## BRepOffsetAPI_MakeOffset fails on given wires
+###################################
+restore [locate_data_file OCC829_w2.brep] a
+checkshape a
+explode a w
+
+if { [catch { mkoffset result a_1 1 5 } status] } {
+ puts "Faulty OCC829 (case 1)"
+} else {
+ renamevar result_1 result
+ set nb_info [nbshapes result]
+ regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+ puts [format "Result shape result contains %s vertexes" $ve]
+ if { $ve == 0 } {
+ puts [format "Faulty : Result shape is NULL shape"]
+ } else {
+ regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+ if {$wi > 1 } {
+ set ll [explode result w]
+ set num [llength $ll]
+ puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
+ foreach {k} $ll {
+ checkshape $k
+ regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
+ if { $cs != 0 } {
+ puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
+ } else {
+ puts [format "OK: Result shape is CLOSED wire !!! "]
+ }
+ }
+ }
+ }
+}
+
+set length 3690.75
+set 2dviewer 0
+
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "OCC8372"
+puts "============"
+puts ""
+######################################################
+# Twisted result of ThruSections operation
+######################################################
+
+set BugNumber OCC8372
+
+restore [locate_data_file OCC8372_1.brep] w1
+restore [locate_data_file OCC8372_2.brep] w2
+
+thrusections result 1 1 w1 w2
+
+set square 4140.46
+
+set nb_v_good 12
+set nb_e_good 18
+set nb_w_good 8
+set nb_f_good 8
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 48
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "BUC60912"
+puts "OCC83"
+puts "============"
+puts ""
+###############################
+## Section of simple BSpline surfaces is performed too slow
+###############################
+
+puts "1 case: perform section with plane"
+restore [locate_data_file BUC60912_sec_slow.brep] c
+explode c
+checkshape c_1
+checkshape c_2
+
+renamevar c_1 sh
+renamevar c_2 pr
+plane f 0 0 0 1 0 0
+mkface f f -11 11 -11 11
+
+dchrono h reset
+dchrono h start
+bsection result f pr
+
+dchrono h stop
+set q2 [dchrono h show]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z
+puts "$z"
+if { $z > 5 } {
+ puts "Elapsed time is more then 5 seconds - Faulty"
+} else {
+ puts "Elapsed time is less then 5 - OK"
+}
+
+set length 42.879
+set 2dviewer 0
+
+
--- /dev/null
+puts "============"
+puts "BUC60912"
+puts "OCC83"
+puts "============"
+puts ""
+###############################
+## Section of simple BSpline surfaces is performed too slow
+###############################
+
+puts "2 case: perform section with planar BSpline surface"
+restore [locate_data_file BUC60912_sec_slow.brep] c
+explode c
+checkshape c_1
+checkshape c_2
+
+renamevar c_1 sh
+renamevar c_2 pr
+plane f 0 0 0 1 0 0
+mkface f f -11 11 -11 11
+
+puts "Info: perform section with planar BSpline surface"
+dchrono h2 reset
+dchrono h2 start
+bsection result sh pr
+dchrono h2 stop
+set q2 [ dchrono h2 show ]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
+puts "$z2"
+if { $z2 > 40 } {
+ puts "Elapsed time is more then 40 seconds - Faulty"
+} else {
+ puts "Elapsed time is less then 40 - OK"
+}
+set length 42.879
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " BUC60957 "
+puts " OCC86 "
+puts "========================"
+
+puts "Restoring the wires :"
+restore [locate_data_file OCC86a.brep] w1
+checkshape w1
+restore [locate_data_file OCC86b.brep] w2
+checkshape w2
+
+puts "Do Thrusection by following command: thrusections res 0 0 w1 w2 "
+
+thrusections result 0 0 w1 w2
+
+set length 102.832
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : Now w1,w2 have bspline curves as basic !!!"
+puts "TODO OCC12345 ALL: Error : The square of result shape is"
+
+puts "========================"
+puts " BUC60958 "
+puts " OCC87 "
+puts "========================"
+
+puts "Restoring the wires :"
+restore [locate_data_file OCC86a.brep] w1
+checkshape w1
+restore [locate_data_file OCC86b.brep] w2
+checkshape w2
+
+set first1 [dump w1]
+set second1 [dump w2]
+
+# puts "Do Thrusection by following command: thrusections res 0 0 w1 w2 "
+
+thrusections result 0 0 w1 w2
+
+set first2 [dump w1]
+set second2 [dump w2]
+
+if {$first1 != $first2 || $second1 != $second2} {
+ puts "Faulty : Now w1,w2 have bspline curves as basic !!!"
+} else {
+ puts "Correct result: Wires have circle curves as basic"
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cone_CATIA.igs] a1
+
+sewing con1 a1
+
+# join type Arc
+puts "***** offsetting with join type Arc"
+puts " cone_CATIA + 5"
+
+if [catch { myoffset result con1 5 0 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 32396.2
+
+set nb_v_good 5
+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 23
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cylinder_CATIA.igs] a3
+
+sewing cyl1 a3
+
+# join type Arc
+puts "***** offsetting with join type Arc"
+puts " cylinder_CATIA - 5"
+
+if [catch { myoffset result cyl1 -5 0 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 55514.4
+set nb_v_good 8
+set nb_e_good 14
+set nb_w_good 8
+set nb_f_good 8
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 40
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cylinder_CATIA.igs] a3
+
+sewing cyl1 a3
+
+# join type Intersection
+puts "***** offsetting with join type Intersection"
+puts " cylinder_CATIA + 5"
+
+if [catch { myoffset result cyl1 5 1 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 38170.4
+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 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 20
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cylinder_CATIA.igs] a3
+
+sewing cyl1 a3
+
+# join type Intersection
+puts "***** offsetting with join type Intersection"
+puts " cylinder_CATIA - 5"
+
+if [catch { myoffset result cyl1 -5 1 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 57019.9
+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 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 20
+
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cylinder_Ideas.igs] a4
+
+DT_ShapeDivide cyl2 a4
+
+# join type Arc
+puts "***** offsetting with join type Arc"
+puts " cylinder_Ideas + 5"
+
+if [catch { myoffset result cyl2 5 0 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 34980.9
+set nb_v_good 20
+set nb_e_good 33
+set nb_w_good 15
+set nb_f_good 15
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 85
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cylinder_Ideas.igs] a4
+
+DT_ShapeDivide cyl2 a4
+
+# join type Arc
+puts "***** offsetting with join type Arc"
+puts " cylinder_Ideas - 5"
+
+if [catch { myoffset result cyl2 -5 0 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 20106.2
+set nb_v_good 6
+set nb_e_good 9
+set nb_w_good 5
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 27
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC11111 ALL: OCC8842: Faulty"
+puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: An exception was caught"
+
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cylinder_Ideas.igs] a4
+
+DT_ShapeDivide cyl2 a4
+
+# join type Intersection
+puts "***** offsetting with join type Intersection"
+puts " cylinder_Ideas + 5"
+
+if [catch { myoffset result cyl2 5 1 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+set square 35814.2
+set nb_v_good 6
+set nb_e_good 9
+set nb_w_good 5
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 27
+
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO ?OCC11111 ALL: OCC8842: Faulty"
+puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: An exception was caught"
+puts "TODO ?OCC11111 ALL: Error : Result shape is WRONG"
+puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cylinder_Ideas.igs] a4
+
+DT_ShapeDivide cyl2 a4
+
+# join type Intersection
+puts "***** offsetting with join type Intersection"
+puts " cylinder_Ideas - 5"
+
+if [catch { myoffset result cyl2 -5 1 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 3542.24
+set nb_v_good 60
+set nb_e_good 90
+set nb_w_good 42
+set nb_f_good 40
+set nb_sh_good 5
+set nb_sol_good 5
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 243
+
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC11111 ALL: OCC8842: Faulty"
+puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: An exception was caught"
+
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cone_CATIA.igs] a1
+
+sewing con1 a1
+
+# join type Arc
+puts "***** offsetting with join type Arc"
+puts " cone_CATIA - 5"
+
+if [catch { myoffset result con1 -5 0 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 3542.24
+
+set nb_v_good 60
+set nb_e_good 90
+set nb_w_good 42
+set nb_f_good 40
+set nb_sh_good 5
+set nb_sol_good 5
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 243
+
+}
+
+set 2dviewer 0
--- /dev/null
+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 "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cone_CATIA.igs] a1
+
+sewing con1 a1
+
+# join type Intersection
+puts "***** offsetting with join type Intersection"
+puts " cone_CATIA + 5"
+
+if [catch { myoffset result con1 5 1 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 3542.24
+
+set nb_v_good 60
+set nb_e_good 90
+set nb_w_good 42
+set nb_f_good 40
+set nb_sh_good 5
+set nb_sol_good 5
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 243
+
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: OCC8842: Faulty"
+puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: An exception was caught"
+
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cone_CATIA.igs] a1
+
+sewing con1 a1
+
+# join type Intersection
+puts "***** offsetting with join type Intersection"
+puts " cone_CATIA - 5"
+
+if [catch { myoffset result con1 -5 1 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+set square 3542.24
+set nb_v_good 60
+set nb_e_good 90
+set nb_w_good 42
+set nb_f_good 40
+set nb_sh_good 5
+set nb_sol_good 5
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 243
+
+}
+
+set 2dviewer 0
--- /dev/null
+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 "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cone_Ideas.igs] a2
+
+DT_ShapeDivide con2 a2
+
+# join type Arc
+puts "***** offsetting with join type Arc"
+puts " cone_Ideas + 5"
+
+if [catch { myoffset result con2 5 0 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 3542.24
+set nb_v_good 60
+set nb_e_good 90
+set nb_w_good 42
+set nb_f_good 40
+set nb_sh_good 5
+set nb_sol_good 5
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 243
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: OCC8842: Faulty"
+puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: An exception was caught"
+
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cone_Ideas.igs] a2
+
+DT_ShapeDivide con2 a2
+
+# join type Arc
+puts "***** offsetting with join type Arc"
+puts " cone_Ideas - 5"
+
+if [catch { myoffset result con2 -5 0 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 9885.2
+set nb_v_good 4
+set nb_e_good 9
+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 23
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC11111 ALL: OCC8842: Faulty"
+puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: An exception was caught"
+
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cone_Ideas.igs] a2
+
+DT_ShapeDivide con2 a2
+
+# join type Intersection
+puts "***** offsetting with join type Intersection"
+puts " cone_Ideas + 5"
+
+if [catch { myoffset result con2 5 1 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 22391
+set nb_v_good 4
+set nb_e_good 9
+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 23
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC11111 ALL: OCC8842: Faulty"
+puts "TODO ?OCC11111 ALL: Exception"
+puts "TODO ?OCC11111 ALL: An exception was caught"
+puts "TODO ?OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+cpulimit 500
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cone_Ideas.igs] a2
+
+DT_ShapeDivide con2 a2
+
+# join type Intersection
+puts "***** offsetting with join type Intersection"
+puts " cone_Ideas - 5"
+
+if [catch { myoffset result con2 -5 1 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 22391
+set nb_v_good 4
+set nb_e_good 9
+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 23
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC8842"
+puts "============"
+puts ""
+#######################################################################
+# Errors in Offset Shape algorithm working with bspline and surface of revolution
+#######################################################################
+
+set BugNumber OCC8842
+
+if {[info commands testreadiges] == ""} {pload XSDRAW}
+
+proc myoffset {result sh val tan} {
+ if {$tan == 1} {
+ offsetparameter 1e-7 p i
+ } else {
+ offsetparameter 1e-7 p a
+ }
+ uplevel offsetload $sh $val
+ uplevel offsetperform $result
+}
+
+testreadiges [locate_data_file OCC8842_cylinder_CATIA.igs] a3
+
+sewing cyl1 a3
+
+# join type Arc
+puts "***** offsetting with join type Arc"
+puts " cylinder_CATIA + 5"
+
+if [catch { myoffset result cyl1 5 0 } catch_result] {
+ puts "${BugNumber}: Faulty (1)"
+} else {
+
+set square 38170.4
+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 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 20
+
+}
+
+set 2dviewer 0
--- /dev/null
+
+puts "======="
+puts "OCC890"
+puts "SAM1681"
+puts "======="
+puts ""
+##############################
+## No possibility to fuse the attached prisms.
+##############################
+
+restore [locate_data_file OCC890.brep] a
+explode a
+
+checkshape a_1
+checkshape a_2
+
+if { [ catch { bfuse result a_1 a_2 } catch_result ] } {
+ puts "Faulty OCC890 (case 3)"
+}
+
+set square 1.8276e+06
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC895"
+puts "============"
+puts ""
+#########################################################
+## In one case, twisted surface is created.
+## The problem is in incorrect computation of mutual orientations of wire segments.
+#########################################################
+
+pload QAcommands
+
+set scale 73.609
+set center_X 7.93702
+set center_Y 0.264503
+set proj_X 0.523995
+set proj_Y 0.359655
+set proj_Z 0.77206
+set up_X -0.739036
+set up_Y -0.258607
+set up_Z 0.622051
+set at_X 9.06773
+set at_Y -1.93771
+set at_Z 1.45124
+
+set x_coord 210
+set y_coord 210
+
+set status 0
+
+set angle 5
+set reverse 0
+set order 0
+
+if { [ catch { OCC895 result ${angle} ${reverse} ${order} } ] } {
+ puts "Faulty : an exception was caught"
+}
+
+if { ${status} == 0} {
+ vinit
+ vsetdispmode 1
+ vdisplay result
+
+ vviewparams ${scale} ${center_X} ${center_Y} \
+ ${proj_X} ${proj_Y} ${proj_Z} \
+ ${up_X} ${up_Y} ${up_Z} \
+ ${at_X} ${at_Y} ${at_Z}
+
+ checkcolor $x_coord $y_coord 0.98 0.72 0.13
+
+ if { ${stat} != 1 } {
+ puts "Faulty OCC895 (case 2)"
+ }
+}
+
+set square 18.1614
+set 3dviewer 1
--- /dev/null
+puts "======="
+puts "DXF906"
+puts "OCC889"
+puts "OCC1013"
+puts "======="
+puts ""
+#########################################################
+## After fix OCC157 we have plane surface in face (instead bspline as in C40).
+## But now checkshape founds number of errors on new face. I think that face from
+## c40 is not better than in dev
+#########################################################
+
+restore [locate_data_file DXF906.rle] a
+
+mkplane result a
+
+set square 92131.6
+set 2dviewer 0
--- /dev/null
+#INTERFACE DXF
+puts "============"
+puts "OCC910"
+puts "============"
+puts ""
+#####################################################
+## The problem with sat files depends on problem of BRepTools_WireExplorer
+#####################################################
+
+pload XDE
+
+restore [locate_data_file OCC910.rle] a
+
+checkshape a
+explode a w
+checkshape a_7
+
+set list1 [expwire a_7]
+regexp {TopoDS_Iterator\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopoDS_Iterator1
+regexp {TopExp_Explorer\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopExp_Explorer1
+regexp {BRepTools_WireExplorer donne ([-0-9.+eE]+) Edges} $list1 full BRepTools_WireExplorer1
+
+
+set list2 [expwire a_7 a]
+regexp {TopoDS_Iterator\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopoDS_Iterator2
+regexp {TopExp_Explorer\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopExp_Explorer2
+regexp {BRepTools_WireExplorer donne ([-0-9.+eE]+) Edges} $list1 full BRepTools_WireExplorer2
+
+puts "TopoDS_Iterator1 = ${TopoDS_Iterator1}"
+puts "TopExp_Explorer1 = ${TopExp_Explorer1}"
+puts "BRepTools_WireExplorer1 = ${BRepTools_WireExplorer1}"
+
+puts "TopoDS_Iterator2 = ${TopoDS_Iterator2}"
+puts "TopExp_Explorer2 = ${TopExp_Explorer2}"
+puts "BRepTools_WireExplorer2 = ${BRepTools_WireExplorer2}"
+
+if { ${TopoDS_Iterator1} != ${TopoDS_Iterator2} || \
+ ${TopExp_Explorer1} != ${TopExp_Explorer2} || \
+ ${BRepTools_WireExplorer1} != ${BRepTools_WireExplorer2} } {
+ puts "Faulty OCC910"
+} else {
+ puts "OCC910 OK"
+}
+
+renamevar a_7 result
+
+set length 149.816
+set 2dviewer 0
+
--- /dev/null
+
+puts "======="
+puts "OCC919"
+puts "SAM1623"
+puts "======="
+puts ""
+#############################
+## Impossible to fuse the shapes.
+##############################
+
+restore [locate_data_file OCC919.brep] a
+
+explode a
+
+# See comment in CR23244:
+restore [locate_data_file OCC919-PROC.brep] a_1
+#
+
+checkshape a_1
+checkshape a_2
+
+if { [ catch { bfuse result a_1 a_2} catch_result ] } {
+ puts "Faulty OCC919 (case 1)"
+} else {
+ if { [ catch { checkshape result } catch_result ] } {
+ puts "Faulty OCC919 (case 2)"
+ } else {
+ puts "OCC919 OK"
+ }
+}
+
+set square 272591.
+set 2dviewer 0
--- /dev/null
+puts "========="
+puts " OCC951 "
+puts "========="
+puts ""
+##################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+##################################################
+## (old topology)
+## (common)
+## (section)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] b
+restore [locate_data_file OCC951_2.brep] a
+
+checkshape b
+checkshape a
+
+bcommon result b a
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
+regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
+regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
+regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
+regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
+if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
+ puts " OCC951 : COMMON operation was made PROPERLY"
+} else {
+ puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
+}
+
+set square 560.908
+set 3dviewer 1
--- /dev/null
+puts "========="
+puts " OCC951 "
+puts "========="
+puts ""
+##################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+##################################################
+## (new topology)
+## (bopcommon)
+## (bopsection)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] b
+restore [locate_data_file OCC951_2.brep] a
+
+checkshape b
+checkshape a
+
+bop b a
+bopcommon result
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
+regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
+regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
+regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
+regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
+if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
+ puts " OCC951 : COMMON operation was made PROPERLY"
+} else {
+ puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
+}
+
+set square 560.908
+set 3dviewer 1
--- /dev/null
+puts "========="
+puts " OCC951 "
+puts "========="
+puts ""
+##################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+##################################################
+## (old topology)
+## (common)
+## (section)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] b
+restore [locate_data_file OCC951_2.brep] a
+
+checkshape b
+checkshape a
+
+bsection result b a
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
+regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
+regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
+regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
+regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
+if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
+ puts " OCC951 : COMMON operation was made PROPERLY"
+} else {
+ puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
+}
+
+set length 39.8616
+set 3dviewer 1
+
--- /dev/null
+puts "========="
+puts " OCC951 "
+puts "========="
+puts ""
+##################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+##################################################
+## (old topology)
+## (common)
+## (section)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] b
+restore [locate_data_file OCC951_2.brep] a
+
+checkshape b
+checkshape a
+
+bcommon result a b
+
+set nb_info [nbshapes result]
+
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
+regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
+regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
+regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full shl
+
+if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
+ puts " OCC951 : COMMON operation was made PROPERLY"
+ puts ""
+} else {
+ puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
+ puts ""
+}
+
+set square 560.908
+set 3dviewer 1
+
--- /dev/null
+puts "========="
+puts " OCC951 "
+puts "========="
+puts ""
+##################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+##################################################
+## (old topology)
+## (common)
+## (section)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] b
+restore [locate_data_file OCC951_2.brep] a
+
+checkshape b
+checkshape a
+
+bsection result a b
+
+set nb_info [nbshapes result]
+
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
+regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
+regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
+regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full shl
+
+
+
+if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
+ puts " OCC951 : SECTION operation was made PROPERLY"
+ puts ""
+} else {
+ puts "Faulty OCC951 : result of SECTION operation is EMPTY compound"
+ puts ""
+}
+set length 39.8616
+set 3dviewer 1
--- /dev/null
+puts "========="
+puts " OCC951 "
+puts "========="
+puts ""
+##################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+##################################################
+## (new topology)
+## (bopcommon)
+## (bopsection)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] b
+restore [locate_data_file OCC951_2.brep] a
+
+checkshape b
+checkshape a
+
+bop b a
+bopsection result
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
+regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
+regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
+regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
+regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
+if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
+ puts " OCC951 : COMMON operation was made PROPERLY"
+} else {
+ puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
+}
+
+set length 39.8616
+set 3dviewer 1
--- /dev/null
+puts "============"
+puts "OCC951"
+puts "============"
+puts ""
+######################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+######################################################
+## (new topology)
+## (bopcommon)
+## (bopsection)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] s1
+restore [locate_data_file OCC951_2.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s1 s2
+bopcommon result
+
+set square 560.908
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC951"
+puts "============"
+puts ""
+######################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+######################################################
+## (new topology)
+## (bopcommon)
+## (bopsection)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] s1
+restore [locate_data_file OCC951_2.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s1 s2
+bopsection result
+
+set length 39.8616
+set 3dviewer 1
+
--- /dev/null
+puts "========="
+puts " OCC951 "
+puts "========="
+puts ""
+##################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+##################################################
+## (new topology)
+## (bopcommon)
+## (bopsection)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] b
+restore [locate_data_file OCC951_2.brep] a
+
+checkshape b
+checkshape a
+
+############
+bop a b
+bopcommon result
+############
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
+regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
+regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
+regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
+regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
+
+if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
+ puts " OCC951 : COMMON operation was made PROPERLY"
+ puts ""
+} else {
+ puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
+ puts ""
+}
+
+set square 560.908
+set 3dviewer 0
--- /dev/null
+puts "============"
+puts "OCC951"
+puts "============"
+puts ""
+######################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+######################################################
+## (new topology)
+## (bopcommon)
+## (bopsection)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] s1
+restore [locate_data_file OCC951_2.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s2 s1
+bopcommon result
+
+set square 560.908
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC951"
+puts "============"
+puts ""
+######################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+######################################################
+## (new topology)
+## (bopcommon)
+## (bopsection)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] s1
+restore [locate_data_file OCC951_2.brep] s2
+
+checkshape s1
+checkshape s2
+
+bop s2 s1
+bopsection result
+
+set length 39.8616
+set 3dviewer 1
+
--- /dev/null
+puts "========="
+puts " OCC951 "
+puts "========="
+puts ""
+##################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+##################################################
+## (new topology)
+## (bopcommon)
+## (bopsection)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] b
+restore [locate_data_file OCC951_2.brep] a
+
+checkshape b
+checkshape a
+
+bop a b
+bopcommon res1
+bopsection result
+
+set nb_info [nbshapes result]
+regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
+regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
+regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
+regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa
+regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh
+regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so
+regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm
+regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co
+regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl
+
+if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } {
+ puts " OCC951 : COMMON operation was made PROPERLY"
+ puts ""
+} else {
+ puts "Faulty OCC951 : result of COMMON operation is EMPTY compound"
+ puts ""
+}
+
+set length 39.8616
+set 3dviewer 0
--- /dev/null
+puts "============"
+puts "OCC951"
+puts "============"
+puts ""
+######################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+######################################################
+## (old topology)
+## (common)
+## (section)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] s1
+restore [locate_data_file OCC951_2.brep] s2
+
+checkshape s1
+checkshape s2
+
+bcommon result s1 s2
+
+set square 560.908
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC951"
+puts "============"
+puts ""
+######################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+######################################################
+## (old topology)
+## (common)
+## (section)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] s1
+restore [locate_data_file OCC951_2.brep] s2
+
+checkshape s1
+checkshape s2
+
+bsection result s1 s2
+
+set length 39.8616
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC951"
+puts "============"
+puts ""
+######################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+######################################################
+## (old topology)
+## (common)
+## (section)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] s1
+restore [locate_data_file OCC951_2.brep] s2
+
+checkshape s1
+checkshape s2
+
+bcommon result s2 s1
+
+set square 560.908
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC951"
+puts "============"
+puts ""
+######################################################
+##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes
+######################################################
+## (old topology)
+## (common)
+## (section)
+######################################################
+
+restore [locate_data_file OCC951_1.brep] s1
+restore [locate_data_file OCC951_2.brep] s2
+
+checkshape s1
+checkshape s2
+
+bsection result s2 s1
+
+set length 39.8616
+set 3dviewer 1
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+
+puts "========"
+puts "OCC957"
+puts "========"
+puts ""
+##############################################################
+##Draw function PSPHERE creates incorrect shape (according to CHECKSHAPE function)
+##############################################################
+
+psphere result 10 10 10
+
+set length 0
+set 2dviewer 0
--- /dev/null
+
+puts "==========="
+puts "FRA62369"
+puts "==========="
+
+restore [locate_data_file fra62369a.brep] a
+checkshape a
+
+compound result
+
+set i 1
+repeat 100 {
+ plane p_$i 0 0 200+$i
+ mkface f_$i p_$i
+ bsection s_$i a f_$i -2d -a
+ compound s_$i result result
+ incr i
+}
+set length 3961.04
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "PRO16983"
+puts "============"
+
+restore [locate_data_file pro16983a.brep] B
+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
--- /dev/null
+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
+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
--- /dev/null
+
+puts "=========="
+puts "PRO19424"
+puts "=========="
+
+restore [locate_data_file pro19424a.brep] b
+checkshape b
+restore [locate_data_file pro19424b.brep] p
+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
+
--- /dev/null
+
+puts "============"
+puts "PRO19626"
+puts "============"
+
+restore [locate_data_file pro19626a.brep] a
+checkshape a
+restore [locate_data_file pro19626b.brep] b
+checkshape b
+
+bsection result a b
+regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num
+if { $num != 2 } {
+ puts " Faulty PRO19626: Result shape is INcorrect !!! "
+} else {
+ puts "PRO19626 OK : Result shape is CORRECT !!! "
+}
+
+set length 174.597
+set 2dviewer 0
+
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty : TEST FAILED"
+puts "TODO OCC12345 ALL: Error : The length of result shape is"
+
+puts "============"
+puts "PRO19653"
+puts "BREPALGO_BOOLEANOPERATION does not return result."
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+
+restore [locate_data_file pro19653a.brep] a
+checkshape a
+restore [locate_data_file pro19653b.brep] b
+checkshape b
+bsection result a b
+
+explode result e
+checkshape result_1
+explode a e
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full ll_1
+regexp {Mass +: +([-0-9.+eE]+)} [lprops a_4] full ll_2
+if { $ll_1 != $ll_2 } {
+ puts "Faulty : TEST FAILED"
+} else {
+ puts "PRO19653 OK : BREPALGO_BOOLEANOPERATION returns result"
+}
+
+set length 0
+set 2dviewer 0
+++ /dev/null
-set subgroup moddata
-
-
-
-
-
-
-
-
+++ /dev/null
-puts "======================="
-puts "BUC60607"
-puts "It takes visual check for this BUC"
-puts "======================="
-
-set len_ch 2513
-
-point p 1600 300
-line l 0 500 2000 500
-cirtang c p l 400
-
-set info1 [length $c_1]
-set info2 [length $c_2]
-regexp {The length c_1 is +([-0-9.+eE]+)} $info1 full len1
-regexp {The length c_2 is +([-0-9.+eE]+)} $info2 full len2
-set len_int1 [expr int($len1)]
-set len_int2 [expr int($len2)]
-
-if { ${len_int1} != ${len_ch} || ${len_int2} != ${len_ch} } {
- puts "Error : Length is invalid"
-}
+++ /dev/null
-puts "======================="
-puts "BUC60607"
-puts "It takes visual check for this BUC"
-puts "======================="
-
-point p 1600 300
-line l 0 500 2000 500
-cirtang c1 p l 200
+++ /dev/null
-puts "======================="
-puts "BUC60607"
-puts "It takes visual check for this BUC"
-puts "======================="
-
-point p2 1400 1400
-line l2 3000 1700 1000 1550
-cirtang c3 p2 l2 300
+++ /dev/null
-puts "======================="
-puts "BUC60607"
-puts "It takes visual check for this BUC"
-puts "======================="
-
-point p2 1400 1400
-line l2 3000 1700 1000 1550
-cirtang result p2 l2 150
+++ /dev/null
-puts "================"
-puts "BUC60609"
-puts "================"
-
-pload QAcommands
-
-set INF [BUC60609 [locate_data_file buc60609a.brep] a]
-set ll [llength $INF]
-set first [lindex $INF [expr $ll - 5]]
-set second [lindex $INF [expr $ll - 1]]
-
-if {$first != "INSIDE" && $first != "inside"} {
- puts "Faulty BUC60609 first: $first is not right result. It should be INSIDE"
-} else {
- puts "BUC60609 first OK: It is INSIDE"
-}
-
-if {$second != "INSIDE"} {
- puts "Faulty BUC60609 second: $second is not right result. It should be INSIDE"
-} else {
- puts "BUC60609 second OK: It is INSIDE"
-}
-
-renamevar a result
-set 2dviewer 0
-
+++ /dev/null
-puts "=================================="
-puts "BUC60618"
-puts "=================================="
-puts "There was a problem filter of solutions. Several solutions were skipped."
-puts ""
-puts "It takes visual check for this BUG"
-puts "=================================="
-puts ""
-set len_ch1 3568
-set len_ch2 9964
-set len_ch3 2082
-set len_ch4 32696
-set len_ch5 1681
-set len_ch6 3097
-set len_ch7 1545
-set len_ch8 772
-
-circle c1 0 0 100
-circle c2 500 -400 300
-circle c3 300 200 200
-cirtang result c1 c2 c3
-
-set info1 [length $result_1]
-set info2 [length $result_2]
-set info3 [length $result_3]
-set info4 [length $result_4]
-set info5 [length $result_5]
-set info6 [length $result_6]
-set info7 [length $result_7]
-set info8 [length $result_8]
-
-regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
-regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
-regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
-regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4
-regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5
-regexp {The length result_6 is +([-0-9.+eE]+)} $info6 full len6
-regexp {The length result_7 is +([-0-9.+eE]+)} $info7 full len7
-regexp {The length result_8 is +([-0-9.+eE]+)} $info8 full len8
-
-set len_int1 [expr int($len1)]
-set len_int2 [expr int($len2)]
-set len_int3 [expr int($len3)]
-set len_int4 [expr int($len4)]
-set len_int5 [expr int($len5)]
-set len_int6 [expr int($len6)]
-set len_int7 [expr int($len7)]
-set len_int8 [expr int($len8)]
-
-if { ${len_int1} != ${len_ch1}
- || ${len_int2} != ${len_ch2}
- || ${len_int3} != ${len_ch3}
- || ${len_int4} != ${len_ch4}
- || ${len_int5} != ${len_ch5}
- || ${len_int6} != ${len_ch6}
- || ${len_int7} != ${len_ch7}
- || ${len_int8} != ${len_ch8} } {
- puts "Error : Length is invalid"
-}
+++ /dev/null
-puts "=========="
-puts "BUC60622"
-puts "=========="
-puts ""
-puts "=================================="
-puts "It takes visual check for this BUG"
-puts "=================================="
-puts ""
-
-circle c1 2900 800 500
-circle c2 2900 900 400
-circle c3 2900 1000 300
-catch {cirtang result c1 c2 c3}
-
+++ /dev/null
-puts "=================================="
-puts "BUC60622"
-puts "=================================="
-puts "There was an infinity of solutions and also c1, c2 and c3 are solutions"
-puts ""
-puts "It takes visual check for this BUG"
-puts "=================================="
-puts ""
-
-set len_ch1 2513
-set len_ch2 837
-set len_ch3 279
-
-circle c1 500 1800 500
-circle c2 500 1900 400
-circle c3 700 1900 200
-cirtang result c1 c2 c3
-
-set info1 [length $result_1]
-set info2 [length $result_2]
-set info3 [length $result_3]
-regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
-regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
-regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
-set len_int1 [expr int($len1)]
-set len_int2 [expr int($len2)]
-set len_int3 [expr int($len3)]
-
-if { ${len_int1} != ${len_ch1}
- || ${len_int2} != ${len_ch2}
- || ${len_int3} != ${len_ch3} } {
- puts "Error : Length is invalid"
-}
+++ /dev/null
-puts "=================================="
-puts "BUC60622"
-puts "=================================="
-puts "There was an infinity of solutions and also c1, c2 and c3 are solutions"
-puts ""
-puts "It takes visual check for this BUG"
-puts "=================================="
-puts ""
-
-set len_ch1 1570
-set len_ch2 785
-set len_ch3 785
-set len_ch4 523
-set len_ch5 523
-
-circle c3 500 3000 250
-circle c2 375 3000 125
-circle c1 625 3000 125
-cirtang result c1 c2 c3
-
-set info1 [length $result_1]
-set info2 [length $result_2]
-set info3 [length $result_3]
-set info4 [length $result_4]
-set info5 [length $result_5]
-
-regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
-regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
-regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
-regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4
-regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5
-
-set len_int1 [expr int($len1)]
-set len_int2 [expr int($len2)]
-set len_int3 [expr int($len3)]
-set len_int4 [expr int($len4)]
-set len_int5 [expr int($len5)]
-
-if { ${len_int1} != ${len_ch1}
- || ${len_int2} != ${len_ch2}
- || ${len_int3} != ${len_ch3}
- || ${len_int4} != ${len_ch4}
- || ${len_int5} != ${len_ch5} } {
- puts "Error : Length is invalid"
-}
-
+++ /dev/null
-puts "========================"
-puts "BUC60623"
-puts "========================"
-
-restore [locate_data_file buc60623a.brep] a
-checkshape a
-restore [locate_data_file buc60623b.brep] b
-checkshape b
-
-mksurface S1 a
-mksurface S2 b
-
-intersect I1 S1 S2
-regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection I1] full cs2
-if { $cs2 != 0 } {
- puts " Faulty : Intersection is not correct"
-} else {
- puts "Intersection of S1 and S2 is correct"
-}
-
-intersect I2 S2 S1
-regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection I2] full cs2
-if { $cs2 != 0 } {
- puts " Faulty : Intersection is not correct"
-} else {
- puts "Intersection of S2 and S1 is correct"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60637"
-puts "========================"
-
-restore [locate_data_file buc60637a.brep] result
-fsameparameter result
-
-set square 144.866
-set 2dviewer 0
+++ /dev/null
-
-puts "=========="
-puts "BUC60652"
-puts "Case 1"
-puts "=========="
-
-pload QAcommands
-
-restore [locate_data_file buc60652a.brep] result
-checkshape result
-BUC60652 result
-
-set square 19614.8
-set 2dviewer 0
+++ /dev/null
-
-puts "=========="
-puts "BUC60652"
-puts "Case 2"
-puts "=========="
-
-pload QAcommands
-
-restore [locate_data_file buc60652b.brep] result
-checkshape result
-BUC60652 result
-
-set square 29961
-set 2dviewer 0
-
+++ /dev/null
-
-puts "==========="
-puts "BUC60652"
-puts "Case 3"
-puts "==========="
-
-pload QAcommands
-
-restore [locate_data_file buc60652c.brep] result
-checkshape result
-BUC60652 result
-
-set square 77815.1
-set 2dviewer 0
+++ /dev/null
-
-puts "=========="
-puts "BUC60652"
-puts "Case 4"
-puts "=========="
-
-pload QAcommands
-
-restore [locate_data_file shading_104.brep] result
-checkshape result
-BUC60652 result
-
-set square 119134
-set 2dviewer 0
+++ /dev/null
-
-puts "==================="
-puts "BUC60667"
-puts "==================="
-
-restore [locate_data_file buc60667a.brep] result
-fsameparameter result
-checkshape result
-
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "==========="
-puts "BUC60707"
-puts "==========="
-puts ""
-#################################################
-## Fillets created in CasCade version 3 do not display as shaded surfaces.
-#################################################
-restore [locate_data_file buc60707a.brep] result
-checkshape result
-
-tclean result
-incmesh result .1
-triangles result
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full Maxtriangl
-
-if { $Maxtriangl < 1 } {
- puts "Error : inside mesh for shading wasn't build"
-}
-
-set 3dviewer 0
-
-
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60729"
-puts "========================"
-
-pload QAcommands
-
-if [catch {BUC60729} ] {
- puts "BUC60729: Error"
-} else {
- puts "BUC60729: OK"
-}
-
-set 3dviewer 1
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "========================"
-puts "BUC60755"
-puts "========================"
-
-restore [locate_data_file buc60755a.brep] a
-checkshape a
-
-#########################################
-# "tcopy" command of a valid shape give a no-valid shape.
-#########################################
-
-tcopy a result
-checkshape result
-
-set square 623.832
-set 2dviewer 0
-
-
-
-
+++ /dev/null
-
-puts "============="
-puts "BUC60769"
-puts "============="
-
-restore [locate_data_file buc60769a.brep] result
-checkshape result
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "========================"
-puts "BUC60792"
-puts "========================"
-
-pload QAcommands
-
-vinit
-BUC60792
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty BUC60815: NO EXCEPTION."
-puts "=========="
-puts "BUC60815"
-puts "=========="
-
-plane p1 1 0 0
-plane p2 0 0 0 1 0 0
-trim p1 p1 -50 50 -50 50
-trim p2 p2 -75 75 -75 75
-intersect r2 p1 p2
-extsurf e1 r2 10 10 10
-extsurf e3 r2 10 10 10
-
-if [catch { intersect result e1 e3 } catch_result] {
- puts "Faulty BUC60815: NO EXCEPTION."
- puts "INTERSECTION BETWEEN TWO SURFACES LYING ON THE SAME PLANE UNDEFINED"
-} else {
- puts "BUC60815 OK: suitable except"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "========================"
-puts "BUC60825"
-puts "========================"
-
-pload QAcommands
-
-line aLine 0 0 0 0 0 1
-mkedge aEdge1 aLine
-restore [locate_data_file buc60825.brep] aEdge2
-checkshape aEdge2
-
-distmini d aEdge1 aEdge2
-regexp {NB RESULTS +: +([-0-9.+eE]+)} [BUC60825 aEdge1 aEdge2] full ext
-if { $ext != 0 } {
- puts "Error : The extrema has not been calculated."
-}
-
-
-
-
+++ /dev/null
-
-puts "========"
-puts "BUC60828"
-puts "========"
-puts ""
-
-catch {BUC60828}
-
-
-
-
+++ /dev/null
-
-puts "========"
-puts "BUC60842"
-puts "========"
-
-pload QAcommands
-vinit
-
-if [catch {BUC60842} catch_result] {
- puts "Faulty BUC60842"
-} else {
- puts "BUC60842 OK"
-}
-
-set 3dviewer 1
-
+++ /dev/null
-puts "========"
-puts "BUC60843"
-puts "========"
-puts ""
-####################################################################
-## code throws an exception as: .. The exception is:0x5feff388 : StdFail_NotDone: 2d lin = lintan.
-## ThisSolution(); is not right.( the line is not tangent to circle and ellipse )
-####################################################################
-
-pload QAcommands
-
-set len_ch 4.0000000000000001e+100
-
-circle test_circle 0 0 50
-ellipse test_ellipse 460 0 150 100
-
-BUC60843 result test_circle test_ellipse 0.1
-
-set info [length $result]
-regexp {The length result is +([-0-9.+eE]+)} $info full len
-
-if { ${len} != ${len_ch} } {
- puts "Error : length is invalid"
-}
+++ /dev/null
-puts "========"
-puts "BUC60843"
-puts "========"
-puts ""
-####################################################################
-## code throws an exception as: .. The exception is:0x5feff388 : StdFail_NotDone: 2d lin = lintan.
-## ThisSolution(); is not right.( the line is not tangent to circle and ellipse )
-####################################################################
-
-pload QAcommands
-
-set len_ch 4.0000000000000001e+100
-
-ellipse test_ellipse_1 0 0 50 50
-ellipse test_ellipse_2 460 0 150 100
-
-BUC60843 result test_ellipse_1 test_ellipse_2 1.0 1.0
-
-set info [length $result]
-regexp {The length result is +([-0-9.+eE]+)} $info full len
-
-if { ${len} != ${len_ch} } {
- puts "Error : length is invalid"
-}
-
+++ /dev/null
-
-puts "============"
-puts "BUC60848"
-puts "============"
-puts ""
-
-pload QAcommands
-
-restore [locate_data_file BUC60848.brep] a
-checkshape a
-
-tcopy a res
-
-set Flag 0
-
-set Res [ catch { BUC60848 a } ]
-if { $Res != 0 } {
- invert a
- set Flag 1
- puts ""
-}
-
-if { $Flag == 1 } {
- set Res [ catch { BUC60848 a } ]
- if { $Res != 0 } {
- set Flag 2
- }
- puts ""
-}
-
-if { $Flag == 2 } {
- puts "TEST FINISHED. RESULT IS BAD. Faulty"
- puts ""
-}
-
-if { $Flag == 1 } {
- puts "TEST FINISHED. RESULT IS OK. SHAPE HAS BEEN INVERTED."
- puts ""
-}
-
-if { $Flag == 0 } {
- puts "TEST FINISHED. RESULT IS OK."
- puts ""
-}
-
+++ /dev/null
-
-puts "========"
-puts "BUC60852"
-puts "BUC60923"
-puts "========"
-
-pload QAcommands
-
-set bndbox_X1 0
-set bndbox_Y1 0
-set bndbox_Z1 0
-set bndbox_X2 30
-set bndbox_Y2 10
-set bndbox_Z2 20
-
-set point_1_1_X -20
-set point_1_1_Y -5
-set point_1_1_Z 10
-set point_1_2_X 50
-set point_1_2_Y 15
-set point_1_2_Z 10
-
-vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
-vertex vertex_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z
-
-edge edge_1 vertex_1_1 vertex_1_2
-
-puts ""
-
-set point_2_1_X -20
-set point_2_1_Y -10
-set point_2_1_Z 10
-set point_2_2_X 50
-set point_2_2_Y -10
-set point_2_2_Z 10
-
-vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
-vertex vertex_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z
-
-edge edge_2 vertex_2_1 vertex_2_2
-
-puts ""
-
-box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2
-
-
-line line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z [ expr { $point_1_1_X - $point_1_2_X } ] [ expr { $point_1_1_Y - $point_1_2_Y } ] [ expr { $point_1_1_Z - $point_1_2_Z } ]
-
-line line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z [ expr { $point_2_1_X - $point_2_2_X } ] [ expr { $point_2_1_Y - $point_2_2_Y } ] [ expr { $point_2_1_Z - $point_2_2_Z } ]
-
-puts ""
-
-set result1 [BUC60852 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
-if {${result1} != "Line that lies on edge intersects the box\n"} {
- puts "BUC60852: Error; (case 1)"
-} else {
- puts "BUC60852: OK; (case 1)"
-}
-
-puts ""
-
-set result2 [BUC60852 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
-if {${result2} != "Line that lies on edge does not intersect the box\n"} {
- puts "BUC60852: Error; (case 2)"
-} else {
- puts "BUC60852: OK; (case 2)"
-}
-
+++ /dev/null
-puts "TODO OCC12345 ALL: BUC60854: Error"
-
-puts "========"
-puts "BUC60854"
-puts "========"
-
-pload QAcommands
-
-plane test_plane
-mkface test_face test_plane 0 1 0 1
-
-vertex test_vertex_1 0 0.5 0
-vertex test_vertex_2 1 0.5 0
-edge test_edge test_vertex_1 test_vertex_2
-
-splitshape test_shape test_face test_face test_edge
-
-explode test_shape f
-
-renamevar test_shape_1 test_face
-
-vertex test_vertex_3 0.2 0.5 0
-vertex test_vertex_4 0.8 0.5 0
-edge test_edge_1 test_vertex_3 test_vertex_4
-
-vertex test_vertex_5 0 1 0
-edge test_edge_2 test_vertex_5 test_vertex_3
-
-vertex test_vertex_6 1 1 0
-edge test_edge_3 test_vertex_4 test_vertex_6
-
-BUC60854 result test_shape test_face test_edge_2 test_edge_3 @ test_edge test_edge_1
-
-erase test_plane
-
-regexp {FACE +: +([-0-9.+eE]+)} [numshapes result] full FACE_num
-
-if {${FACE_num} != 3} {
- puts "BUC60854: Error"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "BUC60868"
-puts "========"
-puts ""
-
-pload QAcommands
-
-restore [locate_data_file buc60868.brep] sh
-checkshape sh
-
-BUC60868 result sh
-checkshape result
-
-set len [llength [explode result w]]
-if { $len != 3 } {
- puts "Error : the number of curves is $len, but it should be 3."
-}
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "BUC60870"
-puts "========"
-
-pload QAcommands
-
-vertex vertex_1 0 0 0
-vertex vertex_2 0 1 0
-vertex vertex_3 0 0.3 1
-
-edge edge_1 vertex_1 vertex_2
-
-set result [BUC60870 test_result edge_1 vertex_3 2.0]
-
-if {[llength ${result}] < 4} {
- puts "BUC60870: Error; must be 3 solutions"
-} else {
- set MinimumDistance [dval test_result_val]
- set TheorMinimumDistance 1.0
- set percent_max 1.0
- set percent [expr abs(${MinimumDistance} - ${TheorMinimumDistance}) / ${TheorMinimumDistance} * 100.]
- if {${percent} > ${percent_max}} {
- puts "MinimumDistance=${MinimumDistance}"
- puts "TheorMinimumDistance=${TheorMinimumDistance}"
- puts "percent=${percent}"
- puts "percent_max=${percent_max}"
- puts "BUC60870: Error; bad value of minimum distance"
- } else {
- puts "BUC60870: OK"
- }
-}
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "BUC60889"
-puts "BUC60947"
-puts "========"
-
-pload QAcommands
-
-set bndbox_X1 0
-set bndbox_Y1 0
-set bndbox_Z1 0
-set bndbox_X2 30
-set bndbox_Y2 10
-set bndbox_Z2 20
-
-set point_1_1_X -30
-set point_1_1_Y -10
-set point_1_1_Z 5
-set point_1_2_X -30
-set point_1_2_Y -10
-set point_1_2_Z 15
-
-set point_1_3_X -15
-set point_1_3_Y -5
-set point_1_3_Z 5
-
-set dx_1 [ expr { $point_1_3_X - $point_1_1_X } ]
-set dy_1 [ expr { $point_1_3_Y - $point_1_1_Y } ]
-set dz_1 [ expr { $point_1_3_Z - $point_1_1_Z } ]
-
-point point_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
-point point_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z
-polyline p_line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $point_1_2_X $point_1_2_Y $point_1_2_Z
-vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
-vertex vertex_1_2 $point_1_3_X $point_1_3_Y $point_1_3_Z
-edge edge_1 vertex_1_1 vertex_1_2
-
-puts ""
-
-set point_2_1_X 30
-set point_2_1_Y 10
-set point_2_1_Z -5
-set point_2_2_X 30
-set point_2_2_Y 10
-set point_2_2_Z -15
-
-set point_2_3_X 0
-set point_2_3_Y 10
-set point_2_3_Z -5
-
-set dx_2 [ expr { $point_2_3_X - $point_2_1_X } ]
-set dy_2 [ expr { $point_2_3_Y - $point_2_1_Y } ]
-set dz_2 [ expr { $point_2_3_Z - $point_2_1_Z } ]
-
-point point_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
-point point_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z
-polyline p_line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z $point_2_2_X $point_2_2_Y $point_2_2_Z
-vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
-vertex vertex_2_2 $point_2_3_X $point_2_3_Y $point_2_3_Z
-edge edge_2 vertex_2_1 vertex_2_2
-
-puts ""
-
-box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2
-
-
-line line_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $dx_1 $dy_1 $dz_1
-line line_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z $dx_1 $dy_1 $dz_1
-
-line line_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z $dx_2 $dy_2 $dz_2
-line line_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z $dx_2 $dy_2 $dz_2
-
-puts ""
-
-set result1 [BUC60889 point_1_1 point_1_2 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
-
-if {${result1} != "The band intersects the box\n"} {
- puts "BUC60889: Error; (case 1)"
-} else {
- puts "BUC60889: OK; (case 1)"
-}
-
-puts ""
-
-set result2 [BUC60889 point_2_1 point_2_2 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
-
-if {${result2} != "The band lies out of the box\n"} {
- puts "BUC60889: Error; (case 2)"
-} else {
- puts "BUC60889: OK; (case 2)"
-}
-
-
+++ /dev/null
-puts "========"
-puts "BUC60890"
-puts "========"
-puts ""
-#####################################################
-## The Extrema raises when the number of C2 intervals is greater that 16.
-#####################################################
-
-set poles { { 0 0 1 } { 1 0 1 } { 1.3 1 1 } { 2 1 1 } { 2 0 1 } { 3 0 1} { 3.5 1 1 } { 4 1 1 } { 4 0 1 } { 5 0 1 } { 5 1 1 } { 6 1 1 } { 6 0 1 } { 7 0 1 } { 7 1 1 } { 8 1 1 } { 8 0 1 } { 9 0 1 } }
-set knots { { 0 2 } { 1 1 } { 2 1 } { 3 1 } { 4 1 } { 5 1 } { 6 1 } { 7 1 } { 8 1 } { 9 1 } { 10 1 } { 11 1 } { 12 1 } { 13 1 } { 14 1 } { 15 1 } { 16 1 } {17 2 } }
-
-eval 2dbsplinecurve curve_1 1 [ llength $knots] [ join $knots ] [ join $poles ]
-
-circle curve_2 5.3 -0.5 2
-
-set err [llength [2dextrema curve_1 curve_2]]
-
-if {$err == 16} {
- puts "BUC60890 OK: Function 2dextrema works properly."
-} else {
- puts "Faulty BUC60890 : Function 2dextrema works wrongly."
-}
+++ /dev/null
-
-puts "============"
-puts "BUC60895"
-puts "============"
-puts ""
-##############################################################
-##If give command "sameparameter edge" on attached edge in the DRAW this command hang.
-##############################################################
-
-restore [locate_data_file BUC60895.brep] result
-
-fsameparameter result
-checkshape result
-
-set length 12.6012
-set 2dviewer 0
-
+++ /dev/null
-puts "========"
-puts "BUC60897"
-puts "========"
-
-pload QAcommands
-
-if [catch { set result [BUC60897] } ] {
- puts "BUC60897: Error; (case 1)"
-} else {
- set len [llength ${result}]
- if {${len} < 21} {
- puts "length = ${len}"
- puts "BUC60897: Error; (case 2)"
- } else {
- set circle_X [lindex ${result} 3]
- set circle_Y [lindex ${result} 5]
- set circle_R [lindex ${result} 7]
- set tangency1_X [lindex ${result} 11]
- set tangency1_Y [lindex ${result} 13]
- set tangency2_X [lindex ${result} 17]
- set tangency2_Y [lindex ${result} 19]
-
- set x1 [expr abs(${tangency1_X} - ${circle_X})]
- set y1 [expr abs(${tangency1_Y} - ${circle_Y})]
- set R1 [expr sqrt(${x1} * ${x1} + ${y1} * ${y1})]
-
- set x2 [expr abs(${tangency2_X} - ${circle_X})]
- set y2 [expr abs(${tangency2_Y} - ${circle_Y})]
- set R2 [expr sqrt(${x2} * ${x2} + ${y2} * ${y2})]
-
- set maxdelta 1.0
- set delta_R1 [expr abs(${R1} - ${circle_R}) / ${circle_R} * 100.]
- set delta_R2 [expr abs(${R2} - ${circle_R}) / ${circle_R} * 100.]
-
- if {${delta_R1} > ${maxdelta}} {
- puts "circle_X = ${circle_X}"
- puts "circle_Y = ${circle_Y}"
- puts "circle_R = ${circle_R}"
- puts "tangency1_X = ${tangency1_X}"
- puts "tangency1_Y = ${tangency1_Y}"
- puts "x1 = ${x1}"
- puts "y1 = ${y1}"
- puts "R1 = ${R1}"
- puts "delta_R1 = ${delta_R1}"
- puts "maxdelta = ${maxdelta}"
- puts "BUC60897: Error; (case 3)"
- } else {
- puts "BUC60897: OK; (case 1)"
- }
-
- if {${delta_R2} > ${maxdelta}} {
- puts "circle_X = ${circle_X}"
- puts "circle_Y = ${circle_Y}"
- puts "circle_R = ${circle_R}"
- puts "tangency2_X = ${tangency2_X}"
- puts "tangency2_Y = ${tangency2_Y}"
- puts "x2 = ${x2}"
- puts "y2 = ${y2}"
- puts "R2 = ${R2}"
- puts "delta_R2 = ${delta_R2}"
- puts "maxdelta = ${maxdelta}"
- puts "BUC60897: Error; (case 4)"
- } else {
- puts "BUC60897: OK; (case 2)"
- }
-
- }
-}
-
-set 3dviewer 0
-
-
+++ /dev/null
-puts "========"
-puts "BUC60902"
-puts "========"
-
-pload QAcommands
-
-set info [BUC60902]
-
-if { [regexp "First tangent is OK" $info] != 1 && [regexp "Last tangent is OK" $info] != 1 } {
- puts "Error : Result is invalid"
-}
-
-
-
+++ /dev/null
-
-puts "============"
-puts "BUC60911"
-puts "============"
-
-#####################################################
-## Bad value of the volume of the shape.
-#####################################################
-
-restore [locate_data_file BUC60911.brep] result
-invert result
-
-set square 16353.8
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "BUC60924"
-puts "========"
-puts ""
-
-##################################################
-## ShapeAnalysisStd_Curve::IsPlanar works incorrectly with a conic curve.
-##################################################
-
-pload QAcommands
-
-ellipse el 0 0 1 20 10
-
-set result1 [BUC60924 el 0 0 1]
-
-if {${result1} != "The curve is planar !\n"} {
- puts "BUC60924: Error"
-} else {
- puts "BUC60924: OK"
-}
-
-set 3dviewer 1
-
+++ /dev/null
-puts "========"
-puts "BUC60941"
-puts "========"
-puts ""
-############################################################
-## When try to use Geom2dGcc_Circ2d2TanRad with two curves it rise exception.
-############################################################
-
-circle curve_1 1.79356127430613 -11.9148900515605 12.0491272292007
-
-set poles { { 0 0 1 } { -2.14533906935467 4.92056269221697 1 } { -0.537398638327716 10.0937503357781 1 } { 10.3564232507092 8.73929826869582 1 } { 16.6366922939454 3.11858911810943 1 } { 16.39 -0.262 1 } }
-set knots { { 0 4 } { 8.6971225126475 1 } { 16.903955884905 1 } { 28.0087167558108 4 } }
-
-eval 2dbsplinecurve curve_2 3 [ llength $knots ] [ join $knots ] [ join $poles ]
-
-if [catch {cirtang result curve_1 curve_2 2} catch_result] {
- puts "Faulty BUC60941: function cirtang works wrongly"
-} else {
- puts "BUC60941 OK: function cirtang works properly"
-}
+++ /dev/null
-
-puts "==========="
-puts " BUC60955"
-puts "==========="
-
-puts "Restoring face from file"
-restore [locate_data_file buc60955.brep] result
-checkshape result
-
-build3d result
-
-set square 8464.65
-set 2dviewer 0
-
+++ /dev/null
-
-puts "==========="
-puts " BUC60960"
-puts "==========="
-
-proc do_offsets {i} {
- global c c1 c2 c3 c4 c5
-
- set poles {{0 0 1} {0 1 1} {1 1 1} {1 0 1} {2 0 1} {2 -1 1} {1 -1 1} \
- {1 -2 1} {0 -2 1} {0 -1 1} {-1 -1 1} {-1 0 1}}
- set knots {{0 1} {1 1} {2 1} {3 1} {4 1} {5 1} {6 1} {7 1} {8 1} {9 1} \
- {10 1} {11 1} {12 1}}
- eval 2dpbsplinecurve c 3 [llength $knots] [join $knots] [join $poles]
-
-
- if [catch {offset c1 c 0.1}] {puts "while creating c1 at step $i"}
- if [catch {offset c2 c 0.2}] {puts "while creating c2 at step $i"}
- if [catch {offset c3 c 0.3}] {puts "while creating c3 at step $i"}
- if [catch {offset c4 c 0.4}] {puts "while creating c4 at step $i"}
- if [catch {offset c5 c 0.5}] {puts "while creating c5 at step $i"}
- if [catch {offset c6 c 0.6}] {puts "while creating c6 at step $i"}
- if [catch {offset c7 c 0.7}] {puts "while creating c7 at step $i"}
- if [catch {offset c8 c 0.8}] {puts "while creating c8 at step $i"}
-}
-
-for {set i 0} {$i < 10} {incr i} {
- do_offsets $i
-}
-
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60965"
-puts "========================"
-
-restore [locate_data_file buc60965-c.draw] c
-restore [locate_data_file buc60965-s.draw] s
-
-project result c s
-
-regexp {The+ length+ result+ is +([-0-9.+eE]+)} [length result] full len
-set y [expr 3.e5+int(1.e5*($len-round($len)))]
-
-if { $y != 314196.0 } {
- puts "Results is incorrect"
-}
-
-set 2dviewer 0
-
-
-
-
-
-
+++ /dev/null
-
-puts "========"
-puts "BUC60967"
-puts "========"
-puts ""
-
-restore [locate_data_file buc60967.draw] bs2
-
-to3d result bs2
-
-set 3dviewer 0
-
-
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60968"
-puts "========================"
-
-restore [locate_data_file buc60968-c.draw] c
-restore [locate_data_file buc60968-s1.draw] s1
-
-set che [extrema c s1]
-set err [llength $che]
-if { $err == 0} {
- puts "Error : command extrema does NOT work properly"
-}
-
-
-
+++ /dev/null
-
-puts "========="
-puts "BUC61006"
-puts "========="
-puts ""
-#########################################################
-## Checkshape says that face is valid but it inludes selfintersecting wire.
-#########################################################
-
-restore [locate_data_file buc61006.brep] result
-decho off
-set ch [checkshape result]
-decho on
-
-if {![string compare $ch "This shape seems to be valid"]} {
- puts "Error : the checkshape command returns incorrect result."
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: An exception was caught"
-puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
-
-puts "================"
-puts "BUC60961"
-puts "OCC103"
-puts "================"
-puts ""
-
-circle c 0 0 10
-to3d c1 c
-
-offset o c -2
-catch {to3d result o}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "================"
-puts "OCC1048"
-puts "================"
-puts ""
-
-pload QAcommands
-
-restore [locate_data_file OCC1048.brep] result
-
-set list [OCC1048 result]
-
-set NBTRIANGLES 0
-regexp {Info: +Number +of +triangles += +([-0-9.+eE]+)} $list full NBTRIANGLES
-
-if { ${NBTRIANGLES} > 0 } {
- puts "OCC1048: OK"
-} else {
- puts "OCC1048: Error"
-}
-
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "================"
-puts "BUC61026"
-puts "OCC105"
-puts "================"
-puts ""
-
-pload QAcommands
-
-restore [locate_data_file OCC105.brep] result
-checkshape result
-
-if [catch { OCC105 result} ] {
- puts "Error : BUC61032"
-} else {
- puts "BUC61032: OK"
-}
-
-set 3dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "BUC61032"
-puts "OCC106"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC106-1.draw] sh1
-#### checkshape sh1 # - not a topological shape
-restore [locate_data_file OCC106-2.draw] sh2
-#### checkshape sh2 # - not a topological shape
-
-trimv s1 sh1 -1000 1000
-trimv s2 sh2 -1000 1000
-
-if [catch {intersect res s1 s2} result] {
-set mistake 1
-} else {
-set mistake 0
-}
-
-if { $mistake == 0 } {
- puts ""
- set nom 0
- set j 1
- repeat 10 {
- set che [whatis res_$j]
- set che1 [whatis res_$j]
- set err [lindex $che [expr [llength $che] - 1]]
- set err1 [lindex $che1 [expr [llength $che1] - 2]]
-
- if { $err != "curve" && $err1 != "3d"} {
- break
- } else {
- set nom [expr $nom + 1]
- }
- incr j}
- if { $nom == 0} {
- puts "1) Faulty OCC106: Intersection was made WRONGLY"
-} else {
- puts [format "1) OCC106 OK : Intersection command works properly: %s curves" $nom]
- puts ""
-}
-} else {
- puts "1) Faulty OCC106: Intersection was made WRONGLY"
-}
-
-if [catch {intersect rrs sh1 sh2} result] {
-set mistake 1
-} else {
-set mistake 0
-}
-
-if { $mistake == 0 } {
- puts ""
- set nom 0
- set j 1
- repeat 10 {
- set che [whatis rrs_$j]
- set che1 [whatis rrs_$j]
- set err [lindex $che [expr [llength $che] - 1]]
- set err1 [lindex $che1 [expr [llength $che1] - 2]]
-
- if { $err != "curve" && $err1 != "3d"} {
- break
- } else {
- set nom [expr $nom + 1]
- }
- incr j}
- if { $nom == 0} {
- puts "2) Faulty OCC106: Intersection was made WRONGLY"
-} else {
- puts [format "2) OCC106 OK : Intersection command works properly: %s curves" $nom]
-}
-} else {
- puts "2) Faulty OCC106: Intersection was made WRONGLY"
-}
-
+++ /dev/null
-puts "============"
-puts "OCC10604"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10604
-
-puts "Load first shape ..."
-restore [locate_data_file OCC10604-1.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC10604-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcommon result
-checkshape result
-puts "Finish boolean operation ..."
-
-set square 585.072
-
-# Analysis of "nbshapes res"
-set nb_v_good 6
-set nb_e_good 12
-set nb_w_good 5
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 31
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10604"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10604
-
-puts "Load first shape ..."
-restore [locate_data_file OCC10604-1.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC10604-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopfuse result
-checkshape result
-puts "Finish boolean operation ..."
-
-set square 808.713
-
-# Analysis of "nbshapes res"
-set nb_v_good 8
-set nb_e_good 15
-set nb_w_good 8
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 41
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC10604"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10604
-
-puts "Load first shape ..."
-restore [locate_data_file OCC10604-1.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC10604-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopcut result
-checkshape result
-puts "Finish boolean operation ..."
-
-set square 893.394
-
-# Analysis of "nbshapes res"
-set nb_v_good 7
-set nb_e_good 15
-set nb_w_good 6
-set nb_f_good 5
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 36
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC10604"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10604
-
-puts "Load first shape ..."
-restore [locate_data_file OCC10604-1.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC10604-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-boptuc result
-checkshape result
-puts "Finish boolean operation ..."
-
-set square 500.39
-
-# Analysis of "nbshapes res"
-set nb_v_good 7
-set nb_e_good 12
-set nb_w_good 7
-set nb_f_good 7
-set nb_sh_good 2
-set nb_sol_good 2
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 38
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC10604"
-puts "============"
-puts ""
-#######################################################################
-# Fuse Fails
-#######################################################################
-
-set BugNumber OCC10604
-
-puts "Load first shape ..."
-restore [locate_data_file OCC10604-1.brep] b1
-puts "Load second shape ..."
-restore [locate_data_file OCC10604-2.brep] b2
-
-puts "Prepare boolean operation ..."
-bop b1 b2
-
-puts "Start boolean operation ..."
-bopsection result b1 b2
-checkshape result
-puts "Finish boolean operation ..."
-
-set length 88.9912
-
-# Analysis of "nbshapes res"
-set nb_v_good 6
-set nb_e_good 6
-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 13
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "BUC61035"
-puts "OCC107"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC107-1.brep] ee
-checkshape ee
-restore [locate_data_file OCC107-2.brep] ff
-checkshape ff
-
-distmini dd1 ee ff
-
-mkcurve cc ee
-cvalue cc 0 x y z
-vertex vv x y z
-
-distmini dd2 vv ff
-
-set d1 [dset t dd1_val]
-set d2 [dset t dd2_val]
-
-if { [expr abs([expr $d1 - $d2])] > 0.1} then {
- puts "Faulty :WRONG computation of distances."
-} else {
- puts "All is OK"
-}
-
-
-
+++ /dev/null
-puts "========================"
-puts "OCC11081"
-puts "========================"
-puts ""
-#######################################################################
-# BRepExtrema_DistShapeShape misses one of two solutions
-#######################################################################
-
-set BugNumber OCC11081
-
-# infinite line is used
-
-line ll 6834.93 -4100 500 0 0 1
-mkedge ee ll
-restore [locate_data_file OCC11081.brep] section4100
-distmini dd ee section4100
-set res_list [distmini dd ee section4100]
-set res_length [llength ${res_list}]
-puts "res_length = ${res_length}"
-
-# Resume
-puts ""
-if { ${res_length} != 3 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
+++ /dev/null
-puts "========================"
-puts "OCC11081"
-puts "========================"
-puts ""
-#######################################################################
-# BRepExtrema_DistShapeShape misses one of two solutions
-#######################################################################
-
-set BugNumber OCC11081
-
-# finite line is used
-
-line ll 6834.93 -4100 500 0 0 1
-trim trll ll -1000 -500
-mkedge tree trll
-restore [locate_data_file OCC11081.brep] section4100
-set res_list [distmini dd tree section4100]
-set res_length [llength ${res_list}]
-puts "res_length = ${res_length}"
-
-# Resume
-puts ""
-if { ${res_length} != 3 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
+++ /dev/null
-puts "================"
-puts "OCC119"
-puts "================"
-puts ""
-
-box a 100 100 100
-explode a e
-
-set mistake 0
-if [catch {blend result_1 a 50 a_10 50 a_5 50 a_12 50 a_3 } catch_result] {
- set mistake 1
-} else {
- set mistake 0
-}
-
-if { ${mistake} == 1} {
- puts " 1) OCC119 OK: BLEND was NOT created and suitable except was given."
-} else {
- puts "1) OCC119 OK: function BLEND works without suitable except"
- checkshape result_1
- explode result_1 e
-
- if { [catch {blend result_2 result_1 50 result_1_20 50 result_1_22 50 result_1_10} catch_result] } {
- puts "2) Faulty OCC119: BLEND was NOT created"
- } else {
- puts "2) BLEND OCC199 OK: BLEND was created"
- checkshape result_2
- }
-
- set che [checkshape result_2 r]
- if { [regexp {OK} $che] != 1 } {
- puts "Faulty : mistakes are found in shape by checkshape command after BLEND command"
- puts " Body of the scripts was not executed !"
- } else {
- puts "Checking by checkshape - OK"
-
- vinit
- vdisplay result_2
- vsetdispmode result_2 1
- vfit
-
- explode result_2 e
- blend result result_2 50 result_2_20 50 result_2_22 50 result_2_10
- set only_screen 1
- }
-}
+++ /dev/null
-
-puts "================"
-puts "OCC12"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC12.brep] f
-checkshape f
-
-mksurface su f
-clpoles su
-emptycopy f1 f
-vertex v 0 -170.63226587036002 82.2373635024
-don su v
-distmini d1 v f1
-if [expr [dval d1_val] > 0.01] {
- set res "failed"
- puts "Error : Result is incorrect"
-} else {
- set res "OK"
-}
-puts "Info: test $res, distance=[dval d1_val]"
-
+++ /dev/null
-puts "TODO ?OCC12345 ALL: OCC12522: Faulty"
-
-puts "========"
-puts "OCC12522"
-puts "========"
-puts ""
-###########################################################
-# Extrema problems. Case: one of the Extrema arguments is an infinite face or an infinite edge.
-###########################################################
-
-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 BugNumber OCC12522
-
-restore [locate_data_file OCC12522.brep] arc1
-explode arc1 e
-mkcurve curve1 arc1_1
-
-plane plane1 6400 -4000 -160 0 0 1 1 0 0
-
-extrema curve1 plane1
-
-set percent_max 0.1
-set good_length 8.3705138910905177
-
-set ext_1_length [lindex [length ext_1] 4]
-
-set length_percent [GetPercent ${ext_1_length} ${good_length}]
-puts "length_percent = ${length_percent}"
-
-if {${length_percent} > ${percent_max}} {
- puts "${BugNumber}: Faulty"
-} else {
- puts "${BugNumber}: OK"
-}
+++ /dev/null
-
-puts "================"
-puts "OCC126"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC126-1.brep] sh1
-checkshape sh1
-
-restore [locate_data_file OCC126-2.brep] sh2
-checkshape sh2
-
-compound sh1 sh2 result
-
-set square 560.774
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC12635"
-puts "============"
-puts ""
-#######################################################################
-# Bugs in projector algorithm
-#######################################################################
-
-set BugNumber OCC12635
-
-restore [locate_data_file OCC12635_s1.draw] s1
-restore [locate_data_file OCC12635_c1.draw] c1
-
-set BugStatus 0
-if [catch { project result c1 s1 } ] {
- set BugStatus 1
-}
-
-# Resume
-puts ""
-if { ${BugStatus} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC12635"
-puts "============"
-puts ""
-#######################################################################
-# Bugs in projector algorithm
-#######################################################################
-
-set BugNumber OCC12635
-
-restore [locate_data_file OCC12635_s6.draw] s6
-restore [locate_data_file OCC12635_c18.draw] c18
-
-set BugStatus 0
-if [catch { project result c18 s6 } ] {
- set BugStatus 1
-}
-
-# Resume
-puts ""
-if { ${BugStatus} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC12884"
-puts "============"
-puts ""
-#######################################################################
-# Wrong result of projection curve on surface
-#######################################################################
-
-set BugNumber OCC12884
-
-restore [locate_data_file OCC12884_s2.draw] s2
-restore [locate_data_file OCC12884_c1.draw] c1
-
-set BugStatus 0
-if [catch { project result c1 s2 } ] {
- set BugStatus 1
-}
-
-# Resume
-puts ""
-if { ${BugStatus} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC12888"
-puts "============"
-puts ""
-#######################################################################
-# Wrong result of projection curve on surface
-#######################################################################
-
-set BugNumber OCC12888
-
-restore [locate_data_file OCC12888_s1.draw] s1
-restore [locate_data_file OCC12888_c2.draw] c2
-
-set BugStatus 0
-if [catch { project result c2 s1 } ] {
- set BugStatus 1
-}
-
-# Resume
-puts ""
-if { ${BugStatus} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC13"
-puts "================"
-puts ""
-##################################################
-## It is impossible to intersect two surfaces
-##################################################
-
-restore [locate_data_file OCC13-1.draw] su1
-############### checkshape su1 # is not a topological shape
-restore [locate_data_file OCC13-2.draw] su2
-############### checkshape su2 # is not a topological shape
-
-#Try to intersect two surfaces with tolerance 0.1
-#note that distance between shapes is about 0.005942345501409
-
-catch {intersect res su1 su2 0.1 } result
-set nom 0
- set j 1
- repeat 10 {
- set che [whatis res_$j]
- set che1 [whatis res_$j]
- set err [lindex $che [expr [llength $che] - 1]]
- set err1 [lindex $che1 [expr [llength $che1] - 2]]
-
- if { $err != "curve" && $err1 != "3d"} {
- break
- } else {
- set nom [expr $nom + 1]
- }
- incr j}
-if { $nom == 0} {
- puts "Error : Intersection was made WRONGLY"
-}
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC130"
-puts "================"
-puts ""
-######################################################
-## Draw Environment: No intersection found between a specific surface and a line
-######################################################
-
-restore [locate_data_file OCC130.brep] sh
-checkshape sh
-
-line l -120 -100 400 0 0 1
-mksurface surf sh
-############## checkshape surf # - not a topological shape
-
-
-if [catch {intersect res l surf } result] {
-set mistake 1
-} else {
-set mistake 0
-}
-
-if { $mistake == 0} {
- puts "OCC130 OK : intersection found between a specific surface and a line"
- puts ""
- set nom 0
- set j 1
- repeat 10 {
- set che [whatis res_$j]
- set err [lindex $che [expr [llength $che] - 1]]
-
- if { $err != "point"} {
- break
- } else {
- set nom [expr $nom + 1]
- }
- incr j}
- if { $nom != 2 && $nom != 0} {
- puts [format "Faulty OCC130: Intersection was made WRONGLY: %s points" $nom]
-} else {
- puts [format "OCC130 OK : Intersection command works properly: %s points" $nom]
-}
-
-} else {
- puts "Faulty OCC130 : NO intersection found between a specific surface and a line"
-}
-
+++ /dev/null
-
-puts "================"
-puts "SAM1225"
-puts "OCC134"
-puts "================"
-puts ""
-####################################
-## Faces from attached file are impossible to extrude.
-####################################
-
-restore [locate_data_file OCC134-1.brep] sh
-checkshape sh
-
-prism result sh 100 100 100
-checkshape result
-
-set square 104057
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "SAM1225"
-puts "OCC134"
-puts "================"
-puts ""
-###########################################################
-## Faces from attached file are impossible to extrude.
-###########################################################
-
-restore [locate_data_file OCC134-2.brep] sh
-checkshape sh
-
-prism result sh 100 100 100
-checkshape result
-
-set square 271859
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC135"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC135.brep] sh
-checkshape sh
-
-sewing result 1 sh
-checkshape result
-
-set square 273837
-set 2dviewer 0
-
-
-
+++ /dev/null
-puts "================"
-puts "OCC139"
-puts "================"
-puts ""
-#######################################
-## The intersection must be closed . So the curve is wrong.
-#######################################
-
-restore [locate_data_file OCC139-1.draw] sh1
-restore [locate_data_file OCC139-2.draw] sh2
-
-if { ![catch {intersect result sh1 sh2} catch_result] } {
- puts "OCC139 OK : intersection found"
- regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num
- if { $num != 0 } {
- puts "Faulty OCC139: Intersection was made WRONGLY. The curve must be closed ."
- } else {
- puts "OCC139 OK : Intersection command works properly. The curve is closed"
- }
-} else {
- puts "Faulty OCC139 : NO intersection found"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "==========="
-puts "OCC13904"
-puts "==========="
-######################################################
-# Exception during "filling" operation
-######################################################
-
-set BugNumber OCC13904
-
-circle c 0 100 100 0 1 1 50
-ellipse el 0 0 0 0 1 1 100 50
-
-set mistake 0
-if [catch { appsurf result c el } res] {
- set mistake 1
- puts "Faulty ${BugNumber}: filling problem"
-} else {
- puts "Filling ${BugNumber} OK"
- set What [whatis result]
- if { [regexp "surface" $What] != 1 } {
- set mistake 1
- } else {
- set mistake 0
- }
-}
-
-# Resume
-puts ""
-if { ${mistake} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
+++ /dev/null
-
-puts "================"
-puts "OCC141"
-puts "================"
-puts ""
-###############################################
-## exception while do segment operation on BSpline curve.
-###############################################
-
-restore [locate_data_file OCC141.draw] result
-#### checkshape res # not a topological shape
-
-segment result -4.76283758432072e-05 1.06458532027221
-
-#let's the segment is displaied only
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC1416"
-puts "============"
-puts ""
-######################################################
-# Shading mode doesn't work on a face of the model
-######################################################
-
-restore [locate_data_file OCC1416.brep] result
-
-# Clean mesh
-isos result 0
-tclean result
-
-#Creating mesh
-incmesh result 0.01
-
-#View the result of mesh
-triangles result
-
-##############################################
-if { [catch { set tri_info [trinfo result] } catch_result] } {
-##############################################
- puts "Faulty OCC1416"
-} else {
- set ll [ llength ${tri_info} ]
- if {${ll} < 6} {
- puts "Faulty OCC1416"
- } else {
- regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
- regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
- if { $tri == 0 || $nod == 0 } {
- puts "Faulty OCC1416"
- } else {
- puts "Warning: OCC1416 looks like OK, but visual checking is required !!!!"
- }
- }
-}
-
-set square 863.938
-set 3dviewer 1
+++ /dev/null
-puts "================"
-puts "BUC60654"
-puts "OCC143"
-puts "================"
-puts ""
-######################################################################
-## Raises exception "Standard_NotImplemented3" in GCPnts_AbscissaPoint on a Geom2d_OffsetCurve
-######################################################################
-
-set len_expected 4.e100
-line line_2d 0 0 1 1
-
-offset result line_2d 10 1 0
-
-set info [length $result]
-regexp {The length result is +([-0-9.+eE]+)} $info full len
-
-checkreal "Length" $len $len_expected 0. 1e-10
+++ /dev/null
-puts "============"
-puts "OCC14376"
-puts "============"
-puts ""
-#######################################################################
-# Shading triangulation of face is not computed
-#######################################################################
-
-pload QAcommands
-
-restore [locate_data_file OCC14376.brep] Face_8
-OCC14376 Face_8
-
+++ /dev/null
-puts "========"
-puts "OCC145"
-puts "========"
-
-pload QAcommands
-
-OCC145 [locate_data_file OCC145.brep] 1
-
-set listmem {}
-set i_max 10000
-OCC145 [locate_data_file OCC145.brep] ${i_max}
-
-lappend listmem [expr [meminfo w] / 1024]
-if { [checktrend $listmem 0 1 "Memory leak detected"] } {
- puts "No memory leak, $i iterations"
- break
-}
-
+++ /dev/null
-puts "========================"
-puts "OCC14782"
-puts "========================"
-puts ""
-#######################################################################
-# Method segment works wrongly for periodical BSpline curve
-#######################################################################
-
-set BugNumber OCC14782
-
-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}
-}
-
-
-restore [locate_data_file OCC14782.draw] res
-
-bounds res t1 t2
-set bounds_list [dump res]
-
-puts ""
-if { [llength ${bounds_list}] < 7 } {
- puts "Bad bounds_list"
- puts "Faulty ${BugNumber}"
-} else {
- set periodic_type [lindex ${bounds_list} 6]
- puts "periodic_type=${periodic_type}"
- if { ${periodic_type} != "periodic" } {
- puts "1. Faulty ${BugNumber}"
- } else {
- puts "1. OK ${BugNumber}"
- }
-}
-
-set ll1 [lindex [length res] end]
-puts "length1=${ll1}"
-
-segment res t3 t4
-set segment_list [dump res]
-
-puts ""
-if { [llength ${segment_list}] < 7 } {
- puts "Bad segment_list"
- puts "Faulty ${BugNumber}"
-} else {
- set periodic_type [lindex ${segment_list} 6]
- puts "periodic_type=${periodic_type}"
- if { ${periodic_type} != "periodic" } {
- puts "2. OK ${BugNumber}"
- } else {
- puts "2. Faulty ${BugNumber}"
- }
-}
-
-set ll2 [lindex [length res] end]
-puts "length2=${ll2}"
-
-set percent_max 0.1
-set length_percent [GetPercent ${ll1} ${ll2}]
-puts "length_percent = ${length_percent}"
-
-puts ""
-if { ${length_percent} > ${percent_max} } {
- puts "3. Faulty ${BugNumber}"
-} else {
- puts "3. OK ${BugNumber}"
-}
-
+++ /dev/null
-
-puts "================"
-puts "OCC15"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC15.brep] result
-
-checkshape result
-
-vinit
-tclean result
-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
-
-#($tri != 5370,$nod != 2783)($tri != 5356,$nod != 2774)($tri != 5354,$nod != 2773),aki251103
-if { ($tri != 5643 || $nod != 2915) } {
- puts "Shady OCC15 : shading problem may be, nb tri & nod were changed"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "================"
-puts "OCC150"
-puts "SAM1048"
-puts "OCC53"
-puts "================"
-puts ""
-################################################################
-## SAM1048. Crash with all memory exhausted at attempt to fuse two solids in the file attached.
-################################################################
-## Segmentation violation detected during Fuse operation
-################################################################
-
-puts ""
-puts "Bug's advancement"
-puts "#################"
-puts ""
-puts "Customer version Development version"
-puts "Status : CLOSED Status : CLOSED"
-puts "Resolution : LIMITATION Resolution : LIMITATION"
-puts "Leave as CLOSED LIMITATION Leave as CLOSED LIMITATION"
-puts ""
-
-restore [locate_data_file OCC150_compsolid_nofuse.brep] sh
-explode sh
-
-checkshape sh_1
-checkshape sh_2
-
-bfuse result sh_1 sh_2
-checkshape result
-
-set square 700
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "================"
-puts "OCC150"
-puts "SAM1048"
-puts "OCC53"
-puts "================"
-puts ""
-################################################################
-## SAM1048. Crash with all memory exhausted at attempt to fuse two solids in the file attached.
-################################################################
-## Segmentation violation detected during Fuse operation
-################################################################
-puts ""
-puts "Bug's advancement"
-puts "#################"
-puts ""
-puts "Customer version Development version"
-puts "Status : CLOSED Status : CLOSED"
-puts "Resolution : LIMITATION Resolution : LIMITATION"
-puts "Leave as CLOSED LIMITATION Leave as CLOSED LIMITATION"
-puts ""
-
-restore [locate_data_file OCC150_compsolid_nofuse.brep] sh
-explode sh
-
-checkshape sh_1
-checkshape sh_2
-
-bfuse result sh_2 sh_1
-checkshape result
-
-set square 700
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC151"
-puts "SAM1141"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC3-1.brep] sh1
-restore [locate_data_file OCC3-2.brep] sh2
-
-checkshape sh1
-checkshape sh2
-
-bfuse result sh1 sh2
-checkshape result
-
-set square 11400
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC151"
-puts "SAM1141"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC3-1.brep] sh1
-restore [locate_data_file OCC3-2.brep] sh2
-
-checkshape sh1
-checkshape sh2
-
-bfuse result sh2 sh1
-checkshape result
-
-set square 11400
-set 2dviewer 0
-
+++ /dev/null
-# by apn master-master 03.12.2012
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-#puts "TODO OCC12345 ALL: An exception was caught"
-#puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
-#puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
-puts "================"
-puts "OCC152"
-puts "SAM1178"
-puts "================"
-puts ""
-#################################################################
-## SAM1178(#1871): Bad escaped result after a cut operation on the shape.
-#################################################################
-
-restore [locate_data_file OCC152.brep] sh
-explode sh
-
-checkshape sh_1
-checkshape sh_2
-
-bcut result sh_1 sh_2
-checkshape result
-
-set square 276424
-set 2dviewer 0
-
+++ /dev/null
-# by apn master-master 03.12.2012
-#puts "TODO OCC12345 ALL: An exception was caught"
-#puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
-#puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
-puts "================"
-puts "OCC152"
-puts "SAM1178"
-puts "================"
-puts ""
-#################################################################
-## SAM1178(#1871): Bad escaped result after a cut operation on the shape.
-#################################################################
-
-restore [locate_data_file OCC152.brep] sh
-explode sh
-
-checkshape sh_1
-checkshape sh_2
-
-bcut result sh_2 sh_1
-checkshape result
-
-set square 34894.3
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: triangle: Faulty OCC15519"
-puts "TODO OCC12345 ALL: node: Faulty OCC15519"
-puts "TODO OCC12345 ALL: deflection: Faulty OCC15519"
-puts "TODO OCC12345 ALL: Faulty OCC15519"
-puts "============"
-puts "OCC15519"
-puts "============"
-puts ""
-#######################################################################
-# Exception while meshing shape
-#######################################################################
-
-set BugNumber OCC15519
-
-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}
-}
-
-restore [locate_data_file OCC15519.brep] result
-tclean result
-
-set Deflection 1.
-catch {incmesh result ${Deflection} }
-
-set InfoList [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $InfoList full tri
-regexp { +([-0-9.+eE]+) +nodes} $InfoList full nod
-regexp {Maximal deflection +([-0-9.+eE]+)} $InfoList full defl
-
-if { [string compare $tcl_platform(platform) "windows"] == 0 } {
- set good_tri 96265
- set good_nod 71339
- set good_defl 27.956052399907215
-} else {
- set good_tri 95582
- set good_nod 70796
- set good_defl 0.99827404224216676
-}
-
-set percent_max 0.1
-set status 0
-
-set triangle_percent [GetPercent ${tri} ${good_tri}]
-puts "triangle_percent = ${triangle_percent}"
-if { ${triangle_percent} > ${percent_max} } {
- puts "triangle: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "triangle: OK ${BugNumber}"
-}
-
-set node_percent [GetPercent ${nod} ${good_nod}]
-puts "node_percent = ${node_percent}"
-if { ${node_percent} > ${percent_max} } {
- puts "node: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "node: OK ${BugNumber}"
-}
-
-set deflection_percent [GetPercent ${defl} ${good_defl}]
-puts "deflection_percent = ${deflection_percent}"
-if { ${deflection_percent} > ${percent_max} } {
- puts "deflection: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "deflection: OK ${BugNumber}"
-}
-
-# Resume
-puts ""
-if { ${status} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "==========="
-puts "OCC15570"
-puts "==========="
-
-set BugNumber OCC15570
-
-######################################################
-# Incorrect handling of Unicode strings
-######################################################
-
-pload XDE
-
-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}
-}
-
-igesbrep [locate_data_file OCC15570.igs] a *
-tpcompound result
-
-set BoundList [boundingstr result]
-set xmin [lindex ${BoundList} 0]
-set ymin [lindex ${BoundList} 1]
-set zmin [lindex ${BoundList} 2]
-set xmax [lindex ${BoundList} 3]
-set ymax [lindex ${BoundList} 4]
-set zmax [lindex ${BoundList} 5]
-
-set percent_max 0.1
-set good_xmin -22.500000100000001
-set good_ymin -88.366946209482094
-set good_zmin -1.0000002775557561e-07
-set good_xmax 22.500000100000001
-set good_ymax 22.776076069021901
-set good_zmax 86.12676222997429
-set status 0
-
-set xmin_percent [GetPercent ${xmin} ${good_xmin}]
-puts "xmin_percent = ${xmin_percent}"
-if { ${xmin_percent} > ${percent_max} } {
- puts "xmin: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "xmin: OK ${BugNumber}"
-}
-
-set ymin_percent [GetPercent ${ymin} ${good_ymin}]
-puts "ymin_percent = ${ymin_percent}"
-if { ${ymin_percent} > ${percent_max} } {
- puts "ymin: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "ymin: OK ${BugNumber}"
-}
-
-set zmin_percent [GetPercent ${zmin} ${good_zmin}]
-puts "zmin_percent = ${zmin_percent}"
-if { ${zmin_percent} > ${percent_max} } {
- puts "zmin: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "zmin: OK ${BugNumber}"
-}
-
-set xmax_percent [GetPercent ${xmax} ${good_xmax}]
-puts "xmax_percent = ${xmax_percent}"
-if { ${xmax_percent} > ${percent_max} } {
- puts "xmax: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "xmax: OK ${BugNumber}"
-}
-
-set ymax_percent [GetPercent ${ymax} ${good_ymax}]
-puts "ymax_percent = ${ymax_percent}"
-if { ${ymax_percent} > ${percent_max} } {
- puts "ymax: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "ymax: OK ${BugNumber}"
-}
-
-set zmax_percent [GetPercent ${zmax} ${good_zmax}]
-puts "zmax_percent = ${zmax_percent}"
-if { ${zmax_percent} > ${percent_max} } {
- puts "zmax: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "zmax: OK ${BugNumber}"
-}
-
-# Resume
-puts ""
-if { ${status} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC157"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC157.brep] wire
-checkshape wire
-
-set Tolerance 100.
-set info_result [OCC157 result wire ${Tolerance}]
-
-set ll [llength ${info_result}]
-if {${ll} < 2} {
- puts "length = ${ll}"
- puts "OCC157: Error"
-} else {
- if { [regexp {OK} $info_result] } {
- puts "OCC157: OK"
- } else {
- puts "OCC157: Error"
- }
-}
-set square 2.11095e+06
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC16"
-puts "================"
-puts ""
-
-torus a 10 10
-mkface result a
-vinit
-vdisplay result
-vsetdispmode result 1
-
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri != 2592 || $nod != 1369 } {
- puts "Faulty OCC16: here can be shading problem"
-}
-
-puts "If here is bug - face is displaied in wireframe mode"
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60775"
-puts "OCC160"
-puts "(COMMON: A and B)"
-puts "========================"
-
-restore [locate_data_file buc60775a.brep] a
-checkshape a
-restore [locate_data_file buc60775b.brep] b
-checkshape b
-
-bcommon result a b
-checkshape result
-
-set nf [llength [explode result f]]
-if {$nf < 6} {
- puts "Error : the resulting shape is unclosed!!!"
-}
-
-set square 94067.7
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60775"
-puts "OCC160"
-puts "(COMMON: B and A)"
-puts "========================"
-
-restore [locate_data_file buc60775a.brep] a
-checkshape a
-restore [locate_data_file buc60775b.brep] b
-checkshape b
-
-bcommon result b a
-checkshape result
-
-set nf [llength [explode result f]]
-if {$nf < 6} {
- puts "Error : the resulting shape is unclosed!!!"
-}
-
-set square 94067.7
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60775"
-puts "OCC160"
-puts "(FUSE: A and B)"
-puts "========================"
-
-restore [locate_data_file buc60775a.brep] a
-checkshape a
-restore [locate_data_file buc60775b.brep] b
-checkshape b
-
-bfuse result a b
-checkshape result
-
-set nf [llength [explode result f]]
-
-if {$nf < 6} {
- puts "Error : the resulting shape is unclosed!!!"
-}
-
-set square 328116
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60775"
-puts "OCC160"
-puts "(FUSE: B and A)"
-puts "========================"
-
-restore [locate_data_file buc60775a.brep] a
-checkshape a
-restore [locate_data_file buc60775b.brep] b
-checkshape b
-
-bfuse result b a
-checkshape result
-
-set nf [llength [explode result f]]
-if {$nf < 6} {
- puts "Error : the resulting shape is unclosed!!!"
-}
-
-set square 328116
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60775"
-puts "OCC160"
-puts "(CUT: A and B)"
-puts "========================"
-
-restore [locate_data_file buc60775a.brep] a
-checkshape a
-restore [locate_data_file buc60775b.brep] b
-checkshape b
-
-bcut result a b
-checkshape result
-
-set nf [llength [explode result f]]
-if {$nf < 6} {
- puts "Error : the resulting shape is unclosed!!!"
-}
-
-set square 48129.6
-set 2dviewer 0
-
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : the resulting shape is unclosed!!!"
-
-puts "========================"
-puts "BUC60775"
-puts "OCC160"
-puts "(CUT: B and A)"
-puts "========================"
-
-restore [locate_data_file buc60775a.brep] a
-checkshape a
-restore [locate_data_file buc60775b.brep] b
-checkshape b
-
-bcut result b a
-checkshape result
-
-set nf [llength [explode result f]]
-if {$nf < 6} {
- puts "Error : the resulting shape is unclosed!!!"
-}
-
-set square 247636
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========"
-puts "OCC161"
-puts "========"
-puts ""
-###########################################################
-## The face provided in attachment has single wire that is misoriented, i.e has
-## internal part outside. The checkshape command in DRAW should report that error
-## situation, while it does not.
-###########################################################
-
-restore [locate_data_file OCC161.brep] result
-
-decho off
-set che [checkshape result]
-decho on
-
-if { [regexp {Faulty} $che] != 1 } {
- puts "Faulty OCC161 : Checkshape command works wrongly"
-} else {
- puts "OCC161 OK : Checkshape command works properly"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC12345 ALL: OCC16119: Faulty"
-puts "============"
-puts "OCC16119"
-puts "============"
-puts ""
-#######################################################################
-# Bug in GeomFill_Coons algorithm
-#######################################################################
-
-set BugNumber OCC16119
-
-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}
-}
-
-restore [locate_data_file OCC16119-c1.draw] c1
-restore [locate_data_file OCC16119-c2.draw] c2
-restore [locate_data_file OCC16119-c31.draw] c31
-restore [locate_data_file OCC16119-c32.draw] c32
-restore [locate_data_file OCC16119-c41.draw] c41
-restore [locate_data_file OCC16119-c42.draw] c42
-restore [locate_data_file OCC16119-cv.draw] cv
-
-fillcurves s11 c1 c41 cv c31
-fillcurves s12 cv c42 c2 c32
-
-svalue s11 .5 .5 x1 y1 z1 dux1 duy1 duz1 dvx1 dvy1 dvz1
-svalue s12 .5 .5 x2 y2 z2 dux2 duy2 duz2 dvx2 dvy2 dvz2
-
-set deltaX [dval dvx1-dvx2]
-set deltaY [dval dvy1-dvy2]
-set deltaZ [dval dvz1-dvz2]
-
-set percent_max 0.1
-set good_deltaX 4.4408920985006262e-015
-set good_deltaY -4.6629367034256575e-015
-set good_deltaZ -2.6645352591003757e-015
-
-set deltaX_percent [GetPercent ${deltaX} ${good_deltaX}]
-puts "deltaX_percent = ${deltaX_percent}"
-
-set deltaY_percent [GetPercent ${deltaY} ${good_deltaY}]
-puts "deltaY_percent = ${deltaY_percent}"
-
-set deltaZ_percent [GetPercent ${deltaZ} ${good_deltaZ}]
-puts "deltaZ_percent = ${deltaZ_percent}"
-
-if {${deltaX_percent} > ${percent_max} || ${deltaY_percent} > ${percent_max} || ${deltaZ_percent} > ${percent_max} } {
- puts "${BugNumber}: Faulty"
-} else {
- puts "${BugNumber}: OK"
-}
-
+++ /dev/null
-
-puts "========"
-puts "OCC163"
-puts "========"
-puts ""
-###########################################################
-## The result of extrema command is not correct.
-## We have only two "max" extrema, but we should have "min" and "max".
-###########################################################
-
-restore [locate_data_file OCC130.brep] res
-
-checkshape res
-
-line l -120 -100 400 0 0 1
-mksurface s res
-
-set che [extrema l s]
-set err [llength $che]
-if { $err < 2} {
- puts "Error OCC163 (amount): command extrema does NOT work properly"
-}
-
-set dum1 [dump [lindex $che 0]]
-set dum2 [dump [lindex $che 1]]
-
-if { $dum1 == $dum2} {
- puts "Error OCC163 (dump): command extrema does NOT work properly"
-}
-
+++ /dev/null
-
-puts "================"
-puts "OCC164"
-puts "SAM1478"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC164-1.brep] sh1
-restore [locate_data_file OCC164-2.brep] sh2
-checkshape sh1
-checkshape sh2
-
-bfuse result sh1 sh2
-checkshape result
-
-set square 344595
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC164"
-puts "SAM1478"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC164-1.brep] sh1
-restore [locate_data_file OCC164-2.brep] sh2
-checkshape sh1
-checkshape sh2
-
-bfuse result sh2 sh1
-checkshape result
-
-set square 344595
-set 2dviewer 0
-
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty OCC1651"
-
-pload QAcommands
-
-puts "============"
-puts "OCC1651"
-puts "============"
-puts ""
-######################################################
-# No intersection found using BRepClass3d_Intersector3d
-######################################################
-
-restore [locate_data_file OCC1651.brep] face
-
-checkshape face
-
-set PntX 164.6207
-set PntY -105.2869
-set PntZ 557.8805
-set DirX 0.5774
-set DirY -0.5774
-set DirZ 0.5774
-
-if { [catch { set PointList [OCC1651 face ${PntX} ${PntY} ${PntZ} ${DirX} ${DirY} ${DirZ}] } catch_result] } {
- puts "Faulty OCC1651"
-} else {
- set ll [ llength ${PointList} ]
- if {${ll} != 3} {
- puts "Faulty OCC1651"
- } else {
- set IntersectionPointX [lindex ${PointList} 0]
- set IntersectionPointY [lindex ${PointList} 1]
- set IntersectionPointZ [lindex ${PointList} 2]
-
- set good_IntersectionPointX 42.6199
- set good_IntersectionPointY 16.7139
- set good_IntersectionPointZ 435.88
-
- set X_percent [expr abs(${IntersectionPointX} - ${good_IntersectionPointX}) / double(${good_IntersectionPointX}) * 100.]
- set Y_percent [expr abs(${IntersectionPointY} - ${good_IntersectionPointY}) / double(${good_IntersectionPointY}) * 100.]
- set Z_percent [expr abs(${IntersectionPointZ} - ${good_IntersectionPointZ}) / double(${good_IntersectionPointZ}) * 100.]
-
- set percent_max 0.1
-
- set IsGood 1
- if {${X_percent} > ${percent_max}} {
- puts "OCC1651 Faulty"
- set IsGood 0
- }
- if {${Y_percent} > ${percent_max}} {
- puts "OCC1651 Faulty"
- set IsGood 0
- }
- if {${Z_percent} > ${percent_max}} {
- puts "OCC1651 Faulty"
- set IsGood 0
- }
- if {${IsGood} == 1} {
- puts "OCC1651 OK"
- }
- }
-}
-
-
+++ /dev/null
-puts "========"
-puts "OCC165"
-puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
-puts "========"
-
-restore [locate_data_file offset_wire_019.brep] a
-checkshape a
-
-mkplane f a
-checkshape f
-
-set IsGood 1
-if [catch {mkoffset res1 f 1 1 } result] {
- puts "Faulty OCC165 (case 1) : function MKOFFSET works wrongly"
- set IsGood 0
-} else {
- puts "OCC165 OK (case 1): function MKOFFSET works properly"
- checkshape res1_1
- mkplane pl1 res1_1
- checkshape pl1
-}
-
-if [catch {mkoffset res2 f 1 -1 } result] {
- puts "Faulty OCC165 (case 2) : function MKOFFSET works wrongly"
- set IsGood 0
-} else {
- puts "OCC165 OK (case 2): function MKOFFSET works properly"
- checkshape res2_1
- mkplane pl2 res2_1
- checkshape pl2
-}
-
-if {$IsGood == 1} {
- compound a res1_1 res2_1 res
-
- regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_1] full len
-
- set good_len 1088.43
- set percent_max 0.1
- set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
-
- puts "good_len = ${good_len}"
- puts "length = ${len}"
- puts "percent = ${percent}"
-
- if {${percent} > ${percent_max}} {
- puts "Faulty OCC165 (case 3) : function MKOFFSET works wrongly"
- set IsGood 0
- }
-
- regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_1] full len
-
- set good_len 1075.87
- set percent_max 0.1
- set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
-
- puts "good_len = ${good_len}"
- puts "length = ${len}"
- puts "percent = ${percent}"
-
- if {${percent} > ${percent_max}} {
- puts "Faulty OCC165 (case 4) : function MKOFFSET works wrongly"
- set IsGood 0
- }
-
- if {$IsGood == 1} {
- puts "OCC165 OK"
- } else {
- puts "OCC165 FAULTY"
- }
-
-} else {
- puts "OCC165 FAULTY"
-}
-
+++ /dev/null
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
- puts "TODO OCC12345 ALL: An exception was caught"
- puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
- puts "TODO OCC12345 ALL: OCC165 Faulty"
-}
-
-puts "========"
-puts "OCC165"
-puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
-puts "========"
-
-restore [locate_data_file offset_wire_019.brep] a
-checkshape a
-
-mkplane f a
-checkshape f
-
-set IsGood 1
-if [catch {mkoffset res1 f 1 4.8 } result] {
- set IsGood 0
-} else {
- puts "OCC165 OK (case 1): function MKOFFSET works properly"
- checkshape res1_1
- mkplane pl1 res1_1
- checkshape pl1
-}
-
-if [catch {mkoffset res2 f 1 -2.9 } result] {
- set IsGood 0
-} else {
- puts "OCC165 OK (case 2): function MKOFFSET works properly"
- checkshape res2_1
- mkplane pl2 res2_1
- checkshape pl2
-}
-
-if {$IsGood == 1} {
- compound a res1_1 res2_1 res
-
- regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_1] full len
-
- set good_len 1112.29
- set percent_max 0.1
- set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
-
- puts "good_len = ${good_len}"
- puts "length = ${len}"
- puts "percent = ${percent}"
-
- if {${percent} > ${percent_max}} {
- set IsGood 0
- }
-
- regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_1] full len
-
- set good_len 1063.91
- set percent_max 0.1
- set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
-
- puts "good_len = ${good_len}"
- puts "length = ${len}"
- puts "percent = ${percent}"
-
- if {${percent} > ${percent_max}} {
- set IsGood 0
- }
-
- if {$IsGood == 1} {
- puts "OCC165 OK"
- } else {
- puts "OCC165 Faulty"
- }
-
-} else {
- puts "OCC165 Faulty"
-}
+++ /dev/null
-
-puts "========"
-puts "OCC165"
-puts "========"
-
-restore [locate_data_file OCC165-2.brep] f
-checkshape f
-
-set IsGood 1
-if [catch {mkoffset res1 f 3 10 } result] {
- puts "Faulty OCC165 (case 1) : function MKOFFSET works wrongly"
- set IsGood 0
-} else {
- #puts "OCC165 OK (case 1): function MKOFFSET works properly"
- mkplane pl1_1 res1_1
- checkshape pl1_1
- mkplane pl1_2 res1_2
- checkshape pl1_2
- mkplane pl1_3 res1_3
- checkshape pl1_3
-}
-
-if [catch {mkoffset res2 f 3 -10 } result] {
- puts "Faulty OCC165 (case 2) : function MKOFFSET works wrongly"
- set IsGood 0
-} else {
- #puts "OCC165 OK (case 2): function MKOFFSET works properly"
- mkplane pl2_1 res2_1
- checkshape pl2_1
- mkplane pl2_2 res2_2
- checkshape pl2_2
- mkplane pl2_3 res2_3
- checkshape pl2_3
-}
-
-if {$IsGood == 1} {
- compound f res1_1 res1_2 res1_3 res2_1 res2_2 res2_3 res
-
- regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_1] full len
-
- set good_len 462.832
- set percent_max 0.1
- set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
-
- puts "good_len = ${good_len}"
- puts "length = ${len}"
- puts "percent = ${percent}"
-
- if {${percent} > ${percent_max}} {
- puts "Faulty OCC165 (case 3) : function MKOFFSET works wrongly"
- set IsGood 0
- }
-
- regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_2] full len
-
- set good_len 525.664
- set percent_max 0.1
- set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
-
- puts "good_len = ${good_len}"
- puts "length = ${len}"
- puts "percent = ${percent}"
-
- if {${percent} > ${percent_max}} {
- puts "Faulty OCC165 (case 4) : function MKOFFSET works wrongly"
- set IsGood 0
- }
-
- regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_3] full len
-
- set good_len 588.496
- set percent_max 0.1
- set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
-
- puts "good_len = ${good_len}"
- puts "length = ${len}"
- puts "percent = ${percent}"
-
- if {${percent} > ${percent_max}} {
- puts "Faulty OCC165 (case 5) : function MKOFFSET works wrongly"
- set IsGood 0
- }
-
- regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_1] full len
-
- set good_len 320
- set percent_max 0.1
- set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
-
- puts "good_len = ${good_len}"
- puts "length = ${len}"
- puts "percent = ${percent}"
-
- if {${percent} > ${percent_max}} {
- puts "Faulty OCC165 (case 6) : function MKOFFSET works wrongly"
- set IsGood 0
- }
-
- regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_2] full len
-
- set good_len 240
- set percent_max 0.1
- set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
-
- puts "good_len = ${good_len}"
- puts "length = ${len}"
- puts "percent = ${percent}"
-
- if {${percent} > ${percent_max}} {
- puts "Faulty OCC165 (case 7) : function MKOFFSET works wrongly"
- set IsGood 0
- }
-
- regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_3] full len
-
- set good_len 160
- set percent_max 0.1
- set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
-
- puts "good_len = ${good_len}"
- puts "length = ${len}"
- puts "percent = ${percent}"
-
- if {${percent} > ${percent_max}} {
- puts "Faulty OCC165 (case 8) : function MKOFFSET works wrongly"
- set IsGood 0
- }
-
- if {$IsGood == 1} {
- puts "OCC165 OK"
- } else {
- puts "OCC165 FAULTY"
- }
-
-} else {
- puts "OCC165 FAULTY"
-}
+++ /dev/null
-puts "============"
-puts "OCC16833"
-puts "============"
-puts ""
-#######################################################################
-# Error in Coons algorithm
-#######################################################################
-
-set BugNumber OCC16833
-
-restore [locate_data_file OCC16833-c1.draw] c1
-restore [locate_data_file OCC16833-c2.draw] c2
-restore [locate_data_file OCC16833-c3.draw] c3
-restore [locate_data_file OCC16833-c4.draw] c4
-
-set mistake 0
-if [catch { fillcurves result c1 c2 c3 c4 } res] {
- set mistake 1
- puts "Faulty ${BugNumber}: filling problem"
-} else {
- puts "Filling ${BugNumber} OK"
- set What [whatis result]
- if { [regexp "surface" $What] != 1 } {
- set mistake 1
- } else {
- set mistake 0
- }
-}
-
-# Resume
-puts ""
-if { ${mistake} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC17: here can be shading problem"
-
-puts "================"
-puts "OCC17"
-puts "================"
-puts ""
-
-#####################################################
-puts " Solid_14 will be the face which is unvisible during displaying entire solid."
-#####################################################
-
-restore [locate_data_file OCC17.brep] sh
-
-checkshape sh
-
-explode sh f
-renamevar sh_14 result
-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 != 100 && $nod != 94 } {
- puts "Faulty OCC17: here can be shading problem"
-}
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "============"
-puts "OCC17046"
-puts "============"
-puts ""
-#######################################################################
-# Exception in Extrema_ExtPS on Mandriva2006 32-bits
-#######################################################################
-
-set BugNumber OCC17046
-
-# Create ellipsoidal surface
-ellipse ell 0 0 300 1 0 0 150 100
-mkedge ell_e ell
-wire ell_w ell_e
-mkplane ell_f ell_w 1
-
-box ell_t -10 -110 140 20 110 460
-cut ell_d ell_f ell_t
-
-revol ell_z ell_d 0 0 0 0 0 1 360
-explode ell_z F
-mksurface su1 ell_z_1
-
-# Perform projection
-set BugStatus 0
-if [catch { proj su1 0 100 300 } ] {
- set BugStatus 1
-}
-
-# Resume
-puts ""
-if { ${BugStatus} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
+++ /dev/null
-pload QAcommands
-
-puts "============"
-puts "OCC17424"
-puts "============"
-puts ""
-######################################################
-# IntCurvesFace_ShapeIntersector does not find intersection point
-######################################################
-
-set BugNumber OCC17424
-
-restore [locate_data_file OCC17424.brep] a
-
-set X_Pnt 86.960439048069262
-set Y_Pnt 1028.2863798310484
-set Z_Pnt -266.58526583558000
-
-set X_Dir 0.25881904510252074
-set Y_Dir 0
-set Z_Dir -0.96592582628906831
-
-set PInf 0.
-
-set aStatusList [OCC17424 a ${X_Pnt} ${Y_Pnt} ${Z_Pnt} ${X_Dir} ${Y_Dir} ${Z_Dir} ${PInf}]
-regexp {OCC17424 status = +([-0-9.+eE]+)} ${aStatusList} full aStatus
-
-if { ${aStatus} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
+++ /dev/null
-
-puts "========"
-puts "OCC175"
-puts "========"
-puts ""
-###########################################
-## ABug of a symmetry on this specific attached BREP shape.
-###########################################
-
-restore [locate_data_file OCC175.brep] result
-checkshape result
-
-regexp {SHAPE +: +([-0-9.+eE]+)} [nbshapes result] full col1
-
-tmirror result 0 0 0 0 1 0
-
-regexp {SHAPE +: +([-0-9.+eE]+)} [nbshapes result] full col2
-if { $col1 != $col2} {
- puts "Error : Command mirror does NOT work properly. "
-}
-
-set square 13091.3
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC183 "
-puts "(case 1)"
-puts "========================"
-puts ""
-
-restore [locate_data_file f1] b1
-checkshape b1
-
-restore [locate_data_file f4] b2
-checkshape b2
-
-bcommon result b1 b2
-checkshape result
-
-set square 315.159
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC183 "
-puts "(case 2)"
-puts "========================"
-puts ""
-
-restore [locate_data_file so1] b1
-checkshape b1
-
-restore [locate_data_file so4] b2
-checkshape b2
-
-bfuse result b1 b2
-checkshape result
-
-set square 942.478
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC183 "
-puts "(case 3)"
-puts "========================"
-puts ""
-
-restore [locate_data_file so1] b1
-checkshape b1
-
-restore [locate_data_file so4] b2
-checkshape b2
-
-bcut result b1 b2
-checkshape result
-
-set square 863.938
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC183 "
-puts "(case 4)"
-puts "========================"
-puts ""
-
-restore [locate_data_file so1] b1
-checkshape b1
-
-restore [locate_data_file so2] b2
-checkshape b2
-
-bcommon result b1 b2
-checkshape result
-
-set square 392.699
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC183 "
-puts "(case 5)"
-puts "========================"
-puts ""
-
-restore [locate_data_file so4] b1
-checkshape b1
-
-restore [locate_data_file so2] b2
-checkshape b2
-
-bcommon result b1 b2
-checkshape result
-
-set square 198.863
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC183 "
-puts " CTS16184"
-puts "(case 6)"
-puts "========================"
-puts ""
-
-restore [locate_data_file CTO900_cts16184a.rle] a
-checkshape a
-restore [locate_data_file cts16184b.brep] b
-checkshape b
-
-bop a b
-bopfuse result a b
-checkshape -top result
-
-set square 0.0892544
-set 2dviewer 0
-
-
+++ /dev/null
-puts "============"
-puts "OCC18541"
-puts "============"
-puts ""
-#######################################################################
-# Problem with GCPnts_UniformAbscissa class
-#######################################################################
-
-set BugNumber OCC18541
-
-restore [locate_data_file OCC18541.brep] b-curve
-
-set NbPoints 10
-
-mkcurve res b-curve
-
-set ResList [uniformAbscissa res ${NbPoints}]
-
-if {[llength ${ResList}] > 15} {
- set CasCurve_NbPoints [lindex ${ResList} 15]
- puts "NbPoints = ${NbPoints} CasCurve_NbPoints = ${CasCurve_NbPoints}"
- if { ${CasCurve_NbPoints} != ${NbPoints} } {
- puts "Faulty ${BugNumber}"
- } else {
- puts "OK ${BugNumber}"
- }
-} else {
- puts "Faulty ${BugNumber} : Bad draw command"
-}
-
+++ /dev/null
-puts "============"
-puts "OCC18541"
-puts "============"
-puts ""
-#######################################################################
-# Problem with GCPnts_UniformAbscissa class
-#######################################################################
-
-set BugNumber OCC18541
-
-set maxR 100
-set minR 50
-set NbPoints 10
-
-set ResList [uniformAbscissaEl ${maxR} ${minR} ${NbPoints}]
-
-if {[llength ${ResList}] > 15} {
- set CasCurve_NbPoints [lindex ${ResList} 15]
- puts "NbPoints = ${NbPoints} CasCurve_NbPoints = ${CasCurve_NbPoints}"
- if { ${CasCurve_NbPoints} != ${NbPoints} } {
- puts "Faulty ${BugNumber}"
- } else {
- puts "OK ${BugNumber}"
- }
-} else {
- puts "Faulty ${BugNumber} : Bad draw command"
-}
+++ /dev/null
-
-puts "================"
-puts "OCC187"
-puts "SAM1230"
-puts "================"
-puts ""
-
-#################################################################
-## In time document with "1-exhaust.brep" imported shape saving exception "Access Violation"
-## raises because of wrong PColgp_HArray1 allocation.
-## StandardCSFDB_Allocate badly allocates memory blocks: bad address value retuned.
-#################################################################
-
-restore [locate_data_file OCC187_from_bug_description.brep] result
-
-set 2dviewer 0
+++ /dev/null
-
-puts "============"
-puts "BUC60929"
-puts "OCC188"
-puts "============"
-
-restore [locate_data_file BUC60929.brep] a
-
-explode a
-checkshape a_1
-checkshape a_2
-
-bcommon result a_1 a_2
-checkshape result
-
-set square 3739.26
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC188"
-puts "================"
-puts ""
-
-restore [locate_data_file BUC60929.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bcut result a_1 a_2
-checkshape result
-
-set square 669659
-set 2dviewer 0
-
+++ /dev/null
-puts "========"
-puts "OCC19777"
-puts "========"
-puts ""
-######################################################
-# FIP:Integration of new version of read/write VRML2.0 files
-######################################################
-
-set BugNumber OCC19777
-
-if [catch { restore [locate_data_file OCC19777.brep] result} catch_result] {
- puts "Error ${BugNumber}: there is reading problem"
-} else {
-
-set nb_v_good 0
-set nb_e_good 0
-set nb_w_good 0
-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 1
-
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC20: here is shading problem"
-
-puts "================"
-puts "OCC20"
-puts "================"
-puts ""
-###############################
-## Face apearence in shading mode is wrong
-###############################
-
-pload QAcommands
-restore [locate_data_file OCC20.brep] result
-
-checkshape result
-
-tclean result
-vinit
-vdisplay result
-vsetdispmode result 1
-
-vviewparams 5.1346924 95.358439 -4.910448 0.23495967 -0.302 0.923899 -0.7304302 0.5722587 0.372815 9.550874 -7.55706 -28.83166
-
-isos result 0
-triangles result
-
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri != 416 || $nod != 367 } {
- puts "Faulty OCC20: here is shading problem"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC203"
-puts "========"
-
-set dx 100
-set dy 100
-set dz 100
-
-box b ${dx} ${dy} ${dz}
-
-renamevar b edge
-explode edge e
-
-renamevar edge face
-explode face f
-
-set radis 5
-set angle 45
-
-chamf result1 face edge_1 face_3 A ${radis} ${angle}
-
-explode result1 e
-
-decho off
-if { [catch {fillet result result1 ${radis} result1_1 ${radis} result1_7 } catch_result] } {
- set mistake 1
-} else {
- set mistake 0
-}
-decho on
-
-if { $mistake != 0} {
- puts "OK OCC203"
- puts "Filet can not be created"
-} else {
- puts "Faulty OCC203: function FILLET works wrongly"
- checkshape result
-}
-
-
+++ /dev/null
-puts "============"
-puts "OCC20391"
-puts "============"
-puts ""
-#######################################################################
-# Shape deforming via 3 scale factors raises error.Appendix for IPAL20387
-#######################################################################
-
-set BugNumber OCC20391
-
-restore [locate_data_file bug19811_VanneMP_supports_tiges_V3.brep] a
-
-if [catch {deform result a 2 2 2}] {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set square 2.71197e+07
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts "OCC20404"
-puts "========================"
-puts ""
-#######################################################################
-# Command distmini gives wrong result for given shapes
-#######################################################################
-
-set BugNumber OCC20404
-
-restore [locate_data_file OCC20404-line1.brep] e1
-restore [locate_data_file OCC20404-line2.brep] e2
-
-distmini d e1 e2
-puts "Distance=[dval d_val]"
-
-if [expr [dval d_val] > 7.e-13] {
- set status 1
-} else {
- set status 0
-}
-
-# Resume
-puts ""
-if { ${status} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
+++ /dev/null
-puts "========================"
-puts "OCC20524"
-puts "========================"
-puts ""
-#######################################################################
-# Wrong intersection
-#######################################################################
-
-set BugNumber OCC20524
-
-restore [locate_data_file OCC20524-surf1.draw] surf1
-restore [locate_data_file OCC20524-surf2.draw] surf2
-
-intersect result surf1 surf2
-
-set che [whatis result]
-if { ![regexp {3d curve} $che] } {
- puts "Faulty ${BugNumber}: command INTERSECT works wrongly"
-} else {
- puts "${BugNumber} OK : command INTERSECT works properly"
-}
-
+++ /dev/null
-puts "========================"
-puts "OCC20616"
-puts "========================"
-puts ""
-#######################################################################
-# Failed to save/restore [locate_data_file empty] face
-#######################################################################
-
-set BugNumber OCC20616
-
-set mistake 0
-foreach t {V E W F Sh So CS C} {
- puts "shape type $t"
- shape test $t
- if [catch {save test $imagedir/${test_image}.brep}] {
- puts "Faulty ${BugNumber} save $t"
- set mistake 1
- } else {
- puts "OK ${BugNumber} save $t"
- }
- if [catch {restore $imagedir/${test_image}.brep test}] {
- puts "Faulty ${BugNumber} restore $t"
- set mistake 1
- } else {
- puts "OK ${BugNumber} restore $t"
- }
-}
-
-if {${mistake} !=0} {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC20627"
-puts "========"
-puts ""
-#######################################################################
-# Memory leaks in BRepMesh
-#######################################################################
-
-set BugNumber OCC20627
-
-OCC20627 1
-
-set listmem {}
-set i_max 10000
-OCC20627 ${i_max}
-
-lappend listmem [expr [meminfo w] / 1024]
-if { [checktrend $listmem 0 1 "Memory leak detected"] } {
- puts "No memory leak"
- break
-}
-
-
-
-
+++ /dev/null
-puts "========================"
-puts "OCC20683"
-puts "Customer : TATA"
-puts "========================"
-puts ""
-#######################################################################
-# BRepExtrema_ExtCC produces incomplete result.
-#######################################################################
-
-set BugNumber OCC20683
-
-# finite line is used
-line ll 6834.93 -4100 500 0 0 1
-trim trll ll -1000 -500
-mkedge tree trll
-
-restore [locate_data_file OCC20683_circ1.brep] e1
-restore [locate_data_file OCC20683_circ2.brep] e2
-
-set res_list [distmini d e1 e2]
-set res_length [llength ${res_list}]
-puts "res_length = ${res_length}"
-
-# Resume
-puts ""
-if { ${res_length} != 3 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
+++ /dev/null
-pload QAcommands
-
-puts "============"
-puts "OCC20766"
-puts "============"
-puts ""
-#######################################################################
-# Intersection of cone with plane in apex point crashes
-#######################################################################
-
-set BugNumber OCC20766
-
-OCC20766 plane 1 0 0 3522.4299999999998
-
-set x -3522.4299999999998
-set y 2540
-set z -1461.4300000000001
-set dx 5449.7857099692965
-set dy 0
-set dz 5537.6938973109054
-set PI180 0.017453292519943295
-set semi-angle [expr 0.46689346637921703 / ${PI180}]
-set radius 0.
-
-cone c ${x} ${y} ${z} ${dx} ${dy} ${dz} ${semi-angle} ${radius}
-
-if [catch { intersect result plane c } ] {
- puts "Faulty ${BugNumber} : intersect is wrong"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC20823"
-puts "============"
-puts ""
-#######################################################################
-# BRepFilletAPI_MakeFillet2d fails to build a chamfer
-#######################################################################
-
-set BugNumber OCC20823
-
-restore [locate_data_file OCC20823.brep] a
-mkplane f a
-explode f e
-
-if [catch { chfi2d result f f_1 f_2 CDD 10. 10. } ] {
- puts "Faulty ${BugNumber} : chfi2d is wrong"
-} else {
-set length 267.795
-
-set nb_v_good 4
-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 9
-
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC20904"
-puts "============"
-puts ""
-#######################################################################
-# BRepBuilderAPI_Sewing produces a shape with big tolerance
-#######################################################################
-
-set BugNumber OCC20904
-
-restore [locate_data_file bug20904_face_bas.brep] a
-
-set tolerance_in 1.e-6
-set tolerance_out ${tolerance_in}
-sewing result ${tolerance_in} a
-
-set tolerance_list [maxtolerance result]
-
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxVertexTolerance
-
-set status 0
-
-if { ${MaxFaceTolerance} > ${tolerance_out} } {
- set status 1
- puts "Max Face Tolerance is bad"
-}
-
-if { ${MaxEdgeTolerance} > ${tolerance_out} } {
- set status 1
- puts "Max Edge Tolerance is bad"
-}
-
-if { ${MaxVertexTolerance} > ${tolerance_out} } {
- set status 1
- puts "Max Vertex Tolerance is bad"
-}
-
-# Resume
-puts ""
-if { ${status} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set square 30078.9
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20904"
-puts "============"
-puts ""
-#######################################################################
-# BRepBuilderAPI_Sewing produces a shape with big tolerance
-#######################################################################
-
-set BugNumber OCC20904
-
-restore [locate_data_file bug20904_Shell_argument.brep] a
-
-set tolerance_in 1.e-6
-set tolerance_out ${tolerance_in}
-sewing result ${tolerance_in} a
-
-set tolerance_list [maxtolerance result]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxVertexTolerance
-
-set status 0
-
-if { ${MaxFaceTolerance} > ${tolerance_out} } {
- set status 1
- puts "Max Face Tolerance is bad"
-}
-
-if { ${MaxEdgeTolerance} > ${tolerance_out} } {
- set status 1
- puts "Max Edge Tolerance is bad"
-}
-
-if { ${MaxVertexTolerance} > ${tolerance_out} } {
- set status 1
- puts "Max Vertex Tolerance is bad"
-}
-
-# Resume
-puts ""
-if { ${status} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set square 1.33253e+06
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC20904"
-puts "============"
-puts ""
-#######################################################################
-# BRepBuilderAPI_Sewing produces a shape with big tolerance
-#######################################################################
-
-set BugNumber OCC20904
-
-restore [locate_data_file bug20904_face_bas.brep] a
-restore [locate_data_file bug20904_Shell_argument.brep] b
-
-set tolerance_in 1.e-6
-set tolerance_out 1.e-5
-sewing result ${tolerance_in} a b
-
-set tolerance_list [maxtolerance result]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxFaceTolerance
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxEdgeTolerance
-regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxVertexTolerance
-
-set status 0
-
-if { ${MaxFaceTolerance} > ${tolerance_out} } {
- set status 1
- puts "Max Face Tolerance is bad"
-}
-
-if { ${MaxEdgeTolerance} > ${tolerance_out} } {
- set status 1
- puts "Max Edge Tolerance is bad"
-}
-
-if { ${MaxVertexTolerance} > ${tolerance_out} } {
- set status 1
- puts "Max Vertex Tolerance is bad"
-}
-
-# Resume
-puts ""
-if { ${status} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set square 1.36261e+06
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty OCC21121"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC21121"
-puts "============"
-puts ""
-#######################################################################
-# Triangulation on face is not built
-#######################################################################
-
-set BugNumber OCC21121
-
-restore [locate_data_file OCC21121.brep] result
-
-tclean result
-
-set Deflection 0.1
-catch {incmesh result ${Deflection} }
-
-set tri_info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
-regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
-regexp {deflection +([-0-9.+eE]+)} $tri_info full defl
-
-if { [string compare $tcl_platform(platform) "windows"] == 0 } {
- puts "OS = Windows NT"
- set good_tri 1555
- set good_nod 1475
- set good_defl 3.5015692105840144e-06
-} else {
- puts "OS = Linux"
- set good_tri 1555
- set good_nod 1475
- set good_defl 3.5015692105840144e-06
-}
-
-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 status 0
-
-set triangle_percent [GetPercent ${tri} ${good_tri}]
-puts "triangle_percent = ${triangle_percent}"
-if { ${triangle_percent} > ${percent_max} } {
- puts "triangle: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "triangle: OK ${BugNumber}"
-}
-
-set node_percent [GetPercent ${nod} ${good_nod}]
-puts "node_percent = ${node_percent}"
-if { ${node_percent} > ${percent_max} } {
- puts "node: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "node: OK ${BugNumber}"
-}
-
-set deflection_percent [GetPercent ${defl} ${good_defl}]
-puts "deflection_percent = ${deflection_percent}"
-if { ${deflection_percent} > ${percent_max} } {
- puts "deflection: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "deflection: OK ${BugNumber}"
-}
-
-# Resume
-puts ""
-if { ${status} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set square 0
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty OCC21122"
-
-puts "============"
-puts "OCC21122"
-puts "============"
-puts ""
-#######################################################################
-# Incremental mesh error
-#######################################################################
-
-set BugNumber OCC21122
-
-restore [locate_data_file OCC21122.brep] result
-
-tclean result
-
-set Deflection 0.1
-catch {incmesh result ${Deflection} }
-
-set tri_info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
-regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
-regexp {Maximal deflection +([-0-9.+eE]+)} $tri_info full defl
-
-
-if { [string compare $tcl_platform(platform) "windows"] == 0 } {
- set good_tri 4322
- set good_nod 4324
- set good_defl 8.8817872205847652e-16
- puts "OS = Windows NT"
-} else {
- puts "OS = Linux"
- set good_tri 4322
- set good_nod 4324
- set good_defl 8.8817872205847652e-16
-}
-
-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 status 0
-
-set triangle_percent [GetPercent ${tri} ${good_tri}]
-puts "triangle_percent = ${triangle_percent}"
-if { ${triangle_percent} > ${percent_max} } {
- puts "triangle: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "triangle: OK ${BugNumber}"
-}
-
-set node_percent [GetPercent ${nod} ${good_nod}]
-puts "node_percent = ${node_percent}"
-if { ${node_percent} > ${percent_max} } {
- puts "node: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "node: OK ${BugNumber}"
-}
-
-set deflection_percent [GetPercent ${defl} ${good_defl}]
-puts "deflection_percent = ${deflection_percent}"
-if { ${deflection_percent} > ${percent_max} } {
- puts "deflection: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "deflection: OK ${BugNumber}"
-}
-
-set square 275.426
-
-set nb_v_good 964
-set nb_e_good 964
-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 1931
-
-if { ${status} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-vinit
-vdisplay result
-vsetdispmode 1
-vfit
-
-set only_screen 1
-
+++ /dev/null
-
-puts "========"
-puts "OCC211"
-puts "========"
-
-##########################################
-##Error of fillet prolongation.
-##########################################
-
-restore [locate_data_file OCC211.brep] a
-
-explode a e
-
-blend result a 10 a_24
-checkshape result
-
-set square 1.34399e+06
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC211"
-puts "========"
-
-##########################################
-##Error of fillet prolongation.
-##########################################
-
-restore [locate_data_file OCC211.brep] a
-
-explode a e
-
-blend result a 10 a_4
-checkshape result
-
-set square 1.34399e+06
-set 2dviewer 0
+++ /dev/null
-puts "========"
-puts "OCC21292"
-puts "========"
-puts ""
-######################################################
-# Shading on large model too long
-######################################################
-
-set BugNumber OCC21292
-
-# 1 munite
-cpulimit 60
-
-restore [locate_data_file OCC21292.brep] result
-
-vinit
-vsetdispmode 1
-
-chrono h reset; chrono h start
-#
-# DISPLAY OPERATION ----- START
-#
-vdisplay result
-#
-# DISPLAY OPERATION ----- FINISH
-#
-chrono h stop; set CPU_time_List [chrono h show]
-
-set CPU_user_time [lindex ${CPU_time_List} 11]
-puts "CPU_user_time=${CPU_user_time}"
-
-
-set square 1.40193e+07
-set nb_v_good 372
-set nb_e_good 369
-set nb_w_good 2
-set nb_f_good 1
-set nb_sh_good 0
-set nb_sol_good 0
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 745
-
-
-if {[string compare $tcl_platform(platform) "windows"] == 0} {
- puts "windows"
- set Good_CPU_user_time 0.
-} else {
- if {[string compare $tcl_platform(os) "SunOS"] == 0} {
- puts "SunOS"
- set Good_CPU_user_time 6.
- } else {
- puts "Linux"
- set Good_CPU_user_time 6.
- }
-}
-
-# Check time boolean operation
-if {${Good_CPU_user_time} > ${CPU_user_time}} {
- puts "OK ${BugNumber} : CPU user time is good"
-} else {
- puts "Faulty ${BugNumber} : CPU user time is wrong"
-}
-
-
-set only_screen 0
+++ /dev/null
-
-puts "========"
-puts "OCC217"
-puts "========"
-
-##########################################
-##nurbsconvert problem
-##########################################
-
-box b -5 -5 -5 10 10 10
-psphere s 6
-
-bfuse result s b
-checkshape result
-
-set square 618.85
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC21858"
-puts "============"
-puts ""
-####################################
-# Visualization hangs on this face ( OCC21858.brep )
-####################################
-
-set BugNumber OCC21858
-cpulimit 40
-restore [locate_data_file OCC21858.brep] result
-
-set length 6.48642
-
-set nb_v_good 9
-set nb_e_good 10
-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 21
-
-set only_screen 0
-
-vinit
-vsetdispmode 1
-dchrono TestTimer reset
-dchrono TestTimer start
-vdisplay result
-dchrono TestTimer stop
-vfit
-puts ""
-set time_o 0.1
-set tim [ dchrono TestTimer show ]
-regexp {Elapsed time: +([-0-9.+eE]+) Hours +([-0-9.+eE]+) Minutes +([-0-9.+eE]+) Seconds} $tim full hourVDisplay minuVDisplay secoVDisplay
-
-set timVDisplay [expr $hourVDisplay * 3600 + $minuVDisplay * 60 + $secoVDisplay ]
-
-if { ${tim} < ${time_o} } {
- set chro "CHRONO : Faulty (${timVDisplay}%)"
- set status 1
- puts ${chro}
-} else {
- puts "${BugNumber} OK"
- set status 0
-}
-puts "timVDisplay = ${timVDisplay}"
-
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "OCC22043"
-puts "============"
-puts ""
-#######################################################################
-# Checkshape command does not return faulty shapes for the face. CAS63-sp10-*. Appendix to SALOME bug 002019
-#######################################################################
-
-set BugNumber OCC22043
-
-puts "Load shape ..."
-restore [locate_data_file bug22043_f181.brep] result
-
-decho off
-set che [checkshape result]
-decho on
-
-if {[regexp {Faulty} $che]} {
- puts "OK ${BugNumber} : The face f181 can not be valid because at least it contain self-intersected wire"
-} else {
- puts "Faulty ${BugNumber} : The face f181 can not be valid because at least it contain self-intersected wire"
-}
-
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty OCC22080 : The face f contains degenerated edge that is far-fetched one"
-
-puts "============"
-puts "OCC22080"
-puts "============"
-puts ""
-#######################################################################
-# Checkshape command does not return faulty shapes for the face. CAS63-sp10-*. Appendix to SALOME bug IPAL22072
-#######################################################################
-
-set BugNumber OCC22080
-
-puts "Load shape ..."
-restore [locate_data_file bug22080_fx.brep] result
-
-decho off
-set che [checkshape result]
-decho on
-
-if {[regexp {Faulty} $che]} {
- puts "OK ${BugNumber} : The face f contains degenerated edge that is far-fetched one"
-} else {
- puts "Faulty ${BugNumber} : The face f contains degenerated edge that is far-fetched one"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO ?OCC12345 ALL: An exception was caught"
-puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
-puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
-puts "============"
-puts "OCC22194"
-puts "============"
-puts ""
-#######################################################################
-# Exception in LocOpe_SplitShape algoritm
-#######################################################################
-
-# TEMPORARY TEST! NO COMPLITED!!!!!
-
-set BugNumber OCC22194
-
-restore [locate_data_file OCC22194-sh.brep] s
-restore [locate_data_file OCC22194-pl.brep] pl
-section r s pl
-explode r
-explode s F
-splitshape result s s_1 r_1 s_5 r_2 s_13 r_3 s_22 r_4 s_31 r_5 s_39 r_6 s_46 r_7 s_51 r_8 s_68 r_9 s_90 r_10 s_112 r_11 s_133 r_12 s_143 r_13 s_146 r_14 s_151 r_15 s_161 r_16 s_176 r_17 s_183 r_18 s_201 r_19 s_213 r_20 s_213 r_21 s_235 r_22 s_257 r_23 s_270 r_24 s_285 r_25 s_300 r_26 s_314 r_27
-set square 24549.6
-set 2dviewer 0
-
-
+++ /dev/null
-puts "========"
-puts "OCC22241"
-puts "========"
-puts ""
-###########################################################
-# The bug is appendix to the Salome Bug 0021148
-###########################################################
-
-set BugNumber OCC22241
-
-restore [locate_data_file bug22241_c1.draw] c1
-restore [locate_data_file bug22241_c2.draw] c2
-
-set extrema_res [extrema c1 c2]
-set extrema_length [llength ${extrema_res} ]
-
-if {${extrema_length} < 8 } {
- puts "${BugNumber}: Faulty"
-} else {
- regexp {Extrema 1 is point : +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $extrema_res full X Y Z
- set good_X 1
- set good_Y 3.0891916307971289e-33
- set good_Z 0.059999999999999998
-
- set percent_max 0.1
-
-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 X_percent [GetPercent ${X} ${good_X}]
- set Y_percent [GetPercent ${Y} ${good_Y}]
- set Z_percent [GetPercent ${Z} ${good_Z}]
-
- if {${X_percent} > ${percent_max} || ${Y_percent} > ${percent_max} || ${Z_percent} > ${percent_max}} {
- puts "X = ${X} Y = ${Y} Z = ${Z}"
- puts "X_percent = ${X_percent} Y_percent = ${Y_percent} Z_percent = ${Z_percent}"
- puts "${BugNumber}: Faulty"
- } else {
- puts "${BugNumber}: OK"
- }
-
-}
-
+++ /dev/null
-puts "============"
-puts "OCC22296"
-puts "============"
-puts ""
-#######################################################################
-# The algorithm BRepSweep_MakeRevol produce non-licit toroidal based face.
-# Appendix to the SALOME bug: IPAL22181
-#######################################################################
-
-set BugNumber OCC22296
-
-restore [locate_data_file bug22296_ring.brep] b1
-revol r b1 0.6 3 0 0 0 1 -90
-
-set E_Length [explode r f]
-
-if { ${E_Length} < 6} {
- puts "Bad format of explode draw-command"
- puts "Faulty ${BugNumber}"
-} else {
-
- copy r_2 f
-
- set good_umin 0
- set good_umax 6.28319
- set good_vmin 0
- set good_vmax 6.28319
-
- set xlist [xbounds f]
- set umin [lindex $xlist 0]
- set umax [lindex $xlist 1]
- set vmin [lindex $xlist 2]
- set vmax [lindex $xlist 3]
-
- set bad_bound 0
- if {${umin} < ${good_umin}} {
- puts "umin: ${umin} is wrong"
- set bad_bound[expr ${bad_bound} + 1]
- }
- if {${umax} > ${good_umax}} {
- puts "umax: ${umax} is wrong"
- set bad_bound [expr ${bad_bound} + 10]
- }
- if {${vmin} < ${good_vmin}} {
- puts "vmin: ${vmin} is wrong"
- set bad_bound [expr ${bad_bound} + 100]
- }
- if {${vmax} > ${good_vmax}} {
- puts "vmax: ${vmax} is wrong"
- set bad_bound [expr ${bad_bound} + 1000]
- }
-
- if {${bad_bound} > 0 } {
- puts "${BugNumber}: Faulty"
- } else {
- puts "OK ${BugNumber}"
- }
-
-}
-
+++ /dev/null
-puts "========================"
-puts "OCC22303"
-puts "========================"
-puts ""
-#######################################################################
-# The algorithm BRepExtrema_DistShapeShape crashes with exception if one of the shapes does non contain vertices
-#######################################################################
-
-set BugNumber OCC22303
-
-line ll 0 20 0 1 0 0
-mkedge ee ll
-psphere ss 10
-
-distmini dd ee ss
-puts "Distance=[dval dd_val]"
-
-if [expr [dval dd_val] - 10. > 1.e-3 ] {
- set status 1
-} else {
- set status 0
-}
-
-# Resume
-puts ""
-if { ${status} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
+++ /dev/null
-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
-
-
-
-
+++ /dev/null
-puts "================"
-puts "OCC22489"
-puts "================"
-puts ""
-#######################################################################
-# BRepClass3d_SolidClassifier::PerformInfinitePoint() gives wrong result on the given solid
-#######################################################################
-
-set BugNumber OCC22489
-
-restore [locate_data_file bug22489_Solid_2.brep] b
-
-point p 1000 1000 1000
-
-set res [split [bclassify b p] ]
-
-set ll [llength ${res}]
-if {${ll} < 4} {
- puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
-} else {
- if {[regexp {The point is OUT of shape} $res]} {
- puts "OK ${BugNumber}"
- } else {
- puts "Faulty ${BugNumber}"
- }
-}
-
+++ /dev/null
-puts "================"
-puts "OCC22489"
-puts "================"
-puts ""
-#######################################################################
-# BRepClass3d_SolidClassifier::PerformInfinitePoint() gives wrong result on the given solid
-#######################################################################
-
-set BugNumber OCC22489
-
-restore [locate_data_file bug22489_sew1.brep] s
-
-mksol b s
-
-point p 1000 1000 1000
-
-set res [split [bclassify b p] ]
-
-set ll [llength ${res}]
-if {$ll < 4} {
- puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
-} else {
- if {[regexp {The point is OUT of shape} $res]} {
- puts "OK ${BugNumber}"
- } else {
- puts "Faulty ${BugNumber}"
- }
-}
-
+++ /dev/null
-puts "================"
-puts "OCC22494"
-puts "================"
-puts ""
-#######################################################################
-# BRepClass_FaceClassifier bug (ref SALOME issue 21185)
-#######################################################################
-
-set BugNumber OCC22494
-
-restore [locate_data_file bug22494_Pb_belogToGeom_FACE.brep] Face
-
-point p -3.53254182396379145e-05 0.000877856930738714065
-
-set res [split [b2dclassify Face p] ]
-
-set ll [llength ${res}]
-if {${ll} < 4} {
- puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
-} else {
- if {[regexp {The point is ON shape} $res]} {
- puts "OK ${BugNumber}"
- } else {
- puts "Faulty ${BugNumber}"
- }
-}
-
+++ /dev/null
-puts "========"
-puts "OCC22529"
-puts "========"
-puts ""
-###########################################################
-# FitALL works incorrectly for small flat shapes
-###########################################################
-
-set BugNumber OCC22529
-
-restore [locate_data_file OCC22529.brep] result
-
-vinit
-vdisplay result
-vfit
-
-set length 0.04
-set only_screen 1
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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}"
-}
-
+++ /dev/null
-puts "==========="
-puts "OCC22694"
-puts "==========="
-######################################################
-# Wrong result obntained after GeomLib::ExtendSurfByLength
-######################################################
-
-set BugNumber OCC22694
-
-catch {pload DCAF}
-catch {pload XDE}
-
-# Create a new document and set UndoLimit
-NewDocument D
-UndoLimit D 100
-
-# Open a transaction
-NewCommand D
-
-ReadStep D [locate_data_file OCC22694-rationalSurface.stp]
-
-XGetShape sh D 0:1:1:1
-
-explode sh F
-mksurface ss sh_1
-extendsurf ss 10 2 U
-mkface result ss
-
-vdisplay sh_1
-vdisplay result
-
-vsetdispmode 1
-vfit
-
-set square 76338.8
-
-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
-
-set 2dviewer 1
-
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-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
-
+++ /dev/null
-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}"
-}
-
+++ /dev/null
-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
+++ /dev/null
-puts "TODO OCC11111 ALL: TEST INCOMPLETE"
-
-cpulimit 30
-
-puts "============"
-puts "OCC22759"
-puts "============"
-puts ""
-#######################################################################
-# Crash during shape visualization
-#######################################################################
-
-set BugNumber OCC22759
-
-catch { pload XDE }
-
-restore [locate_data_file OCC22759-weldt6.brep] result
-checkshape result
-tclean result
-
-set Deflection 0.001
-incmesh result ${Deflection}
-
-set tri_info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
-regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
-
-regexp {deflection +([-0-9.+eE]+)} $tri_info full defl
-
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-
-if { [regexp {Windows} $os ] } {
- puts "OS = Windows NT"
- set good_tri 248672
- set good_nod 127078
- set good_defl 0.0028424483708953232
-} else {
- puts "OS = Linux"
- set good_tri 248724
- set good_nod 127104
- set good_defl 0.0028424483709341111
-}
-
-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 status 0
-
-set triangle_percent [GetPercent ${tri} ${good_tri}]
-puts "triangle_percent = ${triangle_percent}"
-if { ${triangle_percent} > ${percent_max} } {
- puts "triangle: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "triangle: OK ${BugNumber}"
-}
-
-set node_percent [GetPercent ${nod} ${good_nod}]
-puts "node_percent = ${node_percent}"
-if { ${node_percent} > ${percent_max} } {
- puts "node: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "node: OK ${BugNumber}"
-}
-
-set deflection_percent [GetPercent ${defl} ${good_defl}]
-puts "deflection_percent = ${deflection_percent}"
-if { ${deflection_percent} > ${percent_max} } {
- puts "deflection: Faulty ${BugNumber}"
- set status 1
-} else {
- puts "deflection: OK ${BugNumber}"
-}
-
-# Resume
-puts ""
-if { ${status} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-vinit
-vdisplay result
-vfit
-
-vsetdispmode 1
-
-set only_screen 1
-set square 0
+++ /dev/null
-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
-
+++ /dev/null
-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
-
+++ /dev/null
-
-puts "========"
-puts "OCC227"
-puts "(case 1)"
-puts "========"
-
-##############################################################
-##Incorrect result with missing faces after a fuse operation beetween the box and the wedge.
-###############################################################
-
-restore [locate_data_file OCC227a.brep] a
-fsameparameter a
-updatetolerance a
-checkshape a
-
-restore [locate_data_file OCC227b.brep] b
-fsameparameter b
-updatetolerance b
-checkshape b
-
-bfuse result a b
-checkshape result
-
-set square 1583.92
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC227"
-puts "(case 2)"
-puts "========"
-
-##############################################################
-##Incorrect result with missing faces after a fuse operation beetween the box and the wedge.
-###############################################################
-
-restore [locate_data_file OCC227a.brep] a
-fsameparameter a
-updatetolerance a
-checkshape a
-
-restore [locate_data_file OCC227b.brep] b
-fsameparameter b
-updatetolerance b
-checkshape b
-
-bfuse result b a
-checkshape result
-
-set square 1583.92
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC228"
-puts "================"
-puts ""
-################################################
-## It's impossible to make common of the two shapes in the file attached.
-################################################
-
-cpulimit 4000
-
-restore [locate_data_file OCC228.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bcommon result a_1 a_2
-
-set square 66231.3
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "==========="
-puts "OCC22802"
-puts "==========="
-puts ""
-#######################################################################
-# The memory alloccated with an excess is not released
-#######################################################################
-
-set BugNumber OCC22802
-
-set log [bcarray]
-
-#
-#state before release the unused memory
-#Length: 10
-#FactLength: 100000
-#BlockLength: 100000
-#
-#state after release the unused memory
-#Length: 10
-#FactLength: 10
-#BlockLength: 100000
-#
-
-set linelist [split $log "\n"]
-
-set il 0
-set ifl 0
-set ibl 0
-
-set xl_0 0
-set xl_1 0
-set xfl_0 0
-set xfl_1 0
-set xbl_0 0
-set xbl_1 0
-
-foreach line $linelist {
- if { [regexp {^Length: ([-0-9.+eE]+)} $line full xl_$il] } { incr il }
- if { [regexp {FactLength: ([-0-9.+eE]+)} $line full xfl_$ifl] } { incr ifl }
- if { [regexp {BlockLength: ([-0-9.+eE]+)} $line full xbl_$ibl] } { incr ibl }
-}
-
-set status 0
-if { ${xl_0} != 10} {
- incr status
-}
-if { ${xfl_0} != 100000} {
- incr status
-}
-if { ${xbl_0} != 100000} {
- incr status
-}
-if { ${xl_1} != 10} {
- incr status
-}
-if { ${xfl_1} != 10} {
- incr status
-}
-if { ${xbl_1} != 100000} {
- incr status
-}
-
-if { ${status} != 0} {
- puts "Faulty ${BugNumber}"
-} else {
- puts "${BugNumber} OK"
-}
-
+++ /dev/null
-puts "============"
-puts "OCC22809"
-puts "============"
-puts ""
-############################################################################################################
-# BRepIntCS does not find intersections of an ellipsoid and a line passing through it's apex
-###########################################################################################################
-#
-# Test was corrected. See:
-#
-# http://tracker.dev.opencascade.org/view.php?id=23248
-# pkv (developer)
-# 2012-07-12 09:33
-# The checking can not provide stable result because there is no guarantee that coordinates
-# for brics_1 will always be {x1, y1, z1} but not {x2, y2, z2} and
-# for brics_42 will always be {x2, y2, z2} but not {x1, y1, z1}.
-# The coordinates of brics_1 can be both {x1, y1, z1} and {x2, y2, z2}
-# The coordinates of brics_42 can be both {x1, y1, z1} and {x2, y2, z2}
-#
-###########################################################################################################
-
-set BugNumber OCC22809
-
-#
-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
-#
-
-psphere a 100
-nurbsconvert r1 a
-line l 0 0 -100 0 0 1
-BRepIntCS l r1
-
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_1 ] full info1
-
-# N.B. multiple result points are to be processed by other algorithms
-# Now there are 241 result points
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_2 ] full info2
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_41 ] full info2
-
-set word1 [string compare $info1 "point"]
-set word2 [string compare $info2 "point"]
-
-set status_point 0
-
-puts "ski $word1"
-puts "ski $word2"
-if { ${word1} == 0 && ${word2} == 0 } {
- set status_point 0
-} else {
- set status_point 1
-}
-
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_3 ] full info3
-set word3 [string compare $info3 "a"]
-
-set status_nb 0
-if { ${word3} == 0 } {
- set status_nb 0
-} else {
- set status_nb 1
- # N.B. multiple result points are to be processed by other algorithms
- set status_nb 0
-}
-
-set good_x1 0.000000000000000e+00
-set good_y1 0.000000000000000e+00
-set good_z1 -1.000000000000000e+02
-
-set good_x2 0.000000000000000e+00
-set good_y2 0.000000000000000e+00
-set good_z2 1.000000000000000e+02
-
-set dump1 [ dump brics_1 ]
-regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump1 full x1 y1 z1
-
-set status_xyz1 0
-set x1_percent [GetPercent ${x1} ${good_x1}]
-puts "x1_percent = ${x1_percent}"
-if { ${x1_percent} > ${percent_max} } {
- puts "x1: Faulty ${BugNumber}"
- set status_xyz1 1
-} else {
- puts "x1: OK ${BugNumber}"
-}
-
-set y1_percent [GetPercent ${y1} ${good_y1}]
-puts "y1_percent = ${y1_percent}"
-if { ${y1_percent} > ${percent_max} } {
- puts "y1: Faulty ${BugNumber}"
- set status_xyz1 1
-} else {
- puts "y1: OK ${BugNumber}"
-}
-
-set z1_percent [GetPercent ${z1} ${good_z1}]
-puts "z1_percent = ${z1_percent}"
-if { ${z1_percent} > ${percent_max} } {
- set z1_percent [GetPercent ${z1} ${good_z2}]
- puts "z1_percent = ${z1_percent}"
- if { ${z1_percent} > ${percent_max} } {
- puts "z1: Faulty ${BugNumber}"
- set status_xyz1 1
- } else {
- puts "z1: OK ${BugNumber}"
- }
-} else {
- puts "z1: OK ${BugNumber}"
-}
-
-set dump2 [ dump brics_2 ]
-# N.B. multiple result points are to be processed by other algorithms
-set dump2 [ dump brics_41 ]
-regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump2 full x2 y2 z2
-
-set status_xyz2 0
-set x2_percent [GetPercent ${x2} ${good_x2}]
-puts "x2_percent = ${x2_percent}"
-if { ${x2_percent} > ${percent_max} } {
- puts "x2: Faulty ${BugNumber}"
- set status_xyz2 1
-} else {
- puts "x2: OK ${BugNumber}"
-}
-
-set y2_percent [GetPercent ${y2} ${good_y2}]
-puts "y2_percent = ${y2_percent}"
-if { ${y2_percent} > ${percent_max} } {
- puts "y2: Faulty ${BugNumber}"
- set status_xyz2 1
-} else {
- puts "y2: OK ${BugNumber}"
-}
-
-set z2_percent [GetPercent ${z2} ${good_z2}]
-puts "z2_percent = ${z2_percent}"
-if { ${z2_percent} > ${percent_max} } {
- set z2_percent [GetPercent ${z2} ${good_z1}]
- puts "z2_percent = ${z2_percent}"
- if { ${z2_percent} > ${percent_max} } {
- puts "z2: Faulty ${BugNumber}"
- set status_xyz2 1
- } else {
- puts "z2: OK ${BugNumber}"
- }
-} else {
- puts "z2: OK ${BugNumber}"
-}
-
-if { ${status_point} == 0 && ${status_nb} == 0 && ${status_xyz1} == 0 && ${status_xyz2} == 0 } {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
+++ /dev/null
-puts "============"
-puts "OCC22809"
-puts "============"
-puts ""
-############################################################################################################
-# BRepIntCS does not find intersections of an ellipsoid and a line passing through it's apex
-###########################################################################################################
-#
-# Test was corrected. See:
-#
-# http://tracker.dev.opencascade.org/view.php?id=23248
-# pkv (developer)
-# 2012-07-12 09:33
-# The checking can not provide stable result because there is no guarantee that coordinates
-# for brics_1 will always be {x1, y1, z1} but not {x2, y2, z2} and
-# for brics_42 will always be {x2, y2, z2} but not {x1, y1, z1}.
-# The coordinates of brics_1 can be both {x1, y1, z1} and {x2, y2, z2}
-# The coordinates of brics_42 can be both {x1, y1, z1} and {x2, y2, z2}
-#
-###########################################################################################################
-
-set BugNumber OCC22809
-
-#
-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
-#
-
-psphere a 100
-scalexyz r2 a 2 1 1
-line l 0 0 -100 0 0 1
-BRepIntCS l r2
-
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_1 ] full info1
-
-# N.B. multiple result points are to be processed by other algorithms
-# Now there are 130 result points
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_23 ] full info2
-
-set word1 [string compare $info1 "point"]
-set word2 [string compare $info2 "point"]
-
-set status_point 0
-if { ${word1} == 0 && ${word2} == 0 } {
- set status_point 0
-} else {
- set status_point 1
-}
-
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_3 ] full info3
-set word3 [string compare $info3 "a"]
-
-set status_nb 0
-if { ${word3} == 0 } {
- set status_nb 0
-} else {
- set status_nb 1
- # N.B. multiple result points are to be processed by other algorithms
- set status_nb 0
-}
-
-set good_x1 0.000000000000000e+00
-set good_y1 0.000000000000000e+00
-set good_z1 -1.000000000000000e+02
-
-set good_x2 0.000000000000000e+00
-set good_y2 0.000000000000000e+00
-set good_z2 1.000000000000000e+02
-
-set dump1 [ dump brics_1 ]
-
-regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump1 full x1 y1 z1
-
-set status_xyz1 0
-set x1_percent [GetPercent ${x1} ${good_x1}]
-puts "x1_percent = ${x1_percent}"
-if { ${x1_percent} > ${percent_max} } {
- puts "x1: Faulty ${BugNumber}"
- set status_xyz1 1
-} else {
- puts "x1: OK ${BugNumber}"
-}
-
-set y1_percent [GetPercent ${y1} ${good_y1}]
-puts "y1_percent = ${y1_percent}"
-if { ${y1_percent} > ${percent_max} } {
- puts "y1: Faulty ${BugNumber}"
- set status_xyz1 1
-} else {
- puts "y1: OK ${BugNumber}"
-}
-
-set z1_percent [GetPercent ${z1} ${good_z1}]
-puts "z1_percent = ${z1_percent}"
-if { ${z1_percent} > ${percent_max} } {
- set z1_percent [GetPercent ${z1} ${good_z2}]
- puts "z1_percent = ${z1_percent}"
- if { ${z1_percent} > ${percent_max} } {
- puts "z1: Faulty ${BugNumber}"
- set status_xyz1 1
- } else {
- puts "z1: OK ${BugNumber}"
- }
-} else {
- puts "z1: OK ${BugNumber}"
-}
-
-set dump2 [ dump brics_2 ]
-# N.B. multiple result points are to be processed by other algorithms
-set dump2 [ dump brics_23 ]
-regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump2 full x2 y2 z2
-
-set status_xyz2 0
-set x2_percent [GetPercent ${x2} ${good_x2}]
-puts "x2_percent = ${x2_percent}"
-if { ${x2_percent} > ${percent_max} } {
- puts "x2: Faulty ${BugNumber}"
- set status_xyz2 1
-} else {
- puts "x2: OK ${BugNumber}"
-}
-
-set y2_percent [GetPercent ${y2} ${good_y2}]
-puts "y2_percent = ${y2_percent}"
-if { ${y2_percent} > ${percent_max} } {
- puts "y2: Faulty ${BugNumber}"
- set status_xyz2 1
-} else {
- puts "y2: OK ${BugNumber}"
-}
-
-set z2_percent [GetPercent ${z2} ${good_z2}]
-puts "z2_percent = ${z2_percent}"
-if { ${z2_percent} > ${percent_max} } {
- set z2_percent [GetPercent ${z2} ${good_z1}]
- puts "z2_percent = ${z2_percent}"
- if { ${z2_percent} > ${percent_max} } {
- puts "z2: Faulty ${BugNumber}"
- set status_xyz2 1
- } else {
- puts "z2: OK ${BugNumber}"
- }
-} else {
- puts "z2: OK ${BugNumber}"
-}
-
-# Resume
-puts ""
-if { ${status_point} == 0 && ${status_nb} == 0 && ${status_xyz1} == 0 && ${status_xyz2} == 0 } {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
+++ /dev/null
-puts "============"
-puts "OCC22809"
-puts "============"
-puts ""
-############################################################################################################
-# BRepIntCS does not find intersections of an ellipsoid and a line passing through it's apex
-###########################################################################################################
-
-set BugNumber OCC22809
-
-#
-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
-#
-
-psphere a 100
-nurbsconvert r1 a
-line l -0.000001 0.0000000001 -100 0 0 1
-BRepIntCS l r1
-
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_1] full info1
-
-# N.B. multiple result points are to be processed by other algorithms
-# Now there are 3 result points
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_2 ] full info2
-
-set word1 [string compare $info1 "point"]
-set word2 [string compare $info2 "point"]
-
-set status_point 0
-if { ${word1} == 0 && ${word2} == 0 } {
- set status_point 0
-} else {
- set status_point 1
-}
-
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_3 ] full info3
-set word3 [string compare $info3 "a"]
-
-set status_nb 0
-if { ${word3} == 0 } {
- set status_nb 0
-} else {
- set status_nb 1
- # N.B. multiple result points are to be processed by other algorithms
- set status_nb 0
-}
-
-set dump1 [ dump brics_1 ]
-
-regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump1 full x1 y1 z1
-
-set good_x1 -1.000000000000000e-06
-set good_y1 1.000000000000000e-10
-set good_z1 -1.000000000000000e+02
-
-set status_xyz1 0
-set x1_percent [GetPercent ${x1} ${good_x1}]
-puts "x1_percent = ${x1_percent}"
-if { ${x1_percent} > ${percent_max} } {
- puts "x1: Faulty ${BugNumber}"
- set status_xyz1 1
-} else {
- puts "x1: OK ${BugNumber}"
-}
-
-set y1_percent [GetPercent ${y1} ${good_y1}]
-puts "y1_percent = ${y1_percent}"
-if { ${y1_percent} > ${percent_max} } {
- puts "y1: Faulty ${BugNumber}"
- set status_xyz1 1
-} else {
- puts "y1: OK ${BugNumber}"
-}
-
-set z1_percent [GetPercent ${z1} ${good_z1}]
-puts "z1_percent = ${z1_percent}"
-if { ${z1_percent} > ${percent_max} } {
- puts "z1: Faulty ${BugNumber}"
- set status_xyz1 1
-} else {
- puts "z1: OK ${BugNumber}"
-}
-
-set dump2 [ dump brics_2 ]
-# N.B. multiple result points are to be processed by other algorithms
-set dump2 [ dump brics_2 ]
-
-regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump2 full x2 y2 z2
-
-set good_x2 -1.000000000000000e-06
-set good_y2 1.000000000000000e-10
-set good_z2 1.000000000000000e+02
-
-set status_xyz2 0
-set x2_percent [GetPercent ${x2} ${good_x2}]
-puts "x2_percent = ${x2_percent}"
-if { ${x2_percent} > ${percent_max} } {
- puts "x2: Faulty ${BugNumber}"
- set status_xyz2 1
-} else {
- puts "x2: OK ${BugNumber}"
-}
-
-set y2_percent [GetPercent ${y2} ${good_y2}]
-puts "y2_percent = ${y2_percent}"
-if { ${y2_percent} > ${percent_max} } {
- puts "y2: Faulty ${BugNumber}"
- set status_xyz2 1
-} else {
- puts "y2: OK ${BugNumber}"
-}
-
-set z2_percent [GetPercent ${z2} ${good_z2}]
-puts "z2_percent = ${z2_percent}"
-if { ${z2_percent} > ${percent_max} } {
- puts "z2: Faulty ${BugNumber}"
- set status_xyz2 1
-} else {
- puts "z2: OK ${BugNumber}"
-}
-
-# Resume
-puts ""
-if { ${status_point} == 0 && ${status_nb} == 0 && ${status_xyz1} == 0 && ${status_xyz2} == 0 } {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
+++ /dev/null
-puts "============"
-puts "OCC22809"
-puts "============"
-puts ""
-############################################################################################################
-# BRepIntCS does not find intersections of an ellipsoid and a line passing through it's apex
-###########################################################################################################
-
-set BugNumber OCC22809
-
-#
-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
-#
-
-psphere a 100
-scalexyz r2 a 2 1 1
-line l -0.000001 0.0000000001 -100 0 0 1
-BRepIntCS l r2
-
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_1 ] full info1
-
-# N.B. multiple result points are to be processed by other algorithms
-# Now there are 2 result points
-set info2 [ whatis brics_2 ]
-set info2 [ whatis brics_2 ]
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_2 ] full info2
-
-
-set word1 [string compare $info1 "point"]
-set word2 [string compare $info2 "point"]
-
-set status_point 0
-if { ${word1} == 0 && ${word2} == 0 } {
- set status_point 0
-} else {
- set status_point 1
-}
-
-regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_3 ] full info3
-set word3 [string compare $info3 "a"]
-
-set status_nb 0
-if { ${word3} == 0 } {
- set status_nb 0
-} else {
- set status_nb 1
- # N.B. multiple result points are to be processed by other algorithms
- set status_nb 0
-}
-
-set dump1 [ dump brics_1 ]
-
-regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump1 full x1 y1 z1
-
-set good_x1 -1.000000000000000e-06
-set good_y1 1.000000000000000e-10
-set good_z1 -1.000000000000000e+02
-
-set status_xyz1 0
-set x1_percent [GetPercent ${x1} ${good_x1}]
-puts "x1_percent = ${x1_percent}"
-if { ${x1_percent} > ${percent_max} } {
- puts "x1: Faulty ${BugNumber}"
- set status_xyz1 1
-} else {
- puts "x1: OK ${BugNumber}"
-}
-
-set y1_percent [GetPercent ${y1} ${good_y1}]
-puts "y1_percent = ${y1_percent}"
-if { ${y1_percent} > ${percent_max} } {
- puts "y1: Faulty ${BugNumber}"
- set status_xyz1 1
-} else {
- puts "y1: OK ${BugNumber}"
-}
-
-set z1_percent [GetPercent ${z1} ${good_z1}]
-puts "z1_percent = ${z1_percent}"
-if { ${z1_percent} > ${percent_max} } {
- puts "z1: Faulty ${BugNumber}"
- set status_xyz1 1
-} else {
- puts "z1: OK ${BugNumber}"
-}
-
-set dump2 [ dump brics_2 ]
-# N.B. multiple result points are to be processed by other algorithms
-set dump2 [ dump brics_2 ]
-
-regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump2 full x2 y2 z2
-
-set good_x2 -1.000000000000000e-06
-set good_y2 1.000000000000000e-10
-set good_z2 1.000000000000000e+02
-
-set status_xyz2 0
-set x2_percent [GetPercent ${x2} ${good_x2}]
-puts "x2_percent = ${x2_percent}"
-if { ${x2_percent} > ${percent_max} } {
- puts "x2: Faulty ${BugNumber}"
- set status_xyz2 1
-} else {
- puts "x2: OK ${BugNumber}"
-}
-
-set y2_percent [GetPercent ${y2} ${good_y2}]
-puts "y2_percent = ${y2_percent}"
-if { ${y2_percent} > ${percent_max} } {
- puts "y2: Faulty ${BugNumber}"
- set status_xyz2 1
-} else {
- puts "y2: OK ${BugNumber}"
-}
-
-set z2_percent [GetPercent ${z2} ${good_z2}]
-puts "z2_percent = ${z2_percent}"
-if { ${z2_percent} > ${percent_max} } {
- puts "z2: Faulty ${BugNumber}"
- set status_xyz2 1
-} else {
- puts "z2: OK ${BugNumber}"
-}
-
-# Resume
-puts ""
-if { ${status_point} == 0 && ${status_nb} == 0 && ${status_xyz1} == 0 && ${status_xyz2} == 0 } {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
+++ /dev/null
-puts "============"
-puts "OCC22851"
-puts "============"
-puts ""
-#######################################################################
-# No intersection curve between two surfaces
-#######################################################################
-
-set BugNumber OCC22851
-
-restore [locate_data_file bug22851_fz1.brep] b1
-restore [locate_data_file bug22851_fz8.brep] b2
-mksurface s1 b1
-mksurface s2 b2
-intersect i s1 s2
-
-set dump_info [dump i]
-
-set lst [split ${dump_info}]
-set dump_length [llength $lst]
-
-set find_BSCurve [regexp {BSplineCurve} $dump_info]
-set find_Degree_Poles_Knots [regexp {Degree +[-0-9.+eE]+, +[-0-9.+eE]+ +Poles, +[-0-9.+eE]+ +Knots} $dump_info]
-
-if { $dump_length == 0 && !$find_BSCurve && !$find_Degree_Poles_Knots } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
\ No newline at end of file
+++ /dev/null
-puts "========================"
-puts "OCC22907"
-puts "========================"
-puts ""
-#######################################################################
-# The function 'distmini' produces wrong result.
-#######################################################################
-
-set BugNumber OCC22907
-
-###rename to bug22907_e.brep
-restore [locate_data_file bug22907_e.brep] b2
-vertex b1 -15.652187256227142 3.2012899919486513 9.9763479999999998
-
-distmini d b1 b2
-puts "Distance=[dval d_val]"
-
-set Good_Distance 0
-
-regexp {Vertex *: Min [-0-9.+eE]+ *Max *([-0-9.+eE]+)} [maxtolerance b1] full tol1
-regexp {Edge *: Min [-0-9.+eE]+ *Max *([-0-9.+eE]+)} [maxtolerance b2] full tol2
-regexp {Vertex *: Min [-0-9.+eE]+ *Max *([-0-9.+eE]+)} [maxtolerance b2] full tol3
-
-set max_tolerance ${tol1}
-if { ${tol2} > ${max_tolerance} } {
- set max_tolerance ${tol2}
-}
-if { ${tol3} > ${max_tolerance} } {
- set max_tolerance ${tol3}
-}
-puts "max_tolerance=${max_tolerance}"
-
-if [expr abs( [dval d_val] - ${Good_Distance}) > ${max_tolerance}] {
- set status 1
-} else {
- set status 0
-}
-
-# Resume
-puts ""
-if { ${status} == 1 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-vinit
-vdisplay b1 b2
-vfit
-
-set only_screen 0
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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}"
-}
+++ /dev/null
-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
+++ /dev/null
-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
-
-
+++ /dev/null
-puts "================"
-puts "OCC23092"
-puts "================"
-puts ""
-###################################################################################################
-# Error in BRepProj_Projection algorithm: some edges of resulting projected wire are duplicated
-###################################################################################################
-
-set BugNumber OCC23092
-
-restore [locate_data_file OCC23092-bal8h.brep] h
-restore [locate_data_file OCC23092-bal8s.brep] s
-set info1 [ prj r s h 0 0 1 ]
-set word1 [string compare [lindex ${info1} end] "r_1"]
-don r_1 r_2
-explode r_1 E
-explode r_2 V
-set info2 [ don r_1_10 r_2_1 r_2_2 ]
-set word2 [string compare [lindex ${info2} end] "r_1_10"]
-
-# Resume
-puts ""
-if { ${word1} == 0 && ${word2} == 0 } {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
+++ /dev/null
-puts "========"
-puts "OCC231"
-puts "========"
-puts ""
-
-#############################################
-##Uncorrect work DRAW command "proj" in version dev
-## and receive such result:
-## in dev : ext_1 ext_2 ext_3
-## in C40 : ext_1 ext_2 ext_3 ext_4
-#############################################
-
-restore [locate_data_file OCC231.draw] result
-
-set str [proj result 1751.38 614.152 -180.331]
-set err [llength $str]
-
-if { $err < 4 } {
- puts "Faulty OCC231: Projection was made wrongly"
-} else {
- puts "OCC231 OK: Projection was made properly"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "================"
-puts "OCC23139"
-puts "================"
-puts ""
-########################################################################################################
-# BRepFilletAPI_MakeFillet algorithm builds edges with wrong first and last parameters: out of pcurve
-########################################################################################################
-
-set BugNumber OCC23139
-
-### rename to bug23139_aShape_for_fillet.brep
-restore [locate_data_file bug23139_aShape_for_fillet.brep] b
-explode b e
-donly b b_6
-blend result b 20 b_6
-explode result f
-#av2d
-set exception_status [ catch { pcurve result_1 } ]
-
-if { ${exception_status} == 0 } {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set 2dviewer 0
-set length 5558.88
+++ /dev/null
-puts "==========="
-puts "OCC23152"
-puts "==========="
-######################################################
-# Possibility to have echo of DRAW commands in log file
-######################################################
-
-set BugNumber OCC23152
-
-dchrono t stop
-dchrono t start
-dchrono t stop
-
-dlog reset
-dlog on
-dchrono t show
-set log_on [dlog get]
-
-dlog reset
-dlog off
-dchrono t show
-set log_off [dlog get]
-
-puts "log_on = ${log_on}"
-puts "log_off = ${log_off}"
-
-set llength_log_on [llength ${log_on}]
-set llength_log_off [llength ${log_off}]
-
-puts "llength log_on= [llength ${log_on}]"
-puts "llength log_off= [llength ${log_off}]"
-
-set status 0
-if { ${llength_log_on} > 0 } {
- puts "dlog on work OK"
-} else {
- puts "dlog on work Faulty"
- set status 1
-}
-if { ${llength_log_off} == 0 } {
- puts "dlog off work OK"
-} else {
- puts "dlog off work Faulty"
- set status 1
-}
-
-# Resume
-puts ""
-if { ${status} == 0 } {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
+++ /dev/null
-puts "================"
-puts "OCC23165"
-puts "================"
-puts ""
-###################################################################################################################
-# BndLib_Add3dCurve::Add incorrectly segmented original B-Spline what resulting in wrong bounding box or exception.
-###################################################################################################################
-
-catch { pload XDE }
-
-set BugNumber OCC23165
-
-smallview
-
-# 1 step
-set exception_status 0
-set e1_status 0
-set status 0
-
-set percent_max 0.1
-
-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}
-}
-
-restore [locate_data_file OCC23165-edge1.brep] e1
-
-donly e1
-catch { bounding e1 } msg
-fit
-
-set index [lsearch $msg exception]
-if {$index > -1} {
- set exception_status 1
-} else {
- set e1_result [bounding e1]
-
- set e1_x1 [lindex ${e1_result} 0]
- set e1_y1 [lindex ${e1_result} 1]
- set e1_z1 [lindex ${e1_result} 2]
- set e1_x2 [lindex ${e1_result} 3]
- set e1_y2 [lindex ${e1_result} 4]
- set e1_z2 [lindex ${e1_result} 5]
-
- set e1_good_x1 -17.610622244944413
- set e1_good_y1 -0.010622244944394899
- set e1_good_z1 -3.0106222449443973
- set e1_good_x2 -17.589377755055537
- set e1_good_y2 5.7106222251726582
- set e1_good_z2 -1.6146050638816589
-
- set e1_x1_percent [GetPercent ${e1_x1} ${e1_good_x1}]
- set e1_y1_percent [GetPercent ${e1_y1} ${e1_good_y1}]
- set e1_z1_percent [GetPercent ${e1_z1} ${e1_good_z1}]
- set e1_x2_percent [GetPercent ${e1_x2} ${e1_good_x2}]
- set e1_y2_percent [GetPercent ${e1_y2} ${e1_good_y2}]
- set e1_z2_percent [GetPercent ${e1_z2} ${e1_good_z2}]
-
- if {${e1_x1_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : x1 for e1 is wrong"
- set e1_status 1
- }
- if {${e1_y1_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : y1 for e1 is wrong"
- set e1_status 1
- }
- if {${e1_z1_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : z1 for e1 is wrong"
- set e1_status 1
- }
- if {${e1_x2_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : x2 for e1 is wrong"
- set e1_status 1
- }
- if {${e1_y2_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : y2 for e1 is wrong"
- set e1_status 1
- }
- if {${e1_z2_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : z2 for e1 is wrong"
- set e1_status 1
- }
-
-}
-
-# 2 step
-restore [locate_data_file OCC23165-curve.rle] c
-mkedge result c 20 36
-
-donly result
-set result [bounding result]
-fit
-
-set x1 [lindex ${result} 0]
-set y1 [lindex ${result} 1]
-set z1 [lindex ${result} 2]
-set x2 [lindex ${result} 3]
-set y2 [lindex ${result} 4]
-set z2 [lindex ${result} 5]
-
-set good_x1 -17.6105835090592
-set good_y1 -4.7133570660117909
-set good_z1 -4.3679100133425806
-set good_x2 -17.589416490940806
-set good_y2 5.7105834892874094
-set good_z2 -1.6146437997669054
-
-set x1_percent [GetPercent ${x1} ${good_x1}]
-set y1_percent [GetPercent ${y1} ${good_y1}]
-set z1_percent [GetPercent ${z1} ${good_z1}]
-set x2_percent [GetPercent ${x2} ${good_x2}]
-set y2_percent [GetPercent ${y2} ${good_y2}]
-set z2_percent [GetPercent ${z2} ${good_z2}]
-
-if {${x1_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : x1 is wrong"
- set status 1
-}
-if {${y1_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : y1 is wrong"
- set status 1
-}
-if {${z1_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : z1 is wrong"
- set status 1
-}
-if {${x2_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : x2 is wrong"
- set status 1
-}
-if {${y2_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : y2 is wrong"
- set status 1
-}
-if {${z2_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : z2 is wrong"
- set status 1
-}
-
-if { ${status} == 0 && ${exception_status} == 0&& ${e1_status} == 0 } {
- puts "${BugNumber}: OK"
-} else {
- puts "${BugNumber}: Faulty"
-}
-
-set 2dviewer 1
-set length 15.8888
-
+++ /dev/null
-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
-
+++ /dev/null
-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
-
-
+++ /dev/null
-puts "============"
-puts "OCC23201"
-puts "============"
-puts ""
-#######################################################################
-# Projection algorithm produces wrong results.
-#######################################################################
-
-set BugNumber OCC23201
-
-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}
-}
-
-restore [locate_data_file bug23201_Tool_1.brep] b2
-restore [locate_data_file bug23201_Tool_2.brep] b3
-
-explode b2 f
-mksurface s2 b2_1
-
-explode b3 f
-mksurface s3 b3_1
-
-explode b2 e
-mkcurve c2 b2_2
-
-explode b3 e
-mkcurve c3 b3_2
-
-set BugStatus 0
-
-set percent_max 0.1
-set good_c23 3.1415926535897922
-set good_c32 3.1415926535897922
-
-if [catch { project c23 c2 s3 } ] {
- set BugStatus 1
-} else {
- set c23_length [lindex [length c23] end]
- set length_percent [GetPercent ${c23_length} ${good_c23}]
- puts "length_percent = ${length_percent}"
- if {${length_percent} > ${percent_max}} {
- puts "c23: Faulty"
- set BugStatus 1
- } else {
- puts "c23: OK"
- }
-}
-
-if [catch { project c32 c3 s2 } ] {
- set BugStatus 1
-} else {
- set c32_length [lindex [length c32] end]
- set length_percent [GetPercent ${c32_length} ${good_c32}]
- puts "length_percent = ${length_percent}"
- if {${length_percent} > ${percent_max}} {
- puts "c32: Faulty"
- set BugStatus 1
- } else {
- puts "c32: OK"
- }
-}
-
-# Resume
-puts ""
-if { ${BugStatus} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
+++ /dev/null
-puts "============"
-puts "OCC23224"
-puts "============"
-puts ""
-#######################################################################
-# Empty result done by intersection algorithm
-#######################################################################
-
-set BugNumber OCC23224
-
-restore [locate_data_file OCC23224-line.brep] l
-restore [locate_data_file OCC23224-face.brep] f
-mksurface s f
-mkcurve c l
-intersect result c s
-set info1 [dump result]
-
-if { [regexp {Point +: ([-0-9.+eE]+)} $info1 full] == 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-
+++ /dev/null
-puts "================"
-puts "OCC23244"
-puts "================"
-puts ""
-#######################################################################
-# Bug of BRepClass_FaceClassifier: it does not take into account the tolerance
-#######################################################################
-
-set BugNumber OCC23244
-
-restore [locate_data_file OCC23244-comp.brep] a
-
-explode a
-explode a_1
-
-smallview
-donly a_1_2 a_3
-fit
-
-mkpoint p3 a_3
-projponf a_1_2 p3
-point pp3 69.220445243320853 1216.6123701316949
-
-set result [split [b2dclassify a_1_2 pp3 1.e-5] ]
-
-set ll [llength ${result}]
-if {${ll} < 4} {
- puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
-} else {
- if { [regexp "ON" $result] == 1 } {
- puts "OK ${BugNumber}"
- } else {
- puts "Faulty ${BugNumber}"
- }
-}
-
+++ /dev/null
-puts "================"
-puts "OCC23248"
-puts "================"
-puts ""
-#######################################################################
-# Wrong result done by solid classifier algorithm for infinite point
-#######################################################################
-
-set BugNumber OCC23248
-
-restore [locate_data_file bug23248_so] b
-
-set result [split [xclassify b 1e-7]]
-
-set ll [llength ${result}]
-if {${ll} < 3} {
- puts "Bad format of xclassify draw-command; Faulty ${BugNumber}"
-} else {
- set status [lindex ${result} 2]
- if { [regexp "OUT" $result] == 1 } {
- puts "OK ${BugNumber}"
- } else {
- puts "Faulty ${BugNumber}"
- }
-}
-
-
+++ /dev/null
-puts "============"
-puts "CR23464"
-puts "============"
-puts ""
-##########################################################################################################
-# Projection algorithm produces wrong results
-##########################################################################################################
-
-set int_check 3
-set fract_check 1415927
-
-restore [locate_data_file bug23464_c41.draw] c41
-restore [locate_data_file bug23464_s46.draw] s46
-
-project result c41 s46
-set info [length result]
-regexp {is +([-0-9.+eE]+)} $info full num
-
-set int_part [expr round($num)]
-set y [expr $num - round($num)]
-set z [expr $y*10000000]
-set fract_part [expr round($z)]
-
-if { ${int_check} != ${int_part} } {
- puts "Error : Integer part of result is incorrect"
-}
-
-if { ${fract_check} != ${fract_part} } {
- puts "Error : Fractional part of result is incorrect"
-}
-
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23464"
-puts "============"
-puts ""
-##########################################################################################################
-# Projection algorithm produces wrong results
-##########################################################################################################
-
-set int_check 3
-set fract_check 1415927
-
-restore [locate_data_file bug23464_c50.draw] c50
-restore [locate_data_file bug23464_s37.draw] s37
-
-project result c50 s37
-set info [length result]
-regexp {is +([-0-9.+eE]+)} $info full num
-
-set int_part [expr round($num)]
-set y [expr $num - round($num)]
-set z [expr $y*10000000]
-set fract_part [expr round($z)]
-
-if { ${int_check} != ${int_part} } {
- puts "Error : Integer part of result is incorrect"
-}
-
-if { ${fract_check} != ${fract_part} } {
- puts "Error : Fractional part of result is incorrect"
-}
-
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23464"
-puts "============"
-puts ""
-##########################################################################################################
-# Projection algorithm produces wrong results
-##########################################################################################################
-
-set int_check 3
-set fract_check 1415927
-
-restore [locate_data_file bug23464_c57.draw] c57
-restore [locate_data_file bug23464_s37.draw] s37
-
-project result c57 s37
-set info [length result]
-regexp {is +([-0-9.+eE]+)} $info full num
-
-set int_part [expr round($num)]
-set y [expr $num - round($num)]
-set z [expr $y*10000000]
-set fract_part [expr round($z)]
-
-if { ${int_check} != ${int_part} } {
- puts "Error : Integer part of result is incorrect"
-}
-
-if { ${fract_check} != ${fract_part} } {
- puts "Error : Fractional part of result is incorrect"
-}
-
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23464"
-puts "============"
-puts ""
-##########################################################################################################
-# Projection algorithm produces wrong results
-##########################################################################################################
-
-set int_check 3
-set fract_check 1415927
-
-restore [locate_data_file bug23464_c58.draw] c58
-restore [locate_data_file bug23464_s37.draw] s37
-
-project result c58 s37
-set info [length result]
-regexp {is +([-0-9.+eE]+)} $info full num
-
-set int_part [expr round($num)]
-set y [expr $num - round($num)]
-set z [expr $y*10000000]
-set fract_part [expr round($z)]
-
-if { ${int_check} != ${int_part} } {
- puts "Error : Integer part of result is incorrect"
-}
-
-if { ${fract_check} != ${fract_part} } {
- puts "Error : Fractional part of result is incorrect"
-}
-
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23464"
-puts "============"
-puts ""
-##########################################################################################################
-# Projection algorithm produces wrong results
-##########################################################################################################
-
-set int_check 3
-set fract_check 1415927
-
-restore [locate_data_file bug23464_c57.draw] c57
-restore [locate_data_file bug23464_s46.draw] s46
-
-project result c57 s46
-set info [length result]
-regexp {is +([-0-9.+eE]+)} $info full num
-
-set int_part [expr round($num)]
-set y [expr $num - round($num)]
-set z [expr $y*10000000]
-set fract_part [expr round($z)]
-
-if { ${int_check} != ${int_part} } {
- puts "Error : Integer part of result is incorrect"
-}
-
-if { ${fract_check} != ${fract_part} } {
- puts "Error : Fractional part of result is incorrect"
-}
-
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23464"
-puts "============"
-puts ""
-##########################################################################################################
-# Projection algorithm produces wrong results
-##########################################################################################################
-
-set int_check 3
-set fract_check 1415927
-
-restore [locate_data_file bug23464_c58.draw] c58
-restore [locate_data_file bug23464_s46.draw] s46
-
-project result c58 s46
-set info [length result]
-regexp {is +([-0-9.+eE]+)} $info full num
-
-set int_part [expr round($num)]
-set y [expr $num - round($num)]
-set z [expr $y*10000000]
-set fract_part [expr round($z)]
-
-if { ${int_check} != ${int_part} } {
- puts "Error : Integer part of result is incorrect"
-}
-
-if { ${fract_check} != ${fract_part} } {
- puts "Error : Fractional part of result is incorrect"
-}
-
-
-
-
-
+++ /dev/null
-puts "============"
-puts "CR23475"
-puts "==========="
-puts ""
-###############################################################################
-# Wrong result of Geom_BSpline_Surface::IsVClosed()
-###############################################################################
-
-restore [locate_data_file bug23475.draw] s1
-set info [dump s1]
-
-if { [regexp "BSplineSurface vclosed" $info] != 1} {
- puts "Error : surface is not closed by V"
-}
-
-
+++ /dev/null
-puts "================"
-puts "OCC235"
-puts "================"
-puts ""
-#######################################################
-## Intersection algorithm finds two intersection curves. One curve is closed while
-## second is not (the distance between first and last points is 2e-5).
-#######################################################
-
-restore [locate_data_file OCC235a.rle] su1
-############### checkshape su1 # is not a topological shape
-restore [locate_data_file OCC235b.rle] su2
-############### checkshape su2 # is not a topological shape
-
-intersect result su1 su2
-
-set dir [directory]
-set nb_result [regexp -all {result} $dir]
-if { $nb_result != 2 } {
- puts "Faulty OCC235 (first checking): Intersection was made WRONGLY"
-} else {
- puts "OCC235 OK (first checking) : Intersection command works properly"
-
- regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_1] full num_1
- if { $num_1 != 0 } {
- puts " Faulty OCC235 (second checking): Result result_1 is UNclosed !!! "
- } else {
- puts " OCC235 OK (second checking): Result result_1 is closed !!! "
- }
-
- regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_2] full num_2
- if { $num_2 != 0 } {
- puts " Faulty OCC235 (second checking): Result result_2 is UNclosed !!! "
- } else {
- puts " OCC235 OK (second checking): Result result_2 is closed !!! "
- }
-}
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "============"
-puts "OCC23576"
-puts "============"
-puts ""
-#######################################################################
-# Intersection algorithm produces trimmed circle with illegal parametric range.
-#######################################################################
-
-restore [locate_data_file bug23576_ff_b1_4_z564.brep] b1
-
-explode b1
-bopcurves b1_1 b1_2
-copy c_1 result
-
-set log [dump result]
-
-regexp {Parameters : +([-0-9.+eE]+) +([-0-9.+eE]+)} ${log} full rc1 rc2
-puts "rc1=${rc1}"
-puts "rc2=${rc2}"
-set 2_PI [expr 2. * 2. * asin(1.0)]
-puts "2_PI=${2_PI}"
-puts ""
-
-if {${rc1} < 0.} {
- puts "Error: Bad value of parametric range rc1"
-} else {
- puts "Good value of parametric range rc1"
-}
-if {${rc2} > ${2_PI}} {
- puts "Error: Bad value of parametric range rc2"
-} else {
- puts "Good value of parametric range rc2"
-}
+++ /dev/null
-puts "============"
-puts "CR23587"
-puts "==========="
-puts ""
-###############################################################################
-# Operation "2dintersect "in TestHarness can not find intersection point of two intersecting 2d curves.
-###############################################################################
-
-restore [locate_data_file bug23587_IntEdges.brep] a
-
-explode a
-
-plane pl1 0 0 0 0 0 1
-trim trpl1 pl1 -1000 1000 -1000 1000
-mkface f1 trpl1
-pcurve c1 a_1 f1
-pcurve c2 a_2 f1
-pcurve c3 a_3 f1
-pcurve c4 a_4 f1
-set inter1 [2dintersect c1 c2 1.e-6]
-set inter2 [2dintersect c3 c2 1.e-6]
-set inter3 [2dintersect c1 c4 1.e-6]
-set inter4 [2dintersect c3 c4 1.e-6]
-set int1 [regexp {Intersection point 1} $inter1]
-set int2 [regexp {Intersection point 1} $inter2]
-set int3 [regexp {Intersection point 1} $inter3]
-set int4 [regexp {Intersection point 1} $inter4]
-
-if { $int1 == 0 || $int2 == 0 || $int3 == 0 || $int4 ==0 } {
- puts "Error : Intersection is not found"
-}
-
-av2d
-2dfit
-
-xwd ${imagedir}/${test_image}.png
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC236"
-
-puts "================"
-puts "OCC236"
-puts "================"
-puts ""
-#######################################################
-##Result of intersection of two surfaces of linear extrusion is incorrect.
-#######################################################
-
-restore [locate_data_file OCC236a.rle] su1
-############### checkshape su1 # is not a topological shape
-restore [locate_data_file OCC236b.rle] su2
-############### checkshape su2 # is not a topological shape
-
-intersect result su1 su2
-
-set che [directory]
-set err [lindex $che [expr [llength $che] - 1]]
-if { $err != "result_2"} {
- puts "Faulty OCC236"
-} else {
- puts "OCC236 OK (first checking) : Intersection command works properly"
- regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_1] full num
- if { $num != 0 } {
- puts " Faulty OCC236 (second checking): Result result_1 is UNclosed !!! "
- } else {
- puts " OCC236 OK (second checking): Result result_1 is closed !!! "
- puts ""
- }
- regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_2] full num
- if { $num != 0 } {
- puts " Faulty OCC236 (second checking): Result result_2 is UNclosed !!! "
- } else {
- puts " OCC236 OK (second checking): Result result_2 is closed !!! "
- }
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "CR23603"
-puts "============"
-puts ""
-##########################################################################################################
-# Boolean operation between two edges fails
-##########################################################################################################
-
-restore [locate_data_file bug23603_ce.brep] b1
-explode b1
-copy b1_1 e1
-copy b1_2 e2
-
-bop e1 e2
+++ /dev/null
-puts "========================"
-puts "OCC23643"
-puts "========================"
-puts ""
-#######################################################################
-# Intersection algorithm produces B-Spline curve in case of coaxial cones
-#######################################################################
-
-restore [locate_data_file bug23643_qf3.brep] b
-
-explode b
-copy b_1 f1
-copy b_2 f2
-
-mksurface s1 f1
-mksurface s2 f2
-
-trim s1t s1 0 2*pi -18 10
-trim s2t s2 0 2*pi -18 10
-
-intersect result s1t s2t
-
-set log [dump result]
-
-if {[regexp {Trimmed +curve} ${log}]} {
- puts "Intersection algorithm work OK"
-} else {
- puts "Error: Intersection algorithm work bad"
-}
+++ /dev/null
-puts "========"
-puts "CR23644"
-puts "========"
-
-##########################################
-## Intersection between coaxial cones produces exception
-##########################################
-
-pcone cn1 10 0 20
-pcone cn2 20 0 20
-explode cn1 f
-explode cn2 f
-copy cn1_1 f1
-copy cn2_1 f2
-
-if [catch {bopcurves f1 f2} BOPLog] {
- if { [regexp "Tolerance Reached=0\n has no 3d curve" ${BOPLog}] != 1 } {
- puts "CR23644: Error"
- }
-}
+++ /dev/null
-puts "================"
-puts "OCC237"
-puts "================"
-puts ""
-#######################################################
-## Hang-ups during the intersection of attached surfaces
-#######################################################
-
-restore [locate_data_file OCC236b.rle] su1
-############### checkshape su1 # is not a topological shape
-restore [locate_data_file OCC237b.rle] su2
-############### checkshape su2 # is not a topological shape
-
-if [catch {intersect result su1 su2 }] {
- set mistake 1
-} else {
- set mistake 0
-}
-
-if { $mistake != 0} {
- puts "Faulty OCC237: Intersection was made WRONGLY"
-} else {
- puts "OCC237 OK : Intersection command works properly"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC11111 ALL: OCC2442 Faulty"
-
-puts "============"
-puts "OCC2442"
-puts "============"
-puts ""
-######################################################
-# Error in BRepClass3d_SolidClassifier
-######################################################
-
-set IsGood 1
-
-restore [locate_data_file OCC2442-1.brep] a
-restore [locate_data_file OCC2442-2.brep] b
-
-distmini dm1 a b
-set dm1_list [dump dm1_val]
-set dm1_length [llength $dm1_list]
-if {$dm1_length < 6} {
- puts "Faulty OCC2442"
- set IsGood 0
-}
-
-explode a
-explode b
-distmini dm2 a_1 b_1
-set dm2_list [dump dm2_val]
-set dm2_length [llength $dm2_list]
-if {$dm2_length < 6} {
- puts "Faulty OCC2442"
- set IsGood 0
-}
-
-if {$IsGood == 1} {
- regexp {([-0-9.+eE]+)} $dm1_list full dist1
- regexp {([-0-9.+eE]+)} $dm2_list full dist2
-
- set good_dist 18.4816355578064
- set dist1_percent [expr abs(${dist1} - ${good_dist}) / double(${good_dist}) * 100.]
-
- set dist2_percent [expr abs(${dist1} - ${dist2}) / double(${dist2}) * 100.]
-
- set percent_max 0.1
-
- if {${dist1_percent} > ${percent_max}} {
- puts "OCC2442 Faulty"
- set IsGood 0
- }
- if {${dist2_percent} > ${percent_max}} {
- puts "OCC2442 Faulty"
- set IsGood 0
- }
- if {${IsGood} == 1} {
- puts "OCC2442 OK"
- }
-}
-
-set boundbox [boundingstr a]
-set x0 [lindex $boundbox 0]
-set y0 [lindex $boundbox 1]
-set z0 [lindex $boundbox 2]
-ttranslate a [expr -1 * $x0] [expr -1 * $y0] [expr -1 * $z0]
-ttranslate b [expr -1 * $x0] [expr -1 * $y0] [expr -1 * $z0]
-
-set 3dviewer 1
+++ /dev/null
-
-puts "========================"
-puts " OCC247 "
-puts "========================"
-
-#################################################
-##Using of function "bop" with attached shapes calls exception.
-#################################################
-restore [locate_data_file OCC247a.brep] a
-restore [locate_data_file case_8_wire3.brep] b
-
-bop a b
-
-
-
-
-
\ No newline at end of file
+++ /dev/null
-puts "================"
-puts "OCC25"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC25-1.brep] sh1
-
-decho off
-set che [checkshape sh1]
-decho on
-
-if { [regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC25 (case 1): Checkshape says that the wire on face has bad orientation, but it is not truth"
-} else {
- puts "OCC25 OK (case 1): Checkshape works properly"
-}
-
-# ================================================
-restore [locate_data_file OCC25-2.brep] sh2
-
-decho off
-set che [checkshape sh2]
-decho on
-
-if { [regexp {BRepCheck_BadOrientationOfSubshape} $che] && [regexp {BRepCheck_UnorientableShape} $che]} {
- puts " OCC25 (case 2) OK: Checkshape works properly"
-} else {
- puts "Faulty OCC25 (case 2): Checkshape works wrongly"
-}
-
-compound sh1 sh2 result
-
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC252"
-puts "================"
-puts ""
-
-pload QAcommands
-
-restore [locate_data_file OCC252.brep] a
-
-checkshape a
-
-explode a w
-
-OCC252 result a_466 a 0
-
-regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
-
-if { ${len} <= 0 } {
- puts "Error : OCC252"
-}
-
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC252"
-puts "================"
-puts ""
-
-pload QAcommands
-
-restore [locate_data_file OCC252.brep] a
-checkshape a
-
-explode a w
-
-OCC252 result a_466 a 1
-
-regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
-
-if { ${len} != 0 } {
- puts "Error : OCC252"
-}
-
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC252"
-puts "================"
-puts ""
-
-pload QAcommands
-
-restore [locate_data_file OCC252.brep] a
-checkshape a
-
-explode a w
-
-OCC252 result a_466 a 2
-
-regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
-
-if { ${len} <= 0 } {
- puts "Error : OCC252"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "========"
-puts "OCC253"
-puts "========"
-
-######################################################
-## Exception while segment operation on periodic BSpline curve.
-## More over it seems that command segment in Draw doesnot work.
-######################################################
-
-restore [locate_data_file OCC253.draw] result
-############### checkshape c1 # is not a topological shape
-
-smallview -2D-
-
-#store dump of initial curve
-set init_dump [dump result]
-
-set ufirst 0.500000000000006
-set ulast 1.00000000015925
-catch { segment result $ufirst $ulast }
-
-#compare dump of initial curve and dump of result one
-set result_dump [dump result]
-if { $init_dump == $result_dump} {
- puts "Faulty OCC253: command segment does NOT do anything"
-}
-
-#retrieve amount of knots of result curve from dump
-regexp { +Degree +[-0-9.+eE]+, +[-0-9.+eE]+ +Poles, +([-0-9.+eE]+) +KnotsPoles +:} $result_dump full KnotsNumber
-#create string to be found in result dump
-set trueLastKnot "$KnotsNumber : 1.00000000015925 "
-
-#verify parametrization of result curve
-if { [regexp "1 : 0.500000000000006 " $result_dump] && [regexp $trueLastKnot $result_dump]} {
- puts " OCC253 is OK: command segment works properly"
-} else {
- puts "Faulty OCC253: parametrization of result curve is wrong"
-}
-
-2dfit
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC254"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC254-1.brep] shape1
-checkshape shape1
-
-restore [locate_data_file OCC254-3.brep] shape3
-checkshape shape3
-
-common result shape1 shape3
-checkshape result
-
-set length 1231.07
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC256"
-puts "========"
-
-restore [locate_data_file OCC256.brep] result
-checkshape result
-
-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 != 66 && $nod != 66 } {
- puts "Error : here is shading problem"
-}
-
-set 3dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "============"
-puts "OCC2569"
-puts "============"
-puts ""
-######################################################
-# If it is not possible to create the bezier curve,
-# it should throw an exception.
-######################################################
-cpulimit 60
-vinit
-set out [OCC2569 26 result]
-if {[string compare $out "\n Degree = 25\n"] == 0} {
- puts "OCC2569: OK"
-} else {
- puts "OCC2569: Faulty"
-}
-
-set 3dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Exception"
-puts "TODO OCC11111 ALL: An exception was caught"
-puts "TODO OCC11111 ALL: TEST INCOMPLETE"
-
-pload QAcommands
-
-puts "============"
-puts "OCC2569"
-puts "============"
-puts ""
-######################################################
-# If it is not possible to create the bezier curve,
-# it should throw an exception.
-######################################################
-cpulimit 60
-vinit
-
-OCC2569 29 result
-
-set 3dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: OCC257 - Error : xdelta= 3.6651128509496784"
-puts "TODO OCC12345 ALL: OCC257 - Error : ydelta= 5.840378793387278"
-puts "TODO OCC12345 ALL: OCC257 - Error : zdelta= 1.4898469085120623"
-
-puts "================"
-puts "OCC257"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC257.brep] result
-checkshape result
-
-set bb [bounding result]
-
-set list [split ${bb}]
-set listLength [llength ${list}]
-if { ${listLength} < 6 } {
- puts "Error : listLength = ${listLength}"
-}
-
-set x1 [lindex ${list} 0]
-set y1 [lindex ${list} 1]
-set z1 [lindex ${list} 2]
-set x2 [lindex ${list} 3]
-set y2 [lindex ${list} 4]
-set z2 [lindex ${list} 5]
-
-set len [expr ${x2} - ${x1}]
-set width [expr ${y2} - ${y1}]
-set height [expr ${z2} - ${z1}]
-
-set R 180
-
-set xdelta [expr abs(${len} - ${R}) / ${R} * 100]
-set ydelta [expr abs(${width} - ${R}) / ${R} * 100]
-set zdelta [expr abs(${height} - ${R}) / ${R} * 100]
-
-set maxdelta 0.1
-
-if { ${xdelta} > ${maxdelta} } then {puts "OCC257 - Error : xdelta= ${xdelta}"}
-if { ${ydelta} > ${maxdelta} } then {puts "OCC257 - Error : ydelta= ${ydelta}"}
-if { ${zdelta} > ${maxdelta} } then {puts "OCC257 - Error : zdelta= ${zdelta}"}
-
-if { ${xdelta} <= ${maxdelta} && ${ydelta} <= ${maxdelta} && ${zdelta} <= ${maxdelta} } then {
- puts "OCC257: OK"
-}
-
-set 3dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC258 "
-puts "(case 1)"
-puts "========================"
-
-restore [locate_data_file shading_143.brep] result
-checkshape result
-
-tclean result
-isos result 0
-vinit
-vdisplay result
-vsetdispmode result 1
-vfit
-triangles result
-
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri < 71 || $nod < 73 } {
- puts "Error (case 1) : here is shading problem"
-}
-
-set 3dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC258 "
-puts "(case 2)"
-puts "========================"
-
-restore [locate_data_file shading_144.brep] result
-checkshape result
-
-tclean result
-isos result 0
-vinit
-vdisplay result
-vsetdispmode result 1
-vfit
-triangles result
-
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri < 70 || $nod < 72 } {
- puts "Error (case 2) : here is shading problem"
-}
-
-set 3dviewer 0
-
-
+++ /dev/null
-
-puts "========================"
-puts " OCC259 "
-puts "========================"
-puts ""
-######################################################
-##Inequality behaviour of checkshape -top on SunOS and IRIX.
-######################################################
-
-pcylinder b1 1 2
-
-dset r sqrt(2)/2
-box b2 -r -r 0 2*r 2*r 2
-trotate b2 0 0 0 0 0 1 135
-
-bfuse result b2 b1
-checkshape -top result
-
-set square 18.8496
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC262"
-puts "========"
-
-restore [locate_data_file OCC262.brep] a
-# checkshape a
-
-set tolerance 1e-5
-
-build3d a ${tolerance}
-
-fsameparameter a
-
-explode a E
-# Verify only a_1 and a_2 eges becouse a_3 had 3d curve before call of build3d command
-
-set toler1 [maxtolerance a_1]
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $toler1 full MaxEdgeTolerance1
-
-if { [ expr $MaxEdgeTolerance1 > $tolerance ] } {
- puts "OCC262 - FAULTY. Tolerance of a_1 is too big"
-} else {
- puts "TOLERANCE OF A_1 - OK"
-}
-
-set toler2 [maxtolerance a_2]
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $toler2 full MaxEdgeTolerance2
-
-if { [ expr $MaxEdgeTolerance2 > $tolerance ] } {
- puts "OCC262 - FAULTY. Tolerance of a_1 is too big"
-} else {
- puts "TOLERANCE OF A_2 - OK"
-}
-
-
-#set tolerancelist [maxtolerance a]
-
-#set list [split ${tolerancelist} "\n\t"]
-#set listLength [llength ${list}]
-#if { ${listLength} < 9 } then {puts "OCC262 - Error : listLength= ${listLength}"}
-
-#set EdgeList [lindex ${list} 5]
-#set MaxEdgeTolerance [lindex [split ${EdgeList}] [expr [llength [split ${EdgeList}] ] - 2] ]
-
-#set delta [expr abs(${MaxEdgeTolerance} - ${tolerance}) / ${tolerance} * 100]
-
-#set maxdelta 1
-
-#if { ${delta} > ${maxdelta} } then {puts "OCC262 - Error : delta = ${delta}"} else {
-# puts "OCC262: OK"
-#}
-
-#puts "MaxEdgeTolerance = ${MaxEdgeTolerance}"
-
-renamevar a result
-
-set square 449.437
-set 2dviewer 0
+++ /dev/null
-puts "========"
-puts "OCC265"
-puts "========"
-puts ""
-###############################################
-##Exception while projecting hyperbola on plane.
-###############################################
-
-restore [locate_data_file OCC265-hyperbola.draw] hyperbola
-restore [locate_data_file OCC265-plane.draw] plane
-
-projonplane result hyperbola plane
-
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC266"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC266.brep] a
-checkshape a
-
-renamevar a edge
-explode edge e
-
-renamevar edge face
-explode face f
-
-chamf result face edge_10 face_3 A 1 45 edge_6 face_3 A 1 45 edge_11 face_3 A 1 45 edge_12 face_3 A 1 45 edge_13 face_3 A 1 45 edge_14 face_3 A 1 45 edge_8 face_3 A 1 45 edge_9 face_3 A 1 45
-checkshape result
-
-set square 48913
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC268"
-puts "========"
-puts ""
-###########################################################
-## Using of command "lprops" for shapes that contain degenerated edges call exception.
-###########################################################
-
-restore [locate_data_file OCC268.brep] result
-checkshape result
-
-set length 56.6039
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC26"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC26.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_1 a_2
-
-set square 44819.9
-set 2dviewer 0
-
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC26"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC26.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_2 a_1
-
-set square 44819.8
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC271 "
-puts "========================"
-puts ""
-
-restore [locate_data_file OCC271a.rle] su1
-restore [locate_data_file OCC271b.rle] su2
-
-set U1 2.315721254379057e-16
-set U2 0.01131870392278708
-set V1 226.9760100729095
-set V2 203.7283534809051
-
-intersect result su1 su2 $U1 $V1 $U2 $V2
-
-set che [whatis result]
-
-if { ![regexp {3d} $che] || ![regexp {curve} $che]} {
- puts "Faulty OCC271: command INTERSECT works wrongly"
-} else {
- puts "OCC271 OK : command INTERSECT works properly"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC2755"
-puts "============"
-puts ""
-######################################################
-# Boolean Bug in OCC5.0 with the shape having a ellipse curve
-######################################################
-
-restore [locate_data_file OCC2755.brep] a
-
-checkshape a
-
-explode a f
-mksurface gs a_1
-set list [proj gs 0 10 50]
-set ll 4
-
-set good_Parameter1List [list 0 0 0 0]
-set good_Parameter2List [list 40.4616826479819 211.944716681974 64.3186164305428 81.0582330575794]
-set good_OriginXList [list 0 0 0 0]
-set good_OriginYList [list 10 10 10 10]
-set good_OriginZList [list 50 50 50 50]
-set good_AxisXList [list -0.0300865818651084 -0.941236271764613 0.534306660761684 0.998573938898137]
-set good_AxisYList [list 0.999547296325529 -0.337748842654791 -0.845290714645381 0.0533862206328518]
-set good_AxisZList [list 0 0 0 0]
-
-proc CalculatePercent {value good_value} {
- if {${good_value} == 0. && ${value} == 0.} {
- set percent 0.
- } else {
- set percent [expr abs(${value} - ${good_value}) / double(${good_value}) * 100.]
- }
- return ${percent}
-}
-
-if {[llength ${list}] != ${ll}} {
- puts "Faulty OCC2755"
-} else {
- set percent_max 0.1
- set IsGood 1
- for {set i 0} {$i < ${ll}} {incr i} {
- set dump_list [dump [lindex ${list} $i]]
- regexp { *Parameters *: *([-0-9.+eE]+) *([-0-9.+eE]+)} $dump_list full Parameter1 Parameter2
- regexp { *Origin *:([-0-9.+eE]+), *([-0-9.+eE]+), *([-0-9.+eE]+)} $dump_list full OriginX OriginY OriginZ
- regexp { *Axis *:([-0-9.+eE]+), *([-0-9.+eE]+), *([-0-9.+eE]+)} $dump_list full AxisX AxisY AxisZ
-
- set good_Parameter1 [lindex ${good_Parameter1List} $i]
- set good_Parameter2 [lindex ${good_Parameter2List} $i]
- set good_OriginX [lindex ${good_OriginXList} $i]
- set good_OriginY [lindex ${good_OriginYList} $i]
- set good_OriginZ [lindex ${good_OriginZList} $i]
- set good_AxisX [lindex ${good_AxisXList} $i]
- set good_AxisY [lindex ${good_AxisYList} $i]
- set good_AxisZ [lindex ${good_AxisZList} $i]
-
- set Parameter1_percent [CalculatePercent ${Parameter1} ${good_Parameter1}]
- set Parameter2_percent [CalculatePercent ${Parameter2} ${good_Parameter2}]
- set OriginX_percent [CalculatePercent ${OriginX} ${good_OriginX}]
- set OriginY_percent [CalculatePercent ${OriginY} ${good_OriginY}]
- set OriginZ_percent [CalculatePercent ${OriginZ} ${good_OriginZ}]
- set AxisX_percent [CalculatePercent ${AxisX} ${good_AxisX}]
- set AxisY_percent [CalculatePercent ${AxisY} ${good_AxisY}]
- set AxisZ_percent [CalculatePercent ${AxisZ} ${good_AxisZ}]
-
- puts "good_Parameter1 = ${good_Parameter1}"
- puts "Parameter1 = ${Parameter1}"
- puts "Parameter1_percent = ${Parameter1_percent}\n"
-
- puts "good_Parameter2 = ${good_Parameter2}"
- puts "Parameter2 = ${Parameter2}"
- puts "Parameter2_percent = ${Parameter2_percent}\n"
-
- puts "good_OriginX = ${good_OriginX}"
- puts "OriginX = ${OriginX}"
- puts "OriginX_percent = ${OriginX_percent}\n"
-
- puts "good_OriginY = ${good_OriginY}"
- puts "OriginY = ${OriginY}"
- puts "OriginY_percent = ${OriginY_percent}\n"
-
- puts "good_OriginZ = ${good_OriginZ}"
- puts "OriginZ = ${OriginZ}"
- puts "OriginZ_percent = ${OriginZ_percent}\n"
-
- puts "good_AxisX = ${good_AxisX}"
- puts "AxisX = ${AxisX}"
- puts "AxisX_percent = ${AxisX_percent}\n"
-
- puts "good_AxisY = ${good_AxisY}"
- puts "AxisY = ${AxisY}"
- puts "AxisY_percent = ${AxisY_percent}\n"
-
- puts "good_AxisZ = ${good_AxisZ}"
- puts "AxisZ = ${AxisZ}"
- puts "AxisZ_percent = ${AxisZ_percent}\n"
-
- if {${Parameter1_percent} > ${percent_max}} {
- puts "OCC2755 Faulty (case 3 / $i)"
- set IsGood 0
- }
- if {${Parameter2_percent} > ${percent_max}} {
- puts "OCC2755 Faulty (case 3 / $i)"
- set IsGood 0
- }
- if {${OriginX_percent} > ${percent_max}} {
- puts "OCC2755 Faulty (case 3 / $i)"
- set IsGood 0
- }
- if {${OriginY_percent} > ${percent_max}} {
- puts "OCC2755 Faulty (case 3 / $i)"
- set IsGood 0
- }
- if {${OriginZ_percent} > ${percent_max}} {
- puts "OCC2755 Faulty (case 3 / $i)"
- set IsGood 0
- }
- if {${AxisX_percent} > ${percent_max}} {
- puts "OCC2755 Faulty (case 3 / $i)"
- set IsGood 0
- }
- if {${AxisY_percent} > ${percent_max}} {
- puts "OCC2755 Faulty (case 3 / $i)"
- set IsGood 0
- }
- if {${AxisZ_percent} > ${percent_max}} {
- puts "OCC2755 Faulty (case 3 / $i)"
- set IsGood 0
- }
-
- }
-
- if {${IsGood} == 1} {
- puts "OCC2755 OK"
- }
-
-}
-
-set 3dviewer 0
-
+++ /dev/null
-puts "========"
-puts "OCC276"
-puts "========"
-puts ""
-#########################################################
-##Bad performance of checkshape on faces with multiple wires
-#########################################################
-
-restore [locate_data_file OCC276.brep] result
-
-dchrono h2 reset
-dchrono h2 start
-
-checkshape result
-
-dchrono h2 stop
-set q2 [ dchrono h2 show ]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
-if { [expr $z2 > 43] } {
- puts "Elapsed time is more then 43 seconds - Faulty"
-} else {
- puts "Elapsed time is less then 43 seconds - OK"
-}
-
-set 2dviewer 0
-
-
-
-
-
+++ /dev/null
-puts "========"
-puts "OCC277"
-puts "========"
-puts ""
-
-pload QAcommands
-
-OCC277
-
-set listmem {}
-set i_max 10
-for {set i 1} {${i} <= ${i_max}} {incr i} {
- OCC277
-
- lappend listmem [expr [meminfo w] / 1024]
- if { [checktrend $listmem 0 1 "Memory leak detected"] } {
- puts "No memory leak, $i iterations"
- break
- }
-}
+++ /dev/null
-puts "============"
-puts "OCC2784"
-puts "============"
-puts ""
-######################################################
-# Common and cut operations for two faces gives invalid result
-######################################################
-# Common and cut operations for two faces gives invalid result if one of the faces
-# has a hole and other face lay in this hole (fill this hole).
-######################################################
-## (new topology)
-## (bcut)
-## (bcommon)
-######################################################
-
-############# data #############
-box b1 10 20 10
-box b2 1 1 1
-ttranslate b2 5 5 0
-explode b1 f
-explode b2 f
-
-bcut rcut1 b1_5 b2_5
-checkshape rcut1
-
-bcommon result rcut1 b2_5
-
-regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
-
-if { $m != 0 } {
- puts "Error : square is not right"
-}
-
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC2784"
-puts "============"
-puts ""
-######################################################
-# Common and cut operations for two faces gives invalid result
-######################################################
-# Common and cut operations for two faces gives invalid result if one of the faces
-# has a hole and other face lay in this hole (fill this hole).
-######################################################
-## (old topology)
-## (cut)
-## (common)
-######################################################
-
-############# data #############
-box b1 10 20 10
-box b2 1 1 1
-ttranslate b2 5 5 0
-explode b1 f
-explode b2 f
-
-bcut rcut1 b1_5 b2_5
-checkshape rcut1
-
-bcommon result rcut1 b2_5
-
-regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
-
-if { $m != 0 } {
- puts "Error : square is not right"
-}
-
-set 3dviewer 1
-
+++ /dev/null
-
-puts "========"
-puts "OCC278"
-puts " (case 1)"
-puts "========"
-
-######################################################################
-##Command "checkshape" does not define self-crossing for some wires and assigns status "valid" for them.
-## NOTE akm: there is no actual intersection - it was a bug in displaying complicated curves (my patch deals with it)
-## NOTE akm: wire alone is only a curve in the space so it may intersect itself.
-## NOTE akm: bug after putting it on plane checkshape found the pb.
-#######################################################################
-
-restore [locate_data_file OCC278a.brep] a
-
-mkplane result a
-checkshape result
-
-set square 2914.99
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC278"
-puts " (case 2)"
-puts "========"
-
-######################################################################
-##Command "checkshape" does not define self-crossing for some wires and assigns status "valid" for them.
-## NOTE akm: there is no actual intersection - it was a bug in displaying complicated curves (my patch deals with it)
-## NOTE akm: wire alone is only a curve in the space so it may intersect itself.
-## NOTE akm: bug after putting it on plane checkshape found the pb.
-#######################################################################
-
-restore [locate_data_file OCC278b.brep] a
-
-mkplane result a
-checkshape result
-
-set square 22740
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC278"
-puts " (case 3)"
-puts "========"
-
-######################################################################
-##Command "checkshape" does not define self-crossing for some wires and assigns status "valid" for them.
-## NOTE akm: there is no actual intersection - it was a bug in displaying complicated curves (my patch deals with it)
-## NOTE akm: wire alone is only a curve in the space so it may intersect itself.
-## NOTE akm: bug after putting it on plane checkshape found the pb.
-#######################################################################
-
-restore [locate_data_file OCC278c.brep] a
-
-mkplane result a
-decho off
-set che [checkshape result]
-decho on
-
-if { [regexp "Faulty" $che] != 1 } {
- puts "Error (case 3) : Checkshape command works wrongly"
-}
-
-set square 43.3075
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC27"
-puts "================"
-puts ""
-
-restore [locate_data_file shading_128.brep] a
-checkshape a
-
-explode a e
-blend result a 1 a_5 1 a_6 1 a_7 1 a_8
-checkshape result
-
-set square 155.846
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC27"
-puts "================"
-puts ""
-
-restore [locate_data_file shading_128.brep] a
-checkshape a
-
-explode a e
-explode a f
-chamf result a a_5 a_1 A 1 45 a_6 a_1 A 1 45 a_7 a_1 A 1 45 a_8 a_1 A 1 45
-checkshape result
-
-set square 154.145
-set 2dviewer 0
-
+++ /dev/null
-puts "========"
-puts "OCC284"
-puts "========"
-
-#########################################################
-## Command "checkshape" "gives" exception during attempt to check attached shape.
-#########################################################
-
-restore [locate_data_file OCC284.brep] result
-
-decho off
-if [catch { checkshape result } catch_result] {
- set mistake 1
-} else {
- set mistake 0
-}
-decho on
-
-if { $mistake != 0} {
- puts "Faulty OCC284 : here is problem in checkshape function"
-} else {
- puts "OCC284 OK: function checkshape works properly"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC286: Attempt to project the point on surface gives wrong result."
-puts "========================"
-puts " OCC286 "
-puts "========================"
-puts ""
-
-restore [locate_data_file OCC286a.draw] a
-restore [locate_data_file OCC286b.draw] b
-
-intersect i a b
-cvalue i 0.31 x y z
-point p x y z
-proj b x y z
-
-set err1 ""
-set err2 ""
-set err3 ""
-regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_1] full err1
-regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_2] full err2
-regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_3] full err3
-
-if { $err1 == $err2 || $err1 == $err3 || $err2 == $err3 } {
- puts "Faulty OCC286: Attempt to project the point on surface gives wrong result."
-} else {
- puts "OCC286 OK : Attempt to project the point on surface gives correct result"
-}
-
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC28"
-puts "================"
-###############################################
-puts "Bug is limitation on currently version of topology (07.06.2002)."
-###############################################
-
-cpulimit 1200
-restore [locate_data_file OCC28.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_1 a_2
-checkshape result
-
-set square 483935
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC28"
-puts "================"
-###############################################
-puts "Bug is limitation on currently version of topology (07.06.2002)."
-###############################################
-
-cpulimit 1200
-restore [locate_data_file OCC28.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_2 a_1
-checkshape result
-
-set square 483935
-set 2dviewer 0
-
-
+++ /dev/null
-puts "TODO OCC11111 ALL: OCC299: Error 2"
-
-pload QAcommands
-
-puts "================"
-puts "OCC299"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC298.brep] pr
-checkshape pr
-
-point p 0.86427836 -1 -1
-
-set info_result [OCC299 pr p]
-set ll [llength ${info_result}]
-if { ${ll} < 4 } {
- puts "OCC299: Error 1"
-} else {
- if { [regexp {IN} $info_result] } {
- puts "OCC299: OK"
- } else {
- puts "OCC299: Error 2"
- }
-}
-
+++ /dev/null
-puts "========================"
-puts " OCC303 "
-puts "(case 1)"
-puts "========================"
-puts ""
-#################################################################
-## Exception while segment operation.
-#################################################################
-
-restore [locate_data_file OCC303a.brep] sh1
-
-explode sh1 e
-
-mkcurve c5 sh1_5
-trim result c5
-
-if [catch {segment result 22.07126804854423 23.6320483505636} catch_result] {
- puts "Faulty OCC303 (case 1): function SEGMENT works wrongly"
-} else {
- puts "OCC303 OK (case 1): function SEGMENT works properly"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC303 "
-puts "(case 2)"
-puts "========================"
-puts ""
-#################################################################
-## Exception while segment operation.
-#################################################################
-
-restore [locate_data_file OCC303b.brep] sh1
-
-explode sh1 e
-
-mkcurve c1 sh1_1
-trim result c1
-
-if [catch {segment result 23.09944997429109 23.6320483505636} catch_result] {
- puts "Faulty OCC303 (case 2): function SEGMENT works wrongly"
-} else {
- puts "OCC303 OK (case 2): function SEGMENT works properly"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "==========="
-puts " OCC308 "
-puts "==========="
-puts ""
-#################################################################
-## Can not project 3D-curve on surface.
-#################################################################
-
-restore [locate_data_file OCC308a.draw] a
-restore [locate_data_file OCC308b.draw] b
-
-if [catch {project result a b} catch_result] {
- set mistake 1
-} else {
- set mistake 0
-}
-
-if { $mistake == 0} {
- puts "Faulty OCC308 : function PROJECT works wrongly"
-} else {
- puts "OCC308 OK : function PROJECT works properly"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "================"
-puts "OCC31"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC31.brep] sh
-checkshape sh
-
-explode sh f
-
-explode sh_2 e
-
-chamf res1 sh sh_2_1 sh_2 7 7
-checkshape res1
-
-explode res1 f
-
-explode res1_5 e
-
-chamf res2 res1 res1_5_4 res1_5 7 7
-checkshape res2
-
-explode res2 f
-
-explode res2_4 e
-
-chamf result res2 res2_4_1 res2_4 7 7
-checkshape result
-
-set square 107634
-set 2dviewer 0
+++ /dev/null
-puts "========"
-puts "OCC311"
-puts "========"
-
-restore [locate_data_file OCC311.draw] c
-#### checkshape c # - not a topological shape
-
-set ufirst 1e-7
-set ulast 6.2831854071795901
-
-segment c ${ufirst} ${ulast}
-
-set dumpc [dump c]
-
-set list [split ${dumpc} "\n\t"]
-set listLength [llength ${list}]
-if { ${listLength} < 25 } {
- puts "OCC311 - Error : listLength= ${listLength}"
-}
-
-regexp { +Degree +([-0-9.+eE]+), +([-0-9.+eE]+) +Poles, +([-0-9.+eE]+) +Knots} $dumpc full DegreeNumber PolesNumber KnotsNumber
-
-set Knots [regexp -all -inline { +([-0-9.+eE]+ +: +[-0-9.+eE]+ +[-0-9.+eE]+)} $dumpc]
-regexp { *[-0-9.+eE]+ +: +([-0-9.+eE]+) +[-0-9.+eE]+} [lindex $Knots 1] full FirstKnot
-regexp { *[-0-9.+eE]+ +: +([-0-9.+eE]+) +[-0-9.+eE]+} [lindex $Knots [llength $Knots]-1] full LastKnot
-
-set delta_first [expr abs(${FirstKnot} - ${ufirst}) / ${ufirst} * 100]
-set delta_last [expr abs(${LastKnot} - ${ulast}) / ${ulast} * 100]
-
-set maxdelta 0.01
-
-puts "FirstKnot = ${FirstKnot}"
-puts "LastKnot = ${LastKnot}"
-
-if { ${delta_first} > ${maxdelta} } {
- puts "OCC311 - Error : delta_first = ${delta_first}"
-}
-if { ${delta_last} > ${maxdelta} } {
- puts "OCC311 - Error : delta_last = ${delta_last}"
-}
-
-if { ${delta_first} <= ${maxdelta} && ${delta_last} <= ${maxdelta} } {
- puts "OCC311: OK"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "========"
-puts "OCC311"
-puts "========"
-
-restore [locate_data_file OCC311.draw] c
-#### checkshape c # - not a topological shape
-
-set ufirst 1e-7
-set ulast 6.2831854071795897
-
-segment c ${ufirst} ${ulast}
-
-set dumpc [dump c]
-
-set list [split ${dumpc} "\n\t"]
-set listLength [llength ${list}]
-if { ${listLength} < 25 } {
- puts "OCC311 - Error : listLength= ${listLength}"
-}
-
-regexp { +Degree +([-0-9.+eE]+), +([-0-9.+eE]+) +Poles, +([-0-9.+eE]+) +Knots} $dumpc full DegreeNumber PolesNumber KnotsNumber
-
-set Knots [regexp -all -inline { +([-0-9.+eE]+ +: +[-0-9.+eE]+ +[-0-9.+eE]+)} $dumpc]
-regexp { *[-0-9.+eE]+ +: +([-0-9.+eE]+) +[-0-9.+eE]+} [lindex $Knots 1] full FirstKnot
-regexp { *[-0-9.+eE]+ +: +([-0-9.+eE]+) +[-0-9.+eE]+} [lindex $Knots [llength $Knots]-1] full LastKnot
-
-set delta_first [expr abs(${FirstKnot} - ${ufirst}) / ${ufirst} * 100]
-set delta_last [expr abs(${LastKnot} - ${ulast}) / ${ulast} * 100]
-
-set maxdelta 0.01
-
-puts "FirstKnot = ${FirstKnot}"
-puts "LastKnot = ${LastKnot}"
-
-if { ${delta_first} > ${maxdelta} } {
- puts "OCC311 - Error : delta_first = ${delta_first}"
-}
-if { ${delta_last} > ${maxdelta} } {
- puts "OCC311 - Error : delta_last = ${delta_last}"
-}
-
-if { ${delta_first} <= ${maxdelta} && ${delta_last} <= ${maxdelta} } {
- puts "OCC311: OK"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC313"
-puts "================"
-puts ""
-
-########################################################
-#### Exeption is raised in DRAW during command "restore" on attahed shape.
-########################################################
-
-restore [locate_data_file OCC313.brep] result
-
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC324 "
-puts "========================"
-puts ""
-#################################################################
-## The command "intersect" applied to the given arguments "s1" (plane) and "s2" (cylinder) leads
-## to the program hang-up.
-#################################################################
-
-restore [locate_data_file OCC324a.draw] s1
-restore [locate_data_file OCC324b.draw] s2
-
-if [catch {intersect result s1 s2} catch_result] {
- puts "Faulty OCC324: function INTERSECT works wrongly"
-} else {
- puts "OCC324 OK: function INTERSECT works properly"
-}
-
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========================"
-puts "BUC60979"
-puts " OCC324 "
-puts "========================"
-puts ""
-#################################################################
-## Extrema between trimmed line and circle lead to exception.
-#################################################################
-
-restore [locate_data_file OCC359a.brep] el
-restore [locate_data_file OCC359b.brep] ec
-
-distmini dd el ec
-
-
+++ /dev/null
-puts "========================"
-puts " OCC325 "
-puts "========================"
-puts ""
-##################################################
-## Checkshape does not recognize an error in a bad face
-##################################################
-
-restore [locate_data_file OCC325.brep] result
-
-decho off
-set che [checkshape result]
-decho on
-
-if { [regexp {Faulty} $che ] != 1} {
- puts "Faulty OCC325: Checkshape command works wrongly"
-} else {
- puts "OCC325 OK : Checkshape command works properly"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "================"
-puts "OCC326"
-puts "================"
-puts ""
-###########################################################
-## Exception is raised in sewing on internal edges on attached shape
-###########################################################
-
-restore [locate_data_file OCC326.brep] a
-
-if [catch { sewing result a } catch_result] {
- puts "Faulty OCC326: here is sewing problem"
-} else {
- puts "OCC326 OK: Sewing is ok, there is no except"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "================"
-puts "OCC332"
-puts "================"
-puts ""
-
-pload QAcommands
-
-set wall_thickness 10
-set dia1 30
-set dia2 50
-set ll 100
-set major_radius 200
-
-OCC332 ${wall_thickness} ${dia1} ${dia2} ${ll} ${major_radius}
-
-checkshape wallSolid_
-checkshape gasSolid_
-
-
-vinit
-vdisplay wallSolid_
-vdisplay gasSolid_
-vzfit
-
-
-explode wallSolid_ w
-
-vdisplay wallSolid__3
-vdisplay wallSolid__4
-vdisplay wallSolid__5
-vdisplay wallSolid__6
-
-set props_3 [lprops wallSolid__3]
-set props_4 [lprops wallSolid__4]
-set props_5 [lprops wallSolid__5]
-set props_6 [lprops wallSolid__6]
-
-#wire wallSolid__3
-set list [split ${props_3} "\n\t"]
-set listLength [llength ${list}]
-if { ${listLength} < 20 } {
- puts "OCC332 - Error : listLength= ${listLength}"
-}
-
-regexp {Mass +: +([-0-9.+eE]+)} $props_3 full CircleLength_3
-
-#wire wallSolid__4
-set list [split ${props_4} "\n\t"]
-set listLength [llength ${list}]
-if { ${listLength} < 20 } {
- puts "OCC332 - Error : listLength= ${listLength}"
-}
-
-regexp {Mass +: +([-0-9.+eE]+)} $props_4 full CircleLength_4
-
-#wire wallSolid__5
-set list [split ${props_5} "\n\t"]
-set listLength [llength ${list}]
-if { ${listLength} < 20 } {
- puts "OCC332 - Error : listLength= ${listLength}"
-}
-
-regexp {Mass +: +([-0-9.+eE]+)} $props_5 full CircleLength_5
-
-#wire wallSolid__6
-set list [split ${props_6} "\n\t"]
-set listLength [llength ${list}]
-if { ${listLength} < 20 } {
- puts "OCC332 - Error : listLength= ${listLength}"
-}
-
-regexp {Mass +: +([-0-9.+eE]+)} $props_6 full CircleLength_6
-
-# Calculation
-set pi [expr 2. * asin(1.0)]
-set TheoryCircleLength_4 [expr ${pi} * ${dia1}]
-set TheoryCircleLength_3 [expr ${pi} * (${dia1} + 2 * ${wall_thickness}) ]
-set TheoryCircleLength_6 [expr ${pi} * ${dia2}]
-set TheoryCircleLength_5 [expr ${pi} * (${dia2} + 2 * ${wall_thickness}) ]
-
-set delta_3 [expr abs(${CircleLength_3} - ${TheoryCircleLength_3}) / ${TheoryCircleLength_3} * 100]
-set delta_4 [expr abs(${CircleLength_4} - ${TheoryCircleLength_4}) / ${TheoryCircleLength_4} * 100]
-set delta_5 [expr abs(${CircleLength_5} - ${TheoryCircleLength_5}) / ${TheoryCircleLength_5} * 100]
-set delta_6 [expr abs(${CircleLength_6} - ${TheoryCircleLength_6}) / ${TheoryCircleLength_6} * 100]
-
-set maxdelta 0.1
-
-if { ${delta_3} > ${maxdelta} } then {puts "OCC332 - Error : delta_3= ${delta_3}"}
-if { ${delta_4} > ${maxdelta} } then {puts "OCC332 - Error : delta_4= ${delta_4}"}
-if { ${delta_5} > ${maxdelta} } then {puts "OCC332 - Error : delta_5= ${delta_5}"}
-if { ${delta_6} > ${maxdelta} } then {puts "OCC332 - Error : delta_6= ${delta_6}"}
-
-if { ${delta_3} <= ${maxdelta} && ${delta_4} <= ${maxdelta} && ${delta_5} <= ${maxdelta} && ${delta_6} <= ${maxdelta} } then {
- puts "OCC332: OK"
-}
-puts "CircleLength_3 = ${CircleLength_3}"
-puts "CircleLength_4 = ${CircleLength_4}"
-puts "CircleLength_5 = ${CircleLength_5}"
-puts "CircleLength_6 = ${CircleLength_6}"
-
-set only_screen 1
-
-
-
+++ /dev/null
-puts "================"
-puts "OCC333"
-puts "================"
-puts ""
-#######################################################
-## Superimposed curves during intersection two surfaces
-#######################################################
-
-pload QAcommands
-
-restore [locate_data_file OCC333a.draw] s12
-############### checkshape su12 # is not a topological shape
-restore [locate_data_file OCC333b.draw] s11
-############### checkshape su11 # is not a topological shape
-intersect result s12 s11
-explode result e
-clknots result_3
-clknots result_13
-
-mkedge e_1 result_3
-mkedge e_2 result_13
-
-set status [OCC333 e_1 e_2]
-if {[llength ${status}] < 1} {
- puts "OCC333 ERROR"
-} else {
- regexp {([-0-9.+eE]+)} ${status} full code
- if { ${code} == 3 || ${code} == 2} {
- puts "OCC333 OK : Intersection command works properly"
- } else {
- puts "Faulty OCC333 : Intersection was made WRONGLY"
- }
-}
-
-donly i_3 i_13
-
-set 2dviewer 0
+++ /dev/null
-puts "================"
-puts "BUC61039"
-puts "OCC343"
-puts "================"
-puts ""
-
-cpulimit 9000
-pload XDE
-if [catch {igesbrep [locate_data_file lh3d_px1.igs] a *} catch_result] {
- puts "Faulty OCC343: here is reading problem"
-} else {
- puts "Reading OCC343 OK"
- tpcompound a
- #
- # First sewing
- #
- sewing result1 100. a
-
- set FaceList [explode result1 f]
- set FaceListLength [llength ${FaceList}]
- if { ${FaceListLength} < 1 } {
- puts "OCC343 - Error : FaceListLength= ${FaceListLength}"
- }
-
- set X_List1 [list]
- set Y_List1 [list]
- set Z_List1 [list]
- for {set i 1} {${i} <= ${FaceListLength}} {incr i} {
- set props [sprops result1_${i}]
- set list [split ${props} "\n\t"]
- set listLength [llength ${list}]
- if { ${listLength} < 20 } {
- puts "OCC343 - Error : listLength= ${listLength}"
- }
- set Center_Gravity_X [lindex ${list} 5]
- set Center_Gravity_Y [lindex ${list} 6]
- set Center_Gravity_Z [lindex ${list} 7]
-
- set Center_Gravity_X [lindex [split ${Center_Gravity_X}] [expr [llength [split ${Center_Gravity_X}] ] - 1] ]
- set Center_Gravity_Y [lindex [split ${Center_Gravity_Y}] [expr [llength [split ${Center_Gravity_Y}] ] - 1] ]
- set Center_Gravity_Z [lindex [split ${Center_Gravity_Z}] [expr [llength [split ${Center_Gravity_Z}] ] - 1] ]
-
- lappend X_List1 ${Center_Gravity_X}
- lappend Y_List1 ${Center_Gravity_Y}
- lappend Z_List1 ${Center_Gravity_Z}
- }
-
- vinit
- vdisplay result1
- vfit
-
- set CycleNumber 10
- for {set j 1} {${j} <= ${CycleNumber}} {incr j} {
- veraseall
- #
- # Second sewing
- #
-
- if [catch {igesbrep [locate_data_file lh3d_px1.igs] a *} catch_result] {
- puts "Faulty OCC343: here is reading problem"
- } else {
- puts "Reading OCC343 OK"
- }
-
- tpcompound a
- sewing result2 100. a
-
- set FaceList [explode result2 f]
- set FaceListLength [llength ${FaceList}]
- if { ${FaceListLength} < 1 } then {puts "OCC343 - Error : FaceListLength= ${FaceListLength}"}
-
- set X_List2 [list]
- set Y_List2 [list]
- set Z_List2 [list]
- for {set i 1} {${i} <= ${FaceListLength}} {incr i} {
- set props [sprops result2_${i}]
- set list [split ${props} "\n\t"]
- set listLength [llength ${list}]
- if { ${listLength} < 20 } {
- puts "OCC343 - Error : listLength= ${listLength}"
- }
-
- set Center_Gravity_X [lindex ${list} 5]
- set Center_Gravity_Y [lindex ${list} 6]
- set Center_Gravity_Z [lindex ${list} 7]
-
- set Center_Gravity_X [lindex [split ${Center_Gravity_X}] [expr [llength [split ${Center_Gravity_X}] ] - 1] ]
- set Center_Gravity_Y [lindex [split ${Center_Gravity_Y}] [expr [llength [split ${Center_Gravity_Y}] ] - 1] ]
- set Center_Gravity_Z [lindex [split ${Center_Gravity_Z}] [expr [llength [split ${Center_Gravity_Z}] ] - 1] ]
-
- lappend X_List2 ${Center_Gravity_X}
- lappend Y_List2 ${Center_Gravity_Y}
- lappend Z_List2 ${Center_Gravity_Z}
- }
-
- set ListLength [llength ${X_List1}]
- if { ${ListLength} != [llength ${Y_List1}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
- if { ${ListLength} != [llength ${Z_List1}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
- if { ${ListLength} != [llength ${X_List2}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
- if { ${ListLength} != [llength ${Y_List2}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
- if { ${ListLength} != [llength ${Z_List2}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
-
- for {set i 0} {${i} < ${ListLength}} {incr i} {
- set X1 [lindex ${X_List1} ${i}]
- set X2 [lindex ${X_List2} ${i}]
- if { ${X1} != ${X2} } {
- puts "OCC343 - Error : X1= ${X1} X2= ${X2}"
- }
- set Y1 [lindex ${Y_List1} ${i}]
- set Y2 [lindex ${Y_List2} ${i}]
- if { ${Y1} != ${Y2} } {
- puts "OCC343 - Error : Y1= ${Y1} Y2= ${Y2}"
- }
- set Z1 [lindex ${Z_List1} ${i}]
- set Z2 [lindex ${Z_List2} ${i}]
- if { ${Z1} != ${Z2} } {
- puts "OCC343 - Error : Z1= ${Z1} Z2= ${Z2}"
- }
- }
-
- tclean result1
- vdisplay result1
- vfit
- }
-}
-
-set only_screen 1
-
-
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC35"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC35.brep] result
-decho off
-set info [checkshape result]
-decho on
-
-if { [regexp "Faulty" $info] != 1 } {
- puts "Command checkshape works wrongly (should be faulty)"
-}
-
-set 2dviewer 0
-
-
-
-
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC353"
-puts "================"
-puts ""
-##########################################################
-## Attached DRAW command "TATA_const" hangs in Geom2dGcc_Circ2d3Tan.
-##########################################################
-
-if [catch { OCC353 }] {
- puts "OCC353: Error"
-} else {
- puts "OCC353: OK"
-}
-
+++ /dev/null
-
-puts "========================"
-puts " OCC354 "
-puts "(case 1)"
-puts "========================"
-puts ""
-##################################################
-## neither chamfer nor blend is built in similar situation
-##################################################
-
-restore [locate_data_file OCC354a.brep] a
-
-explode a e
-
-blend result a 2 a_18
-checkshape result
-
-set square 593.527
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts " OCC354 "
-puts "(case 2)"
-puts "========================"
-puts ""
-##################################################
-## neither chamfer nor blend is built in similar situation
-##################################################
-
-restore [locate_data_file OCC354b.brep] a
-explode a f
-
-explode a_5 e
-
-donl a a_5_6
-
-chamf result a a_5_6 a_5 A 2 45
-checkshape result
-
-set square 589.268
-set 2dviewer 0
+++ /dev/null
-puts "========"
-puts "OCC36"
-puts "========"
-
-pload XDE
-
-if [catch { igesbrep [locate_data_file OCC36.igs] a * } res] {
- puts "Warning OCC36: here is reading problem"
-} else {
- puts "Reading OCC36 OK"
-
- tpcompound r
- dchrono h2 reset
- dchrono h2 start
- sewing result 1.e-7 r
- dchrono h2 stop
- set q2 [ dchrono h2 show ]
- regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
- puts "$z2"
- if { $z2 > 30 } {
- puts "Elapsed time is more then 30 seconds - Faulty"
- } else {
- puts "Elapsed time is less then 30 seconds - OK"
- }
-}
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "========================"
-puts " BUC60980 "
-puts " OCC360"
-puts "========================"
-puts ""
-##################################################################
-## Can not find a projection the circle on the sphere.
-##################################################################
-
-restore [locate_data_file OCC360a.draw] c
-restore [locate_data_file OCC360b.draw] cf
-
-set che [project result c cf]
-puts $che
-
-if { [regexp {Projection} $che] && [regexp {Failed} $che] } {
- puts "Faulty OCC360: command PROJECT works wrongly"
-} else {
- puts " OCC360 OK : command PROJECT works properly"
-}
-
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========================"
-puts " OCC366 "
-puts "========================"
-puts ""
-##################################################
-## Checkshape says that face is valid but it inludes selfintersecting wire
-##################################################
-
-restore [locate_data_file buc61006.brep] result
-
-decho off
-set che [checkshape result]
-decho on
-
-if { [regexp "Faulty" $che] != 1 } {
- puts "Error : Checkshape command works wrongly"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC367"
-puts "BUC61013"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC105.brep] result
-checkshape result
-
-set step 0.5
-set goodX -307.47165394
-set goodY -340.18073533
-set goodZ 0
-set percent_tolerance 0.01
-
-OCC367 result ${step} ${goodX} ${goodY} ${goodZ} ${percent_tolerance}
-
-set length 1760.13
-set 2dviewer 0
-
-
-
+++ /dev/null
-
-puts "========================"
-puts "BUC61027"
-puts " OCC368 "
-puts "========================"
-puts ""
-##############################################
-## Visualization is too slow.
-##############################################
-
-restore [locate_data_file OCC368.brep] result
-checkshape result
-
-tclean result
-isos result 0
-vinit
-dchrono h2 reset
-dchrono h2 start
-vdisplay result
-vsetdispmode result 1
-dchrono h2 stop
-
-regexp {CPU user time: +([-0-9.+eE]+)} [dchrono h2 show] full z2
-
-if { $z2 > 30 } {
- puts "Error : Elapsed time is more then 30 seconds"
-}
-
-set 2dviewer 0
-
-
-
-
+++ /dev/null
-puts "========================"
-puts "BUC61033"
-puts " OCC370 "
-puts "========================"
-puts ""
-#################################################################
-##Intersection between a sphere and trimmed plane, using IntPatch_Intersection, lead to infinite cycle.
-#################################################################
-
-sphere gs1 1
-plane gs2 0 0 0 1 0 0
-trim trgs2 gs2 0 1.000001 -1 0.000001
-
-intersect result gs1 trgs2
-
-cpulimit 300
-
-puts "OCC370 OK: function INTERSECT works properly"
-
-erase gs2
-
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========================"
-puts "BUC61034"
-puts " OCC371 "
-puts "========================"
-puts ""
-#################################################################
-##Intersection between two BSplineSurfaces, using IntPatch_Intersection, lead to infinite cycle.
-#################################################################
-
-restore [locate_data_file OCC371a.brep] a
-restore [locate_data_file OCC371b.brep] b
-
-mksurface gs1 a
-mksurface gs2 b
-trim trgs1 gs1 0.0 1.0 0.9698725179864 1.0
-trim trgs2 gs2 0.0 1.0 0.24333094700742 0.92374551772989
-
-#cpulimit 300
-intersect result trgs1 trgs2
-
-set 2dviewer 0
-
-
+++ /dev/null
-pload QAcommands
-
-puts "========================"
-puts "OCC372"
-puts "BUC61036"
-puts "========================"
-puts ""
-###############################################################
-##BRepClass3d_SolidClassifier classify point to solid as OUT, but the point is inside the solid.
-###############################################################
-
-restore [locate_data_file OCC372.brep] b1
-checkshape b1
-
-point p1 6311.4862583184 -2841.3092756034 16.461053497188
-
-set result [OCC299 b1 p1]
-set ll [llength ${result}]
-if { ${ll} < 4 } then {
- puts "OCC372: ERROR 1"
-} else {
- regexp {The point is (.*) shape} ${result} full status
- if {[string compare ${status} "IN"] == 0} then {
- puts "status = ${status}"
- puts "OCC372: OK"
- } else {
- puts "status = ${status}"
- puts "Faulty : OCC372"
- }
-}
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC3721"
-puts "============"
-puts ""
-######################################################
-# When using Boolean Operations exception is raised for some tolerance vals.
-######################################################
-## (new topology)
-## (bfuse)
-######################################################
-
-restore [locate_data_file OCC3721-1.brep] b1
-restore [locate_data_file OCC3721-2.brep] b2
-
-checkshape b1
-checkshape b2
-
-if { [catch {bfuse result b1 b2} catch_result] } {
- puts "Faulty OCC3721"
-}
-
-checkshape result
-
-set square 71185
-set 3dviewer 1
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC3721"
-puts "============"
-puts ""
-######################################################
-# When using Boolean Operations exception is raised for some tolerance vals.
-######################################################
-## (new topology)
-## (bfuse)
-######################################################
-
-restore [locate_data_file OCC3721-1.brep] b1
-restore [locate_data_file OCC3721-2.brep] b2
-
-checkshape b1
-checkshape b2
-
-if { [catch {bfuse result b2 b1} catch_result] } {
- puts "Faulty OCC3721"
-}
-
-checkshape result
-
-set square 71185
-set 3dviewer 1
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC3721"
-puts "============"
-puts ""
-######################################################
-# When using Boolean Operations exception is raised for some tolerance vals.
-######################################################
-## (new topology)
-## (bcommon)
-######################################################
-
-restore [locate_data_file OCC3721-1.brep] b1
-restore [locate_data_file OCC3721-2.brep] b2
-
-checkshape b1
-checkshape b2
-
-if { [catch {bcommon result b2 b1} catch_result] } {
- puts "Faulty OCC3721"
-}
-
-checkshape result
-
-set square 0.
-set 3dviewer 1
\ No newline at end of file
+++ /dev/null
-puts "============"
-puts "OCC3721"
-puts "============"
-puts ""
-######################################################
-# When using Boolean Operations exception is raised for some tolerance vals.
-######################################################
-## (new topology)
-## (bcut)
-######################################################
-
-restore [locate_data_file OCC3721-1.brep] b1
-restore [locate_data_file OCC3721-2.brep] b2
-
-checkshape b1
-checkshape b2
-
-if { [catch {bcut result b1 b2} catch_result] } {
- puts "Faulty OCC3721"
-}
-
-checkshape result
-
-set square 71185
-set 3dviewer 1
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC3721"
-puts "============"
-puts ""
-######################################################
-# When using Boolean Operations exception is raised for some tolerance vals.
-######################################################
-## (new topology)
-## (bcut)
-######################################################
-
-restore [locate_data_file OCC3721-1.brep] b1
-restore [locate_data_file OCC3721-2.brep] b2
-
-checkshape b1
-checkshape b2
-
-if { [catch {bcut result b2 b1} catch_result] } {
- puts "Faulty OCC3721"
-}
-
-checkshape result
-
-set square 71185
-set 3dviewer 1
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC11111 ALL: Error : The square of result shape is"
-
-puts "============"
-puts "OCC3721"
-puts "============"
-puts ""
-######################################################
-# When using Boolean Operations exception is raised for some tolerance vals.
-######################################################
-## (new topology)
-## (boptuc)
-######################################################
-
-restore [locate_data_file OCC3721-1.brep] b1
-restore [locate_data_file OCC3721-2.brep] b2
-
-checkshape b1
-checkshape b2
-
-bop b1 b2
-if { [catch {boptuc result} catch_result] } {
- puts "Faulty OCC3721"
-}
-
-checkshape result
-
-set square 71185
-set 3dviewer 1
-
+++ /dev/null
-puts "============"
-puts "OCC3721"
-puts "============"
-puts ""
-######################################################
-# When using Boolean Operations exception is raised for some tolerance vals.
-######################################################
-## (new topology)
-## (boptuc)
-######################################################
-
-restore [locate_data_file OCC3721-1.brep] b1
-restore [locate_data_file OCC3721-2.brep] b2
-
-checkshape b1
-checkshape b2
-
-bop b2 b1
-if { [catch {boptuc result} catch_result] } {
- puts "Faulty OCC3721"
-}
-
-checkshape result
-
-set square 71185
-set 3dviewer 1
-
+++ /dev/null
-
-puts "========================"
-puts "BUC61040"
-puts " OCC374 "
-puts "========================"
-puts ""
-####################################
-##Offset surface from bspline surface is not correct
-####################################
-restore [locate_data_file OCC374.draw] su
-
-offset su1 su 1
-
-mkface result su1
-
-set square 7960.45
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts "BUC61040"
-puts " OCC374 "
-puts "========================"
-puts ""
-####################################
-##Offset surface from bspline surface is not correct
-####################################
-restore [locate_data_file OCC374.draw] su
-
-offset su2 su -1
-
-mkface result su2
-
-set square 7181.83
-set 2dviewer 0
+++ /dev/null
-
-puts "========================"
-puts "BUC61049"
-puts " OCC376 "
-puts "========================"
-puts ""
-####################################
-##. Offset can not be created on the attached surface
-####################################
-
-restore [locate_data_file OCC376.rle] s
-
-offset r s 1
-
-mkface result s
-
-set square 1256.64
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Error : OCC377"
-
-pload QAcommands
-
-puts "========"
-puts "OCC377"
-puts "BUC61056"
-puts "========"
-puts ""
-###################################################################
-##Incorrect behaviour of BRepTopAdapter_FClass2d. It cannot work with parametric representation
-## of the first wire on the face. It says that point (1.9812, -0.9557948) is outside the contour for
-## forward wire and inside for reversed one if tolerance is equal to 6.45
-###################################################################
-
-set result_info [ OCC377 [locate_data_file OCC377.brep] 1.9812 -0.9557948 6.45 ]
-if { [ regexp {FAULTY} $result_info ]} {
- puts "Error : OCC377"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "========================"
-puts "BUC61058"
-puts " OCC378 "
-puts "========================"
-puts ""
-########################################################################
-##Regression on KAS:dev:ros. Draw hangs after try to load 6381.brep shape to 3D Viewer. Case : cgg/004/S2
-########################################################################
-
-restore [locate_data_file OCC378.brep] result
-
-tclean result
-vinit
-
-if [catch {vdisplay result } catch_result] {
- puts "Faulty OCC378: function VDISPLAY works wrongly"
-} else {
- puts " OCC378 OK : function VDISPLAY works properly"
-}
-
-set 3dviewer 1
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC37"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC37.brep] sh
-explode sh
-checkshape sh_1
-checkshape sh_2
-
-bfuse result sh_1 sh_2
-checkshape result
-
-set square 665013
-set 2dviewer 0
-
-
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC37"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC37.brep] sh
-explode sh
-checkshape sh_1
-checkshape sh_2
-
-bfuse result sh_2 sh_1
-checkshape result
-
-set square 665013
-set 2dviewer 0
-
-
-
-
-
+++ /dev/null
-
-puts "========================"
-puts " OCC380 "
-puts "========================"
-puts ""
-##############################
-##Incorrect result of common operation
-##############################
-
-restore [locate_data_file OCC380a.rle] a
-restore [locate_data_file OCC380b.rle] b
-
-bcommon result a b
-
-set square 21.154
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========================"
-puts " OCC380 "
-puts "========================"
-puts ""
-##############################
-##Incorrect result of common operation
-##############################
-
-restore [locate_data_file OCC380a.rle] a
-restore [locate_data_file OCC380b.rle] b
-
-bcommon result b a
-
-set square 21.154
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty OCC3896"
-
-puts "============"
-puts "OCC3896"
-puts "============"
-puts ""
-######################################################
-# BRepCheck_Analyzer does not detect faulty faces in solid shape.
-######################################################
-
-#
-# a_13 face is FORVARD (faulty), but checkshape command does not detect it
-#
-
-set BugNumber OCC3896
-
-restore [locate_data_file OCC3896-pipe.brep] a
-
-explode a f
-compound a_1 a_13 result
-
-explode a_1 e
-explode a_13 e
-
-smallview
-donly result
-fit
-r
-
-normals result 200
-
-puts "Normal of a_13 face is red (FORWARD)"
-
-for {set i 1} {$i <= 14} {incr i} {
- whatis a_$i
-}
-
-decho off
-set info_result [checkshape result]
-decho on
-
-if {[regexp {Faulty} $info_result] } {
- puts "OK ${BugNumber} : checkshape detect faulty faces in solid shape"
-} else {
- puts "Faulty ${BugNumber} : checkshape does not detect faulty faces in solid shape"
-}
-
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC3"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC3-1.brep] a
-restore [locate_data_file OCC3-2.brep] b
-checkshape a
-checkshape b
-
-bfuse result a b
-checkshape result
-
-set square 11400
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC3"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC3-1.brep] a
-restore [locate_data_file OCC3-2.brep] b
-checkshape a
-checkshape b
-
-bfuse result b a
-checkshape result
-
-set square 11400
-set 2dviewer 0
-
+++ /dev/null
-
-puts "================"
-puts "OCC4"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC4.brep] sh
-checkshape sh
-
-explode sh e
-
-fillet result sh 15 sh_14
-checkshape result
-
-set square 177328
-set 2dviewer 0
-
-
+++ /dev/null
-puts "========================"
-puts " OCC408 "
-puts "========================"
-puts ""
-
-box b1 0 0 0 1 1 1
-nurbsconvert b1 b1
-box b2 0 -0.5 0 1.5 0.5 0.5
-
-bcommon result b1 b2
-checkshape -top result
-
-
-
+++ /dev/null
-
-puts "================"
-puts "OCC41"
-puts "================"
-puts ""
-
-puts "Isos lines may be drawn incorrectly"
-psphere result 10 -90
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "================"
-puts "OCC42"
-puts "================"
-puts ""
-###############################################
-## BRepAlgo_Sewing does not sew attached shape with any tolerance.
-###############################################
-
-pload XDE
-
-# 1. retriesve shape
-restore [locate_data_file OCC42.brep] sh
-checkshape sh
-
-# 2. perform sewing
-set toler 80
-sewing result $toler sh
-
-# 3. Verify result of sewing
-checkshape result
-
-# Retrieve free wires from result shape
-catch { fbclose result $toler $toler } resOfCatch
-
-# Amount of free open wires must be equal 0
-set open_wires [explode result_o W]
-if { [llength $open_wires] != 0} {
- puts "Error : There are free open wires"
-}
-
-# Amount of free closed wires must be equal 1
-set closed_wires [explode result_c W]
-if { [llength $closed_wires] != 1} {
- puts "Error : Amount of free closed wires is not equal 1"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "========"
-puts "OCC428"
-puts "SAM1414"
-puts "========"
-
-################################################
-## Exception during vizualization on attached shape in application.
-## Exception is raised in the package StdPrs.
-################################################
-
-restore [locate_data_file OCC428.brep] result
-
-tclean result
-vinit
-vdisplay result
-vsetdispmode result 1
-vclear
-
-isos result 0
-triangles result
-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 == 5496 && $nod == 5406 } {
- puts "Warning OCC428: here is shading problem, but source shape is invalid"
-} else {
- puts "Warning OCC428: Shading of OCC428 was made, source shape is invalid"
-}
-
-set 3dviewer 1
-
+++ /dev/null
-puts "========================"
-puts " OCC429 "
-puts "========================"
-puts ""
-#######################################
-## Projection for a point on a surface works wrong
-#######################################
-
-restore [locate_data_file OCC429a.draw] a
-restore [locate_data_file OCC429b.draw] b
-
-intersect i a b
-
-cvalue i_2 0.43213918 x y z
-point p x y z
-proj b x y z
-
-set err1 [string range [dump ext_1] 55 64]
-set err2 [string range [dump ext_2] 55 64]
-set err3 [string range [dump ext_3] 55 64]
-set err4 [string range [dump ext_4] 55 64]
-set err5 [string range [dump ext_5] 55 64]
-set err6 [string range [dump ext_6] 55 64]
-
-if { $err1 != "Parameters" || $err2 != "Parameters" || $err3 != "Parameters" || $err4 != "Parameters" || $err5 != "Parameters" || $err6 != "Parameters" } {
- puts " OCC286 OK : Projection for a point on a surface works properly"
-} else {
- puts "Faulty OCC429 : Attempt to project the point on surface gives incorrect result"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "========================"
-puts " OCC430 "
-puts "========================"
-puts ""
-################################################################
-## Exception when projecting a point on planar surface of linear extrusion oriented along Y axis
-################################################################
-
-restore [locate_data_file OCC430.rle] result
-
-if [catch {proj result 49.86391363636364 440.7894090909091 127.05 } catch_result] {
- puts "Faulty OCC430: Projection was made wrongly."
-} else {
- puts "OK OCC348: function PROJECT works properly"
-}
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "========================"
-puts " OCC431 "
-puts "========================"
-puts ""
-#####################################
-## Intersection of two surfaces is not compleate curve.
-#####################################
-
-restore [locate_data_file OCC431a.draw] su1
-restore [locate_data_file OCC431b.draw] su2
-
-intersect result su1 su2
-
-set che [whatis result]
-
-if { ![regexp {curve} $che] || ![regexp {3d} $che]} {
- puts "Faulty OCC431 : Command INTERSECT works WRONGLY"
-} else {
- puts "OCC431 OK : Command INTERSECT works properly"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "========================"
-puts " OCC432 "
-puts "========================"
-puts ""
-############################################
-## Regression in dev regarding C40: exception during checkshape
-############################################
-
-restore [locate_data_file OCC432.brep] result
-checkshape result r
-
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC433 "
-puts "========================"
-puts ""
-#########################################################
-## The attached face gives no errors in checkshape command in dev. However, it looks bad
-#########################################################
-
-restore [locate_data_file OCC433.brep] result
-
-decho off
-set err [checkshape result r]
-decho on
-
-if { [regexp {OK} $err] == 1} {
- puts " Faulty OCC433: function CHECKSHAPE works wrongly"
-} else {
- puts " OCC433 OK: function CHECKSHAPE works properly"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "========"
-puts "OCC438"
-puts " (case 1)"
-puts "========"
-
-####################################
-## Exception during checking of shape from OCC428
-####################################
-
-restore [locate_data_file OCC428.brep] result
-
-decho off
-if [catch { checkshape result } catch_result] {
- set mistake 1
-} else {
- set mistake 0
-}
-decho on
-
-if { $mistake != 0} {
- puts "Faulty OCC438 (case 1): here is checking problem"
-} else {
- puts "OCC438 (case 1) OK"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "========================"
-puts " OCC441 "
-puts "(case 1)"
-puts "========================"
-puts ""
-###############################
-## Instability of BRepCheck check status.
-###############################
-
-restore [locate_data_file OCC441a.brep] result
-
-decho off
-set err [checkshape result r]
-decho on
-
-set j 1
-repeat 25 {
- restore [locate_data_file OCC441a.brep] result
- decho off
- set err1 [checkshape result r]
- decho on
- if { $err != $err1 } {
- puts [format " Faulty OCC441: function CHECKSHAPE works wrongly on %s time" $j]
- break
- } else {
- puts [format " OCC441 OK: function CHECKSHAPE works properly %s time" $j]
- }
- incr j
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC441 "
-puts "(case 2)"
-puts "========================"
-puts ""
-###############################
-## Instability of BRepCheck check status.
-###############################
-
-restore [locate_data_file OCC441b.brep] result
-
-decho off
-set err [checkshape result r]
-decho on
-
-set j 1
-repeat 25 {
- restore [locate_data_file OCC441b.brep] result
- decho off
- set err1 [checkshape result r]
- decho on
- if { $err != $err1 } {
- puts [format " Faulty OCC441: function CHECKSHAPE works wrongly on %s time" $j]
- break
- } else {
- puts [format " OCC441 OK: function CHECKSHAPE works properly %s time" $j]
- }
- incr j
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC441 "
-puts "(case 3)"
-puts "========================"
-puts ""
-###############################
-## Instability of BRepCheck check status.
-###############################
-
-restore [locate_data_file OCC441c.brep] result
-
-decho off
-set err [checkshape result r]
-decho on
-
-set j 1
-repeat 25 {
- restore [locate_data_file OCC441c.brep] result
- decho off
- set err1 [checkshape result r]
- decho on
- if { $err != $err1 } {
- puts [format " Faulty OCC441: function CHECKSHAPE works wrongly on %s time" $j]
- break
- } else {
- puts [format " OCC441 OK: function CHECKSHAPE works properly %s time" $j]
- }
- incr j
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "================"
-puts "OCC4426"
-puts "================"
-puts ""
-#######################################################################################
-# Incorrect result of intersection in 2D between circle and line
-#######################################################################################
-
-v2d2
-circle c1 2 2 1
-2dfit
-2dzoom 120
-line l1 3 0 0 1
-2dintersect l1 c1
-erase l1 c1
-2dfit
-
-puts "ATTENTION! Check following:"
-puts "There is only one intersection point (green X)"
-
-set 2dviewer 1
-
+++ /dev/null
-puts "================"
-puts "OCC4426"
-puts "================"
-puts ""
-#######################################################################################
-# Incorrect result of intersection in 2D between circle and line
-#######################################################################################
-
-v2d2
-line ll1 0 0 0.3 0.7
-line ll2 0 0 0.37 0.63
-trim tll1 ll1 -0.00001 0.00001
-trim tll2 ll2 -0.00001 0.00001
-donly tll1 tll2
-2dintersect tll1 tll2
-2dfit
-
-puts "ATTENTION! Check following:"
-puts "There is the intersection point (green X) on center of grid axis"
-
-set 2dviewer 1
-
+++ /dev/null
-
-puts "========"
-puts "OCC444"
-puts "========"
-puts ""
-######################################
-## Exception in '2dextrema' command if distance = 0.
-######################################
-
-restore [locate_data_file OCC444a.draw] a
-restore [locate_data_file OCC444a.draw] b
-
-extrema a b
-
-
+++ /dev/null
-puts "========"
-puts "OCC453"
-puts "(case 3)"
-puts "========"
-puts ""
-
-dchrono h2 reset
-dchrono h2 start
-
-set make_print_out 0
-
-dset SCALE 1000.
-dset SCALE1 5
-tolblend 0.01 1e-04 1e-05 1e-03
-
-restore [locate_data_file shading_137.brep] s
-tscale s 0 0 0 SCALE1
-explode s E
-
-blend result s 5.5*SCALE1 s_2 4*SCALE1 s_1 6*SCALE1 s_6 5*SCALE1 s_8 6*SCALE1 s_10 6.5*SCALE1 s_14 7*SCALE1 s_4 5.5*SCALE1 s_5 7*SCALE1 s_16 6*SCALE1 s_11 5*SCALE1 s_19 6.5*SCALE1 s_13
-explode result So
-tcopy result_1 result
-
-dchrono h2 stop
-set q2 [ dchrono h2 show ]
-regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
-puts "$z2"
-if { $z2 > 85 } {
- puts "Elapsed time is more then 85 seconds - Faulty"
-} else {
- puts "Elapsed time is less then 85 seconds - OK"
-}
-
-set 2dviewer 1
-
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC454"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC454_b1.brep] b1
-checkshape b1
-
-restore [locate_data_file OCC454_p1.draw] p1
-
-set info_result [OCC299 b1 p1]
-set ll [llength ${info_result}]
-if { ${ll} < 4 } {
- puts "OCC454: ERROR 1"
-} else {
- if { [regexp {IN} ${info_result}] } {
- puts "OCC454: OK"
- } else {
- puts "OCC454: ERROR 2"
- }
-}
-
-
+++ /dev/null
-
-puts "========================"
-puts " OCC466 "
-puts "========================"
-puts ""
-
-restore [locate_data_file OCC466.brep] res
-checkshape res
-
-nurbsconvert result res
-
-set square 693.577
-set 2dviewer 0
+++ /dev/null
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] == 0 } {
- puts "TODO OCC12345 ALL: An exception was caught"
- puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
-} else {
- puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
-}
-puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-
-puts "========================"
-puts " OCC469 "
-puts "========================"
-puts ""
-######################################################
-## It's impossible to fuse the two shapes in the file attached. #2740, SAM1493
-######################################################
-
-restore [locate_data_file OCC469.brep] a
-explode a
-
-checkshape a_1
-checkshape a_2
-
-bfuse result a_1 a_2
-checkshape result
-
-set square 10
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC486"
-puts "========"
-puts ""
-#############################
-## Extrema_ExtPS gives wrong solution.
-#############################
-
-restore [locate_data_file OCC486.draw] s
-
-# Case 1. Verify whether surface is u-periodic and v-periodic
-set result [isperiodic s]
-puts $result
-set uper "is u-periodic"
-set vper "is v-periodic"
-if {[regexp $uper $result] && [regexp $vper $result]} {
- puts "OCC486 case 1 - Faulty"
-} else {
- puts "OCC486 case 1 - OK"
-}
-
-# Case 2. Verify extremum distance between point and surface
-
-point p3d -420.1170080179139 926.8792206000001 229.5109675013802
-if { [ catch { OCC486 s -420.1170080179139 926.8792206000001 229.5109675013802 0 0.0000001 } ] } {
- puts "OCC486 case 2 - Faulty"
-} else {
- puts "OCC486 case 2 - OK"
-}
-
-set 2dviewer 1
+++ /dev/null
-puts "========="
-puts " OCC496 "
-puts "========="
-puts ""
-##############################
-## Exception occurs during fuse operation
-##############################
-
-restore [locate_data_file OCC496a.brep] a_1
-checkshape a_1
-
-restore [locate_data_file OCC496b.brep] a_2
-checkshape a_2
-
-bfuse result a_1 a_2
-
-set square 4949.79
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC498: Wrong 3d point from offset surface by parameters"
-
-puts "========="
-puts " OCC498 "
-puts "========="
-puts ""
-######################################
-## Wrong 3d point from offset surface by parameters
-######################################
-
-restore [locate_data_file OCC498.draw] su
-
-set u1 4.71238898038469
-set u2 7.85398163397449
-
-svalue su 0 $u1 x1 y1 z1
-vertex v1 x1 y1 z1
-
-svalue su 0 $u2 x2 y2 z2
-vertex v2 x2 y2 z2
-
-set newU1 [expr $u1 - 1e-11]
-set newU2 [expr $u2 + 1e-11]
-
-svalue su 0 $newU1 x1 y1 z1
-vertex vv1 x1 y1 z1
-
-svalue su 0 $newU2 x2 y2 z2
-vertex vv2 x2 y2 z2
-
-distmini d v1 vv1
-regexp {([-0-9.+eE]+)} [dump d_val] full err1
-
-distmini d v2 vv2
-regexp {([-0-9.+eE]+)} [dump d_val] full err2
-
-if { $err1 > 1.e-7 || $err2 > 1.e-7} {
- puts "Faulty OCC498: Wrong 3d point from offset surface by parameters "
-} else {
- puts "OCC498 OK: Correct 3d point from offset surface by parameters"
-}
-
-
-
-
-
-
-
+++ /dev/null
-
-puts "========"
-puts "OCC49"
-puts "========"
-
-pload QAcommands
-
-pcylinder c 10 20
-
-set result [OCC49 c]
-
-if {$result == 1} {
- puts "OCC49: OK"
-} else {
- puts "Error : OCC49"
-}
-
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC49"
-puts "========"
-
-pload QAcommands
-
-pcylinder c 10 20
-box b 10 10 10
-bcut b_c_cut b c
-checkshape b_c_cut
-
-set result [OCC49 b_c_cut]
-
-if {$result == 1} {
- puts "Error : OCC49"
-} else {
- puts "OCC49: OK"
-}
-
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC50"
-puts "========"
-puts ""
-###################################################################
-## the algorithm which allows to calculate and build the fillet presents probably a bug: when
-## blending on all edges, the applied algorithm is posting errors and failure during fillet computation.
-###################################################################
-
-restore [locate_data_file OCC50.brep] a
-checkshape a
-
-explode a e
-
-blend result a 1 a_17 1 a_5 1 a_1 1 a_2 1 a_16 1 a_20 1 a_3 1 a_11 1 a_10 1 a_4
-checkshape result
-
-set square 7677.49
-set 2dviewer 0
+++ /dev/null
-puts "========="
-puts " OCC503 "
-puts "========="
-puts ""
-###############################
-## Draw hangs up during sprops operation
-###############################
-
-#cpulimit 9000
-
-restore [locate_data_file OCC503.brep] result
-
-if [catch {sprops result 0.001 } catch_result] {
- set mistake 1
-} else {
- set mistake 0
-}
-
-if { $mistake != 0} {
- puts "Faulty OCC503 : Draw hangs up during sprops operation "
-} else {
- puts "OCC503 OK: function SPROPS works without hangs up "
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "========="
-puts " OCC504 "
-puts "========="
-puts ""
-###############################
-## AllocMemory while intersection command
-###############################
-
-restore [locate_data_file OCC504a.draw] su1
-# checkshape su1
-
-restore [locate_data_file OCC504b.draw] su2
-# checkshape su2
-
-if [catch {intersect result su1 su2} catch_result] {
- puts "Faulty OCC504 : A solution takes all memory and crach with AllocMemory"
-} else {
- puts "OCC504 OK: function intersection works ok"
-}
-
-if { [regexp {curve} [whatis result_1]] && [regexp {curve} [whatis result_2]] } {
- puts "OCC504 OK : Result shape is CORRECT !!! "
-} else {
- puts " Faulty OCC504: Result shape is INcorrect !!! "
-}
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========="
-puts " OCC505 "
-puts "========="
-puts ""
-#####################################
-## BRepExtrema_DistShapeShape throws an exception.
-#####################################
-
-restore [locate_data_file OCC505a.brep] su1
-checkshape su1
-
-restore [locate_data_file OCC505b.brep] su2
-checkshape su2
-
-distmini d su1 su2
-
-
+++ /dev/null
-puts "========"
-puts "OCC513"
-puts "========"
-puts ""
-
-######################################
-## Can not intersect plane and conical surfaces
-## The ">intersect" command hangs up the computer.
-######################################
-
-# cpulimit 9000
-
-restore [locate_data_file OCC513a.draw] sa23
-restore [locate_data_file OCC513b.draw] sb8
-
-if { [catch {intersect result sa23 sb8} catch_result] } {
- puts "Faulty OCC513: function INTERSECTION works wrongly"
-} else {
- puts "OCC513 OK: function INTERSECTION works properly"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "========"
-puts "OCC515"
-puts "========"
-puts ""
-################################
-## Wrong projection of the Line on the Cone
-################################
-
-restore [locate_data_file OCC515a.draw] cx
-restore [locate_data_file OCC515b.draw] s
-
-if { [catch {project c2d cx s -t 0.0015} ] } {
- puts "OCC515 FAULTY"
-} else {
- # create dump of resulting curve
- set dump [dump c2d]
- # read dump of old curve
- set olddump [read [open [locate_data_file OCC515_DUMP]]]
- # if the the dumps is equal this bug is still exist
- if { $dump == $olddump } {
- puts "OCC515 FAULTY"
- } else {
- puts "OCC515 WARNING: Dumps of old and new curve are different, probably bug is still exist"
- }
-}
-
-
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC524"
-puts "========"
-puts ""
-
-
-set LowerVector 1
-set UpperVector 9
-set InitialValueVector 5
-set LowerRowMatrix 1
-set UpperRowMatrix 6
-set LowerColMatrix 1
-set UpperColMatrix 3
-set InitialValueMatrix 4
-
-set info_result [OCC524 ${LowerVector} ${UpperVector} ${InitialValueVector} ${LowerRowMatrix} ${UpperRowMatrix} ${LowerColMatrix} ${UpperColMatrix} ${InitialValueMatrix}]
-
-set ll [llength ${info_result}]
-
-if {${ll} != 64} {
- puts "OCC524: Error"
-} else {
- regexp {math_Vector of Length = ([-0-9.+eE]+)} ${info_result} full Vector1Length
- if {${Vector1Length} != [expr ${UpperVector} - ${LowerVector} + 1]} {
- puts "Vector1Length=${Vector1Length}"
- puts "OCC524: Error"
- } else {
- regexp {math_Vector\(1\) = ([-0-9.+eE]+)} ${info_result} full Vector1_1
- regexp {math_Vector\(2\) = ([-0-9.+eE]+)} ${info_result} full Vector1_2
- regexp {math_Vector\(3\) = ([-0-9.+eE]+)} ${info_result} full Vector1_3
- regexp {math_Vector\(4\) = ([-0-9.+eE]+)} ${info_result} full Vector1_4
- regexp {math_Vector\(5\) = ([-0-9.+eE]+)} ${info_result} full Vector1_5
- regexp {math_Vector\(6\) = ([-0-9.+eE]+)} ${info_result} full Vector1_6
- regexp {math_Vector\(7\) = ([-0-9.+eE]+)} ${info_result} full Vector1_7
- regexp {math_Vector\(8\) = ([-0-9.+eE]+)} ${info_result} full Vector1_8
- regexp {math_Vector\(9\) = ([-0-9.+eE]+)} ${info_result} full Vector1_9
-
- if {${Vector1_1}!=120. || ${Vector1_2}!=120. || ${Vector1_3}!=120. || ${Vector1_4}!=0. || ${Vector1_5}!=0. || ${Vector1_6}!=0. || ${Vector1_7}!=0. || ${Vector1_8}!= 0.|| ${Vector1_9}!=0.} {
- puts "Error : OCC524"
- } else {
- regexp -all {math_Vector\(1\) = ([-0-9.+eE]+)} ${info_result} full Vector2_1
- regexp -all {math_Vector\(2\) = ([-0-9.+eE]+)} ${info_result} full Vector2_2
- regexp -all {math_Vector\(3\) = ([-0-9.+eE]+)} ${info_result} full Vector2_3
- regexp -all {math_Vector\(4\) = ([-0-9.+eE]+)} ${info_result} full Vector2_4
- regexp -all {math_Vector\(5\) = ([-0-9.+eE]+)} ${info_result} full Vector2_5
- regexp -all {math_Vector\(6\) = ([-0-9.+eE]+)} ${info_result} full Vector2_6
- regexp -all {math_Vector\(7\) = ([-0-9.+eE]+)} ${info_result} full Vector2_7
- regexp -all {math_Vector\(8\) = ([-0-9.+eE]+)} ${info_result} full Vector2_8
- regexp -all {math_Vector\(9\) = ([-0-9.+eE]+)} ${info_result} full Vector2_9
- if {${Vector2_1}!=60. || ${Vector2_2}!=60. || ${Vector2_3}!=60. || ${Vector2_4}!=60. || ${Vector2_5}!=60. || ${Vector2_6}!=60. || ${Vector2_7}!=0. || ${Vector2_8}!= 0.|| ${Vector2_9}!=0.} {
- puts "OCC524: Error"
- } else {
- puts "OCC524: OK"
- }
- }
- }
-}
-
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC525"
-puts "========"
-puts ""
-#########################################
-## Bug in GeomPlate_BuildPlateSurface::ComputeSurfInit()
-#########################################
-
-set mistake 0
-
-decho off
-if { [catch { OCC525 } ] } {
- set mistake 1
-}
-decho on
-
-if { $mistake == 1 } {
- puts "Faulty : OCC525"
-}
-
-set 2dviewer 1
+++ /dev/null
-
-puts "======="
-puts "OCC531"
-puts "======="
-puts ""
-##########################################################
-## Can not intersect plane and cone.The ">intersect" command hangs up the computer
-##########################################################
-
-restore [locate_data_file OCC531_1.draw] a
-restore [locate_data_file OCC531_2.draw] b
-
-intersect result a b
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC536"
-puts "SAM1504"
-puts "========"
-
-vinit
-
-restore [locate_data_file OCC536.brep] S
-checkshape S
-
-explode S So
-checkshape S_1
-checkshape S_2
-
-if [catch {bfuse result S_1 S_2}] {
- puts "Faulty OCC536"
-} else {
- puts "OCC536 : OK"
- checkshape result
-}
-
-set square 2.5068e+06
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC536"
-puts "SAM1504"
-puts "========"
-
-vinit
-
-restore [locate_data_file OCC536.brep] S
-checkshape S
-
-explode S So
-checkshape S_1
-checkshape S_3
-
-if [catch {bfuse result S_1 S_3}] {
- puts "Faulty OCC536"
-} else {
- puts "OCC536 : OK"
- checkshape result
-}
-
-set square 2.56034e+06
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC536"
-puts "SAM1504"
-puts "========"
-
-vinit
-
-restore [locate_data_file OCC536.brep] S
-checkshape S
-
-explode S So
-checkshape S_1
-checkshape S_4
-
-if [catch {bfuse result S_1 S_4}] {
- puts "Faulty OCC536"
-} else {
- puts "OCC536 : OK"
- checkshape result
-}
-
-set square 2.5405e+06
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC536"
-puts "SAM1504"
-puts "========"
-
-vinit
-
-restore [locate_data_file OCC536.brep] S
-checkshape S
-
-explode S So
-checkshape S_1
-checkshape S_5
-
-if [catch {bfuse result S_1 S_5}] {
- puts "Faulty OCC536"
-} else {
- puts "OCC536 : OK"
- checkshape result
-}
-
-set square 2.45349e+06
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC536"
-puts "SAM1504"
-puts "========"
-
-vinit
-
-restore [locate_data_file OCC536.brep] S
-checkshape S
-
-explode S So
-checkshape S_2
-checkshape S_1
-
-if [catch {bfuse result S_2 S_1}] {
- puts "Faulty OCC536"
-} else {
- puts "OCC536 : OK"
- checkshape result
-}
-
-set square 2.5068e+06
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC536"
-puts "SAM1504"
-puts "========"
-
-vinit
-
-restore [locate_data_file OCC536.brep] S
-checkshape S
-
-explode S So
-checkshape S_3
-checkshape S_1
-
-if [catch {bfuse result S_3 S_1}] {
- puts "Faulty OCC536"
-} else {
- puts "OCC536 : OK"
- checkshape result
-}
-
-set square 2.56034e+06
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC536"
-puts "SAM1504"
-puts "========"
-
-vinit
-
-restore [locate_data_file OCC536.brep] S
-checkshape S
-
-explode S So
-checkshape S_4
-checkshape S_1
-
-if [catch {bfuse result S_4 S_1}] {
- puts "Faulty OCC536"
-} else {
- puts "OCC536 : OK"
- checkshape result
-}
-
-set square 2.5405e+06
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC536"
-puts "SAM1504"
-puts "========"
-
-vinit
-
-restore [locate_data_file OCC536.brep] S
-checkshape S
-
-explode S So
-checkshape S_5
-checkshape S_1
-
-if [catch {bfuse result S_5 S_1}] {
- puts "Faulty OCC536"
-} else {
- puts "OCC536 : OK"
- checkshape result
-}
-
-set square 2.45349e+06
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : OCC537"
-
-puts "======="
-puts "OCC537"
-puts "======="
-puts ""
-#######################################################################
-##Application do something in intersection operation for long time and eat much memory (This may be the
-## reason of BUS ERROR that happens in application). Intersection operation invokes for conical and plane
-## surfaces.
-#######################################################################
-
-restore [locate_data_file OCC537_CONE.draw] c
-restore [locate_data_file OCC537_PLANE.draw] p
-
-intersect result c p
-
-set wt_is [whatis result]
-
-if { [regexp {WIRE} ${wt_is}] } {
- puts " OCC537 OK"
-} else {
- puts "Error : OCC537"
-}
-
-set 2dviewer 2
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty OCC132"
-
-puts "================"
-puts "OCC538"
-puts "================"
-puts ""
-
-restore [locate_data_file OCC538.brep] Face
-checkshape Face
-
-point p 0.2453959532714904 -1.246869357124329
-
-set res1 [b2dclassify Face p]
-set info_result [split ${res1}]
-
-set ll [llength ${info_result}]
-if {${ll} < 4} {
- puts "Faulty OCC132"
-} else {
- if {[regexp {IN} $info_result]} {
- puts "OCC132 : OK"
- } else {
- puts "Faulty OCC132"
- }
-}
+++ /dev/null
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-if { [string compare $os "windows"] != 0 } {
- puts "TODO OCC12345 ALL: TEST INCOMPLETE"
-}
-puts "================"
-puts "OCC54"
-puts "================"
-puts ""
-####################################################
-## Exception is raised during command "small" in DRAW on attached shape.
-####################################################
-
-cpulimit 300
-restore [locate_data_file OCC54.brep] result
-
-checkshape result
-
-set 3dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC541 "
-puts "========================"
-puts ""
-############################################
-## Extrema works wrong for line and circle laying on one plane.
-############################################
-
-restore [locate_data_file OCC541a.draw] c1x
-restore [locate_data_file OCC541b.draw] c2x
-
-set result [extrema c1x c2x]
-set err [llength $result]
-if { $err < 1} {
- puts "Faulty OCC541 (amount of solution): command extrema does NOT work properly"
-} else {
- puts "OCC541 OK (amount of solution): : command extrema works properly"
-}
-
-set 2dviewer 0
+++ /dev/null
-
-puts "========"
-puts "OCC542"
-puts "========"
-puts ""
-################################
-## Wrong projection of the circle on the sphere
-################################
-
-restore [locate_data_file OCC542_C3D.draw] c3d
-restore [locate_data_file OCC542_S.draw] s
-
-if { [catch {project result c3d s } catch_result] } {
- puts "OCC542 Faulty"
-} else {
- # create dump of resulting curve
- set dump [dump result]
- # read dump of old curve
- set olddump [read [open [locate_data_file OCC542_DUMP]]]
- # if the the dumps is equal this bug is still exist
- if { $dump == $olddump } {
- puts "OCC542 Faulty"
- } else {
- puts "OCC542 WARNING: Dumps of old and new curve are different, probably bug is still exist"
- }
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "========| OCC565 |========"
-##################################
-## Can not intersect two trimmed conical surfaces
-##################################
-
-restore [locate_data_file OCC565a.draw] s1
-restore [locate_data_file OCC565b.draw] s2
-
-puts "Preliminary check: intersection work with infinite cones:"
-if { [catch {intersect inf s1 s2 } catch_result] } {
- puts "Faulty OCC565: function intersection works wrongly with infinite cones"
-} else {
- set j 1
- set er [lindex [whatis inf] 5]
- repeat 4 {
- set err [lindex [whatis inf_$j] 5]
- if { $err != "curve" && $er != "curve"} {
- puts " Faulty OCC565: function intersection works wrongly with infinite cones"
- break
- } else {
- puts [format "curve inf_%s : exist " $j]
- }
- incr j
- }
- puts "Function intersection works correctly with infinite cones. Then check OCC565:"
-}
-
-trim s1x s1 0 2*pi 0 2.8
-trim s2x s2 0 2*pi 0 2.8
-
-if { [catch {intersect result s1x s2x } catch_result] } {
- puts "Faulty OCC565 exception: function intersection works wrongly with trimmed cones"
-} else {
- set nom 0
- set j 1
- set er [lindex [whatis result] 5]
- repeat 4 {
- set err [lindex [whatis result_$j] 5]
- if { $err != "curve" && $er != "curve"} {
- break
- } else {
- set nom [expr $nom + 1]
- }
- incr j
- }
- if { $nom == 0} {
- puts " Faulty OCC565: function intersection works wrongly with trimmed cones"
- } else {
- puts " OCC565 OK: function intersection works with trimmed cones"
- }
-}
-
-
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC566"
-puts "========"
-puts ""
-###############################################
-##BRepBndLib::AddClose builds box larger than BRepBndLib::Add
-###############################################
-
-restore [locate_data_file OCC566.brep] a
-
-set err1 [bounding a]
-set err2 [OCC566 a]
-
-regexp { *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+)} $err1 full v1_x v1_y v1_z v2_x v2_y v2_z
-regexp { *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+)} $err2 full v3_x v3_y v3_z v4_x v4_y v4_z
-
-vertex v1 $v1_x $v1_y $v1_z
-vertex v2 $v2_x $v2_y $v2_z
-
-vertex v3 $v3_x $v3_y $v3_z
-vertex v4 $v4_x $v4_y $v4_z
-
-distmini d1 v1 v2
-distmini d2 v3 v4
-
-regexp {([-0-9.+eE]+)$} [dump d1_val] full dis1
-puts $dis1
-regexp {([-0-9.+eE]+)$} [dump d2_val] full dis2
-puts $dis2
-
-set err [expr 1.*abs((($dis1 - $dis2) / $dis2) * 100)]
-puts ""
-puts [format "Different is %s percents" $err]
-
-if {$err > 1.0} {
- puts " Faulty OCC566: BRepBndLib::AddClose builds box larger than BRepBndLib::Add - this should not be so!"
-} else {
- puts " OCC566 OK"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
-
-puts "========"
-puts "OCC567"
-puts "========"
-puts ""
-#######################################
-## Can not intersect two Rectangular Trimmed Surfaces .
-#######################################
-
-restore [locate_data_file OCC567a.draw] s1
-restore [locate_data_file OCC567b.draw] s2
-
-if { [catch {intersect i s1 s2 } catch_result] } {
- puts "Faulty OCC565: function intersection works wrongly with infinite Surfaces"
-} else {
- set j 1
- repeat 11 {
- set err [lindex [whatis i_$j] 5]
- if { $err != "curve"} {
- puts " Faulty OCC565: function intersection works wrongly with infinite Surfaces"
- break
- } else {
- puts [format "%s ) OCC565 OK: function intersection works with infinite Surfaces" $j]
- }
- incr j}
-}
-
-trim s1x s1 0 2*pi 0 2*pi/13
-trim s2x s2 0 2*pi 0 2*pi/13
-
-if { [catch {intersect result s1x s2x } catch_result] } {
- puts "Faulty OCC565 exception: function intersection works wrongly with trimmed Surfaces"
-} else {
- set nom 0
- set j 1
- repeat 11 {
- set err [lindex [whatis result_$j] 5]
- if { $err != "curve"} {
- break
- } else {
- set nom [expr $nom + 1]
- }
- incr j
- }
- if { $nom == 0} {
- puts "Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
- } else {
- puts " OCC565 OK: function intersection works with trimmed Surfaces"
- }
-}
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC569: function intersection works wrongly with trimmed plane and cone surfaces"
-
-puts "========"
-puts "OCC569"
-puts "========"
-puts ""
-##################################
-## Can not intersect trimmed plane and cone surfaces
-##################################
-
-restore [locate_data_file OCC569a.draw] s1
-restore [locate_data_file OCC569b.draw] s2
-
-if { [catch {intersect result s1 s2 } catch_result] } {
- puts "Faulty OCC569 exception: function intersection works wrongly with trimmed plane and cone surfaces "
-} else {
- set nom 0
- set j 1
- repeat 10 {
- set err [lindex [whatis result_$j] 5]
- if { $err != "curve"} {
- break
- } else {
- set nom [expr $nom + 1]
- }
- incr j
- }
- if { $nom == 0} {
- puts "Faulty OCC569: function intersection works wrongly with trimmed plane and cone surfaces"
- } else {
- puts "OCC569 OK: function intersection works with trimmed plane and cone surfaces"
- }
-}
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC5696"
-puts "================"
-puts ""
-#######################################################################################
-# Exception in BRepAdaptor_CompCurve due to uninitialised variable CurIndex
-#######################################################################################
-
-set BugNumber OCC5696
-
-set info_result [OCC5696]
-set index [string compare ${info_result} "par_edge = 1\n"]
-if {$index != 0} {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-
+++ /dev/null
-puts "TODO OCC11111 ALL: Faulty OCC5698"
-
-pload QAcommands
-
-puts "============"
-puts "OCC5698"
-puts "============"
-puts ""
-######################################################
-# Incorrect result of intersection of a plane and an extrusion surface
-######################################################
-
-set BugNumber OCC5698
-
-restore [locate_data_file OCC5698.brep] s1
-
-set info_result [OCC5698 s1]
-
-set index [string compare ${info_result} "OK\n"]
-if {$index != 0} {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
-
-puts "========================"
-puts " OCC592 "
-puts "========================"
-puts ""
-###################################
-##BRepCheck_Analyzer does not detect faulty shape
-#####################################
-
-restore [locate_data_file OCC592.brep] ff114
-
-explode ff114 e
-mkcurve cc ff114_8
-cvalue cc 0.95 x y z
-vertex vv x y z
-mksurface gs ff114
-mkface ff gs
-donl ff114 vv
-trim trcc cc
-set aa [distmini dd vv ff]
-
-puts "******* Result *******"
-regexp {([-0-9.+eE]+)$} [dump dd_val] full dis1
-puts "distance between the point on curve and the surface is $dis1"
-
-set tolerance [maxtolerance ff114_8]
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
-puts "the tolerance of the edge is $MaxEdgeTolerance"
-puts "the tolerance is less than distance between point and surface"
-puts "BUT"
-
-decho off
-set che [checkshape ff114]
-decho on
-
-if { [regexp {Faulty} $che] != 1 } {
- puts "Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
-} else {
- puts "OCC592 OK: Checkshape (BRepCheck_Analyzer) detects bad shape"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect"
-
-puts "========================"
-puts " OCC593 "
-puts "========================"
-puts ""
-#############################################################
-## Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect
-#############################################################
-
-restore [locate_data_file OCC593.brep] ff48
-
-set tolerance [maxtolerance ff48]
-regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
-
-vertex vv -19.561252535222 17.89876466186 71.408126285268
-distmini dd vv ff48
-regexp {([-0-9.+eE]+)$} [dump dd_val] full ddval
-
-mksurface gs ff48
-
-proj gs -19.561252535222 17.89876466186 71.408126285268
-
-set pp1 [lindex [dump ext_1] 9]
-set pp2 [lindex [dump ext_1] 10]
-
-set err [expr abs ([expr $pp2 - $pp1])]
-puts [format "MaxFaceTolerance = %s" $MaxFaceTolerance]
-puts [format "MaxDistance = %s" $err]
-if { $err < $MaxFaceTolerance } {
- puts "OCC593 (case 1) : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works properly"
-} else {
- puts "Error : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect"
-}
-copy ext_1 oldext_1
-
-puts ""
-puts "***** Another example: *****"
-
-svalue gs 0.56 0.4 x y z
-point p x y z
-proj gs x y z
-
-set p1 [lindex [dump ext_1] 9]
-set p2 [lindex [dump ext_1] 10]
-
-set err1 [expr abs ([expr $p2 - $p1])]
-puts [format "MaxFaceTolerance = %s" $MaxFaceTolerance]
-puts [format "MaxDistance = %s" $err1]
-if { $err1 < $MaxFaceTolerance } {
- puts "OCC593 (case 2) : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works properly"
-} else {
- puts "Error : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect"
-}
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC601: function BLEND works wrongly"
-
-puts "========================"
-puts " OCC601 "
-puts "SAM1542"
-puts "========================"
-puts ""
-#############################################
-## No possibility to make a fillet 13 at the inner edge of the shape
-#############################################
-
-restore [locate_data_file OCC601.brep] a
-checkshape a
-
-explode a e
-
-if [catch {blend result a 13 a_41 } res] {
- puts "Faulty OCC601: function BLEND works wrongly"
-} else {
- puts "OCC601 OK: function BLEND works without exception"
- checkshape result
-
- set square 10
- set 2dviewer 0
-}
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC604: Result of intersection operation is INcorrect !!!"
-
-puts "========================"
-puts " OCC604"
-puts "========================"
-puts ""
-############################
-## Wrong intersection between two tores.
-############################
-
-restore [locate_data_file OCC604a.draw] a
-restore [locate_data_file OCC604b.draw] b
-
-if { [catch { intersect result a b } catch_result] } {
- puts "Faulty OCC604: function INTERSECTION works with exception"
-} else {
- set nom 0
- set j 1
- repeat 10 {
- set err [lindex [whatis res_$j] 5]
- if { $err != "curve"} {
- break
- } else {
- set nom [expr $nom + 1]
- }
- incr j
- }
- if { $nom != 1 } {
- puts "Faulty OCC604: Result of intersection operation is INcorrect !!!"
- } else {
- puts "OCC604 OK : Result of intersection operation is CORRECT !!! "
- }
-}
-
-set 3dviewer 1
+++ /dev/null
-puts "========================"
-puts "OCC611"
-puts "SAM1564"
-puts "(case 1)"
-puts "========================"
-puts ""
-############################
-## No possibility to fuse the shapes.
-############################
-
-restore [locate_data_file OCC611.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_1 a_2
-checkshape result
-
-set square 531.197
-set 2dviewer 0
+++ /dev/null
-puts "=================7======="
-puts "OCC611"
-puts "SAM1564"
-puts "(case 2)"
-puts "========================"
-puts ""
-############################
-## No possibility to fuse the shapes.
-############################
-
-restore [locate_data_file OCC611.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bop a_1 a_2
-bopfuse result
-checkshape result
-
-set square 531.197
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts "OCC611"
-puts "SAM1564"
-puts "(case 1)"
-puts "========================"
-puts ""
-############################
-## No possibility to fuse the shapes.
-############################
-
-restore [locate_data_file OCC611.brep] a
-explode a
-checkshape a_1
-checkshape a_2
-
-bfuse result a_2 a_1
-checkshape result
-
-set square 531.197
-set 2dviewer 0
+++ /dev/null
-puts "========================"
-puts " OCC613"
-puts "(case 1)"
-puts "========================"
-puts ""
-#############################################
-## Meshing algo cannot create mesh for faces with internal edges
-#############################################
-
-restore [locate_data_file OCC613a.brep] result
-
-tclean result
-isos result 0
-incmesh result .1
-triangles result
-
-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 == 0 || $nod == 0 } {
- puts "Error : Meshing algo cannot create mesh for faces with internal edges "
-}
-
-set 3dviewer 1
-
+++ /dev/null
-puts "========================"
-puts " OCC613"
-puts "(case 2)"
-puts "========================"
-puts ""
-#############################################
-## Meshing algo cannot create mesh for faces with internal edges
-#############################################
-
-restore [locate_data_file OCC613b.brep] result
-
-tclean result
-isos result 0
-incmesh result .1
-triangles result
-
-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 == 0 || $nod == 0 } {
- puts "Error : Meshing algo cannot create mesh for faces with internal edges "
-}
-
-set 3dviewer 1
-
+++ /dev/null
-
-puts "========================"
-puts "OCC618"
-puts "========================"
-puts ""
-############################
-## Exception during bop
-############################
-
-restore [locate_data_file OCC618a.brep] a
-checkshape a
-restore [locate_data_file OCC618b.brep] b
-checkshape b
-
-if [catch {bop a b} catch_result] {
- puts "Faulty OCC618 : BOP operation was made wrongly"
-} else {
- puts "OCC618 OK: BOP operation works OK"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6278"
-puts "============"
-puts ""
-######################################################
-# Fuse operation produces incorrect result
-######################################################
-
-set BugNumber OCC6278
-
-restore [locate_data_file OCC6278-A.brep] a
-restore [locate_data_file OCC6278-B.brep] b
-
-bfuse result a b
-explode result v
-
-set nb_v_good 4
-
-set DumpList [dump result_2]
-if {[llength ${DumpList}] < 40} {
- puts "Faulty ${BugNumber}: bad format of dump"
-} else {
- regexp { *- *Point *3D *: *([-0-9.+eE]+), +([-0-9.+eE]+), +([-0-9.+eE]+)} ${DumpList} full x y z
- puts $x
- puts $y
- puts $z
-
- set percent_max 0.1
-
- set x [lindex ${DumpList} 37]
- set y [lindex ${DumpList} 38]
- set z [lindex ${DumpList} 39]
-
- set x [string range ${x} 0 end-1]
- set y [string range ${y} 0 end-1]
-
- set good_x -32.3042674857046
- set good_y 20.0000000000001
- set good_z 0.
-
- set Percent_x [expr abs(${x} - ${good_x}) / abs(${good_x}) * 100.]
- set Percent_y [expr abs(${y} - ${good_y}) / abs(${good_y}) * 100.]
- if {${z} == 0.} {
- set Percent_z 0.
- } else {
- set Percent_z [expr abs(${good_z} - ${z}) / abs(${z}) * 100.]
- }
-
- if {${Percent_x} > ${percent_max}} {
- puts "Faulty ${BugNumber}: bad value of x = ${x}"
- }
- if {${Percent_y} > ${percent_max}} {
- puts "Faulty ${BugNumber}: bad value of y = ${y}"
- }
- if {${Percent_z} > ${percent_max}} {
- puts "Faulty ${BugNumber}: bad value of z = ${z}"
- }
-}
-
-set length 278.725
-set 3dviewer 2
+++ /dev/null
-puts "========"
-puts "OCC6412"
-puts "========"
-puts ""
-####################################################
-## Regression in visualization
-####################################################
-
-set BugNumber OCC6412
-
-restore [locate_data_file OCC6412.brep] result
-
-tclean result
-vinit
-vdisplay result
-vsetdispmode result 1
-
-isos result 0
-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} == 0 && ${nod} == 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 3dviewer 0
-
+++ /dev/null
-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
+++ /dev/null
-puts "============"
-puts "OCC6450"
-puts "============"
-puts ""
-######################################################
-# Cannot get common part of two parallel halfspaces
-######################################################
-
-set BugNumber OCC6450
-
-plane pl 100 0 0 1 0 0
-mkface f pl
-halfspace so1 f 0 0 0
-ttranslate f -200 0 0
-halfspace so2 f 0 0 0
-bcommon result so1 so2
-if {[dtyp result] == ""} {
- puts "Faulty ${BugNumber}: operation failed"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6450"
-puts "============"
-puts ""
-######################################################
-# Cannot get common part of two parallel halfspaces
-######################################################
-
-set BugNumber OCC6450
-
-plane pl 100 0 0 1 0 0
-mkface f pl
-halfspace so1 f 0 0 0
-ttranslate f -200 0 0
-trotate f 0 0 0 0 0 1 45
-halfspace so2 f 0 0 0
-bcommon result so1 so2
-if {[dtyp result] == ""} {
- puts "Faulty ${BugNumber}: operation failed"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6474"
-puts "============"
-puts ""
-######################################################
-# Incorrect result of intersection of a plane and an extrusion surface
-######################################################
-
-set BugNumber OCC6474
-
-restore [locate_data_file OCC6474-s1.draw] s1
-restore [locate_data_file OCC6474-s2.draw] s2
-
-intersect result s1 s2
-
-if {[llength [directory res*]] != 1} {
- puts "Faulty ${BugNumber}: more than 1 intersection line is got"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 3dviewer 1
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
-puts "================"
-puts "BUC61023"
-puts "OCC65"
-puts "================"
-puts ""
-###############################################
-## Possibility to make a revolution to have a solid with a volume=0 m3
-###############################################
-
-restore [locate_data_file OCC65.brep] sh
-checkshape sh
-
-revol result sh 0 0 0 0 0 1 360
-
-checkshape result
-
-set square 1.0134e+06
-set 2dviewer 0
-
-
-
+++ /dev/null
-puts "================"
-puts "OCC6503"
-puts "================"
-puts ""
-#######################################################################################
-# Incorrect calculation of bounding box for infinite surfaces
-#######################################################################################
-
-set BugNumber OCC6503
-
-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}
-}
-
-plane pl 0 0 0 0 0 1
-mkface f pl
-set info_result [bounding f]
-
-set x1 [lindex ${info_result} 0]
-set y1 [lindex ${info_result} 1]
-set z1 [lindex ${info_result} 2]
-set x2 [lindex ${info_result} 3]
-set y2 [lindex ${info_result} 4]
-set z2 [lindex ${info_result} 5]
-
-set good_x1 -1e+100
-set good_y1 -1e+100
-set good_z1 -9.9999999999999995e-08
-set good_x2 1e+100
-set good_y2 1e+100
-set good_z2 9.9999999999999995e-08
-
-set percent_max 0.1
-set status 0
-
-set x1_percent [GetPercent ${x1} ${good_x1}]
-set y1_percent [GetPercent ${y1} ${good_y1}]
-set z1_percent [GetPercent ${z1} ${good_z1}]
-set x2_percent [GetPercent ${x2} ${good_x2}]
-set y2_percent [GetPercent ${y2} ${good_y2}]
-set z2_percent [GetPercent ${z2} ${good_z2}]
-
-if {${x1_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : x1 is wrong"
- set status 1
-}
-if {${y1_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : y1 is wrong"
- set status 1
-}
-if {${z1_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : z1 is wrong"
- set status 1
-}
-if {${x2_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : x2 is wrong"
- set status 1
-}
-if {${y2_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : y2 is wrong"
- set status 1
-}
-if {${z2_percent} > ${percent_max}} {
- puts "Faulty ${BugNumber} : z2 is wrong"
- set status 1
-}
-
-if { ${status} == 0 } {
- puts "${BugNumber}: OK"
-} else {
- puts "${BugNumber}: Faulty"
-}
-
-set 3dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6862"
-puts "============"
-puts ""
-#######################################################################
-# Tool for checking arguments of Boolean Operations
-#######################################################################
-
-set BugNumber OCC6862
-
-# self-intersection test
-restore [locate_data_file OCC497a.brep] a_1
-restore [locate_data_file OCC497b.brep] a_2
-
-decho off
-set resstr [bopargcheck a_2]
-decho on
-
-if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6862"
-puts "============"
-puts ""
-#######################################################################
-# Tool for checking arguments of Boolean Operations
-#######################################################################
-
-set BugNumber OCC6862
-
-# self-intersection test
-restore [locate_data_file OCC497e.brep] a_1
-restore [locate_data_file OCC497f.brep] a_2
-
-decho off
-set resstr [bopargcheck a_2]
-decho on
-
-if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO OCC111111 ALL: Faulty OCC6862"
-
-puts "============"
-puts "OCC6862"
-puts "============"
-puts ""
-#######################################################################
-# Tool for checking arguments of Boolean Operations
-#######################################################################
-
-set BugNumber OCC6862
-
-# test small edges
-restore [locate_data_file OCC651a.brep] a
-restore [locate_data_file OCC651b.brep] b
-
-puts "Checking shapes: bopargcheck a b /FTVEIP ..."
-decho off
-set resstr [bopargcheck a b /FTVEIP]
-decho on
-
-if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "TODO OCC111111 ALL: Faulty OCC6862"
-
-puts "============"
-puts "OCC6862"
-puts "============"
-puts ""
-#######################################################################
-# Tool for checking arguments of Boolean Operations
-#######################################################################
-
-set BugNumber OCC6862
-
-# test small edges
-restore [locate_data_file OCC651a.brep] a
-
-decho off
-puts "Checking shapes: bopargcheck a b /FTVEIP ..."
-set resstr [bopargcheck a /FTVEIP]
-decho on
-
-if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "============"
-puts "OCC6862"
-puts "============"
-puts ""
-#######################################################################
-# Tool for checking arguments of Boolean Operations
-#######################################################################
-
-set BugNumber OCC6862
-
-# test types
-box b1 10 20 10
-box b2 20 10 10
-explode b2 f
-
-decho off
-set resstr [bopargcheck b1 b2_1 -C /RFTVEI]
-decho on
-
-if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6862"
-puts "============"
-puts ""
-puts "TODO OCC111111 ALL: Faulty OCC6862"
-
-#######################################################################
-# Tool for checking arguments of Boolean Operations
-#######################################################################
-
-set BugNumber OCC6862
-
-# test small edges
-restore [locate_data_file OCC726.brep] a
-explode a
-
-decho off
-set resstr [bopargcheck a_1 a_2 -O /FTVEI]
-decho on
-
-if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6862"
-puts "============"
-puts ""
-#######################################################################
-# Tool for checking arguments of Boolean Operations
-#######################################################################
-
-set BugNumber OCC6862
-
-# face verification
-box b1 10 20 10
-box b2 20 10 10
-explode b1 f
-explode b2 f
-bcut r1 b1_6 b2_6
-bcommon r2 b1_6 b2_6
-explode r1 w
-explode r2 w
-mksurface gs b1_6
-mkface ff gs
-add r1_1 ff
-add r2_1 ff
-
-decho off
-set resstr [bopargcheck ff b2_6 -F /RTVEIP]
-decho on
-
-if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "============"
-puts "OCC6862"
-puts "============"
-puts ""
-#######################################################################
-# Tool for checking arguments of Boolean Operations
-#######################################################################
-
-set BugNumber OCC6862
-
-# test possibility to merge vertices
-box b1 10 20 10
-box b2 20 10 10
-explode b1 e
-explode b2 e
-tcopy b2_10 ee2
-compound b2_10 ee2 comp
-donl b1_10 comp
-
-decho off
-set resstr [bopargcheck b1_10 comp -O /RFTEIP]
-decho on
-
-if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "============"
-puts "OCC6862"
-puts "============"
-puts ""
-#######################################################################
-# Tool for checking arguments of Boolean Operations
-#######################################################################
-
-set BugNumber OCC6862
-
-# test possibility to merge edges
-box b1 10 20 10
-box b2 20 10 10
-explode b1 e
-explode b2 e
-tcopy b2_10 ee2
-wire ww b2_10 ee2
-donl b1_10 ww
-
-decho off
-set resstr [bopargcheck b1_10 ww -O /RFTVIP]
-decho on
-
-if { $resstr=="Faulties, that can not be treated by BOP, are detected.\n" } {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC7"
-puts "================"
-puts ""
-#########################################################
-## Extrema_ExtPElS throw the exception "gp_VectorWithNullMagnitude".
-#########################################################
-
-ptorus tor 3 1
-explode tor f
-vertex vv 0 3 0
-
-distmini result vv tor_1
-set info [dump result]
-
-if { [regexp "TShape # 1 : EDGE" $info] != 1
- || [regexp "TShape # 2 : VERTEX" $info] != 1
- || [regexp "TShape # 3 : VERTEX" $info] != 1 } {
- puts "Error : Result is incorrect"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "=========="
-puts "OCC703 "
-puts "=========="
-puts ""
-##################################################
-## Wrong result of extrema
-## Draw command extrema c1 ce gives no solutions, but must be 2 solutions
-##################################################
-
-restore [locate_data_file OCC703_1.draw] c1
-restore [locate_data_file OCC703_2.draw] ce
-
-set result [extrema c1 ce]
-set err [llength $result]
-if { $err != 2} {
- puts "Faulty OCC703 (amount of solution): command extrema does NOT work properly"
-} else {
- puts "OCC703 OK (amount of solution): command extrema works properly"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "=========="
-puts "OCC705 "
-puts "=========="
-puts ""
-###########################################################
-## The matrix of inertia for sphere computed incorrectly.
-## In the secod case the not diagonal elements of the inertia matrix are not close to zero.
-###########################################################
-
-psphere result 10 10 10
-ttranslate result 10 10 10
-trotate result 0 0 0 0 1 1 34
-
-set list [vprops result]
-set inertia [regexp -all -inline { +[-0-9.+eE]+ +[-0-9.+eE]+ +[-0-9.+eE]+} $list]
-set matrix [regexp -all -inline {[-0-9.+eE]+} $inertia]
-
-set matrix12 [lindex $matrix 1]
-set matrix21 [lindex $matrix 3]
-set matrix23 [lindex $matrix 5]
-set matrix32 [lindex $matrix 7]
-
-if { ${matrix12} != 0. || ${matrix21} != 0. || ${matrix23} != 0. || ${matrix32} != 0. } {
- puts "Faulty OCC705"
-} else {
- puts "OCC705 OK"
-}
-
-set length 123.755
-set 2dviewer 0
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC712"
-puts "========"
-puts ""
-############################################################
-## Exeption is raised in DRAW during building draft with help command "depouille"
-## on face in the attached shape.
-## The source code of application is also attached and should be checked.
-############################################################
-
-set draftAngle 15
-set slabThick 30
-
-if [catch {OCC712 ${draftAngle} ${slabThick} } catch_result] {
- puts "Faulty OCC712"
-} else {
- puts "OCC712 OK"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "========"
-puts "OCC736"
-puts "========"
-puts ""
-#####################################################
-## After restoring attached shape(face) it is obviously that there is
-## selfintersecting wire. However BRepCheck gives reply that shape looks OK.
-#####################################################
-
-restore [locate_data_file OCC736.brep] result
-decho off
-set che [checkshape result r]
-decho on
-if { [regexp {OK} $che ] == 1 } {
- puts "Faulty OCC736: checkshape command works wrongly"
-} else {
- puts "OCC736 OK: checkshape command works PROPERLY"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-pload QAcommands
-
-puts "================"
-puts "OCC7372"
-puts "================"
-puts ""
-#######################################################################################
-# Invalid conversion 2D periodic BSpline curve to Bezier segments
-#######################################################################################
-
-set BugNumber OCC7372
-
-OCC7372
-
-set mistake 0
-set len [llength [directory segment*]]
-if { ${len} != 5 } {
- puts "Faulty ${BugNumber} : segment number is wrong"
- set mistake 1
-} else {
- set good_length 73.3203
- regexp {The length .* is ([-0-9.+eE]+)} [length segment_5] full current_length
- if { [expr 1.*abs($good_length - $current_length)/$good_length * 100] > 0.1 } {
- puts "Faulty ${BugNumber} : length is wrong for segment_5"
- set mistake 1
- }
- renamevar segment_5 result
-}
-
-if { ${mistake} != 0 } {
- puts "Faulty ${BugNumber}"
-} else {
- puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========"
-puts "OCC747"
-puts "========"
-puts ""
-###############################
-## Exception in DRAW-command "distmini"
-###############################
-
-restore [locate_data_file OCC747_1.brep] s1
-checkshape s1
-restore [locate_data_file OCC747_2.brep] s2
-checkshape s2
-
-if { [catch { distmini result s1 s2 } status] } {
- puts "Faulty OCC747"
-} else {
- puts "OCC747 OK"
-}
-
+++ /dev/null
-puts "============"
-puts "BUC60861"
-puts "OCC75"
-puts "============"
-puts ""
-puts "(case 1)"
-###############################
-## Incorrect work of section Shell-Shell.
-###############################
-
-restore [locate_data_file BUC60861_gap.brep] ss
-checkshape ss
-
-plane pl1 25680.2288 21428 9995 1 0 0
-mkface f1 pl1 -4000 8000 -5000 5000
-bsection result ss f1 -a
-
-set good_len 9265
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full tol
-regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
-if { [expr 1.*abs(${good_len} - $len)] > $tol } {
- puts "Error : Length is bad"
-}
-
-set 2dviewer 0
-
-
-
-
+++ /dev/null
-puts "============"
-puts "BUC60861"
-puts "OCC75"
-puts "============"
-puts ""
-puts "case 2"
-###############################
-## Incorrect work of section Shell-Shell.
-###############################
-
-restore [locate_data_file BUC60861_gap1.brep] ss
-checkshape ss
-
-plane pl1 25680.2288 21428 9995 1 0 0
-mkface f1 pl1 -1 11 -5 5
-bsection result ss f1 -a
-
-set good_len 10.0009
-regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full tol
-regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
-if { [expr 1.*abs(${good_len} - $len)] > $tol } {
- puts "Error : len is bad"
-}
-
-set 2dviewer 0
-
-
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : Volume of OCC76-1.brep is calculated wrongly becuase 3020.94 value must be but 3050.41 is"
-puts "TODO OCC12345 ALL: Error : Volume of OCC76-2.brep is calculated wrongly because 9871.39 value must be but 10153.6 is"
-
-puts "================"
-puts "OCC76"
-puts "================"
-puts ""
-
-restore [locate_data_file shading_177.brep] sh1
-checkshape sh1
-regexp {Mass +: +([-0-9.+eE]+)} [vprops sh1] full l1
-
-restore [locate_data_file OCC76-2.brep] sh2
-checkshape sh2
-regexp {Mass +: +([-0-9.+eE]+)} [vprops sh2] full l2
-
-if { [expr abs([expr $l1 - 3020.94])] > 0.00999} {
- puts "Error : Volume of OCC76-1.brep is calculated wrongly becuase 3020.94 value must be but $l1 is"
-} else {
- puts " Volume of OCC76-1.brep is right calculated"
-}
-
-if { [expr abs([expr $l2 - 9871.39 ])] > 0.00999} {
- puts "Error : Volume of OCC76-2.brep is calculated wrongly because 9871.39 value must be but $l2 is"
-} else {
- puts " Volume of OCC76-2.brep is right calculated"
-}
+++ /dev/null
-puts "========"
-puts "OCC766"
-puts "========"
-puts ""
-###############################
-## Can not project the 3-D point on the ellipse
-###############################
-
-restore [locate_data_file OCC766.draw] c
-
-set result [proj c 30 3.944304526105059e-31 20.0]
-
-set ll [llength $result]
-
-if {$ll > 0} {
- puts "OCC770 OK"
-} else {
- puts "Faulty OCC770"
-}
-
-set 2dviewer 1
+++ /dev/null
-puts "================"
-puts "OCC8"
-puts "================"
-puts ""
-###################################################
-## BRepTools_WireExplorere gives not all edges from a wire
-###################################################
-
-pload XDE
-restore [locate_data_file OCC8.brep] result
-
-checkshape result
-
-explode result w
-set info [expwire result_1 sh]
-
-if { [regexp "BRepTools_WireExplorer donne 16 Edges" $info] != 1 } {
- puts "Error : BRepTools_WireExplorer gives WRONG number of edges."
-}
-
-set 2dviewer 0
-
+++ /dev/null
-pload QAcommands
-
-puts "========="
-puts " OCC813 "
-puts "========="
-puts ""
-#####################################
-## Geom2dGcc_Lin2d2Tan fails on point and ellipse
-#####################################
-set U 200
-set V 200
-
-set result [OCC813 $U $V]
-
-set nb_sol 0
-
-regexp {nb of solutions = ([-0-9.+eE]+)} $result full nb_sol
-
-if {$nb_sol > 0} {
- puts "OCC813 OK"
-} else {
- puts "Faulty OCC813"
-}
-
+++ /dev/null
-pload QAcommands
-
-puts "========="
-puts " OCC814 "
-puts "========="
-puts ""
-####################################
-## Geom2dGcc_Lin2d2Tan fails on circle and ellipse
-####################################
-
-set result [OCC814]
-
-set nb_sol 0
-
-regexp {nb of solutions = ([-0-9.+eE]+)} $result full nb_sol
-
-if {$nb_sol > 0} {
- puts "OCC814 OK"
-} else {
- puts "Faulty OCC814"
-}
-
-
+++ /dev/null
-pload QAcommands
-
-puts "============"
-puts "OCC8169"
-puts "============"
-puts ""
-#######################################################################
-# Wrong Geom2dAPI_InterCurveCurve segment
-#######################################################################
-
-set BugNumber OCC6768
-
-restore [locate_data_file OCC8169_1.brep] e1
-restore [locate_data_file OCC8169_2.brep] e2
-
-plane p 0 0 500 0 0 1 1 0 0
-dump p
-mkface result p
-
-if { [regexp {Faulty} [OCC8169 e1 e2 result]] == 0 } {
- puts "OK ${BugNumber}"
-} else {
- puts "Faulty ${BugNumber}"
-}
-
-set 2dviewer 0
+++ /dev/null
-
-puts "================"
-puts "OCC862"
-puts "================"
-puts ""
-########################################
-## The result is just one extremum - intersection is not found.
-########################################
-restore [locate_data_file OCC862_1.draw] c1
-restore [locate_data_file OCC862_2.draw] c2
-
-set result [extrema c1 c2]
-set err [llength $result]
-if { $err <= 1} {
- puts "Faulty OCC862 (amount of solution): command extrema does NOT work properly"
-} else {
- puts "OCC862 OK (amount of solution): command extrema works properly"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-pload QAcommands
-
-puts "========"
-puts "OCC867"
-puts "========"
-puts ""
-######################################################
-## When calling method Init() with surface and its boundary parameters are the
-## arguments and then calling method Perform() it raises an exception.
-######################################################
-
-cylinder c 10 20
-trim c c 0 4 0 2
-point p 30 30 30
-set Umin 0
-set Usup 3
-set Vmin 0
-set Vsup 2
-
-if { [ catch {OCC867 p c $Umin $Usup $Vmin $Vsup} catch_result ] } {
- puts "Faulty OCC867"
-} else {
- puts "OCC867 OK"
-}
+++ /dev/null
-puts "========"
-puts "BUC60963"
-puts "OCC88"
-puts "========"
-puts ""
-######################################################
-# BUC60963. can not project vertex to face
-######################################################
-
-restore [locate_data_file OCC88.brep] sh
-
-set che [checkshape sh]
-
-explode sh f
-checkshape sh_1
-checkshape sh_2
-
-mksurface surf1 sh_1
-mksurface surf2 sh_2
-puts "Make line from pos(135; 11; 0) with dir (0;0;1) "
-line l 135 11 0 0 0 1
-
-intersect res1 l surf1
-intersect res2 l surf2
-#set first1 [whatis res1]
-#set second1 [whatis res2]
-
-puts "Try to intersect with (135;10.9995;0) (0;0;1)"
-line ll 135 10.9995 0 0 0 1
-intersect res_1 ll surf1
-intersect res_2 ll surf2
-#set first2 [whatis res_1]
-#set second2 [whatis res_2]
-
-proc CalculatePercent {value good_value} {
- if {${good_value} == 0. && ${value} == 0.} {
- set percent 0.
- } else {
- set percent [expr abs(${value} - ${good_value}) / double(${good_value}) * 100.]
- }
- return ${percent}
-}
-
-set IsGood 1
-set percent_max 0.1
-if {[info exists res1] == 0} {
- puts "Faulty OCC88 (case 2)"
- set IsGood 0
-}
-if {[info exists res2] == 1} {
- puts "Faulty OCC88 (case 3)"
- set IsGood 0
-}
-
-if {[info exists res_1] == 0} {
- puts "Faulty OCC88 (case 4)"
- set IsGood 0
-}
-if {[info exists res_2] == 1} {
- puts "Faulty OCC88 (case 5)"
- set IsGood 0
-}
-
-if {${IsGood} == 1} {
- set dump_list1 [split [dump res1] " :,\n"]
- set x1 [lindex ${dump_list1} 10]
- set y1 [lindex ${dump_list1} 12]
- set z1 [lindex ${dump_list1} 14]
-
- set dump_list2 [split [dump res_1] " :,\n"]
- set x2 [lindex ${dump_list2} 10]
- set y2 [lindex ${dump_list2} 12]
- set z2 [lindex ${dump_list2} 14]
-
- set x_percent [CalculatePercent ${x1} ${x2}]
- set y_percent [CalculatePercent ${y1} ${y2}]
- set z_percent [CalculatePercent ${z1} ${z2}]
-
- puts "x1 = ${x1}"
- puts "x2 = ${x2}"
- puts "x_percent = ${x_percent}\n"
-
- puts "y1 = ${y1}"
- puts "y2 = ${y2}"
- puts "y_percent = ${y_percent}\n"
-
- puts "z1 = ${z1}"
- puts "z2 = ${z2}"
- puts "z_percent = ${z_percent}\n"
-
- if {${x_percent} > ${percent_max}} {
- puts "OCC88 Faulty (case 6)"
- set IsGood 0
- }
- if {${y_percent} > ${percent_max}} {
- puts "OCC88 Faulty (case 7)"
- set IsGood 0
- }
- if {${z_percent} > ${percent_max}} {
- puts "OCC88 Faulty (case 8)"
- set IsGood 0
- }
-}
-
-if {${IsGood} == 1} {
- puts "OCC88 OK"
-}
-
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC889 : Checkshape says that the shape has FAULTY, but it is not truth"
-
-puts "============"
-puts "OCC889"
-puts "============"
-puts ""
-############################################
-## Checkshape founds number of errors on new face. It is not true.
-############################################
-restore [locate_data_file OCC889.rle] result
-
-decho off
-set che [checkshape result]
-decho on
-
-if { [ regexp {Faulty} $che ] == 1 } {
- puts "Faulty OCC889 : Checkshape says that the shape has FAULTY, but it is not truth"
-} else {
- puts "OCC889 OK : Checkshape works properly"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC909"
-
-pload QAcommands
-
-puts "======="
-puts "OCC909"
-puts "======="
-puts ""
-#######################################################
-## BRepTools_WireExplorer give different number of edges in dev and FIXOCC40
-#######################################################
-
-restore [locate_data_file OCC909_f.rle] f
-restore [locate_data_file OCC909_w.rle] w
-
-if { [ catch { set result [OCC909 w f] } ] } {
- puts "Faulty OCC909"
-} else {
- set count 0
- regexp {Count = ()} $result full count
- if {$count != 2} {
- puts "Faulty OCC909"
- } else {
- puts "OCC909 OK"
- }
-}
-
+++ /dev/null
-pload QAcommands
-
-puts "======="
-puts "OCC921"
-puts "======="
-puts ""
-############################################################
-## I have found that regresiion on file a054a.sat depends on changes in
-## BRepTools::AddUVBounds. The method BRepTools::UVBounds(F, u1, u2, v1, v2)
-## returns different values in C40 and in dev. It is because there are different
-## strings of code. BRepTools.cxx line 213 (in dev version)
-############################################################
-
-set good_u1 -0.157166
-set good_u2 4.88216
-set good_v1 -1.65583
-set good_v2 7.93778
-
-set percent_max 0.1
-
-restore [locate_data_file OCC921.rle] a
-
-set BoundsList [OCC921 a]
-
-set u1 0
-set u2 0
-set v1 0
-set v2 0
-
-regexp {Bounds: *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+)} $BoundsList full u1 u2 v1 v2
-
-set u1_percent [expr abs(${u1} - ${good_u1}) / double(${good_u1}) * 100.]
-set u2_percent [expr abs(${u2} - ${good_u2}) / double(${good_u2}) * 100.]
-set v1_percent [expr abs(${v1} - ${good_v1}) / double(${good_v1}) * 100.]
-set v2_percent [expr abs(${v2} - ${good_v2}) / double(${good_v2}) * 100.]
-
-puts "u1 = ${u1}"
-puts "u2 = ${u2}"
-puts "v1 = ${v1}"
-puts "v2 = ${v2}"
-
-puts "u1_percent = ${u1_percent}"
-puts "u2_percent = ${u2_percent}"
-puts "v1_percent = ${v1_percent}"
-puts "v2_percent = ${v2_percent}"
-
-set status 0
-
-if {${u1_percent} > ${percent_max}} {
- puts "OCC921: Error (case 1)"
- set status 1
-}
-
-if {${u2_percent} > ${percent_max}} {
- puts "OCC921: Error (case 2)"
- set status 1
-}
-
-if {${v1_percent} > ${percent_max}} {
- puts "OCC921: Error (case 3)"
- set status 1
-}
-
-if {${v2_percent} > ${percent_max}} {
- puts "OCC921: Error (case 4)"
- set status 1
-}
-
-if {${status} == 0} {
- puts "OCC921: OK"
-}
-
+++ /dev/null
-puts "============"
-puts "OCC9303"
-puts "============"
-puts ""
-######################################################
-# Intersection curve surface doesn't take account of bounds of the surface
-######################################################
-
-set BugNumber OCC9303
-
-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}
-}
-
-cone c 0 0 0 30 0
-trimv nc c 20 30
-
-smallview +X+Z
-donly nc
-fit
-
-line ll 0 0 20 1 0 0
-
-if [catch {intersect res ll nc} result] {
- set mistake 1
-} else {
- set mistake 0
-}
-
-if { $mistake == 0} {
- puts "${BugNumber} OK : intersection was finished"
- puts ""
- set nom 0
- set j 1
- repeat 2 {
- set che [whatis res_$j]
- set err [lindex $che [expr [llength $che] - 1]]
- if { $err != "point"} {
- break
- } else {
- set nom [expr $nom + 1]
- }
- incr j
- }
- if { $nom != 2 } {
- puts [format "Faulty ${BugNumber}: Intersection was made WRONGLY: %s points" $nom]
- } else {
- puts [format "${BugNumber} OK : Intersection command works properly: %s points" $nom]
-
- set dump1 [dump res_1]
- set x1 [lindex ${dump1} 7]
- set y1 [lindex ${dump1} 8]
- set z1 [lindex ${dump1} 9]
- set x1 [string range ${x1} 0 end-1]
- set y1 [string range ${y1} 0 end-1]
-
- set dump2 [dump res_2]
- set x2 [lindex ${dump2} 7]
- set y2 [lindex ${dump2} 8]
- set z2 [lindex ${dump2} 9]
- set x2 [string range ${x2} 0 end-1]
- set y2 [string range ${y2} 0 end-1]
-
- set percent_max 0.1
- set GoodX1 1.154700538379251e+01
- set GoodY1 0.000000000000000e+00
- set GoodZ1 2.000000000000000e+01
- set GoodX2 -1.154700538379251e+01
- set GoodY2 0.000000000000000e+00
- set GoodZ2 2.000000000000000e+01
-
- set Percent_x1 [GetPercent ${x1} ${GoodX1}]
- set Percent_y1 [GetPercent ${y1} ${GoodY1}]
- set Percent_z1 [GetPercent ${z1} ${GoodZ1}]
-
- set Percent_x2 [GetPercent ${x2} ${GoodX2}]
- set Percent_y2 [GetPercent ${y2} ${GoodY2}]
- set Percent_z2 [GetPercent ${z2} ${GoodZ2}]
-
- if {${Percent_x1} > ${percent_max}} {
- puts "Faulty ${BugNumber}: bad value of x1 = ${x1}"
- } elseif {${Percent_y1} > ${percent_max}} {
- puts "Faulty ${BugNumber}: bad value of y1 = ${y1}"
- } elseif {${Percent_z1} > ${percent_max}} {
- puts "Faulty ${BugNumber}: bad value of z1 = ${z1}"
- } elseif {${Percent_x2} > ${percent_max}} {
- puts "Faulty ${BugNumber}: bad value of x2 = ${x2}"
- } elseif {${Percent_y2} > ${percent_max}} {
- puts "Faulty ${BugNumber}: bad value of y2 = ${y2}"
- } elseif {${Percent_z2} > ${percent_max}} {
- puts "Faulty ${BugNumber}: bad value of z2 = ${z2}"
- } else {
- puts "${BugNumber}: OK"
- }
-
- }
-} else {
- puts "Faulty ${BugNumber} : intersection does not finished"
-}
+++ /dev/null
-puts "============"
-puts "OCC9303"
-puts "============"
-puts ""
-######################################################
-# Intersection curve surface doesn't take account of bounds of the surface
-######################################################
-
-set BugNumber OCC9303
-
-cone c 0 0 0 30 0
-trimv nc c 20 30
-
-smallview +X+Z
-donly nc
-fit
-
-line ll 0 0 10 1 0 0
-
-decho off
-if [catch {intersect res ll nc} result] {
- set mistake 1
-} else {
- set mistake 0
-}
-decho on
-
-if { $mistake == 0} {
- puts "${BugNumber} OK : intersection was finished"
- puts ""
- set nom 0
- set j 1
- repeat 2 {
- set che [whatis res_$j]
- set err [lindex $che [expr [llength $che] - 1]]
- if { $err != "point"} {
- break
- } else {
- set nom [expr $nom + 1]
- }
- incr j
- }
- if { $nom != 0 } {
- puts [format "Faulty ${BugNumber}: Intersection was made WRONGLY: %s points" $nom]
- } else {
- puts [format "${BugNumber} OK : Intersection command works properly: %s points" $nom]
- }
-} else {
- puts "Faulty ${BugNumber} : intersection does not finished"
-}
-
+++ /dev/null
-
-puts "========="
-puts " OCC935 "
-puts "(case 1)"
-puts "========="
-puts ""
-###############################
-## instability in checkshape in KAS:dev version.
-###############################
-
-restore [locate_data_file OCC935_1.brep] result
-
-decho off
-set err [checkshape result]
-decho on
-set j 1
-repeat 25 {
- restore [locate_data_file OCC935_1.brep] result
- decho off
- set err1 [checkshape result]
- decho on
- if { $err != $err1 } {
- puts [format " Faulty OCC935 (case 1): function CHECKSHAPE works wrongly on %s time" $j]
- break
- } else {
- puts [format " OCC935 (case 1) OK: function CHECKSHAPE works properly %s time" $j]
- }
- incr j
-}
-
-set 2dviewer 0
-
-
+++ /dev/null
-
-puts "========="
-puts " OCC935 "
-puts "(case 2)"
-puts "========="
-puts ""
-###############################
-## instability in checkshape in KAS:dev version.
-###############################
-
-restore [locate_data_file OCC935_2.brep] result
-
-decho off
-set err [checkshape result]
-decho on
-
-set j 1
-repeat 25 {
- restore [locate_data_file OCC935_2.brep] result
- decho off
- set err1 [checkshape result]
- decho on
- if { $err != $err1 } {
- puts [format " Faulty OCC935 (case 2): function CHECKSHAPE works wrongly on %s time" $j]
- break
- } else {
- puts [format " OCC935 (case 2) OK: function CHECKSHAPE works properly %s time" $j]
- }
- incr j
-}
-
-set 2dviewer 0
+++ /dev/null
-
-puts "========="
-puts " OCC943 "
-puts "(case 1)"
-puts "========="
-puts ""
-#####################################################
-## The regression is intersecting pcurves of face, They are added by fixshape.
-## (To see this you can try fixshape dF.rle from attachment. But please note, that
-## checkshape on result of fixshape sometimes fails and sometimes not. It is
-## instability!)
-######################################################
-
-restore [locate_data_file OCC943_1.brep] result
-
-decho off
-set err [checkshape result]
-decho on
-
-set j 1
-repeat 25 {
- restore [locate_data_file OCC943_1.brep] result
- decho off
- set err1 [checkshape result]
- decho on
- if { $err != $err1 } {
- puts [format " Faulty OCC943 (case 1): function CHECKSHAPE works wrongly on %s time" $j]
- break
- } else {
- puts [format " OCC943 (case 1) OK: function CHECKSHAPE works properly %s time" $j]
- }
- incr j
-}
-
-set 2dviewer 0
-
+++ /dev/null
-
-puts "========="
-puts " OCC943 "
-puts "(case 2)"
-puts "========="
-puts ""
-#########################################################
-## distinace between projection and initial point in dev version is larger then in C40.
-#########################################################
-
-restore [locate_data_file OCC943_2.draw] su
-
-set X 5.759527537723098
-set Y 31.81368637070151
-set Z -0.2989616405627145
-
-vertex v $X $Y $Z
-proj su $X $Y $Z
-
-regexp {Parameters +: +[-0-9.+eE]+ +([-0-9.+eE]+)} [dump ext_1] full resV
-
-cvalue ext_1 $resV cx cy cz
-vertex V cx cy cz
-distmini d V v
-
-regexp {([-0-9.+eE]+)$} [dump d_val] full res
-
-set res_good 1.108e-05
-
-if { $res > $res_good } {
- puts ""
- puts "Faulty OCC493 (case 2)"
-} else {
- puts ""
- puts " OCC493 (case 2) OK"
-}
+++ /dev/null
-puts "TODO ?OCC12345 ALL: Faulty OCC956"
-
-puts "========="
-puts " OCC956 "
-puts "(case 1)"
-puts "========="
-puts ""
-###############################################
-##possible regression in KAS:dev on checkshape. Fails on valid shape
-###############################################
-
-restore [locate_data_file OCC956_1.brep] result
-
-decho off
-set che [checkshape result]
-decho on
-
-if { [regexp {Faulty} $che] } {
- puts "Faulty OCC956 (case 1): Checkshape says that the shape is incorrect, but it is not truth"
-} else {
- puts "OCC956 OK (case 1): Checkshape works properly"
-}
-
-set 2dviewer 0
-
+++ /dev/null
-puts "TODO ?OCC12345 ALL: Faulty OCC956"
-
-puts "========="
-puts " OCC956 "
-puts "(case 2)"
-puts "========="
-puts ""
-###############################################
-##possible regression in KAS:dev on checkshape. Fails on valid shape
-###############################################
-
-restore [locate_data_file OCC956_2.brep] result
-
-decho off
-set che [checkshape result]
-decho on
-
-if { [regexp {Faulty} $che] } {
- puts "Faulty OCC956 (case 2): Checkshape says that the shape is incorrect, but it is not truth"
-} else {
- puts "OCC956 OK (case 2): Checkshape works properly"
-}
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC9"
-
-puts "================"
-puts "OCC9"
-puts "================"
-puts ""
-
-pload QAcommands
-restore [locate_data_file OCC9-path.draw] d
-############### checkshape d # is not a topological shape
-restore [locate_data_file OCC9-cur1.draw] b
-############### checkshape b # is not a topological shape
-restore [locate_data_file OCC9-cur2.draw] c
-############### checkshape c # is not a topological shape
-
-## compute radius
-cvalue b 0 x y z
-cvalue b 0 P0
-vertex V [dval x] [dval y] [dval z]
-
-mkedge E d
-distmini dm V E
-
-## make pipe
-OCC9 res d b c [dval dm_val]
-
-## check parametrization
-
-# puts "Path 0: [dval x] [dval y] [dval z]"
-
-# cvalue b 1 x y z
-# cvalue b 1 P1
-# puts "Path 1: [dval x] [dval y] [dval z]"
-
-# svalue res 0 0 x y z
-# svalue res 0 0 S0
-# puts "Surf 0 0: [dval x] [dval y] [dval z]"
-
-# svalue res 0 1 x y z
-# svalue res 0 1 S1
-# puts "Surf 0 1: [dval x] [dval y] [dval z]"
-
-set n 1
-set sum 0
-for {set i -470} {$i < 240} {incr i 25} {
-# cvalue d $i "P$n"
-# svalue res 0 $i "S$n"
-# puts "donly res P$n S$n"
- incr n
- # puts "n = $n i = $i"
-
- ####cvalue d $i x y z
- cvalue b $i x y z
- svalue res 0 $i xs ys zs
- set dist [expr sqrt (\
- ( [dval x ] - [dval xs ] ) * ( [dval x ] - [dval xs ] )\
- + ( [dval y ] - [dval ys ] ) * ( [dval y ] - [dval ys ] )\
- + ( [dval z ] - [dval zs ] ) * ( [dval z ] - [dval zs ] )\
- ) ]
- set sum [expr $sum + $dist ]
- puts "1-st Dist at $i : $dist"
-
- ####cvalue d $i x y z
- cvalue c $i x y z
- ####svalue res 0 $i xs ys zs
- svalue res 1 $i xs ys zs
- set dist [expr sqrt (\
- ( [dval x ] - [dval xs ] ) * ( [dval x ] - [dval xs ] )\
- + ( [dval y ] - [dval ys ] ) * ( [dval y ] - [dval ys ] )\
- + ( [dval z ] - [dval zs ] ) * ( [dval z ] - [dval zs ] )\
- ) ]
- set sum [expr $sum + $dist ]
- puts "2-nd Dist at $i : $dist"
-
-}
-####puts "\n Avg dist on $n intervals: [expr $sum / $n ]"
-set Avg_dist [expr $sum / (2 * $n) ]
-puts "\n Avg dist on $n intervals: ${Avg_dist}"
-
-set check_dist [dval dm_val]
-puts "\n check_dist = ${check_dist}"
-if { ${Avg_dist} > ${check_dist} } {
- puts "\n Faulty OCC9"
-} else {
- puts "\n OCC9: OK"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty OCC9"
-
-puts "================"
-puts "OCC9"
-puts "================"
-puts ""
-
-pload QAcommands
-restore [locate_data_file OCC9-path.draw] d
-############### checkshape d # is not a topological shape
-restore [locate_data_file OCC9-cur1.draw] b
-############### checkshape b # is not a topological shape
-restore [locate_data_file OCC9-cur2.draw] c
-############### checkshape c # is not a topological shape
-
-## compute radius
-cvalue b 0 x y z
-cvalue b 0 P0
-vertex V [dval x] [dval y] [dval z]
-
-mkedge E d
-distmini dm V E
-
-## make pipe
-set tolerance 0.0001
-OCC9 res d b c [dval dm_val] ${tolerance}
-
-## check parametrization
-
-# puts "Path 0: [dval x] [dval y] [dval z]"
-
-# cvalue b 1 x y z
-# cvalue b 1 P1
-# puts "Path 1: [dval x] [dval y] [dval z]"
-
-# svalue res 0 0 x y z
-# svalue res 0 0 S0
-# puts "Surf 0 0: [dval x] [dval y] [dval z]"
-
-# svalue res 0 1 x y z
-# svalue res 0 1 S1
-# puts "Surf 0 1: [dval x] [dval y] [dval z]"
-
-set n 1
-set sum 0
-for {set i -470} {$i < 240} {incr i 25} {
-# cvalue d $i "P$n"
-# svalue res 0 $i "S$n"
-# puts "donly res P$n S$n"
- incr n
- # puts "n = $n i = $i"
-
- ####cvalue d $i x y z
- cvalue b $i x y z
- svalue res 0 $i xs ys zs
- set dist [expr sqrt (\
- ( [dval x ] - [dval xs ] ) * ( [dval x ] - [dval xs ] )\
- + ( [dval y ] - [dval ys ] ) * ( [dval y ] - [dval ys ] )\
- + ( [dval z ] - [dval zs ] ) * ( [dval z ] - [dval zs ] )\
- ) ]
- set sum [expr $sum + $dist ]
- puts "1-st Dist at $i : $dist"
-
- ####cvalue d $i x y z
- cvalue c $i x y z
- ####svalue res 0 $i xs ys zs
- svalue res 1 $i xs ys zs
- set dist [expr sqrt (\
- ( [dval x ] - [dval xs ] ) * ( [dval x ] - [dval xs ] )\
- + ( [dval y ] - [dval ys ] ) * ( [dval y ] - [dval ys ] )\
- + ( [dval z ] - [dval zs ] ) * ( [dval z ] - [dval zs ] )\
- ) ]
- set sum [expr $sum + $dist ]
- puts "2-nd Dist at $i : $dist"
-
-}
-####puts "\n Avg dist on $n intervals: [expr $sum / $n ]"
-set Avg_dist [expr $sum / (2 * $n) ]
-puts "\n Avg dist on $n intervals: ${Avg_dist}"
-
-set check_dist ${tolerance}
-puts "\n check_dist = ${check_dist}"
-if { ${Avg_dist} > ${check_dist} } {
- puts "\n Faulty OCC9"
-} else {
- puts "\n OCC9: OK"
-}
-
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Error : here is shading problem"
-
-puts "============"
-puts "FRA62476"
-puts ""
-puts "=================================="
-puts "It takes visual check for this BUG"
-puts "=================================="
-puts ""
-
-restore [locate_data_file fra62476a.brep] result
-checkshape result
-
-tclean result
-incmesh result .1
-triangles result
-
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri != 93 && $nod != 56 } {
- puts "Error : here is shading problem"
-}
-
-set 3dviewer 0
-
-
-
+++ /dev/null
-
-puts "=========="
-puts "FRA62476"
-puts ""
-puts "=================================="
-puts "It takes visual check for this BUG"
-puts "=================================="
-puts ""
-
-restore [locate_data_file fra62476b.brep] result
-checkshape result
-
-tclean result
-incmesh result .1
-triangles result
-
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri !=239 && $nod != 145 } {
- puts "Shady FRA62476: here may be shading problem, number tri & nod
- are changed"
-}
-
-set 3dviewer 0
-
-
+++ /dev/null
-puts "==========="
-puts "GER61235"
-puts "==========="
-
-restore [locate_data_file ger61235a.brep] tool
-checkshape tool
-restore [locate_data_file ger61235b.brep] object
-checkshape object
-
-bsection result object tool
-
-puts "Result of section :"
-checkshape result
-#To check geometry part
-mksurface s1 tool
-mksurface s2 object
-
-puts "Result of intersect :"
-intersect result s1 s2
-puts [checksection result]
-
-set 2dviewer 0
-
-
+++ /dev/null
-puts "=========="
-puts "PRO19422"
-puts "GER60462"
-puts "=========="
-puts ""
-#############################################################
-## Errors when cutting, 2 cases in /dp_25/IBug/pro/19422 files o1 t1 and o2 t2, restore.
-## cut c1 o1 t1 fails. cut c2 o2 t2 fails
-#############################################################
-
-restore [locate_data_file pro19422a.brep] shape
-checkshape shape
-restore [locate_data_file pro19422b.brep] tool
-checkshape tool
-
-bcut result shape tool
-
-set square 3166.93
-set 2dviewer 0
-
+++ /dev/null
-puts "=========="
-puts "PRO19422"
-puts "=========="
-puts ""
-#############################################################
-## Errors when cutting, 2 cases in /dp_25/IBug/pro/19422 files o1 t1 and o2 t2, restore.
-## cut c1 o1 t1 fails. cut c2 o2 t2 fails
-#############################################################
-
-restore [locate_data_file pro19422c.brep] shape
-checkshape shape
-restore [locate_data_file pro19422d.brep] tool
-checkshape tool
-
-bcut result shape tool
-
-set square 2369.43
-set 2dviewer 0
+++ /dev/null
-puts "TODO OCC12345 ALL: Faulty PRO20333: here is shading problem"
-
-puts "============"
-puts "PRO20333"
-puts ""
-puts "=================================="
-puts "It takes visual check for this BUG"
-puts "=================================="
-
-restore [locate_data_file pro20333a.brep] result
-checkshape result
-
-tclean result
-isos result 0
-incmesh result .1
-triangles result
-
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri != 107 || $nod != 109 } {
- puts "Faulty PRO20333: here is shading problem"
-}
-
-set 3dviewer 0
--- /dev/null
+set subgroup moddata
+
+
+
+
+
+
+
+
--- /dev/null
+puts "======================="
+puts "BUC60607"
+puts "It takes visual check for this BUC"
+puts "======================="
+
+set len_ch 2513
+
+point p 1600 300
+line l 0 500 2000 500
+cirtang c p l 400
+
+set info1 [length $c_1]
+set info2 [length $c_2]
+regexp {The length c_1 is +([-0-9.+eE]+)} $info1 full len1
+regexp {The length c_2 is +([-0-9.+eE]+)} $info2 full len2
+set len_int1 [expr int($len1)]
+set len_int2 [expr int($len2)]
+
+if { ${len_int1} != ${len_ch} || ${len_int2} != ${len_ch} } {
+ puts "Error : Length is invalid"
+}
--- /dev/null
+puts "======================="
+puts "BUC60607"
+puts "It takes visual check for this BUC"
+puts "======================="
+
+point p 1600 300
+line l 0 500 2000 500
+cirtang c1 p l 200
--- /dev/null
+puts "======================="
+puts "BUC60607"
+puts "It takes visual check for this BUC"
+puts "======================="
+
+point p2 1400 1400
+line l2 3000 1700 1000 1550
+cirtang c3 p2 l2 300
--- /dev/null
+puts "======================="
+puts "BUC60607"
+puts "It takes visual check for this BUC"
+puts "======================="
+
+point p2 1400 1400
+line l2 3000 1700 1000 1550
+cirtang result p2 l2 150
--- /dev/null
+puts "================"
+puts "BUC60609"
+puts "================"
+
+pload QAcommands
+
+set INF [BUC60609 [locate_data_file buc60609a.brep] a]
+set ll [llength $INF]
+set first [lindex $INF [expr $ll - 5]]
+set second [lindex $INF [expr $ll - 1]]
+
+if {$first != "INSIDE" && $first != "inside"} {
+ puts "Faulty BUC60609 first: $first is not right result. It should be INSIDE"
+} else {
+ puts "BUC60609 first OK: It is INSIDE"
+}
+
+if {$second != "INSIDE"} {
+ puts "Faulty BUC60609 second: $second is not right result. It should be INSIDE"
+} else {
+ puts "BUC60609 second OK: It is INSIDE"
+}
+
+renamevar a result
+set 2dviewer 0
+
--- /dev/null
+puts "=================================="
+puts "BUC60618"
+puts "=================================="
+puts "There was a problem filter of solutions. Several solutions were skipped."
+puts ""
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+set len_ch1 3568
+set len_ch2 9964
+set len_ch3 2082
+set len_ch4 32696
+set len_ch5 1681
+set len_ch6 3097
+set len_ch7 1545
+set len_ch8 772
+
+circle c1 0 0 100
+circle c2 500 -400 300
+circle c3 300 200 200
+cirtang result c1 c2 c3
+
+set info1 [length $result_1]
+set info2 [length $result_2]
+set info3 [length $result_3]
+set info4 [length $result_4]
+set info5 [length $result_5]
+set info6 [length $result_6]
+set info7 [length $result_7]
+set info8 [length $result_8]
+
+regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
+regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
+regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
+regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4
+regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5
+regexp {The length result_6 is +([-0-9.+eE]+)} $info6 full len6
+regexp {The length result_7 is +([-0-9.+eE]+)} $info7 full len7
+regexp {The length result_8 is +([-0-9.+eE]+)} $info8 full len8
+
+set len_int1 [expr int($len1)]
+set len_int2 [expr int($len2)]
+set len_int3 [expr int($len3)]
+set len_int4 [expr int($len4)]
+set len_int5 [expr int($len5)]
+set len_int6 [expr int($len6)]
+set len_int7 [expr int($len7)]
+set len_int8 [expr int($len8)]
+
+if { ${len_int1} != ${len_ch1}
+ || ${len_int2} != ${len_ch2}
+ || ${len_int3} != ${len_ch3}
+ || ${len_int4} != ${len_ch4}
+ || ${len_int5} != ${len_ch5}
+ || ${len_int6} != ${len_ch6}
+ || ${len_int7} != ${len_ch7}
+ || ${len_int8} != ${len_ch8} } {
+ puts "Error : Length is invalid"
+}
--- /dev/null
+puts "=========="
+puts "BUC60622"
+puts "=========="
+puts ""
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+
+circle c1 2900 800 500
+circle c2 2900 900 400
+circle c3 2900 1000 300
+catch {cirtang result c1 c2 c3}
+
--- /dev/null
+puts "=================================="
+puts "BUC60622"
+puts "=================================="
+puts "There was an infinity of solutions and also c1, c2 and c3 are solutions"
+puts ""
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+
+set len_ch1 2513
+set len_ch2 837
+set len_ch3 279
+
+circle c1 500 1800 500
+circle c2 500 1900 400
+circle c3 700 1900 200
+cirtang result c1 c2 c3
+
+set info1 [length $result_1]
+set info2 [length $result_2]
+set info3 [length $result_3]
+regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
+regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
+regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
+set len_int1 [expr int($len1)]
+set len_int2 [expr int($len2)]
+set len_int3 [expr int($len3)]
+
+if { ${len_int1} != ${len_ch1}
+ || ${len_int2} != ${len_ch2}
+ || ${len_int3} != ${len_ch3} } {
+ puts "Error : Length is invalid"
+}
--- /dev/null
+puts "=================================="
+puts "BUC60622"
+puts "=================================="
+puts "There was an infinity of solutions and also c1, c2 and c3 are solutions"
+puts ""
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+
+set len_ch1 1570
+set len_ch2 785
+set len_ch3 785
+set len_ch4 523
+set len_ch5 523
+
+circle c3 500 3000 250
+circle c2 375 3000 125
+circle c1 625 3000 125
+cirtang result c1 c2 c3
+
+set info1 [length $result_1]
+set info2 [length $result_2]
+set info3 [length $result_3]
+set info4 [length $result_4]
+set info5 [length $result_5]
+
+regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
+regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
+regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
+regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4
+regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5
+
+set len_int1 [expr int($len1)]
+set len_int2 [expr int($len2)]
+set len_int3 [expr int($len3)]
+set len_int4 [expr int($len4)]
+set len_int5 [expr int($len5)]
+
+if { ${len_int1} != ${len_ch1}
+ || ${len_int2} != ${len_ch2}
+ || ${len_int3} != ${len_ch3}
+ || ${len_int4} != ${len_ch4}
+ || ${len_int5} != ${len_ch5} } {
+ puts "Error : Length is invalid"
+}
+
--- /dev/null
+puts "========================"
+puts "BUC60623"
+puts "========================"
+
+restore [locate_data_file buc60623a.brep] a
+checkshape a
+restore [locate_data_file buc60623b.brep] b
+checkshape b
+
+mksurface S1 a
+mksurface S2 b
+
+intersect I1 S1 S2
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection I1] full cs2
+if { $cs2 != 0 } {
+ puts " Faulty : Intersection is not correct"
+} else {
+ puts "Intersection of S1 and S2 is correct"
+}
+
+intersect I2 S2 S1
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection I2] full cs2
+if { $cs2 != 0 } {
+ puts " Faulty : Intersection is not correct"
+} else {
+ puts "Intersection of S2 and S1 is correct"
+}
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts "BUC60637"
+puts "========================"
+
+restore [locate_data_file buc60637a.brep] result
+fsameparameter result
+
+set square 144.866
+set 2dviewer 0
--- /dev/null
+
+puts "=========="
+puts "BUC60652"
+puts "Case 1"
+puts "=========="
+
+pload QAcommands
+
+restore [locate_data_file buc60652a.brep] result
+checkshape result
+BUC60652 result
+
+set square 19614.8
+set 2dviewer 0
--- /dev/null
+
+puts "=========="
+puts "BUC60652"
+puts "Case 2"
+puts "=========="
+
+pload QAcommands
+
+restore [locate_data_file buc60652b.brep] result
+checkshape result
+BUC60652 result
+
+set square 29961
+set 2dviewer 0
+
--- /dev/null
+
+puts "==========="
+puts "BUC60652"
+puts "Case 3"
+puts "==========="
+
+pload QAcommands
+
+restore [locate_data_file buc60652c.brep] result
+checkshape result
+BUC60652 result
+
+set square 77815.1
+set 2dviewer 0
--- /dev/null
+
+puts "=========="
+puts "BUC60652"
+puts "Case 4"
+puts "=========="
+
+pload QAcommands
+
+restore [locate_data_file shading_104.brep] result
+checkshape result
+BUC60652 result
+
+set square 119134
+set 2dviewer 0
--- /dev/null
+
+puts "==================="
+puts "BUC60667"
+puts "==================="
+
+restore [locate_data_file buc60667a.brep] result
+fsameparameter result
+checkshape result
+
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "==========="
+puts "BUC60707"
+puts "==========="
+puts ""
+#################################################
+## Fillets created in CasCade version 3 do not display as shaded surfaces.
+#################################################
+restore [locate_data_file buc60707a.brep] result
+checkshape result
+
+tclean result
+incmesh result .1
+triangles result
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full Maxtriangl
+
+if { $Maxtriangl < 1 } {
+ puts "Error : inside mesh for shading wasn't build"
+}
+
+set 3dviewer 0
+
+
+
--- /dev/null
+
+puts "========================"
+puts "BUC60729"
+puts "========================"
+
+pload QAcommands
+
+if [catch {BUC60729} ] {
+ puts "BUC60729: Error"
+} else {
+ puts "BUC60729: OK"
+}
+
+set 3dviewer 1
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========================"
+puts "BUC60755"
+puts "========================"
+
+restore [locate_data_file buc60755a.brep] a
+checkshape a
+
+#########################################
+# "tcopy" command of a valid shape give a no-valid shape.
+#########################################
+
+tcopy a result
+checkshape result
+
+set square 623.832
+set 2dviewer 0
+
+
+
+
--- /dev/null
+
+puts "============="
+puts "BUC60769"
+puts "============="
+
+restore [locate_data_file buc60769a.brep] result
+checkshape result
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "========================"
+puts "BUC60792"
+puts "========================"
+
+pload QAcommands
+
+vinit
+BUC60792
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty BUC60815: NO EXCEPTION."
+puts "=========="
+puts "BUC60815"
+puts "=========="
+
+plane p1 1 0 0
+plane p2 0 0 0 1 0 0
+trim p1 p1 -50 50 -50 50
+trim p2 p2 -75 75 -75 75
+intersect r2 p1 p2
+extsurf e1 r2 10 10 10
+extsurf e3 r2 10 10 10
+
+if [catch { intersect result e1 e3 } catch_result] {
+ puts "Faulty BUC60815: NO EXCEPTION."
+ puts "INTERSECTION BETWEEN TWO SURFACES LYING ON THE SAME PLANE UNDEFINED"
+} else {
+ puts "BUC60815 OK: suitable except"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "========================"
+puts "BUC60825"
+puts "========================"
+
+pload QAcommands
+
+line aLine 0 0 0 0 0 1
+mkedge aEdge1 aLine
+restore [locate_data_file buc60825.brep] aEdge2
+checkshape aEdge2
+
+distmini d aEdge1 aEdge2
+regexp {NB RESULTS +: +([-0-9.+eE]+)} [BUC60825 aEdge1 aEdge2] full ext
+if { $ext != 0 } {
+ puts "Error : The extrema has not been calculated."
+}
+
+
+
+
--- /dev/null
+
+puts "========"
+puts "BUC60828"
+puts "========"
+puts ""
+
+catch {BUC60828}
+
+
+
+
--- /dev/null
+
+puts "========"
+puts "BUC60842"
+puts "========"
+
+pload QAcommands
+vinit
+
+if [catch {BUC60842} catch_result] {
+ puts "Faulty BUC60842"
+} else {
+ puts "BUC60842 OK"
+}
+
+set 3dviewer 1
+
--- /dev/null
+puts "========"
+puts "BUC60843"
+puts "========"
+puts ""
+####################################################################
+## code throws an exception as: .. The exception is:0x5feff388 : StdFail_NotDone: 2d lin = lintan.
+## ThisSolution(); is not right.( the line is not tangent to circle and ellipse )
+####################################################################
+
+pload QAcommands
+
+set len_ch 4.0000000000000001e+100
+
+circle test_circle 0 0 50
+ellipse test_ellipse 460 0 150 100
+
+BUC60843 result test_circle test_ellipse 0.1
+
+set info [length $result]
+regexp {The length result is +([-0-9.+eE]+)} $info full len
+
+if { ${len} != ${len_ch} } {
+ puts "Error : length is invalid"
+}
--- /dev/null
+puts "========"
+puts "BUC60843"
+puts "========"
+puts ""
+####################################################################
+## code throws an exception as: .. The exception is:0x5feff388 : StdFail_NotDone: 2d lin = lintan.
+## ThisSolution(); is not right.( the line is not tangent to circle and ellipse )
+####################################################################
+
+pload QAcommands
+
+set len_ch 4.0000000000000001e+100
+
+ellipse test_ellipse_1 0 0 50 50
+ellipse test_ellipse_2 460 0 150 100
+
+BUC60843 result test_ellipse_1 test_ellipse_2 1.0 1.0
+
+set info [length $result]
+regexp {The length result is +([-0-9.+eE]+)} $info full len
+
+if { ${len} != ${len_ch} } {
+ puts "Error : length is invalid"
+}
+
--- /dev/null
+
+puts "============"
+puts "BUC60848"
+puts "============"
+puts ""
+
+pload QAcommands
+
+restore [locate_data_file BUC60848.brep] a
+checkshape a
+
+tcopy a res
+
+set Flag 0
+
+set Res [ catch { BUC60848 a } ]
+if { $Res != 0 } {
+ invert a
+ set Flag 1
+ puts ""
+}
+
+if { $Flag == 1 } {
+ set Res [ catch { BUC60848 a } ]
+ if { $Res != 0 } {
+ set Flag 2
+ }
+ puts ""
+}
+
+if { $Flag == 2 } {
+ puts "TEST FINISHED. RESULT IS BAD. Faulty"
+ puts ""
+}
+
+if { $Flag == 1 } {
+ puts "TEST FINISHED. RESULT IS OK. SHAPE HAS BEEN INVERTED."
+ puts ""
+}
+
+if { $Flag == 0 } {
+ puts "TEST FINISHED. RESULT IS OK."
+ puts ""
+}
+
--- /dev/null
+
+puts "========"
+puts "BUC60852"
+puts "BUC60923"
+puts "========"
+
+pload QAcommands
+
+set bndbox_X1 0
+set bndbox_Y1 0
+set bndbox_Z1 0
+set bndbox_X2 30
+set bndbox_Y2 10
+set bndbox_Z2 20
+
+set point_1_1_X -20
+set point_1_1_Y -5
+set point_1_1_Z 10
+set point_1_2_X 50
+set point_1_2_Y 15
+set point_1_2_Z 10
+
+vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
+vertex vertex_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z
+
+edge edge_1 vertex_1_1 vertex_1_2
+
+puts ""
+
+set point_2_1_X -20
+set point_2_1_Y -10
+set point_2_1_Z 10
+set point_2_2_X 50
+set point_2_2_Y -10
+set point_2_2_Z 10
+
+vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
+vertex vertex_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z
+
+edge edge_2 vertex_2_1 vertex_2_2
+
+puts ""
+
+box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2
+
+
+line line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z [ expr { $point_1_1_X - $point_1_2_X } ] [ expr { $point_1_1_Y - $point_1_2_Y } ] [ expr { $point_1_1_Z - $point_1_2_Z } ]
+
+line line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z [ expr { $point_2_1_X - $point_2_2_X } ] [ expr { $point_2_1_Y - $point_2_2_Y } ] [ expr { $point_2_1_Z - $point_2_2_Z } ]
+
+puts ""
+
+set result1 [BUC60852 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
+if {${result1} != "Line that lies on edge intersects the box\n"} {
+ puts "BUC60852: Error; (case 1)"
+} else {
+ puts "BUC60852: OK; (case 1)"
+}
+
+puts ""
+
+set result2 [BUC60852 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
+if {${result2} != "Line that lies on edge does not intersect the box\n"} {
+ puts "BUC60852: Error; (case 2)"
+} else {
+ puts "BUC60852: OK; (case 2)"
+}
+
--- /dev/null
+puts "TODO OCC12345 ALL: BUC60854: Error"
+
+puts "========"
+puts "BUC60854"
+puts "========"
+
+pload QAcommands
+
+plane test_plane
+mkface test_face test_plane 0 1 0 1
+
+vertex test_vertex_1 0 0.5 0
+vertex test_vertex_2 1 0.5 0
+edge test_edge test_vertex_1 test_vertex_2
+
+splitshape test_shape test_face test_face test_edge
+
+explode test_shape f
+
+renamevar test_shape_1 test_face
+
+vertex test_vertex_3 0.2 0.5 0
+vertex test_vertex_4 0.8 0.5 0
+edge test_edge_1 test_vertex_3 test_vertex_4
+
+vertex test_vertex_5 0 1 0
+edge test_edge_2 test_vertex_5 test_vertex_3
+
+vertex test_vertex_6 1 1 0
+edge test_edge_3 test_vertex_4 test_vertex_6
+
+BUC60854 result test_shape test_face test_edge_2 test_edge_3 @ test_edge test_edge_1
+
+erase test_plane
+
+regexp {FACE +: +([-0-9.+eE]+)} [numshapes result] full FACE_num
+
+if {${FACE_num} != 3} {
+ puts "BUC60854: Error"
+}
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "BUC60868"
+puts "========"
+puts ""
+
+pload QAcommands
+
+restore [locate_data_file buc60868.brep] sh
+checkshape sh
+
+BUC60868 result sh
+checkshape result
+
+set len [llength [explode result w]]
+if { $len != 3 } {
+ puts "Error : the number of curves is $len, but it should be 3."
+}
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "BUC60870"
+puts "========"
+
+pload QAcommands
+
+vertex vertex_1 0 0 0
+vertex vertex_2 0 1 0
+vertex vertex_3 0 0.3 1
+
+edge edge_1 vertex_1 vertex_2
+
+set result [BUC60870 test_result edge_1 vertex_3 2.0]
+
+if {[llength ${result}] < 4} {
+ puts "BUC60870: Error; must be 3 solutions"
+} else {
+ set MinimumDistance [dval test_result_val]
+ set TheorMinimumDistance 1.0
+ set percent_max 1.0
+ set percent [expr abs(${MinimumDistance} - ${TheorMinimumDistance}) / ${TheorMinimumDistance} * 100.]
+ if {${percent} > ${percent_max}} {
+ puts "MinimumDistance=${MinimumDistance}"
+ puts "TheorMinimumDistance=${TheorMinimumDistance}"
+ puts "percent=${percent}"
+ puts "percent_max=${percent_max}"
+ puts "BUC60870: Error; bad value of minimum distance"
+ } else {
+ puts "BUC60870: OK"
+ }
+}
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "BUC60889"
+puts "BUC60947"
+puts "========"
+
+pload QAcommands
+
+set bndbox_X1 0
+set bndbox_Y1 0
+set bndbox_Z1 0
+set bndbox_X2 30
+set bndbox_Y2 10
+set bndbox_Z2 20
+
+set point_1_1_X -30
+set point_1_1_Y -10
+set point_1_1_Z 5
+set point_1_2_X -30
+set point_1_2_Y -10
+set point_1_2_Z 15
+
+set point_1_3_X -15
+set point_1_3_Y -5
+set point_1_3_Z 5
+
+set dx_1 [ expr { $point_1_3_X - $point_1_1_X } ]
+set dy_1 [ expr { $point_1_3_Y - $point_1_1_Y } ]
+set dz_1 [ expr { $point_1_3_Z - $point_1_1_Z } ]
+
+point point_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
+point point_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z
+polyline p_line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $point_1_2_X $point_1_2_Y $point_1_2_Z
+vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z
+vertex vertex_1_2 $point_1_3_X $point_1_3_Y $point_1_3_Z
+edge edge_1 vertex_1_1 vertex_1_2
+
+puts ""
+
+set point_2_1_X 30
+set point_2_1_Y 10
+set point_2_1_Z -5
+set point_2_2_X 30
+set point_2_2_Y 10
+set point_2_2_Z -15
+
+set point_2_3_X 0
+set point_2_3_Y 10
+set point_2_3_Z -5
+
+set dx_2 [ expr { $point_2_3_X - $point_2_1_X } ]
+set dy_2 [ expr { $point_2_3_Y - $point_2_1_Y } ]
+set dz_2 [ expr { $point_2_3_Z - $point_2_1_Z } ]
+
+point point_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
+point point_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z
+polyline p_line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z $point_2_2_X $point_2_2_Y $point_2_2_Z
+vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z
+vertex vertex_2_2 $point_2_3_X $point_2_3_Y $point_2_3_Z
+edge edge_2 vertex_2_1 vertex_2_2
+
+puts ""
+
+box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2
+
+
+line line_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $dx_1 $dy_1 $dz_1
+line line_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z $dx_1 $dy_1 $dz_1
+
+line line_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z $dx_2 $dy_2 $dz_2
+line line_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z $dx_2 $dy_2 $dz_2
+
+puts ""
+
+set result1 [BUC60889 point_1_1 point_1_2 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
+
+if {${result1} != "The band intersects the box\n"} {
+ puts "BUC60889: Error; (case 1)"
+} else {
+ puts "BUC60889: OK; (case 1)"
+}
+
+puts ""
+
+set result2 [BUC60889 point_2_1 point_2_2 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2]
+
+if {${result2} != "The band lies out of the box\n"} {
+ puts "BUC60889: Error; (case 2)"
+} else {
+ puts "BUC60889: OK; (case 2)"
+}
+
+
--- /dev/null
+puts "========"
+puts "BUC60890"
+puts "========"
+puts ""
+#####################################################
+## The Extrema raises when the number of C2 intervals is greater that 16.
+#####################################################
+
+set poles { { 0 0 1 } { 1 0 1 } { 1.3 1 1 } { 2 1 1 } { 2 0 1 } { 3 0 1} { 3.5 1 1 } { 4 1 1 } { 4 0 1 } { 5 0 1 } { 5 1 1 } { 6 1 1 } { 6 0 1 } { 7 0 1 } { 7 1 1 } { 8 1 1 } { 8 0 1 } { 9 0 1 } }
+set knots { { 0 2 } { 1 1 } { 2 1 } { 3 1 } { 4 1 } { 5 1 } { 6 1 } { 7 1 } { 8 1 } { 9 1 } { 10 1 } { 11 1 } { 12 1 } { 13 1 } { 14 1 } { 15 1 } { 16 1 } {17 2 } }
+
+eval 2dbsplinecurve curve_1 1 [ llength $knots] [ join $knots ] [ join $poles ]
+
+circle curve_2 5.3 -0.5 2
+
+set err [llength [2dextrema curve_1 curve_2]]
+
+if {$err == 16} {
+ puts "BUC60890 OK: Function 2dextrema works properly."
+} else {
+ puts "Faulty BUC60890 : Function 2dextrema works wrongly."
+}
--- /dev/null
+
+puts "============"
+puts "BUC60895"
+puts "============"
+puts ""
+##############################################################
+##If give command "sameparameter edge" on attached edge in the DRAW this command hang.
+##############################################################
+
+restore [locate_data_file BUC60895.brep] result
+
+fsameparameter result
+checkshape result
+
+set length 12.6012
+set 2dviewer 0
+
--- /dev/null
+puts "========"
+puts "BUC60897"
+puts "========"
+
+pload QAcommands
+
+if [catch { set result [BUC60897] } ] {
+ puts "BUC60897: Error; (case 1)"
+} else {
+ set len [llength ${result}]
+ if {${len} < 21} {
+ puts "length = ${len}"
+ puts "BUC60897: Error; (case 2)"
+ } else {
+ set circle_X [lindex ${result} 3]
+ set circle_Y [lindex ${result} 5]
+ set circle_R [lindex ${result} 7]
+ set tangency1_X [lindex ${result} 11]
+ set tangency1_Y [lindex ${result} 13]
+ set tangency2_X [lindex ${result} 17]
+ set tangency2_Y [lindex ${result} 19]
+
+ set x1 [expr abs(${tangency1_X} - ${circle_X})]
+ set y1 [expr abs(${tangency1_Y} - ${circle_Y})]
+ set R1 [expr sqrt(${x1} * ${x1} + ${y1} * ${y1})]
+
+ set x2 [expr abs(${tangency2_X} - ${circle_X})]
+ set y2 [expr abs(${tangency2_Y} - ${circle_Y})]
+ set R2 [expr sqrt(${x2} * ${x2} + ${y2} * ${y2})]
+
+ set maxdelta 1.0
+ set delta_R1 [expr abs(${R1} - ${circle_R}) / ${circle_R} * 100.]
+ set delta_R2 [expr abs(${R2} - ${circle_R}) / ${circle_R} * 100.]
+
+ if {${delta_R1} > ${maxdelta}} {
+ puts "circle_X = ${circle_X}"
+ puts "circle_Y = ${circle_Y}"
+ puts "circle_R = ${circle_R}"
+ puts "tangency1_X = ${tangency1_X}"
+ puts "tangency1_Y = ${tangency1_Y}"
+ puts "x1 = ${x1}"
+ puts "y1 = ${y1}"
+ puts "R1 = ${R1}"
+ puts "delta_R1 = ${delta_R1}"
+ puts "maxdelta = ${maxdelta}"
+ puts "BUC60897: Error; (case 3)"
+ } else {
+ puts "BUC60897: OK; (case 1)"
+ }
+
+ if {${delta_R2} > ${maxdelta}} {
+ puts "circle_X = ${circle_X}"
+ puts "circle_Y = ${circle_Y}"
+ puts "circle_R = ${circle_R}"
+ puts "tangency2_X = ${tangency2_X}"
+ puts "tangency2_Y = ${tangency2_Y}"
+ puts "x2 = ${x2}"
+ puts "y2 = ${y2}"
+ puts "R2 = ${R2}"
+ puts "delta_R2 = ${delta_R2}"
+ puts "maxdelta = ${maxdelta}"
+ puts "BUC60897: Error; (case 4)"
+ } else {
+ puts "BUC60897: OK; (case 2)"
+ }
+
+ }
+}
+
+set 3dviewer 0
+
+
--- /dev/null
+puts "========"
+puts "BUC60902"
+puts "========"
+
+pload QAcommands
+
+set info [BUC60902]
+
+if { [regexp "First tangent is OK" $info] != 1 && [regexp "Last tangent is OK" $info] != 1 } {
+ puts "Error : Result is invalid"
+}
+
+
+
--- /dev/null
+
+puts "============"
+puts "BUC60911"
+puts "============"
+
+#####################################################
+## Bad value of the volume of the shape.
+#####################################################
+
+restore [locate_data_file BUC60911.brep] result
+invert result
+
+set square 16353.8
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "BUC60924"
+puts "========"
+puts ""
+
+##################################################
+## ShapeAnalysisStd_Curve::IsPlanar works incorrectly with a conic curve.
+##################################################
+
+pload QAcommands
+
+ellipse el 0 0 1 20 10
+
+set result1 [BUC60924 el 0 0 1]
+
+if {${result1} != "The curve is planar !\n"} {
+ puts "BUC60924: Error"
+} else {
+ puts "BUC60924: OK"
+}
+
+set 3dviewer 1
+
--- /dev/null
+puts "========"
+puts "BUC60941"
+puts "========"
+puts ""
+############################################################
+## When try to use Geom2dGcc_Circ2d2TanRad with two curves it rise exception.
+############################################################
+
+circle curve_1 1.79356127430613 -11.9148900515605 12.0491272292007
+
+set poles { { 0 0 1 } { -2.14533906935467 4.92056269221697 1 } { -0.537398638327716 10.0937503357781 1 } { 10.3564232507092 8.73929826869582 1 } { 16.6366922939454 3.11858911810943 1 } { 16.39 -0.262 1 } }
+set knots { { 0 4 } { 8.6971225126475 1 } { 16.903955884905 1 } { 28.0087167558108 4 } }
+
+eval 2dbsplinecurve curve_2 3 [ llength $knots ] [ join $knots ] [ join $poles ]
+
+if [catch {cirtang result curve_1 curve_2 2} catch_result] {
+ puts "Faulty BUC60941: function cirtang works wrongly"
+} else {
+ puts "BUC60941 OK: function cirtang works properly"
+}
--- /dev/null
+
+puts "==========="
+puts " BUC60955"
+puts "==========="
+
+puts "Restoring face from file"
+restore [locate_data_file buc60955.brep] result
+checkshape result
+
+build3d result
+
+set square 8464.65
+set 2dviewer 0
+
--- /dev/null
+
+puts "==========="
+puts " BUC60960"
+puts "==========="
+
+proc do_offsets {i} {
+ global c c1 c2 c3 c4 c5
+
+ set poles {{0 0 1} {0 1 1} {1 1 1} {1 0 1} {2 0 1} {2 -1 1} {1 -1 1} \
+ {1 -2 1} {0 -2 1} {0 -1 1} {-1 -1 1} {-1 0 1}}
+ set knots {{0 1} {1 1} {2 1} {3 1} {4 1} {5 1} {6 1} {7 1} {8 1} {9 1} \
+ {10 1} {11 1} {12 1}}
+ eval 2dpbsplinecurve c 3 [llength $knots] [join $knots] [join $poles]
+
+
+ if [catch {offset c1 c 0.1}] {puts "while creating c1 at step $i"}
+ if [catch {offset c2 c 0.2}] {puts "while creating c2 at step $i"}
+ if [catch {offset c3 c 0.3}] {puts "while creating c3 at step $i"}
+ if [catch {offset c4 c 0.4}] {puts "while creating c4 at step $i"}
+ if [catch {offset c5 c 0.5}] {puts "while creating c5 at step $i"}
+ if [catch {offset c6 c 0.6}] {puts "while creating c6 at step $i"}
+ if [catch {offset c7 c 0.7}] {puts "while creating c7 at step $i"}
+ if [catch {offset c8 c 0.8}] {puts "while creating c8 at step $i"}
+}
+
+for {set i 0} {$i < 10} {incr i} {
+ do_offsets $i
+}
+
+
--- /dev/null
+
+puts "========================"
+puts "BUC60965"
+puts "========================"
+
+restore [locate_data_file buc60965-c.draw] c
+restore [locate_data_file buc60965-s.draw] s
+
+project result c s
+
+regexp {The+ length+ result+ is +([-0-9.+eE]+)} [length result] full len
+set y [expr 3.e5+int(1.e5*($len-round($len)))]
+
+if { $y != 314196.0 } {
+ puts "Results is incorrect"
+}
+
+set 2dviewer 0
+
+
+
+
+
+
--- /dev/null
+
+puts "========"
+puts "BUC60967"
+puts "========"
+puts ""
+
+restore [locate_data_file buc60967.draw] bs2
+
+to3d result bs2
+
+set 3dviewer 0
+
+
+
--- /dev/null
+
+puts "========================"
+puts "BUC60968"
+puts "========================"
+
+restore [locate_data_file buc60968-c.draw] c
+restore [locate_data_file buc60968-s1.draw] s1
+
+set che [extrema c s1]
+set err [llength $che]
+if { $err == 0} {
+ puts "Error : command extrema does NOT work properly"
+}
+
+
+
--- /dev/null
+
+puts "========="
+puts "BUC61006"
+puts "========="
+puts ""
+#########################################################
+## Checkshape says that face is valid but it inludes selfintersecting wire.
+#########################################################
+
+restore [locate_data_file buc61006.brep] result
+decho off
+set ch [checkshape result]
+decho on
+
+if {![string compare $ch "This shape seems to be valid"]} {
+ puts "Error : the checkshape command returns incorrect result."
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: An exception was caught"
+puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
+
+puts "================"
+puts "BUC60961"
+puts "OCC103"
+puts "================"
+puts ""
+
+circle c 0 0 10
+to3d c1 c
+
+offset o c -2
+catch {to3d result o}
+
+set 2dviewer 0
+
--- /dev/null
+puts "================"
+puts "OCC1048"
+puts "================"
+puts ""
+
+pload QAcommands
+
+restore [locate_data_file OCC1048.brep] result
+
+set list [OCC1048 result]
+
+set NBTRIANGLES 0
+regexp {Info: +Number +of +triangles += +([-0-9.+eE]+)} $list full NBTRIANGLES
+
+if { ${NBTRIANGLES} > 0 } {
+ puts "OCC1048: OK"
+} else {
+ puts "OCC1048: Error"
+}
+
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "================"
+puts "BUC61026"
+puts "OCC105"
+puts "================"
+puts ""
+
+pload QAcommands
+
+restore [locate_data_file OCC105.brep] result
+checkshape result
+
+if [catch { OCC105 result} ] {
+ puts "Error : BUC61032"
+} else {
+ puts "BUC61032: OK"
+}
+
+set 3dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "BUC61032"
+puts "OCC106"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC106-1.draw] sh1
+#### checkshape sh1 # - not a topological shape
+restore [locate_data_file OCC106-2.draw] sh2
+#### checkshape sh2 # - not a topological shape
+
+trimv s1 sh1 -1000 1000
+trimv s2 sh2 -1000 1000
+
+if [catch {intersect res s1 s2} result] {
+set mistake 1
+} else {
+set mistake 0
+}
+
+if { $mistake == 0 } {
+ puts ""
+ set nom 0
+ set j 1
+ repeat 10 {
+ set che [whatis res_$j]
+ set che1 [whatis res_$j]
+ set err [lindex $che [expr [llength $che] - 1]]
+ set err1 [lindex $che1 [expr [llength $che1] - 2]]
+
+ if { $err != "curve" && $err1 != "3d"} {
+ break
+ } else {
+ set nom [expr $nom + 1]
+ }
+ incr j}
+ if { $nom == 0} {
+ puts "1) Faulty OCC106: Intersection was made WRONGLY"
+} else {
+ puts [format "1) OCC106 OK : Intersection command works properly: %s curves" $nom]
+ puts ""
+}
+} else {
+ puts "1) Faulty OCC106: Intersection was made WRONGLY"
+}
+
+if [catch {intersect rrs sh1 sh2} result] {
+set mistake 1
+} else {
+set mistake 0
+}
+
+if { $mistake == 0 } {
+ puts ""
+ set nom 0
+ set j 1
+ repeat 10 {
+ set che [whatis rrs_$j]
+ set che1 [whatis rrs_$j]
+ set err [lindex $che [expr [llength $che] - 1]]
+ set err1 [lindex $che1 [expr [llength $che1] - 2]]
+
+ if { $err != "curve" && $err1 != "3d"} {
+ break
+ } else {
+ set nom [expr $nom + 1]
+ }
+ incr j}
+ if { $nom == 0} {
+ puts "2) Faulty OCC106: Intersection was made WRONGLY"
+} else {
+ puts [format "2) OCC106 OK : Intersection command works properly: %s curves" $nom]
+}
+} else {
+ puts "2) Faulty OCC106: Intersection was made WRONGLY"
+}
+
--- /dev/null
+puts "============"
+puts "OCC10604"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10604
+
+puts "Load first shape ..."
+restore [locate_data_file OCC10604-1.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC10604-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcommon result
+checkshape result
+puts "Finish boolean operation ..."
+
+set square 585.072
+
+# Analysis of "nbshapes res"
+set nb_v_good 6
+set nb_e_good 12
+set nb_w_good 5
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 31
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10604"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10604
+
+puts "Load first shape ..."
+restore [locate_data_file OCC10604-1.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC10604-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopfuse result
+checkshape result
+puts "Finish boolean operation ..."
+
+set square 808.713
+
+# Analysis of "nbshapes res"
+set nb_v_good 8
+set nb_e_good 15
+set nb_w_good 8
+set nb_f_good 7
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 41
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC10604"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10604
+
+puts "Load first shape ..."
+restore [locate_data_file OCC10604-1.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC10604-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopcut result
+checkshape result
+puts "Finish boolean operation ..."
+
+set square 893.394
+
+# Analysis of "nbshapes res"
+set nb_v_good 7
+set nb_e_good 15
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 36
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC10604"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10604
+
+puts "Load first shape ..."
+restore [locate_data_file OCC10604-1.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC10604-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+boptuc result
+checkshape result
+puts "Finish boolean operation ..."
+
+set square 500.39
+
+# Analysis of "nbshapes res"
+set nb_v_good 7
+set nb_e_good 12
+set nb_w_good 7
+set nb_f_good 7
+set nb_sh_good 2
+set nb_sol_good 2
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 38
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC10604"
+puts "============"
+puts ""
+#######################################################################
+# Fuse Fails
+#######################################################################
+
+set BugNumber OCC10604
+
+puts "Load first shape ..."
+restore [locate_data_file OCC10604-1.brep] b1
+puts "Load second shape ..."
+restore [locate_data_file OCC10604-2.brep] b2
+
+puts "Prepare boolean operation ..."
+bop b1 b2
+
+puts "Start boolean operation ..."
+bopsection result b1 b2
+checkshape result
+puts "Finish boolean operation ..."
+
+set length 88.9912
+
+# Analysis of "nbshapes res"
+set nb_v_good 6
+set nb_e_good 6
+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 13
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "BUC61035"
+puts "OCC107"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC107-1.brep] ee
+checkshape ee
+restore [locate_data_file OCC107-2.brep] ff
+checkshape ff
+
+distmini dd1 ee ff
+
+mkcurve cc ee
+cvalue cc 0 x y z
+vertex vv x y z
+
+distmini dd2 vv ff
+
+set d1 [dset t dd1_val]
+set d2 [dset t dd2_val]
+
+if { [expr abs([expr $d1 - $d2])] > 0.1} then {
+ puts "Faulty :WRONG computation of distances."
+} else {
+ puts "All is OK"
+}
+
+
+
--- /dev/null
+puts "========================"
+puts "OCC11081"
+puts "========================"
+puts ""
+#######################################################################
+# BRepExtrema_DistShapeShape misses one of two solutions
+#######################################################################
+
+set BugNumber OCC11081
+
+# infinite line is used
+
+line ll 6834.93 -4100 500 0 0 1
+mkedge ee ll
+restore [locate_data_file OCC11081.brep] section4100
+distmini dd ee section4100
+set res_list [distmini dd ee section4100]
+set res_length [llength ${res_list}]
+puts "res_length = ${res_length}"
+
+# Resume
+puts ""
+if { ${res_length} != 3 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
--- /dev/null
+puts "========================"
+puts "OCC11081"
+puts "========================"
+puts ""
+#######################################################################
+# BRepExtrema_DistShapeShape misses one of two solutions
+#######################################################################
+
+set BugNumber OCC11081
+
+# finite line is used
+
+line ll 6834.93 -4100 500 0 0 1
+trim trll ll -1000 -500
+mkedge tree trll
+restore [locate_data_file OCC11081.brep] section4100
+set res_list [distmini dd tree section4100]
+set res_length [llength ${res_list}]
+puts "res_length = ${res_length}"
+
+# Resume
+puts ""
+if { ${res_length} != 3 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
--- /dev/null
+puts "================"
+puts "OCC119"
+puts "================"
+puts ""
+
+box a 100 100 100
+explode a e
+
+set mistake 0
+if [catch {blend result_1 a 50 a_10 50 a_5 50 a_12 50 a_3 } catch_result] {
+ set mistake 1
+} else {
+ set mistake 0
+}
+
+if { ${mistake} == 1} {
+ puts " 1) OCC119 OK: BLEND was NOT created and suitable except was given."
+} else {
+ puts "1) OCC119 OK: function BLEND works without suitable except"
+ checkshape result_1
+ explode result_1 e
+
+ if { [catch {blend result_2 result_1 50 result_1_20 50 result_1_22 50 result_1_10} catch_result] } {
+ puts "2) Faulty OCC119: BLEND was NOT created"
+ } else {
+ puts "2) BLEND OCC199 OK: BLEND was created"
+ checkshape result_2
+ }
+
+ set che [checkshape result_2 r]
+ if { [regexp {OK} $che] != 1 } {
+ puts "Faulty : mistakes are found in shape by checkshape command after BLEND command"
+ puts " Body of the scripts was not executed !"
+ } else {
+ puts "Checking by checkshape - OK"
+
+ vinit
+ vdisplay result_2
+ vsetdispmode result_2 1
+ vfit
+
+ explode result_2 e
+ blend result result_2 50 result_2_20 50 result_2_22 50 result_2_10
+ set only_screen 1
+ }
+}
--- /dev/null
+
+puts "================"
+puts "OCC12"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC12.brep] f
+checkshape f
+
+mksurface su f
+clpoles su
+emptycopy f1 f
+vertex v 0 -170.63226587036002 82.2373635024
+don su v
+distmini d1 v f1
+if [expr [dval d1_val] > 0.01] {
+ set res "failed"
+ puts "Error : Result is incorrect"
+} else {
+ set res "OK"
+}
+puts "Info: test $res, distance=[dval d1_val]"
+
--- /dev/null
+puts "TODO ?OCC12345 ALL: OCC12522: Faulty"
+
+puts "========"
+puts "OCC12522"
+puts "========"
+puts ""
+###########################################################
+# Extrema problems. Case: one of the Extrema arguments is an infinite face or an infinite edge.
+###########################################################
+
+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 BugNumber OCC12522
+
+restore [locate_data_file OCC12522.brep] arc1
+explode arc1 e
+mkcurve curve1 arc1_1
+
+plane plane1 6400 -4000 -160 0 0 1 1 0 0
+
+extrema curve1 plane1
+
+set percent_max 0.1
+set good_length 8.3705138910905177
+
+set ext_1_length [lindex [length ext_1] 4]
+
+set length_percent [GetPercent ${ext_1_length} ${good_length}]
+puts "length_percent = ${length_percent}"
+
+if {${length_percent} > ${percent_max}} {
+ puts "${BugNumber}: Faulty"
+} else {
+ puts "${BugNumber}: OK"
+}
--- /dev/null
+
+puts "================"
+puts "OCC126"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC126-1.brep] sh1
+checkshape sh1
+
+restore [locate_data_file OCC126-2.brep] sh2
+checkshape sh2
+
+compound sh1 sh2 result
+
+set square 560.774
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC12635"
+puts "============"
+puts ""
+#######################################################################
+# Bugs in projector algorithm
+#######################################################################
+
+set BugNumber OCC12635
+
+restore [locate_data_file OCC12635_s1.draw] s1
+restore [locate_data_file OCC12635_c1.draw] c1
+
+set BugStatus 0
+if [catch { project result c1 s1 } ] {
+ set BugStatus 1
+}
+
+# Resume
+puts ""
+if { ${BugStatus} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC12635"
+puts "============"
+puts ""
+#######################################################################
+# Bugs in projector algorithm
+#######################################################################
+
+set BugNumber OCC12635
+
+restore [locate_data_file OCC12635_s6.draw] s6
+restore [locate_data_file OCC12635_c18.draw] c18
+
+set BugStatus 0
+if [catch { project result c18 s6 } ] {
+ set BugStatus 1
+}
+
+# Resume
+puts ""
+if { ${BugStatus} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC12884"
+puts "============"
+puts ""
+#######################################################################
+# Wrong result of projection curve on surface
+#######################################################################
+
+set BugNumber OCC12884
+
+restore [locate_data_file OCC12884_s2.draw] s2
+restore [locate_data_file OCC12884_c1.draw] c1
+
+set BugStatus 0
+if [catch { project result c1 s2 } ] {
+ set BugStatus 1
+}
+
+# Resume
+puts ""
+if { ${BugStatus} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC12888"
+puts "============"
+puts ""
+#######################################################################
+# Wrong result of projection curve on surface
+#######################################################################
+
+set BugNumber OCC12888
+
+restore [locate_data_file OCC12888_s1.draw] s1
+restore [locate_data_file OCC12888_c2.draw] c2
+
+set BugStatus 0
+if [catch { project result c2 s1 } ] {
+ set BugStatus 1
+}
+
+# Resume
+puts ""
+if { ${BugStatus} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "================"
+puts "OCC13"
+puts "================"
+puts ""
+##################################################
+## It is impossible to intersect two surfaces
+##################################################
+
+restore [locate_data_file OCC13-1.draw] su1
+############### checkshape su1 # is not a topological shape
+restore [locate_data_file OCC13-2.draw] su2
+############### checkshape su2 # is not a topological shape
+
+#Try to intersect two surfaces with tolerance 0.1
+#note that distance between shapes is about 0.005942345501409
+
+catch {intersect res su1 su2 0.1 } result
+set nom 0
+ set j 1
+ repeat 10 {
+ set che [whatis res_$j]
+ set che1 [whatis res_$j]
+ set err [lindex $che [expr [llength $che] - 1]]
+ set err1 [lindex $che1 [expr [llength $che1] - 2]]
+
+ if { $err != "curve" && $err1 != "3d"} {
+ break
+ } else {
+ set nom [expr $nom + 1]
+ }
+ incr j}
+if { $nom == 0} {
+ puts "Error : Intersection was made WRONGLY"
+}
+
+
--- /dev/null
+
+puts "================"
+puts "OCC130"
+puts "================"
+puts ""
+######################################################
+## Draw Environment: No intersection found between a specific surface and a line
+######################################################
+
+restore [locate_data_file OCC130.brep] sh
+checkshape sh
+
+line l -120 -100 400 0 0 1
+mksurface surf sh
+############## checkshape surf # - not a topological shape
+
+
+if [catch {intersect res l surf } result] {
+set mistake 1
+} else {
+set mistake 0
+}
+
+if { $mistake == 0} {
+ puts "OCC130 OK : intersection found between a specific surface and a line"
+ puts ""
+ set nom 0
+ set j 1
+ repeat 10 {
+ set che [whatis res_$j]
+ set err [lindex $che [expr [llength $che] - 1]]
+
+ if { $err != "point"} {
+ break
+ } else {
+ set nom [expr $nom + 1]
+ }
+ incr j}
+ if { $nom != 2 && $nom != 0} {
+ puts [format "Faulty OCC130: Intersection was made WRONGLY: %s points" $nom]
+} else {
+ puts [format "OCC130 OK : Intersection command works properly: %s points" $nom]
+}
+
+} else {
+ puts "Faulty OCC130 : NO intersection found between a specific surface and a line"
+}
+
--- /dev/null
+
+puts "================"
+puts "SAM1225"
+puts "OCC134"
+puts "================"
+puts ""
+####################################
+## Faces from attached file are impossible to extrude.
+####################################
+
+restore [locate_data_file OCC134-1.brep] sh
+checkshape sh
+
+prism result sh 100 100 100
+checkshape result
+
+set square 104057
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "SAM1225"
+puts "OCC134"
+puts "================"
+puts ""
+###########################################################
+## Faces from attached file are impossible to extrude.
+###########################################################
+
+restore [locate_data_file OCC134-2.brep] sh
+checkshape sh
+
+prism result sh 100 100 100
+checkshape result
+
+set square 271859
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC135"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC135.brep] sh
+checkshape sh
+
+sewing result 1 sh
+checkshape result
+
+set square 273837
+set 2dviewer 0
+
+
+
--- /dev/null
+puts "================"
+puts "OCC139"
+puts "================"
+puts ""
+#######################################
+## The intersection must be closed . So the curve is wrong.
+#######################################
+
+restore [locate_data_file OCC139-1.draw] sh1
+restore [locate_data_file OCC139-2.draw] sh2
+
+if { ![catch {intersect result sh1 sh2} catch_result] } {
+ puts "OCC139 OK : intersection found"
+ regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num
+ if { $num != 0 } {
+ puts "Faulty OCC139: Intersection was made WRONGLY. The curve must be closed ."
+ } else {
+ puts "OCC139 OK : Intersection command works properly. The curve is closed"
+ }
+} else {
+ puts "Faulty OCC139 : NO intersection found"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "==========="
+puts "OCC13904"
+puts "==========="
+######################################################
+# Exception during "filling" operation
+######################################################
+
+set BugNumber OCC13904
+
+circle c 0 100 100 0 1 1 50
+ellipse el 0 0 0 0 1 1 100 50
+
+set mistake 0
+if [catch { appsurf result c el } res] {
+ set mistake 1
+ puts "Faulty ${BugNumber}: filling problem"
+} else {
+ puts "Filling ${BugNumber} OK"
+ set What [whatis result]
+ if { [regexp "surface" $What] != 1 } {
+ set mistake 1
+ } else {
+ set mistake 0
+ }
+}
+
+# Resume
+puts ""
+if { ${mistake} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
--- /dev/null
+
+puts "================"
+puts "OCC141"
+puts "================"
+puts ""
+###############################################
+## exception while do segment operation on BSpline curve.
+###############################################
+
+restore [locate_data_file OCC141.draw] result
+#### checkshape res # not a topological shape
+
+segment result -4.76283758432072e-05 1.06458532027221
+
+#let's the segment is displaied only
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC1416"
+puts "============"
+puts ""
+######################################################
+# Shading mode doesn't work on a face of the model
+######################################################
+
+restore [locate_data_file OCC1416.brep] result
+
+# Clean mesh
+isos result 0
+tclean result
+
+#Creating mesh
+incmesh result 0.01
+
+#View the result of mesh
+triangles result
+
+##############################################
+if { [catch { set tri_info [trinfo result] } catch_result] } {
+##############################################
+ puts "Faulty OCC1416"
+} else {
+ set ll [ llength ${tri_info} ]
+ if {${ll} < 6} {
+ puts "Faulty OCC1416"
+ } else {
+ regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+ regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+ if { $tri == 0 || $nod == 0 } {
+ puts "Faulty OCC1416"
+ } else {
+ puts "Warning: OCC1416 looks like OK, but visual checking is required !!!!"
+ }
+ }
+}
+
+set square 863.938
+set 3dviewer 1
--- /dev/null
+puts "================"
+puts "BUC60654"
+puts "OCC143"
+puts "================"
+puts ""
+######################################################################
+## Raises exception "Standard_NotImplemented3" in GCPnts_AbscissaPoint on a Geom2d_OffsetCurve
+######################################################################
+
+set len_expected 4.e100
+line line_2d 0 0 1 1
+
+offset result line_2d 10 1 0
+
+set info [length $result]
+regexp {The length result is +([-0-9.+eE]+)} $info full len
+
+checkreal "Length" $len $len_expected 0. 1e-10
--- /dev/null
+puts "============"
+puts "OCC14376"
+puts "============"
+puts ""
+#######################################################################
+# Shading triangulation of face is not computed
+#######################################################################
+
+pload QAcommands
+
+restore [locate_data_file OCC14376.brep] Face_8
+OCC14376 Face_8
+
--- /dev/null
+puts "========"
+puts "OCC145"
+puts "========"
+
+pload QAcommands
+
+OCC145 [locate_data_file OCC145.brep] 1
+
+set listmem {}
+set i_max 10000
+OCC145 [locate_data_file OCC145.brep] ${i_max}
+
+lappend listmem [expr [meminfo w] / 1024]
+if { [checktrend $listmem 0 1 "Memory leak detected"] } {
+ puts "No memory leak, $i iterations"
+ break
+}
+
--- /dev/null
+puts "========================"
+puts "OCC14782"
+puts "========================"
+puts ""
+#######################################################################
+# Method segment works wrongly for periodical BSpline curve
+#######################################################################
+
+set BugNumber OCC14782
+
+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}
+}
+
+
+restore [locate_data_file OCC14782.draw] res
+
+bounds res t1 t2
+set bounds_list [dump res]
+
+puts ""
+if { [llength ${bounds_list}] < 7 } {
+ puts "Bad bounds_list"
+ puts "Faulty ${BugNumber}"
+} else {
+ set periodic_type [lindex ${bounds_list} 6]
+ puts "periodic_type=${periodic_type}"
+ if { ${periodic_type} != "periodic" } {
+ puts "1. Faulty ${BugNumber}"
+ } else {
+ puts "1. OK ${BugNumber}"
+ }
+}
+
+set ll1 [lindex [length res] end]
+puts "length1=${ll1}"
+
+segment res t3 t4
+set segment_list [dump res]
+
+puts ""
+if { [llength ${segment_list}] < 7 } {
+ puts "Bad segment_list"
+ puts "Faulty ${BugNumber}"
+} else {
+ set periodic_type [lindex ${segment_list} 6]
+ puts "periodic_type=${periodic_type}"
+ if { ${periodic_type} != "periodic" } {
+ puts "2. OK ${BugNumber}"
+ } else {
+ puts "2. Faulty ${BugNumber}"
+ }
+}
+
+set ll2 [lindex [length res] end]
+puts "length2=${ll2}"
+
+set percent_max 0.1
+set length_percent [GetPercent ${ll1} ${ll2}]
+puts "length_percent = ${length_percent}"
+
+puts ""
+if { ${length_percent} > ${percent_max} } {
+ puts "3. Faulty ${BugNumber}"
+} else {
+ puts "3. OK ${BugNumber}"
+}
+
--- /dev/null
+
+puts "================"
+puts "OCC15"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC15.brep] result
+
+checkshape result
+
+vinit
+tclean result
+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
+
+#($tri != 5370,$nod != 2783)($tri != 5356,$nod != 2774)($tri != 5354,$nod != 2773),aki251103
+if { ($tri != 5643 || $nod != 2915) } {
+ puts "Shady OCC15 : shading problem may be, nb tri & nod were changed"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "================"
+puts "OCC150"
+puts "SAM1048"
+puts "OCC53"
+puts "================"
+puts ""
+################################################################
+## SAM1048. Crash with all memory exhausted at attempt to fuse two solids in the file attached.
+################################################################
+## Segmentation violation detected during Fuse operation
+################################################################
+
+puts ""
+puts "Bug's advancement"
+puts "#################"
+puts ""
+puts "Customer version Development version"
+puts "Status : CLOSED Status : CLOSED"
+puts "Resolution : LIMITATION Resolution : LIMITATION"
+puts "Leave as CLOSED LIMITATION Leave as CLOSED LIMITATION"
+puts ""
+
+restore [locate_data_file OCC150_compsolid_nofuse.brep] sh
+explode sh
+
+checkshape sh_1
+checkshape sh_2
+
+bfuse result sh_1 sh_2
+checkshape result
+
+set square 700
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "================"
+puts "OCC150"
+puts "SAM1048"
+puts "OCC53"
+puts "================"
+puts ""
+################################################################
+## SAM1048. Crash with all memory exhausted at attempt to fuse two solids in the file attached.
+################################################################
+## Segmentation violation detected during Fuse operation
+################################################################
+puts ""
+puts "Bug's advancement"
+puts "#################"
+puts ""
+puts "Customer version Development version"
+puts "Status : CLOSED Status : CLOSED"
+puts "Resolution : LIMITATION Resolution : LIMITATION"
+puts "Leave as CLOSED LIMITATION Leave as CLOSED LIMITATION"
+puts ""
+
+restore [locate_data_file OCC150_compsolid_nofuse.brep] sh
+explode sh
+
+checkshape sh_1
+checkshape sh_2
+
+bfuse result sh_2 sh_1
+checkshape result
+
+set square 700
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC151"
+puts "SAM1141"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC3-1.brep] sh1
+restore [locate_data_file OCC3-2.brep] sh2
+
+checkshape sh1
+checkshape sh2
+
+bfuse result sh1 sh2
+checkshape result
+
+set square 11400
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC151"
+puts "SAM1141"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC3-1.brep] sh1
+restore [locate_data_file OCC3-2.brep] sh2
+
+checkshape sh1
+checkshape sh2
+
+bfuse result sh2 sh1
+checkshape result
+
+set square 11400
+set 2dviewer 0
+
--- /dev/null
+# by apn master-master 03.12.2012
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+#puts "TODO OCC12345 ALL: An exception was caught"
+#puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
+#puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+
+puts "================"
+puts "OCC152"
+puts "SAM1178"
+puts "================"
+puts ""
+#################################################################
+## SAM1178(#1871): Bad escaped result after a cut operation on the shape.
+#################################################################
+
+restore [locate_data_file OCC152.brep] sh
+explode sh
+
+checkshape sh_1
+checkshape sh_2
+
+bcut result sh_1 sh_2
+checkshape result
+
+set square 276424
+set 2dviewer 0
+
--- /dev/null
+# by apn master-master 03.12.2012
+#puts "TODO OCC12345 ALL: An exception was caught"
+#puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
+#puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+
+puts "================"
+puts "OCC152"
+puts "SAM1178"
+puts "================"
+puts ""
+#################################################################
+## SAM1178(#1871): Bad escaped result after a cut operation on the shape.
+#################################################################
+
+restore [locate_data_file OCC152.brep] sh
+explode sh
+
+checkshape sh_1
+checkshape sh_2
+
+bcut result sh_2 sh_1
+checkshape result
+
+set square 34894.3
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: triangle: Faulty OCC15519"
+puts "TODO OCC12345 ALL: node: Faulty OCC15519"
+puts "TODO OCC12345 ALL: deflection: Faulty OCC15519"
+puts "TODO OCC12345 ALL: Faulty OCC15519"
+puts "============"
+puts "OCC15519"
+puts "============"
+puts ""
+#######################################################################
+# Exception while meshing shape
+#######################################################################
+
+set BugNumber OCC15519
+
+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}
+}
+
+restore [locate_data_file OCC15519.brep] result
+tclean result
+
+set Deflection 1.
+catch {incmesh result ${Deflection} }
+
+set InfoList [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $InfoList full tri
+regexp { +([-0-9.+eE]+) +nodes} $InfoList full nod
+regexp {Maximal deflection +([-0-9.+eE]+)} $InfoList full defl
+
+if { [string compare $tcl_platform(platform) "windows"] == 0 } {
+ set good_tri 96265
+ set good_nod 71339
+ set good_defl 27.956052399907215
+} else {
+ set good_tri 95582
+ set good_nod 70796
+ set good_defl 0.99827404224216676
+}
+
+set percent_max 0.1
+set status 0
+
+set triangle_percent [GetPercent ${tri} ${good_tri}]
+puts "triangle_percent = ${triangle_percent}"
+if { ${triangle_percent} > ${percent_max} } {
+ puts "triangle: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "triangle: OK ${BugNumber}"
+}
+
+set node_percent [GetPercent ${nod} ${good_nod}]
+puts "node_percent = ${node_percent}"
+if { ${node_percent} > ${percent_max} } {
+ puts "node: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "node: OK ${BugNumber}"
+}
+
+set deflection_percent [GetPercent ${defl} ${good_defl}]
+puts "deflection_percent = ${deflection_percent}"
+if { ${deflection_percent} > ${percent_max} } {
+ puts "deflection: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "deflection: OK ${BugNumber}"
+}
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "==========="
+puts "OCC15570"
+puts "==========="
+
+set BugNumber OCC15570
+
+######################################################
+# Incorrect handling of Unicode strings
+######################################################
+
+pload XDE
+
+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}
+}
+
+igesbrep [locate_data_file OCC15570.igs] a *
+tpcompound result
+
+set BoundList [boundingstr result]
+set xmin [lindex ${BoundList} 0]
+set ymin [lindex ${BoundList} 1]
+set zmin [lindex ${BoundList} 2]
+set xmax [lindex ${BoundList} 3]
+set ymax [lindex ${BoundList} 4]
+set zmax [lindex ${BoundList} 5]
+
+set percent_max 0.1
+set good_xmin -22.500000100000001
+set good_ymin -88.366946209482094
+set good_zmin -1.0000002775557561e-07
+set good_xmax 22.500000100000001
+set good_ymax 22.776076069021901
+set good_zmax 86.12676222997429
+set status 0
+
+set xmin_percent [GetPercent ${xmin} ${good_xmin}]
+puts "xmin_percent = ${xmin_percent}"
+if { ${xmin_percent} > ${percent_max} } {
+ puts "xmin: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "xmin: OK ${BugNumber}"
+}
+
+set ymin_percent [GetPercent ${ymin} ${good_ymin}]
+puts "ymin_percent = ${ymin_percent}"
+if { ${ymin_percent} > ${percent_max} } {
+ puts "ymin: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "ymin: OK ${BugNumber}"
+}
+
+set zmin_percent [GetPercent ${zmin} ${good_zmin}]
+puts "zmin_percent = ${zmin_percent}"
+if { ${zmin_percent} > ${percent_max} } {
+ puts "zmin: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "zmin: OK ${BugNumber}"
+}
+
+set xmax_percent [GetPercent ${xmax} ${good_xmax}]
+puts "xmax_percent = ${xmax_percent}"
+if { ${xmax_percent} > ${percent_max} } {
+ puts "xmax: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "xmax: OK ${BugNumber}"
+}
+
+set ymax_percent [GetPercent ${ymax} ${good_ymax}]
+puts "ymax_percent = ${ymax_percent}"
+if { ${ymax_percent} > ${percent_max} } {
+ puts "ymax: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "ymax: OK ${BugNumber}"
+}
+
+set zmax_percent [GetPercent ${zmax} ${good_zmax}]
+puts "zmax_percent = ${zmax_percent}"
+if { ${zmax_percent} > ${percent_max} } {
+ puts "zmax: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "zmax: OK ${BugNumber}"
+}
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC157"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC157.brep] wire
+checkshape wire
+
+set Tolerance 100.
+set info_result [OCC157 result wire ${Tolerance}]
+
+set ll [llength ${info_result}]
+if {${ll} < 2} {
+ puts "length = ${ll}"
+ puts "OCC157: Error"
+} else {
+ if { [regexp {OK} $info_result] } {
+ puts "OCC157: OK"
+ } else {
+ puts "OCC157: Error"
+ }
+}
+set square 2.11095e+06
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC16"
+puts "================"
+puts ""
+
+torus a 10 10
+mkface result a
+vinit
+vdisplay result
+vsetdispmode result 1
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri != 2592 || $nod != 1369 } {
+ puts "Faulty OCC16: here can be shading problem"
+}
+
+puts "If here is bug - face is displaied in wireframe mode"
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts "BUC60775"
+puts "OCC160"
+puts "(COMMON: A and B)"
+puts "========================"
+
+restore [locate_data_file buc60775a.brep] a
+checkshape a
+restore [locate_data_file buc60775b.brep] b
+checkshape b
+
+bcommon result a b
+checkshape result
+
+set nf [llength [explode result f]]
+if {$nf < 6} {
+ puts "Error : the resulting shape is unclosed!!!"
+}
+
+set square 94067.7
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========================"
+puts "BUC60775"
+puts "OCC160"
+puts "(COMMON: B and A)"
+puts "========================"
+
+restore [locate_data_file buc60775a.brep] a
+checkshape a
+restore [locate_data_file buc60775b.brep] b
+checkshape b
+
+bcommon result b a
+checkshape result
+
+set nf [llength [explode result f]]
+if {$nf < 6} {
+ puts "Error : the resulting shape is unclosed!!!"
+}
+
+set square 94067.7
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts "BUC60775"
+puts "OCC160"
+puts "(FUSE: A and B)"
+puts "========================"
+
+restore [locate_data_file buc60775a.brep] a
+checkshape a
+restore [locate_data_file buc60775b.brep] b
+checkshape b
+
+bfuse result a b
+checkshape result
+
+set nf [llength [explode result f]]
+
+if {$nf < 6} {
+ puts "Error : the resulting shape is unclosed!!!"
+}
+
+set square 328116
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========================"
+puts "BUC60775"
+puts "OCC160"
+puts "(FUSE: B and A)"
+puts "========================"
+
+restore [locate_data_file buc60775a.brep] a
+checkshape a
+restore [locate_data_file buc60775b.brep] b
+checkshape b
+
+bfuse result b a
+checkshape result
+
+set nf [llength [explode result f]]
+if {$nf < 6} {
+ puts "Error : the resulting shape is unclosed!!!"
+}
+
+set square 328116
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========================"
+puts "BUC60775"
+puts "OCC160"
+puts "(CUT: A and B)"
+puts "========================"
+
+restore [locate_data_file buc60775a.brep] a
+checkshape a
+restore [locate_data_file buc60775b.brep] b
+checkshape b
+
+bcut result a b
+checkshape result
+
+set nf [llength [explode result f]]
+if {$nf < 6} {
+ puts "Error : the resulting shape is unclosed!!!"
+}
+
+set square 48129.6
+set 2dviewer 0
+
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : the resulting shape is unclosed!!!"
+
+puts "========================"
+puts "BUC60775"
+puts "OCC160"
+puts "(CUT: B and A)"
+puts "========================"
+
+restore [locate_data_file buc60775a.brep] a
+checkshape a
+restore [locate_data_file buc60775b.brep] b
+checkshape b
+
+bcut result b a
+checkshape result
+
+set nf [llength [explode result f]]
+if {$nf < 6} {
+ puts "Error : the resulting shape is unclosed!!!"
+}
+
+set square 247636
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========"
+puts "OCC161"
+puts "========"
+puts ""
+###########################################################
+## The face provided in attachment has single wire that is misoriented, i.e has
+## internal part outside. The checkshape command in DRAW should report that error
+## situation, while it does not.
+###########################################################
+
+restore [locate_data_file OCC161.brep] result
+
+decho off
+set che [checkshape result]
+decho on
+
+if { [regexp {Faulty} $che] != 1 } {
+ puts "Faulty OCC161 : Checkshape command works wrongly"
+} else {
+ puts "OCC161 OK : Checkshape command works properly"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC12345 ALL: OCC16119: Faulty"
+puts "============"
+puts "OCC16119"
+puts "============"
+puts ""
+#######################################################################
+# Bug in GeomFill_Coons algorithm
+#######################################################################
+
+set BugNumber OCC16119
+
+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}
+}
+
+restore [locate_data_file OCC16119-c1.draw] c1
+restore [locate_data_file OCC16119-c2.draw] c2
+restore [locate_data_file OCC16119-c31.draw] c31
+restore [locate_data_file OCC16119-c32.draw] c32
+restore [locate_data_file OCC16119-c41.draw] c41
+restore [locate_data_file OCC16119-c42.draw] c42
+restore [locate_data_file OCC16119-cv.draw] cv
+
+fillcurves s11 c1 c41 cv c31
+fillcurves s12 cv c42 c2 c32
+
+svalue s11 .5 .5 x1 y1 z1 dux1 duy1 duz1 dvx1 dvy1 dvz1
+svalue s12 .5 .5 x2 y2 z2 dux2 duy2 duz2 dvx2 dvy2 dvz2
+
+set deltaX [dval dvx1-dvx2]
+set deltaY [dval dvy1-dvy2]
+set deltaZ [dval dvz1-dvz2]
+
+set percent_max 0.1
+set good_deltaX 4.4408920985006262e-015
+set good_deltaY -4.6629367034256575e-015
+set good_deltaZ -2.6645352591003757e-015
+
+set deltaX_percent [GetPercent ${deltaX} ${good_deltaX}]
+puts "deltaX_percent = ${deltaX_percent}"
+
+set deltaY_percent [GetPercent ${deltaY} ${good_deltaY}]
+puts "deltaY_percent = ${deltaY_percent}"
+
+set deltaZ_percent [GetPercent ${deltaZ} ${good_deltaZ}]
+puts "deltaZ_percent = ${deltaZ_percent}"
+
+if {${deltaX_percent} > ${percent_max} || ${deltaY_percent} > ${percent_max} || ${deltaZ_percent} > ${percent_max} } {
+ puts "${BugNumber}: Faulty"
+} else {
+ puts "${BugNumber}: OK"
+}
+
--- /dev/null
+
+puts "========"
+puts "OCC163"
+puts "========"
+puts ""
+###########################################################
+## The result of extrema command is not correct.
+## We have only two "max" extrema, but we should have "min" and "max".
+###########################################################
+
+restore [locate_data_file OCC130.brep] res
+
+checkshape res
+
+line l -120 -100 400 0 0 1
+mksurface s res
+
+set che [extrema l s]
+set err [llength $che]
+if { $err < 2} {
+ puts "Error OCC163 (amount): command extrema does NOT work properly"
+}
+
+set dum1 [dump [lindex $che 0]]
+set dum2 [dump [lindex $che 1]]
+
+if { $dum1 == $dum2} {
+ puts "Error OCC163 (dump): command extrema does NOT work properly"
+}
+
--- /dev/null
+
+puts "================"
+puts "OCC164"
+puts "SAM1478"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC164-1.brep] sh1
+restore [locate_data_file OCC164-2.brep] sh2
+checkshape sh1
+checkshape sh2
+
+bfuse result sh1 sh2
+checkshape result
+
+set square 344595
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "================"
+puts "OCC164"
+puts "SAM1478"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC164-1.brep] sh1
+restore [locate_data_file OCC164-2.brep] sh2
+checkshape sh1
+checkshape sh2
+
+bfuse result sh2 sh1
+checkshape result
+
+set square 344595
+set 2dviewer 0
+
+
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty OCC1651"
+
+pload QAcommands
+
+puts "============"
+puts "OCC1651"
+puts "============"
+puts ""
+######################################################
+# No intersection found using BRepClass3d_Intersector3d
+######################################################
+
+restore [locate_data_file OCC1651.brep] face
+
+checkshape face
+
+set PntX 164.6207
+set PntY -105.2869
+set PntZ 557.8805
+set DirX 0.5774
+set DirY -0.5774
+set DirZ 0.5774
+
+if { [catch { set PointList [OCC1651 face ${PntX} ${PntY} ${PntZ} ${DirX} ${DirY} ${DirZ}] } catch_result] } {
+ puts "Faulty OCC1651"
+} else {
+ set ll [ llength ${PointList} ]
+ if {${ll} != 3} {
+ puts "Faulty OCC1651"
+ } else {
+ set IntersectionPointX [lindex ${PointList} 0]
+ set IntersectionPointY [lindex ${PointList} 1]
+ set IntersectionPointZ [lindex ${PointList} 2]
+
+ set good_IntersectionPointX 42.6199
+ set good_IntersectionPointY 16.7139
+ set good_IntersectionPointZ 435.88
+
+ set X_percent [expr abs(${IntersectionPointX} - ${good_IntersectionPointX}) / double(${good_IntersectionPointX}) * 100.]
+ set Y_percent [expr abs(${IntersectionPointY} - ${good_IntersectionPointY}) / double(${good_IntersectionPointY}) * 100.]
+ set Z_percent [expr abs(${IntersectionPointZ} - ${good_IntersectionPointZ}) / double(${good_IntersectionPointZ}) * 100.]
+
+ set percent_max 0.1
+
+ set IsGood 1
+ if {${X_percent} > ${percent_max}} {
+ puts "OCC1651 Faulty"
+ set IsGood 0
+ }
+ if {${Y_percent} > ${percent_max}} {
+ puts "OCC1651 Faulty"
+ set IsGood 0
+ }
+ if {${Z_percent} > ${percent_max}} {
+ puts "OCC1651 Faulty"
+ set IsGood 0
+ }
+ if {${IsGood} == 1} {
+ puts "OCC1651 OK"
+ }
+ }
+}
+
+
--- /dev/null
+puts "========"
+puts "OCC165"
+puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
+puts "========"
+
+restore [locate_data_file offset_wire_019.brep] a
+checkshape a
+
+mkplane f a
+checkshape f
+
+set IsGood 1
+if [catch {mkoffset res1 f 1 1 } result] {
+ puts "Faulty OCC165 (case 1) : function MKOFFSET works wrongly"
+ set IsGood 0
+} else {
+ puts "OCC165 OK (case 1): function MKOFFSET works properly"
+ checkshape res1_1
+ mkplane pl1 res1_1
+ checkshape pl1
+}
+
+if [catch {mkoffset res2 f 1 -1 } result] {
+ puts "Faulty OCC165 (case 2) : function MKOFFSET works wrongly"
+ set IsGood 0
+} else {
+ puts "OCC165 OK (case 2): function MKOFFSET works properly"
+ checkshape res2_1
+ mkplane pl2 res2_1
+ checkshape pl2
+}
+
+if {$IsGood == 1} {
+ compound a res1_1 res2_1 res
+
+ regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_1] full len
+
+ set good_len 1088.43
+ set percent_max 0.1
+ set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
+
+ puts "good_len = ${good_len}"
+ puts "length = ${len}"
+ puts "percent = ${percent}"
+
+ if {${percent} > ${percent_max}} {
+ puts "Faulty OCC165 (case 3) : function MKOFFSET works wrongly"
+ set IsGood 0
+ }
+
+ regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_1] full len
+
+ set good_len 1075.87
+ set percent_max 0.1
+ set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
+
+ puts "good_len = ${good_len}"
+ puts "length = ${len}"
+ puts "percent = ${percent}"
+
+ if {${percent} > ${percent_max}} {
+ puts "Faulty OCC165 (case 4) : function MKOFFSET works wrongly"
+ set IsGood 0
+ }
+
+ if {$IsGood == 1} {
+ puts "OCC165 OK"
+ } else {
+ puts "OCC165 FAULTY"
+ }
+
+} else {
+ puts "OCC165 FAULTY"
+}
+
--- /dev/null
+if { [array get env os_type] != "" } {
+ set os $env(os_type)
+}
+if { [string compare $os "windows"] != 0 } {
+ puts "TODO OCC12345 ALL: An exception was caught"
+ puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
+ puts "TODO OCC12345 ALL: OCC165 Faulty"
+}
+
+puts "========"
+puts "OCC165"
+puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
+puts "========"
+
+restore [locate_data_file offset_wire_019.brep] a
+checkshape a
+
+mkplane f a
+checkshape f
+
+set IsGood 1
+if [catch {mkoffset res1 f 1 4.8 } result] {
+ set IsGood 0
+} else {
+ puts "OCC165 OK (case 1): function MKOFFSET works properly"
+ checkshape res1_1
+ mkplane pl1 res1_1
+ checkshape pl1
+}
+
+if [catch {mkoffset res2 f 1 -2.9 } result] {
+ set IsGood 0
+} else {
+ puts "OCC165 OK (case 2): function MKOFFSET works properly"
+ checkshape res2_1
+ mkplane pl2 res2_1
+ checkshape pl2
+}
+
+if {$IsGood == 1} {
+ compound a res1_1 res2_1 res
+
+ regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_1] full len
+
+ set good_len 1112.29
+ set percent_max 0.1
+ set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
+
+ puts "good_len = ${good_len}"
+ puts "length = ${len}"
+ puts "percent = ${percent}"
+
+ if {${percent} > ${percent_max}} {
+ set IsGood 0
+ }
+
+ regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_1] full len
+
+ set good_len 1063.91
+ set percent_max 0.1
+ set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
+
+ puts "good_len = ${good_len}"
+ puts "length = ${len}"
+ puts "percent = ${percent}"
+
+ if {${percent} > ${percent_max}} {
+ set IsGood 0
+ }
+
+ if {$IsGood == 1} {
+ puts "OCC165 OK"
+ } else {
+ puts "OCC165 Faulty"
+ }
+
+} else {
+ puts "OCC165 Faulty"
+}
--- /dev/null
+
+puts "========"
+puts "OCC165"
+puts "========"
+
+restore [locate_data_file OCC165-2.brep] f
+checkshape f
+
+set IsGood 1
+if [catch {mkoffset res1 f 3 10 } result] {
+ puts "Faulty OCC165 (case 1) : function MKOFFSET works wrongly"
+ set IsGood 0
+} else {
+ #puts "OCC165 OK (case 1): function MKOFFSET works properly"
+ mkplane pl1_1 res1_1
+ checkshape pl1_1
+ mkplane pl1_2 res1_2
+ checkshape pl1_2
+ mkplane pl1_3 res1_3
+ checkshape pl1_3
+}
+
+if [catch {mkoffset res2 f 3 -10 } result] {
+ puts "Faulty OCC165 (case 2) : function MKOFFSET works wrongly"
+ set IsGood 0
+} else {
+ #puts "OCC165 OK (case 2): function MKOFFSET works properly"
+ mkplane pl2_1 res2_1
+ checkshape pl2_1
+ mkplane pl2_2 res2_2
+ checkshape pl2_2
+ mkplane pl2_3 res2_3
+ checkshape pl2_3
+}
+
+if {$IsGood == 1} {
+ compound f res1_1 res1_2 res1_3 res2_1 res2_2 res2_3 res
+
+ regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_1] full len
+
+ set good_len 462.832
+ set percent_max 0.1
+ set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
+
+ puts "good_len = ${good_len}"
+ puts "length = ${len}"
+ puts "percent = ${percent}"
+
+ if {${percent} > ${percent_max}} {
+ puts "Faulty OCC165 (case 3) : function MKOFFSET works wrongly"
+ set IsGood 0
+ }
+
+ regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_2] full len
+
+ set good_len 525.664
+ set percent_max 0.1
+ set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
+
+ puts "good_len = ${good_len}"
+ puts "length = ${len}"
+ puts "percent = ${percent}"
+
+ if {${percent} > ${percent_max}} {
+ puts "Faulty OCC165 (case 4) : function MKOFFSET works wrongly"
+ set IsGood 0
+ }
+
+ regexp {Mass +: +([-0-9.+eE]+)} [lprops res1_3] full len
+
+ set good_len 588.496
+ set percent_max 0.1
+ set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
+
+ puts "good_len = ${good_len}"
+ puts "length = ${len}"
+ puts "percent = ${percent}"
+
+ if {${percent} > ${percent_max}} {
+ puts "Faulty OCC165 (case 5) : function MKOFFSET works wrongly"
+ set IsGood 0
+ }
+
+ regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_1] full len
+
+ set good_len 320
+ set percent_max 0.1
+ set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
+
+ puts "good_len = ${good_len}"
+ puts "length = ${len}"
+ puts "percent = ${percent}"
+
+ if {${percent} > ${percent_max}} {
+ puts "Faulty OCC165 (case 6) : function MKOFFSET works wrongly"
+ set IsGood 0
+ }
+
+ regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_2] full len
+
+ set good_len 240
+ set percent_max 0.1
+ set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
+
+ puts "good_len = ${good_len}"
+ puts "length = ${len}"
+ puts "percent = ${percent}"
+
+ if {${percent} > ${percent_max}} {
+ puts "Faulty OCC165 (case 7) : function MKOFFSET works wrongly"
+ set IsGood 0
+ }
+
+ regexp {Mass +: +([-0-9.+eE]+)} [lprops res2_3] full len
+
+ set good_len 160
+ set percent_max 0.1
+ set percent [expr abs(${len} - ${good_len}) / double(${good_len}) * 100.]
+
+ puts "good_len = ${good_len}"
+ puts "length = ${len}"
+ puts "percent = ${percent}"
+
+ if {${percent} > ${percent_max}} {
+ puts "Faulty OCC165 (case 8) : function MKOFFSET works wrongly"
+ set IsGood 0
+ }
+
+ if {$IsGood == 1} {
+ puts "OCC165 OK"
+ } else {
+ puts "OCC165 FAULTY"
+ }
+
+} else {
+ puts "OCC165 FAULTY"
+}
--- /dev/null
+puts "============"
+puts "OCC16833"
+puts "============"
+puts ""
+#######################################################################
+# Error in Coons algorithm
+#######################################################################
+
+set BugNumber OCC16833
+
+restore [locate_data_file OCC16833-c1.draw] c1
+restore [locate_data_file OCC16833-c2.draw] c2
+restore [locate_data_file OCC16833-c3.draw] c3
+restore [locate_data_file OCC16833-c4.draw] c4
+
+set mistake 0
+if [catch { fillcurves result c1 c2 c3 c4 } res] {
+ set mistake 1
+ puts "Faulty ${BugNumber}: filling problem"
+} else {
+ puts "Filling ${BugNumber} OK"
+ set What [whatis result]
+ if { [regexp "surface" $What] != 1 } {
+ set mistake 1
+ } else {
+ set mistake 0
+ }
+}
+
+# Resume
+puts ""
+if { ${mistake} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC17: here can be shading problem"
+
+puts "================"
+puts "OCC17"
+puts "================"
+puts ""
+
+#####################################################
+puts " Solid_14 will be the face which is unvisible during displaying entire solid."
+#####################################################
+
+restore [locate_data_file OCC17.brep] sh
+
+checkshape sh
+
+explode sh f
+renamevar sh_14 result
+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 != 100 && $nod != 94 } {
+ puts "Faulty OCC17: here can be shading problem"
+}
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "============"
+puts "OCC17046"
+puts "============"
+puts ""
+#######################################################################
+# Exception in Extrema_ExtPS on Mandriva2006 32-bits
+#######################################################################
+
+set BugNumber OCC17046
+
+# Create ellipsoidal surface
+ellipse ell 0 0 300 1 0 0 150 100
+mkedge ell_e ell
+wire ell_w ell_e
+mkplane ell_f ell_w 1
+
+box ell_t -10 -110 140 20 110 460
+cut ell_d ell_f ell_t
+
+revol ell_z ell_d 0 0 0 0 0 1 360
+explode ell_z F
+mksurface su1 ell_z_1
+
+# Perform projection
+set BugStatus 0
+if [catch { proj su1 0 100 300 } ] {
+ set BugStatus 1
+}
+
+# Resume
+puts ""
+if { ${BugStatus} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC17424"
+puts "============"
+puts ""
+######################################################
+# IntCurvesFace_ShapeIntersector does not find intersection point
+######################################################
+
+set BugNumber OCC17424
+
+restore [locate_data_file OCC17424.brep] a
+
+set X_Pnt 86.960439048069262
+set Y_Pnt 1028.2863798310484
+set Z_Pnt -266.58526583558000
+
+set X_Dir 0.25881904510252074
+set Y_Dir 0
+set Z_Dir -0.96592582628906831
+
+set PInf 0.
+
+set aStatusList [OCC17424 a ${X_Pnt} ${Y_Pnt} ${Z_Pnt} ${X_Dir} ${Y_Dir} ${Z_Dir} ${PInf}]
+regexp {OCC17424 status = +([-0-9.+eE]+)} ${aStatusList} full aStatus
+
+if { ${aStatus} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
--- /dev/null
+
+puts "========"
+puts "OCC175"
+puts "========"
+puts ""
+###########################################
+## ABug of a symmetry on this specific attached BREP shape.
+###########################################
+
+restore [locate_data_file OCC175.brep] result
+checkshape result
+
+regexp {SHAPE +: +([-0-9.+eE]+)} [nbshapes result] full col1
+
+tmirror result 0 0 0 0 1 0
+
+regexp {SHAPE +: +([-0-9.+eE]+)} [nbshapes result] full col2
+if { $col1 != $col2} {
+ puts "Error : Command mirror does NOT work properly. "
+}
+
+set square 13091.3
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC183 "
+puts "(case 1)"
+puts "========================"
+puts ""
+
+restore [locate_data_file f1] b1
+checkshape b1
+
+restore [locate_data_file f4] b2
+checkshape b2
+
+bcommon result b1 b2
+checkshape result
+
+set square 315.159
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC183 "
+puts "(case 2)"
+puts "========================"
+puts ""
+
+restore [locate_data_file so1] b1
+checkshape b1
+
+restore [locate_data_file so4] b2
+checkshape b2
+
+bfuse result b1 b2
+checkshape result
+
+set square 942.478
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC183 "
+puts "(case 3)"
+puts "========================"
+puts ""
+
+restore [locate_data_file so1] b1
+checkshape b1
+
+restore [locate_data_file so4] b2
+checkshape b2
+
+bcut result b1 b2
+checkshape result
+
+set square 863.938
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC183 "
+puts "(case 4)"
+puts "========================"
+puts ""
+
+restore [locate_data_file so1] b1
+checkshape b1
+
+restore [locate_data_file so2] b2
+checkshape b2
+
+bcommon result b1 b2
+checkshape result
+
+set square 392.699
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC183 "
+puts "(case 5)"
+puts "========================"
+puts ""
+
+restore [locate_data_file so4] b1
+checkshape b1
+
+restore [locate_data_file so2] b2
+checkshape b2
+
+bcommon result b1 b2
+checkshape result
+
+set square 198.863
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC183 "
+puts " CTS16184"
+puts "(case 6)"
+puts "========================"
+puts ""
+
+restore [locate_data_file CTO900_cts16184a.rle] a
+checkshape a
+restore [locate_data_file cts16184b.brep] b
+checkshape b
+
+bop a b
+bopfuse result a b
+checkshape -top result
+
+set square 0.0892544
+set 2dviewer 0
+
+
--- /dev/null
+puts "============"
+puts "OCC18541"
+puts "============"
+puts ""
+#######################################################################
+# Problem with GCPnts_UniformAbscissa class
+#######################################################################
+
+set BugNumber OCC18541
+
+restore [locate_data_file OCC18541.brep] b-curve
+
+set NbPoints 10
+
+mkcurve res b-curve
+
+set ResList [uniformAbscissa res ${NbPoints}]
+
+if {[llength ${ResList}] > 15} {
+ set CasCurve_NbPoints [lindex ${ResList} 15]
+ puts "NbPoints = ${NbPoints} CasCurve_NbPoints = ${CasCurve_NbPoints}"
+ if { ${CasCurve_NbPoints} != ${NbPoints} } {
+ puts "Faulty ${BugNumber}"
+ } else {
+ puts "OK ${BugNumber}"
+ }
+} else {
+ puts "Faulty ${BugNumber} : Bad draw command"
+}
+
--- /dev/null
+puts "============"
+puts "OCC18541"
+puts "============"
+puts ""
+#######################################################################
+# Problem with GCPnts_UniformAbscissa class
+#######################################################################
+
+set BugNumber OCC18541
+
+set maxR 100
+set minR 50
+set NbPoints 10
+
+set ResList [uniformAbscissaEl ${maxR} ${minR} ${NbPoints}]
+
+if {[llength ${ResList}] > 15} {
+ set CasCurve_NbPoints [lindex ${ResList} 15]
+ puts "NbPoints = ${NbPoints} CasCurve_NbPoints = ${CasCurve_NbPoints}"
+ if { ${CasCurve_NbPoints} != ${NbPoints} } {
+ puts "Faulty ${BugNumber}"
+ } else {
+ puts "OK ${BugNumber}"
+ }
+} else {
+ puts "Faulty ${BugNumber} : Bad draw command"
+}
--- /dev/null
+
+puts "================"
+puts "OCC187"
+puts "SAM1230"
+puts "================"
+puts ""
+
+#################################################################
+## In time document with "1-exhaust.brep" imported shape saving exception "Access Violation"
+## raises because of wrong PColgp_HArray1 allocation.
+## StandardCSFDB_Allocate badly allocates memory blocks: bad address value retuned.
+#################################################################
+
+restore [locate_data_file OCC187_from_bug_description.brep] result
+
+set 2dviewer 0
--- /dev/null
+
+puts "============"
+puts "BUC60929"
+puts "OCC188"
+puts "============"
+
+restore [locate_data_file BUC60929.brep] a
+
+explode a
+checkshape a_1
+checkshape a_2
+
+bcommon result a_1 a_2
+checkshape result
+
+set square 3739.26
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "================"
+puts "OCC188"
+puts "================"
+puts ""
+
+restore [locate_data_file BUC60929.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bcut result a_1 a_2
+checkshape result
+
+set square 669659
+set 2dviewer 0
+
--- /dev/null
+puts "========"
+puts "OCC19777"
+puts "========"
+puts ""
+######################################################
+# FIP:Integration of new version of read/write VRML2.0 files
+######################################################
+
+set BugNumber OCC19777
+
+if [catch { restore [locate_data_file OCC19777.brep] result} catch_result] {
+ puts "Error ${BugNumber}: there is reading problem"
+} else {
+
+set nb_v_good 0
+set nb_e_good 0
+set nb_w_good 0
+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 1
+
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC20: here is shading problem"
+
+puts "================"
+puts "OCC20"
+puts "================"
+puts ""
+###############################
+## Face apearence in shading mode is wrong
+###############################
+
+pload QAcommands
+restore [locate_data_file OCC20.brep] result
+
+checkshape result
+
+tclean result
+vinit
+vdisplay result
+vsetdispmode result 1
+
+vviewparams 5.1346924 95.358439 -4.910448 0.23495967 -0.302 0.923899 -0.7304302 0.5722587 0.372815 9.550874 -7.55706 -28.83166
+
+isos result 0
+triangles result
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri != 416 || $nod != 367 } {
+ puts "Faulty OCC20: here is shading problem"
+}
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC203"
+puts "========"
+
+set dx 100
+set dy 100
+set dz 100
+
+box b ${dx} ${dy} ${dz}
+
+renamevar b edge
+explode edge e
+
+renamevar edge face
+explode face f
+
+set radis 5
+set angle 45
+
+chamf result1 face edge_1 face_3 A ${radis} ${angle}
+
+explode result1 e
+
+decho off
+if { [catch {fillet result result1 ${radis} result1_1 ${radis} result1_7 } catch_result] } {
+ set mistake 1
+} else {
+ set mistake 0
+}
+decho on
+
+if { $mistake != 0} {
+ puts "OK OCC203"
+ puts "Filet can not be created"
+} else {
+ puts "Faulty OCC203: function FILLET works wrongly"
+ checkshape result
+}
+
+
--- /dev/null
+puts "============"
+puts "OCC20391"
+puts "============"
+puts ""
+#######################################################################
+# Shape deforming via 3 scale factors raises error.Appendix for IPAL20387
+#######################################################################
+
+set BugNumber OCC20391
+
+restore [locate_data_file bug19811_VanneMP_supports_tiges_V3.brep] a
+
+if [catch {deform result a 2 2 2}] {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set square 2.71197e+07
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts "OCC20404"
+puts "========================"
+puts ""
+#######################################################################
+# Command distmini gives wrong result for given shapes
+#######################################################################
+
+set BugNumber OCC20404
+
+restore [locate_data_file OCC20404-line1.brep] e1
+restore [locate_data_file OCC20404-line2.brep] e2
+
+distmini d e1 e2
+puts "Distance=[dval d_val]"
+
+if [expr [dval d_val] > 7.e-13] {
+ set status 1
+} else {
+ set status 0
+}
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
--- /dev/null
+puts "========================"
+puts "OCC20524"
+puts "========================"
+puts ""
+#######################################################################
+# Wrong intersection
+#######################################################################
+
+set BugNumber OCC20524
+
+restore [locate_data_file OCC20524-surf1.draw] surf1
+restore [locate_data_file OCC20524-surf2.draw] surf2
+
+intersect result surf1 surf2
+
+set che [whatis result]
+if { ![regexp {3d curve} $che] } {
+ puts "Faulty ${BugNumber}: command INTERSECT works wrongly"
+} else {
+ puts "${BugNumber} OK : command INTERSECT works properly"
+}
+
--- /dev/null
+puts "========================"
+puts "OCC20616"
+puts "========================"
+puts ""
+#######################################################################
+# Failed to save/restore [locate_data_file empty] face
+#######################################################################
+
+set BugNumber OCC20616
+
+set mistake 0
+foreach t {V E W F Sh So CS C} {
+ puts "shape type $t"
+ shape test $t
+ if [catch {save test $imagedir/${test_image}.brep}] {
+ puts "Faulty ${BugNumber} save $t"
+ set mistake 1
+ } else {
+ puts "OK ${BugNumber} save $t"
+ }
+ if [catch {restore $imagedir/${test_image}.brep test}] {
+ puts "Faulty ${BugNumber} restore $t"
+ set mistake 1
+ } else {
+ puts "OK ${BugNumber} restore $t"
+ }
+}
+
+if {${mistake} !=0} {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC20627"
+puts "========"
+puts ""
+#######################################################################
+# Memory leaks in BRepMesh
+#######################################################################
+
+set BugNumber OCC20627
+
+OCC20627 1
+
+set listmem {}
+set i_max 10000
+OCC20627 ${i_max}
+
+lappend listmem [expr [meminfo w] / 1024]
+if { [checktrend $listmem 0 1 "Memory leak detected"] } {
+ puts "No memory leak"
+ break
+}
+
+
+
+
--- /dev/null
+puts "========================"
+puts "OCC20683"
+puts "Customer : TATA"
+puts "========================"
+puts ""
+#######################################################################
+# BRepExtrema_ExtCC produces incomplete result.
+#######################################################################
+
+set BugNumber OCC20683
+
+# finite line is used
+line ll 6834.93 -4100 500 0 0 1
+trim trll ll -1000 -500
+mkedge tree trll
+
+restore [locate_data_file OCC20683_circ1.brep] e1
+restore [locate_data_file OCC20683_circ2.brep] e2
+
+set res_list [distmini d e1 e2]
+set res_length [llength ${res_list}]
+puts "res_length = ${res_length}"
+
+# Resume
+puts ""
+if { ${res_length} != 3 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC20766"
+puts "============"
+puts ""
+#######################################################################
+# Intersection of cone with plane in apex point crashes
+#######################################################################
+
+set BugNumber OCC20766
+
+OCC20766 plane 1 0 0 3522.4299999999998
+
+set x -3522.4299999999998
+set y 2540
+set z -1461.4300000000001
+set dx 5449.7857099692965
+set dy 0
+set dz 5537.6938973109054
+set PI180 0.017453292519943295
+set semi-angle [expr 0.46689346637921703 / ${PI180}]
+set radius 0.
+
+cone c ${x} ${y} ${z} ${dx} ${dy} ${dz} ${semi-angle} ${radius}
+
+if [catch { intersect result plane c } ] {
+ puts "Faulty ${BugNumber} : intersect is wrong"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC20823"
+puts "============"
+puts ""
+#######################################################################
+# BRepFilletAPI_MakeFillet2d fails to build a chamfer
+#######################################################################
+
+set BugNumber OCC20823
+
+restore [locate_data_file OCC20823.brep] a
+mkplane f a
+explode f e
+
+if [catch { chfi2d result f f_1 f_2 CDD 10. 10. } ] {
+ puts "Faulty ${BugNumber} : chfi2d is wrong"
+} else {
+set length 267.795
+
+set nb_v_good 4
+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 9
+
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC20904"
+puts "============"
+puts ""
+#######################################################################
+# BRepBuilderAPI_Sewing produces a shape with big tolerance
+#######################################################################
+
+set BugNumber OCC20904
+
+restore [locate_data_file bug20904_face_bas.brep] a
+
+set tolerance_in 1.e-6
+set tolerance_out ${tolerance_in}
+sewing result ${tolerance_in} a
+
+set tolerance_list [maxtolerance result]
+
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxVertexTolerance
+
+set status 0
+
+if { ${MaxFaceTolerance} > ${tolerance_out} } {
+ set status 1
+ puts "Max Face Tolerance is bad"
+}
+
+if { ${MaxEdgeTolerance} > ${tolerance_out} } {
+ set status 1
+ puts "Max Edge Tolerance is bad"
+}
+
+if { ${MaxVertexTolerance} > ${tolerance_out} } {
+ set status 1
+ puts "Max Vertex Tolerance is bad"
+}
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set square 30078.9
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20904"
+puts "============"
+puts ""
+#######################################################################
+# BRepBuilderAPI_Sewing produces a shape with big tolerance
+#######################################################################
+
+set BugNumber OCC20904
+
+restore [locate_data_file bug20904_Shell_argument.brep] a
+
+set tolerance_in 1.e-6
+set tolerance_out ${tolerance_in}
+sewing result ${tolerance_in} a
+
+set tolerance_list [maxtolerance result]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxVertexTolerance
+
+set status 0
+
+if { ${MaxFaceTolerance} > ${tolerance_out} } {
+ set status 1
+ puts "Max Face Tolerance is bad"
+}
+
+if { ${MaxEdgeTolerance} > ${tolerance_out} } {
+ set status 1
+ puts "Max Edge Tolerance is bad"
+}
+
+if { ${MaxVertexTolerance} > ${tolerance_out} } {
+ set status 1
+ puts "Max Vertex Tolerance is bad"
+}
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set square 1.33253e+06
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC20904"
+puts "============"
+puts ""
+#######################################################################
+# BRepBuilderAPI_Sewing produces a shape with big tolerance
+#######################################################################
+
+set BugNumber OCC20904
+
+restore [locate_data_file bug20904_face_bas.brep] a
+restore [locate_data_file bug20904_Shell_argument.brep] b
+
+set tolerance_in 1.e-6
+set tolerance_out 1.e-5
+sewing result ${tolerance_in} a b
+
+set tolerance_list [maxtolerance result]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxFaceTolerance
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxEdgeTolerance
+regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance_list full MaxVertexTolerance
+
+set status 0
+
+if { ${MaxFaceTolerance} > ${tolerance_out} } {
+ set status 1
+ puts "Max Face Tolerance is bad"
+}
+
+if { ${MaxEdgeTolerance} > ${tolerance_out} } {
+ set status 1
+ puts "Max Edge Tolerance is bad"
+}
+
+if { ${MaxVertexTolerance} > ${tolerance_out} } {
+ set status 1
+ puts "Max Vertex Tolerance is bad"
+}
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set square 1.36261e+06
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty OCC21121"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC21121"
+puts "============"
+puts ""
+#######################################################################
+# Triangulation on face is not built
+#######################################################################
+
+set BugNumber OCC21121
+
+restore [locate_data_file OCC21121.brep] result
+
+tclean result
+
+set Deflection 0.1
+catch {incmesh result ${Deflection} }
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+regexp {deflection +([-0-9.+eE]+)} $tri_info full defl
+
+if { [string compare $tcl_platform(platform) "windows"] == 0 } {
+ puts "OS = Windows NT"
+ set good_tri 1555
+ set good_nod 1475
+ set good_defl 3.5015692105840144e-06
+} else {
+ puts "OS = Linux"
+ set good_tri 1555
+ set good_nod 1475
+ set good_defl 3.5015692105840144e-06
+}
+
+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 status 0
+
+set triangle_percent [GetPercent ${tri} ${good_tri}]
+puts "triangle_percent = ${triangle_percent}"
+if { ${triangle_percent} > ${percent_max} } {
+ puts "triangle: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "triangle: OK ${BugNumber}"
+}
+
+set node_percent [GetPercent ${nod} ${good_nod}]
+puts "node_percent = ${node_percent}"
+if { ${node_percent} > ${percent_max} } {
+ puts "node: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "node: OK ${BugNumber}"
+}
+
+set deflection_percent [GetPercent ${defl} ${good_defl}]
+puts "deflection_percent = ${deflection_percent}"
+if { ${deflection_percent} > ${percent_max} } {
+ puts "deflection: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "deflection: OK ${BugNumber}"
+}
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set square 0
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty OCC21122"
+
+puts "============"
+puts "OCC21122"
+puts "============"
+puts ""
+#######################################################################
+# Incremental mesh error
+#######################################################################
+
+set BugNumber OCC21122
+
+restore [locate_data_file OCC21122.brep] result
+
+tclean result
+
+set Deflection 0.1
+catch {incmesh result ${Deflection} }
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+regexp {Maximal deflection +([-0-9.+eE]+)} $tri_info full defl
+
+
+if { [string compare $tcl_platform(platform) "windows"] == 0 } {
+ set good_tri 4322
+ set good_nod 4324
+ set good_defl 8.8817872205847652e-16
+ puts "OS = Windows NT"
+} else {
+ puts "OS = Linux"
+ set good_tri 4322
+ set good_nod 4324
+ set good_defl 8.8817872205847652e-16
+}
+
+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 status 0
+
+set triangle_percent [GetPercent ${tri} ${good_tri}]
+puts "triangle_percent = ${triangle_percent}"
+if { ${triangle_percent} > ${percent_max} } {
+ puts "triangle: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "triangle: OK ${BugNumber}"
+}
+
+set node_percent [GetPercent ${nod} ${good_nod}]
+puts "node_percent = ${node_percent}"
+if { ${node_percent} > ${percent_max} } {
+ puts "node: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "node: OK ${BugNumber}"
+}
+
+set deflection_percent [GetPercent ${defl} ${good_defl}]
+puts "deflection_percent = ${deflection_percent}"
+if { ${deflection_percent} > ${percent_max} } {
+ puts "deflection: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "deflection: OK ${BugNumber}"
+}
+
+set square 275.426
+
+set nb_v_good 964
+set nb_e_good 964
+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 1931
+
+if { ${status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+vinit
+vdisplay result
+vsetdispmode 1
+vfit
+
+set only_screen 1
+
--- /dev/null
+
+puts "========"
+puts "OCC211"
+puts "========"
+
+##########################################
+##Error of fillet prolongation.
+##########################################
+
+restore [locate_data_file OCC211.brep] a
+
+explode a e
+
+blend result a 10 a_24
+checkshape result
+
+set square 1.34399e+06
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC211"
+puts "========"
+
+##########################################
+##Error of fillet prolongation.
+##########################################
+
+restore [locate_data_file OCC211.brep] a
+
+explode a e
+
+blend result a 10 a_4
+checkshape result
+
+set square 1.34399e+06
+set 2dviewer 0
--- /dev/null
+puts "========"
+puts "OCC21292"
+puts "========"
+puts ""
+######################################################
+# Shading on large model too long
+######################################################
+
+set BugNumber OCC21292
+
+# 1 munite
+cpulimit 60
+
+restore [locate_data_file OCC21292.brep] result
+
+vinit
+vsetdispmode 1
+
+chrono h reset; chrono h start
+#
+# DISPLAY OPERATION ----- START
+#
+vdisplay result
+#
+# DISPLAY OPERATION ----- FINISH
+#
+chrono h stop; set CPU_time_List [chrono h show]
+
+set CPU_user_time [lindex ${CPU_time_List} 11]
+puts "CPU_user_time=${CPU_user_time}"
+
+
+set square 1.40193e+07
+set nb_v_good 372
+set nb_e_good 369
+set nb_w_good 2
+set nb_f_good 1
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good 1
+set nb_shape_good 745
+
+
+if {[string compare $tcl_platform(platform) "windows"] == 0} {
+ puts "windows"
+ set Good_CPU_user_time 0.
+} else {
+ if {[string compare $tcl_platform(os) "SunOS"] == 0} {
+ puts "SunOS"
+ set Good_CPU_user_time 6.
+ } else {
+ puts "Linux"
+ set Good_CPU_user_time 6.
+ }
+}
+
+# Check time boolean operation
+if {${Good_CPU_user_time} > ${CPU_user_time}} {
+ puts "OK ${BugNumber} : CPU user time is good"
+} else {
+ puts "Faulty ${BugNumber} : CPU user time is wrong"
+}
+
+
+set only_screen 0
--- /dev/null
+
+puts "========"
+puts "OCC217"
+puts "========"
+
+##########################################
+##nurbsconvert problem
+##########################################
+
+box b -5 -5 -5 10 10 10
+psphere s 6
+
+bfuse result s b
+checkshape result
+
+set square 618.85
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC21858"
+puts "============"
+puts ""
+####################################
+# Visualization hangs on this face ( OCC21858.brep )
+####################################
+
+set BugNumber OCC21858
+cpulimit 40
+restore [locate_data_file OCC21858.brep] result
+
+set length 6.48642
+
+set nb_v_good 9
+set nb_e_good 10
+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 21
+
+set only_screen 0
+
+vinit
+vsetdispmode 1
+dchrono TestTimer reset
+dchrono TestTimer start
+vdisplay result
+dchrono TestTimer stop
+vfit
+puts ""
+set time_o 0.1
+set tim [ dchrono TestTimer show ]
+regexp {Elapsed time: +([-0-9.+eE]+) Hours +([-0-9.+eE]+) Minutes +([-0-9.+eE]+) Seconds} $tim full hourVDisplay minuVDisplay secoVDisplay
+
+set timVDisplay [expr $hourVDisplay * 3600 + $minuVDisplay * 60 + $secoVDisplay ]
+
+if { ${tim} < ${time_o} } {
+ set chro "CHRONO : Faulty (${timVDisplay}%)"
+ set status 1
+ puts ${chro}
+} else {
+ puts "${BugNumber} OK"
+ set status 0
+}
+puts "timVDisplay = ${timVDisplay}"
+
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "OCC22043"
+puts "============"
+puts ""
+#######################################################################
+# Checkshape command does not return faulty shapes for the face. CAS63-sp10-*. Appendix to SALOME bug 002019
+#######################################################################
+
+set BugNumber OCC22043
+
+puts "Load shape ..."
+restore [locate_data_file bug22043_f181.brep] result
+
+decho off
+set che [checkshape result]
+decho on
+
+if {[regexp {Faulty} $che]} {
+ puts "OK ${BugNumber} : The face f181 can not be valid because at least it contain self-intersected wire"
+} else {
+ puts "Faulty ${BugNumber} : The face f181 can not be valid because at least it contain self-intersected wire"
+}
+
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty OCC22080 : The face f contains degenerated edge that is far-fetched one"
+
+puts "============"
+puts "OCC22080"
+puts "============"
+puts ""
+#######################################################################
+# Checkshape command does not return faulty shapes for the face. CAS63-sp10-*. Appendix to SALOME bug IPAL22072
+#######################################################################
+
+set BugNumber OCC22080
+
+puts "Load shape ..."
+restore [locate_data_file bug22080_fx.brep] result
+
+decho off
+set che [checkshape result]
+decho on
+
+if {[regexp {Faulty} $che]} {
+ puts "OK ${BugNumber} : The face f contains degenerated edge that is far-fetched one"
+} else {
+ puts "Faulty ${BugNumber} : The face f contains degenerated edge that is far-fetched one"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO ?OCC12345 ALL: An exception was caught"
+puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
+puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
+puts "============"
+puts "OCC22194"
+puts "============"
+puts ""
+#######################################################################
+# Exception in LocOpe_SplitShape algoritm
+#######################################################################
+
+# TEMPORARY TEST! NO COMPLITED!!!!!
+
+set BugNumber OCC22194
+
+restore [locate_data_file OCC22194-sh.brep] s
+restore [locate_data_file OCC22194-pl.brep] pl
+section r s pl
+explode r
+explode s F
+splitshape result s s_1 r_1 s_5 r_2 s_13 r_3 s_22 r_4 s_31 r_5 s_39 r_6 s_46 r_7 s_51 r_8 s_68 r_9 s_90 r_10 s_112 r_11 s_133 r_12 s_143 r_13 s_146 r_14 s_151 r_15 s_161 r_16 s_176 r_17 s_183 r_18 s_201 r_19 s_213 r_20 s_213 r_21 s_235 r_22 s_257 r_23 s_270 r_24 s_285 r_25 s_300 r_26 s_314 r_27
+set square 24549.6
+set 2dviewer 0
+
+
--- /dev/null
+puts "========"
+puts "OCC22241"
+puts "========"
+puts ""
+###########################################################
+# The bug is appendix to the Salome Bug 0021148
+###########################################################
+
+set BugNumber OCC22241
+
+restore [locate_data_file bug22241_c1.draw] c1
+restore [locate_data_file bug22241_c2.draw] c2
+
+set extrema_res [extrema c1 c2]
+set extrema_length [llength ${extrema_res} ]
+
+if {${extrema_length} < 8 } {
+ puts "${BugNumber}: Faulty"
+} else {
+ regexp {Extrema 1 is point : +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $extrema_res full X Y Z
+ set good_X 1
+ set good_Y 3.0891916307971289e-33
+ set good_Z 0.059999999999999998
+
+ set percent_max 0.1
+
+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 X_percent [GetPercent ${X} ${good_X}]
+ set Y_percent [GetPercent ${Y} ${good_Y}]
+ set Z_percent [GetPercent ${Z} ${good_Z}]
+
+ if {${X_percent} > ${percent_max} || ${Y_percent} > ${percent_max} || ${Z_percent} > ${percent_max}} {
+ puts "X = ${X} Y = ${Y} Z = ${Z}"
+ puts "X_percent = ${X_percent} Y_percent = ${Y_percent} Z_percent = ${Z_percent}"
+ puts "${BugNumber}: Faulty"
+ } else {
+ puts "${BugNumber}: OK"
+ }
+
+}
+
--- /dev/null
+puts "============"
+puts "OCC22296"
+puts "============"
+puts ""
+#######################################################################
+# The algorithm BRepSweep_MakeRevol produce non-licit toroidal based face.
+# Appendix to the SALOME bug: IPAL22181
+#######################################################################
+
+set BugNumber OCC22296
+
+restore [locate_data_file bug22296_ring.brep] b1
+revol r b1 0.6 3 0 0 0 1 -90
+
+set E_Length [explode r f]
+
+if { ${E_Length} < 6} {
+ puts "Bad format of explode draw-command"
+ puts "Faulty ${BugNumber}"
+} else {
+
+ copy r_2 f
+
+ set good_umin 0
+ set good_umax 6.28319
+ set good_vmin 0
+ set good_vmax 6.28319
+
+ set xlist [xbounds f]
+ set umin [lindex $xlist 0]
+ set umax [lindex $xlist 1]
+ set vmin [lindex $xlist 2]
+ set vmax [lindex $xlist 3]
+
+ set bad_bound 0
+ if {${umin} < ${good_umin}} {
+ puts "umin: ${umin} is wrong"
+ set bad_bound[expr ${bad_bound} + 1]
+ }
+ if {${umax} > ${good_umax}} {
+ puts "umax: ${umax} is wrong"
+ set bad_bound [expr ${bad_bound} + 10]
+ }
+ if {${vmin} < ${good_vmin}} {
+ puts "vmin: ${vmin} is wrong"
+ set bad_bound [expr ${bad_bound} + 100]
+ }
+ if {${vmax} > ${good_vmax}} {
+ puts "vmax: ${vmax} is wrong"
+ set bad_bound [expr ${bad_bound} + 1000]
+ }
+
+ if {${bad_bound} > 0 } {
+ puts "${BugNumber}: Faulty"
+ } else {
+ puts "OK ${BugNumber}"
+ }
+
+}
+
--- /dev/null
+puts "========================"
+puts "OCC22303"
+puts "========================"
+puts ""
+#######################################################################
+# The algorithm BRepExtrema_DistShapeShape crashes with exception if one of the shapes does non contain vertices
+#######################################################################
+
+set BugNumber OCC22303
+
+line ll 0 20 0 1 0 0
+mkedge ee ll
+psphere ss 10
+
+distmini dd ee ss
+puts "Distance=[dval dd_val]"
+
+if [expr [dval dd_val] - 10. > 1.e-3 ] {
+ set status 1
+} else {
+ set status 0
+}
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
--- /dev/null
+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
+
+
+
+
--- /dev/null
+puts "================"
+puts "OCC22489"
+puts "================"
+puts ""
+#######################################################################
+# BRepClass3d_SolidClassifier::PerformInfinitePoint() gives wrong result on the given solid
+#######################################################################
+
+set BugNumber OCC22489
+
+restore [locate_data_file bug22489_Solid_2.brep] b
+
+point p 1000 1000 1000
+
+set res [split [bclassify b p] ]
+
+set ll [llength ${res}]
+if {${ll} < 4} {
+ puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
+} else {
+ if {[regexp {The point is OUT of shape} $res]} {
+ puts "OK ${BugNumber}"
+ } else {
+ puts "Faulty ${BugNumber}"
+ }
+}
+
--- /dev/null
+puts "================"
+puts "OCC22489"
+puts "================"
+puts ""
+#######################################################################
+# BRepClass3d_SolidClassifier::PerformInfinitePoint() gives wrong result on the given solid
+#######################################################################
+
+set BugNumber OCC22489
+
+restore [locate_data_file bug22489_sew1.brep] s
+
+mksol b s
+
+point p 1000 1000 1000
+
+set res [split [bclassify b p] ]
+
+set ll [llength ${res}]
+if {$ll < 4} {
+ puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
+} else {
+ if {[regexp {The point is OUT of shape} $res]} {
+ puts "OK ${BugNumber}"
+ } else {
+ puts "Faulty ${BugNumber}"
+ }
+}
+
--- /dev/null
+puts "================"
+puts "OCC22494"
+puts "================"
+puts ""
+#######################################################################
+# BRepClass_FaceClassifier bug (ref SALOME issue 21185)
+#######################################################################
+
+set BugNumber OCC22494
+
+restore [locate_data_file bug22494_Pb_belogToGeom_FACE.brep] Face
+
+point p -3.53254182396379145e-05 0.000877856930738714065
+
+set res [split [b2dclassify Face p] ]
+
+set ll [llength ${res}]
+if {${ll} < 4} {
+ puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
+} else {
+ if {[regexp {The point is ON shape} $res]} {
+ puts "OK ${BugNumber}"
+ } else {
+ puts "Faulty ${BugNumber}"
+ }
+}
+
--- /dev/null
+puts "========"
+puts "OCC22529"
+puts "========"
+puts ""
+###########################################################
+# FitALL works incorrectly for small flat shapes
+###########################################################
+
+set BugNumber OCC22529
+
+restore [locate_data_file OCC22529.brep] result
+
+vinit
+vdisplay result
+vfit
+
+set length 0.04
+set only_screen 1
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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}"
+}
+
--- /dev/null
+puts "==========="
+puts "OCC22694"
+puts "==========="
+######################################################
+# Wrong result obntained after GeomLib::ExtendSurfByLength
+######################################################
+
+set BugNumber OCC22694
+
+catch {pload DCAF}
+catch {pload XDE}
+
+# Create a new document and set UndoLimit
+NewDocument D
+UndoLimit D 100
+
+# Open a transaction
+NewCommand D
+
+ReadStep D [locate_data_file OCC22694-rationalSurface.stp]
+
+XGetShape sh D 0:1:1:1
+
+explode sh F
+mksurface ss sh_1
+extendsurf ss 10 2 U
+mkface result ss
+
+vdisplay sh_1
+vdisplay result
+
+vsetdispmode 1
+vfit
+
+set square 76338.8
+
+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
+
+set 2dviewer 1
+
--- /dev/null
+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
+
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
+
--- /dev/null
+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
+
--- /dev/null
+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}"
+}
+
--- /dev/null
+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
--- /dev/null
+puts "TODO OCC11111 ALL: TEST INCOMPLETE"
+
+cpulimit 30
+
+puts "============"
+puts "OCC22759"
+puts "============"
+puts ""
+#######################################################################
+# Crash during shape visualization
+#######################################################################
+
+set BugNumber OCC22759
+
+catch { pload XDE }
+
+restore [locate_data_file OCC22759-weldt6.brep] result
+checkshape result
+tclean result
+
+set Deflection 0.001
+incmesh result ${Deflection}
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+
+regexp {deflection +([-0-9.+eE]+)} $tri_info full defl
+
+set os "ALL"
+if {[array get env os_type] != ""} {
+ set os $env(os_type)
+}
+
+if { [regexp {Windows} $os ] } {
+ puts "OS = Windows NT"
+ set good_tri 248672
+ set good_nod 127078
+ set good_defl 0.0028424483708953232
+} else {
+ puts "OS = Linux"
+ set good_tri 248724
+ set good_nod 127104
+ set good_defl 0.0028424483709341111
+}
+
+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 status 0
+
+set triangle_percent [GetPercent ${tri} ${good_tri}]
+puts "triangle_percent = ${triangle_percent}"
+if { ${triangle_percent} > ${percent_max} } {
+ puts "triangle: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "triangle: OK ${BugNumber}"
+}
+
+set node_percent [GetPercent ${nod} ${good_nod}]
+puts "node_percent = ${node_percent}"
+if { ${node_percent} > ${percent_max} } {
+ puts "node: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "node: OK ${BugNumber}"
+}
+
+set deflection_percent [GetPercent ${defl} ${good_defl}]
+puts "deflection_percent = ${deflection_percent}"
+if { ${deflection_percent} > ${percent_max} } {
+ puts "deflection: Faulty ${BugNumber}"
+ set status 1
+} else {
+ puts "deflection: OK ${BugNumber}"
+}
+
+# Resume
+puts ""
+if { ${status} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+vinit
+vdisplay result
+vfit
+
+vsetdispmode 1
+
+set only_screen 1
+set square 0
--- /dev/null
+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
+
--- /dev/null
+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
+
--- /dev/null
+
+puts "========"
+puts "OCC227"
+puts "(case 1)"
+puts "========"
+
+##############################################################
+##Incorrect result with missing faces after a fuse operation beetween the box and the wedge.
+###############################################################
+
+restore [locate_data_file OCC227a.brep] a
+fsameparameter a
+updatetolerance a
+checkshape a
+
+restore [locate_data_file OCC227b.brep] b
+fsameparameter b
+updatetolerance b
+checkshape b
+
+bfuse result a b
+checkshape result
+
+set square 1583.92
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC227"
+puts "(case 2)"
+puts "========"
+
+##############################################################
+##Incorrect result with missing faces after a fuse operation beetween the box and the wedge.
+###############################################################
+
+restore [locate_data_file OCC227a.brep] a
+fsameparameter a
+updatetolerance a
+checkshape a
+
+restore [locate_data_file OCC227b.brep] b
+fsameparameter b
+updatetolerance b
+checkshape b
+
+bfuse result b a
+checkshape result
+
+set square 1583.92
+set 2dviewer 0
--- /dev/null
+if { [array get env os_type] != "" } {
+ set os $env(os_type)
+}
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+if { [string compare $os "windows"] != 0 } {
+ puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+}
+puts "================"
+puts "OCC54"
+puts "================"
+puts ""
+####################################################
+## Exception is raised during command "small" in DRAW on attached shape.
+####################################################
+
+cpulimit 300
+restore [locate_data_file OCC54.brep] result
+
+checkshape result
+
+set 3dviewer 0
--- /dev/null
+set subgroup moddata
+
+
+
+
+
+
+
+
--- /dev/null
+
+puts "================"
+puts "OCC228"
+puts "================"
+puts ""
+################################################
+## It's impossible to make common of the two shapes in the file attached.
+################################################
+
+cpulimit 4000
+
+restore [locate_data_file OCC228.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bcommon result a_1 a_2
+
+set square 66231.3
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "==========="
+puts "OCC22802"
+puts "==========="
+puts ""
+#######################################################################
+# The memory alloccated with an excess is not released
+#######################################################################
+
+set BugNumber OCC22802
+
+set log [bcarray]
+
+#
+#state before release the unused memory
+#Length: 10
+#FactLength: 100000
+#BlockLength: 100000
+#
+#state after release the unused memory
+#Length: 10
+#FactLength: 10
+#BlockLength: 100000
+#
+
+set linelist [split $log "\n"]
+
+set il 0
+set ifl 0
+set ibl 0
+
+set xl_0 0
+set xl_1 0
+set xfl_0 0
+set xfl_1 0
+set xbl_0 0
+set xbl_1 0
+
+foreach line $linelist {
+ if { [regexp {^Length: ([-0-9.+eE]+)} $line full xl_$il] } { incr il }
+ if { [regexp {FactLength: ([-0-9.+eE]+)} $line full xfl_$ifl] } { incr ifl }
+ if { [regexp {BlockLength: ([-0-9.+eE]+)} $line full xbl_$ibl] } { incr ibl }
+}
+
+set status 0
+if { ${xl_0} != 10} {
+ incr status
+}
+if { ${xfl_0} != 100000} {
+ incr status
+}
+if { ${xbl_0} != 100000} {
+ incr status
+}
+if { ${xl_1} != 10} {
+ incr status
+}
+if { ${xfl_1} != 10} {
+ incr status
+}
+if { ${xbl_1} != 100000} {
+ incr status
+}
+
+if { ${status} != 0} {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "${BugNumber} OK"
+}
+
--- /dev/null
+puts "============"
+puts "OCC22809"
+puts "============"
+puts ""
+############################################################################################################
+# BRepIntCS does not find intersections of an ellipsoid and a line passing through it's apex
+###########################################################################################################
+#
+# Test was corrected. See:
+#
+# http://tracker.dev.opencascade.org/view.php?id=23248
+# pkv (developer)
+# 2012-07-12 09:33
+# The checking can not provide stable result because there is no guarantee that coordinates
+# for brics_1 will always be {x1, y1, z1} but not {x2, y2, z2} and
+# for brics_42 will always be {x2, y2, z2} but not {x1, y1, z1}.
+# The coordinates of brics_1 can be both {x1, y1, z1} and {x2, y2, z2}
+# The coordinates of brics_42 can be both {x1, y1, z1} and {x2, y2, z2}
+#
+###########################################################################################################
+
+set BugNumber OCC22809
+
+#
+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
+#
+
+psphere a 100
+nurbsconvert r1 a
+line l 0 0 -100 0 0 1
+BRepIntCS l r1
+
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_1 ] full info1
+
+# N.B. multiple result points are to be processed by other algorithms
+# Now there are 241 result points
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_2 ] full info2
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_41 ] full info2
+
+set word1 [string compare $info1 "point"]
+set word2 [string compare $info2 "point"]
+
+set status_point 0
+
+puts "ski $word1"
+puts "ski $word2"
+if { ${word1} == 0 && ${word2} == 0 } {
+ set status_point 0
+} else {
+ set status_point 1
+}
+
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_3 ] full info3
+set word3 [string compare $info3 "a"]
+
+set status_nb 0
+if { ${word3} == 0 } {
+ set status_nb 0
+} else {
+ set status_nb 1
+ # N.B. multiple result points are to be processed by other algorithms
+ set status_nb 0
+}
+
+set good_x1 0.000000000000000e+00
+set good_y1 0.000000000000000e+00
+set good_z1 -1.000000000000000e+02
+
+set good_x2 0.000000000000000e+00
+set good_y2 0.000000000000000e+00
+set good_z2 1.000000000000000e+02
+
+set dump1 [ dump brics_1 ]
+regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump1 full x1 y1 z1
+
+set status_xyz1 0
+set x1_percent [GetPercent ${x1} ${good_x1}]
+puts "x1_percent = ${x1_percent}"
+if { ${x1_percent} > ${percent_max} } {
+ puts "x1: Faulty ${BugNumber}"
+ set status_xyz1 1
+} else {
+ puts "x1: OK ${BugNumber}"
+}
+
+set y1_percent [GetPercent ${y1} ${good_y1}]
+puts "y1_percent = ${y1_percent}"
+if { ${y1_percent} > ${percent_max} } {
+ puts "y1: Faulty ${BugNumber}"
+ set status_xyz1 1
+} else {
+ puts "y1: OK ${BugNumber}"
+}
+
+set z1_percent [GetPercent ${z1} ${good_z1}]
+puts "z1_percent = ${z1_percent}"
+if { ${z1_percent} > ${percent_max} } {
+ set z1_percent [GetPercent ${z1} ${good_z2}]
+ puts "z1_percent = ${z1_percent}"
+ if { ${z1_percent} > ${percent_max} } {
+ puts "z1: Faulty ${BugNumber}"
+ set status_xyz1 1
+ } else {
+ puts "z1: OK ${BugNumber}"
+ }
+} else {
+ puts "z1: OK ${BugNumber}"
+}
+
+set dump2 [ dump brics_2 ]
+# N.B. multiple result points are to be processed by other algorithms
+set dump2 [ dump brics_41 ]
+regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump2 full x2 y2 z2
+
+set status_xyz2 0
+set x2_percent [GetPercent ${x2} ${good_x2}]
+puts "x2_percent = ${x2_percent}"
+if { ${x2_percent} > ${percent_max} } {
+ puts "x2: Faulty ${BugNumber}"
+ set status_xyz2 1
+} else {
+ puts "x2: OK ${BugNumber}"
+}
+
+set y2_percent [GetPercent ${y2} ${good_y2}]
+puts "y2_percent = ${y2_percent}"
+if { ${y2_percent} > ${percent_max} } {
+ puts "y2: Faulty ${BugNumber}"
+ set status_xyz2 1
+} else {
+ puts "y2: OK ${BugNumber}"
+}
+
+set z2_percent [GetPercent ${z2} ${good_z2}]
+puts "z2_percent = ${z2_percent}"
+if { ${z2_percent} > ${percent_max} } {
+ set z2_percent [GetPercent ${z2} ${good_z1}]
+ puts "z2_percent = ${z2_percent}"
+ if { ${z2_percent} > ${percent_max} } {
+ puts "z2: Faulty ${BugNumber}"
+ set status_xyz2 1
+ } else {
+ puts "z2: OK ${BugNumber}"
+ }
+} else {
+ puts "z2: OK ${BugNumber}"
+}
+
+if { ${status_point} == 0 && ${status_nb} == 0 && ${status_xyz1} == 0 && ${status_xyz2} == 0 } {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
--- /dev/null
+puts "============"
+puts "OCC22809"
+puts "============"
+puts ""
+############################################################################################################
+# BRepIntCS does not find intersections of an ellipsoid and a line passing through it's apex
+###########################################################################################################
+#
+# Test was corrected. See:
+#
+# http://tracker.dev.opencascade.org/view.php?id=23248
+# pkv (developer)
+# 2012-07-12 09:33
+# The checking can not provide stable result because there is no guarantee that coordinates
+# for brics_1 will always be {x1, y1, z1} but not {x2, y2, z2} and
+# for brics_42 will always be {x2, y2, z2} but not {x1, y1, z1}.
+# The coordinates of brics_1 can be both {x1, y1, z1} and {x2, y2, z2}
+# The coordinates of brics_42 can be both {x1, y1, z1} and {x2, y2, z2}
+#
+###########################################################################################################
+
+set BugNumber OCC22809
+
+#
+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
+#
+
+psphere a 100
+scalexyz r2 a 2 1 1
+line l 0 0 -100 0 0 1
+BRepIntCS l r2
+
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_1 ] full info1
+
+# N.B. multiple result points are to be processed by other algorithms
+# Now there are 130 result points
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_23 ] full info2
+
+set word1 [string compare $info1 "point"]
+set word2 [string compare $info2 "point"]
+
+set status_point 0
+if { ${word1} == 0 && ${word2} == 0 } {
+ set status_point 0
+} else {
+ set status_point 1
+}
+
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_3 ] full info3
+set word3 [string compare $info3 "a"]
+
+set status_nb 0
+if { ${word3} == 0 } {
+ set status_nb 0
+} else {
+ set status_nb 1
+ # N.B. multiple result points are to be processed by other algorithms
+ set status_nb 0
+}
+
+set good_x1 0.000000000000000e+00
+set good_y1 0.000000000000000e+00
+set good_z1 -1.000000000000000e+02
+
+set good_x2 0.000000000000000e+00
+set good_y2 0.000000000000000e+00
+set good_z2 1.000000000000000e+02
+
+set dump1 [ dump brics_1 ]
+
+regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump1 full x1 y1 z1
+
+set status_xyz1 0
+set x1_percent [GetPercent ${x1} ${good_x1}]
+puts "x1_percent = ${x1_percent}"
+if { ${x1_percent} > ${percent_max} } {
+ puts "x1: Faulty ${BugNumber}"
+ set status_xyz1 1
+} else {
+ puts "x1: OK ${BugNumber}"
+}
+
+set y1_percent [GetPercent ${y1} ${good_y1}]
+puts "y1_percent = ${y1_percent}"
+if { ${y1_percent} > ${percent_max} } {
+ puts "y1: Faulty ${BugNumber}"
+ set status_xyz1 1
+} else {
+ puts "y1: OK ${BugNumber}"
+}
+
+set z1_percent [GetPercent ${z1} ${good_z1}]
+puts "z1_percent = ${z1_percent}"
+if { ${z1_percent} > ${percent_max} } {
+ set z1_percent [GetPercent ${z1} ${good_z2}]
+ puts "z1_percent = ${z1_percent}"
+ if { ${z1_percent} > ${percent_max} } {
+ puts "z1: Faulty ${BugNumber}"
+ set status_xyz1 1
+ } else {
+ puts "z1: OK ${BugNumber}"
+ }
+} else {
+ puts "z1: OK ${BugNumber}"
+}
+
+set dump2 [ dump brics_2 ]
+# N.B. multiple result points are to be processed by other algorithms
+set dump2 [ dump brics_23 ]
+regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump2 full x2 y2 z2
+
+set status_xyz2 0
+set x2_percent [GetPercent ${x2} ${good_x2}]
+puts "x2_percent = ${x2_percent}"
+if { ${x2_percent} > ${percent_max} } {
+ puts "x2: Faulty ${BugNumber}"
+ set status_xyz2 1
+} else {
+ puts "x2: OK ${BugNumber}"
+}
+
+set y2_percent [GetPercent ${y2} ${good_y2}]
+puts "y2_percent = ${y2_percent}"
+if { ${y2_percent} > ${percent_max} } {
+ puts "y2: Faulty ${BugNumber}"
+ set status_xyz2 1
+} else {
+ puts "y2: OK ${BugNumber}"
+}
+
+set z2_percent [GetPercent ${z2} ${good_z2}]
+puts "z2_percent = ${z2_percent}"
+if { ${z2_percent} > ${percent_max} } {
+ set z2_percent [GetPercent ${z2} ${good_z1}]
+ puts "z2_percent = ${z2_percent}"
+ if { ${z2_percent} > ${percent_max} } {
+ puts "z2: Faulty ${BugNumber}"
+ set status_xyz2 1
+ } else {
+ puts "z2: OK ${BugNumber}"
+ }
+} else {
+ puts "z2: OK ${BugNumber}"
+}
+
+# Resume
+puts ""
+if { ${status_point} == 0 && ${status_nb} == 0 && ${status_xyz1} == 0 && ${status_xyz2} == 0 } {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
--- /dev/null
+puts "============"
+puts "OCC22809"
+puts "============"
+puts ""
+############################################################################################################
+# BRepIntCS does not find intersections of an ellipsoid and a line passing through it's apex
+###########################################################################################################
+
+set BugNumber OCC22809
+
+#
+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
+#
+
+psphere a 100
+nurbsconvert r1 a
+line l -0.000001 0.0000000001 -100 0 0 1
+BRepIntCS l r1
+
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_1] full info1
+
+# N.B. multiple result points are to be processed by other algorithms
+# Now there are 3 result points
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_2 ] full info2
+
+set word1 [string compare $info1 "point"]
+set word2 [string compare $info2 "point"]
+
+set status_point 0
+if { ${word1} == 0 && ${word2} == 0 } {
+ set status_point 0
+} else {
+ set status_point 1
+}
+
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_3 ] full info3
+set word3 [string compare $info3 "a"]
+
+set status_nb 0
+if { ${word3} == 0 } {
+ set status_nb 0
+} else {
+ set status_nb 1
+ # N.B. multiple result points are to be processed by other algorithms
+ set status_nb 0
+}
+
+set dump1 [ dump brics_1 ]
+
+regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump1 full x1 y1 z1
+
+set good_x1 -1.000000000000000e-06
+set good_y1 1.000000000000000e-10
+set good_z1 -1.000000000000000e+02
+
+set status_xyz1 0
+set x1_percent [GetPercent ${x1} ${good_x1}]
+puts "x1_percent = ${x1_percent}"
+if { ${x1_percent} > ${percent_max} } {
+ puts "x1: Faulty ${BugNumber}"
+ set status_xyz1 1
+} else {
+ puts "x1: OK ${BugNumber}"
+}
+
+set y1_percent [GetPercent ${y1} ${good_y1}]
+puts "y1_percent = ${y1_percent}"
+if { ${y1_percent} > ${percent_max} } {
+ puts "y1: Faulty ${BugNumber}"
+ set status_xyz1 1
+} else {
+ puts "y1: OK ${BugNumber}"
+}
+
+set z1_percent [GetPercent ${z1} ${good_z1}]
+puts "z1_percent = ${z1_percent}"
+if { ${z1_percent} > ${percent_max} } {
+ puts "z1: Faulty ${BugNumber}"
+ set status_xyz1 1
+} else {
+ puts "z1: OK ${BugNumber}"
+}
+
+set dump2 [ dump brics_2 ]
+# N.B. multiple result points are to be processed by other algorithms
+set dump2 [ dump brics_2 ]
+
+regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump2 full x2 y2 z2
+
+set good_x2 -1.000000000000000e-06
+set good_y2 1.000000000000000e-10
+set good_z2 1.000000000000000e+02
+
+set status_xyz2 0
+set x2_percent [GetPercent ${x2} ${good_x2}]
+puts "x2_percent = ${x2_percent}"
+if { ${x2_percent} > ${percent_max} } {
+ puts "x2: Faulty ${BugNumber}"
+ set status_xyz2 1
+} else {
+ puts "x2: OK ${BugNumber}"
+}
+
+set y2_percent [GetPercent ${y2} ${good_y2}]
+puts "y2_percent = ${y2_percent}"
+if { ${y2_percent} > ${percent_max} } {
+ puts "y2: Faulty ${BugNumber}"
+ set status_xyz2 1
+} else {
+ puts "y2: OK ${BugNumber}"
+}
+
+set z2_percent [GetPercent ${z2} ${good_z2}]
+puts "z2_percent = ${z2_percent}"
+if { ${z2_percent} > ${percent_max} } {
+ puts "z2: Faulty ${BugNumber}"
+ set status_xyz2 1
+} else {
+ puts "z2: OK ${BugNumber}"
+}
+
+# Resume
+puts ""
+if { ${status_point} == 0 && ${status_nb} == 0 && ${status_xyz1} == 0 && ${status_xyz2} == 0 } {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
--- /dev/null
+puts "============"
+puts "OCC22809"
+puts "============"
+puts ""
+############################################################################################################
+# BRepIntCS does not find intersections of an ellipsoid and a line passing through it's apex
+###########################################################################################################
+
+set BugNumber OCC22809
+
+#
+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
+#
+
+psphere a 100
+scalexyz r2 a 2 1 1
+line l -0.000001 0.0000000001 -100 0 0 1
+BRepIntCS l r2
+
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_1 ] full info1
+
+# N.B. multiple result points are to be processed by other algorithms
+# Now there are 2 result points
+set info2 [ whatis brics_2 ]
+set info2 [ whatis brics_2 ]
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_2 ] full info2
+
+
+set word1 [string compare $info1 "point"]
+set word2 [string compare $info2 "point"]
+
+set status_point 0
+if { ${word1} == 0 && ${word2} == 0 } {
+ set status_point 0
+} else {
+ set status_point 1
+}
+
+regexp {.* is a ([A-Za-z0-9]*)} [ whatis brics_3 ] full info3
+set word3 [string compare $info3 "a"]
+
+set status_nb 0
+if { ${word3} == 0 } {
+ set status_nb 0
+} else {
+ set status_nb 1
+ # N.B. multiple result points are to be processed by other algorithms
+ set status_nb 0
+}
+
+set dump1 [ dump brics_1 ]
+
+regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump1 full x1 y1 z1
+
+set good_x1 -1.000000000000000e-06
+set good_y1 1.000000000000000e-10
+set good_z1 -1.000000000000000e+02
+
+set status_xyz1 0
+set x1_percent [GetPercent ${x1} ${good_x1}]
+puts "x1_percent = ${x1_percent}"
+if { ${x1_percent} > ${percent_max} } {
+ puts "x1: Faulty ${BugNumber}"
+ set status_xyz1 1
+} else {
+ puts "x1: OK ${BugNumber}"
+}
+
+set y1_percent [GetPercent ${y1} ${good_y1}]
+puts "y1_percent = ${y1_percent}"
+if { ${y1_percent} > ${percent_max} } {
+ puts "y1: Faulty ${BugNumber}"
+ set status_xyz1 1
+} else {
+ puts "y1: OK ${BugNumber}"
+}
+
+set z1_percent [GetPercent ${z1} ${good_z1}]
+puts "z1_percent = ${z1_percent}"
+if { ${z1_percent} > ${percent_max} } {
+ puts "z1: Faulty ${BugNumber}"
+ set status_xyz1 1
+} else {
+ puts "z1: OK ${BugNumber}"
+}
+
+set dump2 [ dump brics_2 ]
+# N.B. multiple result points are to be processed by other algorithms
+set dump2 [ dump brics_2 ]
+
+regexp {Point : ([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} $dump2 full x2 y2 z2
+
+set good_x2 -1.000000000000000e-06
+set good_y2 1.000000000000000e-10
+set good_z2 1.000000000000000e+02
+
+set status_xyz2 0
+set x2_percent [GetPercent ${x2} ${good_x2}]
+puts "x2_percent = ${x2_percent}"
+if { ${x2_percent} > ${percent_max} } {
+ puts "x2: Faulty ${BugNumber}"
+ set status_xyz2 1
+} else {
+ puts "x2: OK ${BugNumber}"
+}
+
+set y2_percent [GetPercent ${y2} ${good_y2}]
+puts "y2_percent = ${y2_percent}"
+if { ${y2_percent} > ${percent_max} } {
+ puts "y2: Faulty ${BugNumber}"
+ set status_xyz2 1
+} else {
+ puts "y2: OK ${BugNumber}"
+}
+
+set z2_percent [GetPercent ${z2} ${good_z2}]
+puts "z2_percent = ${z2_percent}"
+if { ${z2_percent} > ${percent_max} } {
+ puts "z2: Faulty ${BugNumber}"
+ set status_xyz2 1
+} else {
+ puts "z2: OK ${BugNumber}"
+}
+
+# Resume
+puts ""
+if { ${status_point} == 0 && ${status_nb} == 0 && ${status_xyz1} == 0 && ${status_xyz2} == 0 } {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
--- /dev/null
+puts "============"
+puts "OCC22851"
+puts "============"
+puts ""
+#######################################################################
+# No intersection curve between two surfaces
+#######################################################################
+
+set BugNumber OCC22851
+
+restore [locate_data_file bug22851_fz1.brep] b1
+restore [locate_data_file bug22851_fz8.brep] b2
+mksurface s1 b1
+mksurface s2 b2
+intersect i s1 s2
+
+set dump_info [dump i]
+
+set lst [split ${dump_info}]
+set dump_length [llength $lst]
+
+set find_BSCurve [regexp {BSplineCurve} $dump_info]
+set find_Degree_Poles_Knots [regexp {Degree +[-0-9.+eE]+, +[-0-9.+eE]+ +Poles, +[-0-9.+eE]+ +Knots} $dump_info]
+
+if { $dump_length == 0 && !$find_BSCurve && !$find_Degree_Poles_Knots } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
\ No newline at end of file
--- /dev/null
+puts "========================"
+puts "OCC22907"
+puts "========================"
+puts ""
+#######################################################################
+# The function 'distmini' produces wrong result.
+#######################################################################
+
+set BugNumber OCC22907
+
+###rename to bug22907_e.brep
+restore [locate_data_file bug22907_e.brep] b2
+vertex b1 -15.652187256227142 3.2012899919486513 9.9763479999999998
+
+distmini d b1 b2
+puts "Distance=[dval d_val]"
+
+set Good_Distance 0
+
+regexp {Vertex *: Min [-0-9.+eE]+ *Max *([-0-9.+eE]+)} [maxtolerance b1] full tol1
+regexp {Edge *: Min [-0-9.+eE]+ *Max *([-0-9.+eE]+)} [maxtolerance b2] full tol2
+regexp {Vertex *: Min [-0-9.+eE]+ *Max *([-0-9.+eE]+)} [maxtolerance b2] full tol3
+
+set max_tolerance ${tol1}
+if { ${tol2} > ${max_tolerance} } {
+ set max_tolerance ${tol2}
+}
+if { ${tol3} > ${max_tolerance} } {
+ set max_tolerance ${tol3}
+}
+puts "max_tolerance=${max_tolerance}"
+
+if [expr abs( [dval d_val] - ${Good_Distance}) > ${max_tolerance}] {
+ set status 1
+} else {
+ set status 0
+}
+
+# Resume
+puts ""
+if { ${status} == 1 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+vinit
+vdisplay b1 b2
+vfit
+
+set only_screen 0
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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}"
+}
--- /dev/null
+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
--- /dev/null
+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
+
+
--- /dev/null
+puts "================"
+puts "OCC23092"
+puts "================"
+puts ""
+###################################################################################################
+# Error in BRepProj_Projection algorithm: some edges of resulting projected wire are duplicated
+###################################################################################################
+
+set BugNumber OCC23092
+
+restore [locate_data_file OCC23092-bal8h.brep] h
+restore [locate_data_file OCC23092-bal8s.brep] s
+set info1 [ prj r s h 0 0 1 ]
+set word1 [string compare [lindex ${info1} end] "r_1"]
+don r_1 r_2
+explode r_1 E
+explode r_2 V
+set info2 [ don r_1_10 r_2_1 r_2_2 ]
+set word2 [string compare [lindex ${info2} end] "r_1_10"]
+
+# Resume
+puts ""
+if { ${word1} == 0 && ${word2} == 0 } {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
--- /dev/null
+puts "========"
+puts "OCC231"
+puts "========"
+puts ""
+
+#############################################
+##Uncorrect work DRAW command "proj" in version dev
+## and receive such result:
+## in dev : ext_1 ext_2 ext_3
+## in C40 : ext_1 ext_2 ext_3 ext_4
+#############################################
+
+restore [locate_data_file OCC231.draw] result
+
+set str [proj result 1751.38 614.152 -180.331]
+set err [llength $str]
+
+if { $err < 4 } {
+ puts "Faulty OCC231: Projection was made wrongly"
+} else {
+ puts "OCC231 OK: Projection was made properly"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "================"
+puts "OCC23139"
+puts "================"
+puts ""
+########################################################################################################
+# BRepFilletAPI_MakeFillet algorithm builds edges with wrong first and last parameters: out of pcurve
+########################################################################################################
+
+set BugNumber OCC23139
+
+### rename to bug23139_aShape_for_fillet.brep
+restore [locate_data_file bug23139_aShape_for_fillet.brep] b
+explode b e
+donly b b_6
+blend result b 20 b_6
+explode result f
+#av2d
+set exception_status [ catch { pcurve result_1 } ]
+
+if { ${exception_status} == 0 } {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set 2dviewer 0
+set length 5558.88
--- /dev/null
+puts "==========="
+puts "OCC23152"
+puts "==========="
+######################################################
+# Possibility to have echo of DRAW commands in log file
+######################################################
+
+set BugNumber OCC23152
+
+dchrono t stop
+dchrono t start
+dchrono t stop
+
+dlog reset
+dlog on
+dchrono t show
+set log_on [dlog get]
+
+dlog reset
+dlog off
+dchrono t show
+set log_off [dlog get]
+
+puts "log_on = ${log_on}"
+puts "log_off = ${log_off}"
+
+set llength_log_on [llength ${log_on}]
+set llength_log_off [llength ${log_off}]
+
+puts "llength log_on= [llength ${log_on}]"
+puts "llength log_off= [llength ${log_off}]"
+
+set status 0
+if { ${llength_log_on} > 0 } {
+ puts "dlog on work OK"
+} else {
+ puts "dlog on work Faulty"
+ set status 1
+}
+if { ${llength_log_off} == 0 } {
+ puts "dlog off work OK"
+} else {
+ puts "dlog off work Faulty"
+ set status 1
+}
+
+# Resume
+puts ""
+if { ${status} == 0 } {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
--- /dev/null
+puts "================"
+puts "OCC23165"
+puts "================"
+puts ""
+###################################################################################################################
+# BndLib_Add3dCurve::Add incorrectly segmented original B-Spline what resulting in wrong bounding box or exception.
+###################################################################################################################
+
+catch { pload XDE }
+
+set BugNumber OCC23165
+
+smallview
+
+# 1 step
+set exception_status 0
+set e1_status 0
+set status 0
+
+set percent_max 0.1
+
+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}
+}
+
+restore [locate_data_file OCC23165-edge1.brep] e1
+
+donly e1
+catch { bounding e1 } msg
+fit
+
+set index [lsearch $msg exception]
+if {$index > -1} {
+ set exception_status 1
+} else {
+ set e1_result [bounding e1]
+
+ set e1_x1 [lindex ${e1_result} 0]
+ set e1_y1 [lindex ${e1_result} 1]
+ set e1_z1 [lindex ${e1_result} 2]
+ set e1_x2 [lindex ${e1_result} 3]
+ set e1_y2 [lindex ${e1_result} 4]
+ set e1_z2 [lindex ${e1_result} 5]
+
+ set e1_good_x1 -17.610622244944413
+ set e1_good_y1 -0.010622244944394899
+ set e1_good_z1 -3.0106222449443973
+ set e1_good_x2 -17.589377755055537
+ set e1_good_y2 5.7106222251726582
+ set e1_good_z2 -1.6146050638816589
+
+ set e1_x1_percent [GetPercent ${e1_x1} ${e1_good_x1}]
+ set e1_y1_percent [GetPercent ${e1_y1} ${e1_good_y1}]
+ set e1_z1_percent [GetPercent ${e1_z1} ${e1_good_z1}]
+ set e1_x2_percent [GetPercent ${e1_x2} ${e1_good_x2}]
+ set e1_y2_percent [GetPercent ${e1_y2} ${e1_good_y2}]
+ set e1_z2_percent [GetPercent ${e1_z2} ${e1_good_z2}]
+
+ if {${e1_x1_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : x1 for e1 is wrong"
+ set e1_status 1
+ }
+ if {${e1_y1_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : y1 for e1 is wrong"
+ set e1_status 1
+ }
+ if {${e1_z1_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : z1 for e1 is wrong"
+ set e1_status 1
+ }
+ if {${e1_x2_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : x2 for e1 is wrong"
+ set e1_status 1
+ }
+ if {${e1_y2_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : y2 for e1 is wrong"
+ set e1_status 1
+ }
+ if {${e1_z2_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : z2 for e1 is wrong"
+ set e1_status 1
+ }
+
+}
+
+# 2 step
+restore [locate_data_file OCC23165-curve.rle] c
+mkedge result c 20 36
+
+donly result
+set result [bounding result]
+fit
+
+set x1 [lindex ${result} 0]
+set y1 [lindex ${result} 1]
+set z1 [lindex ${result} 2]
+set x2 [lindex ${result} 3]
+set y2 [lindex ${result} 4]
+set z2 [lindex ${result} 5]
+
+set good_x1 -17.6105835090592
+set good_y1 -4.7133570660117909
+set good_z1 -4.3679100133425806
+set good_x2 -17.589416490940806
+set good_y2 5.7105834892874094
+set good_z2 -1.6146437997669054
+
+set x1_percent [GetPercent ${x1} ${good_x1}]
+set y1_percent [GetPercent ${y1} ${good_y1}]
+set z1_percent [GetPercent ${z1} ${good_z1}]
+set x2_percent [GetPercent ${x2} ${good_x2}]
+set y2_percent [GetPercent ${y2} ${good_y2}]
+set z2_percent [GetPercent ${z2} ${good_z2}]
+
+if {${x1_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : x1 is wrong"
+ set status 1
+}
+if {${y1_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : y1 is wrong"
+ set status 1
+}
+if {${z1_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : z1 is wrong"
+ set status 1
+}
+if {${x2_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : x2 is wrong"
+ set status 1
+}
+if {${y2_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : y2 is wrong"
+ set status 1
+}
+if {${z2_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : z2 is wrong"
+ set status 1
+}
+
+if { ${status} == 0 && ${exception_status} == 0&& ${e1_status} == 0 } {
+ puts "${BugNumber}: OK"
+} else {
+ puts "${BugNumber}: Faulty"
+}
+
+set 2dviewer 1
+set length 15.8888
+
--- /dev/null
+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
+
--- /dev/null
+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
+
+
--- /dev/null
+puts "============"
+puts "OCC23201"
+puts "============"
+puts ""
+#######################################################################
+# Projection algorithm produces wrong results.
+#######################################################################
+
+set BugNumber OCC23201
+
+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}
+}
+
+restore [locate_data_file bug23201_Tool_1.brep] b2
+restore [locate_data_file bug23201_Tool_2.brep] b3
+
+explode b2 f
+mksurface s2 b2_1
+
+explode b3 f
+mksurface s3 b3_1
+
+explode b2 e
+mkcurve c2 b2_2
+
+explode b3 e
+mkcurve c3 b3_2
+
+set BugStatus 0
+
+set percent_max 0.1
+set good_c23 3.1415926535897922
+set good_c32 3.1415926535897922
+
+if [catch { project c23 c2 s3 } ] {
+ set BugStatus 1
+} else {
+ set c23_length [lindex [length c23] end]
+ set length_percent [GetPercent ${c23_length} ${good_c23}]
+ puts "length_percent = ${length_percent}"
+ if {${length_percent} > ${percent_max}} {
+ puts "c23: Faulty"
+ set BugStatus 1
+ } else {
+ puts "c23: OK"
+ }
+}
+
+if [catch { project c32 c3 s2 } ] {
+ set BugStatus 1
+} else {
+ set c32_length [lindex [length c32] end]
+ set length_percent [GetPercent ${c32_length} ${good_c32}]
+ puts "length_percent = ${length_percent}"
+ if {${length_percent} > ${percent_max}} {
+ puts "c32: Faulty"
+ set BugStatus 1
+ } else {
+ puts "c32: OK"
+ }
+}
+
+# Resume
+puts ""
+if { ${BugStatus} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
--- /dev/null
+puts "============"
+puts "OCC23224"
+puts "============"
+puts ""
+#######################################################################
+# Empty result done by intersection algorithm
+#######################################################################
+
+set BugNumber OCC23224
+
+restore [locate_data_file OCC23224-line.brep] l
+restore [locate_data_file OCC23224-face.brep] f
+mksurface s f
+mkcurve c l
+intersect result c s
+set info1 [dump result]
+
+if { [regexp {Point +: ([-0-9.+eE]+)} $info1 full] == 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+
--- /dev/null
+puts "================"
+puts "OCC23244"
+puts "================"
+puts ""
+#######################################################################
+# Bug of BRepClass_FaceClassifier: it does not take into account the tolerance
+#######################################################################
+
+set BugNumber OCC23244
+
+restore [locate_data_file OCC23244-comp.brep] a
+
+explode a
+explode a_1
+
+smallview
+donly a_1_2 a_3
+fit
+
+mkpoint p3 a_3
+projponf a_1_2 p3
+point pp3 69.220445243320853 1216.6123701316949
+
+set result [split [b2dclassify a_1_2 pp3 1.e-5] ]
+
+set ll [llength ${result}]
+if {${ll} < 4} {
+ puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
+} else {
+ if { [regexp "ON" $result] == 1 } {
+ puts "OK ${BugNumber}"
+ } else {
+ puts "Faulty ${BugNumber}"
+ }
+}
+
--- /dev/null
+puts "================"
+puts "OCC23248"
+puts "================"
+puts ""
+#######################################################################
+# Wrong result done by solid classifier algorithm for infinite point
+#######################################################################
+
+set BugNumber OCC23248
+
+restore [locate_data_file bug23248_so] b
+
+set result [split [xclassify b 1e-7]]
+
+set ll [llength ${result}]
+if {${ll} < 3} {
+ puts "Bad format of xclassify draw-command; Faulty ${BugNumber}"
+} else {
+ set status [lindex ${result} 2]
+ if { [regexp "OUT" $result] == 1 } {
+ puts "OK ${BugNumber}"
+ } else {
+ puts "Faulty ${BugNumber}"
+ }
+}
+
+
--- /dev/null
+puts "============"
+puts "CR23464"
+puts "============"
+puts ""
+##########################################################################################################
+# Projection algorithm produces wrong results
+##########################################################################################################
+
+set int_check 3
+set fract_check 1415927
+
+restore [locate_data_file bug23464_c41.draw] c41
+restore [locate_data_file bug23464_s46.draw] s46
+
+project result c41 s46
+set info [length result]
+regexp {is +([-0-9.+eE]+)} $info full num
+
+set int_part [expr round($num)]
+set y [expr $num - round($num)]
+set z [expr $y*10000000]
+set fract_part [expr round($z)]
+
+if { ${int_check} != ${int_part} } {
+ puts "Error : Integer part of result is incorrect"
+}
+
+if { ${fract_check} != ${fract_part} } {
+ puts "Error : Fractional part of result is incorrect"
+}
+
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23464"
+puts "============"
+puts ""
+##########################################################################################################
+# Projection algorithm produces wrong results
+##########################################################################################################
+
+set int_check 3
+set fract_check 1415927
+
+restore [locate_data_file bug23464_c50.draw] c50
+restore [locate_data_file bug23464_s37.draw] s37
+
+project result c50 s37
+set info [length result]
+regexp {is +([-0-9.+eE]+)} $info full num
+
+set int_part [expr round($num)]
+set y [expr $num - round($num)]
+set z [expr $y*10000000]
+set fract_part [expr round($z)]
+
+if { ${int_check} != ${int_part} } {
+ puts "Error : Integer part of result is incorrect"
+}
+
+if { ${fract_check} != ${fract_part} } {
+ puts "Error : Fractional part of result is incorrect"
+}
+
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23464"
+puts "============"
+puts ""
+##########################################################################################################
+# Projection algorithm produces wrong results
+##########################################################################################################
+
+set int_check 3
+set fract_check 1415927
+
+restore [locate_data_file bug23464_c57.draw] c57
+restore [locate_data_file bug23464_s37.draw] s37
+
+project result c57 s37
+set info [length result]
+regexp {is +([-0-9.+eE]+)} $info full num
+
+set int_part [expr round($num)]
+set y [expr $num - round($num)]
+set z [expr $y*10000000]
+set fract_part [expr round($z)]
+
+if { ${int_check} != ${int_part} } {
+ puts "Error : Integer part of result is incorrect"
+}
+
+if { ${fract_check} != ${fract_part} } {
+ puts "Error : Fractional part of result is incorrect"
+}
+
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23464"
+puts "============"
+puts ""
+##########################################################################################################
+# Projection algorithm produces wrong results
+##########################################################################################################
+
+set int_check 3
+set fract_check 1415927
+
+restore [locate_data_file bug23464_c58.draw] c58
+restore [locate_data_file bug23464_s37.draw] s37
+
+project result c58 s37
+set info [length result]
+regexp {is +([-0-9.+eE]+)} $info full num
+
+set int_part [expr round($num)]
+set y [expr $num - round($num)]
+set z [expr $y*10000000]
+set fract_part [expr round($z)]
+
+if { ${int_check} != ${int_part} } {
+ puts "Error : Integer part of result is incorrect"
+}
+
+if { ${fract_check} != ${fract_part} } {
+ puts "Error : Fractional part of result is incorrect"
+}
+
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23464"
+puts "============"
+puts ""
+##########################################################################################################
+# Projection algorithm produces wrong results
+##########################################################################################################
+
+set int_check 3
+set fract_check 1415927
+
+restore [locate_data_file bug23464_c57.draw] c57
+restore [locate_data_file bug23464_s46.draw] s46
+
+project result c57 s46
+set info [length result]
+regexp {is +([-0-9.+eE]+)} $info full num
+
+set int_part [expr round($num)]
+set y [expr $num - round($num)]
+set z [expr $y*10000000]
+set fract_part [expr round($z)]
+
+if { ${int_check} != ${int_part} } {
+ puts "Error : Integer part of result is incorrect"
+}
+
+if { ${fract_check} != ${fract_part} } {
+ puts "Error : Fractional part of result is incorrect"
+}
+
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23464"
+puts "============"
+puts ""
+##########################################################################################################
+# Projection algorithm produces wrong results
+##########################################################################################################
+
+set int_check 3
+set fract_check 1415927
+
+restore [locate_data_file bug23464_c58.draw] c58
+restore [locate_data_file bug23464_s46.draw] s46
+
+project result c58 s46
+set info [length result]
+regexp {is +([-0-9.+eE]+)} $info full num
+
+set int_part [expr round($num)]
+set y [expr $num - round($num)]
+set z [expr $y*10000000]
+set fract_part [expr round($z)]
+
+if { ${int_check} != ${int_part} } {
+ puts "Error : Integer part of result is incorrect"
+}
+
+if { ${fract_check} != ${fract_part} } {
+ puts "Error : Fractional part of result is incorrect"
+}
+
+
+
+
+
--- /dev/null
+puts "============"
+puts "CR23475"
+puts "==========="
+puts ""
+###############################################################################
+# Wrong result of Geom_BSpline_Surface::IsVClosed()
+###############################################################################
+
+restore [locate_data_file bug23475.draw] s1
+set info [dump s1]
+
+if { [regexp "BSplineSurface vclosed" $info] != 1} {
+ puts "Error : surface is not closed by V"
+}
+
+
--- /dev/null
+puts "================"
+puts "OCC235"
+puts "================"
+puts ""
+#######################################################
+## Intersection algorithm finds two intersection curves. One curve is closed while
+## second is not (the distance between first and last points is 2e-5).
+#######################################################
+
+restore [locate_data_file OCC235a.rle] su1
+############### checkshape su1 # is not a topological shape
+restore [locate_data_file OCC235b.rle] su2
+############### checkshape su2 # is not a topological shape
+
+intersect result su1 su2
+
+set dir [directory]
+set nb_result [regexp -all {result} $dir]
+if { $nb_result != 2 } {
+ puts "Faulty OCC235 (first checking): Intersection was made WRONGLY"
+} else {
+ puts "OCC235 OK (first checking) : Intersection command works properly"
+
+ regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_1] full num_1
+ if { $num_1 != 0 } {
+ puts " Faulty OCC235 (second checking): Result result_1 is UNclosed !!! "
+ } else {
+ puts " OCC235 OK (second checking): Result result_1 is closed !!! "
+ }
+
+ regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_2] full num_2
+ if { $num_2 != 0 } {
+ puts " Faulty OCC235 (second checking): Result result_2 is UNclosed !!! "
+ } else {
+ puts " OCC235 OK (second checking): Result result_2 is closed !!! "
+ }
+}
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "============"
+puts "OCC23576"
+puts "============"
+puts ""
+#######################################################################
+# Intersection algorithm produces trimmed circle with illegal parametric range.
+#######################################################################
+
+restore [locate_data_file bug23576_ff_b1_4_z564.brep] b1
+
+explode b1
+bopcurves b1_1 b1_2
+copy c_1 result
+
+set log [dump result]
+
+regexp {Parameters : +([-0-9.+eE]+) +([-0-9.+eE]+)} ${log} full rc1 rc2
+puts "rc1=${rc1}"
+puts "rc2=${rc2}"
+set 2_PI [expr 2. * 2. * asin(1.0)]
+puts "2_PI=${2_PI}"
+puts ""
+
+if {${rc1} < 0.} {
+ puts "Error: Bad value of parametric range rc1"
+} else {
+ puts "Good value of parametric range rc1"
+}
+if {${rc2} > ${2_PI}} {
+ puts "Error: Bad value of parametric range rc2"
+} else {
+ puts "Good value of parametric range rc2"
+}
--- /dev/null
+puts "============"
+puts "CR23587"
+puts "==========="
+puts ""
+###############################################################################
+# Operation "2dintersect "in TestHarness can not find intersection point of two intersecting 2d curves.
+###############################################################################
+
+restore [locate_data_file bug23587_IntEdges.brep] a
+
+explode a
+
+plane pl1 0 0 0 0 0 1
+trim trpl1 pl1 -1000 1000 -1000 1000
+mkface f1 trpl1
+pcurve c1 a_1 f1
+pcurve c2 a_2 f1
+pcurve c3 a_3 f1
+pcurve c4 a_4 f1
+set inter1 [2dintersect c1 c2 1.e-6]
+set inter2 [2dintersect c3 c2 1.e-6]
+set inter3 [2dintersect c1 c4 1.e-6]
+set inter4 [2dintersect c3 c4 1.e-6]
+set int1 [regexp {Intersection point 1} $inter1]
+set int2 [regexp {Intersection point 1} $inter2]
+set int3 [regexp {Intersection point 1} $inter3]
+set int4 [regexp {Intersection point 1} $inter4]
+
+if { $int1 == 0 || $int2 == 0 || $int3 == 0 || $int4 ==0 } {
+ puts "Error : Intersection is not found"
+}
+
+av2d
+2dfit
+
+xwd ${imagedir}/${test_image}.png
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC236"
+
+puts "================"
+puts "OCC236"
+puts "================"
+puts ""
+#######################################################
+##Result of intersection of two surfaces of linear extrusion is incorrect.
+#######################################################
+
+restore [locate_data_file OCC236a.rle] su1
+############### checkshape su1 # is not a topological shape
+restore [locate_data_file OCC236b.rle] su2
+############### checkshape su2 # is not a topological shape
+
+intersect result su1 su2
+
+set che [directory]
+set err [lindex $che [expr [llength $che] - 1]]
+if { $err != "result_2"} {
+ puts "Faulty OCC236"
+} else {
+ puts "OCC236 OK (first checking) : Intersection command works properly"
+ regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_1] full num
+ if { $num != 0 } {
+ puts " Faulty OCC236 (second checking): Result result_1 is UNclosed !!! "
+ } else {
+ puts " OCC236 OK (second checking): Result result_1 is closed !!! "
+ puts ""
+ }
+ regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_2] full num
+ if { $num != 0 } {
+ puts " Faulty OCC236 (second checking): Result result_2 is UNclosed !!! "
+ } else {
+ puts " OCC236 OK (second checking): Result result_2 is closed !!! "
+ }
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "CR23603"
+puts "============"
+puts ""
+##########################################################################################################
+# Boolean operation between two edges fails
+##########################################################################################################
+
+restore [locate_data_file bug23603_ce.brep] b1
+explode b1
+copy b1_1 e1
+copy b1_2 e2
+
+bop e1 e2
--- /dev/null
+puts "========================"
+puts "OCC23643"
+puts "========================"
+puts ""
+#######################################################################
+# Intersection algorithm produces B-Spline curve in case of coaxial cones
+#######################################################################
+
+restore [locate_data_file bug23643_qf3.brep] b
+
+explode b
+copy b_1 f1
+copy b_2 f2
+
+mksurface s1 f1
+mksurface s2 f2
+
+trim s1t s1 0 2*pi -18 10
+trim s2t s2 0 2*pi -18 10
+
+intersect result s1t s2t
+
+set log [dump result]
+
+if {[regexp {Trimmed +curve} ${log}]} {
+ puts "Intersection algorithm work OK"
+} else {
+ puts "Error: Intersection algorithm work bad"
+}
--- /dev/null
+puts "========"
+puts "CR23644"
+puts "========"
+
+##########################################
+## Intersection between coaxial cones produces exception
+##########################################
+
+pcone cn1 10 0 20
+pcone cn2 20 0 20
+explode cn1 f
+explode cn2 f
+copy cn1_1 f1
+copy cn2_1 f2
+
+if [catch {bopcurves f1 f2} BOPLog] {
+ if { [regexp "Tolerance Reached=0\n has no 3d curve" ${BOPLog}] != 1 } {
+ puts "CR23644: Error"
+ }
+}
--- /dev/null
+puts "================"
+puts "OCC237"
+puts "================"
+puts ""
+#######################################################
+## Hang-ups during the intersection of attached surfaces
+#######################################################
+
+restore [locate_data_file OCC236b.rle] su1
+############### checkshape su1 # is not a topological shape
+restore [locate_data_file OCC237b.rle] su2
+############### checkshape su2 # is not a topological shape
+
+if [catch {intersect result su1 su2 }] {
+ set mistake 1
+} else {
+ set mistake 0
+}
+
+if { $mistake != 0} {
+ puts "Faulty OCC237: Intersection was made WRONGLY"
+} else {
+ puts "OCC237 OK : Intersection command works properly"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC11111 ALL: OCC2442 Faulty"
+
+puts "============"
+puts "OCC2442"
+puts "============"
+puts ""
+######################################################
+# Error in BRepClass3d_SolidClassifier
+######################################################
+
+set IsGood 1
+
+restore [locate_data_file OCC2442-1.brep] a
+restore [locate_data_file OCC2442-2.brep] b
+
+distmini dm1 a b
+set dm1_list [dump dm1_val]
+set dm1_length [llength $dm1_list]
+if {$dm1_length < 6} {
+ puts "Faulty OCC2442"
+ set IsGood 0
+}
+
+explode a
+explode b
+distmini dm2 a_1 b_1
+set dm2_list [dump dm2_val]
+set dm2_length [llength $dm2_list]
+if {$dm2_length < 6} {
+ puts "Faulty OCC2442"
+ set IsGood 0
+}
+
+if {$IsGood == 1} {
+ regexp {([-0-9.+eE]+)} $dm1_list full dist1
+ regexp {([-0-9.+eE]+)} $dm2_list full dist2
+
+ set good_dist 18.4816355578064
+ set dist1_percent [expr abs(${dist1} - ${good_dist}) / double(${good_dist}) * 100.]
+
+ set dist2_percent [expr abs(${dist1} - ${dist2}) / double(${dist2}) * 100.]
+
+ set percent_max 0.1
+
+ if {${dist1_percent} > ${percent_max}} {
+ puts "OCC2442 Faulty"
+ set IsGood 0
+ }
+ if {${dist2_percent} > ${percent_max}} {
+ puts "OCC2442 Faulty"
+ set IsGood 0
+ }
+ if {${IsGood} == 1} {
+ puts "OCC2442 OK"
+ }
+}
+
+set boundbox [boundingstr a]
+set x0 [lindex $boundbox 0]
+set y0 [lindex $boundbox 1]
+set z0 [lindex $boundbox 2]
+ttranslate a [expr -1 * $x0] [expr -1 * $y0] [expr -1 * $z0]
+ttranslate b [expr -1 * $x0] [expr -1 * $y0] [expr -1 * $z0]
+
+set 3dviewer 1
--- /dev/null
+
+puts "========================"
+puts " OCC247 "
+puts "========================"
+
+#################################################
+##Using of function "bop" with attached shapes calls exception.
+#################################################
+restore [locate_data_file OCC247a.brep] a
+restore [locate_data_file case_8_wire3.brep] b
+
+bop a b
+
+
+
+
+
\ No newline at end of file
--- /dev/null
+puts "================"
+puts "OCC25"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC25-1.brep] sh1
+
+decho off
+set che [checkshape sh1]
+decho on
+
+if { [regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC25 (case 1): Checkshape says that the wire on face has bad orientation, but it is not truth"
+} else {
+ puts "OCC25 OK (case 1): Checkshape works properly"
+}
+
+# ================================================
+restore [locate_data_file OCC25-2.brep] sh2
+
+decho off
+set che [checkshape sh2]
+decho on
+
+if { [regexp {BRepCheck_BadOrientationOfSubshape} $che] && [regexp {BRepCheck_UnorientableShape} $che]} {
+ puts " OCC25 (case 2) OK: Checkshape works properly"
+} else {
+ puts "Faulty OCC25 (case 2): Checkshape works wrongly"
+}
+
+compound sh1 sh2 result
+
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "================"
+puts "OCC252"
+puts "================"
+puts ""
+
+pload QAcommands
+
+restore [locate_data_file OCC252.brep] a
+
+checkshape a
+
+explode a w
+
+OCC252 result a_466 a 0
+
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
+
+if { ${len} <= 0 } {
+ puts "Error : OCC252"
+}
+
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC252"
+puts "================"
+puts ""
+
+pload QAcommands
+
+restore [locate_data_file OCC252.brep] a
+checkshape a
+
+explode a w
+
+OCC252 result a_466 a 1
+
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
+
+if { ${len} != 0 } {
+ puts "Error : OCC252"
+}
+
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC252"
+puts "================"
+puts ""
+
+pload QAcommands
+
+restore [locate_data_file OCC252.brep] a
+checkshape a
+
+explode a w
+
+OCC252 result a_466 a 2
+
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
+
+if { ${len} <= 0 } {
+ puts "Error : OCC252"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "========"
+puts "OCC253"
+puts "========"
+
+######################################################
+## Exception while segment operation on periodic BSpline curve.
+## More over it seems that command segment in Draw doesnot work.
+######################################################
+
+restore [locate_data_file OCC253.draw] result
+############### checkshape c1 # is not a topological shape
+
+smallview -2D-
+
+#store dump of initial curve
+set init_dump [dump result]
+
+set ufirst 0.500000000000006
+set ulast 1.00000000015925
+catch { segment result $ufirst $ulast }
+
+#compare dump of initial curve and dump of result one
+set result_dump [dump result]
+if { $init_dump == $result_dump} {
+ puts "Faulty OCC253: command segment does NOT do anything"
+}
+
+#retrieve amount of knots of result curve from dump
+regexp { +Degree +[-0-9.+eE]+, +[-0-9.+eE]+ +Poles, +([-0-9.+eE]+) +KnotsPoles +:} $result_dump full KnotsNumber
+#create string to be found in result dump
+set trueLastKnot "$KnotsNumber : 1.00000000015925 "
+
+#verify parametrization of result curve
+if { [regexp "1 : 0.500000000000006 " $result_dump] && [regexp $trueLastKnot $result_dump]} {
+ puts " OCC253 is OK: command segment works properly"
+} else {
+ puts "Faulty OCC253: parametrization of result curve is wrong"
+}
+
+2dfit
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "================"
+puts "OCC254"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC254-1.brep] shape1
+checkshape shape1
+
+restore [locate_data_file OCC254-3.brep] shape3
+checkshape shape3
+
+common result shape1 shape3
+checkshape result
+
+set length 1231.07
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC256"
+puts "========"
+
+restore [locate_data_file OCC256.brep] result
+checkshape result
+
+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 != 66 && $nod != 66 } {
+ puts "Error : here is shading problem"
+}
+
+set 3dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC2569"
+puts "============"
+puts ""
+######################################################
+# If it is not possible to create the bezier curve,
+# it should throw an exception.
+######################################################
+cpulimit 60
+vinit
+set out [OCC2569 26 result]
+if {[string compare $out "\n Degree = 25\n"] == 0} {
+ puts "OCC2569: OK"
+} else {
+ puts "OCC2569: Faulty"
+}
+
+set 3dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Exception"
+puts "TODO OCC11111 ALL: An exception was caught"
+puts "TODO OCC11111 ALL: TEST INCOMPLETE"
+
+pload QAcommands
+
+puts "============"
+puts "OCC2569"
+puts "============"
+puts ""
+######################################################
+# If it is not possible to create the bezier curve,
+# it should throw an exception.
+######################################################
+cpulimit 60
+vinit
+
+OCC2569 29 result
+
+set 3dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: OCC257 - Error : xdelta= 3.6651128509496784"
+puts "TODO OCC12345 ALL: OCC257 - Error : ydelta= 5.840378793387278"
+puts "TODO OCC12345 ALL: OCC257 - Error : zdelta= 1.4898469085120623"
+
+puts "================"
+puts "OCC257"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC257.brep] result
+checkshape result
+
+set bb [bounding result]
+
+set list [split ${bb}]
+set listLength [llength ${list}]
+if { ${listLength} < 6 } {
+ puts "Error : listLength = ${listLength}"
+}
+
+set x1 [lindex ${list} 0]
+set y1 [lindex ${list} 1]
+set z1 [lindex ${list} 2]
+set x2 [lindex ${list} 3]
+set y2 [lindex ${list} 4]
+set z2 [lindex ${list} 5]
+
+set len [expr ${x2} - ${x1}]
+set width [expr ${y2} - ${y1}]
+set height [expr ${z2} - ${z1}]
+
+set R 180
+
+set xdelta [expr abs(${len} - ${R}) / ${R} * 100]
+set ydelta [expr abs(${width} - ${R}) / ${R} * 100]
+set zdelta [expr abs(${height} - ${R}) / ${R} * 100]
+
+set maxdelta 0.1
+
+if { ${xdelta} > ${maxdelta} } then {puts "OCC257 - Error : xdelta= ${xdelta}"}
+if { ${ydelta} > ${maxdelta} } then {puts "OCC257 - Error : ydelta= ${ydelta}"}
+if { ${zdelta} > ${maxdelta} } then {puts "OCC257 - Error : zdelta= ${zdelta}"}
+
+if { ${xdelta} <= ${maxdelta} && ${ydelta} <= ${maxdelta} && ${zdelta} <= ${maxdelta} } then {
+ puts "OCC257: OK"
+}
+
+set 3dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC258 "
+puts "(case 1)"
+puts "========================"
+
+restore [locate_data_file shading_143.brep] result
+checkshape result
+
+tclean result
+isos result 0
+vinit
+vdisplay result
+vsetdispmode result 1
+vfit
+triangles result
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri < 71 || $nod < 73 } {
+ puts "Error (case 1) : here is shading problem"
+}
+
+set 3dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC258 "
+puts "(case 2)"
+puts "========================"
+
+restore [locate_data_file shading_144.brep] result
+checkshape result
+
+tclean result
+isos result 0
+vinit
+vdisplay result
+vsetdispmode result 1
+vfit
+triangles result
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri < 70 || $nod < 72 } {
+ puts "Error (case 2) : here is shading problem"
+}
+
+set 3dviewer 0
+
+
--- /dev/null
+
+puts "========================"
+puts " OCC259 "
+puts "========================"
+puts ""
+######################################################
+##Inequality behaviour of checkshape -top on SunOS and IRIX.
+######################################################
+
+pcylinder b1 1 2
+
+dset r sqrt(2)/2
+box b2 -r -r 0 2*r 2*r 2
+trotate b2 0 0 0 0 0 1 135
+
+bfuse result b2 b1
+checkshape -top result
+
+set square 18.8496
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC262"
+puts "========"
+
+restore [locate_data_file OCC262.brep] a
+# checkshape a
+
+set tolerance 1e-5
+
+build3d a ${tolerance}
+
+fsameparameter a
+
+explode a E
+# Verify only a_1 and a_2 eges becouse a_3 had 3d curve before call of build3d command
+
+set toler1 [maxtolerance a_1]
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $toler1 full MaxEdgeTolerance1
+
+if { [ expr $MaxEdgeTolerance1 > $tolerance ] } {
+ puts "OCC262 - FAULTY. Tolerance of a_1 is too big"
+} else {
+ puts "TOLERANCE OF A_1 - OK"
+}
+
+set toler2 [maxtolerance a_2]
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $toler2 full MaxEdgeTolerance2
+
+if { [ expr $MaxEdgeTolerance2 > $tolerance ] } {
+ puts "OCC262 - FAULTY. Tolerance of a_1 is too big"
+} else {
+ puts "TOLERANCE OF A_2 - OK"
+}
+
+
+#set tolerancelist [maxtolerance a]
+
+#set list [split ${tolerancelist} "\n\t"]
+#set listLength [llength ${list}]
+#if { ${listLength} < 9 } then {puts "OCC262 - Error : listLength= ${listLength}"}
+
+#set EdgeList [lindex ${list} 5]
+#set MaxEdgeTolerance [lindex [split ${EdgeList}] [expr [llength [split ${EdgeList}] ] - 2] ]
+
+#set delta [expr abs(${MaxEdgeTolerance} - ${tolerance}) / ${tolerance} * 100]
+
+#set maxdelta 1
+
+#if { ${delta} > ${maxdelta} } then {puts "OCC262 - Error : delta = ${delta}"} else {
+# puts "OCC262: OK"
+#}
+
+#puts "MaxEdgeTolerance = ${MaxEdgeTolerance}"
+
+renamevar a result
+
+set square 449.437
+set 2dviewer 0
--- /dev/null
+puts "========"
+puts "OCC265"
+puts "========"
+puts ""
+###############################################
+##Exception while projecting hyperbola on plane.
+###############################################
+
+restore [locate_data_file OCC265-hyperbola.draw] hyperbola
+restore [locate_data_file OCC265-plane.draw] plane
+
+projonplane result hyperbola plane
+
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "================"
+puts "OCC266"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC266.brep] a
+checkshape a
+
+renamevar a edge
+explode edge e
+
+renamevar edge face
+explode face f
+
+chamf result face edge_10 face_3 A 1 45 edge_6 face_3 A 1 45 edge_11 face_3 A 1 45 edge_12 face_3 A 1 45 edge_13 face_3 A 1 45 edge_14 face_3 A 1 45 edge_8 face_3 A 1 45 edge_9 face_3 A 1 45
+checkshape result
+
+set square 48913
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC268"
+puts "========"
+puts ""
+###########################################################
+## Using of command "lprops" for shapes that contain degenerated edges call exception.
+###########################################################
+
+restore [locate_data_file OCC268.brep] result
+checkshape result
+
+set length 56.6039
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC26"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC26.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_1 a_2
+
+set square 44819.9
+set 2dviewer 0
+
+
+
--- /dev/null
+
+puts "================"
+puts "OCC26"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC26.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_2 a_1
+
+set square 44819.8
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC271 "
+puts "========================"
+puts ""
+
+restore [locate_data_file OCC271a.rle] su1
+restore [locate_data_file OCC271b.rle] su2
+
+set U1 2.315721254379057e-16
+set U2 0.01131870392278708
+set V1 226.9760100729095
+set V2 203.7283534809051
+
+intersect result su1 su2 $U1 $V1 $U2 $V2
+
+set che [whatis result]
+
+if { ![regexp {3d} $che] || ![regexp {curve} $che]} {
+ puts "Faulty OCC271: command INTERSECT works wrongly"
+} else {
+ puts "OCC271 OK : command INTERSECT works properly"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC2755"
+puts "============"
+puts ""
+######################################################
+# Boolean Bug in OCC5.0 with the shape having a ellipse curve
+######################################################
+
+restore [locate_data_file OCC2755.brep] a
+
+checkshape a
+
+explode a f
+mksurface gs a_1
+set list [proj gs 0 10 50]
+set ll 4
+
+set good_Parameter1List [list 0 0 0 0]
+set good_Parameter2List [list 40.4616826479819 211.944716681974 64.3186164305428 81.0582330575794]
+set good_OriginXList [list 0 0 0 0]
+set good_OriginYList [list 10 10 10 10]
+set good_OriginZList [list 50 50 50 50]
+set good_AxisXList [list -0.0300865818651084 -0.941236271764613 0.534306660761684 0.998573938898137]
+set good_AxisYList [list 0.999547296325529 -0.337748842654791 -0.845290714645381 0.0533862206328518]
+set good_AxisZList [list 0 0 0 0]
+
+proc CalculatePercent {value good_value} {
+ if {${good_value} == 0. && ${value} == 0.} {
+ set percent 0.
+ } else {
+ set percent [expr abs(${value} - ${good_value}) / double(${good_value}) * 100.]
+ }
+ return ${percent}
+}
+
+if {[llength ${list}] != ${ll}} {
+ puts "Faulty OCC2755"
+} else {
+ set percent_max 0.1
+ set IsGood 1
+ for {set i 0} {$i < ${ll}} {incr i} {
+ set dump_list [dump [lindex ${list} $i]]
+ regexp { *Parameters *: *([-0-9.+eE]+) *([-0-9.+eE]+)} $dump_list full Parameter1 Parameter2
+ regexp { *Origin *:([-0-9.+eE]+), *([-0-9.+eE]+), *([-0-9.+eE]+)} $dump_list full OriginX OriginY OriginZ
+ regexp { *Axis *:([-0-9.+eE]+), *([-0-9.+eE]+), *([-0-9.+eE]+)} $dump_list full AxisX AxisY AxisZ
+
+ set good_Parameter1 [lindex ${good_Parameter1List} $i]
+ set good_Parameter2 [lindex ${good_Parameter2List} $i]
+ set good_OriginX [lindex ${good_OriginXList} $i]
+ set good_OriginY [lindex ${good_OriginYList} $i]
+ set good_OriginZ [lindex ${good_OriginZList} $i]
+ set good_AxisX [lindex ${good_AxisXList} $i]
+ set good_AxisY [lindex ${good_AxisYList} $i]
+ set good_AxisZ [lindex ${good_AxisZList} $i]
+
+ set Parameter1_percent [CalculatePercent ${Parameter1} ${good_Parameter1}]
+ set Parameter2_percent [CalculatePercent ${Parameter2} ${good_Parameter2}]
+ set OriginX_percent [CalculatePercent ${OriginX} ${good_OriginX}]
+ set OriginY_percent [CalculatePercent ${OriginY} ${good_OriginY}]
+ set OriginZ_percent [CalculatePercent ${OriginZ} ${good_OriginZ}]
+ set AxisX_percent [CalculatePercent ${AxisX} ${good_AxisX}]
+ set AxisY_percent [CalculatePercent ${AxisY} ${good_AxisY}]
+ set AxisZ_percent [CalculatePercent ${AxisZ} ${good_AxisZ}]
+
+ puts "good_Parameter1 = ${good_Parameter1}"
+ puts "Parameter1 = ${Parameter1}"
+ puts "Parameter1_percent = ${Parameter1_percent}\n"
+
+ puts "good_Parameter2 = ${good_Parameter2}"
+ puts "Parameter2 = ${Parameter2}"
+ puts "Parameter2_percent = ${Parameter2_percent}\n"
+
+ puts "good_OriginX = ${good_OriginX}"
+ puts "OriginX = ${OriginX}"
+ puts "OriginX_percent = ${OriginX_percent}\n"
+
+ puts "good_OriginY = ${good_OriginY}"
+ puts "OriginY = ${OriginY}"
+ puts "OriginY_percent = ${OriginY_percent}\n"
+
+ puts "good_OriginZ = ${good_OriginZ}"
+ puts "OriginZ = ${OriginZ}"
+ puts "OriginZ_percent = ${OriginZ_percent}\n"
+
+ puts "good_AxisX = ${good_AxisX}"
+ puts "AxisX = ${AxisX}"
+ puts "AxisX_percent = ${AxisX_percent}\n"
+
+ puts "good_AxisY = ${good_AxisY}"
+ puts "AxisY = ${AxisY}"
+ puts "AxisY_percent = ${AxisY_percent}\n"
+
+ puts "good_AxisZ = ${good_AxisZ}"
+ puts "AxisZ = ${AxisZ}"
+ puts "AxisZ_percent = ${AxisZ_percent}\n"
+
+ if {${Parameter1_percent} > ${percent_max}} {
+ puts "OCC2755 Faulty (case 3 / $i)"
+ set IsGood 0
+ }
+ if {${Parameter2_percent} > ${percent_max}} {
+ puts "OCC2755 Faulty (case 3 / $i)"
+ set IsGood 0
+ }
+ if {${OriginX_percent} > ${percent_max}} {
+ puts "OCC2755 Faulty (case 3 / $i)"
+ set IsGood 0
+ }
+ if {${OriginY_percent} > ${percent_max}} {
+ puts "OCC2755 Faulty (case 3 / $i)"
+ set IsGood 0
+ }
+ if {${OriginZ_percent} > ${percent_max}} {
+ puts "OCC2755 Faulty (case 3 / $i)"
+ set IsGood 0
+ }
+ if {${AxisX_percent} > ${percent_max}} {
+ puts "OCC2755 Faulty (case 3 / $i)"
+ set IsGood 0
+ }
+ if {${AxisY_percent} > ${percent_max}} {
+ puts "OCC2755 Faulty (case 3 / $i)"
+ set IsGood 0
+ }
+ if {${AxisZ_percent} > ${percent_max}} {
+ puts "OCC2755 Faulty (case 3 / $i)"
+ set IsGood 0
+ }
+
+ }
+
+ if {${IsGood} == 1} {
+ puts "OCC2755 OK"
+ }
+
+}
+
+set 3dviewer 0
+
--- /dev/null
+puts "========"
+puts "OCC276"
+puts "========"
+puts ""
+#########################################################
+##Bad performance of checkshape on faces with multiple wires
+#########################################################
+
+restore [locate_data_file OCC276.brep] result
+
+dchrono h2 reset
+dchrono h2 start
+
+checkshape result
+
+dchrono h2 stop
+set q2 [ dchrono h2 show ]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
+if { [expr $z2 > 43] } {
+ puts "Elapsed time is more then 43 seconds - Faulty"
+} else {
+ puts "Elapsed time is less then 43 seconds - OK"
+}
+
+set 2dviewer 0
+
+
+
+
+
--- /dev/null
+puts "========"
+puts "OCC277"
+puts "========"
+puts ""
+
+pload QAcommands
+
+OCC277
+
+set listmem {}
+set i_max 10
+for {set i 1} {${i} <= ${i_max}} {incr i} {
+ OCC277
+
+ lappend listmem [expr [meminfo w] / 1024]
+ if { [checktrend $listmem 0 1 "Memory leak detected"] } {
+ puts "No memory leak, $i iterations"
+ break
+ }
+}
--- /dev/null
+puts "============"
+puts "OCC2784"
+puts "============"
+puts ""
+######################################################
+# Common and cut operations for two faces gives invalid result
+######################################################
+# Common and cut operations for two faces gives invalid result if one of the faces
+# has a hole and other face lay in this hole (fill this hole).
+######################################################
+## (new topology)
+## (bcut)
+## (bcommon)
+######################################################
+
+############# data #############
+box b1 10 20 10
+box b2 1 1 1
+ttranslate b2 5 5 0
+explode b1 f
+explode b2 f
+
+bcut rcut1 b1_5 b2_5
+checkshape rcut1
+
+bcommon result rcut1 b2_5
+
+regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
+
+if { $m != 0 } {
+ puts "Error : square is not right"
+}
+
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC2784"
+puts "============"
+puts ""
+######################################################
+# Common and cut operations for two faces gives invalid result
+######################################################
+# Common and cut operations for two faces gives invalid result if one of the faces
+# has a hole and other face lay in this hole (fill this hole).
+######################################################
+## (old topology)
+## (cut)
+## (common)
+######################################################
+
+############# data #############
+box b1 10 20 10
+box b2 1 1 1
+ttranslate b2 5 5 0
+explode b1 f
+explode b2 f
+
+bcut rcut1 b1_5 b2_5
+checkshape rcut1
+
+bcommon result rcut1 b2_5
+
+regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
+
+if { $m != 0 } {
+ puts "Error : square is not right"
+}
+
+set 3dviewer 1
+
--- /dev/null
+
+puts "========"
+puts "OCC278"
+puts " (case 1)"
+puts "========"
+
+######################################################################
+##Command "checkshape" does not define self-crossing for some wires and assigns status "valid" for them.
+## NOTE akm: there is no actual intersection - it was a bug in displaying complicated curves (my patch deals with it)
+## NOTE akm: wire alone is only a curve in the space so it may intersect itself.
+## NOTE akm: bug after putting it on plane checkshape found the pb.
+#######################################################################
+
+restore [locate_data_file OCC278a.brep] a
+
+mkplane result a
+checkshape result
+
+set square 2914.99
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC278"
+puts " (case 2)"
+puts "========"
+
+######################################################################
+##Command "checkshape" does not define self-crossing for some wires and assigns status "valid" for them.
+## NOTE akm: there is no actual intersection - it was a bug in displaying complicated curves (my patch deals with it)
+## NOTE akm: wire alone is only a curve in the space so it may intersect itself.
+## NOTE akm: bug after putting it on plane checkshape found the pb.
+#######################################################################
+
+restore [locate_data_file OCC278b.brep] a
+
+mkplane result a
+checkshape result
+
+set square 22740
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC278"
+puts " (case 3)"
+puts "========"
+
+######################################################################
+##Command "checkshape" does not define self-crossing for some wires and assigns status "valid" for them.
+## NOTE akm: there is no actual intersection - it was a bug in displaying complicated curves (my patch deals with it)
+## NOTE akm: wire alone is only a curve in the space so it may intersect itself.
+## NOTE akm: bug after putting it on plane checkshape found the pb.
+#######################################################################
+
+restore [locate_data_file OCC278c.brep] a
+
+mkplane result a
+decho off
+set che [checkshape result]
+decho on
+
+if { [regexp "Faulty" $che] != 1 } {
+ puts "Error (case 3) : Checkshape command works wrongly"
+}
+
+set square 43.3075
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC27"
+puts "================"
+puts ""
+
+restore [locate_data_file shading_128.brep] a
+checkshape a
+
+explode a e
+blend result a 1 a_5 1 a_6 1 a_7 1 a_8
+checkshape result
+
+set square 155.846
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC27"
+puts "================"
+puts ""
+
+restore [locate_data_file shading_128.brep] a
+checkshape a
+
+explode a e
+explode a f
+chamf result a a_5 a_1 A 1 45 a_6 a_1 A 1 45 a_7 a_1 A 1 45 a_8 a_1 A 1 45
+checkshape result
+
+set square 154.145
+set 2dviewer 0
+
--- /dev/null
+puts "========"
+puts "OCC284"
+puts "========"
+
+#########################################################
+## Command "checkshape" "gives" exception during attempt to check attached shape.
+#########################################################
+
+restore [locate_data_file OCC284.brep] result
+
+decho off
+if [catch { checkshape result } catch_result] {
+ set mistake 1
+} else {
+ set mistake 0
+}
+decho on
+
+if { $mistake != 0} {
+ puts "Faulty OCC284 : here is problem in checkshape function"
+} else {
+ puts "OCC284 OK: function checkshape works properly"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC286: Attempt to project the point on surface gives wrong result."
+puts "========================"
+puts " OCC286 "
+puts "========================"
+puts ""
+
+restore [locate_data_file OCC286a.draw] a
+restore [locate_data_file OCC286b.draw] b
+
+intersect i a b
+cvalue i 0.31 x y z
+point p x y z
+proj b x y z
+
+set err1 ""
+set err2 ""
+set err3 ""
+regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_1] full err1
+regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_2] full err2
+regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_3] full err3
+
+if { $err1 == $err2 || $err1 == $err3 || $err2 == $err3 } {
+ puts "Faulty OCC286: Attempt to project the point on surface gives wrong result."
+} else {
+ puts "OCC286 OK : Attempt to project the point on surface gives correct result"
+}
+
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC28"
+puts "================"
+###############################################
+puts "Bug is limitation on currently version of topology (07.06.2002)."
+###############################################
+
+cpulimit 1200
+restore [locate_data_file OCC28.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_1 a_2
+checkshape result
+
+set square 483935
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC28"
+puts "================"
+###############################################
+puts "Bug is limitation on currently version of topology (07.06.2002)."
+###############################################
+
+cpulimit 1200
+restore [locate_data_file OCC28.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_2 a_1
+checkshape result
+
+set square 483935
+set 2dviewer 0
+
+
--- /dev/null
+puts "TODO OCC11111 ALL: OCC299: Error 2"
+
+pload QAcommands
+
+puts "================"
+puts "OCC299"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC298.brep] pr
+checkshape pr
+
+point p 0.86427836 -1 -1
+
+set info_result [OCC299 pr p]
+set ll [llength ${info_result}]
+if { ${ll} < 4 } {
+ puts "OCC299: Error 1"
+} else {
+ if { [regexp {IN} $info_result] } {
+ puts "OCC299: OK"
+ } else {
+ puts "OCC299: Error 2"
+ }
+}
+
--- /dev/null
+puts "========================"
+puts " OCC303 "
+puts "(case 1)"
+puts "========================"
+puts ""
+#################################################################
+## Exception while segment operation.
+#################################################################
+
+restore [locate_data_file OCC303a.brep] sh1
+
+explode sh1 e
+
+mkcurve c5 sh1_5
+trim result c5
+
+if [catch {segment result 22.07126804854423 23.6320483505636} catch_result] {
+ puts "Faulty OCC303 (case 1): function SEGMENT works wrongly"
+} else {
+ puts "OCC303 OK (case 1): function SEGMENT works properly"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " OCC303 "
+puts "(case 2)"
+puts "========================"
+puts ""
+#################################################################
+## Exception while segment operation.
+#################################################################
+
+restore [locate_data_file OCC303b.brep] sh1
+
+explode sh1 e
+
+mkcurve c1 sh1_1
+trim result c1
+
+if [catch {segment result 23.09944997429109 23.6320483505636} catch_result] {
+ puts "Faulty OCC303 (case 2): function SEGMENT works wrongly"
+} else {
+ puts "OCC303 OK (case 2): function SEGMENT works properly"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "==========="
+puts " OCC308 "
+puts "==========="
+puts ""
+#################################################################
+## Can not project 3D-curve on surface.
+#################################################################
+
+restore [locate_data_file OCC308a.draw] a
+restore [locate_data_file OCC308b.draw] b
+
+if [catch {project result a b} catch_result] {
+ set mistake 1
+} else {
+ set mistake 0
+}
+
+if { $mistake == 0} {
+ puts "Faulty OCC308 : function PROJECT works wrongly"
+} else {
+ puts "OCC308 OK : function PROJECT works properly"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "================"
+puts "OCC31"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC31.brep] sh
+checkshape sh
+
+explode sh f
+
+explode sh_2 e
+
+chamf res1 sh sh_2_1 sh_2 7 7
+checkshape res1
+
+explode res1 f
+
+explode res1_5 e
+
+chamf res2 res1 res1_5_4 res1_5 7 7
+checkshape res2
+
+explode res2 f
+
+explode res2_4 e
+
+chamf result res2 res2_4_1 res2_4 7 7
+checkshape result
+
+set square 107634
+set 2dviewer 0
--- /dev/null
+puts "========"
+puts "OCC311"
+puts "========"
+
+restore [locate_data_file OCC311.draw] c
+#### checkshape c # - not a topological shape
+
+set ufirst 1e-7
+set ulast 6.2831854071795901
+
+segment c ${ufirst} ${ulast}
+
+set dumpc [dump c]
+
+set list [split ${dumpc} "\n\t"]
+set listLength [llength ${list}]
+if { ${listLength} < 25 } {
+ puts "OCC311 - Error : listLength= ${listLength}"
+}
+
+regexp { +Degree +([-0-9.+eE]+), +([-0-9.+eE]+) +Poles, +([-0-9.+eE]+) +Knots} $dumpc full DegreeNumber PolesNumber KnotsNumber
+
+set Knots [regexp -all -inline { +([-0-9.+eE]+ +: +[-0-9.+eE]+ +[-0-9.+eE]+)} $dumpc]
+regexp { *[-0-9.+eE]+ +: +([-0-9.+eE]+) +[-0-9.+eE]+} [lindex $Knots 1] full FirstKnot
+regexp { *[-0-9.+eE]+ +: +([-0-9.+eE]+) +[-0-9.+eE]+} [lindex $Knots [llength $Knots]-1] full LastKnot
+
+set delta_first [expr abs(${FirstKnot} - ${ufirst}) / ${ufirst} * 100]
+set delta_last [expr abs(${LastKnot} - ${ulast}) / ${ulast} * 100]
+
+set maxdelta 0.01
+
+puts "FirstKnot = ${FirstKnot}"
+puts "LastKnot = ${LastKnot}"
+
+if { ${delta_first} > ${maxdelta} } {
+ puts "OCC311 - Error : delta_first = ${delta_first}"
+}
+if { ${delta_last} > ${maxdelta} } {
+ puts "OCC311 - Error : delta_last = ${delta_last}"
+}
+
+if { ${delta_first} <= ${maxdelta} && ${delta_last} <= ${maxdelta} } {
+ puts "OCC311: OK"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "========"
+puts "OCC311"
+puts "========"
+
+restore [locate_data_file OCC311.draw] c
+#### checkshape c # - not a topological shape
+
+set ufirst 1e-7
+set ulast 6.2831854071795897
+
+segment c ${ufirst} ${ulast}
+
+set dumpc [dump c]
+
+set list [split ${dumpc} "\n\t"]
+set listLength [llength ${list}]
+if { ${listLength} < 25 } {
+ puts "OCC311 - Error : listLength= ${listLength}"
+}
+
+regexp { +Degree +([-0-9.+eE]+), +([-0-9.+eE]+) +Poles, +([-0-9.+eE]+) +Knots} $dumpc full DegreeNumber PolesNumber KnotsNumber
+
+set Knots [regexp -all -inline { +([-0-9.+eE]+ +: +[-0-9.+eE]+ +[-0-9.+eE]+)} $dumpc]
+regexp { *[-0-9.+eE]+ +: +([-0-9.+eE]+) +[-0-9.+eE]+} [lindex $Knots 1] full FirstKnot
+regexp { *[-0-9.+eE]+ +: +([-0-9.+eE]+) +[-0-9.+eE]+} [lindex $Knots [llength $Knots]-1] full LastKnot
+
+set delta_first [expr abs(${FirstKnot} - ${ufirst}) / ${ufirst} * 100]
+set delta_last [expr abs(${LastKnot} - ${ulast}) / ${ulast} * 100]
+
+set maxdelta 0.01
+
+puts "FirstKnot = ${FirstKnot}"
+puts "LastKnot = ${LastKnot}"
+
+if { ${delta_first} > ${maxdelta} } {
+ puts "OCC311 - Error : delta_first = ${delta_first}"
+}
+if { ${delta_last} > ${maxdelta} } {
+ puts "OCC311 - Error : delta_last = ${delta_last}"
+}
+
+if { ${delta_first} <= ${maxdelta} && ${delta_last} <= ${maxdelta} } {
+ puts "OCC311: OK"
+}
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC313"
+puts "================"
+puts ""
+
+########################################################
+#### Exeption is raised in DRAW during command "restore" on attahed shape.
+########################################################
+
+restore [locate_data_file OCC313.brep] result
+
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " OCC324 "
+puts "========================"
+puts ""
+#################################################################
+## The command "intersect" applied to the given arguments "s1" (plane) and "s2" (cylinder) leads
+## to the program hang-up.
+#################################################################
+
+restore [locate_data_file OCC324a.draw] s1
+restore [locate_data_file OCC324b.draw] s2
+
+if [catch {intersect result s1 s2} catch_result] {
+ puts "Faulty OCC324: function INTERSECT works wrongly"
+} else {
+ puts "OCC324 OK: function INTERSECT works properly"
+}
+
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========================"
+puts "BUC60979"
+puts " OCC324 "
+puts "========================"
+puts ""
+#################################################################
+## Extrema between trimmed line and circle lead to exception.
+#################################################################
+
+restore [locate_data_file OCC359a.brep] el
+restore [locate_data_file OCC359b.brep] ec
+
+distmini dd el ec
+
+
--- /dev/null
+puts "========================"
+puts " OCC325 "
+puts "========================"
+puts ""
+##################################################
+## Checkshape does not recognize an error in a bad face
+##################################################
+
+restore [locate_data_file OCC325.brep] result
+
+decho off
+set che [checkshape result]
+decho on
+
+if { [regexp {Faulty} $che ] != 1} {
+ puts "Faulty OCC325: Checkshape command works wrongly"
+} else {
+ puts "OCC325 OK : Checkshape command works properly"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "================"
+puts "OCC326"
+puts "================"
+puts ""
+###########################################################
+## Exception is raised in sewing on internal edges on attached shape
+###########################################################
+
+restore [locate_data_file OCC326.brep] a
+
+if [catch { sewing result a } catch_result] {
+ puts "Faulty OCC326: here is sewing problem"
+} else {
+ puts "OCC326 OK: Sewing is ok, there is no except"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "================"
+puts "OCC332"
+puts "================"
+puts ""
+
+pload QAcommands
+
+set wall_thickness 10
+set dia1 30
+set dia2 50
+set ll 100
+set major_radius 200
+
+OCC332 ${wall_thickness} ${dia1} ${dia2} ${ll} ${major_radius}
+
+checkshape wallSolid_
+checkshape gasSolid_
+
+
+vinit
+vdisplay wallSolid_
+vdisplay gasSolid_
+vzfit
+
+
+explode wallSolid_ w
+
+vdisplay wallSolid__3
+vdisplay wallSolid__4
+vdisplay wallSolid__5
+vdisplay wallSolid__6
+
+set props_3 [lprops wallSolid__3]
+set props_4 [lprops wallSolid__4]
+set props_5 [lprops wallSolid__5]
+set props_6 [lprops wallSolid__6]
+
+#wire wallSolid__3
+set list [split ${props_3} "\n\t"]
+set listLength [llength ${list}]
+if { ${listLength} < 20 } {
+ puts "OCC332 - Error : listLength= ${listLength}"
+}
+
+regexp {Mass +: +([-0-9.+eE]+)} $props_3 full CircleLength_3
+
+#wire wallSolid__4
+set list [split ${props_4} "\n\t"]
+set listLength [llength ${list}]
+if { ${listLength} < 20 } {
+ puts "OCC332 - Error : listLength= ${listLength}"
+}
+
+regexp {Mass +: +([-0-9.+eE]+)} $props_4 full CircleLength_4
+
+#wire wallSolid__5
+set list [split ${props_5} "\n\t"]
+set listLength [llength ${list}]
+if { ${listLength} < 20 } {
+ puts "OCC332 - Error : listLength= ${listLength}"
+}
+
+regexp {Mass +: +([-0-9.+eE]+)} $props_5 full CircleLength_5
+
+#wire wallSolid__6
+set list [split ${props_6} "\n\t"]
+set listLength [llength ${list}]
+if { ${listLength} < 20 } {
+ puts "OCC332 - Error : listLength= ${listLength}"
+}
+
+regexp {Mass +: +([-0-9.+eE]+)} $props_6 full CircleLength_6
+
+# Calculation
+set pi [expr 2. * asin(1.0)]
+set TheoryCircleLength_4 [expr ${pi} * ${dia1}]
+set TheoryCircleLength_3 [expr ${pi} * (${dia1} + 2 * ${wall_thickness}) ]
+set TheoryCircleLength_6 [expr ${pi} * ${dia2}]
+set TheoryCircleLength_5 [expr ${pi} * (${dia2} + 2 * ${wall_thickness}) ]
+
+set delta_3 [expr abs(${CircleLength_3} - ${TheoryCircleLength_3}) / ${TheoryCircleLength_3} * 100]
+set delta_4 [expr abs(${CircleLength_4} - ${TheoryCircleLength_4}) / ${TheoryCircleLength_4} * 100]
+set delta_5 [expr abs(${CircleLength_5} - ${TheoryCircleLength_5}) / ${TheoryCircleLength_5} * 100]
+set delta_6 [expr abs(${CircleLength_6} - ${TheoryCircleLength_6}) / ${TheoryCircleLength_6} * 100]
+
+set maxdelta 0.1
+
+if { ${delta_3} > ${maxdelta} } then {puts "OCC332 - Error : delta_3= ${delta_3}"}
+if { ${delta_4} > ${maxdelta} } then {puts "OCC332 - Error : delta_4= ${delta_4}"}
+if { ${delta_5} > ${maxdelta} } then {puts "OCC332 - Error : delta_5= ${delta_5}"}
+if { ${delta_6} > ${maxdelta} } then {puts "OCC332 - Error : delta_6= ${delta_6}"}
+
+if { ${delta_3} <= ${maxdelta} && ${delta_4} <= ${maxdelta} && ${delta_5} <= ${maxdelta} && ${delta_6} <= ${maxdelta} } then {
+ puts "OCC332: OK"
+}
+puts "CircleLength_3 = ${CircleLength_3}"
+puts "CircleLength_4 = ${CircleLength_4}"
+puts "CircleLength_5 = ${CircleLength_5}"
+puts "CircleLength_6 = ${CircleLength_6}"
+
+set only_screen 1
+
+
+
--- /dev/null
+puts "================"
+puts "OCC333"
+puts "================"
+puts ""
+#######################################################
+## Superimposed curves during intersection two surfaces
+#######################################################
+
+pload QAcommands
+
+restore [locate_data_file OCC333a.draw] s12
+############### checkshape su12 # is not a topological shape
+restore [locate_data_file OCC333b.draw] s11
+############### checkshape su11 # is not a topological shape
+intersect result s12 s11
+explode result e
+clknots result_3
+clknots result_13
+
+mkedge e_1 result_3
+mkedge e_2 result_13
+
+set status [OCC333 e_1 e_2]
+if {[llength ${status}] < 1} {
+ puts "OCC333 ERROR"
+} else {
+ regexp {([-0-9.+eE]+)} ${status} full code
+ if { ${code} == 3 || ${code} == 2} {
+ puts "OCC333 OK : Intersection command works properly"
+ } else {
+ puts "Faulty OCC333 : Intersection was made WRONGLY"
+ }
+}
+
+donly i_3 i_13
+
+set 2dviewer 0
--- /dev/null
+puts "================"
+puts "BUC61039"
+puts "OCC343"
+puts "================"
+puts ""
+
+cpulimit 9000
+pload XDE
+if [catch {igesbrep [locate_data_file lh3d_px1.igs] a *} catch_result] {
+ puts "Faulty OCC343: here is reading problem"
+} else {
+ puts "Reading OCC343 OK"
+ tpcompound a
+ #
+ # First sewing
+ #
+ sewing result1 100. a
+
+ set FaceList [explode result1 f]
+ set FaceListLength [llength ${FaceList}]
+ if { ${FaceListLength} < 1 } {
+ puts "OCC343 - Error : FaceListLength= ${FaceListLength}"
+ }
+
+ set X_List1 [list]
+ set Y_List1 [list]
+ set Z_List1 [list]
+ for {set i 1} {${i} <= ${FaceListLength}} {incr i} {
+ set props [sprops result1_${i}]
+ set list [split ${props} "\n\t"]
+ set listLength [llength ${list}]
+ if { ${listLength} < 20 } {
+ puts "OCC343 - Error : listLength= ${listLength}"
+ }
+ set Center_Gravity_X [lindex ${list} 5]
+ set Center_Gravity_Y [lindex ${list} 6]
+ set Center_Gravity_Z [lindex ${list} 7]
+
+ set Center_Gravity_X [lindex [split ${Center_Gravity_X}] [expr [llength [split ${Center_Gravity_X}] ] - 1] ]
+ set Center_Gravity_Y [lindex [split ${Center_Gravity_Y}] [expr [llength [split ${Center_Gravity_Y}] ] - 1] ]
+ set Center_Gravity_Z [lindex [split ${Center_Gravity_Z}] [expr [llength [split ${Center_Gravity_Z}] ] - 1] ]
+
+ lappend X_List1 ${Center_Gravity_X}
+ lappend Y_List1 ${Center_Gravity_Y}
+ lappend Z_List1 ${Center_Gravity_Z}
+ }
+
+ vinit
+ vdisplay result1
+ vfit
+
+ set CycleNumber 10
+ for {set j 1} {${j} <= ${CycleNumber}} {incr j} {
+ veraseall
+ #
+ # Second sewing
+ #
+
+ if [catch {igesbrep [locate_data_file lh3d_px1.igs] a *} catch_result] {
+ puts "Faulty OCC343: here is reading problem"
+ } else {
+ puts "Reading OCC343 OK"
+ }
+
+ tpcompound a
+ sewing result2 100. a
+
+ set FaceList [explode result2 f]
+ set FaceListLength [llength ${FaceList}]
+ if { ${FaceListLength} < 1 } then {puts "OCC343 - Error : FaceListLength= ${FaceListLength}"}
+
+ set X_List2 [list]
+ set Y_List2 [list]
+ set Z_List2 [list]
+ for {set i 1} {${i} <= ${FaceListLength}} {incr i} {
+ set props [sprops result2_${i}]
+ set list [split ${props} "\n\t"]
+ set listLength [llength ${list}]
+ if { ${listLength} < 20 } {
+ puts "OCC343 - Error : listLength= ${listLength}"
+ }
+
+ set Center_Gravity_X [lindex ${list} 5]
+ set Center_Gravity_Y [lindex ${list} 6]
+ set Center_Gravity_Z [lindex ${list} 7]
+
+ set Center_Gravity_X [lindex [split ${Center_Gravity_X}] [expr [llength [split ${Center_Gravity_X}] ] - 1] ]
+ set Center_Gravity_Y [lindex [split ${Center_Gravity_Y}] [expr [llength [split ${Center_Gravity_Y}] ] - 1] ]
+ set Center_Gravity_Z [lindex [split ${Center_Gravity_Z}] [expr [llength [split ${Center_Gravity_Z}] ] - 1] ]
+
+ lappend X_List2 ${Center_Gravity_X}
+ lappend Y_List2 ${Center_Gravity_Y}
+ lappend Z_List2 ${Center_Gravity_Z}
+ }
+
+ set ListLength [llength ${X_List1}]
+ if { ${ListLength} != [llength ${Y_List1}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
+ if { ${ListLength} != [llength ${Z_List1}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
+ if { ${ListLength} != [llength ${X_List2}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
+ if { ${ListLength} != [llength ${Y_List2}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
+ if { ${ListLength} != [llength ${Z_List2}] } then {puts "OCC343 - Error : ListLength= ${ListLength}"}
+
+ for {set i 0} {${i} < ${ListLength}} {incr i} {
+ set X1 [lindex ${X_List1} ${i}]
+ set X2 [lindex ${X_List2} ${i}]
+ if { ${X1} != ${X2} } {
+ puts "OCC343 - Error : X1= ${X1} X2= ${X2}"
+ }
+ set Y1 [lindex ${Y_List1} ${i}]
+ set Y2 [lindex ${Y_List2} ${i}]
+ if { ${Y1} != ${Y2} } {
+ puts "OCC343 - Error : Y1= ${Y1} Y2= ${Y2}"
+ }
+ set Z1 [lindex ${Z_List1} ${i}]
+ set Z2 [lindex ${Z_List2} ${i}]
+ if { ${Z1} != ${Z2} } {
+ puts "OCC343 - Error : Z1= ${Z1} Z2= ${Z2}"
+ }
+ }
+
+ tclean result1
+ vdisplay result1
+ vfit
+ }
+}
+
+set only_screen 1
+
+
+
+
--- /dev/null
+
+puts "================"
+puts "OCC35"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC35.brep] result
+decho off
+set info [checkshape result]
+decho on
+
+if { [regexp "Faulty" $info] != 1 } {
+ puts "Command checkshape works wrongly (should be faulty)"
+}
+
+set 2dviewer 0
+
+
+
+
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC353"
+puts "================"
+puts ""
+##########################################################
+## Attached DRAW command "TATA_const" hangs in Geom2dGcc_Circ2d3Tan.
+##########################################################
+
+if [catch { OCC353 }] {
+ puts "OCC353: Error"
+} else {
+ puts "OCC353: OK"
+}
+
--- /dev/null
+
+puts "========================"
+puts " OCC354 "
+puts "(case 1)"
+puts "========================"
+puts ""
+##################################################
+## neither chamfer nor blend is built in similar situation
+##################################################
+
+restore [locate_data_file OCC354a.brep] a
+
+explode a e
+
+blend result a 2 a_18
+checkshape result
+
+set square 593.527
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts " OCC354 "
+puts "(case 2)"
+puts "========================"
+puts ""
+##################################################
+## neither chamfer nor blend is built in similar situation
+##################################################
+
+restore [locate_data_file OCC354b.brep] a
+explode a f
+
+explode a_5 e
+
+donl a a_5_6
+
+chamf result a a_5_6 a_5 A 2 45
+checkshape result
+
+set square 589.268
+set 2dviewer 0
--- /dev/null
+puts "========"
+puts "OCC36"
+puts "========"
+
+pload XDE
+
+if [catch { igesbrep [locate_data_file OCC36.igs] a * } res] {
+ puts "Warning OCC36: here is reading problem"
+} else {
+ puts "Reading OCC36 OK"
+
+ tpcompound r
+ dchrono h2 reset
+ dchrono h2 start
+ sewing result 1.e-7 r
+ dchrono h2 stop
+ set q2 [ dchrono h2 show ]
+ regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
+ puts "$z2"
+ if { $z2 > 30 } {
+ puts "Elapsed time is more then 30 seconds - Faulty"
+ } else {
+ puts "Elapsed time is less then 30 seconds - OK"
+ }
+}
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "========================"
+puts " BUC60980 "
+puts " OCC360"
+puts "========================"
+puts ""
+##################################################################
+## Can not find a projection the circle on the sphere.
+##################################################################
+
+restore [locate_data_file OCC360a.draw] c
+restore [locate_data_file OCC360b.draw] cf
+
+set che [project result c cf]
+puts $che
+
+if { [regexp {Projection} $che] && [regexp {Failed} $che] } {
+ puts "Faulty OCC360: command PROJECT works wrongly"
+} else {
+ puts " OCC360 OK : command PROJECT works properly"
+}
+
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========================"
+puts " OCC366 "
+puts "========================"
+puts ""
+##################################################
+## Checkshape says that face is valid but it inludes selfintersecting wire
+##################################################
+
+restore [locate_data_file buc61006.brep] result
+
+decho off
+set che [checkshape result]
+decho on
+
+if { [regexp "Faulty" $che] != 1 } {
+ puts "Error : Checkshape command works wrongly"
+}
+
+set 2dviewer 0
+
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC367"
+puts "BUC61013"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC105.brep] result
+checkshape result
+
+set step 0.5
+set goodX -307.47165394
+set goodY -340.18073533
+set goodZ 0
+set percent_tolerance 0.01
+
+OCC367 result ${step} ${goodX} ${goodY} ${goodZ} ${percent_tolerance}
+
+set length 1760.13
+set 2dviewer 0
+
+
+
--- /dev/null
+
+puts "========================"
+puts "BUC61027"
+puts " OCC368 "
+puts "========================"
+puts ""
+##############################################
+## Visualization is too slow.
+##############################################
+
+restore [locate_data_file OCC368.brep] result
+checkshape result
+
+tclean result
+isos result 0
+vinit
+dchrono h2 reset
+dchrono h2 start
+vdisplay result
+vsetdispmode result 1
+dchrono h2 stop
+
+regexp {CPU user time: +([-0-9.+eE]+)} [dchrono h2 show] full z2
+
+if { $z2 > 30 } {
+ puts "Error : Elapsed time is more then 30 seconds"
+}
+
+set 2dviewer 0
+
+
+
+
--- /dev/null
+puts "========================"
+puts "BUC61033"
+puts " OCC370 "
+puts "========================"
+puts ""
+#################################################################
+##Intersection between a sphere and trimmed plane, using IntPatch_Intersection, lead to infinite cycle.
+#################################################################
+
+sphere gs1 1
+plane gs2 0 0 0 1 0 0
+trim trgs2 gs2 0 1.000001 -1 0.000001
+
+intersect result gs1 trgs2
+
+cpulimit 300
+
+puts "OCC370 OK: function INTERSECT works properly"
+
+erase gs2
+
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========================"
+puts "BUC61034"
+puts " OCC371 "
+puts "========================"
+puts ""
+#################################################################
+##Intersection between two BSplineSurfaces, using IntPatch_Intersection, lead to infinite cycle.
+#################################################################
+
+restore [locate_data_file OCC371a.brep] a
+restore [locate_data_file OCC371b.brep] b
+
+mksurface gs1 a
+mksurface gs2 b
+trim trgs1 gs1 0.0 1.0 0.9698725179864 1.0
+trim trgs2 gs2 0.0 1.0 0.24333094700742 0.92374551772989
+
+#cpulimit 300
+intersect result trgs1 trgs2
+
+set 2dviewer 0
+
+
--- /dev/null
+pload QAcommands
+
+puts "========================"
+puts "OCC372"
+puts "BUC61036"
+puts "========================"
+puts ""
+###############################################################
+##BRepClass3d_SolidClassifier classify point to solid as OUT, but the point is inside the solid.
+###############################################################
+
+restore [locate_data_file OCC372.brep] b1
+checkshape b1
+
+point p1 6311.4862583184 -2841.3092756034 16.461053497188
+
+set result [OCC299 b1 p1]
+set ll [llength ${result}]
+if { ${ll} < 4 } then {
+ puts "OCC372: ERROR 1"
+} else {
+ regexp {The point is (.*) shape} ${result} full status
+ if {[string compare ${status} "IN"] == 0} then {
+ puts "status = ${status}"
+ puts "OCC372: OK"
+ } else {
+ puts "status = ${status}"
+ puts "Faulty : OCC372"
+ }
+}
+
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC3721"
+puts "============"
+puts ""
+######################################################
+# When using Boolean Operations exception is raised for some tolerance vals.
+######################################################
+## (new topology)
+## (bfuse)
+######################################################
+
+restore [locate_data_file OCC3721-1.brep] b1
+restore [locate_data_file OCC3721-2.brep] b2
+
+checkshape b1
+checkshape b2
+
+if { [catch {bfuse result b1 b2} catch_result] } {
+ puts "Faulty OCC3721"
+}
+
+checkshape result
+
+set square 71185
+set 3dviewer 1
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC3721"
+puts "============"
+puts ""
+######################################################
+# When using Boolean Operations exception is raised for some tolerance vals.
+######################################################
+## (new topology)
+## (bfuse)
+######################################################
+
+restore [locate_data_file OCC3721-1.brep] b1
+restore [locate_data_file OCC3721-2.brep] b2
+
+checkshape b1
+checkshape b2
+
+if { [catch {bfuse result b2 b1} catch_result] } {
+ puts "Faulty OCC3721"
+}
+
+checkshape result
+
+set square 71185
+set 3dviewer 1
+
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC3721"
+puts "============"
+puts ""
+######################################################
+# When using Boolean Operations exception is raised for some tolerance vals.
+######################################################
+## (new topology)
+## (bcommon)
+######################################################
+
+restore [locate_data_file OCC3721-1.brep] b1
+restore [locate_data_file OCC3721-2.brep] b2
+
+checkshape b1
+checkshape b2
+
+if { [catch {bcommon result b2 b1} catch_result] } {
+ puts "Faulty OCC3721"
+}
+
+checkshape result
+
+set square 0.
+set 3dviewer 1
\ No newline at end of file
--- /dev/null
+puts "============"
+puts "OCC3721"
+puts "============"
+puts ""
+######################################################
+# When using Boolean Operations exception is raised for some tolerance vals.
+######################################################
+## (new topology)
+## (bcut)
+######################################################
+
+restore [locate_data_file OCC3721-1.brep] b1
+restore [locate_data_file OCC3721-2.brep] b2
+
+checkshape b1
+checkshape b2
+
+if { [catch {bcut result b1 b2} catch_result] } {
+ puts "Faulty OCC3721"
+}
+
+checkshape result
+
+set square 71185
+set 3dviewer 1
+
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC3721"
+puts "============"
+puts ""
+######################################################
+# When using Boolean Operations exception is raised for some tolerance vals.
+######################################################
+## (new topology)
+## (bcut)
+######################################################
+
+restore [locate_data_file OCC3721-1.brep] b1
+restore [locate_data_file OCC3721-2.brep] b2
+
+checkshape b1
+checkshape b2
+
+if { [catch {bcut result b2 b1} catch_result] } {
+ puts "Faulty OCC3721"
+}
+
+checkshape result
+
+set square 71185
+set 3dviewer 1
+
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC3721"
+puts "============"
+puts ""
+######################################################
+# When using Boolean Operations exception is raised for some tolerance vals.
+######################################################
+## (new topology)
+## (boptuc)
+######################################################
+
+restore [locate_data_file OCC3721-1.brep] b1
+restore [locate_data_file OCC3721-2.brep] b2
+
+checkshape b1
+checkshape b2
+
+bop b1 b2
+if { [catch {boptuc result} catch_result] } {
+ puts "Faulty OCC3721"
+}
+
+checkshape result
+
+set square 71185
+set 3dviewer 1
+
--- /dev/null
+puts "============"
+puts "OCC3721"
+puts "============"
+puts ""
+######################################################
+# When using Boolean Operations exception is raised for some tolerance vals.
+######################################################
+## (new topology)
+## (boptuc)
+######################################################
+
+restore [locate_data_file OCC3721-1.brep] b1
+restore [locate_data_file OCC3721-2.brep] b2
+
+checkshape b1
+checkshape b2
+
+bop b2 b1
+if { [catch {boptuc result} catch_result] } {
+ puts "Faulty OCC3721"
+}
+
+checkshape result
+
+set square 71185
+set 3dviewer 1
+
--- /dev/null
+
+puts "========================"
+puts "BUC61040"
+puts " OCC374 "
+puts "========================"
+puts ""
+####################################
+##Offset surface from bspline surface is not correct
+####################################
+restore [locate_data_file OCC374.draw] su
+
+offset su1 su 1
+
+mkface result su1
+
+set square 7960.45
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts "BUC61040"
+puts " OCC374 "
+puts "========================"
+puts ""
+####################################
+##Offset surface from bspline surface is not correct
+####################################
+restore [locate_data_file OCC374.draw] su
+
+offset su2 su -1
+
+mkface result su2
+
+set square 7181.83
+set 2dviewer 0
--- /dev/null
+
+puts "========================"
+puts "BUC61049"
+puts " OCC376 "
+puts "========================"
+puts ""
+####################################
+##. Offset can not be created on the attached surface
+####################################
+
+restore [locate_data_file OCC376.rle] s
+
+offset r s 1
+
+mkface result s
+
+set square 1256.64
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC11111 ALL: Error : OCC377"
+
+pload QAcommands
+
+puts "========"
+puts "OCC377"
+puts "BUC61056"
+puts "========"
+puts ""
+###################################################################
+##Incorrect behaviour of BRepTopAdapter_FClass2d. It cannot work with parametric representation
+## of the first wire on the face. It says that point (1.9812, -0.9557948) is outside the contour for
+## forward wire and inside for reversed one if tolerance is equal to 6.45
+###################################################################
+
+set result_info [ OCC377 [locate_data_file OCC377.brep] 1.9812 -0.9557948 6.45 ]
+if { [ regexp {FAULTY} $result_info ]} {
+ puts "Error : OCC377"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "========================"
+puts "BUC61058"
+puts " OCC378 "
+puts "========================"
+puts ""
+########################################################################
+##Regression on KAS:dev:ros. Draw hangs after try to load 6381.brep shape to 3D Viewer. Case : cgg/004/S2
+########################################################################
+
+restore [locate_data_file OCC378.brep] result
+
+tclean result
+vinit
+
+if [catch {vdisplay result } catch_result] {
+ puts "Faulty OCC378: function VDISPLAY works wrongly"
+} else {
+ puts " OCC378 OK : function VDISPLAY works properly"
+}
+
+set 3dviewer 1
+
+
--- /dev/null
+
+puts "================"
+puts "OCC37"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC37.brep] sh
+explode sh
+checkshape sh_1
+checkshape sh_2
+
+bfuse result sh_1 sh_2
+checkshape result
+
+set square 665013
+set 2dviewer 0
+
+
+
+
--- /dev/null
+
+puts "================"
+puts "OCC37"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC37.brep] sh
+explode sh
+checkshape sh_1
+checkshape sh_2
+
+bfuse result sh_2 sh_1
+checkshape result
+
+set square 665013
+set 2dviewer 0
+
+
+
+
+
--- /dev/null
+
+puts "========================"
+puts " OCC380 "
+puts "========================"
+puts ""
+##############################
+##Incorrect result of common operation
+##############################
+
+restore [locate_data_file OCC380a.rle] a
+restore [locate_data_file OCC380b.rle] b
+
+bcommon result a b
+
+set square 21.154
+set 2dviewer 0
+
--- /dev/null
+
+puts "========================"
+puts " OCC380 "
+puts "========================"
+puts ""
+##############################
+##Incorrect result of common operation
+##############################
+
+restore [locate_data_file OCC380a.rle] a
+restore [locate_data_file OCC380b.rle] b
+
+bcommon result b a
+
+set square 21.154
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty OCC3896"
+
+puts "============"
+puts "OCC3896"
+puts "============"
+puts ""
+######################################################
+# BRepCheck_Analyzer does not detect faulty faces in solid shape.
+######################################################
+
+#
+# a_13 face is FORVARD (faulty), but checkshape command does not detect it
+#
+
+set BugNumber OCC3896
+
+restore [locate_data_file OCC3896-pipe.brep] a
+
+explode a f
+compound a_1 a_13 result
+
+explode a_1 e
+explode a_13 e
+
+smallview
+donly result
+fit
+r
+
+normals result 200
+
+puts "Normal of a_13 face is red (FORWARD)"
+
+for {set i 1} {$i <= 14} {incr i} {
+ whatis a_$i
+}
+
+decho off
+set info_result [checkshape result]
+decho on
+
+if {[regexp {Faulty} $info_result] } {
+ puts "OK ${BugNumber} : checkshape detect faulty faces in solid shape"
+} else {
+ puts "Faulty ${BugNumber} : checkshape does not detect faulty faces in solid shape"
+}
+
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC3"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC3-1.brep] a
+restore [locate_data_file OCC3-2.brep] b
+checkshape a
+checkshape b
+
+bfuse result a b
+checkshape result
+
+set square 11400
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC3"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC3-1.brep] a
+restore [locate_data_file OCC3-2.brep] b
+checkshape a
+checkshape b
+
+bfuse result b a
+checkshape result
+
+set square 11400
+set 2dviewer 0
+
--- /dev/null
+
+puts "================"
+puts "OCC4"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC4.brep] sh
+checkshape sh
+
+explode sh e
+
+fillet result sh 15 sh_14
+checkshape result
+
+set square 177328
+set 2dviewer 0
+
+
--- /dev/null
+puts "========================"
+puts " OCC408 "
+puts "========================"
+puts ""
+
+box b1 0 0 0 1 1 1
+nurbsconvert b1 b1
+box b2 0 -0.5 0 1.5 0.5 0.5
+
+bcommon result b1 b2
+checkshape -top result
+
+
+
--- /dev/null
+
+puts "================"
+puts "OCC41"
+puts "================"
+puts ""
+
+puts "Isos lines may be drawn incorrectly"
+psphere result 10 -90
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "================"
+puts "OCC42"
+puts "================"
+puts ""
+###############################################
+## BRepAlgo_Sewing does not sew attached shape with any tolerance.
+###############################################
+
+pload XDE
+
+# 1. retriesve shape
+restore [locate_data_file OCC42.brep] sh
+checkshape sh
+
+# 2. perform sewing
+set toler 80
+sewing result $toler sh
+
+# 3. Verify result of sewing
+checkshape result
+
+# Retrieve free wires from result shape
+catch { fbclose result $toler $toler } resOfCatch
+
+# Amount of free open wires must be equal 0
+set open_wires [explode result_o W]
+if { [llength $open_wires] != 0} {
+ puts "Error : There are free open wires"
+}
+
+# Amount of free closed wires must be equal 1
+set closed_wires [explode result_c W]
+if { [llength $closed_wires] != 1} {
+ puts "Error : Amount of free closed wires is not equal 1"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "========"
+puts "OCC428"
+puts "SAM1414"
+puts "========"
+
+################################################
+## Exception during vizualization on attached shape in application.
+## Exception is raised in the package StdPrs.
+################################################
+
+restore [locate_data_file OCC428.brep] result
+
+tclean result
+vinit
+vdisplay result
+vsetdispmode result 1
+vclear
+
+isos result 0
+triangles result
+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 == 5496 && $nod == 5406 } {
+ puts "Warning OCC428: here is shading problem, but source shape is invalid"
+} else {
+ puts "Warning OCC428: Shading of OCC428 was made, source shape is invalid"
+}
+
+set 3dviewer 1
+
--- /dev/null
+puts "========================"
+puts " OCC429 "
+puts "========================"
+puts ""
+#######################################
+## Projection for a point on a surface works wrong
+#######################################
+
+restore [locate_data_file OCC429a.draw] a
+restore [locate_data_file OCC429b.draw] b
+
+intersect i a b
+
+cvalue i_2 0.43213918 x y z
+point p x y z
+proj b x y z
+
+set err1 [string range [dump ext_1] 55 64]
+set err2 [string range [dump ext_2] 55 64]
+set err3 [string range [dump ext_3] 55 64]
+set err4 [string range [dump ext_4] 55 64]
+set err5 [string range [dump ext_5] 55 64]
+set err6 [string range [dump ext_6] 55 64]
+
+if { $err1 != "Parameters" || $err2 != "Parameters" || $err3 != "Parameters" || $err4 != "Parameters" || $err5 != "Parameters" || $err6 != "Parameters" } {
+ puts " OCC286 OK : Projection for a point on a surface works properly"
+} else {
+ puts "Faulty OCC429 : Attempt to project the point on surface gives incorrect result"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "========================"
+puts " OCC430 "
+puts "========================"
+puts ""
+################################################################
+## Exception when projecting a point on planar surface of linear extrusion oriented along Y axis
+################################################################
+
+restore [locate_data_file OCC430.rle] result
+
+if [catch {proj result 49.86391363636364 440.7894090909091 127.05 } catch_result] {
+ puts "Faulty OCC430: Projection was made wrongly."
+} else {
+ puts "OK OCC348: function PROJECT works properly"
+}
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "========================"
+puts " OCC431 "
+puts "========================"
+puts ""
+#####################################
+## Intersection of two surfaces is not compleate curve.
+#####################################
+
+restore [locate_data_file OCC431a.draw] su1
+restore [locate_data_file OCC431b.draw] su2
+
+intersect result su1 su2
+
+set che [whatis result]
+
+if { ![regexp {curve} $che] || ![regexp {3d} $che]} {
+ puts "Faulty OCC431 : Command INTERSECT works WRONGLY"
+} else {
+ puts "OCC431 OK : Command INTERSECT works properly"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "========================"
+puts " OCC432 "
+puts "========================"
+puts ""
+############################################
+## Regression in dev regarding C40: exception during checkshape
+############################################
+
+restore [locate_data_file OCC432.brep] result
+checkshape result r
+
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " OCC433 "
+puts "========================"
+puts ""
+#########################################################
+## The attached face gives no errors in checkshape command in dev. However, it looks bad
+#########################################################
+
+restore [locate_data_file OCC433.brep] result
+
+decho off
+set err [checkshape result r]
+decho on
+
+if { [regexp {OK} $err] == 1} {
+ puts " Faulty OCC433: function CHECKSHAPE works wrongly"
+} else {
+ puts " OCC433 OK: function CHECKSHAPE works properly"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "========"
+puts "OCC438"
+puts " (case 1)"
+puts "========"
+
+####################################
+## Exception during checking of shape from OCC428
+####################################
+
+restore [locate_data_file OCC428.brep] result
+
+decho off
+if [catch { checkshape result } catch_result] {
+ set mistake 1
+} else {
+ set mistake 0
+}
+decho on
+
+if { $mistake != 0} {
+ puts "Faulty OCC438 (case 1): here is checking problem"
+} else {
+ puts "OCC438 (case 1) OK"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "========================"
+puts " OCC441 "
+puts "(case 1)"
+puts "========================"
+puts ""
+###############################
+## Instability of BRepCheck check status.
+###############################
+
+restore [locate_data_file OCC441a.brep] result
+
+decho off
+set err [checkshape result r]
+decho on
+
+set j 1
+repeat 25 {
+ restore [locate_data_file OCC441a.brep] result
+ decho off
+ set err1 [checkshape result r]
+ decho on
+ if { $err != $err1 } {
+ puts [format " Faulty OCC441: function CHECKSHAPE works wrongly on %s time" $j]
+ break
+ } else {
+ puts [format " OCC441 OK: function CHECKSHAPE works properly %s time" $j]
+ }
+ incr j
+}
+
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " OCC441 "
+puts "(case 2)"
+puts "========================"
+puts ""
+###############################
+## Instability of BRepCheck check status.
+###############################
+
+restore [locate_data_file OCC441b.brep] result
+
+decho off
+set err [checkshape result r]
+decho on
+
+set j 1
+repeat 25 {
+ restore [locate_data_file OCC441b.brep] result
+ decho off
+ set err1 [checkshape result r]
+ decho on
+ if { $err != $err1 } {
+ puts [format " Faulty OCC441: function CHECKSHAPE works wrongly on %s time" $j]
+ break
+ } else {
+ puts [format " OCC441 OK: function CHECKSHAPE works properly %s time" $j]
+ }
+ incr j
+}
+
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " OCC441 "
+puts "(case 3)"
+puts "========================"
+puts ""
+###############################
+## Instability of BRepCheck check status.
+###############################
+
+restore [locate_data_file OCC441c.brep] result
+
+decho off
+set err [checkshape result r]
+decho on
+
+set j 1
+repeat 25 {
+ restore [locate_data_file OCC441c.brep] result
+ decho off
+ set err1 [checkshape result r]
+ decho on
+ if { $err != $err1 } {
+ puts [format " Faulty OCC441: function CHECKSHAPE works wrongly on %s time" $j]
+ break
+ } else {
+ puts [format " OCC441 OK: function CHECKSHAPE works properly %s time" $j]
+ }
+ incr j
+}
+
+set 2dviewer 0
--- /dev/null
+puts "================"
+puts "OCC4426"
+puts "================"
+puts ""
+#######################################################################################
+# Incorrect result of intersection in 2D between circle and line
+#######################################################################################
+
+v2d2
+circle c1 2 2 1
+2dfit
+2dzoom 120
+line l1 3 0 0 1
+2dintersect l1 c1
+erase l1 c1
+2dfit
+
+puts "ATTENTION! Check following:"
+puts "There is only one intersection point (green X)"
+
+set 2dviewer 1
+
--- /dev/null
+puts "================"
+puts "OCC4426"
+puts "================"
+puts ""
+#######################################################################################
+# Incorrect result of intersection in 2D between circle and line
+#######################################################################################
+
+v2d2
+line ll1 0 0 0.3 0.7
+line ll2 0 0 0.37 0.63
+trim tll1 ll1 -0.00001 0.00001
+trim tll2 ll2 -0.00001 0.00001
+donly tll1 tll2
+2dintersect tll1 tll2
+2dfit
+
+puts "ATTENTION! Check following:"
+puts "There is the intersection point (green X) on center of grid axis"
+
+set 2dviewer 1
+
--- /dev/null
+
+puts "========"
+puts "OCC444"
+puts "========"
+puts ""
+######################################
+## Exception in '2dextrema' command if distance = 0.
+######################################
+
+restore [locate_data_file OCC444a.draw] a
+restore [locate_data_file OCC444a.draw] b
+
+extrema a b
+
+
--- /dev/null
+puts "========"
+puts "OCC453"
+puts "(case 3)"
+puts "========"
+puts ""
+
+dchrono h2 reset
+dchrono h2 start
+
+set make_print_out 0
+
+dset SCALE 1000.
+dset SCALE1 5
+tolblend 0.01 1e-04 1e-05 1e-03
+
+restore [locate_data_file shading_137.brep] s
+tscale s 0 0 0 SCALE1
+explode s E
+
+blend result s 5.5*SCALE1 s_2 4*SCALE1 s_1 6*SCALE1 s_6 5*SCALE1 s_8 6*SCALE1 s_10 6.5*SCALE1 s_14 7*SCALE1 s_4 5.5*SCALE1 s_5 7*SCALE1 s_16 6*SCALE1 s_11 5*SCALE1 s_19 6.5*SCALE1 s_13
+explode result So
+tcopy result_1 result
+
+dchrono h2 stop
+set q2 [ dchrono h2 show ]
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
+puts "$z2"
+if { $z2 > 85 } {
+ puts "Elapsed time is more then 85 seconds - Faulty"
+} else {
+ puts "Elapsed time is less then 85 seconds - OK"
+}
+
+set 2dviewer 1
+
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC454"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC454_b1.brep] b1
+checkshape b1
+
+restore [locate_data_file OCC454_p1.draw] p1
+
+set info_result [OCC299 b1 p1]
+set ll [llength ${info_result}]
+if { ${ll} < 4 } {
+ puts "OCC454: ERROR 1"
+} else {
+ if { [regexp {IN} ${info_result}] } {
+ puts "OCC454: OK"
+ } else {
+ puts "OCC454: ERROR 2"
+ }
+}
+
+
--- /dev/null
+
+puts "========================"
+puts " OCC466 "
+puts "========================"
+puts ""
+
+restore [locate_data_file OCC466.brep] res
+checkshape res
+
+nurbsconvert result res
+
+set square 693.577
+set 2dviewer 0
--- /dev/null
+if { [array get env os_type] != "" } {
+ set os $env(os_type)
+}
+if { [string compare $os "windows"] == 0 } {
+ puts "TODO OCC12345 ALL: An exception was caught"
+ puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
+} else {
+ puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!"
+}
+puts "TODO OCC12345 ALL: TEST INCOMPLETE"
+
+puts "========================"
+puts " OCC469 "
+puts "========================"
+puts ""
+######################################################
+## It's impossible to fuse the two shapes in the file attached. #2740, SAM1493
+######################################################
+
+restore [locate_data_file OCC469.brep] a
+explode a
+
+checkshape a_1
+checkshape a_2
+
+bfuse result a_1 a_2
+checkshape result
+
+set square 10
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC486"
+puts "========"
+puts ""
+#############################
+## Extrema_ExtPS gives wrong solution.
+#############################
+
+restore [locate_data_file OCC486.draw] s
+
+# Case 1. Verify whether surface is u-periodic and v-periodic
+set result [isperiodic s]
+puts $result
+set uper "is u-periodic"
+set vper "is v-periodic"
+if {[regexp $uper $result] && [regexp $vper $result]} {
+ puts "OCC486 case 1 - Faulty"
+} else {
+ puts "OCC486 case 1 - OK"
+}
+
+# Case 2. Verify extremum distance between point and surface
+
+point p3d -420.1170080179139 926.8792206000001 229.5109675013802
+if { [ catch { OCC486 s -420.1170080179139 926.8792206000001 229.5109675013802 0 0.0000001 } ] } {
+ puts "OCC486 case 2 - Faulty"
+} else {
+ puts "OCC486 case 2 - OK"
+}
+
+set 2dviewer 1
--- /dev/null
+puts "========="
+puts " OCC496 "
+puts "========="
+puts ""
+##############################
+## Exception occurs during fuse operation
+##############################
+
+restore [locate_data_file OCC496a.brep] a_1
+checkshape a_1
+
+restore [locate_data_file OCC496b.brep] a_2
+checkshape a_2
+
+bfuse result a_1 a_2
+
+set square 4949.79
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC498: Wrong 3d point from offset surface by parameters"
+
+puts "========="
+puts " OCC498 "
+puts "========="
+puts ""
+######################################
+## Wrong 3d point from offset surface by parameters
+######################################
+
+restore [locate_data_file OCC498.draw] su
+
+set u1 4.71238898038469
+set u2 7.85398163397449
+
+svalue su 0 $u1 x1 y1 z1
+vertex v1 x1 y1 z1
+
+svalue su 0 $u2 x2 y2 z2
+vertex v2 x2 y2 z2
+
+set newU1 [expr $u1 - 1e-11]
+set newU2 [expr $u2 + 1e-11]
+
+svalue su 0 $newU1 x1 y1 z1
+vertex vv1 x1 y1 z1
+
+svalue su 0 $newU2 x2 y2 z2
+vertex vv2 x2 y2 z2
+
+distmini d v1 vv1
+regexp {([-0-9.+eE]+)} [dump d_val] full err1
+
+distmini d v2 vv2
+regexp {([-0-9.+eE]+)} [dump d_val] full err2
+
+if { $err1 > 1.e-7 || $err2 > 1.e-7} {
+ puts "Faulty OCC498: Wrong 3d point from offset surface by parameters "
+} else {
+ puts "OCC498 OK: Correct 3d point from offset surface by parameters"
+}
+
+
+
+
+
+
+
--- /dev/null
+
+puts "========"
+puts "OCC49"
+puts "========"
+
+pload QAcommands
+
+pcylinder c 10 20
+
+set result [OCC49 c]
+
+if {$result == 1} {
+ puts "OCC49: OK"
+} else {
+ puts "Error : OCC49"
+}
+
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC49"
+puts "========"
+
+pload QAcommands
+
+pcylinder c 10 20
+box b 10 10 10
+bcut b_c_cut b c
+checkshape b_c_cut
+
+set result [OCC49 b_c_cut]
+
+if {$result == 1} {
+ puts "Error : OCC49"
+} else {
+ puts "OCC49: OK"
+}
+
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC50"
+puts "========"
+puts ""
+###################################################################
+## the algorithm which allows to calculate and build the fillet presents probably a bug: when
+## blending on all edges, the applied algorithm is posting errors and failure during fillet computation.
+###################################################################
+
+restore [locate_data_file OCC50.brep] a
+checkshape a
+
+explode a e
+
+blend result a 1 a_17 1 a_5 1 a_1 1 a_2 1 a_16 1 a_20 1 a_3 1 a_11 1 a_10 1 a_4
+checkshape result
+
+set square 7677.49
+set 2dviewer 0
--- /dev/null
+puts "========="
+puts " OCC503 "
+puts "========="
+puts ""
+###############################
+## Draw hangs up during sprops operation
+###############################
+
+#cpulimit 9000
+
+restore [locate_data_file OCC503.brep] result
+
+if [catch {sprops result 0.001 } catch_result] {
+ set mistake 1
+} else {
+ set mistake 0
+}
+
+if { $mistake != 0} {
+ puts "Faulty OCC503 : Draw hangs up during sprops operation "
+} else {
+ puts "OCC503 OK: function SPROPS works without hangs up "
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "========="
+puts " OCC504 "
+puts "========="
+puts ""
+###############################
+## AllocMemory while intersection command
+###############################
+
+restore [locate_data_file OCC504a.draw] su1
+# checkshape su1
+
+restore [locate_data_file OCC504b.draw] su2
+# checkshape su2
+
+if [catch {intersect result su1 su2} catch_result] {
+ puts "Faulty OCC504 : A solution takes all memory and crach with AllocMemory"
+} else {
+ puts "OCC504 OK: function intersection works ok"
+}
+
+if { [regexp {curve} [whatis result_1]] && [regexp {curve} [whatis result_2]] } {
+ puts "OCC504 OK : Result shape is CORRECT !!! "
+} else {
+ puts " Faulty OCC504: Result shape is INcorrect !!! "
+}
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "========="
+puts " OCC505 "
+puts "========="
+puts ""
+#####################################
+## BRepExtrema_DistShapeShape throws an exception.
+#####################################
+
+restore [locate_data_file OCC505a.brep] su1
+checkshape su1
+
+restore [locate_data_file OCC505b.brep] su2
+checkshape su2
+
+distmini d su1 su2
+
+
--- /dev/null
+puts "========"
+puts "OCC513"
+puts "========"
+puts ""
+
+######################################
+## Can not intersect plane and conical surfaces
+## The ">intersect" command hangs up the computer.
+######################################
+
+# cpulimit 9000
+
+restore [locate_data_file OCC513a.draw] sa23
+restore [locate_data_file OCC513b.draw] sb8
+
+if { [catch {intersect result sa23 sb8} catch_result] } {
+ puts "Faulty OCC513: function INTERSECTION works wrongly"
+} else {
+ puts "OCC513 OK: function INTERSECTION works properly"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "========"
+puts "OCC515"
+puts "========"
+puts ""
+################################
+## Wrong projection of the Line on the Cone
+################################
+
+restore [locate_data_file OCC515a.draw] cx
+restore [locate_data_file OCC515b.draw] s
+
+if { [catch {project c2d cx s -t 0.0015} ] } {
+ puts "OCC515 FAULTY"
+} else {
+ # create dump of resulting curve
+ set dump [dump c2d]
+ # read dump of old curve
+ set olddump [read [open [locate_data_file OCC515_DUMP]]]
+ # if the the dumps is equal this bug is still exist
+ if { $dump == $olddump } {
+ puts "OCC515 FAULTY"
+ } else {
+ puts "OCC515 WARNING: Dumps of old and new curve are different, probably bug is still exist"
+ }
+}
+
+
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC524"
+puts "========"
+puts ""
+
+
+set LowerVector 1
+set UpperVector 9
+set InitialValueVector 5
+set LowerRowMatrix 1
+set UpperRowMatrix 6
+set LowerColMatrix 1
+set UpperColMatrix 3
+set InitialValueMatrix 4
+
+set info_result [OCC524 ${LowerVector} ${UpperVector} ${InitialValueVector} ${LowerRowMatrix} ${UpperRowMatrix} ${LowerColMatrix} ${UpperColMatrix} ${InitialValueMatrix}]
+
+set ll [llength ${info_result}]
+
+if {${ll} != 64} {
+ puts "OCC524: Error"
+} else {
+ regexp {math_Vector of Length = ([-0-9.+eE]+)} ${info_result} full Vector1Length
+ if {${Vector1Length} != [expr ${UpperVector} - ${LowerVector} + 1]} {
+ puts "Vector1Length=${Vector1Length}"
+ puts "OCC524: Error"
+ } else {
+ regexp {math_Vector\(1\) = ([-0-9.+eE]+)} ${info_result} full Vector1_1
+ regexp {math_Vector\(2\) = ([-0-9.+eE]+)} ${info_result} full Vector1_2
+ regexp {math_Vector\(3\) = ([-0-9.+eE]+)} ${info_result} full Vector1_3
+ regexp {math_Vector\(4\) = ([-0-9.+eE]+)} ${info_result} full Vector1_4
+ regexp {math_Vector\(5\) = ([-0-9.+eE]+)} ${info_result} full Vector1_5
+ regexp {math_Vector\(6\) = ([-0-9.+eE]+)} ${info_result} full Vector1_6
+ regexp {math_Vector\(7\) = ([-0-9.+eE]+)} ${info_result} full Vector1_7
+ regexp {math_Vector\(8\) = ([-0-9.+eE]+)} ${info_result} full Vector1_8
+ regexp {math_Vector\(9\) = ([-0-9.+eE]+)} ${info_result} full Vector1_9
+
+ if {${Vector1_1}!=120. || ${Vector1_2}!=120. || ${Vector1_3}!=120. || ${Vector1_4}!=0. || ${Vector1_5}!=0. || ${Vector1_6}!=0. || ${Vector1_7}!=0. || ${Vector1_8}!= 0.|| ${Vector1_9}!=0.} {
+ puts "Error : OCC524"
+ } else {
+ regexp -all {math_Vector\(1\) = ([-0-9.+eE]+)} ${info_result} full Vector2_1
+ regexp -all {math_Vector\(2\) = ([-0-9.+eE]+)} ${info_result} full Vector2_2
+ regexp -all {math_Vector\(3\) = ([-0-9.+eE]+)} ${info_result} full Vector2_3
+ regexp -all {math_Vector\(4\) = ([-0-9.+eE]+)} ${info_result} full Vector2_4
+ regexp -all {math_Vector\(5\) = ([-0-9.+eE]+)} ${info_result} full Vector2_5
+ regexp -all {math_Vector\(6\) = ([-0-9.+eE]+)} ${info_result} full Vector2_6
+ regexp -all {math_Vector\(7\) = ([-0-9.+eE]+)} ${info_result} full Vector2_7
+ regexp -all {math_Vector\(8\) = ([-0-9.+eE]+)} ${info_result} full Vector2_8
+ regexp -all {math_Vector\(9\) = ([-0-9.+eE]+)} ${info_result} full Vector2_9
+ if {${Vector2_1}!=60. || ${Vector2_2}!=60. || ${Vector2_3}!=60. || ${Vector2_4}!=60. || ${Vector2_5}!=60. || ${Vector2_6}!=60. || ${Vector2_7}!=0. || ${Vector2_8}!= 0.|| ${Vector2_9}!=0.} {
+ puts "OCC524: Error"
+ } else {
+ puts "OCC524: OK"
+ }
+ }
+ }
+}
+
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC525"
+puts "========"
+puts ""
+#########################################
+## Bug in GeomPlate_BuildPlateSurface::ComputeSurfInit()
+#########################################
+
+set mistake 0
+
+decho off
+if { [catch { OCC525 } ] } {
+ set mistake 1
+}
+decho on
+
+if { $mistake == 1 } {
+ puts "Faulty : OCC525"
+}
+
+set 2dviewer 1
--- /dev/null
+
+puts "======="
+puts "OCC531"
+puts "======="
+puts ""
+##########################################################
+## Can not intersect plane and cone.The ">intersect" command hangs up the computer
+##########################################################
+
+restore [locate_data_file OCC531_1.draw] a
+restore [locate_data_file OCC531_2.draw] b
+
+intersect result a b
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC536"
+puts "SAM1504"
+puts "========"
+
+vinit
+
+restore [locate_data_file OCC536.brep] S
+checkshape S
+
+explode S So
+checkshape S_1
+checkshape S_2
+
+if [catch {bfuse result S_1 S_2}] {
+ puts "Faulty OCC536"
+} else {
+ puts "OCC536 : OK"
+ checkshape result
+}
+
+set square 2.5068e+06
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC536"
+puts "SAM1504"
+puts "========"
+
+vinit
+
+restore [locate_data_file OCC536.brep] S
+checkshape S
+
+explode S So
+checkshape S_1
+checkshape S_3
+
+if [catch {bfuse result S_1 S_3}] {
+ puts "Faulty OCC536"
+} else {
+ puts "OCC536 : OK"
+ checkshape result
+}
+
+set square 2.56034e+06
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC536"
+puts "SAM1504"
+puts "========"
+
+vinit
+
+restore [locate_data_file OCC536.brep] S
+checkshape S
+
+explode S So
+checkshape S_1
+checkshape S_4
+
+if [catch {bfuse result S_1 S_4}] {
+ puts "Faulty OCC536"
+} else {
+ puts "OCC536 : OK"
+ checkshape result
+}
+
+set square 2.5405e+06
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC536"
+puts "SAM1504"
+puts "========"
+
+vinit
+
+restore [locate_data_file OCC536.brep] S
+checkshape S
+
+explode S So
+checkshape S_1
+checkshape S_5
+
+if [catch {bfuse result S_1 S_5}] {
+ puts "Faulty OCC536"
+} else {
+ puts "OCC536 : OK"
+ checkshape result
+}
+
+set square 2.45349e+06
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC536"
+puts "SAM1504"
+puts "========"
+
+vinit
+
+restore [locate_data_file OCC536.brep] S
+checkshape S
+
+explode S So
+checkshape S_2
+checkshape S_1
+
+if [catch {bfuse result S_2 S_1}] {
+ puts "Faulty OCC536"
+} else {
+ puts "OCC536 : OK"
+ checkshape result
+}
+
+set square 2.5068e+06
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC536"
+puts "SAM1504"
+puts "========"
+
+vinit
+
+restore [locate_data_file OCC536.brep] S
+checkshape S
+
+explode S So
+checkshape S_3
+checkshape S_1
+
+if [catch {bfuse result S_3 S_1}] {
+ puts "Faulty OCC536"
+} else {
+ puts "OCC536 : OK"
+ checkshape result
+}
+
+set square 2.56034e+06
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC536"
+puts "SAM1504"
+puts "========"
+
+vinit
+
+restore [locate_data_file OCC536.brep] S
+checkshape S
+
+explode S So
+checkshape S_4
+checkshape S_1
+
+if [catch {bfuse result S_4 S_1}] {
+ puts "Faulty OCC536"
+} else {
+ puts "OCC536 : OK"
+ checkshape result
+}
+
+set square 2.5405e+06
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC536"
+puts "SAM1504"
+puts "========"
+
+vinit
+
+restore [locate_data_file OCC536.brep] S
+checkshape S
+
+explode S So
+checkshape S_5
+checkshape S_1
+
+if [catch {bfuse result S_5 S_1}] {
+ puts "Faulty OCC536"
+} else {
+ puts "OCC536 : OK"
+ checkshape result
+}
+
+set square 2.45349e+06
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : OCC537"
+
+puts "======="
+puts "OCC537"
+puts "======="
+puts ""
+#######################################################################
+##Application do something in intersection operation for long time and eat much memory (This may be the
+## reason of BUS ERROR that happens in application). Intersection operation invokes for conical and plane
+## surfaces.
+#######################################################################
+
+restore [locate_data_file OCC537_CONE.draw] c
+restore [locate_data_file OCC537_PLANE.draw] p
+
+intersect result c p
+
+set wt_is [whatis result]
+
+if { [regexp {WIRE} ${wt_is}] } {
+ puts " OCC537 OK"
+} else {
+ puts "Error : OCC537"
+}
+
+set 2dviewer 2
+
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty OCC132"
+
+puts "================"
+puts "OCC538"
+puts "================"
+puts ""
+
+restore [locate_data_file OCC538.brep] Face
+checkshape Face
+
+point p 0.2453959532714904 -1.246869357124329
+
+set res1 [b2dclassify Face p]
+set info_result [split ${res1}]
+
+set ll [llength ${info_result}]
+if {${ll} < 4} {
+ puts "Faulty OCC132"
+} else {
+ if {[regexp {IN} $info_result]} {
+ puts "OCC132 : OK"
+ } else {
+ puts "Faulty OCC132"
+ }
+}
--- /dev/null
+puts "========================"
+puts " OCC541 "
+puts "========================"
+puts ""
+############################################
+## Extrema works wrong for line and circle laying on one plane.
+############################################
+
+restore [locate_data_file OCC541a.draw] c1x
+restore [locate_data_file OCC541b.draw] c2x
+
+set result [extrema c1x c2x]
+set err [llength $result]
+if { $err < 1} {
+ puts "Faulty OCC541 (amount of solution): command extrema does NOT work properly"
+} else {
+ puts "OCC541 OK (amount of solution): : command extrema works properly"
+}
+
+set 2dviewer 0
--- /dev/null
+
+puts "========"
+puts "OCC542"
+puts "========"
+puts ""
+################################
+## Wrong projection of the circle on the sphere
+################################
+
+restore [locate_data_file OCC542_C3D.draw] c3d
+restore [locate_data_file OCC542_S.draw] s
+
+if { [catch {project result c3d s } catch_result] } {
+ puts "OCC542 Faulty"
+} else {
+ # create dump of resulting curve
+ set dump [dump result]
+ # read dump of old curve
+ set olddump [read [open [locate_data_file OCC542_DUMP]]]
+ # if the the dumps is equal this bug is still exist
+ if { $dump == $olddump } {
+ puts "OCC542 Faulty"
+ } else {
+ puts "OCC542 WARNING: Dumps of old and new curve are different, probably bug is still exist"
+ }
+}
+
+set 2dviewer 0
--- /dev/null
+puts "========| OCC565 |========"
+##################################
+## Can not intersect two trimmed conical surfaces
+##################################
+
+restore [locate_data_file OCC565a.draw] s1
+restore [locate_data_file OCC565b.draw] s2
+
+puts "Preliminary check: intersection work with infinite cones:"
+if { [catch {intersect inf s1 s2 } catch_result] } {
+ puts "Faulty OCC565: function intersection works wrongly with infinite cones"
+} else {
+ set j 1
+ set er [lindex [whatis inf] 5]
+ repeat 4 {
+ set err [lindex [whatis inf_$j] 5]
+ if { $err != "curve" && $er != "curve"} {
+ puts " Faulty OCC565: function intersection works wrongly with infinite cones"
+ break
+ } else {
+ puts [format "curve inf_%s : exist " $j]
+ }
+ incr j
+ }
+ puts "Function intersection works correctly with infinite cones. Then check OCC565:"
+}
+
+trim s1x s1 0 2*pi 0 2.8
+trim s2x s2 0 2*pi 0 2.8
+
+if { [catch {intersect result s1x s2x } catch_result] } {
+ puts "Faulty OCC565 exception: function intersection works wrongly with trimmed cones"
+} else {
+ set nom 0
+ set j 1
+ set er [lindex [whatis result] 5]
+ repeat 4 {
+ set err [lindex [whatis result_$j] 5]
+ if { $err != "curve" && $er != "curve"} {
+ break
+ } else {
+ set nom [expr $nom + 1]
+ }
+ incr j
+ }
+ if { $nom == 0} {
+ puts " Faulty OCC565: function intersection works wrongly with trimmed cones"
+ } else {
+ puts " OCC565 OK: function intersection works with trimmed cones"
+ }
+}
+
+
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC566"
+puts "========"
+puts ""
+###############################################
+##BRepBndLib::AddClose builds box larger than BRepBndLib::Add
+###############################################
+
+restore [locate_data_file OCC566.brep] a
+
+set err1 [bounding a]
+set err2 [OCC566 a]
+
+regexp { *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+)} $err1 full v1_x v1_y v1_z v2_x v2_y v2_z
+regexp { *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+)} $err2 full v3_x v3_y v3_z v4_x v4_y v4_z
+
+vertex v1 $v1_x $v1_y $v1_z
+vertex v2 $v2_x $v2_y $v2_z
+
+vertex v3 $v3_x $v3_y $v3_z
+vertex v4 $v4_x $v4_y $v4_z
+
+distmini d1 v1 v2
+distmini d2 v3 v4
+
+regexp {([-0-9.+eE]+)$} [dump d1_val] full dis1
+puts $dis1
+regexp {([-0-9.+eE]+)$} [dump d2_val] full dis2
+puts $dis2
+
+set err [expr 1.*abs((($dis1 - $dis2) / $dis2) * 100)]
+puts ""
+puts [format "Different is %s percents" $err]
+
+if {$err > 1.0} {
+ puts " Faulty OCC566: BRepBndLib::AddClose builds box larger than BRepBndLib::Add - this should not be so!"
+} else {
+ puts " OCC566 OK"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
+
+puts "========"
+puts "OCC567"
+puts "========"
+puts ""
+#######################################
+## Can not intersect two Rectangular Trimmed Surfaces .
+#######################################
+
+restore [locate_data_file OCC567a.draw] s1
+restore [locate_data_file OCC567b.draw] s2
+
+if { [catch {intersect i s1 s2 } catch_result] } {
+ puts "Faulty OCC565: function intersection works wrongly with infinite Surfaces"
+} else {
+ set j 1
+ repeat 11 {
+ set err [lindex [whatis i_$j] 5]
+ if { $err != "curve"} {
+ puts " Faulty OCC565: function intersection works wrongly with infinite Surfaces"
+ break
+ } else {
+ puts [format "%s ) OCC565 OK: function intersection works with infinite Surfaces" $j]
+ }
+ incr j}
+}
+
+trim s1x s1 0 2*pi 0 2*pi/13
+trim s2x s2 0 2*pi 0 2*pi/13
+
+if { [catch {intersect result s1x s2x } catch_result] } {
+ puts "Faulty OCC565 exception: function intersection works wrongly with trimmed Surfaces"
+} else {
+ set nom 0
+ set j 1
+ repeat 11 {
+ set err [lindex [whatis result_$j] 5]
+ if { $err != "curve"} {
+ break
+ } else {
+ set nom [expr $nom + 1]
+ }
+ incr j
+ }
+ if { $nom == 0} {
+ puts "Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
+ } else {
+ puts " OCC565 OK: function intersection works with trimmed Surfaces"
+ }
+}
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC569: function intersection works wrongly with trimmed plane and cone surfaces"
+
+puts "========"
+puts "OCC569"
+puts "========"
+puts ""
+##################################
+## Can not intersect trimmed plane and cone surfaces
+##################################
+
+restore [locate_data_file OCC569a.draw] s1
+restore [locate_data_file OCC569b.draw] s2
+
+if { [catch {intersect result s1 s2 } catch_result] } {
+ puts "Faulty OCC569 exception: function intersection works wrongly with trimmed plane and cone surfaces "
+} else {
+ set nom 0
+ set j 1
+ repeat 10 {
+ set err [lindex [whatis result_$j] 5]
+ if { $err != "curve"} {
+ break
+ } else {
+ set nom [expr $nom + 1]
+ }
+ incr j
+ }
+ if { $nom == 0} {
+ puts "Faulty OCC569: function intersection works wrongly with trimmed plane and cone surfaces"
+ } else {
+ puts "OCC569 OK: function intersection works with trimmed plane and cone surfaces"
+ }
+}
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC5696"
+puts "================"
+puts ""
+#######################################################################################
+# Exception in BRepAdaptor_CompCurve due to uninitialised variable CurIndex
+#######################################################################################
+
+set BugNumber OCC5696
+
+set info_result [OCC5696]
+set index [string compare ${info_result} "par_edge = 1\n"]
+if {$index != 0} {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty OCC5698"
+
+pload QAcommands
+
+puts "============"
+puts "OCC5698"
+puts "============"
+puts ""
+######################################################
+# Incorrect result of intersection of a plane and an extrusion surface
+######################################################
+
+set BugNumber OCC5698
+
+restore [locate_data_file OCC5698.brep] s1
+
+set info_result [OCC5698 s1]
+
+set index [string compare ${info_result} "OK\n"]
+if {$index != 0} {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
+
+puts "========================"
+puts " OCC592 "
+puts "========================"
+puts ""
+###################################
+##BRepCheck_Analyzer does not detect faulty shape
+#####################################
+
+restore [locate_data_file OCC592.brep] ff114
+
+explode ff114 e
+mkcurve cc ff114_8
+cvalue cc 0.95 x y z
+vertex vv x y z
+mksurface gs ff114
+mkface ff gs
+donl ff114 vv
+trim trcc cc
+set aa [distmini dd vv ff]
+
+puts "******* Result *******"
+regexp {([-0-9.+eE]+)$} [dump dd_val] full dis1
+puts "distance between the point on curve and the surface is $dis1"
+
+set tolerance [maxtolerance ff114_8]
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
+puts "the tolerance of the edge is $MaxEdgeTolerance"
+puts "the tolerance is less than distance between point and surface"
+puts "BUT"
+
+decho off
+set che [checkshape ff114]
+decho on
+
+if { [regexp {Faulty} $che] != 1 } {
+ puts "Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
+} else {
+ puts "OCC592 OK: Checkshape (BRepCheck_Analyzer) detects bad shape"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect"
+
+puts "========================"
+puts " OCC593 "
+puts "========================"
+puts ""
+#############################################################
+## Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect
+#############################################################
+
+restore [locate_data_file OCC593.brep] ff48
+
+set tolerance [maxtolerance ff48]
+regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
+
+vertex vv -19.561252535222 17.89876466186 71.408126285268
+distmini dd vv ff48
+regexp {([-0-9.+eE]+)$} [dump dd_val] full ddval
+
+mksurface gs ff48
+
+proj gs -19.561252535222 17.89876466186 71.408126285268
+
+set pp1 [lindex [dump ext_1] 9]
+set pp2 [lindex [dump ext_1] 10]
+
+set err [expr abs ([expr $pp2 - $pp1])]
+puts [format "MaxFaceTolerance = %s" $MaxFaceTolerance]
+puts [format "MaxDistance = %s" $err]
+if { $err < $MaxFaceTolerance } {
+ puts "OCC593 (case 1) : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works properly"
+} else {
+ puts "Error : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect"
+}
+copy ext_1 oldext_1
+
+puts ""
+puts "***** Another example: *****"
+
+svalue gs 0.56 0.4 x y z
+point p x y z
+proj gs x y z
+
+set p1 [lindex [dump ext_1] 9]
+set p2 [lindex [dump ext_1] 10]
+
+set err1 [expr abs ([expr $p2 - $p1])]
+puts [format "MaxFaceTolerance = %s" $MaxFaceTolerance]
+puts [format "MaxDistance = %s" $err1]
+if { $err1 < $MaxFaceTolerance } {
+ puts "OCC593 (case 2) : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works properly"
+} else {
+ puts "Error : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect"
+}
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC601: function BLEND works wrongly"
+
+puts "========================"
+puts " OCC601 "
+puts "SAM1542"
+puts "========================"
+puts ""
+#############################################
+## No possibility to make a fillet 13 at the inner edge of the shape
+#############################################
+
+restore [locate_data_file OCC601.brep] a
+checkshape a
+
+explode a e
+
+if [catch {blend result a 13 a_41 } res] {
+ puts "Faulty OCC601: function BLEND works wrongly"
+} else {
+ puts "OCC601 OK: function BLEND works without exception"
+ checkshape result
+
+ set square 10
+ set 2dviewer 0
+}
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC604: Result of intersection operation is INcorrect !!!"
+
+puts "========================"
+puts " OCC604"
+puts "========================"
+puts ""
+############################
+## Wrong intersection between two tores.
+############################
+
+restore [locate_data_file OCC604a.draw] a
+restore [locate_data_file OCC604b.draw] b
+
+if { [catch { intersect result a b } catch_result] } {
+ puts "Faulty OCC604: function INTERSECTION works with exception"
+} else {
+ set nom 0
+ set j 1
+ repeat 10 {
+ set err [lindex [whatis res_$j] 5]
+ if { $err != "curve"} {
+ break
+ } else {
+ set nom [expr $nom + 1]
+ }
+ incr j
+ }
+ if { $nom != 1 } {
+ puts "Faulty OCC604: Result of intersection operation is INcorrect !!!"
+ } else {
+ puts "OCC604 OK : Result of intersection operation is CORRECT !!! "
+ }
+}
+
+set 3dviewer 1
--- /dev/null
+puts "========================"
+puts "OCC611"
+puts "SAM1564"
+puts "(case 1)"
+puts "========================"
+puts ""
+############################
+## No possibility to fuse the shapes.
+############################
+
+restore [locate_data_file OCC611.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_1 a_2
+checkshape result
+
+set square 531.197
+set 2dviewer 0
--- /dev/null
+puts "=================7======="
+puts "OCC611"
+puts "SAM1564"
+puts "(case 2)"
+puts "========================"
+puts ""
+############################
+## No possibility to fuse the shapes.
+############################
+
+restore [locate_data_file OCC611.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bop a_1 a_2
+bopfuse result
+checkshape result
+
+set square 531.197
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts "OCC611"
+puts "SAM1564"
+puts "(case 1)"
+puts "========================"
+puts ""
+############################
+## No possibility to fuse the shapes.
+############################
+
+restore [locate_data_file OCC611.brep] a
+explode a
+checkshape a_1
+checkshape a_2
+
+bfuse result a_2 a_1
+checkshape result
+
+set square 531.197
+set 2dviewer 0
--- /dev/null
+puts "========================"
+puts " OCC613"
+puts "(case 1)"
+puts "========================"
+puts ""
+#############################################
+## Meshing algo cannot create mesh for faces with internal edges
+#############################################
+
+restore [locate_data_file OCC613a.brep] result
+
+tclean result
+isos result 0
+incmesh result .1
+triangles result
+
+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 == 0 || $nod == 0 } {
+ puts "Error : Meshing algo cannot create mesh for faces with internal edges "
+}
+
+set 3dviewer 1
+
--- /dev/null
+puts "========================"
+puts " OCC613"
+puts "(case 2)"
+puts "========================"
+puts ""
+#############################################
+## Meshing algo cannot create mesh for faces with internal edges
+#############################################
+
+restore [locate_data_file OCC613b.brep] result
+
+tclean result
+isos result 0
+incmesh result .1
+triangles result
+
+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 == 0 || $nod == 0 } {
+ puts "Error : Meshing algo cannot create mesh for faces with internal edges "
+}
+
+set 3dviewer 1
+
--- /dev/null
+
+puts "========================"
+puts "OCC618"
+puts "========================"
+puts ""
+############################
+## Exception during bop
+############################
+
+restore [locate_data_file OCC618a.brep] a
+checkshape a
+restore [locate_data_file OCC618b.brep] b
+checkshape b
+
+if [catch {bop a b} catch_result] {
+ puts "Faulty OCC618 : BOP operation was made wrongly"
+} else {
+ puts "OCC618 OK: BOP operation works OK"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6278"
+puts "============"
+puts ""
+######################################################
+# Fuse operation produces incorrect result
+######################################################
+
+set BugNumber OCC6278
+
+restore [locate_data_file OCC6278-A.brep] a
+restore [locate_data_file OCC6278-B.brep] b
+
+bfuse result a b
+explode result v
+
+set nb_v_good 4
+
+set DumpList [dump result_2]
+if {[llength ${DumpList}] < 40} {
+ puts "Faulty ${BugNumber}: bad format of dump"
+} else {
+ regexp { *- *Point *3D *: *([-0-9.+eE]+), +([-0-9.+eE]+), +([-0-9.+eE]+)} ${DumpList} full x y z
+ puts $x
+ puts $y
+ puts $z
+
+ set percent_max 0.1
+
+ set x [lindex ${DumpList} 37]
+ set y [lindex ${DumpList} 38]
+ set z [lindex ${DumpList} 39]
+
+ set x [string range ${x} 0 end-1]
+ set y [string range ${y} 0 end-1]
+
+ set good_x -32.3042674857046
+ set good_y 20.0000000000001
+ set good_z 0.
+
+ set Percent_x [expr abs(${x} - ${good_x}) / abs(${good_x}) * 100.]
+ set Percent_y [expr abs(${y} - ${good_y}) / abs(${good_y}) * 100.]
+ if {${z} == 0.} {
+ set Percent_z 0.
+ } else {
+ set Percent_z [expr abs(${good_z} - ${z}) / abs(${z}) * 100.]
+ }
+
+ if {${Percent_x} > ${percent_max}} {
+ puts "Faulty ${BugNumber}: bad value of x = ${x}"
+ }
+ if {${Percent_y} > ${percent_max}} {
+ puts "Faulty ${BugNumber}: bad value of y = ${y}"
+ }
+ if {${Percent_z} > ${percent_max}} {
+ puts "Faulty ${BugNumber}: bad value of z = ${z}"
+ }
+}
+
+set length 278.725
+set 3dviewer 2
--- /dev/null
+puts "========"
+puts "OCC6412"
+puts "========"
+puts ""
+####################################################
+## Regression in visualization
+####################################################
+
+set BugNumber OCC6412
+
+restore [locate_data_file OCC6412.brep] result
+
+tclean result
+vinit
+vdisplay result
+vsetdispmode result 1
+
+isos result 0
+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} == 0 && ${nod} == 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 3dviewer 0
+
--- /dev/null
+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
--- /dev/null
+puts "============"
+puts "OCC6450"
+puts "============"
+puts ""
+######################################################
+# Cannot get common part of two parallel halfspaces
+######################################################
+
+set BugNumber OCC6450
+
+plane pl 100 0 0 1 0 0
+mkface f pl
+halfspace so1 f 0 0 0
+ttranslate f -200 0 0
+halfspace so2 f 0 0 0
+bcommon result so1 so2
+if {[dtyp result] == ""} {
+ puts "Faulty ${BugNumber}: operation failed"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6450"
+puts "============"
+puts ""
+######################################################
+# Cannot get common part of two parallel halfspaces
+######################################################
+
+set BugNumber OCC6450
+
+plane pl 100 0 0 1 0 0
+mkface f pl
+halfspace so1 f 0 0 0
+ttranslate f -200 0 0
+trotate f 0 0 0 0 0 1 45
+halfspace so2 f 0 0 0
+bcommon result so1 so2
+if {[dtyp result] == ""} {
+ puts "Faulty ${BugNumber}: operation failed"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6474"
+puts "============"
+puts ""
+######################################################
+# Incorrect result of intersection of a plane and an extrusion surface
+######################################################
+
+set BugNumber OCC6474
+
+restore [locate_data_file OCC6474-s1.draw] s1
+restore [locate_data_file OCC6474-s2.draw] s2
+
+intersect result s1 s2
+
+if {[llength [directory res*]] != 1} {
+ puts "Faulty ${BugNumber}: more than 1 intersection line is got"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 3dviewer 1
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "================"
+puts "BUC61023"
+puts "OCC65"
+puts "================"
+puts ""
+###############################################
+## Possibility to make a revolution to have a solid with a volume=0 m3
+###############################################
+
+restore [locate_data_file OCC65.brep] sh
+checkshape sh
+
+revol result sh 0 0 0 0 0 1 360
+
+checkshape result
+
+set square 1.0134e+06
+set 2dviewer 0
+
+
+
--- /dev/null
+puts "================"
+puts "OCC6503"
+puts "================"
+puts ""
+#######################################################################################
+# Incorrect calculation of bounding box for infinite surfaces
+#######################################################################################
+
+set BugNumber OCC6503
+
+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}
+}
+
+plane pl 0 0 0 0 0 1
+mkface f pl
+set info_result [bounding f]
+
+set x1 [lindex ${info_result} 0]
+set y1 [lindex ${info_result} 1]
+set z1 [lindex ${info_result} 2]
+set x2 [lindex ${info_result} 3]
+set y2 [lindex ${info_result} 4]
+set z2 [lindex ${info_result} 5]
+
+set good_x1 -1e+100
+set good_y1 -1e+100
+set good_z1 -9.9999999999999995e-08
+set good_x2 1e+100
+set good_y2 1e+100
+set good_z2 9.9999999999999995e-08
+
+set percent_max 0.1
+set status 0
+
+set x1_percent [GetPercent ${x1} ${good_x1}]
+set y1_percent [GetPercent ${y1} ${good_y1}]
+set z1_percent [GetPercent ${z1} ${good_z1}]
+set x2_percent [GetPercent ${x2} ${good_x2}]
+set y2_percent [GetPercent ${y2} ${good_y2}]
+set z2_percent [GetPercent ${z2} ${good_z2}]
+
+if {${x1_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : x1 is wrong"
+ set status 1
+}
+if {${y1_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : y1 is wrong"
+ set status 1
+}
+if {${z1_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : z1 is wrong"
+ set status 1
+}
+if {${x2_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : x2 is wrong"
+ set status 1
+}
+if {${y2_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : y2 is wrong"
+ set status 1
+}
+if {${z2_percent} > ${percent_max}} {
+ puts "Faulty ${BugNumber} : z2 is wrong"
+ set status 1
+}
+
+if { ${status} == 0 } {
+ puts "${BugNumber}: OK"
+} else {
+ puts "${BugNumber}: Faulty"
+}
+
+set 3dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6862"
+puts "============"
+puts ""
+#######################################################################
+# Tool for checking arguments of Boolean Operations
+#######################################################################
+
+set BugNumber OCC6862
+
+# self-intersection test
+restore [locate_data_file OCC497a.brep] a_1
+restore [locate_data_file OCC497b.brep] a_2
+
+decho off
+set resstr [bopargcheck a_2]
+decho on
+
+if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6862"
+puts "============"
+puts ""
+#######################################################################
+# Tool for checking arguments of Boolean Operations
+#######################################################################
+
+set BugNumber OCC6862
+
+# self-intersection test
+restore [locate_data_file OCC497e.brep] a_1
+restore [locate_data_file OCC497f.brep] a_2
+
+decho off
+set resstr [bopargcheck a_2]
+decho on
+
+if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO OCC111111 ALL: Faulty OCC6862"
+
+puts "============"
+puts "OCC6862"
+puts "============"
+puts ""
+#######################################################################
+# Tool for checking arguments of Boolean Operations
+#######################################################################
+
+set BugNumber OCC6862
+
+# test small edges
+restore [locate_data_file OCC651a.brep] a
+restore [locate_data_file OCC651b.brep] b
+
+puts "Checking shapes: bopargcheck a b /FTVEIP ..."
+decho off
+set resstr [bopargcheck a b /FTVEIP]
+decho on
+
+if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "TODO OCC111111 ALL: Faulty OCC6862"
+
+puts "============"
+puts "OCC6862"
+puts "============"
+puts ""
+#######################################################################
+# Tool for checking arguments of Boolean Operations
+#######################################################################
+
+set BugNumber OCC6862
+
+# test small edges
+restore [locate_data_file OCC651a.brep] a
+
+decho off
+puts "Checking shapes: bopargcheck a b /FTVEIP ..."
+set resstr [bopargcheck a /FTVEIP]
+decho on
+
+if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "============"
+puts "OCC6862"
+puts "============"
+puts ""
+#######################################################################
+# Tool for checking arguments of Boolean Operations
+#######################################################################
+
+set BugNumber OCC6862
+
+# test types
+box b1 10 20 10
+box b2 20 10 10
+explode b2 f
+
+decho off
+set resstr [bopargcheck b1 b2_1 -C /RFTVEI]
+decho on
+
+if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6862"
+puts "============"
+puts ""
+puts "TODO OCC111111 ALL: Faulty OCC6862"
+
+#######################################################################
+# Tool for checking arguments of Boolean Operations
+#######################################################################
+
+set BugNumber OCC6862
+
+# test small edges
+restore [locate_data_file OCC726.brep] a
+explode a
+
+decho off
+set resstr [bopargcheck a_1 a_2 -O /FTVEI]
+decho on
+
+if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6862"
+puts "============"
+puts ""
+#######################################################################
+# Tool for checking arguments of Boolean Operations
+#######################################################################
+
+set BugNumber OCC6862
+
+# face verification
+box b1 10 20 10
+box b2 20 10 10
+explode b1 f
+explode b2 f
+bcut r1 b1_6 b2_6
+bcommon r2 b1_6 b2_6
+explode r1 w
+explode r2 w
+mksurface gs b1_6
+mkface ff gs
+add r1_1 ff
+add r2_1 ff
+
+decho off
+set resstr [bopargcheck ff b2_6 -F /RTVEIP]
+decho on
+
+if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "============"
+puts "OCC6862"
+puts "============"
+puts ""
+#######################################################################
+# Tool for checking arguments of Boolean Operations
+#######################################################################
+
+set BugNumber OCC6862
+
+# test possibility to merge vertices
+box b1 10 20 10
+box b2 20 10 10
+explode b1 e
+explode b2 e
+tcopy b2_10 ee2
+compound b2_10 ee2 comp
+donl b1_10 comp
+
+decho off
+set resstr [bopargcheck b1_10 comp -O /RFTEIP]
+decho on
+
+if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "============"
+puts "OCC6862"
+puts "============"
+puts ""
+#######################################################################
+# Tool for checking arguments of Boolean Operations
+#######################################################################
+
+set BugNumber OCC6862
+
+# test possibility to merge edges
+box b1 10 20 10
+box b2 20 10 10
+explode b1 e
+explode b2 e
+tcopy b2_10 ee2
+wire ww b2_10 ee2
+donl b1_10 ww
+
+decho off
+set resstr [bopargcheck b1_10 ww -O /RFTVIP]
+decho on
+
+if { $resstr=="Faulties, that can not be treated by BOP, are detected.\n" } {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC7"
+puts "================"
+puts ""
+#########################################################
+## Extrema_ExtPElS throw the exception "gp_VectorWithNullMagnitude".
+#########################################################
+
+ptorus tor 3 1
+explode tor f
+vertex vv 0 3 0
+
+distmini result vv tor_1
+set info [dump result]
+
+if { [regexp "TShape # 1 : EDGE" $info] != 1
+ || [regexp "TShape # 2 : VERTEX" $info] != 1
+ || [regexp "TShape # 3 : VERTEX" $info] != 1 } {
+ puts "Error : Result is incorrect"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "=========="
+puts "OCC703 "
+puts "=========="
+puts ""
+##################################################
+## Wrong result of extrema
+## Draw command extrema c1 ce gives no solutions, but must be 2 solutions
+##################################################
+
+restore [locate_data_file OCC703_1.draw] c1
+restore [locate_data_file OCC703_2.draw] ce
+
+set result [extrema c1 ce]
+set err [llength $result]
+if { $err != 2} {
+ puts "Faulty OCC703 (amount of solution): command extrema does NOT work properly"
+} else {
+ puts "OCC703 OK (amount of solution): command extrema works properly"
+}
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "=========="
+puts "OCC705 "
+puts "=========="
+puts ""
+###########################################################
+## The matrix of inertia for sphere computed incorrectly.
+## In the secod case the not diagonal elements of the inertia matrix are not close to zero.
+###########################################################
+
+psphere result 10 10 10
+ttranslate result 10 10 10
+trotate result 0 0 0 0 1 1 34
+
+set list [vprops result]
+set inertia [regexp -all -inline { +[-0-9.+eE]+ +[-0-9.+eE]+ +[-0-9.+eE]+} $list]
+set matrix [regexp -all -inline {[-0-9.+eE]+} $inertia]
+
+set matrix12 [lindex $matrix 1]
+set matrix21 [lindex $matrix 3]
+set matrix23 [lindex $matrix 5]
+set matrix32 [lindex $matrix 7]
+
+if { ${matrix12} != 0. || ${matrix21} != 0. || ${matrix23} != 0. || ${matrix32} != 0. } {
+ puts "Faulty OCC705"
+} else {
+ puts "OCC705 OK"
+}
+
+set length 123.755
+set 2dviewer 0
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC712"
+puts "========"
+puts ""
+############################################################
+## Exeption is raised in DRAW during building draft with help command "depouille"
+## on face in the attached shape.
+## The source code of application is also attached and should be checked.
+############################################################
+
+set draftAngle 15
+set slabThick 30
+
+if [catch {OCC712 ${draftAngle} ${slabThick} } catch_result] {
+ puts "Faulty OCC712"
+} else {
+ puts "OCC712 OK"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "========"
+puts "OCC736"
+puts "========"
+puts ""
+#####################################################
+## After restoring attached shape(face) it is obviously that there is
+## selfintersecting wire. However BRepCheck gives reply that shape looks OK.
+#####################################################
+
+restore [locate_data_file OCC736.brep] result
+decho off
+set che [checkshape result r]
+decho on
+if { [regexp {OK} $che ] == 1 } {
+ puts "Faulty OCC736: checkshape command works wrongly"
+} else {
+ puts "OCC736 OK: checkshape command works PROPERLY"
+}
+
+set 2dviewer 0
+
--- /dev/null
+pload QAcommands
+
+puts "================"
+puts "OCC7372"
+puts "================"
+puts ""
+#######################################################################################
+# Invalid conversion 2D periodic BSpline curve to Bezier segments
+#######################################################################################
+
+set BugNumber OCC7372
+
+OCC7372
+
+set mistake 0
+set len [llength [directory segment*]]
+if { ${len} != 5 } {
+ puts "Faulty ${BugNumber} : segment number is wrong"
+ set mistake 1
+} else {
+ set good_length 73.3203
+ regexp {The length .* is ([-0-9.+eE]+)} [length segment_5] full current_length
+ if { [expr 1.*abs($good_length - $current_length)/$good_length * 100] > 0.1 } {
+ puts "Faulty ${BugNumber} : length is wrong for segment_5"
+ set mistake 1
+ }
+ renamevar segment_5 result
+}
+
+if { ${mistake} != 0 } {
+ puts "Faulty ${BugNumber}"
+} else {
+ puts "OK ${BugNumber}"
+}
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "========"
+puts "OCC747"
+puts "========"
+puts ""
+###############################
+## Exception in DRAW-command "distmini"
+###############################
+
+restore [locate_data_file OCC747_1.brep] s1
+checkshape s1
+restore [locate_data_file OCC747_2.brep] s2
+checkshape s2
+
+if { [catch { distmini result s1 s2 } status] } {
+ puts "Faulty OCC747"
+} else {
+ puts "OCC747 OK"
+}
+
--- /dev/null
+puts "============"
+puts "BUC60861"
+puts "OCC75"
+puts "============"
+puts ""
+puts "(case 1)"
+###############################
+## Incorrect work of section Shell-Shell.
+###############################
+
+restore [locate_data_file BUC60861_gap.brep] ss
+checkshape ss
+
+plane pl1 25680.2288 21428 9995 1 0 0
+mkface f1 pl1 -4000 8000 -5000 5000
+bsection result ss f1 -a
+
+set good_len 9265
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full tol
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
+if { [expr 1.*abs(${good_len} - $len)] > $tol } {
+ puts "Error : Length is bad"
+}
+
+set 2dviewer 0
+
+
+
+
--- /dev/null
+puts "============"
+puts "BUC60861"
+puts "OCC75"
+puts "============"
+puts ""
+puts "case 2"
+###############################
+## Incorrect work of section Shell-Shell.
+###############################
+
+restore [locate_data_file BUC60861_gap1.brep] ss
+checkshape ss
+
+plane pl1 25680.2288 21428 9995 1 0 0
+mkface f1 pl1 -1 11 -5 5
+bsection result ss f1 -a
+
+set good_len 10.0009
+regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full tol
+regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
+if { [expr 1.*abs(${good_len} - $len)] > $tol } {
+ puts "Error : len is bad"
+}
+
+set 2dviewer 0
+
+
+
--- /dev/null
+puts "TODO OCC12345 ALL: Error : Volume of OCC76-1.brep is calculated wrongly becuase 3020.94 value must be but 3050.41 is"
+puts "TODO OCC12345 ALL: Error : Volume of OCC76-2.brep is calculated wrongly because 9871.39 value must be but 10153.6 is"
+
+puts "================"
+puts "OCC76"
+puts "================"
+puts ""
+
+restore [locate_data_file shading_177.brep] sh1
+checkshape sh1
+regexp {Mass +: +([-0-9.+eE]+)} [vprops sh1] full l1
+
+restore [locate_data_file OCC76-2.brep] sh2
+checkshape sh2
+regexp {Mass +: +([-0-9.+eE]+)} [vprops sh2] full l2
+
+if { [expr abs([expr $l1 - 3020.94])] > 0.00999} {
+ puts "Error : Volume of OCC76-1.brep is calculated wrongly becuase 3020.94 value must be but $l1 is"
+} else {
+ puts " Volume of OCC76-1.brep is right calculated"
+}
+
+if { [expr abs([expr $l2 - 9871.39 ])] > 0.00999} {
+ puts "Error : Volume of OCC76-2.brep is calculated wrongly because 9871.39 value must be but $l2 is"
+} else {
+ puts " Volume of OCC76-2.brep is right calculated"
+}
--- /dev/null
+puts "========"
+puts "OCC766"
+puts "========"
+puts ""
+###############################
+## Can not project the 3-D point on the ellipse
+###############################
+
+restore [locate_data_file OCC766.draw] c
+
+set result [proj c 30 3.944304526105059e-31 20.0]
+
+set ll [llength $result]
+
+if {$ll > 0} {
+ puts "OCC770 OK"
+} else {
+ puts "Faulty OCC770"
+}
+
+set 2dviewer 1
--- /dev/null
+puts "================"
+puts "OCC8"
+puts "================"
+puts ""
+###################################################
+## BRepTools_WireExplorere gives not all edges from a wire
+###################################################
+
+pload XDE
+restore [locate_data_file OCC8.brep] result
+
+checkshape result
+
+explode result w
+set info [expwire result_1 sh]
+
+if { [regexp "BRepTools_WireExplorer donne 16 Edges" $info] != 1 } {
+ puts "Error : BRepTools_WireExplorer gives WRONG number of edges."
+}
+
+set 2dviewer 0
+
--- /dev/null
+pload QAcommands
+
+puts "========="
+puts " OCC813 "
+puts "========="
+puts ""
+#####################################
+## Geom2dGcc_Lin2d2Tan fails on point and ellipse
+#####################################
+set U 200
+set V 200
+
+set result [OCC813 $U $V]
+
+set nb_sol 0
+
+regexp {nb of solutions = ([-0-9.+eE]+)} $result full nb_sol
+
+if {$nb_sol > 0} {
+ puts "OCC813 OK"
+} else {
+ puts "Faulty OCC813"
+}
+
--- /dev/null
+pload QAcommands
+
+puts "========="
+puts " OCC814 "
+puts "========="
+puts ""
+####################################
+## Geom2dGcc_Lin2d2Tan fails on circle and ellipse
+####################################
+
+set result [OCC814]
+
+set nb_sol 0
+
+regexp {nb of solutions = ([-0-9.+eE]+)} $result full nb_sol
+
+if {$nb_sol > 0} {
+ puts "OCC814 OK"
+} else {
+ puts "Faulty OCC814"
+}
+
+
--- /dev/null
+pload QAcommands
+
+puts "============"
+puts "OCC8169"
+puts "============"
+puts ""
+#######################################################################
+# Wrong Geom2dAPI_InterCurveCurve segment
+#######################################################################
+
+set BugNumber OCC6768
+
+restore [locate_data_file OCC8169_1.brep] e1
+restore [locate_data_file OCC8169_2.brep] e2
+
+plane p 0 0 500 0 0 1 1 0 0
+dump p
+mkface result p
+
+if { [regexp {Faulty} [OCC8169 e1 e2 result]] == 0 } {
+ puts "OK ${BugNumber}"
+} else {
+ puts "Faulty ${BugNumber}"
+}
+
+set 2dviewer 0
--- /dev/null
+
+puts "================"
+puts "OCC862"
+puts "================"
+puts ""
+########################################
+## The result is just one extremum - intersection is not found.
+########################################
+restore [locate_data_file OCC862_1.draw] c1
+restore [locate_data_file OCC862_2.draw] c2
+
+set result [extrema c1 c2]
+set err [llength $result]
+if { $err <= 1} {
+ puts "Faulty OCC862 (amount of solution): command extrema does NOT work properly"
+} else {
+ puts "OCC862 OK (amount of solution): command extrema works properly"
+}
+
+set 2dviewer 0
+
--- /dev/null
+pload QAcommands
+
+puts "========"
+puts "OCC867"
+puts "========"
+puts ""
+######################################################
+## When calling method Init() with surface and its boundary parameters are the
+## arguments and then calling method Perform() it raises an exception.
+######################################################
+
+cylinder c 10 20
+trim c c 0 4 0 2
+point p 30 30 30
+set Umin 0
+set Usup 3
+set Vmin 0
+set Vsup 2
+
+if { [ catch {OCC867 p c $Umin $Usup $Vmin $Vsup} catch_result ] } {
+ puts "Faulty OCC867"
+} else {
+ puts "OCC867 OK"
+}
--- /dev/null
+puts "========"
+puts "BUC60963"
+puts "OCC88"
+puts "========"
+puts ""
+######################################################
+# BUC60963. can not project vertex to face
+######################################################
+
+restore [locate_data_file OCC88.brep] sh
+
+set che [checkshape sh]
+
+explode sh f
+checkshape sh_1
+checkshape sh_2
+
+mksurface surf1 sh_1
+mksurface surf2 sh_2
+puts "Make line from pos(135; 11; 0) with dir (0;0;1) "
+line l 135 11 0 0 0 1
+
+intersect res1 l surf1
+intersect res2 l surf2
+#set first1 [whatis res1]
+#set second1 [whatis res2]
+
+puts "Try to intersect with (135;10.9995;0) (0;0;1)"
+line ll 135 10.9995 0 0 0 1
+intersect res_1 ll surf1
+intersect res_2 ll surf2
+#set first2 [whatis res_1]
+#set second2 [whatis res_2]
+
+proc CalculatePercent {value good_value} {
+ if {${good_value} == 0. && ${value} == 0.} {
+ set percent 0.
+ } else {
+ set percent [expr abs(${value} - ${good_value}) / double(${good_value}) * 100.]
+ }
+ return ${percent}
+}
+
+set IsGood 1
+set percent_max 0.1
+if {[info exists res1] == 0} {
+ puts "Faulty OCC88 (case 2)"
+ set IsGood 0
+}
+if {[info exists res2] == 1} {
+ puts "Faulty OCC88 (case 3)"
+ set IsGood 0
+}
+
+if {[info exists res_1] == 0} {
+ puts "Faulty OCC88 (case 4)"
+ set IsGood 0
+}
+if {[info exists res_2] == 1} {
+ puts "Faulty OCC88 (case 5)"
+ set IsGood 0
+}
+
+if {${IsGood} == 1} {
+ set dump_list1 [split [dump res1] " :,\n"]
+ set x1 [lindex ${dump_list1} 10]
+ set y1 [lindex ${dump_list1} 12]
+ set z1 [lindex ${dump_list1} 14]
+
+ set dump_list2 [split [dump res_1] " :,\n"]
+ set x2 [lindex ${dump_list2} 10]
+ set y2 [lindex ${dump_list2} 12]
+ set z2 [lindex ${dump_list2} 14]
+
+ set x_percent [CalculatePercent ${x1} ${x2}]
+ set y_percent [CalculatePercent ${y1} ${y2}]
+ set z_percent [CalculatePercent ${z1} ${z2}]
+
+ puts "x1 = ${x1}"
+ puts "x2 = ${x2}"
+ puts "x_percent = ${x_percent}\n"
+
+ puts "y1 = ${y1}"
+ puts "y2 = ${y2}"
+ puts "y_percent = ${y_percent}\n"
+
+ puts "z1 = ${z1}"
+ puts "z2 = ${z2}"
+ puts "z_percent = ${z_percent}\n"
+
+ if {${x_percent} > ${percent_max}} {
+ puts "OCC88 Faulty (case 6)"
+ set IsGood 0
+ }
+ if {${y_percent} > ${percent_max}} {
+ puts "OCC88 Faulty (case 7)"
+ set IsGood 0
+ }
+ if {${z_percent} > ${percent_max}} {
+ puts "OCC88 Faulty (case 8)"
+ set IsGood 0
+ }
+}
+
+if {${IsGood} == 1} {
+ puts "OCC88 OK"
+}
+
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC889 : Checkshape says that the shape has FAULTY, but it is not truth"
+
+puts "============"
+puts "OCC889"
+puts "============"
+puts ""
+############################################
+## Checkshape founds number of errors on new face. It is not true.
+############################################
+restore [locate_data_file OCC889.rle] result
+
+decho off
+set che [checkshape result]
+decho on
+
+if { [ regexp {Faulty} $che ] == 1 } {
+ puts "Faulty OCC889 : Checkshape says that the shape has FAULTY, but it is not truth"
+} else {
+ puts "OCC889 OK : Checkshape works properly"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC909"
+
+pload QAcommands
+
+puts "======="
+puts "OCC909"
+puts "======="
+puts ""
+#######################################################
+## BRepTools_WireExplorer give different number of edges in dev and FIXOCC40
+#######################################################
+
+restore [locate_data_file OCC909_f.rle] f
+restore [locate_data_file OCC909_w.rle] w
+
+if { [ catch { set result [OCC909 w f] } ] } {
+ puts "Faulty OCC909"
+} else {
+ set count 0
+ regexp {Count = ()} $result full count
+ if {$count != 2} {
+ puts "Faulty OCC909"
+ } else {
+ puts "OCC909 OK"
+ }
+}
+
--- /dev/null
+pload QAcommands
+
+puts "======="
+puts "OCC921"
+puts "======="
+puts ""
+############################################################
+## I have found that regresiion on file a054a.sat depends on changes in
+## BRepTools::AddUVBounds. The method BRepTools::UVBounds(F, u1, u2, v1, v2)
+## returns different values in C40 and in dev. It is because there are different
+## strings of code. BRepTools.cxx line 213 (in dev version)
+############################################################
+
+set good_u1 -0.157166
+set good_u2 4.88216
+set good_v1 -1.65583
+set good_v2 7.93778
+
+set percent_max 0.1
+
+restore [locate_data_file OCC921.rle] a
+
+set BoundsList [OCC921 a]
+
+set u1 0
+set u2 0
+set v1 0
+set v2 0
+
+regexp {Bounds: *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+)} $BoundsList full u1 u2 v1 v2
+
+set u1_percent [expr abs(${u1} - ${good_u1}) / double(${good_u1}) * 100.]
+set u2_percent [expr abs(${u2} - ${good_u2}) / double(${good_u2}) * 100.]
+set v1_percent [expr abs(${v1} - ${good_v1}) / double(${good_v1}) * 100.]
+set v2_percent [expr abs(${v2} - ${good_v2}) / double(${good_v2}) * 100.]
+
+puts "u1 = ${u1}"
+puts "u2 = ${u2}"
+puts "v1 = ${v1}"
+puts "v2 = ${v2}"
+
+puts "u1_percent = ${u1_percent}"
+puts "u2_percent = ${u2_percent}"
+puts "v1_percent = ${v1_percent}"
+puts "v2_percent = ${v2_percent}"
+
+set status 0
+
+if {${u1_percent} > ${percent_max}} {
+ puts "OCC921: Error (case 1)"
+ set status 1
+}
+
+if {${u2_percent} > ${percent_max}} {
+ puts "OCC921: Error (case 2)"
+ set status 1
+}
+
+if {${v1_percent} > ${percent_max}} {
+ puts "OCC921: Error (case 3)"
+ set status 1
+}
+
+if {${v2_percent} > ${percent_max}} {
+ puts "OCC921: Error (case 4)"
+ set status 1
+}
+
+if {${status} == 0} {
+ puts "OCC921: OK"
+}
+
--- /dev/null
+puts "============"
+puts "OCC9303"
+puts "============"
+puts ""
+######################################################
+# Intersection curve surface doesn't take account of bounds of the surface
+######################################################
+
+set BugNumber OCC9303
+
+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}
+}
+
+cone c 0 0 0 30 0
+trimv nc c 20 30
+
+smallview +X+Z
+donly nc
+fit
+
+line ll 0 0 20 1 0 0
+
+if [catch {intersect res ll nc} result] {
+ set mistake 1
+} else {
+ set mistake 0
+}
+
+if { $mistake == 0} {
+ puts "${BugNumber} OK : intersection was finished"
+ puts ""
+ set nom 0
+ set j 1
+ repeat 2 {
+ set che [whatis res_$j]
+ set err [lindex $che [expr [llength $che] - 1]]
+ if { $err != "point"} {
+ break
+ } else {
+ set nom [expr $nom + 1]
+ }
+ incr j
+ }
+ if { $nom != 2 } {
+ puts [format "Faulty ${BugNumber}: Intersection was made WRONGLY: %s points" $nom]
+ } else {
+ puts [format "${BugNumber} OK : Intersection command works properly: %s points" $nom]
+
+ set dump1 [dump res_1]
+ set x1 [lindex ${dump1} 7]
+ set y1 [lindex ${dump1} 8]
+ set z1 [lindex ${dump1} 9]
+ set x1 [string range ${x1} 0 end-1]
+ set y1 [string range ${y1} 0 end-1]
+
+ set dump2 [dump res_2]
+ set x2 [lindex ${dump2} 7]
+ set y2 [lindex ${dump2} 8]
+ set z2 [lindex ${dump2} 9]
+ set x2 [string range ${x2} 0 end-1]
+ set y2 [string range ${y2} 0 end-1]
+
+ set percent_max 0.1
+ set GoodX1 1.154700538379251e+01
+ set GoodY1 0.000000000000000e+00
+ set GoodZ1 2.000000000000000e+01
+ set GoodX2 -1.154700538379251e+01
+ set GoodY2 0.000000000000000e+00
+ set GoodZ2 2.000000000000000e+01
+
+ set Percent_x1 [GetPercent ${x1} ${GoodX1}]
+ set Percent_y1 [GetPercent ${y1} ${GoodY1}]
+ set Percent_z1 [GetPercent ${z1} ${GoodZ1}]
+
+ set Percent_x2 [GetPercent ${x2} ${GoodX2}]
+ set Percent_y2 [GetPercent ${y2} ${GoodY2}]
+ set Percent_z2 [GetPercent ${z2} ${GoodZ2}]
+
+ if {${Percent_x1} > ${percent_max}} {
+ puts "Faulty ${BugNumber}: bad value of x1 = ${x1}"
+ } elseif {${Percent_y1} > ${percent_max}} {
+ puts "Faulty ${BugNumber}: bad value of y1 = ${y1}"
+ } elseif {${Percent_z1} > ${percent_max}} {
+ puts "Faulty ${BugNumber}: bad value of z1 = ${z1}"
+ } elseif {${Percent_x2} > ${percent_max}} {
+ puts "Faulty ${BugNumber}: bad value of x2 = ${x2}"
+ } elseif {${Percent_y2} > ${percent_max}} {
+ puts "Faulty ${BugNumber}: bad value of y2 = ${y2}"
+ } elseif {${Percent_z2} > ${percent_max}} {
+ puts "Faulty ${BugNumber}: bad value of z2 = ${z2}"
+ } else {
+ puts "${BugNumber}: OK"
+ }
+
+ }
+} else {
+ puts "Faulty ${BugNumber} : intersection does not finished"
+}
--- /dev/null
+puts "============"
+puts "OCC9303"
+puts "============"
+puts ""
+######################################################
+# Intersection curve surface doesn't take account of bounds of the surface
+######################################################
+
+set BugNumber OCC9303
+
+cone c 0 0 0 30 0
+trimv nc c 20 30
+
+smallview +X+Z
+donly nc
+fit
+
+line ll 0 0 10 1 0 0
+
+decho off
+if [catch {intersect res ll nc} result] {
+ set mistake 1
+} else {
+ set mistake 0
+}
+decho on
+
+if { $mistake == 0} {
+ puts "${BugNumber} OK : intersection was finished"
+ puts ""
+ set nom 0
+ set j 1
+ repeat 2 {
+ set che [whatis res_$j]
+ set err [lindex $che [expr [llength $che] - 1]]
+ if { $err != "point"} {
+ break
+ } else {
+ set nom [expr $nom + 1]
+ }
+ incr j
+ }
+ if { $nom != 0 } {
+ puts [format "Faulty ${BugNumber}: Intersection was made WRONGLY: %s points" $nom]
+ } else {
+ puts [format "${BugNumber} OK : Intersection command works properly: %s points" $nom]
+ }
+} else {
+ puts "Faulty ${BugNumber} : intersection does not finished"
+}
+
--- /dev/null
+
+puts "========="
+puts " OCC935 "
+puts "(case 1)"
+puts "========="
+puts ""
+###############################
+## instability in checkshape in KAS:dev version.
+###############################
+
+restore [locate_data_file OCC935_1.brep] result
+
+decho off
+set err [checkshape result]
+decho on
+set j 1
+repeat 25 {
+ restore [locate_data_file OCC935_1.brep] result
+ decho off
+ set err1 [checkshape result]
+ decho on
+ if { $err != $err1 } {
+ puts [format " Faulty OCC935 (case 1): function CHECKSHAPE works wrongly on %s time" $j]
+ break
+ } else {
+ puts [format " OCC935 (case 1) OK: function CHECKSHAPE works properly %s time" $j]
+ }
+ incr j
+}
+
+set 2dviewer 0
+
+
--- /dev/null
+
+puts "========="
+puts " OCC935 "
+puts "(case 2)"
+puts "========="
+puts ""
+###############################
+## instability in checkshape in KAS:dev version.
+###############################
+
+restore [locate_data_file OCC935_2.brep] result
+
+decho off
+set err [checkshape result]
+decho on
+
+set j 1
+repeat 25 {
+ restore [locate_data_file OCC935_2.brep] result
+ decho off
+ set err1 [checkshape result]
+ decho on
+ if { $err != $err1 } {
+ puts [format " Faulty OCC935 (case 2): function CHECKSHAPE works wrongly on %s time" $j]
+ break
+ } else {
+ puts [format " OCC935 (case 2) OK: function CHECKSHAPE works properly %s time" $j]
+ }
+ incr j
+}
+
+set 2dviewer 0
--- /dev/null
+
+puts "========="
+puts " OCC943 "
+puts "(case 1)"
+puts "========="
+puts ""
+#####################################################
+## The regression is intersecting pcurves of face, They are added by fixshape.
+## (To see this you can try fixshape dF.rle from attachment. But please note, that
+## checkshape on result of fixshape sometimes fails and sometimes not. It is
+## instability!)
+######################################################
+
+restore [locate_data_file OCC943_1.brep] result
+
+decho off
+set err [checkshape result]
+decho on
+
+set j 1
+repeat 25 {
+ restore [locate_data_file OCC943_1.brep] result
+ decho off
+ set err1 [checkshape result]
+ decho on
+ if { $err != $err1 } {
+ puts [format " Faulty OCC943 (case 1): function CHECKSHAPE works wrongly on %s time" $j]
+ break
+ } else {
+ puts [format " OCC943 (case 1) OK: function CHECKSHAPE works properly %s time" $j]
+ }
+ incr j
+}
+
+set 2dviewer 0
+
--- /dev/null
+
+puts "========="
+puts " OCC943 "
+puts "(case 2)"
+puts "========="
+puts ""
+#########################################################
+## distinace between projection and initial point in dev version is larger then in C40.
+#########################################################
+
+restore [locate_data_file OCC943_2.draw] su
+
+set X 5.759527537723098
+set Y 31.81368637070151
+set Z -0.2989616405627145
+
+vertex v $X $Y $Z
+proj su $X $Y $Z
+
+regexp {Parameters +: +[-0-9.+eE]+ +([-0-9.+eE]+)} [dump ext_1] full resV
+
+cvalue ext_1 $resV cx cy cz
+vertex V cx cy cz
+distmini d V v
+
+regexp {([-0-9.+eE]+)$} [dump d_val] full res
+
+set res_good 1.108e-05
+
+if { $res > $res_good } {
+ puts ""
+ puts "Faulty OCC493 (case 2)"
+} else {
+ puts ""
+ puts " OCC493 (case 2) OK"
+}
--- /dev/null
+puts "TODO ?OCC12345 ALL: Faulty OCC956"
+
+puts "========="
+puts " OCC956 "
+puts "(case 1)"
+puts "========="
+puts ""
+###############################################
+##possible regression in KAS:dev on checkshape. Fails on valid shape
+###############################################
+
+restore [locate_data_file OCC956_1.brep] result
+
+decho off
+set che [checkshape result]
+decho on
+
+if { [regexp {Faulty} $che] } {
+ puts "Faulty OCC956 (case 1): Checkshape says that the shape is incorrect, but it is not truth"
+} else {
+ puts "OCC956 OK (case 1): Checkshape works properly"
+}
+
+set 2dviewer 0
+
--- /dev/null
+puts "TODO ?OCC12345 ALL: Faulty OCC956"
+
+puts "========="
+puts " OCC956 "
+puts "(case 2)"
+puts "========="
+puts ""
+###############################################
+##possible regression in KAS:dev on checkshape. Fails on valid shape
+###############################################
+
+restore [locate_data_file OCC956_2.brep] result
+
+decho off
+set che [checkshape result]
+decho on
+
+if { [regexp {Faulty} $che] } {
+ puts "Faulty OCC956 (case 2): Checkshape says that the shape is incorrect, but it is not truth"
+} else {
+ puts "OCC956 OK (case 2): Checkshape works properly"
+}
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC9"
+
+puts "================"
+puts "OCC9"
+puts "================"
+puts ""
+
+pload QAcommands
+restore [locate_data_file OCC9-path.draw] d
+############### checkshape d # is not a topological shape
+restore [locate_data_file OCC9-cur1.draw] b
+############### checkshape b # is not a topological shape
+restore [locate_data_file OCC9-cur2.draw] c
+############### checkshape c # is not a topological shape
+
+## compute radius
+cvalue b 0 x y z
+cvalue b 0 P0
+vertex V [dval x] [dval y] [dval z]
+
+mkedge E d
+distmini dm V E
+
+## make pipe
+OCC9 res d b c [dval dm_val]
+
+## check parametrization
+
+# puts "Path 0: [dval x] [dval y] [dval z]"
+
+# cvalue b 1 x y z
+# cvalue b 1 P1
+# puts "Path 1: [dval x] [dval y] [dval z]"
+
+# svalue res 0 0 x y z
+# svalue res 0 0 S0
+# puts "Surf 0 0: [dval x] [dval y] [dval z]"
+
+# svalue res 0 1 x y z
+# svalue res 0 1 S1
+# puts "Surf 0 1: [dval x] [dval y] [dval z]"
+
+set n 1
+set sum 0
+for {set i -470} {$i < 240} {incr i 25} {
+# cvalue d $i "P$n"
+# svalue res 0 $i "S$n"
+# puts "donly res P$n S$n"
+ incr n
+ # puts "n = $n i = $i"
+
+ ####cvalue d $i x y z
+ cvalue b $i x y z
+ svalue res 0 $i xs ys zs
+ set dist [expr sqrt (\
+ ( [dval x ] - [dval xs ] ) * ( [dval x ] - [dval xs ] )\
+ + ( [dval y ] - [dval ys ] ) * ( [dval y ] - [dval ys ] )\
+ + ( [dval z ] - [dval zs ] ) * ( [dval z ] - [dval zs ] )\
+ ) ]
+ set sum [expr $sum + $dist ]
+ puts "1-st Dist at $i : $dist"
+
+ ####cvalue d $i x y z
+ cvalue c $i x y z
+ ####svalue res 0 $i xs ys zs
+ svalue res 1 $i xs ys zs
+ set dist [expr sqrt (\
+ ( [dval x ] - [dval xs ] ) * ( [dval x ] - [dval xs ] )\
+ + ( [dval y ] - [dval ys ] ) * ( [dval y ] - [dval ys ] )\
+ + ( [dval z ] - [dval zs ] ) * ( [dval z ] - [dval zs ] )\
+ ) ]
+ set sum [expr $sum + $dist ]
+ puts "2-nd Dist at $i : $dist"
+
+}
+####puts "\n Avg dist on $n intervals: [expr $sum / $n ]"
+set Avg_dist [expr $sum / (2 * $n) ]
+puts "\n Avg dist on $n intervals: ${Avg_dist}"
+
+set check_dist [dval dm_val]
+puts "\n check_dist = ${check_dist}"
+if { ${Avg_dist} > ${check_dist} } {
+ puts "\n Faulty OCC9"
+} else {
+ puts "\n OCC9: OK"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty OCC9"
+
+puts "================"
+puts "OCC9"
+puts "================"
+puts ""
+
+pload QAcommands
+restore [locate_data_file OCC9-path.draw] d
+############### checkshape d # is not a topological shape
+restore [locate_data_file OCC9-cur1.draw] b
+############### checkshape b # is not a topological shape
+restore [locate_data_file OCC9-cur2.draw] c
+############### checkshape c # is not a topological shape
+
+## compute radius
+cvalue b 0 x y z
+cvalue b 0 P0
+vertex V [dval x] [dval y] [dval z]
+
+mkedge E d
+distmini dm V E
+
+## make pipe
+set tolerance 0.0001
+OCC9 res d b c [dval dm_val] ${tolerance}
+
+## check parametrization
+
+# puts "Path 0: [dval x] [dval y] [dval z]"
+
+# cvalue b 1 x y z
+# cvalue b 1 P1
+# puts "Path 1: [dval x] [dval y] [dval z]"
+
+# svalue res 0 0 x y z
+# svalue res 0 0 S0
+# puts "Surf 0 0: [dval x] [dval y] [dval z]"
+
+# svalue res 0 1 x y z
+# svalue res 0 1 S1
+# puts "Surf 0 1: [dval x] [dval y] [dval z]"
+
+set n 1
+set sum 0
+for {set i -470} {$i < 240} {incr i 25} {
+# cvalue d $i "P$n"
+# svalue res 0 $i "S$n"
+# puts "donly res P$n S$n"
+ incr n
+ # puts "n = $n i = $i"
+
+ ####cvalue d $i x y z
+ cvalue b $i x y z
+ svalue res 0 $i xs ys zs
+ set dist [expr sqrt (\
+ ( [dval x ] - [dval xs ] ) * ( [dval x ] - [dval xs ] )\
+ + ( [dval y ] - [dval ys ] ) * ( [dval y ] - [dval ys ] )\
+ + ( [dval z ] - [dval zs ] ) * ( [dval z ] - [dval zs ] )\
+ ) ]
+ set sum [expr $sum + $dist ]
+ puts "1-st Dist at $i : $dist"
+
+ ####cvalue d $i x y z
+ cvalue c $i x y z
+ ####svalue res 0 $i xs ys zs
+ svalue res 1 $i xs ys zs
+ set dist [expr sqrt (\
+ ( [dval x ] - [dval xs ] ) * ( [dval x ] - [dval xs ] )\
+ + ( [dval y ] - [dval ys ] ) * ( [dval y ] - [dval ys ] )\
+ + ( [dval z ] - [dval zs ] ) * ( [dval z ] - [dval zs ] )\
+ ) ]
+ set sum [expr $sum + $dist ]
+ puts "2-nd Dist at $i : $dist"
+
+}
+####puts "\n Avg dist on $n intervals: [expr $sum / $n ]"
+set Avg_dist [expr $sum / (2 * $n) ]
+puts "\n Avg dist on $n intervals: ${Avg_dist}"
+
+set check_dist ${tolerance}
+puts "\n check_dist = ${check_dist}"
+if { ${Avg_dist} > ${check_dist} } {
+ puts "\n Faulty OCC9"
+} else {
+ puts "\n OCC9: OK"
+}
+
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Error : here is shading problem"
+
+puts "============"
+puts "FRA62476"
+puts ""
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+
+restore [locate_data_file fra62476a.brep] result
+checkshape result
+
+tclean result
+incmesh result .1
+triangles result
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri != 93 && $nod != 56 } {
+ puts "Error : here is shading problem"
+}
+
+set 3dviewer 0
+
+
+
--- /dev/null
+
+puts "=========="
+puts "FRA62476"
+puts ""
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+puts ""
+
+restore [locate_data_file fra62476b.brep] result
+checkshape result
+
+tclean result
+incmesh result .1
+triangles result
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri !=239 && $nod != 145 } {
+ puts "Shady FRA62476: here may be shading problem, number tri & nod
+ are changed"
+}
+
+set 3dviewer 0
+
+
--- /dev/null
+puts "==========="
+puts "GER61235"
+puts "==========="
+
+restore [locate_data_file ger61235a.brep] tool
+checkshape tool
+restore [locate_data_file ger61235b.brep] object
+checkshape object
+
+bsection result object tool
+
+puts "Result of section :"
+checkshape result
+#To check geometry part
+mksurface s1 tool
+mksurface s2 object
+
+puts "Result of intersect :"
+intersect result s1 s2
+puts [checksection result]
+
+set 2dviewer 0
+
+
--- /dev/null
+puts "=========="
+puts "PRO19422"
+puts "GER60462"
+puts "=========="
+puts ""
+#############################################################
+## Errors when cutting, 2 cases in /dp_25/IBug/pro/19422 files o1 t1 and o2 t2, restore.
+## cut c1 o1 t1 fails. cut c2 o2 t2 fails
+#############################################################
+
+restore [locate_data_file pro19422a.brep] shape
+checkshape shape
+restore [locate_data_file pro19422b.brep] tool
+checkshape tool
+
+bcut result shape tool
+
+set square 3166.93
+set 2dviewer 0
+
--- /dev/null
+puts "=========="
+puts "PRO19422"
+puts "=========="
+puts ""
+#############################################################
+## Errors when cutting, 2 cases in /dp_25/IBug/pro/19422 files o1 t1 and o2 t2, restore.
+## cut c1 o1 t1 fails. cut c2 o2 t2 fails
+#############################################################
+
+restore [locate_data_file pro19422c.brep] shape
+checkshape shape
+restore [locate_data_file pro19422d.brep] tool
+checkshape tool
+
+bcut result shape tool
+
+set square 2369.43
+set 2dviewer 0
--- /dev/null
+puts "TODO OCC12345 ALL: Faulty PRO20333: here is shading problem"
+
+puts "============"
+puts "PRO20333"
+puts ""
+puts "=================================="
+puts "It takes visual check for this BUG"
+puts "=================================="
+
+restore [locate_data_file pro20333a.brep] result
+checkshape result
+
+tclean result
+isos result 0
+incmesh result .1
+triangles result
+
+set info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $info full tri
+regexp { +([-0-9.+eE]+) +nodes} $info full nod
+
+if { $tri != 107 || $nod != 109 } {
+ puts "Faulty PRO20333: here is shading problem"
+}
+
+set 3dviewer 0
--- /dev/null
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+###### vcolorscale: vcolorscale [RangeMin RangeMax Intervals HeightFont Position X Y]: draw color scale
+###### RangeMin - min of color scale number range
+###### RangeMax - max of color scale number range
+###### Intervals - number of color scale segments
+###### HeightFont - height of font
+###### Position - Defines position for color scale labels
+############### 0 - NONE
+############### 1 - LEFT
+############### 2 - RIGHT
+############### 3 - CENTER
+###### X,Y - coordinates of color scale
+
+vinit
+vcolorscale 10 20 100 16 2 0 0
+set only_screen 0
+
+
--- /dev/null
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+#vdrawtext: vdrawtext name X Y Z R G B hor_align ver_align angle zoomable height Aspect FONT
+#------------------------------------------------------
+# X\Y\Z - Position Of Text
+#------------------------------------------------------
+# R\G\B - Color Of Text
+#------------------------------------------------------
+# hor_align 0 to 3
+# HorizontalTextAlignment is HTA_LEFT 0
+# HTA_CENTER 1
+# HTA_RIGHT 2
+#
+# ver_align 0 to 4
+# VerticalTextAlignment is VTA_BOTTOM 0
+# VTA_CENTER 1
+# VTA_TOP 2
+#------------------------------------------------------
+# angle - angle turn of text. this variable in degrees
+#------------------------------------------------------
+# zoomable - if this variable "0" text not zoomable
+# if this variable "1" text zoomable as object in DrawCommands
+#------------------------------------------------------
+# height - Font Height
+#------------------------------------------------------
+# Aspect - Aspect Font 0 to 4
+# If in list of textfont, not find font with necessary aspect, will be used default font "Courier" with OSD_FA_Regular aspect
+# FontAspect is FA_Undefined, FA_Regular, FA_Bold, FA_Italic, FA_BoldItalic
+# - 0 - - 1 - - 2 - - 3 - - 4 -
+#------------------------------------------------------
+# FONT - font name of font
+# If in list of textfont, not find font with necessary Name, will be used default font "Courier"
+#
+
+vinit
+set only_screen 1
+
+vtrihedron trihedr
+
+vpoint p1 100 100 -400
+vpoint p2 000 000 -400
+vpoint p3 -100 -100 -400
+vdrawtext OpenCascade 100 100 -400 000 255 255 0 0 000 1 50 1 Times-Roman
+vdrawtext OpenCascade 000 000 -400 000 255 255 1 0 000 1 50 1 Times-Roman
+vdrawtext OpenCascade -100 -100 -400 000 255 255 2 0 000 1 50 1 Times-Roman
+
+vpoint p4 100 100 -500
+vpoint p5 000 000 -500
+vpoint p6 -100 -100 -500
+vdrawtext OpenCascade 100 100 -500 255 000 000 0 2 000 1 50 1 Times-Roman
+vdrawtext OpenCascade 000 000 -500 255 000 000 1 2 000 1 50 1 Times-Roman
+vdrawtext OpenCascade -100 -100 -500 255 000 000 2 2 000 1 50 1 Times-Roman
+
+vpoint p7 100 100 -450
+vpoint p8 000 000 -450
+vpoint p9 -100 -100 -450
+vdrawtext OpenCascade 100 100 -450 005 255 000 0 1 000 1 50 1 Times-Roman
+vdrawtext OpenCascade 000 000 -450 005 255 000 1 1 000 1 50 1 Times-Roman
+vdrawtext OpenCascade -100 -100 -450 005 255 000 2 1 000 1 50 1 Times-Roman
+
+
+vdrawtext _.Left._ 200 200 200 255 255 255 0 0 000 1 50 1 Times-Roman
+vdrawtext _.Left._ 200 200 200 255 255 000 0 0 090 1 50 1 Times-Roman
+
+vdrawtext _.Right._ 200 200 200 255 000 255 2 2 000 1 50 1 Times-Roman
+vdrawtext _.Right._ 200 200 200 255 155 150 2 2 090 1 50 1 Times-Roman
+
+vdrawtext _.0123456789._ 200 200 200 000 000 255 1 1 045 1 50 1 Times-Roman
+vdrawtext _.0123456789._ 200 200 200 255 000 000 1 1 -45 1 50 1 Times-Roman
+
+vdrawtext _.~!@#$%^&*:?|+-._ -200 000 400 255 000 000 0 0 0 1 50 1 Times-Roman
+
+box atextbox -100 -100 -100 -200 -200 -200
+vdisplay atextbox
+
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+
+vdrawtext OpenCascade -200 -200 100 255 000 255 0 0 010 0 15 1 Times-Roman
+vdrawtext OpenCascade -200 -200 150 000 255 255 0 0 010 0 15 1 Arbat
+vdrawtext OpenCascade -200 -200 200 255 255 000 0 0 010 0 15 3 Elephant
+vdrawtext OpenCascade -200 -200 250 000 255 005 0 0 010 0 15 4 RockWell
+vdrawtext OpenCascade -200 -200 300 255 000 005 0 0 010 0 15 1 Webdings
+vdrawtext OpenCascade -200 -200 350 255 000 205 0 0 010 0 15 1 Arial
--- /dev/null
+puts "TODO OCC11111 ALL: Faulty : Export to pdf file was done but size of file is incorrect"
+
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+#vinit
+#vexport
+#vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format
+#
+
+pload XSDRAW
+vinit
+set only_screen 1
+
+meshfromstl m [locate_data_file shape.stl]
+
+meshdispmode m 34
+
+set aFile $imagedir/${test_image}.pdf
+
+vexport ${aFile} PDF
+
+if { [file exists ${aFile}] } {
+ puts "Export to pdf file was done"
+ set filesize [file size ${aFile}]
+ if { $filesize != 154489 } {
+ puts "Faulty : Export to pdf file was done but size of file is incorrect"
+ }
+} else {
+ puts "Faulty : Export to pdf file was not done"
+}
+
+
--- /dev/null
+puts "TODO ?OCC11111 ALL: Faulty : Export to"
+
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+#vexport
+#vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format
+#Testing export to PDF format
+
+vinit
+set only_screen 1
+
+vtrihedron trihedron
+
+vpoint p1 -300 -300 -300
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p2 -300 -300 -100
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p3 -100 -100 -300
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p4 -100 -100 -100
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+
+
+vpoint p5 -300 -100 -300
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p6 -100 -300 -300
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p7 -300 -100 -100
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p8 -100 -300 -100
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+
+vaxis ax1 100 100 100 100 100 0
+
+box a 110 110 110 200 200 200
+vdisplay a
+
+set aFile $imagedir/${test_image}.pdf
+
+vexport ${aFile} PDF
+
+if { [file exists ${aFile}] } {
+ puts "Export to pdf file was done"
+ set filesize [file size ${aFile}]
+ puts $filesize
+ if { $filesize != 10055 } {
+ puts "Faulty : Export to pdf file was done but size of file is incorrect"
+ }
+} else {
+ puts "Faulty : Export to pdf file was not done"
+}
--- /dev/null
+puts "TODO ?OCC11111 ALL: Faulty : Export to"
+
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+#vexport
+#vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format
+#Testing export to PS format
+
+vinit
+set only_screen 1
+
+vtrihedron trihedron
+
+vpoint p1 -300 -300 -300
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p2 -300 -300 -100
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p3 -100 -100 -300
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p4 -100 -100 -100
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+
+
+vpoint p5 -300 -100 -300
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p6 -100 -300 -300
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p7 -300 -100 -100
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p8 -100 -300 -100
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+
+vaxis ax1 100 100 100 100 100 0
+
+box a 110 110 110 200 200 200
+vdisplay a
+
+set aFile $imagedir/${test_image}.ps
+
+vexport ${aFile} PS
+
+if { [file exists ${aFile}] } {
+ puts "Export to PS format was done"
+ set filesize [file size ${aFile}]
+ if { $filesize != 10418 } {
+ puts "Faulty : Export to PS format was done but size of file is incorrect"
+ }
+} else {
+ puts "Faulty : Export to PS format was not done"
+}
--- /dev/null
+puts "TODO ?OCC11111 ALL: Faulty : Export to"
+
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+#vexport
+#vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format
+#Testing export to EPS format
+
+vinit
+set only_screen 1
+
+vtrihedron trihedron
+
+vpoint p1 -300 -300 -300
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p2 -300 -300 -100
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p3 -100 -100 -300
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p4 -100 -100 -100
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+
+
+vpoint p5 -300 -100 -300
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p6 -100 -300 -300
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p7 -300 -100 -100
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p8 -100 -300 -100
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+
+vaxis ax1 100 100 100 100 100 0
+
+box a 110 110 110 200 200 200
+vdisplay a
+
+set aFile $imagedir/${test_image}.eps
+
+vexport ${aFile} EPS
+
+if { [file exists ${aFile}] } {
+ puts "Export to EPS file was done"
+ set filesize [file size ${aFile}]
+ if { $filesize != 10362 } {
+ puts "Faulty : Export to EPS file was done but size of file is incorrect"
+ }
+ } else {
+ puts "Faulty : Export to EPS file was not done"
+ }
--- /dev/null
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+#vexport
+#vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format
+#Testing export to TEX format
+
+vinit
+set only_screen 1
+
+vtrihedron trihedron
+
+vpoint p1 -300 -300 -300
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p2 -300 -300 -100
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p3 -100 -100 -300
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p4 -100 -100 -100
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+
+
+vpoint p5 -300 -100 -300
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p6 -100 -300 -300
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p7 -300 -100 -100
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p8 -100 -300 -100
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+
+vaxis ax1 100 100 100 100 100 0
+
+box a 110 110 110 200 200 200
+vdisplay a
+
+set aFile $imagedir/${test_image}.tex
+
+vexport ${aFile} TEX
+
+if { [file exists ${aFile}] } {
+ puts "Export to TEX file was done"
+ set filesize [file size ${aFile}]
+ puts "Size of TEX file = $filesize"
+ if { $filesize >= 1500 } {
+ puts "Faulty : Export to TEX file was done but size of file is incorrect"
+ }
+ } else {
+ puts "Faulty : Export to TEX file was not done"
+ }
--- /dev/null
+puts "TODO ?OCC11111 ALL: Faulty : Export to"
+
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+#vexport
+#vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format
+#Testing export to SVG format
+
+vinit
+set only_screen 1
+
+vtrihedron trihedron
+
+vpoint p1 -300 -300 -300
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p2 -300 -300 -100
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p3 -100 -100 -300
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p4 -100 -100 -100
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+
+
+vpoint p5 -300 -100 -300
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p6 -100 -300 -300
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p7 -300 -100 -100
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p8 -100 -300 -100
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+
+vaxis ax1 100 100 100 100 100 0
+
+box a 110 110 110 200 200 200
+vdisplay a
+
+set aFile $imagedir/${test_image}.svg
+
+vexport ${aFile} SVG
+
+if { [file exists ${aFile}] } {
+ puts "Export to SVG file was done"
+ set filesize [file size ${aFile}]
+ if { $filesize != 13838 } {
+ puts "Faulty : Export to SVG file was done but size of file is incorrect"
+ }
+ } else {
+ puts "Faulty : Export to SVG file was not done"
+ }
--- /dev/null
+puts "TODO ?OCC11111 ALL: Faulty : Export to"
+
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+#vexport
+#vexport full_file_path {PS | EPS | TEX | PDF | SVG | PGF } : exports the view to a vector file of a given format
+#Testing export to PGF format
+
+vinit
+set only_screen 1
+
+vtrihedron trihedron
+
+vpoint p1 -300 -300 -300
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p2 -300 -300 -100
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p3 -100 -100 -300
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p4 -100 -100 -100
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+
+
+vpoint p5 -300 -100 -300
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p6 -100 -300 -300
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p7 -300 -100 -100
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p8 -100 -300 -100
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier
+
+vaxis ax1 100 100 100 100 100 0
+
+box a 110 110 110 200 200 200
+vdisplay a
+
+set aFile $imagedir/${test_image}.pgf
+
+vexport ${aFile} PGF
+
+if { [file exists ${aFile}] } {
+ puts "Export to PGF file was done"
+ set filesize [file size ${aFile}]
+ puts $filesize
+ if { $filesize != 20398 } {
+ puts "Faulty : Export to PGF file was done but size of file is incorrect"
+ }
+ } else {
+ puts "Faulty : Export to PGF file was not done"
+ }
--- /dev/null
+puts "TODO OCC11111 ALL: OCC21578: Faulty"
+puts "TODO OCC11111 ALL: Error : The square of result shape is"
+
+puts "============"
+puts "OCC21578"
+puts "============"
+puts ""
+######################################################
+# Attached shape is not vizualized in the shaded mode
+######################################################
+
+set BugNumber OCC21578
+
+restore [locate_data_file OCC21578.brep] result
+
+vinit
+tclean result
+vsetdispmode 1
+vdisplay result
+vfit
+
+set tri_info [trinfo result]
+regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
+regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
+regexp {Maximal deflection +([-0-9.+eE]+)} $tri_info full defl
+
+set good_tri 231
+set good_nod 236
+set good_defl 0.004029564463949387
+
+puts [format " Triangles= %s Nodes= %s Deflection= %s " $tri $nod $defl]
+
+set status 0
+if {${tri} != ${good_tri}} {
+ set status 1
+}
+if {${nod} != ${good_nod}} {
+ set status 1
+}
+#if {${defl} != ${good_defl}} {
+# set status 1
+#}
+
+if { ${status} != 0 } {
+ puts "${BugNumber}: Faulty"
+} else {
+ puts "${BugNumber}: OK"
+}
+
+set only_screen 1
+set square 0
+
catch { vfit }
-if { [ catch { vdump $imagedir/${test_image}.gif } catch_result ] } {
+if { [ catch { vdump $imagedir/${test_image}.png } catch_result ] } {
puts $catch_result
}
-set diff [diffimage $imagedir/${test_image}.gif [ locate_data_file ${group}_${subgroup}_${test_image}.gif ] 0. 0 0 ]
-
-if { $diff > 10 } {
- puts "Error : images are different"
-}
-
puts "TEST COMPLETED"
projects / occt.git / commitdiff