From: bugmaster Date: Wed, 5 Dec 2012 13:17:05 +0000 (+0400) Subject: Reorganization of bugs testing group X-Git-Tag: V6_6_0_beta~197 X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=82cbc512dffaa6bf4eb161f15188cf2b57e32491;p=occt-copy.git Reorganization of bugs testing group --- diff --git a/tests/bugs/demo/CR23409 b/tests/bugs/demo/CR23409 deleted file mode 100755 index 378d4bd690..0000000000 --- a/tests/bugs/demo/CR23409 +++ /dev/null @@ -1,34 +0,0 @@ -puts "============" -puts "CR23409" -puts "============" -puts "" -################################################################################### -# Tricheck command doesn't report problem when triangulation has unexpected holes -################################################################################### - -restore [locate_data_file bug23167_f397.brep] result -vinit -vsetdispmode 1 -vdisplay result -axo -fit -isos result 0 -triangles result -set info_bad [tricheck result] -if { [regexp "Not connected mesh inside face 1" $info_bad] != 1 } { - puts "Error : Tricheck command doesn't report message" -} - -tclean result -incmesh result 0.01 -set info_good [tricheck result] -if { [string compare $info_good "" ] != 0 } { - puts "Error : Tricheck command works incorrect when shape looks good" -} - -set 3dviewer 1 - - - - - diff --git a/tests/bugs/demo/CR23410 b/tests/bugs/demo/CR23410 deleted file mode 100755 index 2a4b9ec643..0000000000 --- a/tests/bugs/demo/CR23410 +++ /dev/null @@ -1,58 +0,0 @@ -puts "============" -puts "CR23410" -puts "============" -puts "" -####################################################################### -# QA comamnds don't work properly in new testing system -####################################################################### -pload QAcommands - -set r_1 0.4 -set r_2 0.5 -set g_1 0.9 -set g_2 1 -set b_1 0 -set b_2 0.1 -set x1 128 -set y1 235 -box result 100 100 100 -vdisplay result -vsetdispmode 1 -vfit -vsetcolor result GREEN -set color [ QAGetPixelColor ${x1} ${y1} ] -regexp {RED +: +([-0-9.+eE]+)} $color full rd -regexp {GREEN +: +([-0-9.+eE]+)} $color full gr -regexp {BLUE +: +([-0-9.+eE]+)} $color full bl - -set red_status 0 -if { $rd < $r_1 || $rd > $r_2 } { - set red_status 1 -} else { - set red_status 0 -} - -set green_status 0 -if { $gr < $g_1 || $gr > $g_2 } { - set green_status 1 -} else { - set green_status 0 -} - -set blue_status 0 -if { $bl < $b_1 || $bl > $b_2 } { - set blue_status 1 -} else { - set blue_status 0 -} - -if { $red_status != 0 || $green_status != 0 || $blue_status != 0 } { - puts "Error : color are not equal" - puts "Error : QA command QAGetPixelColor doesn't work properly" -} -set 3dviewer 1 - - - - - diff --git a/tests/bugs/demo/CR23416 b/tests/bugs/demo/CR23416 deleted file mode 100755 index 5222caef69..0000000000 --- a/tests/bugs/demo/CR23416 +++ /dev/null @@ -1,20 +0,0 @@ -puts "============" -puts "CR23416" -puts "============" -puts "" -####################################################################### -# Regression of current version in compare with occt-653: crash while visualizing the shape -####################################################################### - -isos 2 -smallview -set info [restore [locate_data_file CR23416-ProblemFace.brep] result] -set check_error [lsearch $info exception] -if { $check_error != -1 } { - puts "Error : crashes during visualization" -} -fit -set only_xwd 1 - - - diff --git a/tests/bugs/demo/bug23409 b/tests/bugs/demo/bug23409 new file mode 100644 index 0000000000..378d4bd690 --- /dev/null +++ b/tests/bugs/demo/bug23409 @@ -0,0 +1,34 @@ +puts "============" +puts "CR23409" +puts "============" +puts "" +################################################################################### +# Tricheck command doesn't report problem when triangulation has unexpected holes +################################################################################### + +restore [locate_data_file bug23167_f397.brep] result +vinit +vsetdispmode 1 +vdisplay result +axo +fit +isos result 0 +triangles result +set info_bad [tricheck result] +if { [regexp "Not connected mesh inside face 1" $info_bad] != 1 } { + puts "Error : Tricheck command doesn't report message" +} + +tclean result +incmesh result 0.01 +set info_good [tricheck result] +if { [string compare $info_good "" ] != 0 } { + puts "Error : Tricheck command works incorrect when shape looks good" +} + +set 3dviewer 1 + + + + + diff --git a/tests/bugs/demo/bug23410 b/tests/bugs/demo/bug23410 new file mode 100644 index 0000000000..2a4b9ec643 --- /dev/null +++ b/tests/bugs/demo/bug23410 @@ -0,0 +1,58 @@ +puts "============" +puts "CR23410" +puts "============" +puts "" +####################################################################### +# QA comamnds don't work properly in new testing system +####################################################################### +pload QAcommands + +set r_1 0.4 +set r_2 0.5 +set g_1 0.9 +set g_2 1 +set b_1 0 +set b_2 0.1 +set x1 128 +set y1 235 +box result 100 100 100 +vdisplay result +vsetdispmode 1 +vfit +vsetcolor result GREEN +set color [ QAGetPixelColor ${x1} ${y1} ] +regexp {RED +: +([-0-9.+eE]+)} $color full rd +regexp {GREEN +: +([-0-9.+eE]+)} $color full gr +regexp {BLUE +: +([-0-9.+eE]+)} $color full bl + +set red_status 0 +if { $rd < $r_1 || $rd > $r_2 } { + set red_status 1 +} else { + set red_status 0 +} + +set green_status 0 +if { $gr < $g_1 || $gr > $g_2 } { + set green_status 1 +} else { + set green_status 0 +} + +set blue_status 0 +if { $bl < $b_1 || $bl > $b_2 } { + set blue_status 1 +} else { + set blue_status 0 +} + +if { $red_status != 0 || $green_status != 0 || $blue_status != 0 } { + puts "Error : color are not equal" + puts "Error : QA command QAGetPixelColor doesn't work properly" +} +set 3dviewer 1 + + + + + diff --git a/tests/bugs/demo/bug23416 b/tests/bugs/demo/bug23416 new file mode 100644 index 0000000000..5222caef69 --- /dev/null +++ b/tests/bugs/demo/bug23416 @@ -0,0 +1,20 @@ +puts "============" +puts "CR23416" +puts "============" +puts "" +####################################################################### +# Regression of current version in compare with occt-653: crash while visualizing the shape +####################################################################### + +isos 2 +smallview +set info [restore [locate_data_file CR23416-ProblemFace.brep] result] +set check_error [lsearch $info exception] +if { $check_error != -1 } { + puts "Error : crashes during visualization" +} +fit +set only_xwd 1 + + + diff --git a/tests/bugs/end b/tests/bugs/end index c0d6f2d670..38b1e60106 100755 --- a/tests/bugs/end +++ b/tests/bugs/end @@ -14,19 +14,11 @@ if { [isdraw result] } { vfit vdump $imagedir/${test_image}.png } -} else { - if { [info exists 3dviewer] } { - if { ${3dviewer} == 2 } { - vdump $imagedir/${test_image}.png - } - } } - if { [info exist only_xwd] } { - xwd $imagedir/${test_image}.png - } -#} else { -# puts "Error : The command can not be build." -#} + +if { [info exist only_screen] } { + vdump $imagedir/${test_image}.png +} # to end a test script puts "TEST COMPLETED" diff --git a/tests/bugs/fclasses/CR23403 b/tests/bugs/fclasses/CR23403 deleted file mode 100755 index b3b65a6e68..0000000000 --- a/tests/bugs/fclasses/CR23403 +++ /dev/null @@ -1,12 +0,0 @@ -####################################################################### -# Crash when parsing an expression with lexical error -####################################################################### -pload QAcommands - -set result [CR23403 \t] -set length [llength ${result}] - -puts "" -if { ${length} != 0 } { - puts "Error : parsing is incorrect" -} \ No newline at end of file diff --git a/tests/bugs/fclasses/bug23403 b/tests/bugs/fclasses/bug23403 new file mode 100644 index 0000000000..b3b65a6e68 --- /dev/null +++ b/tests/bugs/fclasses/bug23403 @@ -0,0 +1,12 @@ +####################################################################### +# Crash when parsing an expression with lexical error +####################################################################### +pload QAcommands + +set result [CR23403 \t] +set length [llength ${result}] + +puts "" +if { ${length} != 0 } { + puts "Error : parsing is incorrect" +} \ No newline at end of file diff --git a/tests/bugs/heal/buc60940 b/tests/bugs/heal/buc60940 new file mode 100644 index 0000000000..04ff551045 --- /dev/null +++ b/tests/bugs/heal/buc60940 @@ -0,0 +1,10 @@ +puts "========================" +puts "BUC60940" +puts "========================" + +restore [locate_data_file buc60940.rle] a + +fixshape result a 1e-7 1 +puts [checkshape result] + +set 2dviewer 1 diff --git a/tests/bugs/heal/buc60950 b/tests/bugs/heal/buc60950 new file mode 100644 index 0000000000..6d7f171d90 --- /dev/null +++ b/tests/bugs/heal/buc60950 @@ -0,0 +1,15 @@ +puts "===========" +puts " BUC60950" +puts "===========" + +restore [locate_data_file buc60950.rle] a +checkshape a + +fixshape result a 1e-7 + +puts [checkshape result] + +set 2dviewer 1 + + + diff --git a/tests/bugs/heal/bug208 b/tests/bugs/heal/bug208 index 028c78eecb..0905902d76 100755 --- a/tests/bugs/heal/bug208 +++ b/tests/bugs/heal/bug208 @@ -1,4 +1,3 @@ -#INTERFACE IGES puts "========" puts "OCC208" puts "========" diff --git a/tests/bugs/heal/bug209 b/tests/bugs/heal/bug209 index f8e5fbeccc..359d81d58e 100755 --- a/tests/bugs/heal/bug209 +++ b/tests/bugs/heal/bug209 @@ -1,4 +1,3 @@ -#INTERFACE IGES puts "========" puts "OCC209" puts "========" diff --git a/tests/bugs/heal/bug60940 b/tests/bugs/heal/bug60940 deleted file mode 100755 index 04ff551045..0000000000 --- a/tests/bugs/heal/bug60940 +++ /dev/null @@ -1,10 +0,0 @@ -puts "========================" -puts "BUC60940" -puts "========================" - -restore [locate_data_file buc60940.rle] a - -fixshape result a 1e-7 1 -puts [checkshape result] - -set 2dviewer 1 diff --git a/tests/bugs/heal/bug60950 b/tests/bugs/heal/bug60950 deleted file mode 100755 index 6d7f171d90..0000000000 --- a/tests/bugs/heal/bug60950 +++ /dev/null @@ -1,15 +0,0 @@ -puts "===========" -puts " BUC60950" -puts "===========" - -restore [locate_data_file buc60950.rle] a -checkshape a - -fixshape result a 1e-7 - -puts [checkshape result] - -set 2dviewer 1 - - - diff --git a/tests/bugs/iges/CR22888 b/tests/bugs/iges/CR22888 deleted file mode 100755 index d1af309483..0000000000 --- a/tests/bugs/iges/CR22888 +++ /dev/null @@ -1,57 +0,0 @@ -puts "============" -puts "CR22888" -puts "============" -puts "" -####################################################################### -# Wrong shape result imported from IGES file -####################################################################### -pload QAcommands - -set x1 166 -set y1 225 - -igesread [locate_data_file CR22888-data.igs] a * -if { [regexp "This shape seems to be valid" [checkshape a]] != 1 } { - puts "Error : checkshape is faulty" -} - -explode a f -vinit -vsetdispmode 0 -vdisplay a_1 -vfit -vzfit -tclean a_1 -set inf_before [trinfo a_1] - -vsetdispmode a_1 1 -set inf_after [trinfo a_1] -regexp { +([-0-9.+eE]+) +triangles} $inf_after full tri_after -regexp { +([-0-9.+eE]+) +nodes} $inf_after full nod_after - -set color [QAGetPixelColor ${x1} ${y1}] -regexp {RED +: +([-0-9.+eE]+)} $color full rd -regexp {GREEN +: +([-0-9.+eE]+)} $color full gr -regexp {BLUE +: +([-0-9.+eE]+)} $color full bl - -if { $rd == 0 || $gr == 0 || $bl == 0 } { - puts "Error : Face is not shaded (colors are not equal)" -} - -if { $tri_after <= 0 || $nod_after <= 0 } { - puts "Error : Face is not shaded (number of nodes or triangles is wrong)" -} - -set CR22888_draw 1 - - - - - - - - - - - - diff --git a/tests/bugs/iges/CR23377 b/tests/bugs/iges/CR23377 deleted file mode 100755 index 285ee11562..0000000000 --- a/tests/bugs/iges/CR23377 +++ /dev/null @@ -1,23 +0,0 @@ -# Original bug : 23377 -# Date : 12 Aug 2012 - -set check_nb 7 -igesbrep [locate_data_file OCC23377-Input.igs] result * -regexp {Number of Rational BSpline surfaces +([-0-9.+eE]+)} [expshape result 1 1] full nb -if { ${nb} != ${check_nb} } { - puts "Error : The Number of Rational BSpline surfaces is wrong!" - puts "Error : It's $nb indtead of $check_nb!" -} -puts "Number of Rational BSpline surfaces is $nb" -set 2dviewer 1 - - - - - - - - - - - diff --git a/tests/bugs/iges/buc60591_1 b/tests/bugs/iges/buc60591_1 new file mode 100644 index 0000000000..9fe2524f88 --- /dev/null +++ b/tests/bugs/iges/buc60591_1 @@ -0,0 +1,51 @@ +set os $env(os_type) +if { [string compare $os "windows"] == 0 } { +# puts "TODO OCC23561 $os: child process exited abnormally" +} else { + puts "TODO OCC23561 ALL: An exception was caught" + puts "TODO OCC23561 ALL: Tcl Exception:" + puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*" +} +puts "TODO OCC23561 ALL: TEST INCOMPLETE" + +puts "==========" +puts "BUC60591" +puts "==========" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" +puts "consideration of \"buc60591a\" model" + +igesbrep [locate_data_file buc60591a.igs] a * + +tpcompound buc60591a + +puts [checkshape buc60591a r] + +###################################################################### + +catch {exec rm ${imagedir}/buc60591a.brep} +save buc60591a ${imagedir}/buc60591a.brep +catch {exec rm ${imagedir}/buc60591a_iges.igs} +brepiges buc60591a ${imagedir}/buc60591a_iges.igs +dall + +restore ${imagedir}/buc60591a.brep buc60591a_brep +catch {exec rm ${imagedir}/buc60591a_brep.igs} +brepiges buc60591a_brep ${imagedir}/buc60591a_brep.igs +dall + +igesbrep ${imagedir}/buc60591a_brep.igs a_brep_iges * +tpcompound buc60591a_brep_iges +puts [checkshape buc60591a_brep_iges] + +igesbrep ${imagedir}/buc60591a_iges.igs a_iges * +tpcompound buc60591a_iges +puts [checkshape buc60591a_iges] + +renamevar buc60591a_iges result + +set 2dviewer 0 + diff --git a/tests/bugs/iges/buc60591_2 b/tests/bugs/iges/buc60591_2 new file mode 100644 index 0000000000..fafb47d07c --- /dev/null +++ b/tests/bugs/iges/buc60591_2 @@ -0,0 +1,50 @@ +set os $env(os_type) +if { [string compare $os "windows"] == 0 } { +# puts "TODO OCC23561 $os: child process exited abnormally" +} else { + puts "TODO OCC23561 ALL: An exception was caught" + puts "TODO OCC23561 ALL: Tcl Exception:" + puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*" +} +puts "TODO OCC23561 ALL: TEST INCOMPLETE" + +puts "==================================" +puts "BUC60591" +puts "==================================" +puts "" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" +puts "consideration of \"buc60591b\" model" + +igesbrep [locate_data_file buc60591b.igs] a * + +tpcompound buc60591b + +puts [checkshape buc60591b r] + +###################################################################### + +catch {exec rm ${imagedir}/buc60591b.brep} +save buc60591b ${imagedir}/buc60591b.brep +catch {exec rm ${imagedir}/buc60591b_iges.igs} +brepiges buc60591b ${imagedir}/buc60591b_iges.igs +dall + +restore ${imagedir}/buc60591b.brep buc60591b_brep +catch {exec rm ${imagedir}/buc60591b_brep.igs} +brepiges buc60591b_brep ${imagedir}/buc60591b_brep.igs +dall + +igesbrep ${imagedir}/buc60591b_brep.igs b_brep_iges * +tpcompound buc60591b_brep_iges +puts [checkshape buc60591b_brep_iges] + +igesbrep ${imagedir}/buc60591b_iges.igs b_iges * +tpcompound buc60591b_iges +puts [checkshape buc60591b_iges] + +renamevar buc60591b_iges result + +set 2dviewer 0 + diff --git a/tests/bugs/iges/buc60591_3 b/tests/bugs/iges/buc60591_3 new file mode 100644 index 0000000000..3ad633515a --- /dev/null +++ b/tests/bugs/iges/buc60591_3 @@ -0,0 +1,49 @@ +set os $env(os_type) +if { [string compare $os "windows"] == 0 } { +# puts "TODO OCC23561 $os: child process exited abnormally" +} else { + puts "TODO OCC23561 ALL: An exception was caught" + puts "TODO OCC23561 ALL: Tcl Exception:" + puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*" +} +puts "TODO OCC23561 ALL: TEST INCOMPLETE" + +puts "==================================" +puts "BUC60591" +puts "==================================" +puts "" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" +puts "consideration of \"buc60591c\" model" + +igesbrep [locate_data_file buc60591c.igs] a * + +tpcompound buc60591c +puts [checkshape buc60591c r] + +###################################################################### + +catch {exec rm ${imagedir}/buc60591c.brep} +save buc60591c ${imagedir}/buc60591c.brep +catch {exec rm ${imagedir}/buc60591c_iges.igs} +brepiges buc60591c ${imagedir}/buc60591c_iges.igs +dall + +restore ${imagedir}/buc60591c.brep buc60591c_brep +catch {exec rm ${imagedir}/buc60591c_brep.igs} +brepiges buc60591c_brep ${imagedir}/buc60591c_brep.igs +dall + +igesbrep ${imagedir}/buc60591c_brep.igs c_brep_iges * +tpcompound buc60591c_brep_iges +puts [checkshape buc60591c_brep_iges] + +igesbrep ${imagedir}/buc60591c_iges.igs c_iges * +tpcompound buc60591c_iges +puts [checkshape buc60591c_iges] + +renamevar buc60591c_iges result + +set 2dviewer 0 + diff --git a/tests/bugs/iges/buc60591_4 b/tests/bugs/iges/buc60591_4 new file mode 100644 index 0000000000..c9f0af8a76 --- /dev/null +++ b/tests/bugs/iges/buc60591_4 @@ -0,0 +1,48 @@ +set os $env(os_type) +if { [string compare $os "windows"] == 0 } { +# puts "TODO OCC23561 $os: child process exited abnormally" +} else { + puts "TODO OCC23561 ALL: An exception was caught" + puts "TODO OCC23561 ALL: Tcl Exception:" + puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*" +} +puts "TODO OCC23561 ALL: TEST INCOMPLETE" + +puts "BUC60591" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" +puts "consideration of \"buc60591d\" model" + +igesbrep [locate_data_file buc60591d.igs] a * + +tpcompound buc60591d +puts [checkshape buc60591d r] + +###################################################################### + +catch {exec rm ${imagedir}/buc60591d.brep} +save buc60591d ${imagedir}/buc60591d.brep +catch {exec rm ${imagedir}/buc60591d_iges.igs} +brepiges buc60591d ${imagedir}/buc60591d_iges.igs +dall + +restore ${imagedir}/buc60591d.brep buc60591d_brep +catch {exec rm ${imagedir}/buc60591d_brep.igs} +brepiges buc60591d_brep ${imagedir}/buc60591d_brep.igs +dall + +igesbrep ${imagedir}/buc60591d_brep.igs d_brep_iges * +tpcompound buc60591d_brep_iges +puts [checkshape buc60591d_brep_iges] + +igesbrep ${imagedir}/buc60591d_iges.igs d_iges * +tpcompound buc60591d_iges +puts [checkshape buc60591d_iges] + +renamevar buc60591d_iges result + +set 2dviewer 0 + diff --git a/tests/bugs/iges/buc60594 b/tests/bugs/iges/buc60594 new file mode 100644 index 0000000000..54e7f12ff5 --- /dev/null +++ b/tests/bugs/iges/buc60594 @@ -0,0 +1,15 @@ +puts "==================================" +puts "BUC60594" +puts "==================================" +puts "" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" + +igesbrep [locate_data_file buc60594a.igs] a * + +tpcompound result +puts [checkshape result] +puts [checkshape result r] + +set 2dviewer 0 diff --git a/tests/bugs/iges/buc60595_1 b/tests/bugs/iges/buc60595_1 new file mode 100644 index 0000000000..9f543dfaf0 --- /dev/null +++ b/tests/bugs/iges/buc60595_1 @@ -0,0 +1,24 @@ +puts "==================" +puts "BUC60595" +puts "==================" +puts "" +################################################################### +## This one relates to the generation of floating point exceptions during the IGE to BRep translation. +## See the notes in fw_fpe.READ. +################################################################### + +set bug_var [ igesbrep [locate_data_file buc60595a.igs] a * ] + +tpcompound result + +if { [ string match "*Uninspired signal*" $bug_var ] == 1 } { + puts "Error : TEST FAILED" +} + +isos 0 +isos result 15 + +puts "Previously here was message: Uninspired signal 8" + +set 2dviewer 0 + diff --git a/tests/bugs/iges/buc60595_2 b/tests/bugs/iges/buc60595_2 new file mode 100644 index 0000000000..ebc4fbe219 --- /dev/null +++ b/tests/bugs/iges/buc60595_2 @@ -0,0 +1,18 @@ +puts "==================" +puts "BUC60595" +puts "==================" + +set bug_var [ igesbrep [locate_data_file buc60595b.igs] a * ] + +tpcompound result + +if { [ string match "*Uninspired signal*" $bug_var ] == 1 } { + puts "Error : TEST FAILED" +} + +isos 0 +isos result 15 + +puts "Previously here was message: Uninspired signal 8" + +set 2dviewer 0 diff --git a/tests/bugs/iges/buc60595_3 b/tests/bugs/iges/buc60595_3 new file mode 100644 index 0000000000..349e1c6042 --- /dev/null +++ b/tests/bugs/iges/buc60595_3 @@ -0,0 +1,17 @@ +puts "================" +puts "BUC60595" +puts "================" + +set bug_var [ igesbrep [locate_data_file buc60595c.igs] c * ] +if { [ string match "*Uninspired signal*" $bug_var ] == 1 } { + puts "Error : TEST FAILED" +} + +tpcompound result + +isos result 0 +isos result 15 + +set 2dviewer 0 + + diff --git a/tests/bugs/iges/buc60610 b/tests/bugs/iges/buc60610 new file mode 100644 index 0000000000..8a257347be --- /dev/null +++ b/tests/bugs/iges/buc60610 @@ -0,0 +1,14 @@ +puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" + +puts "========================" +puts "BUC60610" +puts "========================" + +igesbrep [locate_data_file buc60610a.igs] a * + +tpcompound result +puts [checkshape result] +puts [checkshape result r] + +set 2dviewer 0 + diff --git a/tests/bugs/iges/buc60625 b/tests/bugs/iges/buc60625 new file mode 100644 index 0000000000..37e49d3953 --- /dev/null +++ b/tests/bugs/iges/buc60625 @@ -0,0 +1,55 @@ +puts "====================" +puts "BUC60625" +puts "====================" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +cpulimit 1500 + +set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] + +tpcompound result +puts [checkshape result r] + +set start [lindex $l 60] +set bug_list_numb [ llength $l ] +set bug_list_elem 0 + +# Search word sequence: Nb entities selected : XXXX +while { $bug_list_elem < $bug_list_numb } { + if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } { + set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ] + set bug_list_elem [ expr { $bug_list_numb - 1 } ] + } + set bug_list_elem [ expr { $bug_list_elem + 1 } ] +} + +# Search word sequence: Nb Shapes successfully produced : XXXX +set end [lindex $l 0] +set bug_list_elem 0 +while { $bug_list_elem < $bug_list_numb } { + set word_0 [ lindex $l [ expr { $bug_list_elem + 0 } ] ] + set word_1 [ lindex $l [ expr { $bug_list_elem + 1 } ] ] + set word_2 [ lindex $l [ expr { $bug_list_elem + 2 } ] ] + set word_3 [ lindex $l [ expr { $bug_list_elem + 3 } ] ] + set word_4 [ lindex $l [ expr { $bug_list_elem + 4 } ] ] + if { [ string compare "Nb" ${word_0} ] == 0 && + [ string compare "Shapes" ${word_1} ] == 0 && + [ string compare "successfully" ${word_2} ] == 0 && + [ string compare "produced" ${word_3} ] == 0 && + [ string compare ":" ${word_4} ] == 0 } { + set end [ lindex $l [ expr { $bug_list_elem + 5 } ] ] + set bug_list_elem [ expr { $bug_list_numb - 1 } ] + } + set bug_list_elem [ expr { $bug_list_elem + 1 } ] +} + +if { $start != $end } { + puts " Error : The number of visible roots ($start) IS NOT EQUAL Nb Shapes successfully produced ($end)" +} else { + puts " The number of visible roots ($start) IS EQUAL Nb Shapes successfully produced ($end)" +} + +set 2dviewer 0 + diff --git a/tests/bugs/iges/buc60646 b/tests/bugs/iges/buc60646 new file mode 100644 index 0000000000..f32f8f864e --- /dev/null +++ b/tests/bugs/iges/buc60646 @@ -0,0 +1,56 @@ +puts "===============" +puts "BUC60646" +puts "===============" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] + +tpcompound res +puts [checkshape res r] + +tcopy res result + +set start [lindex $l 60] +set bug_list_numb [ llength $l ] +set bug_list_elem 0 + +# Search word sequence: Nb entities selected : XXXX +while { $bug_list_elem < $bug_list_numb } { + if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } { + set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ] + set bug_list_elem [ expr { $bug_list_numb - 1 } ] + } + set bug_list_elem [ expr { $bug_list_elem + 1 } ] +} + +# Search word sequence: Nb Shapes successfully produced : XXXX +set end [lindex $l 0] +set bug_list_elem 0 +while { $bug_list_elem < $bug_list_numb } { + set word_0 [ lindex $l [ expr { $bug_list_elem + 0 } ] ] + set word_1 [ lindex $l [ expr { $bug_list_elem + 1 } ] ] + set word_2 [ lindex $l [ expr { $bug_list_elem + 2 } ] ] + set word_3 [ lindex $l [ expr { $bug_list_elem + 3 } ] ] + set word_4 [ lindex $l [ expr { $bug_list_elem + 4 } ] ] + if { [ string compare "Nb" ${word_0} ] == 0 && + [ string compare "Shapes" ${word_1} ] == 0 && + [ string compare "successfully" ${word_2} ] == 0 && + [ string compare "produced" ${word_3} ] == 0 && + [ string compare ":" ${word_4} ] == 0 } { + set end [ lindex $l [ expr { $bug_list_elem + 5 } ] ] + set bug_list_elem [ expr { $bug_list_numb - 1 } ] + } + set bug_list_elem [ expr { $bug_list_elem + 1 } ] +} + +if { $start != $end } { + puts " Error : The number of visible roots ($start) IS NOT EQUAL Nb Shapes successfully produced ($end)" +} else { + puts " The number of visible roots ($start) IS EQUAL Nb Shapes successfully produced ($end)" +} + +set 2dviewer 0 + + diff --git a/tests/bugs/iges/buc60685 b/tests/bugs/iges/buc60685 new file mode 100644 index 0000000000..49c415f343 --- /dev/null +++ b/tests/bugs/iges/buc60685 @@ -0,0 +1,30 @@ +puts "============" +puts "BUC60685" +puts "============" +puts "" + +cpulimit 1500 + +set l [igesbrep [locate_data_file buc60685a.igs] a xst-transferrable-roots] + +tpcompound result +puts [checkshape result r] + +set start [lindex $l 60] +set bug_list_numb [ llength $l ] +set bug_list_elem 0 +while { $bug_list_elem != $bug_list_numb } { + if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } { + set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ] + set bug_list_elem [ expr { $bug_list_numb - 1 } ] + } + set bug_list_elem [ expr { $bug_list_elem + 1 } ] +} + +set n [llength $l] +set end [lindex $l [expr $n-1]] +if { $start != $end } { + puts "Error : wrong number of translated shapes. It is ${end} instead of ${start}" +} + +set 2dviewer 0 diff --git a/tests/bugs/iges/buc60686 b/tests/bugs/iges/buc60686 new file mode 100644 index 0000000000..f4c56a9044 --- /dev/null +++ b/tests/bugs/iges/buc60686 @@ -0,0 +1,15 @@ +puts "==========" +puts "BUC60686" +puts "==========" +puts "" +#puts "==================================" +#puts "It takes visual check for this BUG" +#puts "==================================" + +igesbrep [locate_data_file BUC50029.igs] a xst-transferrable-roots + +tpcompound result + +set 2dviewer 0 + + diff --git a/tests/bugs/iges/buc60687 b/tests/bugs/iges/buc60687 new file mode 100644 index 0000000000..d6ccd82d5d --- /dev/null +++ b/tests/bugs/iges/buc60687 @@ -0,0 +1,11 @@ +puts "==========" +puts "BUC60687" +puts "==========" + +igesbrep [locate_data_file buc40130.igs] a xst-transferrable-roots + +tpcompound result +puts [checkshape result] +puts [checkshape result r] + +set 2dviewer 0 diff --git a/tests/bugs/iges/buc60820_1 b/tests/bugs/iges/buc60820_1 new file mode 100644 index 0000000000..fa64f37ffe --- /dev/null +++ b/tests/bugs/iges/buc60820_1 @@ -0,0 +1,22 @@ +puts "========================" +puts "BUC60820" +puts "========================" + +igesbrep [locate_data_file buc60820.igs] a * + +tpcompound result + +puts [checkshape result r] + +tclean result +incmesh result 0.1 +triangles result +set info [trinfo result] +regexp { +([-0-9.+eE]+) +triangles} $info full tri +regexp { +([-0-9.+eE]+) +nodes} $info full nod + +if { $tri <= 0 || $nod <= 0 } { + puts "Error : Problems with shading" +} + +set 2dviewer 0 diff --git a/tests/bugs/iges/buc60820_2 b/tests/bugs/iges/buc60820_2 new file mode 100644 index 0000000000..cb644f3366 --- /dev/null +++ b/tests/bugs/iges/buc60820_2 @@ -0,0 +1,26 @@ +puts "========================" +puts "BUC60820" +puts "========================" + +igesbrep [locate_data_file buc60820.igs] a * + +tpcompound result +puts [checkshape result r] + +tclean result +vinit +vdisplay result +vsetdispmode result 1 +vfit + +set info [trinfo result] +regexp { +([-0-9.+eE]+) +triangles} $info full tri +regexp { +([-0-9.+eE]+) +nod} $info full nod + + +if { $tri != 1655 || $nod != 1143 } { + puts "Shading problem may be, nb tri & nod were changed" +} + +set 2dviewer 0 + diff --git a/tests/bugs/iges/buc60823 b/tests/bugs/iges/buc60823 new file mode 100644 index 0000000000..039531d9df --- /dev/null +++ b/tests/bugs/iges/buc60823 @@ -0,0 +1,34 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} +puts "========================" +puts "BUC60823" +puts "========================" + +igesbrep [locate_data_file buc60823.igs] a * + +tpcompound result +puts [checkshape result] +puts [checkshape result r] + +tclean result +vinit +vdisplay result +vsetdispmode result 1 +vfit + +set info [trinfo result] +regexp { +([-0-9.+eE]+) +triangles} $info full tri +regexp { +([-0-9.+eE]+) +nodes} $info full nod + +if { $tri != 17618 || $nod != 11153 } { + puts "Shading problem may be, nb tri & nod are changed" +} + +set 2dviewer 0 + diff --git a/tests/bugs/iges/buc60850 b/tests/bugs/iges/buc60850 new file mode 100644 index 0000000000..3fbc4a34fc --- /dev/null +++ b/tests/bugs/iges/buc60850 @@ -0,0 +1,11 @@ +puts "===========" +puts "BUC60850" +puts "===========" + +igesbrep [locate_data_file BUC60850.igs] a * + +tpcompound result +puts [checkshape result] +puts [checkshape result r] + +set 2dviewer 0 diff --git a/tests/bugs/iges/buc60894 b/tests/bugs/iges/buc60894 new file mode 100644 index 0000000000..d100cfc5fe --- /dev/null +++ b/tests/bugs/iges/buc60894 @@ -0,0 +1,11 @@ +puts "===========" +puts "BUC60894" +puts "===========" + +cpulimit 3000 + +igesbrep [locate_data_file buc60894.igs] a xst-transferrable-roots + +tpcompound result + +set 2dviewer 0 diff --git a/tests/bugs/iges/buc60949 b/tests/bugs/iges/buc60949 new file mode 100644 index 0000000000..788453aabc --- /dev/null +++ b/tests/bugs/iges/buc60949 @@ -0,0 +1,17 @@ +puts "===========" +puts " BUC60949" +puts "===========" + +###################################################### +## Can not read iges file in XCAFEXE neither by command ReadIges no igesbrep. +###################################################### + +igesbrep [locate_data_file buc60949.igs] a * + +tpcompound result +puts [checkshape result] +puts [checkshape result r] + +set 2dviewer 0 + + diff --git a/tests/bugs/iges/bug156 b/tests/bugs/iges/bug156 index 328e114a4b..e0cec6b2db 100755 --- a/tests/bugs/iges/bug156 +++ b/tests/bugs/iges/bug156 @@ -9,7 +9,7 @@ puts "========" ## SAM392, #289: Crash when you want to import the "waaier_para.igs" file ##################################################### -igesbrep [locate_data_file Samtech_waaier_para.igs] a * +igesbrep [locate_data_file waaier_para.igs] a * tpcompound result diff --git a/tests/bugs/iges/bug22888 b/tests/bugs/iges/bug22888 new file mode 100644 index 0000000000..d1af309483 --- /dev/null +++ b/tests/bugs/iges/bug22888 @@ -0,0 +1,57 @@ +puts "============" +puts "CR22888" +puts "============" +puts "" +####################################################################### +# Wrong shape result imported from IGES file +####################################################################### +pload QAcommands + +set x1 166 +set y1 225 + +igesread [locate_data_file CR22888-data.igs] a * +if { [regexp "This shape seems to be valid" [checkshape a]] != 1 } { + puts "Error : checkshape is faulty" +} + +explode a f +vinit +vsetdispmode 0 +vdisplay a_1 +vfit +vzfit +tclean a_1 +set inf_before [trinfo a_1] + +vsetdispmode a_1 1 +set inf_after [trinfo a_1] +regexp { +([-0-9.+eE]+) +triangles} $inf_after full tri_after +regexp { +([-0-9.+eE]+) +nodes} $inf_after full nod_after + +set color [QAGetPixelColor ${x1} ${y1}] +regexp {RED +: +([-0-9.+eE]+)} $color full rd +regexp {GREEN +: +([-0-9.+eE]+)} $color full gr +regexp {BLUE +: +([-0-9.+eE]+)} $color full bl + +if { $rd == 0 || $gr == 0 || $bl == 0 } { + puts "Error : Face is not shaded (colors are not equal)" +} + +if { $tri_after <= 0 || $nod_after <= 0 } { + puts "Error : Face is not shaded (number of nodes or triangles is wrong)" +} + +set CR22888_draw 1 + + + + + + + + + + + + diff --git a/tests/bugs/iges/bug23377 b/tests/bugs/iges/bug23377 new file mode 100644 index 0000000000..285ee11562 --- /dev/null +++ b/tests/bugs/iges/bug23377 @@ -0,0 +1,23 @@ +# Original bug : 23377 +# Date : 12 Aug 2012 + +set check_nb 7 +igesbrep [locate_data_file OCC23377-Input.igs] result * +regexp {Number of Rational BSpline surfaces +([-0-9.+eE]+)} [expshape result 1 1] full nb +if { ${nb} != ${check_nb} } { + puts "Error : The Number of Rational BSpline surfaces is wrong!" + puts "Error : It's $nb indtead of $check_nb!" +} +puts "Number of Rational BSpline surfaces is $nb" +set 2dviewer 1 + + + + + + + + + + + diff --git a/tests/bugs/iges/bug60591_1 b/tests/bugs/iges/bug60591_1 deleted file mode 100755 index 9fe2524f88..0000000000 --- a/tests/bugs/iges/bug60591_1 +++ /dev/null @@ -1,51 +0,0 @@ -set os $env(os_type) -if { [string compare $os "windows"] == 0 } { -# puts "TODO OCC23561 $os: child process exited abnormally" -} else { - puts "TODO OCC23561 ALL: An exception was caught" - puts "TODO OCC23561 ALL: Tcl Exception:" - puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*" -} -puts "TODO OCC23561 ALL: TEST INCOMPLETE" - -puts "==========" -puts "BUC60591" -puts "==========" -puts "" -puts "==================================" -puts "It takes visual check for this BUG" -puts "==================================" -puts "" -puts "consideration of \"buc60591a\" model" - -igesbrep [locate_data_file buc60591a.igs] a * - -tpcompound buc60591a - -puts [checkshape buc60591a r] - -###################################################################### - -catch {exec rm ${imagedir}/buc60591a.brep} -save buc60591a ${imagedir}/buc60591a.brep -catch {exec rm ${imagedir}/buc60591a_iges.igs} -brepiges buc60591a ${imagedir}/buc60591a_iges.igs -dall - -restore ${imagedir}/buc60591a.brep buc60591a_brep -catch {exec rm ${imagedir}/buc60591a_brep.igs} -brepiges buc60591a_brep ${imagedir}/buc60591a_brep.igs -dall - -igesbrep ${imagedir}/buc60591a_brep.igs a_brep_iges * -tpcompound buc60591a_brep_iges -puts [checkshape buc60591a_brep_iges] - -igesbrep ${imagedir}/buc60591a_iges.igs a_iges * -tpcompound buc60591a_iges -puts [checkshape buc60591a_iges] - -renamevar buc60591a_iges result - -set 2dviewer 0 - diff --git a/tests/bugs/iges/bug60591_2 b/tests/bugs/iges/bug60591_2 deleted file mode 100755 index fafb47d07c..0000000000 --- a/tests/bugs/iges/bug60591_2 +++ /dev/null @@ -1,50 +0,0 @@ -set os $env(os_type) -if { [string compare $os "windows"] == 0 } { -# puts "TODO OCC23561 $os: child process exited abnormally" -} else { - puts "TODO OCC23561 ALL: An exception was caught" - puts "TODO OCC23561 ALL: Tcl Exception:" - puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*" -} -puts "TODO OCC23561 ALL: TEST INCOMPLETE" - -puts "==================================" -puts "BUC60591" -puts "==================================" -puts "" -puts "It takes visual check for this BUG" -puts "==================================" -puts "" -puts "consideration of \"buc60591b\" model" - -igesbrep [locate_data_file buc60591b.igs] a * - -tpcompound buc60591b - -puts [checkshape buc60591b r] - -###################################################################### - -catch {exec rm ${imagedir}/buc60591b.brep} -save buc60591b ${imagedir}/buc60591b.brep -catch {exec rm ${imagedir}/buc60591b_iges.igs} -brepiges buc60591b ${imagedir}/buc60591b_iges.igs -dall - -restore ${imagedir}/buc60591b.brep buc60591b_brep -catch {exec rm ${imagedir}/buc60591b_brep.igs} -brepiges buc60591b_brep ${imagedir}/buc60591b_brep.igs -dall - -igesbrep ${imagedir}/buc60591b_brep.igs b_brep_iges * -tpcompound buc60591b_brep_iges -puts [checkshape buc60591b_brep_iges] - -igesbrep ${imagedir}/buc60591b_iges.igs b_iges * -tpcompound buc60591b_iges -puts [checkshape buc60591b_iges] - -renamevar buc60591b_iges result - -set 2dviewer 0 - diff --git a/tests/bugs/iges/bug60591_3 b/tests/bugs/iges/bug60591_3 deleted file mode 100755 index 3ad633515a..0000000000 --- a/tests/bugs/iges/bug60591_3 +++ /dev/null @@ -1,49 +0,0 @@ -set os $env(os_type) -if { [string compare $os "windows"] == 0 } { -# puts "TODO OCC23561 $os: child process exited abnormally" -} else { - puts "TODO OCC23561 ALL: An exception was caught" - puts "TODO OCC23561 ALL: Tcl Exception:" - puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*" -} -puts "TODO OCC23561 ALL: TEST INCOMPLETE" - -puts "==================================" -puts "BUC60591" -puts "==================================" -puts "" -puts "It takes visual check for this BUG" -puts "==================================" -puts "" -puts "consideration of \"buc60591c\" model" - -igesbrep [locate_data_file buc60591c.igs] a * - -tpcompound buc60591c -puts [checkshape buc60591c r] - -###################################################################### - -catch {exec rm ${imagedir}/buc60591c.brep} -save buc60591c ${imagedir}/buc60591c.brep -catch {exec rm ${imagedir}/buc60591c_iges.igs} -brepiges buc60591c ${imagedir}/buc60591c_iges.igs -dall - -restore ${imagedir}/buc60591c.brep buc60591c_brep -catch {exec rm ${imagedir}/buc60591c_brep.igs} -brepiges buc60591c_brep ${imagedir}/buc60591c_brep.igs -dall - -igesbrep ${imagedir}/buc60591c_brep.igs c_brep_iges * -tpcompound buc60591c_brep_iges -puts [checkshape buc60591c_brep_iges] - -igesbrep ${imagedir}/buc60591c_iges.igs c_iges * -tpcompound buc60591c_iges -puts [checkshape buc60591c_iges] - -renamevar buc60591c_iges result - -set 2dviewer 0 - diff --git a/tests/bugs/iges/bug60591_4 b/tests/bugs/iges/bug60591_4 deleted file mode 100755 index c9f0af8a76..0000000000 --- a/tests/bugs/iges/bug60591_4 +++ /dev/null @@ -1,48 +0,0 @@ -set os $env(os_type) -if { [string compare $os "windows"] == 0 } { -# puts "TODO OCC23561 $os: child process exited abnormally" -} else { - puts "TODO OCC23561 ALL: An exception was caught" - puts "TODO OCC23561 ALL: Tcl Exception:" - puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*" -} -puts "TODO OCC23561 ALL: TEST INCOMPLETE" - -puts "BUC60591" -puts "" -puts "==================================" -puts "It takes visual check for this BUG" -puts "==================================" -puts "" -puts "consideration of \"buc60591d\" model" - -igesbrep [locate_data_file buc60591d.igs] a * - -tpcompound buc60591d -puts [checkshape buc60591d r] - -###################################################################### - -catch {exec rm ${imagedir}/buc60591d.brep} -save buc60591d ${imagedir}/buc60591d.brep -catch {exec rm ${imagedir}/buc60591d_iges.igs} -brepiges buc60591d ${imagedir}/buc60591d_iges.igs -dall - -restore ${imagedir}/buc60591d.brep buc60591d_brep -catch {exec rm ${imagedir}/buc60591d_brep.igs} -brepiges buc60591d_brep ${imagedir}/buc60591d_brep.igs -dall - -igesbrep ${imagedir}/buc60591d_brep.igs d_brep_iges * -tpcompound buc60591d_brep_iges -puts [checkshape buc60591d_brep_iges] - -igesbrep ${imagedir}/buc60591d_iges.igs d_iges * -tpcompound buc60591d_iges -puts [checkshape buc60591d_iges] - -renamevar buc60591d_iges result - -set 2dviewer 0 - diff --git a/tests/bugs/iges/bug60594 b/tests/bugs/iges/bug60594 deleted file mode 100755 index 54e7f12ff5..0000000000 --- a/tests/bugs/iges/bug60594 +++ /dev/null @@ -1,15 +0,0 @@ -puts "==================================" -puts "BUC60594" -puts "==================================" -puts "" -puts "It takes visual check for this BUG" -puts "==================================" -puts "" - -igesbrep [locate_data_file buc60594a.igs] a * - -tpcompound result -puts [checkshape result] -puts [checkshape result r] - -set 2dviewer 0 diff --git a/tests/bugs/iges/bug60595_1 b/tests/bugs/iges/bug60595_1 deleted file mode 100755 index 9f543dfaf0..0000000000 --- a/tests/bugs/iges/bug60595_1 +++ /dev/null @@ -1,24 +0,0 @@ -puts "==================" -puts "BUC60595" -puts "==================" -puts "" -################################################################### -## This one relates to the generation of floating point exceptions during the IGE to BRep translation. -## See the notes in fw_fpe.READ. -################################################################### - -set bug_var [ igesbrep [locate_data_file buc60595a.igs] a * ] - -tpcompound result - -if { [ string match "*Uninspired signal*" $bug_var ] == 1 } { - puts "Error : TEST FAILED" -} - -isos 0 -isos result 15 - -puts "Previously here was message: Uninspired signal 8" - -set 2dviewer 0 - diff --git a/tests/bugs/iges/bug60595_2 b/tests/bugs/iges/bug60595_2 deleted file mode 100755 index ebc4fbe219..0000000000 --- a/tests/bugs/iges/bug60595_2 +++ /dev/null @@ -1,18 +0,0 @@ -puts "==================" -puts "BUC60595" -puts "==================" - -set bug_var [ igesbrep [locate_data_file buc60595b.igs] a * ] - -tpcompound result - -if { [ string match "*Uninspired signal*" $bug_var ] == 1 } { - puts "Error : TEST FAILED" -} - -isos 0 -isos result 15 - -puts "Previously here was message: Uninspired signal 8" - -set 2dviewer 0 diff --git a/tests/bugs/iges/bug60595_3 b/tests/bugs/iges/bug60595_3 deleted file mode 100755 index 349e1c6042..0000000000 --- a/tests/bugs/iges/bug60595_3 +++ /dev/null @@ -1,17 +0,0 @@ -puts "================" -puts "BUC60595" -puts "================" - -set bug_var [ igesbrep [locate_data_file buc60595c.igs] c * ] -if { [ string match "*Uninspired signal*" $bug_var ] == 1 } { - puts "Error : TEST FAILED" -} - -tpcompound result - -isos result 0 -isos result 15 - -set 2dviewer 0 - - diff --git a/tests/bugs/iges/bug60610 b/tests/bugs/iges/bug60610 deleted file mode 100755 index 8a257347be..0000000000 --- a/tests/bugs/iges/bug60610 +++ /dev/null @@ -1,14 +0,0 @@ -puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" - -puts "========================" -puts "BUC60610" -puts "========================" - -igesbrep [locate_data_file buc60610a.igs] a * - -tpcompound result -puts [checkshape result] -puts [checkshape result r] - -set 2dviewer 0 - diff --git a/tests/bugs/iges/bug60625 b/tests/bugs/iges/bug60625 deleted file mode 100755 index 37e49d3953..0000000000 --- a/tests/bugs/iges/bug60625 +++ /dev/null @@ -1,55 +0,0 @@ -puts "====================" -puts "BUC60625" -puts "====================" -puts "==================================" -puts "It takes visual check for this BUG" -puts "==================================" - -cpulimit 1500 - -set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] - -tpcompound result -puts [checkshape result r] - -set start [lindex $l 60] -set bug_list_numb [ llength $l ] -set bug_list_elem 0 - -# Search word sequence: Nb entities selected : XXXX -while { $bug_list_elem < $bug_list_numb } { - if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } { - set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ] - set bug_list_elem [ expr { $bug_list_numb - 1 } ] - } - set bug_list_elem [ expr { $bug_list_elem + 1 } ] -} - -# Search word sequence: Nb Shapes successfully produced : XXXX -set end [lindex $l 0] -set bug_list_elem 0 -while { $bug_list_elem < $bug_list_numb } { - set word_0 [ lindex $l [ expr { $bug_list_elem + 0 } ] ] - set word_1 [ lindex $l [ expr { $bug_list_elem + 1 } ] ] - set word_2 [ lindex $l [ expr { $bug_list_elem + 2 } ] ] - set word_3 [ lindex $l [ expr { $bug_list_elem + 3 } ] ] - set word_4 [ lindex $l [ expr { $bug_list_elem + 4 } ] ] - if { [ string compare "Nb" ${word_0} ] == 0 && - [ string compare "Shapes" ${word_1} ] == 0 && - [ string compare "successfully" ${word_2} ] == 0 && - [ string compare "produced" ${word_3} ] == 0 && - [ string compare ":" ${word_4} ] == 0 } { - set end [ lindex $l [ expr { $bug_list_elem + 5 } ] ] - set bug_list_elem [ expr { $bug_list_numb - 1 } ] - } - set bug_list_elem [ expr { $bug_list_elem + 1 } ] -} - -if { $start != $end } { - puts " Error : The number of visible roots ($start) IS NOT EQUAL Nb Shapes successfully produced ($end)" -} else { - puts " The number of visible roots ($start) IS EQUAL Nb Shapes successfully produced ($end)" -} - -set 2dviewer 0 - diff --git a/tests/bugs/iges/bug60646 b/tests/bugs/iges/bug60646 deleted file mode 100755 index f32f8f864e..0000000000 --- a/tests/bugs/iges/bug60646 +++ /dev/null @@ -1,56 +0,0 @@ -puts "===============" -puts "BUC60646" -puts "===============" -puts "==================================" -puts "It takes visual check for this BUG" -puts "==================================" - -set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] - -tpcompound res -puts [checkshape res r] - -tcopy res result - -set start [lindex $l 60] -set bug_list_numb [ llength $l ] -set bug_list_elem 0 - -# Search word sequence: Nb entities selected : XXXX -while { $bug_list_elem < $bug_list_numb } { - if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } { - set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ] - set bug_list_elem [ expr { $bug_list_numb - 1 } ] - } - set bug_list_elem [ expr { $bug_list_elem + 1 } ] -} - -# Search word sequence: Nb Shapes successfully produced : XXXX -set end [lindex $l 0] -set bug_list_elem 0 -while { $bug_list_elem < $bug_list_numb } { - set word_0 [ lindex $l [ expr { $bug_list_elem + 0 } ] ] - set word_1 [ lindex $l [ expr { $bug_list_elem + 1 } ] ] - set word_2 [ lindex $l [ expr { $bug_list_elem + 2 } ] ] - set word_3 [ lindex $l [ expr { $bug_list_elem + 3 } ] ] - set word_4 [ lindex $l [ expr { $bug_list_elem + 4 } ] ] - if { [ string compare "Nb" ${word_0} ] == 0 && - [ string compare "Shapes" ${word_1} ] == 0 && - [ string compare "successfully" ${word_2} ] == 0 && - [ string compare "produced" ${word_3} ] == 0 && - [ string compare ":" ${word_4} ] == 0 } { - set end [ lindex $l [ expr { $bug_list_elem + 5 } ] ] - set bug_list_elem [ expr { $bug_list_numb - 1 } ] - } - set bug_list_elem [ expr { $bug_list_elem + 1 } ] -} - -if { $start != $end } { - puts " Error : The number of visible roots ($start) IS NOT EQUAL Nb Shapes successfully produced ($end)" -} else { - puts " The number of visible roots ($start) IS EQUAL Nb Shapes successfully produced ($end)" -} - -set 2dviewer 0 - - diff --git a/tests/bugs/iges/bug60685 b/tests/bugs/iges/bug60685 deleted file mode 100755 index 49c415f343..0000000000 --- a/tests/bugs/iges/bug60685 +++ /dev/null @@ -1,30 +0,0 @@ -puts "============" -puts "BUC60685" -puts "============" -puts "" - -cpulimit 1500 - -set l [igesbrep [locate_data_file buc60685a.igs] a xst-transferrable-roots] - -tpcompound result -puts [checkshape result r] - -set start [lindex $l 60] -set bug_list_numb [ llength $l ] -set bug_list_elem 0 -while { $bug_list_elem != $bug_list_numb } { - if { [ string compare "Nb" [ lindex $l $bug_list_elem ] ] == 0 && [ string compare "entities" [ lindex $l [ expr { $bug_list_elem + 1 } ] ] ] == 0 && [ string compare "selected" [ lindex $l [ expr { $bug_list_elem + 2 } ] ] ] == 0 && [ string compare ":" [ lindex $l [ expr { $bug_list_elem + 3 } ] ] ] == 0 } { - set start [ lindex $l [ expr { $bug_list_elem + 4 } ] ] - set bug_list_elem [ expr { $bug_list_numb - 1 } ] - } - set bug_list_elem [ expr { $bug_list_elem + 1 } ] -} - -set n [llength $l] -set end [lindex $l [expr $n-1]] -if { $start != $end } { - puts "Error : wrong number of translated shapes. It is ${end} instead of ${start}" -} - -set 2dviewer 0 diff --git a/tests/bugs/iges/bug60686 b/tests/bugs/iges/bug60686 deleted file mode 100755 index f4c56a9044..0000000000 --- a/tests/bugs/iges/bug60686 +++ /dev/null @@ -1,15 +0,0 @@ -puts "==========" -puts "BUC60686" -puts "==========" -puts "" -#puts "==================================" -#puts "It takes visual check for this BUG" -#puts "==================================" - -igesbrep [locate_data_file BUC50029.igs] a xst-transferrable-roots - -tpcompound result - -set 2dviewer 0 - - diff --git a/tests/bugs/iges/bug60687 b/tests/bugs/iges/bug60687 deleted file mode 100755 index d6ccd82d5d..0000000000 --- a/tests/bugs/iges/bug60687 +++ /dev/null @@ -1,11 +0,0 @@ -puts "==========" -puts "BUC60687" -puts "==========" - -igesbrep [locate_data_file buc40130.igs] a xst-transferrable-roots - -tpcompound result -puts [checkshape result] -puts [checkshape result r] - -set 2dviewer 0 diff --git a/tests/bugs/iges/bug60820_1 b/tests/bugs/iges/bug60820_1 deleted file mode 100755 index fa64f37ffe..0000000000 --- a/tests/bugs/iges/bug60820_1 +++ /dev/null @@ -1,22 +0,0 @@ -puts "========================" -puts "BUC60820" -puts "========================" - -igesbrep [locate_data_file buc60820.igs] a * - -tpcompound result - -puts [checkshape result r] - -tclean result -incmesh result 0.1 -triangles result -set info [trinfo result] -regexp { +([-0-9.+eE]+) +triangles} $info full tri -regexp { +([-0-9.+eE]+) +nodes} $info full nod - -if { $tri <= 0 || $nod <= 0 } { - puts "Error : Problems with shading" -} - -set 2dviewer 0 diff --git a/tests/bugs/iges/bug60820_2 b/tests/bugs/iges/bug60820_2 deleted file mode 100755 index cb644f3366..0000000000 --- a/tests/bugs/iges/bug60820_2 +++ /dev/null @@ -1,26 +0,0 @@ -puts "========================" -puts "BUC60820" -puts "========================" - -igesbrep [locate_data_file buc60820.igs] a * - -tpcompound result -puts [checkshape result r] - -tclean result -vinit -vdisplay result -vsetdispmode result 1 -vfit - -set info [trinfo result] -regexp { +([-0-9.+eE]+) +triangles} $info full tri -regexp { +([-0-9.+eE]+) +nod} $info full nod - - -if { $tri != 1655 || $nod != 1143 } { - puts "Shading problem may be, nb tri & nod were changed" -} - -set 2dviewer 0 - diff --git a/tests/bugs/iges/bug60823 b/tests/bugs/iges/bug60823 deleted file mode 100755 index 039531d9df..0000000000 --- a/tests/bugs/iges/bug60823 +++ /dev/null @@ -1,34 +0,0 @@ -if { [array get env os_type] != "" } { - set os $env(os_type) -} -if { [string compare $os "windows"] != 0 } { - puts "TODO OCC12345 ALL: An exception was caught" - puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" - puts "TODO OCC12345 ALL: TEST INCOMPLETE" -} -puts "========================" -puts "BUC60823" -puts "========================" - -igesbrep [locate_data_file buc60823.igs] a * - -tpcompound result -puts [checkshape result] -puts [checkshape result r] - -tclean result -vinit -vdisplay result -vsetdispmode result 1 -vfit - -set info [trinfo result] -regexp { +([-0-9.+eE]+) +triangles} $info full tri -regexp { +([-0-9.+eE]+) +nodes} $info full nod - -if { $tri != 17618 || $nod != 11153 } { - puts "Shading problem may be, nb tri & nod are changed" -} - -set 2dviewer 0 - diff --git a/tests/bugs/iges/bug60850 b/tests/bugs/iges/bug60850 deleted file mode 100755 index d49126872e..0000000000 --- a/tests/bugs/iges/bug60850 +++ /dev/null @@ -1,11 +0,0 @@ -puts "===========" -puts " BUC60850" -puts "===========" - -igesbrep [locate_data_file BUC60850.igs] a * - -tpcompound result -puts [checkshape result] -puts [checkshape result r] - -set 2dviewer 0 diff --git a/tests/bugs/iges/bug60894 b/tests/bugs/iges/bug60894 deleted file mode 100755 index 48ccf56efc..0000000000 --- a/tests/bugs/iges/bug60894 +++ /dev/null @@ -1,11 +0,0 @@ -puts "===========" -puts " BUC60894" -puts "===========" - -cpulimit 3000 - -igesbrep [locate_data_file buc60894.igs] a xst-transferrable-roots - -tpcompound result - -set 2dviewer 0 diff --git a/tests/bugs/iges/bug60949 b/tests/bugs/iges/bug60949 deleted file mode 100755 index 788453aabc..0000000000 --- a/tests/bugs/iges/bug60949 +++ /dev/null @@ -1,17 +0,0 @@ -puts "===========" -puts " BUC60949" -puts "===========" - -###################################################### -## Can not read iges file in XCAFEXE neither by command ReadIges no igesbrep. -###################################################### - -igesbrep [locate_data_file buc60949.igs] a * - -tpcompound result -puts [checkshape result] -puts [checkshape result r] - -set 2dviewer 0 - - diff --git a/tests/bugs/iges/bug61337 b/tests/bugs/iges/bug61337 deleted file mode 100755 index 584022a5aa..0000000000 --- a/tests/bugs/iges/bug61337 +++ /dev/null @@ -1,14 +0,0 @@ -puts "===========" -puts "GER61337" -puts "==================================" - -cpulimit 3000 - -igesbrep [locate_data_file ger61337a.igs] a * - -tpcompound result -puts [checkshape result] -puts [checkshape result r] - -set 2dviewer 0 - diff --git a/tests/bugs/iges/bug62523 b/tests/bugs/iges/bug62523 deleted file mode 100755 index 9354754ae0..0000000000 --- a/tests/bugs/iges/bug62523 +++ /dev/null @@ -1,19 +0,0 @@ -puts "=============" -puts "FRA62523" -puts "=============" - -igesbrep [locate_data_file fra62523a.igs] a * - -# tpcompound b -# checkshape a_1 - -vinit -tclean a_1 -vdisplay a_1 -vsetdispmode a_1 1 - -defle a_1 .005 -defle a_1 .001 - -set 3dviewer 1 - diff --git a/tests/bugs/iges/bug89 b/tests/bugs/iges/bug89 index bb2d1aa76a..3f092b03df 100755 --- a/tests/bugs/iges/bug89 +++ b/tests/bugs/iges/bug89 @@ -1,5 +1,6 @@ puts "========================" -puts "BUC60800 OCC89" +puts "BUC60800" +puts "OCC89" puts "========================" ####################################################### diff --git a/tests/bugs/iges/fra62523 b/tests/bugs/iges/fra62523 new file mode 100644 index 0000000000..9354754ae0 --- /dev/null +++ b/tests/bugs/iges/fra62523 @@ -0,0 +1,19 @@ +puts "=============" +puts "FRA62523" +puts "=============" + +igesbrep [locate_data_file fra62523a.igs] a * + +# tpcompound b +# checkshape a_1 + +vinit +tclean a_1 +vdisplay a_1 +vsetdispmode a_1 1 + +defle a_1 .005 +defle a_1 .001 + +set 3dviewer 1 + diff --git a/tests/bugs/iges/ger61337 b/tests/bugs/iges/ger61337 new file mode 100644 index 0000000000..584022a5aa --- /dev/null +++ b/tests/bugs/iges/ger61337 @@ -0,0 +1,14 @@ +puts "===========" +puts "GER61337" +puts "==================================" + +cpulimit 3000 + +igesbrep [locate_data_file ger61337a.igs] a * + +tpcompound result +puts [checkshape result] +puts [checkshape result r] + +set 2dviewer 0 + diff --git a/tests/bugs/modalg/CR23137_1 b/tests/bugs/modalg/CR23137_1 deleted file mode 100755 index cd7ab82f50..0000000000 --- a/tests/bugs/modalg/CR23137_1 +++ /dev/null @@ -1,21 +0,0 @@ -puts "============" -puts "CR23137" -puts "============" -puts "" -########################################################################################################## -# Class BRepAlgoAPI_Cut does not made correct result on attached shapes. -########################################################################################################## - -restore [locate_data_file bug23137_bspl_cut.brep] b -explode b -copy b_1 b1 -copy b_2 b2 -#to provide positive volume of b2 -invert b2 - -bop b1 b2 -bopcut result - -set square 44460.7 - -set 3dviewer 1 diff --git a/tests/bugs/modalg/CR23137_2 b/tests/bugs/modalg/CR23137_2 deleted file mode 100755 index 92a35b1cc2..0000000000 --- a/tests/bugs/modalg/CR23137_2 +++ /dev/null @@ -1,21 +0,0 @@ -puts "============" -puts "CR23137" -puts "============" -puts "" -########################################################################################################## -# Class BRepAlgoAPI_Cut does not made correct result on attached shapes. -########################################################################################################## - -restore [locate_data_file bug23137_rev_cut.brep] b -explode b -copy b_1 b1 -copy b_2 b2 -#to provide positive volume of b1 -invert b1 - -bop b1 b2 -bopcut result - -set square 3452.78 - -set 3dviewer 1 diff --git a/tests/bugs/modalg/CR23394 b/tests/bugs/modalg/CR23394 deleted file mode 100755 index d099a3d9c3..0000000000 --- a/tests/bugs/modalg/CR23394 +++ /dev/null @@ -1,15 +0,0 @@ -puts "============" -puts "CR23394" -puts "============" -puts "" -########################################################################################################## -# Problem with BRepOffset_MakeOffset on a cylindrical face -########################################################################################################## - -restore [locate_data_file bug23394_Circular_tube.brep] sh1 - -thickshell result sh1 5 - -set square 128648 - -set 3dviewer 1 diff --git a/tests/bugs/modalg/CR23429 b/tests/bugs/modalg/CR23429 deleted file mode 100755 index aa7428ca28..0000000000 --- a/tests/bugs/modalg/CR23429 +++ /dev/null @@ -1,24 +0,0 @@ -puts "============" -puts "CR23429" -puts "============" -puts "" -########################################################################################################## -# BRepFeat_SplitShape algorithm misses some section edges while building result from customer's shape -########################################################################################################## -pload QAcommands - -restore [locate_data_file OCC23388-Shape1.brep] a -restore [locate_data_file CR23429-Shape3.brep] b - -OCC23429 result a b - -set square 1120.52 - -set 2dviewer 1 - - - - - - - diff --git a/tests/bugs/modalg/buc60409_1 b/tests/bugs/modalg/buc60409_1 new file mode 100644 index 0000000000..1aceec9594 --- /dev/null +++ b/tests/bugs/modalg/buc60409_1 @@ -0,0 +1,28 @@ + +puts "==============" +puts " BUC60409 " +puts " FUSE " +puts "==============" + +restore [locate_data_file buc60409a.brep] c +restore [locate_data_file buc60409b.brep] s + +set che [checkshape c] +if { [regexp {Faulty} $che ] == 1 } { + puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command" + puts "Body of the script was NOT executed" + renamevar c result +} else { + puts "BUC60409 OK (shape 1): Source shape is valid" + set che [checkshape s] + if { [regexp {Faulty} $che ] == 1 } { + puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command" + puts "Body of the script was NOT executed" + renamevar s result + } else { + puts "BUC60409 OK (shape 2): Source shape is valid" + bfuse result c s + } +} +set square 39.0894 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60409_2 b/tests/bugs/modalg/buc60409_2 new file mode 100644 index 0000000000..3ebd2a1c27 --- /dev/null +++ b/tests/bugs/modalg/buc60409_2 @@ -0,0 +1,28 @@ + +puts "=============" +puts " BUC60409 " +puts " CUT " +puts "=============" + +restore [locate_data_file buc60409a.brep] c +restore [locate_data_file buc60409b.brep] s + +set che [checkshape c] +if { [regexp {Faulty} $che ] == 1 } { + puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command" + puts "Body of the script was NOT executed" + renamevar c result +} else { + puts "BUC60409 OK (shape 1): Source shape is valid" + set che [checkshape s] + if { [regexp {Faulty} $che ] == 1 } { + puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command" + puts "Body of the script was NOT executed" + renamevar s result + } else { + puts "BUC60409 OK (shape 2): Source shape is valid" + bcut result c s + } +} +set square 31.8476 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60409_3 b/tests/bugs/modalg/buc60409_3 new file mode 100644 index 0000000000..824156f38d --- /dev/null +++ b/tests/bugs/modalg/buc60409_3 @@ -0,0 +1,29 @@ + +puts "=================" +puts " BUC60409 " +puts " COMMON " +puts "=================" + +restore [locate_data_file buc60409a.brep] c +restore [locate_data_file buc60409b.brep] s + +set che [checkshape c] +if { [regexp {Faulty} $che ] == 1 } { + puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command" + puts "Body of the script was NOT executed" + renamevar c result +} else { + puts "BUC60409 OK (shape 1): Source shape is valid" + + set che [checkshape s] + if { [regexp {Faulty} $che ] == 1 } { + puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command" + puts "Body of the script was NOT executed" + renamevar s result + } else { + puts "BUC60409 OK (shape 2): Source shape is valid" + bcommon result c s + } +} +set square 4.89279 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60523 b/tests/bugs/modalg/buc60523 new file mode 100644 index 0000000000..9a248998e6 --- /dev/null +++ b/tests/bugs/modalg/buc60523 @@ -0,0 +1,12 @@ + +puts "========================" +puts "BUC60523" +puts "========================" + +restore [locate_data_file buc60523a.brep] a +puts [checkshape a] +sewing result 1.e-7 a +set square 156.919 +set 2dviewer 0 + + diff --git a/tests/bugs/modalg/buc60531_1 b/tests/bugs/modalg/buc60531_1 new file mode 100644 index 0000000000..4a8870fb65 --- /dev/null +++ b/tests/bugs/modalg/buc60531_1 @@ -0,0 +1,15 @@ + +puts "========================" +puts "BUC60531" +puts "========================" + +restore [locate_data_file buc60531a.brep] r1 +puts [checkshape r1] +restore [locate_data_file buc60531b.brep] pl1 +puts [checkshape pl1] + +bcut result r1 pl1 + +set square 115935 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60531_2 b/tests/bugs/modalg/buc60531_2 new file mode 100644 index 0000000000..ac3d913f92 --- /dev/null +++ b/tests/bugs/modalg/buc60531_2 @@ -0,0 +1,21 @@ + +puts "========================" +puts "BUC60531" +puts "========================" + +restore [locate_data_file buc60531a.brep] r1 +puts [checkshape r1] + +restore [locate_data_file buc60531b.brep] pl1 +puts [checkshape pl1] + +bcut r2 r1 pl1 +puts [checkshape r2] + +restore [locate_data_file buc60531c.brep] pl2 +puts [checkshape pl2] + +bcut result r2 pl2 + +set square 115935 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60532 b/tests/bugs/modalg/buc60532 new file mode 100644 index 0000000000..b1f28cda92 --- /dev/null +++ b/tests/bugs/modalg/buc60532 @@ -0,0 +1,22 @@ +puts "===========" +puts "BUC60532" +puts "===========" + +restore [locate_data_file buc60532a.brep] p +puts [checkshape p] + +restore [locate_data_file buc60532b.brep] t1 +puts [checkshape t1] + +restore [locate_data_file buc60532c.brep] t2 +puts [checkshape t2] + +# create halfspace +halfspace h1 t1 20 20 0 +halfspace h2 t2 20 20 0 + +# first cut +bcut result p h1 + +set square 81.8172 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60532_1 b/tests/bugs/modalg/buc60532_1 new file mode 100644 index 0000000000..0ba7b8e206 --- /dev/null +++ b/tests/bugs/modalg/buc60532_1 @@ -0,0 +1,23 @@ +puts "===========" +puts "BUC60532" +puts "===========" + +restore [locate_data_file buc60532a.brep] p +puts [checkshape p] + +restore [locate_data_file buc60532b.brep] t1 +puts [checkshape t1] + +restore [locate_data_file buc60532c.brep] t2 +puts [checkshape t2] + +# create halfspace +halfspace h1 t1 20 20 0 +halfspace h2 t2 20 20 0 + +# first cut +bcut result p h1 + +set square 81.8172 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60532_2 b/tests/bugs/modalg/buc60532_2 new file mode 100644 index 0000000000..1e288a32ec --- /dev/null +++ b/tests/bugs/modalg/buc60532_2 @@ -0,0 +1,52 @@ +puts "==========" +puts "BUC60532" +puts "==========" + +restore [locate_data_file buc60532a.brep] p +puts [checkshape p] + +restore [locate_data_file buc60532b.brep] t1 +puts [checkshape t1] + +restore [locate_data_file buc60532c.brep] t2 +puts [checkshape t2] + +# create halfspace +#vertex v 20 20 0 +halfspace h1 t1 20 20 0 +halfspace h2 t2 20 20 0 + +# first cut +bcut res1 p h1 + +explode res1 e +mkcurve cu11 res1_1 +mkcurve cu12 res1_2 +mkcurve cu13 res1_3 +mkcurve cu14 res1_4 +mkcurve cu15 res1_5 + +puts [checkshape res1] +puts [computetolerance res1] + +# second cut +bcut res2 res1 h2 +tcopy res2 res +puts [checkshape res2] + +explode res2 e +mkcurve cu21 res2_1 +mkcurve cu22 res2_2 +mkcurve cu23 res2_3 +mkcurve cu24 res2_4 +mkcurve cu25 res2_5 + +explode res2 face + +puts [computetolerance res2] + +renamevar res2 result + +set square 78.8705 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60533 b/tests/bugs/modalg/buc60533 new file mode 100644 index 0000000000..df2d5434b4 --- /dev/null +++ b/tests/bugs/modalg/buc60533 @@ -0,0 +1,69 @@ +puts "==========" +puts "BUC60533" +puts "==========" + +restore [locate_data_file buc60533a.brep] part +puts [checkshape part] +#puts "Tolerance part" +#computetolerance part + +restore [locate_data_file buc60533b.brep] trTool +puts [checkshape trTool] +#puts "Tolerance trTool" +#computetolerance trTool + +# create halfspace +vertex v 10000 15000 -15000 +halfspace hs trTool 10000 15000 -15000 +#puts "Tolerance hs" +#computetolerance hs + +#************************************************* +if [catch {bcut result part hs} catch_result] { + puts "Faulty BUC60533: function CUT works wrongly" +} else { + puts " BUC60533 OK: function CUT works properly" +} +#************************************************* + +#set che [checkshape res r] +#set err [lindex $che [expr [llength $che] - 1]] +#if { $err != "OK"} { +# puts "Faulty : mistakes are found in checked shape by checkshape command" +#} else { +# puts "Checking by checkshape - OK" + +#explode res e +#mkcurve cu1 res_1 +#mkcurve cu2 res_2 +#mkcurve cu3 res_3 +#mkcurve cu4 res_4 +#mkcurve cu5 res_5 + +#checkshape res + +#set tolerance [ maxtolerance res ] +#set MaxFaceTolerance [ lindex $tolerance 14 ] +#set MaxEdgeTolerance [ lindex $tolerance 20 ] +#set MaxVertexTolerance [ lindex $tolerance 26 ] +#if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { +#puts "Faulty :Tolerance of shape is more then 1.0" +#} else { +#puts "Tolerance of shape is less then 1.0" +#} +#} + +# Objectif : Couper part par trTool +# +# part est construite a partir d'un semi de point et de telle facon que u=x et v=y. +# On obtient une Geom_BSplineSurface. On cree alors la topologie a partir de cette +# surface via BRepAPI::MakeFace(surface) +# Dans notre code, a aucun moment, nous +# n'initialisons la tolerance. +# +# Le cut n'est pas effectue car une exception est levee : +# An exception was caught Standard_ConstructionError: +# ** Exception ** Standard_ConstructionError: + +set square 1.63191e+07 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60555_1 b/tests/bugs/modalg/buc60555_1 new file mode 100644 index 0000000000..9fb65610d2 --- /dev/null +++ b/tests/bugs/modalg/buc60555_1 @@ -0,0 +1,37 @@ +puts "===========" +puts "BUC60555" +puts "CUT Case 1" +puts "===========" +#cpulim add aki 070704 +cpulimit 1600 +restore [locate_data_file buc60555a.brep] part +puts [checkshape part] +restore [locate_data_file buc60555b.brep] trTool1 +puts [checkshape trTool1] +halfspace hs1 trTool1 20000 10000 0 +bcut cut1 part hs1 + +puts [checkshape cut1] + +tcopy cut1 result + +explode cut1 e +mkcurve cu1 cut1_1 +mkcurve cu2 cut1_2 +mkcurve cu3 cut1_3 +mkcurve cu4 cut1_4 + +set tolerance [ maxtolerance cut1 ] + +regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance + +if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { + puts "Faulty :Tolerance of shape is more then 1.0" +} else { + puts "Tolerance of shape is less then 1.0" +} + +set square 4.60842e+07 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60585_2 b/tests/bugs/modalg/buc60585_2 new file mode 100644 index 0000000000..2647039a89 --- /dev/null +++ b/tests/bugs/modalg/buc60585_2 @@ -0,0 +1,15 @@ + +puts "========================" +puts "BUC60585" +puts "========================" + +restore [locate_data_file buc60585b.brep] t +puts [checkshape t] +plane pt 2036.25 -97.5 -1460.499755859375 0.0 -1.0 0.0 1.0 0.0 0.0 + +psection result t pt + +set length 22.0446 +set 2dviewer 0 + +# checksection res diff --git a/tests/bugs/modalg/buc60623_1 b/tests/bugs/modalg/buc60623_1 new file mode 100644 index 0000000000..be68670223 --- /dev/null +++ b/tests/bugs/modalg/buc60623_1 @@ -0,0 +1,15 @@ + +puts "========================" +puts "BUC60623" +puts "========================" + +restore [locate_data_file buc60623a.brep] a +puts [checkshape a] +restore [locate_data_file buc60623b.brep] b +puts [checkshape b] + +bsection result a b + +set length 1475.98 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60623_2 b/tests/bugs/modalg/buc60623_2 new file mode 100644 index 0000000000..501aba6ea4 --- /dev/null +++ b/tests/bugs/modalg/buc60623_2 @@ -0,0 +1,15 @@ + +puts "========================" +puts "BUC60623" +puts "========================" + +restore [locate_data_file buc60623a.brep] a +puts [checkshape a] +restore [locate_data_file buc60623b.brep] b +puts [checkshape b] + +bsection result b a +# checksection res + +set length 1475.98 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60635 b/tests/bugs/modalg/buc60635 new file mode 100644 index 0000000000..d33331fcb5 --- /dev/null +++ b/tests/bugs/modalg/buc60635 @@ -0,0 +1,13 @@ + +puts "=============" +puts "BUC60635" +puts "=============" + +restore [locate_data_file buc60635a.brep] a +puts [checkshape a] + +mkplane result a + +set square 2035.58 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60663_1 b/tests/bugs/modalg/buc60663_1 new file mode 100644 index 0000000000..b688dca7e6 --- /dev/null +++ b/tests/bugs/modalg/buc60663_1 @@ -0,0 +1,26 @@ + +puts "=====================================" +puts "BUC60663" +puts "=====================================" +puts "" +puts "It takes visual check for this BUG. See V2 point" +puts "=====================================" +puts "" + +restore [locate_data_file buc60663a.brep] a +puts [checkshape a] +restore [locate_data_file buc60663b.brep] b +puts [checkshape b] + +bsection result a b + +regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num +if { $num != 2 } { + puts " Faulty : Result shape is INcorrect !!! " +} + + +#fsameparameter res + +set length 26.2001 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60668 b/tests/bugs/modalg/buc60668 new file mode 100644 index 0000000000..0aef85e0b9 --- /dev/null +++ b/tests/bugs/modalg/buc60668 @@ -0,0 +1,27 @@ + +puts "====================" +puts "BUC60668" +puts "Three boxes must appear on picture" +puts "====================" + +box b 100 0 0 10 10 10 +box b1 10 10 10 +box b2 50 50 50 10 10 10 +box a -10 -10 -10 200 200 200 + +compound b b1 b2 c + +regexp {Mass +: +([-0-9.+eE]+)} [vprops c] full vcomp + +#compound b b1 c +bcommon result c a + +regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full vcomm + +if { $vcomp != $vcomm } { + puts " Faulty : Common is incorrect" +} else { + puts " BUC60668 OK : Common was made properly" +} +set square 1800 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60684 b/tests/bugs/modalg/buc60684 new file mode 100644 index 0000000000..72663b9b6b --- /dev/null +++ b/tests/bugs/modalg/buc60684 @@ -0,0 +1,12 @@ + +puts "=============" +puts "BUC60684" +puts "=============" + +restore [locate_data_file buc60684a.brep] w +puts [checkshape w] + +prism result w 0 0 10 + +set square 148.875 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60703_2 b/tests/bugs/modalg/buc60703_2 new file mode 100644 index 0000000000..b2976f4c50 --- /dev/null +++ b/tests/bugs/modalg/buc60703_2 @@ -0,0 +1,31 @@ + +puts "========================" +puts "BUC60703" +puts "=================================" +puts "Action with models with CORRECT tolerance" +puts "=================================" +puts "" +############################################ +## Crash during a fuse whilst two plans are tangent. +############################################ + +restore [locate_data_file buc60703c.brep] a +puts [checkshape a] + +restore [locate_data_file buc60703e.brep] b +puts [checkshape b] + + +if [catch {bfuse result a b } catch_result] { + puts "Faulty BUC60703: here is problem with FUSE operation" +} else { + puts "OK BUC60703: function FUSE works ok" + if [catch {checkshape result } catch_result] { + puts "WARNING BUC60703 : Function checkshape gives bad result" + puts " See also OCC438: 919 D3 and D4" + } else { + puts "BUC60703 OK in checkshape" + } +} +set square 236.72 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60703_3 b/tests/bugs/modalg/buc60703_3 new file mode 100644 index 0000000000..1e1578a3f8 --- /dev/null +++ b/tests/bugs/modalg/buc60703_3 @@ -0,0 +1,24 @@ + +puts "========================" +puts "BUC60703" +puts "========================" + +restore [locate_data_file buc60703e.brep] a +#maxtolerance a +puts [checkshape a] +restore [locate_data_file buc60703d.brep] b +#maxtolerance b +puts [checkshape b] + +if [catch {bfuse result a b } catch_result] { + puts "Faulty BUC60703: here is problem with FUSE operation" +} else { + puts "OK OCC348: function FUSE works ok" + if [catch {checkshape result} catch_result] { + puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4" + } else { + puts "BUC60703 : here is NOT checking problem" + } +} +set square 371.259 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60703_4 b/tests/bugs/modalg/buc60703_4 new file mode 100644 index 0000000000..ec7ad8f415 --- /dev/null +++ b/tests/bugs/modalg/buc60703_4 @@ -0,0 +1,35 @@ + +puts "========================" +puts "BUC60703" +puts "========================" +puts "" +#################################### +## Crash during a fuse whilst two plans are tangent. +#################################### + +restore [locate_data_file buc60703d.brep] a +#maxtolerance a +puts [checkshape a] +restore [locate_data_file buc60703f.brep] b +#maxtolerance b +puts [checkshape b] + +if [catch {bfuse result a b } catch_result] { + puts "Faulty BUC60703: here is problem with FUSE operation" +} else { + puts "OK OCC348: function FUSE works ok" + if [catch {checkshape result} catch_result] { + set mistake 1 + } else { + set mistake 0 + } + + if { $mistake != 0} { + puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4" + } else { + puts "BUC60703 : here is NOT checking problem" + } +} +set square 505.797 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60704 b/tests/bugs/modalg/buc60704 new file mode 100644 index 0000000000..5757e017f8 --- /dev/null +++ b/tests/bugs/modalg/buc60704 @@ -0,0 +1,15 @@ + +puts "========================" +puts "BUC60704" +puts "BUC60709" +puts "========================" + +restore [locate_data_file buc60704a.brep] p +puts [checkshape p] +restore [locate_data_file buc60704b.brep] s +puts [checkshape s] + +bfuse result p s + +set square 39.0889 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60714 b/tests/bugs/modalg/buc60714 new file mode 100644 index 0000000000..b0d5e443e4 --- /dev/null +++ b/tests/bugs/modalg/buc60714 @@ -0,0 +1,23 @@ + +puts "========================" +puts "BUC60714" +puts "========================" + +profile f x 30 y 20 x -30 +explode f w +vertex v1 0 0 0 +vertex v2 0 -10 -10 +edge e v1 v2 + +wire w e +mksweep f_1 +setsweep -FR +addsweep w + +######## +#does'nt work +buildsweep result -C -S + +set square 1979.9 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60728 b/tests/bugs/modalg/buc60728 new file mode 100644 index 0000000000..b844711da5 --- /dev/null +++ b/tests/bugs/modalg/buc60728 @@ -0,0 +1,22 @@ + +puts "========================" +puts "BUC60728" +puts "========================" +puts "" +#################################################### +## Infinite loop in section. Section between the two attached faces never finish. +#################################################### + +restore [locate_data_file buc60728a.brep] s1 +restore [locate_data_file buc60728b.brep] s2 +build3d s1 +puts [checkshape s1] +puts [checkshape s2] + +bsection result s1 s2 + +#checksection res +#checkshape res + +set length 238.032 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60776_1 b/tests/bugs/modalg/buc60776_1 new file mode 100644 index 0000000000..275a0c7d84 --- /dev/null +++ b/tests/bugs/modalg/buc60776_1 @@ -0,0 +1,16 @@ + +puts "========================" +puts "BUC60776" +puts "========================" + +restore [locate_data_file buc60776a.brep] a +puts [checkshape a] +restore [locate_data_file buc60776b.brep] b +puts [checkshape b] +bfuse result a b + +set square 60771.3 + +set 2dviewer 1 + + diff --git a/tests/bugs/modalg/buc60776_2 b/tests/bugs/modalg/buc60776_2 new file mode 100644 index 0000000000..ba3caef1cc --- /dev/null +++ b/tests/bugs/modalg/buc60776_2 @@ -0,0 +1,15 @@ + +puts "========================" +puts "BUC60776" +puts "========================" + +restore [locate_data_file buc60776c.brep] a +puts [checkshape a] +restore [locate_data_file buc60776d.brep] b +puts [checkshape b] +bsection result a b + +set length 111.405 + +set 2dviewer 1 + diff --git a/tests/bugs/modalg/buc60782_1 b/tests/bugs/modalg/buc60782_1 new file mode 100644 index 0000000000..c937fdef4a --- /dev/null +++ b/tests/bugs/modalg/buc60782_1 @@ -0,0 +1,38 @@ +puts "TODO OCC12345 ALL: An exception was caught" +puts "TODO OCC12345 ALL: Exception" +puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly" +puts "TODO OCC12345 ALL: Error : The square of result shape is" + +puts "========================" +puts "BUC60782" +puts "CASE 1" +puts "========================" +puts "" +puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). " +puts "" + +restore [locate_data_file buc60782a.brep] a +set che [checkshape a] +if { [regexp {Faulty} $che ] == 1 } { + puts "Faulty BUC60782 (case 1): Source shape is invalid" +} else { + puts "BUC60782 OK (case 1): Sourse shape is correct" +} + +set che [checkshape a rr] +if { [regexp {OK} $che ] != 1} { + puts "Faulty : mistakes are found in SOURCE shape by checkshape command" + puts "Body of the script was not executed" +} else { + puts "Checking of SOURCE shape by checkshape - OK" + if [catch { mkoffset result a 1 10 } catch_result] { + puts "Faulty BUC60782: mkoffset works wrongly" + renamevar a result + } else { + puts "OK BUC60782: offset is created" + tpcompound result + } +} + +set square 0 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60782_3 b/tests/bugs/modalg/buc60782_3 new file mode 100644 index 0000000000..e1eb11f6d3 --- /dev/null +++ b/tests/bugs/modalg/buc60782_3 @@ -0,0 +1,39 @@ +puts "TODO OCC12345 ALL: An exception was caught" +puts "TODO OCC12345 ALL: Exception" +puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly" +puts "TODO OCC12345 ALL: Error : The square of result shape is" + + +puts "========================" +puts "BUC60782" +puts "CASE 3" +puts "========================" +puts "" +puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). " +puts "" + +restore [locate_data_file buc60782c.brep] a + +set che [checkshape a] +if { [regexp {Faulty} $che ] == 1 } { + puts "Faulty BUC60782 (case 3): Source shape is invalid" +} else { + puts "BUC60782 OK (case 3): Sourse shape is correct" +} + +set che [checkshape a rr] +if { [regexp {OK} $che ] != 1 } { + puts "Faulty : mistakes are found in SOURCE shape by checkshape command" + puts "Body of the script was not executed" +} else { + puts "Checking of SOURCE shape by checkshape - OK" + if [catch { mkoffset result a 1 10 } catch_result] { + puts "Faulty BUC60782: mkoffset works wrongly" + renamevar a result + } else { + puts "OK BUC60782: offset is created" + tpcompound result + } +} +set square 0 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60788_1 b/tests/bugs/modalg/buc60788_1 new file mode 100644 index 0000000000..51f088d17a --- /dev/null +++ b/tests/bugs/modalg/buc60788_1 @@ -0,0 +1,28 @@ + +puts "============" +puts "BUC60788" +puts "case 1" +puts "============" + +#restore Intersection_Shell1_Case1.brep S1 +#restore Intersection_Shell2_Case1.brep S2 + +restore [locate_data_file buc60788a.brep] S1 +puts [checkshape S1] +restore [locate_data_file buc60788b.brep] S2 +puts [checkshape S2] + +bsection result S1 S2 + +set nb_info [nbshapes result] +regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full err +regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1 + +if { $err != 4 && $err1 != 3} { + puts "Faulty : result (res) is incorrect" +} else { + puts "BUC60788 - OK" +} + +set length 750 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60801 b/tests/bugs/modalg/buc60801 new file mode 100644 index 0000000000..2adb282d60 --- /dev/null +++ b/tests/bugs/modalg/buc60801 @@ -0,0 +1,19 @@ + +puts "========================" +puts "BUC60801" +puts "========================" + +box b -10 -10 -10 30 40 40 +box a1 -20 0 -20 20 20 100 +box a2 0 20 -20 50 20 100 +box c -20 -20 20 100 100 100 +bcut r1 b a1 +bcut r2 r1 a2 +bcut r3 r2 c +checkshape r3 + +renamevar r3 result + +set square 6400 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60803 b/tests/bugs/modalg/buc60803 new file mode 100644 index 0000000000..d97749af2a --- /dev/null +++ b/tests/bugs/modalg/buc60803 @@ -0,0 +1,15 @@ + +puts "========================" +puts "BUC60803" +puts "========================" + +restore [locate_data_file buc60803a.brep] a +puts [checkshape a] +restore [locate_data_file buc60803b.brep] b +puts [checkshape b] + +bfuse result a b + +set square 1.86064e+07 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60839 b/tests/bugs/modalg/buc60839 new file mode 100644 index 0000000000..a76ba5b787 --- /dev/null +++ b/tests/bugs/modalg/buc60839 @@ -0,0 +1,17 @@ + +puts "============" +puts "BUC60839" +puts "============" +puts "" + +restore [locate_data_file BUC60839-1.brep] a +puts [checkshape a] +restore [locate_data_file BUC60839-2.brep] b +puts [checkshape b] + +puts "Starting fuse operation" + +bfuse result a b + +set square 27341.6 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60841 b/tests/bugs/modalg/buc60841 new file mode 100644 index 0000000000..a619046d07 --- /dev/null +++ b/tests/bugs/modalg/buc60841 @@ -0,0 +1,14 @@ + +puts "========" +puts "BUC60841" +puts "========" + +restore [locate_data_file buc60841a.brep] sh1 +puts [checkshape sh1] +restore [locate_data_file buc60841b.brep] sh2 +puts [checkshape sh2] + +bfuse result sh1 sh2 + +set square 890971 +set 2dviewer 1 diff --git a/tests/bugs/modalg/buc60849 b/tests/bugs/modalg/buc60849 new file mode 100644 index 0000000000..2cdd50df9e --- /dev/null +++ b/tests/bugs/modalg/buc60849 @@ -0,0 +1,19 @@ + +puts "============" +puts "BUC60849" +puts "============" +puts "" + +restore [locate_data_file BUC60849.brep] result +puts [checkshape result] + +set bndb [ lindex [bounding result] 3 ] + +if { $bndb > 100.000001 } { + puts "Faulty BUC60849 : Bounding box of spherical surface is created wroughly." +} else { + puts "BUC60849 OK :Bounding box of spherical surface is created properly." +} +set square 125663 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60865 b/tests/bugs/modalg/buc60865 new file mode 100644 index 0000000000..00cb07d255 --- /dev/null +++ b/tests/bugs/modalg/buc60865 @@ -0,0 +1,29 @@ + +puts "============" +puts "BUC60865" +puts "BUC60864" +puts "============" +puts "" +########################## +## Section gives duplicate edges. +########################## + +restore [locate_data_file BUC60865_sh6.brep] sh +puts [checkshape sh] + +plane pl 1.1 0.99999 1 0 1 0 +mkface f pl +bsection result sh f + + +set nb_info [nbshapes result] +regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed + +if { $ed == 5 } { + puts " BUC60865 : SECTION operation was made properly" +} else { + puts "Faulty BUC60865: SECTION operation was made wrongly" +} +set length 4.5 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60881 b/tests/bugs/modalg/buc60881 new file mode 100644 index 0000000000..3330cf49e6 --- /dev/null +++ b/tests/bugs/modalg/buc60881 @@ -0,0 +1,15 @@ + +puts "============" +puts "BUC60881" +puts "============" +puts "" + +restore [locate_data_file BUC60881.brep] a +explode a +puts [checkshape a_1] +puts [checkshape a_1] + +bfuse result a_1 a_2 + +set square 34069 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60899_1 b/tests/bugs/modalg/buc60899_1 new file mode 100644 index 0000000000..115e9c8a2a --- /dev/null +++ b/tests/bugs/modalg/buc60899_1 @@ -0,0 +1,48 @@ + +puts "============" +puts "BUC60899" +puts "============" +puts "" +##################################################### +## Execution of the script prism_sec.tcl gives exception "NumericError". +##################################################### + +set n 2 +set dx 4 +set sx 1 +set sz 10 +set xc [dval (2*$dx+2*$sx)*$n/2] +set zc -30 +set r [dval $xc*0.9] + +set x 0 +set y -50 +set z 0 +set pol "polyline w $x $y $z" +for {set i 1} {$i <= $n} {incr i} { + set x [dval $x+$dx] + set pol "$pol $x $y $z" + set x [dval $x+$sx] + set z [dval $z+$sz] + set pol "$pol $x $y $z" + set x [dval $x+$dx] + set pol "$pol $x $y $z" + set x [dval $x+$sx] + set z [dval $z-$sz] + set pol "$pol $x $y $z" +} + +eval $pol +circle c $xc 0 $zc $r +mkedge c c + +prism cyl c 0 0 -$zc*2 inf +prism crg w 0 -$y*2 0 inf + +bsection result crg cyl + +set length 15.1392 +set 2dviewer 0 + +# checksection res +# checkshape res diff --git a/tests/bugs/modalg/buc60899_2 b/tests/bugs/modalg/buc60899_2 new file mode 100644 index 0000000000..4d79361333 --- /dev/null +++ b/tests/bugs/modalg/buc60899_2 @@ -0,0 +1,62 @@ + +puts "============" +puts "BUC60899" +puts "============" +puts "" +##################################################### +## Execution of the script prism_sec.tcl gives exception "NumericError". +##################################################### + +set n 2 +set dx 4 +set sx 1 +set sz 10 +set xc [dval (2*$dx+2*$sx)*$n/2] +set zc -30 +set r [dval $xc*0.9] + +set x 0 +set y -50 +set z 0 +set pol "polyline w $x $y $z" +for {set i 1} {$i <= $n} {incr i} { + set x [dval $x+$dx] + set pol "$pol $x $y $z" + set x [dval $x+$sx] + set z [dval $z+$sz] + set pol "$pol $x $y $z" + set x [dval $x+$dx] + set pol "$pol $x $y $z" + set x [dval $x+$sx] + set z [dval $z-$sz] + set pol "$pol $x $y $z" +} + +eval $pol +polyline c $xc-$r -$r*2 $zc $xc+$r -$r*2 $zc $xc+$r $r*2 $zc $xc-$r $r*2 $zc $xc-$r -$r*2 $zc + +prism cyl c 0 0 -$zc*2 inf +prism crg w 0 -$y*2 0 inf +bsection result crg cyl + +#checksection res +#checkshape res + +set nb_info [nbshapes result] +regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full edgeness + + + #set fullness [ nbshapes res ] + #puts "$fullness" + #set qq [ lindex $fullness 0 ] + #set edgeness [ lindex $fullness 10 ] + # puts "$edgeness" + +if { $edgeness == 1 } { + puts "Shape is empty, it is Faulty result" +} else { + puts "Shape is not empty, OK" +} + +set length 162.299 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60901 b/tests/bugs/modalg/buc60901 new file mode 100644 index 0000000000..7c9395f234 --- /dev/null +++ b/tests/bugs/modalg/buc60901 @@ -0,0 +1,62 @@ + +puts "============" +puts "BUC60901" +puts "============" +puts "" +################################################################ +## We should get the edges forming a closed intersection line but we see breaks. +################################################################ + +set n 3 +set dx 1 +set sx 20 +set sz 10 + +set xc [dval (2*$dx+2*$sx)*$n/2] +set yc 0 +set zc [dval $sz*10] +set nxc 0.5 +set nyc -0.3 +set nzc 1 +set r [dval $xc*0.9] + +set x 0 +set y [dval -$r*1.2] +set z 0 +set pol "polyline w $x $y $z" +for {set i 1} {$i <= $n} {incr i} { + set x [dval $x+$dx] + set pol "$pol $x $y $z" + set x [dval $x+$sx] + set z [dval $z+$sz] + set pol "$pol $x $y $z" + set x [dval $x+$dx] + set pol "$pol $x $y $z" + set x [dval $x+$sx] + set z [dval $z-$sz] + set pol "$pol $x $y $z" +} + +eval $pol +circle c $xc $yc $zc $nxc $nyc $nzc $r +mkedge c c + +set lcyl [dval -$zc*2] +set lcrg [dval -$y*2] + +prism cyl c 0 0 $lcyl +prism crg w 0 $lcrg 0 +bsection result crg cyl + +set nb_info [nbshapes result] +regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices +regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges + +if { $nb_vertices != $nb_edges } { + puts "Section is opened: Faulty shape" +} else { + puts "Section is closed: OK" +} + +set length 350.404 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60905 b/tests/bugs/modalg/buc60905 new file mode 100644 index 0000000000..50df637f40 --- /dev/null +++ b/tests/bugs/modalg/buc60905 @@ -0,0 +1,22 @@ + +puts "============" +puts "BUC60905" +puts "============" +puts "" +######################################################### +## shape contains open shells if sewing would be made with big tolerance invalid shape +## will be produced, and visualization crashes. +######################################################### + +restore [locate_data_file BUC60905.brep] a +# checkshape a + +sewing result 10 a + +vinit +vdisplay result + +# checkshape res + +set square 270868 +set 3dviewer 0 diff --git a/tests/bugs/modalg/buc60909 b/tests/bugs/modalg/buc60909 new file mode 100644 index 0000000000..afbcfe6e23 --- /dev/null +++ b/tests/bugs/modalg/buc60909 @@ -0,0 +1,16 @@ + +puts "============" +puts "BUC60909" +puts "============" +puts "" + +box boite 200 200 200 +nexplode boite F +profile cont S boite_4 F 0 50 X 50 Y 100 X -50 +featrevol boite cont boite_4 0 0 200 0 -1 0 1 1 +featperform revol result boite_1 + +set square 265343 +set 2dviewer 0 + + diff --git a/tests/bugs/modalg/buc60927 b/tests/bugs/modalg/buc60927 new file mode 100644 index 0000000000..abf92dbfbf --- /dev/null +++ b/tests/bugs/modalg/buc60927 @@ -0,0 +1,16 @@ + +puts "============" +puts "BUC60927" +puts "============" + +restore [locate_data_file BUC60927.brep] a + +explode a +puts [checkshape a_1] +puts [checkshape a_2] + +bcut result a_2 a_1 + +set square 94795.3 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60930 b/tests/bugs/modalg/buc60930 new file mode 100644 index 0000000000..b25473f2ed --- /dev/null +++ b/tests/bugs/modalg/buc60930 @@ -0,0 +1,21 @@ + +puts "============" +puts "BUC60930" +puts "============" +puts "" +###################################### +## Exception ConstructionError in LocOpe_SplitShape. +###################################### + +restore [locate_data_file BUC60930_splitshape.brep] c +explode c +puts [checkshape c_1] +puts [checkshape c_2] + +renamevar c_1 f +renamevar c_2 e + +splitshape result f f e + +set square 13.3392 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60934 b/tests/bugs/modalg/buc60934 new file mode 100644 index 0000000000..c0ced12eef --- /dev/null +++ b/tests/bugs/modalg/buc60934 @@ -0,0 +1,13 @@ + +puts "============" +puts "BUC60934" +puts "============" + +restore [locate_data_file BUC60934.brep] a +puts [checkshape a] + +mkplane result a + +set square 40303.1 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/buc60942 b/tests/bugs/modalg/buc60942 new file mode 100644 index 0000000000..ad645da4d5 --- /dev/null +++ b/tests/bugs/modalg/buc60942 @@ -0,0 +1,35 @@ + +puts "============" +puts "BUC60942" +puts "============" +############################################################### +## SplitShape algorithm modifies original shape (increases vertex tolerance of a plitting edge). +############################################################### + +restore [locate_data_file BUC60942_splitshape.brep] c +explode c +puts [checkshape c_1] +puts [checkshape c_2] + +renamevar c_1 f +renamevar c_2 w + +set tol1 [maxtolerance w] +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxEdgeTol1 +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxVertexTol1 + +splitshape result f f w + +set tol2 [maxtolerance w] +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxEdgeTol2 +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxVertexTol2 + + +if { $MaxEdgeTol1 < $MaxEdgeTol2 || $MaxVertexTol1 < $MaxVertexTol1 } { + puts "Faulty BUC60942: max tolerance of the input wire has been increased by about 10 times." +} else { + puts "BUC60942 OK: Tolerance of shape is correct" +} + +set square 37.7032 +set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60971 b/tests/bugs/modalg/buc60971 new file mode 100644 index 0000000000..fc2502f64d --- /dev/null +++ b/tests/bugs/modalg/buc60971 @@ -0,0 +1,15 @@ + +puts "========" +puts "BUC60971" +puts "CASE 2" +puts "========" +puts "" + +restore [locate_data_file buc60971.brep] a +explode a +puts [checkshape a_1] +puts [checkshape a_2] + +bfuse result a_2 a_3 +set square 93698.1 +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug109 b/tests/bugs/modalg/bug109 index 62a5b675d3..88342ea282 100755 --- a/tests/bugs/modalg/bug109 +++ b/tests/bugs/modalg/bug109 @@ -30,4 +30,5 @@ if { $tri != 294 && $nod != 300 } { } set square 33.8757 -set 3dviewer 2 +set only_screen 1 + diff --git a/tests/bugs/modalg/bug116 b/tests/bugs/modalg/bug116 index ae4179d82e..53eb908091 100755 --- a/tests/bugs/modalg/bug116 +++ b/tests/bugs/modalg/bug116 @@ -20,4 +20,5 @@ if [catch {chamf result sh sh_6_1 sh_6 A 2 45 sh_6_8 sh_6 A 2 45 } catch_result] } set square 48357.5 -set 3dviewer 2 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/bug122_2 b/tests/bugs/modalg/bug122_2 index d0abe72793..8b08cc8a6a 100755 --- a/tests/bugs/modalg/bug122_2 +++ b/tests/bugs/modalg/bug122_2 @@ -1,4 +1,3 @@ - puts "================" puts "OCC122" puts "================" diff --git a/tests/bugs/modalg/bug122_3 b/tests/bugs/modalg/bug122_3 index c911d148d2..800771db66 100755 --- a/tests/bugs/modalg/bug122_3 +++ b/tests/bugs/modalg/bug122_3 @@ -1,4 +1,3 @@ - puts "================" puts "OCC122" puts "================" diff --git a/tests/bugs/modalg/bug16983 b/tests/bugs/modalg/bug16983 deleted file mode 100755 index 41ca3bf347..0000000000 --- a/tests/bugs/modalg/bug16983 +++ /dev/null @@ -1,17 +0,0 @@ - -puts "============" -puts "PRO16983" -puts "============" - -restore [locate_data_file pro16983a.brep] B -puts [checkshape B] -plane p 0 0 0 1 0 0 -vertex v1 0 90.16396 252.4591 -vertex v2 0 252.459 -9.835989 -edge e v2 v1 -wire w e -featlf B w p -5 0 0 5 0 0 1 1 -featperform lf result - -set square 796476 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug174 b/tests/bugs/modalg/bug174 index a59dd68327..c4eda7d275 100755 --- a/tests/bugs/modalg/bug174 +++ b/tests/bugs/modalg/bug174 @@ -1,4 +1,3 @@ -#INTERFACE IGES puts "========" puts "OCC174" puts "========" diff --git a/tests/bugs/modalg/bug18892 b/tests/bugs/modalg/bug18892 deleted file mode 100755 index 797057c669..0000000000 --- a/tests/bugs/modalg/bug18892 +++ /dev/null @@ -1,36 +0,0 @@ -puts "TODO OCC12345 ALL: Faulty : Result is BAD. Distance is more than MaxTolerance" -puts "TODO OCC12345 ALL: Error : The length of result shape is" - -puts "==========" -puts "PRO18892" -puts "==========" -# Version de test: K4O, PATCH LEVEL: -# GEOMETRY-M4-6A : 3 -# GEOMLITE-M4-6A : 1 -# TOPOLOGY-M4-6A : 2 - -restore [locate_data_file pro18892.rle] a -puts [checkshape a] - -explode a -bsection result a_1 a_2 -2d -a -explode result - -mkcurve c result_1 -cvalue c 1 X Y Z -vertex v X Y Z -explode a e - -distmini d v a_8 - -set tol [ maxtolerance a_8 ] -regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxEdgeTolerance -regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxVertexTolerance -regexp {([-0-9.+eE]+)} [dump d_val] full d - -if { [expr $d > $MaxEdgeTolerance] || [expr $d > $MaxVertexTolerance] } { - puts "Faulty : Result is BAD. Distance is more than MaxTolerance" -} - -set length 0 -set 3dviewer 2 \ No newline at end of file diff --git a/tests/bugs/modalg/bug19424 b/tests/bugs/modalg/bug19424 deleted file mode 100755 index d41052bf38..0000000000 --- a/tests/bugs/modalg/bug19424 +++ /dev/null @@ -1,19 +0,0 @@ - -puts "==========" -puts "PRO19424" -puts "==========" - -restore [locate_data_file pro19424a.brep] b -puts [checkshape b] -restore [locate_data_file pro19424b.brep] p -puts [checkshape p] - -if [catch {evolved result b p o } catch_result] { - puts "Faulty PRO19424 : function EVOLVED works wrongly" -} else { - puts "PRO19424 OK: function EVOLVED works properly" -} - -set square 246.506 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug19626 b/tests/bugs/modalg/bug19626 deleted file mode 100755 index 3eb098b54c..0000000000 --- a/tests/bugs/modalg/bug19626 +++ /dev/null @@ -1,21 +0,0 @@ - -puts "============" -puts "PRO19626" -puts "============" - -restore [locate_data_file pro19626a.brep] a -puts [checkshape a] -restore [locate_data_file pro19626b.brep] b -puts [checkshape b] - -bsection result a b -regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num -if { $num != 2 } { - puts " Faulty PRO19626: Result shape is INcorrect !!! " -} else { - puts "PRO19626 OK : Result shape is CORRECT !!! " -} - -set length 174.597 -set 3dviewer 2 - diff --git a/tests/bugs/modalg/bug19653 b/tests/bugs/modalg/bug19653 deleted file mode 100755 index f0329c1a62..0000000000 --- a/tests/bugs/modalg/bug19653 +++ /dev/null @@ -1,29 +0,0 @@ -puts "TODO OCC12345 ALL: Faulty : TEST FAILED" -puts "TODO OCC12345 ALL: Error : The length of result shape is" - -puts "============" -puts "PRO19653" -puts "BREPALGO_BOOLEANOPERATION does not return result." -puts "==================================" -puts "It takes visual check for this BUG" -puts "==================================" - -restore [locate_data_file pro19653a.brep] a -puts [checkshape a] -restore [locate_data_file pro19653b.brep] b -puts [checkshape b] -bsection result a b - -explode result e -checkshape result_1 -explode a e -regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full ll_1 -regexp {Mass +: +([-0-9.+eE]+)} [lprops a_4] full ll_2 -if { $ll_1 != $ll_2 } { - puts "Faulty : TEST FAILED" -} else { - puts "PRO19653 OK : BREPALGO_BOOLEANOPERATION returns result" -} - -set length 0 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug21 b/tests/bugs/modalg/bug21 index 6db741403e..20a44e0211 100755 --- a/tests/bugs/modalg/bug21 +++ b/tests/bugs/modalg/bug21 @@ -1,4 +1,3 @@ -#INTERFACE IGES puts "================" puts "OCC21" puts "================" diff --git a/tests/bugs/modalg/bug221 b/tests/bugs/modalg/bug221 index 2042b9e446..173af51319 100755 --- a/tests/bugs/modalg/bug221 +++ b/tests/bugs/modalg/bug221 @@ -1,4 +1,3 @@ -#INTERFACE IGES puts "========" puts "OCC221" puts "========" diff --git a/tests/bugs/modalg/bug23137_1 b/tests/bugs/modalg/bug23137_1 new file mode 100644 index 0000000000..cd7ab82f50 --- /dev/null +++ b/tests/bugs/modalg/bug23137_1 @@ -0,0 +1,21 @@ +puts "============" +puts "CR23137" +puts "============" +puts "" +########################################################################################################## +# Class BRepAlgoAPI_Cut does not made correct result on attached shapes. +########################################################################################################## + +restore [locate_data_file bug23137_bspl_cut.brep] b +explode b +copy b_1 b1 +copy b_2 b2 +#to provide positive volume of b2 +invert b2 + +bop b1 b2 +bopcut result + +set square 44460.7 + +set 3dviewer 1 diff --git a/tests/bugs/modalg/bug23137_2 b/tests/bugs/modalg/bug23137_2 new file mode 100644 index 0000000000..92a35b1cc2 --- /dev/null +++ b/tests/bugs/modalg/bug23137_2 @@ -0,0 +1,21 @@ +puts "============" +puts "CR23137" +puts "============" +puts "" +########################################################################################################## +# Class BRepAlgoAPI_Cut does not made correct result on attached shapes. +########################################################################################################## + +restore [locate_data_file bug23137_rev_cut.brep] b +explode b +copy b_1 b1 +copy b_2 b2 +#to provide positive volume of b1 +invert b1 + +bop b1 b2 +bopcut result + +set square 3452.78 + +set 3dviewer 1 diff --git a/tests/bugs/modalg/bug23394 b/tests/bugs/modalg/bug23394 new file mode 100644 index 0000000000..d099a3d9c3 --- /dev/null +++ b/tests/bugs/modalg/bug23394 @@ -0,0 +1,15 @@ +puts "============" +puts "CR23394" +puts "============" +puts "" +########################################################################################################## +# Problem with BRepOffset_MakeOffset on a cylindrical face +########################################################################################################## + +restore [locate_data_file bug23394_Circular_tube.brep] sh1 + +thickshell result sh1 5 + +set square 128648 + +set 3dviewer 1 diff --git a/tests/bugs/modalg/bug234 b/tests/bugs/modalg/bug234 index 8aa01c34af..8cd171d1dc 100755 --- a/tests/bugs/modalg/bug234 +++ b/tests/bugs/modalg/bug234 @@ -1,4 +1,3 @@ -#INTERFACE IGES puts "========" puts "OCC234" puts "========" diff --git a/tests/bugs/modalg/bug23429 b/tests/bugs/modalg/bug23429 new file mode 100644 index 0000000000..aa7428ca28 --- /dev/null +++ b/tests/bugs/modalg/bug23429 @@ -0,0 +1,24 @@ +puts "============" +puts "CR23429" +puts "============" +puts "" +########################################################################################################## +# BRepFeat_SplitShape algorithm misses some section edges while building result from customer's shape +########################################################################################################## +pload QAcommands + +restore [locate_data_file OCC23388-Shape1.brep] a +restore [locate_data_file CR23429-Shape3.brep] b + +OCC23429 result a b + +set square 1120.52 + +set 2dviewer 1 + + + + + + + diff --git a/tests/bugs/modalg/bug291 b/tests/bugs/modalg/bug291 index 4b19c83ab7..bf086bbde5 100755 --- a/tests/bugs/modalg/bug291 +++ b/tests/bugs/modalg/bug291 @@ -12,6 +12,7 @@ tclean result vinit vdisplay result vsetdispmode result 1 +vfit isos result 0 triangles result @@ -30,4 +31,5 @@ if { $tri == 382 && $nod == 343 } { } set square 376.873 -set 3dviewer 2 +set only_screen 1 + diff --git a/tests/bugs/modalg/bug292 b/tests/bugs/modalg/bug292 index 21a9a53f46..87a777b727 100755 --- a/tests/bugs/modalg/bug292 +++ b/tests/bugs/modalg/bug292 @@ -30,6 +30,7 @@ if { $tri ==6 && $nod == 8} { puts " OCC292 : Faulty" } -set 3dviewer 2 set square 1.3135 +set 3dviewer 1 + diff --git a/tests/bugs/modalg/bug293 b/tests/bugs/modalg/bug293 index dc094490ea..99291bd0d5 100755 --- a/tests/bugs/modalg/bug293 +++ b/tests/bugs/modalg/bug293 @@ -66,4 +66,4 @@ vdisplay result vfit set square 9.80214e+06 -set 3dviewer 2 +set only_screen 1 diff --git a/tests/bugs/modalg/bug302_1 b/tests/bugs/modalg/bug302_1 index cc3477042d..6ebe5393e8 100755 --- a/tests/bugs/modalg/bug302_1 +++ b/tests/bugs/modalg/bug302_1 @@ -1,4 +1,3 @@ -#INTERFACE IGES puts "========================" puts " OCC302 " puts "(case 1)" diff --git a/tests/bugs/modalg/bug302_2 b/tests/bugs/modalg/bug302_2 index 8cbb70f6a5..c6af1775e0 100755 --- a/tests/bugs/modalg/bug302_2 +++ b/tests/bugs/modalg/bug302_2 @@ -1,4 +1,3 @@ -#INTERFACE IGES puts "========================" puts " OCC302 " puts "(case 2)" diff --git a/tests/bugs/modalg/bug302_3 b/tests/bugs/modalg/bug302_3 index 601bd2b9bd..cc6d332634 100755 --- a/tests/bugs/modalg/bug302_3 +++ b/tests/bugs/modalg/bug302_3 @@ -1,4 +1,3 @@ -#INTERFACE IGES puts "========================" puts " OCC302 " puts "(case 3)" diff --git a/tests/bugs/modalg/bug322 b/tests/bugs/modalg/bug322 index 77c197998b..d131ca80de 100755 --- a/tests/bugs/modalg/bug322 +++ b/tests/bugs/modalg/bug322 @@ -27,4 +27,4 @@ QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B QAGetPixelColor $x2 $y2 $Yellow_R $Yellow_G $Yellow_B set square 20000 -set 3dviewer 2 +set only_screen 1 diff --git a/tests/bugs/modalg/bug327_1 b/tests/bugs/modalg/bug327_1 index f684494287..6f8b0d5407 100755 --- a/tests/bugs/modalg/bug327_1 +++ b/tests/bugs/modalg/bug327_1 @@ -1,4 +1,3 @@ -#INTERFACE IGES puts "========================" puts " OCC327 " puts " case 1 " diff --git a/tests/bugs/modalg/bug327_2 b/tests/bugs/modalg/bug327_2 index ab39952527..efc3284861 100755 --- a/tests/bugs/modalg/bug327_2 +++ b/tests/bugs/modalg/bug327_2 @@ -1,4 +1,3 @@ -#INTERFACE IGES puts "========================" puts " OCC327 " puts " case 2 " diff --git a/tests/bugs/modalg/bug437 b/tests/bugs/modalg/bug437 index 67009816c3..513c9e6675 100755 --- a/tests/bugs/modalg/bug437 +++ b/tests/bugs/modalg/bug437 @@ -1,4 +1,3 @@ -#INTERFACE IGES puts "========================" puts " OCC437 " puts "========================" diff --git a/tests/bugs/modalg/bug446_2 b/tests/bugs/modalg/bug446_2 index 9fb2504d88..f6fcfd0ebf 100755 --- a/tests/bugs/modalg/bug446_2 +++ b/tests/bugs/modalg/bug446_2 @@ -18,4 +18,5 @@ if { [regexp {Faulty} $che ] == 1} { puts "OCC446 OK (case 2): Source shape is Closed" } set square 24272.8 -set 3dviewer 2 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/bug446_3 b/tests/bugs/modalg/bug446_3 index bc8bfdb9d6..cf1efa8ae9 100755 --- a/tests/bugs/modalg/bug446_3 +++ b/tests/bugs/modalg/bug446_3 @@ -18,5 +18,6 @@ if { [regexp {Faulty} $che ] == 1} { puts "OCC446 OK (case 3): Source shape is Closed" } set square 13694.6 -set 3dviewer 2 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/bug446_4 b/tests/bugs/modalg/bug446_4 index 834f6af866..d4f43df460 100755 --- a/tests/bugs/modalg/bug446_4 +++ b/tests/bugs/modalg/bug446_4 @@ -18,4 +18,5 @@ if { [regexp {Faulty} $che ] == 1 } { puts "OCC446 OK (case 4): Source shape is Closed" } set square 629.347 -set 3dviewer 2 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/bug60409_1 b/tests/bugs/modalg/bug60409_1 deleted file mode 100755 index 1aceec9594..0000000000 --- a/tests/bugs/modalg/bug60409_1 +++ /dev/null @@ -1,28 +0,0 @@ - -puts "==============" -puts " BUC60409 " -puts " FUSE " -puts "==============" - -restore [locate_data_file buc60409a.brep] c -restore [locate_data_file buc60409b.brep] s - -set che [checkshape c] -if { [regexp {Faulty} $che ] == 1 } { - puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command" - puts "Body of the script was NOT executed" - renamevar c result -} else { - puts "BUC60409 OK (shape 1): Source shape is valid" - set che [checkshape s] - if { [regexp {Faulty} $che ] == 1 } { - puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command" - puts "Body of the script was NOT executed" - renamevar s result - } else { - puts "BUC60409 OK (shape 2): Source shape is valid" - bfuse result c s - } -} -set square 39.0894 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60409_2 b/tests/bugs/modalg/bug60409_2 deleted file mode 100755 index 3ebd2a1c27..0000000000 --- a/tests/bugs/modalg/bug60409_2 +++ /dev/null @@ -1,28 +0,0 @@ - -puts "=============" -puts " BUC60409 " -puts " CUT " -puts "=============" - -restore [locate_data_file buc60409a.brep] c -restore [locate_data_file buc60409b.brep] s - -set che [checkshape c] -if { [regexp {Faulty} $che ] == 1 } { - puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command" - puts "Body of the script was NOT executed" - renamevar c result -} else { - puts "BUC60409 OK (shape 1): Source shape is valid" - set che [checkshape s] - if { [regexp {Faulty} $che ] == 1 } { - puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command" - puts "Body of the script was NOT executed" - renamevar s result - } else { - puts "BUC60409 OK (shape 2): Source shape is valid" - bcut result c s - } -} -set square 31.8476 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60409_3 b/tests/bugs/modalg/bug60409_3 deleted file mode 100755 index 824156f38d..0000000000 --- a/tests/bugs/modalg/bug60409_3 +++ /dev/null @@ -1,29 +0,0 @@ - -puts "=================" -puts " BUC60409 " -puts " COMMON " -puts "=================" - -restore [locate_data_file buc60409a.brep] c -restore [locate_data_file buc60409b.brep] s - -set che [checkshape c] -if { [regexp {Faulty} $che ] == 1 } { - puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command" - puts "Body of the script was NOT executed" - renamevar c result -} else { - puts "BUC60409 OK (shape 1): Source shape is valid" - - set che [checkshape s] - if { [regexp {Faulty} $che ] == 1 } { - puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command" - puts "Body of the script was NOT executed" - renamevar s result - } else { - puts "BUC60409 OK (shape 2): Source shape is valid" - bcommon result c s - } -} -set square 4.89279 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60523 b/tests/bugs/modalg/bug60523 deleted file mode 100755 index 9a248998e6..0000000000 --- a/tests/bugs/modalg/bug60523 +++ /dev/null @@ -1,12 +0,0 @@ - -puts "========================" -puts "BUC60523" -puts "========================" - -restore [locate_data_file buc60523a.brep] a -puts [checkshape a] -sewing result 1.e-7 a -set square 156.919 -set 2dviewer 0 - - diff --git a/tests/bugs/modalg/bug60531_1 b/tests/bugs/modalg/bug60531_1 deleted file mode 100755 index 4a8870fb65..0000000000 --- a/tests/bugs/modalg/bug60531_1 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "========================" -puts "BUC60531" -puts "========================" - -restore [locate_data_file buc60531a.brep] r1 -puts [checkshape r1] -restore [locate_data_file buc60531b.brep] pl1 -puts [checkshape pl1] - -bcut result r1 pl1 - -set square 115935 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug60531_2 b/tests/bugs/modalg/bug60531_2 deleted file mode 100755 index ac3d913f92..0000000000 --- a/tests/bugs/modalg/bug60531_2 +++ /dev/null @@ -1,21 +0,0 @@ - -puts "========================" -puts "BUC60531" -puts "========================" - -restore [locate_data_file buc60531a.brep] r1 -puts [checkshape r1] - -restore [locate_data_file buc60531b.brep] pl1 -puts [checkshape pl1] - -bcut r2 r1 pl1 -puts [checkshape r2] - -restore [locate_data_file buc60531c.brep] pl2 -puts [checkshape pl2] - -bcut result r2 pl2 - -set square 115935 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60532 b/tests/bugs/modalg/bug60532 deleted file mode 100755 index 1d3de461c5..0000000000 --- a/tests/bugs/modalg/bug60532 +++ /dev/null @@ -1,23 +0,0 @@ -#INTERFACE IGES -puts "===========" -puts "BUC60532" -puts "===========" - -restore [locate_data_file buc60532a.brep] p -puts [checkshape p] - -restore [locate_data_file buc60532b.brep] t1 -puts [checkshape t1] - -restore [locate_data_file buc60532c.brep] t2 -puts [checkshape t2] - -# create halfspace -halfspace h1 t1 20 20 0 -halfspace h2 t2 20 20 0 - -# first cut -bcut result p h1 - -set square 81.8172 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60532_1 b/tests/bugs/modalg/bug60532_1 deleted file mode 100755 index 4c72b37d38..0000000000 --- a/tests/bugs/modalg/bug60532_1 +++ /dev/null @@ -1,24 +0,0 @@ -#INTERFACE IGES -puts "===========" -puts "BUC60532" -puts "===========" - -restore [locate_data_file buc60532a.brep] p -puts [checkshape p] - -restore [locate_data_file buc60532b.brep] t1 -puts [checkshape t1] - -restore [locate_data_file buc60532c.brep] t2 -puts [checkshape t2] - -# create halfspace -halfspace h1 t1 20 20 0 -halfspace h2 t2 20 20 0 - -# first cut -bcut result p h1 - -set square 81.8172 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug60532_2 b/tests/bugs/modalg/bug60532_2 deleted file mode 100755 index 66d489724b..0000000000 --- a/tests/bugs/modalg/bug60532_2 +++ /dev/null @@ -1,53 +0,0 @@ -#INTERFACE IGES -puts "==========" -puts "BUC60532" -puts "==========" - -restore [locate_data_file buc60532a.brep] p -puts [checkshape p] - -restore [locate_data_file buc60532b.brep] t1 -puts [checkshape t1] - -restore [locate_data_file buc60532c.brep] t2 -puts [checkshape t2] - -# create halfspace -#vertex v 20 20 0 -halfspace h1 t1 20 20 0 -halfspace h2 t2 20 20 0 - -# first cut -bcut res1 p h1 - -explode res1 e -mkcurve cu11 res1_1 -mkcurve cu12 res1_2 -mkcurve cu13 res1_3 -mkcurve cu14 res1_4 -mkcurve cu15 res1_5 - -puts [checkshape res1] -puts [computetolerance res1] - -# second cut -bcut res2 res1 h2 -tcopy res2 res -puts [checkshape res2] - -explode res2 e -mkcurve cu21 res2_1 -mkcurve cu22 res2_2 -mkcurve cu23 res2_3 -mkcurve cu24 res2_4 -mkcurve cu25 res2_5 - -explode res2 face - -puts [computetolerance res2] - -renamevar res2 result - -set square 78.8705 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug60533 b/tests/bugs/modalg/bug60533 deleted file mode 100755 index de34d225bb..0000000000 --- a/tests/bugs/modalg/bug60533 +++ /dev/null @@ -1,70 +0,0 @@ -#INTERFACE IGES -puts "==========" -puts "BUC60533" -puts "==========" - -restore [locate_data_file buc60533a.brep] part -puts [checkshape part] -#puts "Tolerance part" -#computetolerance part - -restore [locate_data_file buc60533b.brep] trTool -puts [checkshape trTool] -#puts "Tolerance trTool" -#computetolerance trTool - -# create halfspace -vertex v 10000 15000 -15000 -halfspace hs trTool 10000 15000 -15000 -#puts "Tolerance hs" -#computetolerance hs - -#************************************************* -if [catch {bcut result part hs} catch_result] { - puts "Faulty BUC60533: function CUT works wrongly" -} else { - puts " BUC60533 OK: function CUT works properly" -} -#************************************************* - -#set che [checkshape res r] -#set err [lindex $che [expr [llength $che] - 1]] -#if { $err != "OK"} { -# puts "Faulty : mistakes are found in checked shape by checkshape command" -#} else { -# puts "Checking by checkshape - OK" - -#explode res e -#mkcurve cu1 res_1 -#mkcurve cu2 res_2 -#mkcurve cu3 res_3 -#mkcurve cu4 res_4 -#mkcurve cu5 res_5 - -#checkshape res - -#set tolerance [ maxtolerance res ] -#set MaxFaceTolerance [ lindex $tolerance 14 ] -#set MaxEdgeTolerance [ lindex $tolerance 20 ] -#set MaxVertexTolerance [ lindex $tolerance 26 ] -#if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { -#puts "Faulty :Tolerance of shape is more then 1.0" -#} else { -#puts "Tolerance of shape is less then 1.0" -#} -#} - -# Objectif : Couper part par trTool -# -# part est construite a partir d'un semi de point et de telle facon que u=x et v=y. -# On obtient une Geom_BSplineSurface. On cree alors la topologie a partir de cette -# surface via BRepAPI::MakeFace(surface) -# Dans notre code, a aucun moment, nous -# n'initialisons la tolerance. -# -# Le cut n'est pas effectue car une exception est levee : -# An exception was caught Standard_ConstructionError: -# ** Exception ** Standard_ConstructionError: - -set square 1.63191e+07 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60555_1 b/tests/bugs/modalg/bug60555_1 deleted file mode 100755 index 0d17815b61..0000000000 --- a/tests/bugs/modalg/bug60555_1 +++ /dev/null @@ -1,38 +0,0 @@ -#INTERFACE IGES -puts "===========" -puts "BUC60555" -puts "CUT Case 1" -puts "===========" -#cpulim add aki 070704 -cpulimit 1600 -restore [locate_data_file buc60555a.brep] part -puts [checkshape part] -restore [locate_data_file buc60555b.brep] trTool1 -puts [checkshape trTool1] -halfspace hs1 trTool1 20000 10000 0 -bcut cut1 part hs1 - -puts [checkshape cut1] - -tcopy cut1 result - -explode cut1 e -mkcurve cu1 cut1_1 -mkcurve cu2 cut1_2 -mkcurve cu3 cut1_3 -mkcurve cu4 cut1_4 - -set tolerance [ maxtolerance cut1 ] - -regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance -regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance -regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance - -if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { - puts "Faulty :Tolerance of shape is more then 1.0" -} else { - puts "Tolerance of shape is less then 1.0" -} - -set square 4.60842e+07 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60585_2 b/tests/bugs/modalg/bug60585_2 deleted file mode 100755 index 2647039a89..0000000000 --- a/tests/bugs/modalg/bug60585_2 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "========================" -puts "BUC60585" -puts "========================" - -restore [locate_data_file buc60585b.brep] t -puts [checkshape t] -plane pt 2036.25 -97.5 -1460.499755859375 0.0 -1.0 0.0 1.0 0.0 0.0 - -psection result t pt - -set length 22.0446 -set 2dviewer 0 - -# checksection res diff --git a/tests/bugs/modalg/bug60623_1 b/tests/bugs/modalg/bug60623_1 deleted file mode 100755 index be68670223..0000000000 --- a/tests/bugs/modalg/bug60623_1 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "========================" -puts "BUC60623" -puts "========================" - -restore [locate_data_file buc60623a.brep] a -puts [checkshape a] -restore [locate_data_file buc60623b.brep] b -puts [checkshape b] - -bsection result a b - -set length 1475.98 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug60623_2 b/tests/bugs/modalg/bug60623_2 deleted file mode 100755 index 501aba6ea4..0000000000 --- a/tests/bugs/modalg/bug60623_2 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "========================" -puts "BUC60623" -puts "========================" - -restore [locate_data_file buc60623a.brep] a -puts [checkshape a] -restore [locate_data_file buc60623b.brep] b -puts [checkshape b] - -bsection result b a -# checksection res - -set length 1475.98 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60635 b/tests/bugs/modalg/bug60635 deleted file mode 100755 index d33331fcb5..0000000000 --- a/tests/bugs/modalg/bug60635 +++ /dev/null @@ -1,13 +0,0 @@ - -puts "=============" -puts "BUC60635" -puts "=============" - -restore [locate_data_file buc60635a.brep] a -puts [checkshape a] - -mkplane result a - -set square 2035.58 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug60663_1 b/tests/bugs/modalg/bug60663_1 deleted file mode 100755 index c335e405d3..0000000000 --- a/tests/bugs/modalg/bug60663_1 +++ /dev/null @@ -1,26 +0,0 @@ - -puts "=====================================" -puts "BUC60663" -puts "=====================================" -puts "" -puts "It takes visual check for this BUG. See V2 point" -puts "=====================================" -puts "" - -restore [locate_data_file buc60663a.brep] a -puts [checkshape a] -restore [locate_data_file buc60663b.brep] b -puts [checkshape b] - -bsection result a b - -regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num -if { $num != 2 } { - puts " Faulty : Result shape is INcorrect !!! " -} - - -#fsameparameter res - -set length 26.2001 -set 3dviewer 2 diff --git a/tests/bugs/modalg/bug60668 b/tests/bugs/modalg/bug60668 deleted file mode 100755 index 0aef85e0b9..0000000000 --- a/tests/bugs/modalg/bug60668 +++ /dev/null @@ -1,27 +0,0 @@ - -puts "====================" -puts "BUC60668" -puts "Three boxes must appear on picture" -puts "====================" - -box b 100 0 0 10 10 10 -box b1 10 10 10 -box b2 50 50 50 10 10 10 -box a -10 -10 -10 200 200 200 - -compound b b1 b2 c - -regexp {Mass +: +([-0-9.+eE]+)} [vprops c] full vcomp - -#compound b b1 c -bcommon result c a - -regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full vcomm - -if { $vcomp != $vcomm } { - puts " Faulty : Common is incorrect" -} else { - puts " BUC60668 OK : Common was made properly" -} -set square 1800 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60684 b/tests/bugs/modalg/bug60684 deleted file mode 100755 index 72663b9b6b..0000000000 --- a/tests/bugs/modalg/bug60684 +++ /dev/null @@ -1,12 +0,0 @@ - -puts "=============" -puts "BUC60684" -puts "=============" - -restore [locate_data_file buc60684a.brep] w -puts [checkshape w] - -prism result w 0 0 10 - -set square 148.875 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60703_2 b/tests/bugs/modalg/bug60703_2 deleted file mode 100755 index b2976f4c50..0000000000 --- a/tests/bugs/modalg/bug60703_2 +++ /dev/null @@ -1,31 +0,0 @@ - -puts "========================" -puts "BUC60703" -puts "=================================" -puts "Action with models with CORRECT tolerance" -puts "=================================" -puts "" -############################################ -## Crash during a fuse whilst two plans are tangent. -############################################ - -restore [locate_data_file buc60703c.brep] a -puts [checkshape a] - -restore [locate_data_file buc60703e.brep] b -puts [checkshape b] - - -if [catch {bfuse result a b } catch_result] { - puts "Faulty BUC60703: here is problem with FUSE operation" -} else { - puts "OK BUC60703: function FUSE works ok" - if [catch {checkshape result } catch_result] { - puts "WARNING BUC60703 : Function checkshape gives bad result" - puts " See also OCC438: 919 D3 and D4" - } else { - puts "BUC60703 OK in checkshape" - } -} -set square 236.72 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60703_3 b/tests/bugs/modalg/bug60703_3 deleted file mode 100755 index 1e1578a3f8..0000000000 --- a/tests/bugs/modalg/bug60703_3 +++ /dev/null @@ -1,24 +0,0 @@ - -puts "========================" -puts "BUC60703" -puts "========================" - -restore [locate_data_file buc60703e.brep] a -#maxtolerance a -puts [checkshape a] -restore [locate_data_file buc60703d.brep] b -#maxtolerance b -puts [checkshape b] - -if [catch {bfuse result a b } catch_result] { - puts "Faulty BUC60703: here is problem with FUSE operation" -} else { - puts "OK OCC348: function FUSE works ok" - if [catch {checkshape result} catch_result] { - puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4" - } else { - puts "BUC60703 : here is NOT checking problem" - } -} -set square 371.259 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60703_4 b/tests/bugs/modalg/bug60703_4 deleted file mode 100755 index ec7ad8f415..0000000000 --- a/tests/bugs/modalg/bug60703_4 +++ /dev/null @@ -1,35 +0,0 @@ - -puts "========================" -puts "BUC60703" -puts "========================" -puts "" -#################################### -## Crash during a fuse whilst two plans are tangent. -#################################### - -restore [locate_data_file buc60703d.brep] a -#maxtolerance a -puts [checkshape a] -restore [locate_data_file buc60703f.brep] b -#maxtolerance b -puts [checkshape b] - -if [catch {bfuse result a b } catch_result] { - puts "Faulty BUC60703: here is problem with FUSE operation" -} else { - puts "OK OCC348: function FUSE works ok" - if [catch {checkshape result} catch_result] { - set mistake 1 - } else { - set mistake 0 - } - - if { $mistake != 0} { - puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4" - } else { - puts "BUC60703 : here is NOT checking problem" - } -} -set square 505.797 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug60704 b/tests/bugs/modalg/bug60704 deleted file mode 100755 index 5757e017f8..0000000000 --- a/tests/bugs/modalg/bug60704 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "========================" -puts "BUC60704" -puts "BUC60709" -puts "========================" - -restore [locate_data_file buc60704a.brep] p -puts [checkshape p] -restore [locate_data_file buc60704b.brep] s -puts [checkshape s] - -bfuse result p s - -set square 39.0889 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60714 b/tests/bugs/modalg/bug60714 deleted file mode 100755 index b0d5e443e4..0000000000 --- a/tests/bugs/modalg/bug60714 +++ /dev/null @@ -1,23 +0,0 @@ - -puts "========================" -puts "BUC60714" -puts "========================" - -profile f x 30 y 20 x -30 -explode f w -vertex v1 0 0 0 -vertex v2 0 -10 -10 -edge e v1 v2 - -wire w e -mksweep f_1 -setsweep -FR -addsweep w - -######## -#does'nt work -buildsweep result -C -S - -set square 1979.9 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug60728 b/tests/bugs/modalg/bug60728 deleted file mode 100755 index b844711da5..0000000000 --- a/tests/bugs/modalg/bug60728 +++ /dev/null @@ -1,22 +0,0 @@ - -puts "========================" -puts "BUC60728" -puts "========================" -puts "" -#################################################### -## Infinite loop in section. Section between the two attached faces never finish. -#################################################### - -restore [locate_data_file buc60728a.brep] s1 -restore [locate_data_file buc60728b.brep] s2 -build3d s1 -puts [checkshape s1] -puts [checkshape s2] - -bsection result s1 s2 - -#checksection res -#checkshape res - -set length 238.032 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60776_1 b/tests/bugs/modalg/bug60776_1 deleted file mode 100755 index 275a0c7d84..0000000000 --- a/tests/bugs/modalg/bug60776_1 +++ /dev/null @@ -1,16 +0,0 @@ - -puts "========================" -puts "BUC60776" -puts "========================" - -restore [locate_data_file buc60776a.brep] a -puts [checkshape a] -restore [locate_data_file buc60776b.brep] b -puts [checkshape b] -bfuse result a b - -set square 60771.3 - -set 2dviewer 1 - - diff --git a/tests/bugs/modalg/bug60776_2 b/tests/bugs/modalg/bug60776_2 deleted file mode 100755 index ba3caef1cc..0000000000 --- a/tests/bugs/modalg/bug60776_2 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "========================" -puts "BUC60776" -puts "========================" - -restore [locate_data_file buc60776c.brep] a -puts [checkshape a] -restore [locate_data_file buc60776d.brep] b -puts [checkshape b] -bsection result a b - -set length 111.405 - -set 2dviewer 1 - diff --git a/tests/bugs/modalg/bug60782_1 b/tests/bugs/modalg/bug60782_1 deleted file mode 100755 index b66553a760..0000000000 --- a/tests/bugs/modalg/bug60782_1 +++ /dev/null @@ -1,39 +0,0 @@ -puts "TODO OCC12345 ALL: An exception was caught" -puts "TODO OCC12345 ALL: Exception" -puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly" -puts "TODO OCC12345 ALL: Error : The square of result shape is" - -#INTERFACE IGES -puts "========================" -puts "BUC60782" -puts "CASE 1" -puts "========================" -puts "" -puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). " -puts "" - -restore [locate_data_file buc60782a.brep] a -set che [checkshape a] -if { [regexp {Faulty} $che ] == 1 } { - puts "Faulty BUC60782 (case 1): Source shape is invalid" -} else { - puts "BUC60782 OK (case 1): Sourse shape is correct" -} - -set che [checkshape a rr] -if { [regexp {OK} $che ] != 1} { - puts "Faulty : mistakes are found in SOURCE shape by checkshape command" - puts "Body of the script was not executed" -} else { - puts "Checking of SOURCE shape by checkshape - OK" - if [catch { mkoffset result a 1 10 } catch_result] { - puts "Faulty BUC60782: mkoffset works wrongly" - renamevar a result - } else { - puts "OK BUC60782: offset is created" - tpcompound result - } -} - -set square 0 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60782_3 b/tests/bugs/modalg/bug60782_3 deleted file mode 100755 index 992c8066e8..0000000000 --- a/tests/bugs/modalg/bug60782_3 +++ /dev/null @@ -1,40 +0,0 @@ -puts "TODO OCC12345 ALL: An exception was caught" -puts "TODO OCC12345 ALL: Exception" -puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly" -puts "TODO OCC12345 ALL: Error : The square of result shape is" - - -#INTERFACE IGES -puts "========================" -puts "BUC60782" -puts "CASE 3" -puts "========================" -puts "" -puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). " -puts "" - -restore [locate_data_file buc60782c.brep] a - -set che [checkshape a] -if { [regexp {Faulty} $che ] == 1 } { - puts "Faulty BUC60782 (case 3): Source shape is invalid" -} else { - puts "BUC60782 OK (case 3): Sourse shape is correct" -} - -set che [checkshape a rr] -if { [regexp {OK} $che ] != 1 } { - puts "Faulty : mistakes are found in SOURCE shape by checkshape command" - puts "Body of the script was not executed" -} else { - puts "Checking of SOURCE shape by checkshape - OK" - if [catch { mkoffset result a 1 10 } catch_result] { - puts "Faulty BUC60782: mkoffset works wrongly" - renamevar a result - } else { - puts "OK BUC60782: offset is created" - tpcompound result - } -} -set square 0 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60788_1 b/tests/bugs/modalg/bug60788_1 deleted file mode 100755 index 51f088d17a..0000000000 --- a/tests/bugs/modalg/bug60788_1 +++ /dev/null @@ -1,28 +0,0 @@ - -puts "============" -puts "BUC60788" -puts "case 1" -puts "============" - -#restore Intersection_Shell1_Case1.brep S1 -#restore Intersection_Shell2_Case1.brep S2 - -restore [locate_data_file buc60788a.brep] S1 -puts [checkshape S1] -restore [locate_data_file buc60788b.brep] S2 -puts [checkshape S2] - -bsection result S1 S2 - -set nb_info [nbshapes result] -regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full err -regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1 - -if { $err != 4 && $err1 != 3} { - puts "Faulty : result (res) is incorrect" -} else { - puts "BUC60788 - OK" -} - -set length 750 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60801 b/tests/bugs/modalg/bug60801 deleted file mode 100755 index 2adb282d60..0000000000 --- a/tests/bugs/modalg/bug60801 +++ /dev/null @@ -1,19 +0,0 @@ - -puts "========================" -puts "BUC60801" -puts "========================" - -box b -10 -10 -10 30 40 40 -box a1 -20 0 -20 20 20 100 -box a2 0 20 -20 50 20 100 -box c -20 -20 20 100 100 100 -bcut r1 b a1 -bcut r2 r1 a2 -bcut r3 r2 c -checkshape r3 - -renamevar r3 result - -set square 6400 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug60803 b/tests/bugs/modalg/bug60803 deleted file mode 100755 index d97749af2a..0000000000 --- a/tests/bugs/modalg/bug60803 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "========================" -puts "BUC60803" -puts "========================" - -restore [locate_data_file buc60803a.brep] a -puts [checkshape a] -restore [locate_data_file buc60803b.brep] b -puts [checkshape b] - -bfuse result a b - -set square 1.86064e+07 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug60839 b/tests/bugs/modalg/bug60839 deleted file mode 100755 index a76ba5b787..0000000000 --- a/tests/bugs/modalg/bug60839 +++ /dev/null @@ -1,17 +0,0 @@ - -puts "============" -puts "BUC60839" -puts "============" -puts "" - -restore [locate_data_file BUC60839-1.brep] a -puts [checkshape a] -restore [locate_data_file BUC60839-2.brep] b -puts [checkshape b] - -puts "Starting fuse operation" - -bfuse result a b - -set square 27341.6 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60841 b/tests/bugs/modalg/bug60841 deleted file mode 100755 index a619046d07..0000000000 --- a/tests/bugs/modalg/bug60841 +++ /dev/null @@ -1,14 +0,0 @@ - -puts "========" -puts "BUC60841" -puts "========" - -restore [locate_data_file buc60841a.brep] sh1 -puts [checkshape sh1] -restore [locate_data_file buc60841b.brep] sh2 -puts [checkshape sh2] - -bfuse result sh1 sh2 - -set square 890971 -set 2dviewer 1 diff --git a/tests/bugs/modalg/bug60849 b/tests/bugs/modalg/bug60849 deleted file mode 100755 index c6bc356ab4..0000000000 --- a/tests/bugs/modalg/bug60849 +++ /dev/null @@ -1,18 +0,0 @@ - -puts "============" -puts "BUC60849" -puts "============" -puts "" - -restore [locate_data_file BUC60849.brep] result -puts [checkshape result] - -set bndb [ lindex [bounding result] 3 ] - -if { $bndb > 100.000001 } { - puts "Faulty BUC60849 : Bounding box of spherical surface is created wroughly." -} else { - puts "BUC60849 OK :Bounding box of spherical surface is created properly." -} -set square 125663 -set 3dviewer 2 diff --git a/tests/bugs/modalg/bug60865 b/tests/bugs/modalg/bug60865 deleted file mode 100755 index 00cb07d255..0000000000 --- a/tests/bugs/modalg/bug60865 +++ /dev/null @@ -1,29 +0,0 @@ - -puts "============" -puts "BUC60865" -puts "BUC60864" -puts "============" -puts "" -########################## -## Section gives duplicate edges. -########################## - -restore [locate_data_file BUC60865_sh6.brep] sh -puts [checkshape sh] - -plane pl 1.1 0.99999 1 0 1 0 -mkface f pl -bsection result sh f - - -set nb_info [nbshapes result] -regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed - -if { $ed == 5 } { - puts " BUC60865 : SECTION operation was made properly" -} else { - puts "Faulty BUC60865: SECTION operation was made wrongly" -} -set length 4.5 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug60881 b/tests/bugs/modalg/bug60881 deleted file mode 100755 index 3330cf49e6..0000000000 --- a/tests/bugs/modalg/bug60881 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "============" -puts "BUC60881" -puts "============" -puts "" - -restore [locate_data_file BUC60881.brep] a -explode a -puts [checkshape a_1] -puts [checkshape a_1] - -bfuse result a_1 a_2 - -set square 34069 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60899_1 b/tests/bugs/modalg/bug60899_1 deleted file mode 100755 index 115e9c8a2a..0000000000 --- a/tests/bugs/modalg/bug60899_1 +++ /dev/null @@ -1,48 +0,0 @@ - -puts "============" -puts "BUC60899" -puts "============" -puts "" -##################################################### -## Execution of the script prism_sec.tcl gives exception "NumericError". -##################################################### - -set n 2 -set dx 4 -set sx 1 -set sz 10 -set xc [dval (2*$dx+2*$sx)*$n/2] -set zc -30 -set r [dval $xc*0.9] - -set x 0 -set y -50 -set z 0 -set pol "polyline w $x $y $z" -for {set i 1} {$i <= $n} {incr i} { - set x [dval $x+$dx] - set pol "$pol $x $y $z" - set x [dval $x+$sx] - set z [dval $z+$sz] - set pol "$pol $x $y $z" - set x [dval $x+$dx] - set pol "$pol $x $y $z" - set x [dval $x+$sx] - set z [dval $z-$sz] - set pol "$pol $x $y $z" -} - -eval $pol -circle c $xc 0 $zc $r -mkedge c c - -prism cyl c 0 0 -$zc*2 inf -prism crg w 0 -$y*2 0 inf - -bsection result crg cyl - -set length 15.1392 -set 2dviewer 0 - -# checksection res -# checkshape res diff --git a/tests/bugs/modalg/bug60899_2 b/tests/bugs/modalg/bug60899_2 deleted file mode 100755 index 4d79361333..0000000000 --- a/tests/bugs/modalg/bug60899_2 +++ /dev/null @@ -1,62 +0,0 @@ - -puts "============" -puts "BUC60899" -puts "============" -puts "" -##################################################### -## Execution of the script prism_sec.tcl gives exception "NumericError". -##################################################### - -set n 2 -set dx 4 -set sx 1 -set sz 10 -set xc [dval (2*$dx+2*$sx)*$n/2] -set zc -30 -set r [dval $xc*0.9] - -set x 0 -set y -50 -set z 0 -set pol "polyline w $x $y $z" -for {set i 1} {$i <= $n} {incr i} { - set x [dval $x+$dx] - set pol "$pol $x $y $z" - set x [dval $x+$sx] - set z [dval $z+$sz] - set pol "$pol $x $y $z" - set x [dval $x+$dx] - set pol "$pol $x $y $z" - set x [dval $x+$sx] - set z [dval $z-$sz] - set pol "$pol $x $y $z" -} - -eval $pol -polyline c $xc-$r -$r*2 $zc $xc+$r -$r*2 $zc $xc+$r $r*2 $zc $xc-$r $r*2 $zc $xc-$r -$r*2 $zc - -prism cyl c 0 0 -$zc*2 inf -prism crg w 0 -$y*2 0 inf -bsection result crg cyl - -#checksection res -#checkshape res - -set nb_info [nbshapes result] -regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full edgeness - - - #set fullness [ nbshapes res ] - #puts "$fullness" - #set qq [ lindex $fullness 0 ] - #set edgeness [ lindex $fullness 10 ] - # puts "$edgeness" - -if { $edgeness == 1 } { - puts "Shape is empty, it is Faulty result" -} else { - puts "Shape is not empty, OK" -} - -set length 162.299 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60901 b/tests/bugs/modalg/bug60901 deleted file mode 100755 index 7c9395f234..0000000000 --- a/tests/bugs/modalg/bug60901 +++ /dev/null @@ -1,62 +0,0 @@ - -puts "============" -puts "BUC60901" -puts "============" -puts "" -################################################################ -## We should get the edges forming a closed intersection line but we see breaks. -################################################################ - -set n 3 -set dx 1 -set sx 20 -set sz 10 - -set xc [dval (2*$dx+2*$sx)*$n/2] -set yc 0 -set zc [dval $sz*10] -set nxc 0.5 -set nyc -0.3 -set nzc 1 -set r [dval $xc*0.9] - -set x 0 -set y [dval -$r*1.2] -set z 0 -set pol "polyline w $x $y $z" -for {set i 1} {$i <= $n} {incr i} { - set x [dval $x+$dx] - set pol "$pol $x $y $z" - set x [dval $x+$sx] - set z [dval $z+$sz] - set pol "$pol $x $y $z" - set x [dval $x+$dx] - set pol "$pol $x $y $z" - set x [dval $x+$sx] - set z [dval $z-$sz] - set pol "$pol $x $y $z" -} - -eval $pol -circle c $xc $yc $zc $nxc $nyc $nzc $r -mkedge c c - -set lcyl [dval -$zc*2] -set lcrg [dval -$y*2] - -prism cyl c 0 0 $lcyl -prism crg w 0 $lcrg 0 -bsection result crg cyl - -set nb_info [nbshapes result] -regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices -regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges - -if { $nb_vertices != $nb_edges } { - puts "Section is opened: Faulty shape" -} else { - puts "Section is closed: OK" -} - -set length 350.404 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60905 b/tests/bugs/modalg/bug60905 deleted file mode 100755 index 50df637f40..0000000000 --- a/tests/bugs/modalg/bug60905 +++ /dev/null @@ -1,22 +0,0 @@ - -puts "============" -puts "BUC60905" -puts "============" -puts "" -######################################################### -## shape contains open shells if sewing would be made with big tolerance invalid shape -## will be produced, and visualization crashes. -######################################################### - -restore [locate_data_file BUC60905.brep] a -# checkshape a - -sewing result 10 a - -vinit -vdisplay result - -# checkshape res - -set square 270868 -set 3dviewer 0 diff --git a/tests/bugs/modalg/bug60909 b/tests/bugs/modalg/bug60909 deleted file mode 100755 index afbcfe6e23..0000000000 --- a/tests/bugs/modalg/bug60909 +++ /dev/null @@ -1,16 +0,0 @@ - -puts "============" -puts "BUC60909" -puts "============" -puts "" - -box boite 200 200 200 -nexplode boite F -profile cont S boite_4 F 0 50 X 50 Y 100 X -50 -featrevol boite cont boite_4 0 0 200 0 -1 0 1 1 -featperform revol result boite_1 - -set square 265343 -set 2dviewer 0 - - diff --git a/tests/bugs/modalg/bug60927 b/tests/bugs/modalg/bug60927 deleted file mode 100755 index abf92dbfbf..0000000000 --- a/tests/bugs/modalg/bug60927 +++ /dev/null @@ -1,16 +0,0 @@ - -puts "============" -puts "BUC60927" -puts "============" - -restore [locate_data_file BUC60927.brep] a - -explode a -puts [checkshape a_1] -puts [checkshape a_2] - -bcut result a_2 a_1 - -set square 94795.3 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug60930 b/tests/bugs/modalg/bug60930 deleted file mode 100755 index b25473f2ed..0000000000 --- a/tests/bugs/modalg/bug60930 +++ /dev/null @@ -1,21 +0,0 @@ - -puts "============" -puts "BUC60930" -puts "============" -puts "" -###################################### -## Exception ConstructionError in LocOpe_SplitShape. -###################################### - -restore [locate_data_file BUC60930_splitshape.brep] c -explode c -puts [checkshape c_1] -puts [checkshape c_2] - -renamevar c_1 f -renamevar c_2 e - -splitshape result f f e - -set square 13.3392 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60934 b/tests/bugs/modalg/bug60934 deleted file mode 100755 index c0ced12eef..0000000000 --- a/tests/bugs/modalg/bug60934 +++ /dev/null @@ -1,13 +0,0 @@ - -puts "============" -puts "BUC60934" -puts "============" - -restore [locate_data_file BUC60934.brep] a -puts [checkshape a] - -mkplane result a - -set square 40303.1 -set 2dviewer 0 - diff --git a/tests/bugs/modalg/bug60942 b/tests/bugs/modalg/bug60942 deleted file mode 100755 index ad645da4d5..0000000000 --- a/tests/bugs/modalg/bug60942 +++ /dev/null @@ -1,35 +0,0 @@ - -puts "============" -puts "BUC60942" -puts "============" -############################################################### -## SplitShape algorithm modifies original shape (increases vertex tolerance of a plitting edge). -############################################################### - -restore [locate_data_file BUC60942_splitshape.brep] c -explode c -puts [checkshape c_1] -puts [checkshape c_2] - -renamevar c_1 f -renamevar c_2 w - -set tol1 [maxtolerance w] -regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxEdgeTol1 -regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full MaxVertexTol1 - -splitshape result f f w - -set tol2 [maxtolerance w] -regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxEdgeTol2 -regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full MaxVertexTol2 - - -if { $MaxEdgeTol1 < $MaxEdgeTol2 || $MaxVertexTol1 < $MaxVertexTol1 } { - puts "Faulty BUC60942: max tolerance of the input wire has been increased by about 10 times." -} else { - puts "BUC60942 OK: Tolerance of shape is correct" -} - -set square 37.7032 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug60971 b/tests/bugs/modalg/bug60971 deleted file mode 100755 index fc2502f64d..0000000000 --- a/tests/bugs/modalg/bug60971 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "========" -puts "BUC60971" -puts "CASE 2" -puts "========" -puts "" - -restore [locate_data_file buc60971.brep] a -explode a -puts [checkshape a_1] -puts [checkshape a_2] - -bfuse result a_2 a_3 -set square 93698.1 -set 2dviewer 0 diff --git a/tests/bugs/modalg/bug62369 b/tests/bugs/modalg/bug62369 deleted file mode 100755 index af4de49606..0000000000 --- a/tests/bugs/modalg/bug62369 +++ /dev/null @@ -1,20 +0,0 @@ - -puts "===========" -puts "FRA62369" -puts "===========" - -restore [locate_data_file fra62369a.brep] a -puts [checkshape a] - -compound result - -set i 1 -repeat 100 { - plane p_$i 0 0 200+$i - mkface f_$i p_$i - bsection s_$i a f_$i -2d -a - compound s_$i result result - incr i -} -set length 3961.04 -set 2dviewer 0 diff --git a/tests/bugs/modalg/fra62369 b/tests/bugs/modalg/fra62369 new file mode 100644 index 0000000000..af4de49606 --- /dev/null +++ b/tests/bugs/modalg/fra62369 @@ -0,0 +1,20 @@ + +puts "===========" +puts "FRA62369" +puts "===========" + +restore [locate_data_file fra62369a.brep] a +puts [checkshape a] + +compound result + +set i 1 +repeat 100 { + plane p_$i 0 0 200+$i + mkface f_$i p_$i + bsection s_$i a f_$i -2d -a + compound s_$i result result + incr i +} +set length 3961.04 +set 2dviewer 0 diff --git a/tests/bugs/modalg/pro16983 b/tests/bugs/modalg/pro16983 new file mode 100644 index 0000000000..41ca3bf347 --- /dev/null +++ b/tests/bugs/modalg/pro16983 @@ -0,0 +1,17 @@ + +puts "============" +puts "PRO16983" +puts "============" + +restore [locate_data_file pro16983a.brep] B +puts [checkshape B] +plane p 0 0 0 1 0 0 +vertex v1 0 90.16396 252.4591 +vertex v2 0 252.459 -9.835989 +edge e v2 v1 +wire w e +featlf B w p -5 0 0 5 0 0 1 1 +featperform lf result + +set square 796476 +set 2dviewer 0 diff --git a/tests/bugs/modalg/pro18892 b/tests/bugs/modalg/pro18892 new file mode 100644 index 0000000000..89cbce0674 --- /dev/null +++ b/tests/bugs/modalg/pro18892 @@ -0,0 +1,35 @@ +puts "TODO OCC12345 ALL: Faulty : Result is BAD. Distance is more than MaxTolerance" +puts "TODO OCC12345 ALL: Error : The length of result shape is" + +puts "==========" +puts "PRO18892" +puts "==========" +# Version de test: K4O, PATCH LEVEL: +# GEOMETRY-M4-6A : 3 +# GEOMLITE-M4-6A : 1 +# TOPOLOGY-M4-6A : 2 + +restore [locate_data_file pro18892.rle] a +puts [checkshape a] + +explode a +bsection result a_1 a_2 -2d -a +explode result + +mkcurve c result_1 +cvalue c 1 X Y Z +vertex v X Y Z +explode a e + +distmini d v a_8 + +set tol [ maxtolerance a_8 ] +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxEdgeTolerance +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxVertexTolerance +regexp {([-0-9.+eE]+)} [dump d_val] full d + +if { [expr $d > $MaxEdgeTolerance] || [expr $d > $MaxVertexTolerance] } { + puts "Faulty : Result is BAD. Distance is more than MaxTolerance" +} + +set length 0 diff --git a/tests/bugs/modalg/pro19424 b/tests/bugs/modalg/pro19424 new file mode 100644 index 0000000000..d41052bf38 --- /dev/null +++ b/tests/bugs/modalg/pro19424 @@ -0,0 +1,19 @@ + +puts "==========" +puts "PRO19424" +puts "==========" + +restore [locate_data_file pro19424a.brep] b +puts [checkshape b] +restore [locate_data_file pro19424b.brep] p +puts [checkshape p] + +if [catch {evolved result b p o } catch_result] { + puts "Faulty PRO19424 : function EVOLVED works wrongly" +} else { + puts "PRO19424 OK: function EVOLVED works properly" +} + +set square 246.506 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/pro19626 b/tests/bugs/modalg/pro19626 new file mode 100644 index 0000000000..8313dc6a26 --- /dev/null +++ b/tests/bugs/modalg/pro19626 @@ -0,0 +1,22 @@ + +puts "============" +puts "PRO19626" +puts "============" + +restore [locate_data_file pro19626a.brep] a +puts [checkshape a] +restore [locate_data_file pro19626b.brep] b +puts [checkshape b] + +bsection result a b +regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num +if { $num != 2 } { + puts " Faulty PRO19626: Result shape is INcorrect !!! " +} else { + puts "PRO19626 OK : Result shape is CORRECT !!! " +} + +set length 174.597 +set 2dviewer 0 + + diff --git a/tests/bugs/modalg/pro19653 b/tests/bugs/modalg/pro19653 new file mode 100644 index 0000000000..f0329c1a62 --- /dev/null +++ b/tests/bugs/modalg/pro19653 @@ -0,0 +1,29 @@ +puts "TODO OCC12345 ALL: Faulty : TEST FAILED" +puts "TODO OCC12345 ALL: Error : The length of result shape is" + +puts "============" +puts "PRO19653" +puts "BREPALGO_BOOLEANOPERATION does not return result." +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +restore [locate_data_file pro19653a.brep] a +puts [checkshape a] +restore [locate_data_file pro19653b.brep] b +puts [checkshape b] +bsection result a b + +explode result e +checkshape result_1 +explode a e +regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full ll_1 +regexp {Mass +: +([-0-9.+eE]+)} [lprops a_4] full ll_2 +if { $ll_1 != $ll_2 } { + puts "Faulty : TEST FAILED" +} else { + puts "PRO19653 OK : BREPALGO_BOOLEANOPERATION returns result" +} + +set length 0 +set 2dviewer 0 diff --git a/tests/bugs/moddata/buc60637 b/tests/bugs/moddata/buc60637 new file mode 100644 index 0000000000..0beaab699c --- /dev/null +++ b/tests/bugs/moddata/buc60637 @@ -0,0 +1,11 @@ + +puts "========================" +puts "BUC60637" +puts "========================" + +restore [locate_data_file buc60637a.brep] result +fsameparameter result + +set check_square 1 +set square 144.866 +set 2dviewer 0 diff --git a/tests/bugs/moddata/buc60652_1 b/tests/bugs/moddata/buc60652_1 new file mode 100644 index 0000000000..b19c919967 --- /dev/null +++ b/tests/bugs/moddata/buc60652_1 @@ -0,0 +1,15 @@ + +puts "==========" +puts "BUC60652" +puts "Case 1" +puts "==========" + +pload QAcommands + +restore [locate_data_file buc60652a.brep] result +puts [checkshape result] +BUC60652 result + +set check_square 1 +set square 19614.8 +set 2dviewer 0 diff --git a/tests/bugs/moddata/buc60652_2 b/tests/bugs/moddata/buc60652_2 new file mode 100644 index 0000000000..7f3604245e --- /dev/null +++ b/tests/bugs/moddata/buc60652_2 @@ -0,0 +1,16 @@ + +puts "==========" +puts "BUC60652" +puts "Case 2" +puts "==========" + +pload QAcommands + +restore [locate_data_file buc60652b.brep] result +puts [checkshape result] +BUC60652 result + +set check_square 1 +set square 29961 +set 2dviewer 0 + diff --git a/tests/bugs/moddata/buc60652_3 b/tests/bugs/moddata/buc60652_3 new file mode 100644 index 0000000000..0591ce1bdb --- /dev/null +++ b/tests/bugs/moddata/buc60652_3 @@ -0,0 +1,15 @@ + +puts "===========" +puts "BUC60652" +puts "Case 3" +puts "===========" + +pload QAcommands + +restore [locate_data_file buc60652c.brep] result +puts [checkshape result] +BUC60652 result + +set check_square 1 +set square 77815.1 +set 2dviewer 0 diff --git a/tests/bugs/moddata/buc60652_4 b/tests/bugs/moddata/buc60652_4 new file mode 100644 index 0000000000..79a20abe74 --- /dev/null +++ b/tests/bugs/moddata/buc60652_4 @@ -0,0 +1,15 @@ + +puts "==========" +puts "BUC60652" +puts "Case 4" +puts "==========" + +pload QAcommands + +restore [locate_data_file shading_104.brep] result +puts [checkshape result] +BUC60652 result + +set check_square 1 +set square 119134 +set 2dviewer 0 diff --git a/tests/bugs/moddata/buc60667 b/tests/bugs/moddata/buc60667 new file mode 100644 index 0000000000..663c9b637d --- /dev/null +++ b/tests/bugs/moddata/buc60667 @@ -0,0 +1,12 @@ + +puts "===================" +puts "BUC60667" +puts "===================" + +restore [locate_data_file buc60667a.brep] result +fsameparameter result +puts [checkshape result] + +set 2dviewer 0 + + diff --git a/tests/bugs/moddata/buc60707 b/tests/bugs/moddata/buc60707 new file mode 100644 index 0000000000..7a9f84dc5e --- /dev/null +++ b/tests/bugs/moddata/buc60707 @@ -0,0 +1,25 @@ + +puts "===========" +puts "BUC60707" +puts "===========" +puts "" +################################################# +## Fillets created in CasCade version 3 do not display as shaded surfaces. +################################################# +restore [locate_data_file buc60707a.brep] result +puts [checkshape result] + +tclean result +incmesh result .1 +triangles result +set info [trinfo result] +regexp { +([-0-9.+eE]+) +triangles} $info full Maxtriangl + +if { $Maxtriangl < 1 } { + puts "Error : inside mesh for shading wasn't build" +} + +set 3dviewer 0 + + + diff --git a/tests/bugs/moddata/buc60729 b/tests/bugs/moddata/buc60729 new file mode 100644 index 0000000000..19426926c4 --- /dev/null +++ b/tests/bugs/moddata/buc60729 @@ -0,0 +1,14 @@ + +puts "========================" +puts "BUC60729" +puts "========================" + +pload QAcommands + +if [catch {BUC60729} ] { + puts "BUC60729: Error" +} else { + puts "BUC60729: OK" +} + +set 3dviewer 1 diff --git a/tests/bugs/moddata/buc60755 b/tests/bugs/moddata/buc60755 new file mode 100644 index 0000000000..758a13f03a --- /dev/null +++ b/tests/bugs/moddata/buc60755 @@ -0,0 +1,23 @@ +puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" + +puts "========================" +puts "BUC60755" +puts "========================" + +restore [locate_data_file buc60755a.brep] a +puts [checkshape a] + +######################################### +# "tcopy" command of a valid shape give a no-valid shape. +######################################### + +tcopy a result +puts [checkshape result] + +set check_square 1 +set square 623.832 +set 2dviewer 0 + + + + diff --git a/tests/bugs/moddata/buc60769 b/tests/bugs/moddata/buc60769 new file mode 100644 index 0000000000..161d8810ec --- /dev/null +++ b/tests/bugs/moddata/buc60769 @@ -0,0 +1,11 @@ + +puts "=============" +puts "BUC60769" +puts "=============" + +restore [locate_data_file buc60769a.brep] result +puts [checkshape result] + +set 2dviewer 0 + + diff --git a/tests/bugs/moddata/buc60825 b/tests/bugs/moddata/buc60825 new file mode 100644 index 0000000000..0f28d3c67a --- /dev/null +++ b/tests/bugs/moddata/buc60825 @@ -0,0 +1,20 @@ +puts "========================" +puts "BUC60825" +puts "========================" + +pload QAcommands + +line aLine 0 0 0 0 0 1 +mkedge aEdge1 aLine +restore [locate_data_file buc60825.brep] aEdge2 +puts [checkshape aEdge2] + +distmini d aEdge1 aEdge2 +regexp {NB RESULTS +: +([-0-9.+eE]+)} [BUC60825 aEdge1 aEdge2] full ext +if { $ext != 0 } { + puts "Error : The extrema has not been calculated." +} + + + + diff --git a/tests/bugs/moddata/buc60828 b/tests/bugs/moddata/buc60828 new file mode 100644 index 0000000000..c7e74d203b --- /dev/null +++ b/tests/bugs/moddata/buc60828 @@ -0,0 +1,11 @@ + +puts "========" +puts "BUC60828" +puts "========" +puts "" + +catch {BUC60828} + + + + diff --git a/tests/bugs/moddata/buc60842 b/tests/bugs/moddata/buc60842 new file mode 100644 index 0000000000..d8abb20b53 --- /dev/null +++ b/tests/bugs/moddata/buc60842 @@ -0,0 +1,16 @@ + +puts "========" +puts "BUC60842" +puts "========" + +pload QAcommands +vinit + +if [catch {BUC60842} catch_result] { + puts "Faulty BUC60842" +} else { + puts "BUC60842 OK" +} + +set 3dviewer 1 + diff --git a/tests/bugs/moddata/buc60848 b/tests/bugs/moddata/buc60848 new file mode 100644 index 0000000000..d2e73080e6 --- /dev/null +++ b/tests/bugs/moddata/buc60848 @@ -0,0 +1,45 @@ + +puts "============" +puts "BUC60848" +puts "============" +puts "" + +pload QAcommands + +restore [locate_data_file BUC60848.brep] a +puts [checkshape a] + +tcopy a res + +set Flag 0 + +set Res [ catch { BUC60848 a } ] +if { $Res != 0 } { + invert a + set Flag 1 + puts "" +} + +if { $Flag == 1 } { + set Res [ catch { BUC60848 a } ] + if { $Res != 0 } { + set Flag 2 + } + puts "" +} + +if { $Flag == 2 } { + puts "TEST FINISHED. RESULT IS BAD. Faulty" + puts "" +} + +if { $Flag == 1 } { + puts "TEST FINISHED. RESULT IS OK. SHAPE HAS BEEN INVERTED." + puts "" +} + +if { $Flag == 0 } { + puts "TEST FINISHED. RESULT IS OK." + puts "" +} + diff --git a/tests/bugs/moddata/buc60852 b/tests/bugs/moddata/buc60852 new file mode 100644 index 0000000000..c51594f7ef --- /dev/null +++ b/tests/bugs/moddata/buc60852 @@ -0,0 +1,68 @@ + +puts "========" +puts "BUC60852" +puts "BUC60923" +puts "========" + +pload QAcommands + +set bndbox_X1 0 +set bndbox_Y1 0 +set bndbox_Z1 0 +set bndbox_X2 30 +set bndbox_Y2 10 +set bndbox_Z2 20 + +set point_1_1_X -20 +set point_1_1_Y -5 +set point_1_1_Z 10 +set point_1_2_X 50 +set point_1_2_Y 15 +set point_1_2_Z 10 + +vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z +vertex vertex_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z + +edge edge_1 vertex_1_1 vertex_1_2 + +puts "" + +set point_2_1_X -20 +set point_2_1_Y -10 +set point_2_1_Z 10 +set point_2_2_X 50 +set point_2_2_Y -10 +set point_2_2_Z 10 + +vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z +vertex vertex_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z + +edge edge_2 vertex_2_1 vertex_2_2 + +puts "" + +box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2 + + +line line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z [ expr { $point_1_1_X - $point_1_2_X } ] [ expr { $point_1_1_Y - $point_1_2_Y } ] [ expr { $point_1_1_Z - $point_1_2_Z } ] + +line line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z [ expr { $point_2_1_X - $point_2_2_X } ] [ expr { $point_2_1_Y - $point_2_2_Y } ] [ expr { $point_2_1_Z - $point_2_2_Z } ] + +puts "" + +set result1 [BUC60852 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2] +if {${result1} != "Line that lies on edge intersects the box\n"} { + puts "BUC60852: Error; (case 1)" +} else { + puts "BUC60852: OK; (case 1)" +} + +puts "" + +set result2 [BUC60852 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2] +if {${result2} != "Line that lies on edge does not intersect the box\n"} { + puts "BUC60852: Error; (case 2)" +} else { + puts "BUC60852: OK; (case 2)" +} + diff --git a/tests/bugs/moddata/buc60854 b/tests/bugs/moddata/buc60854 new file mode 100644 index 0000000000..8a3cf412c0 --- /dev/null +++ b/tests/bugs/moddata/buc60854 @@ -0,0 +1,43 @@ +puts "TODO OCC12345 ALL: BUC60854: Error" + +puts "========" +puts "BUC60854" +puts "========" + +pload QAcommands + +plane test_plane +mkface test_face test_plane 0 1 0 1 + +vertex test_vertex_1 0 0.5 0 +vertex test_vertex_2 1 0.5 0 +edge test_edge test_vertex_1 test_vertex_2 + +splitshape test_shape test_face test_face test_edge + +explode test_shape f + +renamevar test_shape_1 test_face + +vertex test_vertex_3 0.2 0.5 0 +vertex test_vertex_4 0.8 0.5 0 +edge test_edge_1 test_vertex_3 test_vertex_4 + +vertex test_vertex_5 0 1 0 +edge test_edge_2 test_vertex_5 test_vertex_3 + +vertex test_vertex_6 1 1 0 +edge test_edge_3 test_vertex_4 test_vertex_6 + +BUC60854 result test_shape test_face test_edge_2 test_edge_3 @ test_edge test_edge_1 + +erase test_plane + +regexp {FACE +: +([-0-9.+eE]+)} [numshapes result] full FACE_num + +if {${FACE_num} != 3} { + puts "BUC60854: Error" +} + +set 2dviewer 0 + diff --git a/tests/bugs/moddata/buc60868 b/tests/bugs/moddata/buc60868 new file mode 100644 index 0000000000..9e568889f1 --- /dev/null +++ b/tests/bugs/moddata/buc60868 @@ -0,0 +1,21 @@ + +puts "========" +puts "BUC60868" +puts "========" +puts "" + +pload QAcommands + +restore [locate_data_file buc60868.brep] sh +puts [checkshape sh] + +BUC60868 result sh +puts [checkshape result] + +set len [llength [explode result w]] +if { $len != 3 } { + puts "Error : the number of curves is $len, but it should be 3." +} + +set 2dviewer 0 + diff --git a/tests/bugs/moddata/buc60870 b/tests/bugs/moddata/buc60870 new file mode 100644 index 0000000000..8bc322b9e0 --- /dev/null +++ b/tests/bugs/moddata/buc60870 @@ -0,0 +1,35 @@ + +puts "========" +puts "BUC60870" +puts "========" + +pload QAcommands + +vertex vertex_1 0 0 0 +vertex vertex_2 0 1 0 +vertex vertex_3 0 0.3 1 + +edge edge_1 vertex_1 vertex_2 + +set result [BUC60870 test_result edge_1 vertex_3 2.0] + +if {[llength ${result}] < 4} { + puts "BUC60870: Error; must be 3 solutions" +} else { + set MinimumDistance [dval test_result_val] + set TheorMinimumDistance 1.0 + set percent_max 1.0 + set percent [expr abs(${MinimumDistance} - ${TheorMinimumDistance}) / ${TheorMinimumDistance} * 100.] + if {${percent} > ${percent_max}} { + puts "MinimumDistance=${MinimumDistance}" + puts "TheorMinimumDistance=${TheorMinimumDistance}" + puts "percent=${percent}" + puts "percent_max=${percent_max}" + puts "BUC60870: Error; bad value of minimum distance" + } else { + puts "BUC60870: OK" + } +} + +set 2dviewer 0 + diff --git a/tests/bugs/moddata/buc60889 b/tests/bugs/moddata/buc60889 new file mode 100644 index 0000000000..e7ed39f00f --- /dev/null +++ b/tests/bugs/moddata/buc60889 @@ -0,0 +1,93 @@ + +puts "========" +puts "BUC60889" +puts "BUC60947" +puts "========" + +pload QAcommands + +set bndbox_X1 0 +set bndbox_Y1 0 +set bndbox_Z1 0 +set bndbox_X2 30 +set bndbox_Y2 10 +set bndbox_Z2 20 + +set point_1_1_X -30 +set point_1_1_Y -10 +set point_1_1_Z 5 +set point_1_2_X -30 +set point_1_2_Y -10 +set point_1_2_Z 15 + +set point_1_3_X -15 +set point_1_3_Y -5 +set point_1_3_Z 5 + +set dx_1 [ expr { $point_1_3_X - $point_1_1_X } ] +set dy_1 [ expr { $point_1_3_Y - $point_1_1_Y } ] +set dz_1 [ expr { $point_1_3_Z - $point_1_1_Z } ] + +point point_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z +point point_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z +polyline p_line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $point_1_2_X $point_1_2_Y $point_1_2_Z +vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z +vertex vertex_1_2 $point_1_3_X $point_1_3_Y $point_1_3_Z +edge edge_1 vertex_1_1 vertex_1_2 + +puts "" + +set point_2_1_X 30 +set point_2_1_Y 10 +set point_2_1_Z -5 +set point_2_2_X 30 +set point_2_2_Y 10 +set point_2_2_Z -15 + +set point_2_3_X 0 +set point_2_3_Y 10 +set point_2_3_Z -5 + +set dx_2 [ expr { $point_2_3_X - $point_2_1_X } ] +set dy_2 [ expr { $point_2_3_Y - $point_2_1_Y } ] +set dz_2 [ expr { $point_2_3_Z - $point_2_1_Z } ] + +point point_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z +point point_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z +polyline p_line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z $point_2_2_X $point_2_2_Y $point_2_2_Z +vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z +vertex vertex_2_2 $point_2_3_X $point_2_3_Y $point_2_3_Z +edge edge_2 vertex_2_1 vertex_2_2 + +puts "" + +box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2 + + +line line_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $dx_1 $dy_1 $dz_1 +line line_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z $dx_1 $dy_1 $dz_1 + +line line_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z $dx_2 $dy_2 $dz_2 +line line_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z $dx_2 $dy_2 $dz_2 + +puts "" + +set result1 [BUC60889 point_1_1 point_1_2 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2] + +if {${result1} != "The band intersects the box\n"} { + puts "BUC60889: Error; (case 1)" +} else { + puts "BUC60889: OK; (case 1)" +} + +puts "" + +set result2 [BUC60889 point_2_1 point_2_2 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2] + +if {${result2} != "The band lies out of the box\n"} { + puts "BUC60889: Error; (case 2)" +} else { + puts "BUC60889: OK; (case 2)" +} + + diff --git a/tests/bugs/moddata/buc60895 b/tests/bugs/moddata/buc60895 new file mode 100644 index 0000000000..1860d0ab52 --- /dev/null +++ b/tests/bugs/moddata/buc60895 @@ -0,0 +1,18 @@ + +puts "============" +puts "BUC60895" +puts "============" +puts "" +############################################################## +##If give command "sameparameter edge" on attached edge in the DRAW this command hang. +############################################################## + +restore [locate_data_file BUC60895.brep] result + +fsameparameter result +puts [checkshape result] + +set check_square 1 +set length 12.6012 +set 2dviewer 0 + diff --git a/tests/bugs/moddata/buc60897 b/tests/bugs/moddata/buc60897 new file mode 100644 index 0000000000..e26a4ec292 --- /dev/null +++ b/tests/bugs/moddata/buc60897 @@ -0,0 +1,72 @@ +puts "========" +puts "BUC60897" +puts "========" + +pload QAcommands + +if [catch { set result [BUC60897] } ] { + puts "BUC60897: Error; (case 1)" +} else { + set len [llength ${result}] + if {${len} < 21} { + puts "length = ${len}" + puts "BUC60897: Error; (case 2)" + } else { + set circle_X [lindex ${result} 3] + set circle_Y [lindex ${result} 5] + set circle_R [lindex ${result} 7] + set tangency1_X [lindex ${result} 11] + set tangency1_Y [lindex ${result} 13] + set tangency2_X [lindex ${result} 17] + set tangency2_Y [lindex ${result} 19] + + set x1 [expr abs(${tangency1_X} - ${circle_X})] + set y1 [expr abs(${tangency1_Y} - ${circle_Y})] + set R1 [expr sqrt(${x1} * ${x1} + ${y1} * ${y1})] + + set x2 [expr abs(${tangency2_X} - ${circle_X})] + set y2 [expr abs(${tangency2_Y} - ${circle_Y})] + set R2 [expr sqrt(${x2} * ${x2} + ${y2} * ${y2})] + + set maxdelta 1.0 + set delta_R1 [expr abs(${R1} - ${circle_R}) / ${circle_R} * 100.] + set delta_R2 [expr abs(${R2} - ${circle_R}) / ${circle_R} * 100.] + + if {${delta_R1} > ${maxdelta}} { + puts "circle_X = ${circle_X}" + puts "circle_Y = ${circle_Y}" + puts "circle_R = ${circle_R}" + puts "tangency1_X = ${tangency1_X}" + puts "tangency1_Y = ${tangency1_Y}" + puts "x1 = ${x1}" + puts "y1 = ${y1}" + puts "R1 = ${R1}" + puts "delta_R1 = ${delta_R1}" + puts "maxdelta = ${maxdelta}" + puts "BUC60897: Error; (case 3)" + } else { + puts "BUC60897: OK; (case 1)" + } + + if {${delta_R2} > ${maxdelta}} { + puts "circle_X = ${circle_X}" + puts "circle_Y = ${circle_Y}" + puts "circle_R = ${circle_R}" + puts "tangency2_X = ${tangency2_X}" + puts "tangency2_Y = ${tangency2_Y}" + puts "x2 = ${x2}" + puts "y2 = ${y2}" + puts "R2 = ${R2}" + puts "delta_R2 = ${delta_R2}" + puts "maxdelta = ${maxdelta}" + puts "BUC60897: Error; (case 4)" + } else { + puts "BUC60897: OK; (case 2)" + } + + } +} + +set 3dviewer 0 + + diff --git a/tests/bugs/moddata/buc60911 b/tests/bugs/moddata/buc60911 new file mode 100644 index 0000000000..38a262fcc0 --- /dev/null +++ b/tests/bugs/moddata/buc60911 @@ -0,0 +1,15 @@ + +puts "============" +puts "BUC60911" +puts "============" + +##################################################### +## Bad value of the volume of the shape. +##################################################### + +restore [locate_data_file BUC60911.brep] result +invert result + +set check_square 1 +set square 16353.8 +set 2dviewer 0 diff --git a/tests/bugs/moddata/buc60924 b/tests/bugs/moddata/buc60924 new file mode 100644 index 0000000000..f32c5841de --- /dev/null +++ b/tests/bugs/moddata/buc60924 @@ -0,0 +1,24 @@ + +puts "========" +puts "BUC60924" +puts "========" +puts "" + +################################################## +## ShapeAnalysisStd_Curve::IsPlanar works incorrectly with a conic curve. +################################################## + +pload QAcommands + +ellipse el 0 0 1 20 10 + +set result1 [BUC60924 el 0 0 1] + +if {${result1} != "The curve is planar !\n"} { + puts "BUC60924: Error" +} else { + puts "BUC60924: OK" +} + +set 3dviewer 1 + diff --git a/tests/bugs/moddata/buc60955 b/tests/bugs/moddata/buc60955 new file mode 100644 index 0000000000..022fd2e451 --- /dev/null +++ b/tests/bugs/moddata/buc60955 @@ -0,0 +1,15 @@ + +puts "===========" +puts " BUC60955" +puts "===========" + +puts "Restoring face from file" +restore [locate_data_file buc60955.brep] result +puts [checkshape result] + +build3d result + +set check_square 1 +set square 8464.65 +set 2dviewer 0 + diff --git a/tests/bugs/moddata/buc60960 b/tests/bugs/moddata/buc60960 new file mode 100644 index 0000000000..77b6cfe389 --- /dev/null +++ b/tests/bugs/moddata/buc60960 @@ -0,0 +1,30 @@ + +puts "===========" +puts " BUC60960" +puts "===========" + +proc do_offsets {i} { + global c c1 c2 c3 c4 c5 + + set poles {{0 0 1} {0 1 1} {1 1 1} {1 0 1} {2 0 1} {2 -1 1} {1 -1 1} \ + {1 -2 1} {0 -2 1} {0 -1 1} {-1 -1 1} {-1 0 1}} + set knots {{0 1} {1 1} {2 1} {3 1} {4 1} {5 1} {6 1} {7 1} {8 1} {9 1} \ + {10 1} {11 1} {12 1}} + eval 2dpbsplinecurve c 3 [llength $knots] [join $knots] [join $poles] + + + if [catch {offset c1 c 0.1}] {puts "while creating c1 at step $i"} + if [catch {offset c2 c 0.2}] {puts "while creating c2 at step $i"} + if [catch {offset c3 c 0.3}] {puts "while creating c3 at step $i"} + if [catch {offset c4 c 0.4}] {puts "while creating c4 at step $i"} + if [catch {offset c5 c 0.5}] {puts "while creating c5 at step $i"} + if [catch {offset c6 c 0.6}] {puts "while creating c6 at step $i"} + if [catch {offset c7 c 0.7}] {puts "while creating c7 at step $i"} + if [catch {offset c8 c 0.8}] {puts "while creating c8 at step $i"} +} + +for {set i 0} {$i < 10} {incr i} { + do_offsets $i +} + + diff --git a/tests/bugs/moddata/buc60965 b/tests/bugs/moddata/buc60965 new file mode 100644 index 0000000000..5c3093bb33 --- /dev/null +++ b/tests/bugs/moddata/buc60965 @@ -0,0 +1,24 @@ + +puts "========================" +puts "BUC60965" +puts "========================" + +restore [locate_data_file buc60965-c.draw] c +restore [locate_data_file buc60965-s.draw] s + +project result c s + +regexp {The+ length+ result+ is +([-0-9.+eE]+)} [length result] full len +set y [expr 3.e5+int(1.e5*($len-round($len)))] + +if { $y != 314196.0 } { + puts "Results is incorrect" +} + +set 2dviewer 0 + + + + + + diff --git a/tests/bugs/moddata/buc60967 b/tests/bugs/moddata/buc60967 new file mode 100644 index 0000000000..29f5991caf --- /dev/null +++ b/tests/bugs/moddata/buc60967 @@ -0,0 +1,14 @@ + +puts "========" +puts "BUC60967" +puts "========" +puts "" + +restore [locate_data_file buc60967.draw] bs2 + +to3d result bs2 + +set 3dviewer 0 + + + diff --git a/tests/bugs/moddata/buc60968 b/tests/bugs/moddata/buc60968 new file mode 100644 index 0000000000..ec1596856a --- /dev/null +++ b/tests/bugs/moddata/buc60968 @@ -0,0 +1,16 @@ + +puts "========================" +puts "BUC60968" +puts "========================" + +restore [locate_data_file buc60968-c.draw] c +restore [locate_data_file buc60968-s1.draw] s1 + +set che [extrema c s1] +set err [llength $che] +if { $err == 0} { + puts "Error : command extrema does NOT work properly" +} + + + diff --git a/tests/bugs/moddata/buc61006 b/tests/bugs/moddata/buc61006 new file mode 100644 index 0000000000..f54d8a2a72 --- /dev/null +++ b/tests/bugs/moddata/buc61006 @@ -0,0 +1,20 @@ + +puts "=========" +puts "BUC61006" +puts "=========" +puts "" +######################################################### +## Checkshape says that face is valid but it inludes selfintersecting wire. +######################################################### + +restore [locate_data_file buc61006.brep] result +decho off +set ch [checkshape result] +decho on + +if {![string compare $ch "This shape seems to be valid"]} { + puts "Error : the checkshape command returns incorrect result." +} + +set 2dviewer 0 + diff --git a/tests/bugs/moddata/bug20333 b/tests/bugs/moddata/bug20333 deleted file mode 100755 index dcaf6dc86c..0000000000 --- a/tests/bugs/moddata/bug20333 +++ /dev/null @@ -1,26 +0,0 @@ -puts "TODO OCC12345 ALL: Faulty PRO20333: here is shading problem" - -puts "============" -puts "PRO20333" -puts "" -puts "==================================" -puts "It takes visual check for this BUG" -puts "==================================" - -restore [locate_data_file pro20333a.brep] result -puts [checkshape result] - -tclean result -isos result 0 -incmesh result .1 -triangles result - -set info [trinfo result] -regexp { +([-0-9.+eE]+) +triangles} $info full tri -regexp { +([-0-9.+eE]+) +nodes} $info full nod - -if { $tri != 107 || $nod != 109 } { - puts "Faulty PRO20333: here is shading problem" -} - -set 3dviewer 0 diff --git a/tests/bugs/moddata/bug54 b/tests/bugs/moddata/bug54 index dbe4525404..d21dc13b9b 100755 --- a/tests/bugs/moddata/bug54 +++ b/tests/bugs/moddata/bug54 @@ -1,6 +1,10 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" -puts "TODO OCC12345 ALL: TEST INCOMPLETE" - +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} puts "================" puts "OCC54" puts "================" diff --git a/tests/bugs/moddata/bug60637 b/tests/bugs/moddata/bug60637 deleted file mode 100755 index 0beaab699c..0000000000 --- a/tests/bugs/moddata/bug60637 +++ /dev/null @@ -1,11 +0,0 @@ - -puts "========================" -puts "BUC60637" -puts "========================" - -restore [locate_data_file buc60637a.brep] result -fsameparameter result - -set check_square 1 -set square 144.866 -set 2dviewer 0 diff --git a/tests/bugs/moddata/bug60652_1 b/tests/bugs/moddata/bug60652_1 deleted file mode 100755 index b19c919967..0000000000 --- a/tests/bugs/moddata/bug60652_1 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "==========" -puts "BUC60652" -puts "Case 1" -puts "==========" - -pload QAcommands - -restore [locate_data_file buc60652a.brep] result -puts [checkshape result] -BUC60652 result - -set check_square 1 -set square 19614.8 -set 2dviewer 0 diff --git a/tests/bugs/moddata/bug60652_2 b/tests/bugs/moddata/bug60652_2 deleted file mode 100755 index 7f3604245e..0000000000 --- a/tests/bugs/moddata/bug60652_2 +++ /dev/null @@ -1,16 +0,0 @@ - -puts "==========" -puts "BUC60652" -puts "Case 2" -puts "==========" - -pload QAcommands - -restore [locate_data_file buc60652b.brep] result -puts [checkshape result] -BUC60652 result - -set check_square 1 -set square 29961 -set 2dviewer 0 - diff --git a/tests/bugs/moddata/bug60652_3 b/tests/bugs/moddata/bug60652_3 deleted file mode 100755 index 0591ce1bdb..0000000000 --- a/tests/bugs/moddata/bug60652_3 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "===========" -puts "BUC60652" -puts "Case 3" -puts "===========" - -pload QAcommands - -restore [locate_data_file buc60652c.brep] result -puts [checkshape result] -BUC60652 result - -set check_square 1 -set square 77815.1 -set 2dviewer 0 diff --git a/tests/bugs/moddata/bug60652_4 b/tests/bugs/moddata/bug60652_4 deleted file mode 100755 index 79a20abe74..0000000000 --- a/tests/bugs/moddata/bug60652_4 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "==========" -puts "BUC60652" -puts "Case 4" -puts "==========" - -pload QAcommands - -restore [locate_data_file shading_104.brep] result -puts [checkshape result] -BUC60652 result - -set check_square 1 -set square 119134 -set 2dviewer 0 diff --git a/tests/bugs/moddata/bug60667 b/tests/bugs/moddata/bug60667 deleted file mode 100755 index b8424100eb..0000000000 --- a/tests/bugs/moddata/bug60667 +++ /dev/null @@ -1,12 +0,0 @@ - -puts "===================" -puts "BUG60667" -puts "===================" - -restore [locate_data_file buc60667a.brep] result -fsameparameter result -puts [checkshape result] - -set 2dviewer 0 - - diff --git a/tests/bugs/moddata/bug60707 b/tests/bugs/moddata/bug60707 deleted file mode 100755 index 7a9f84dc5e..0000000000 --- a/tests/bugs/moddata/bug60707 +++ /dev/null @@ -1,25 +0,0 @@ - -puts "===========" -puts "BUC60707" -puts "===========" -puts "" -################################################# -## Fillets created in CasCade version 3 do not display as shaded surfaces. -################################################# -restore [locate_data_file buc60707a.brep] result -puts [checkshape result] - -tclean result -incmesh result .1 -triangles result -set info [trinfo result] -regexp { +([-0-9.+eE]+) +triangles} $info full Maxtriangl - -if { $Maxtriangl < 1 } { - puts "Error : inside mesh for shading wasn't build" -} - -set 3dviewer 0 - - - diff --git a/tests/bugs/moddata/bug60729 b/tests/bugs/moddata/bug60729 deleted file mode 100755 index 19426926c4..0000000000 --- a/tests/bugs/moddata/bug60729 +++ /dev/null @@ -1,14 +0,0 @@ - -puts "========================" -puts "BUC60729" -puts "========================" - -pload QAcommands - -if [catch {BUC60729} ] { - puts "BUC60729: Error" -} else { - puts "BUC60729: OK" -} - -set 3dviewer 1 diff --git a/tests/bugs/moddata/bug60755 b/tests/bugs/moddata/bug60755 deleted file mode 100755 index 758a13f03a..0000000000 --- a/tests/bugs/moddata/bug60755 +++ /dev/null @@ -1,23 +0,0 @@ -puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" - -puts "========================" -puts "BUC60755" -puts "========================" - -restore [locate_data_file buc60755a.brep] a -puts [checkshape a] - -######################################### -# "tcopy" command of a valid shape give a no-valid shape. -######################################### - -tcopy a result -puts [checkshape result] - -set check_square 1 -set square 623.832 -set 2dviewer 0 - - - - diff --git a/tests/bugs/moddata/bug60769 b/tests/bugs/moddata/bug60769 deleted file mode 100755 index 161d8810ec..0000000000 --- a/tests/bugs/moddata/bug60769 +++ /dev/null @@ -1,11 +0,0 @@ - -puts "=============" -puts "BUC60769" -puts "=============" - -restore [locate_data_file buc60769a.brep] result -puts [checkshape result] - -set 2dviewer 0 - - diff --git a/tests/bugs/moddata/bug60825 b/tests/bugs/moddata/bug60825 deleted file mode 100755 index 0f28d3c67a..0000000000 --- a/tests/bugs/moddata/bug60825 +++ /dev/null @@ -1,20 +0,0 @@ -puts "========================" -puts "BUC60825" -puts "========================" - -pload QAcommands - -line aLine 0 0 0 0 0 1 -mkedge aEdge1 aLine -restore [locate_data_file buc60825.brep] aEdge2 -puts [checkshape aEdge2] - -distmini d aEdge1 aEdge2 -regexp {NB RESULTS +: +([-0-9.+eE]+)} [BUC60825 aEdge1 aEdge2] full ext -if { $ext != 0 } { - puts "Error : The extrema has not been calculated." -} - - - - diff --git a/tests/bugs/moddata/bug60828 b/tests/bugs/moddata/bug60828 deleted file mode 100755 index c7e74d203b..0000000000 --- a/tests/bugs/moddata/bug60828 +++ /dev/null @@ -1,11 +0,0 @@ - -puts "========" -puts "BUC60828" -puts "========" -puts "" - -catch {BUC60828} - - - - diff --git a/tests/bugs/moddata/bug60842 b/tests/bugs/moddata/bug60842 deleted file mode 100755 index d8abb20b53..0000000000 --- a/tests/bugs/moddata/bug60842 +++ /dev/null @@ -1,16 +0,0 @@ - -puts "========" -puts "BUC60842" -puts "========" - -pload QAcommands -vinit - -if [catch {BUC60842} catch_result] { - puts "Faulty BUC60842" -} else { - puts "BUC60842 OK" -} - -set 3dviewer 1 - diff --git a/tests/bugs/moddata/bug60848 b/tests/bugs/moddata/bug60848 deleted file mode 100755 index d2e73080e6..0000000000 --- a/tests/bugs/moddata/bug60848 +++ /dev/null @@ -1,45 +0,0 @@ - -puts "============" -puts "BUC60848" -puts "============" -puts "" - -pload QAcommands - -restore [locate_data_file BUC60848.brep] a -puts [checkshape a] - -tcopy a res - -set Flag 0 - -set Res [ catch { BUC60848 a } ] -if { $Res != 0 } { - invert a - set Flag 1 - puts "" -} - -if { $Flag == 1 } { - set Res [ catch { BUC60848 a } ] - if { $Res != 0 } { - set Flag 2 - } - puts "" -} - -if { $Flag == 2 } { - puts "TEST FINISHED. RESULT IS BAD. Faulty" - puts "" -} - -if { $Flag == 1 } { - puts "TEST FINISHED. RESULT IS OK. SHAPE HAS BEEN INVERTED." - puts "" -} - -if { $Flag == 0 } { - puts "TEST FINISHED. RESULT IS OK." - puts "" -} - diff --git a/tests/bugs/moddata/bug60852 b/tests/bugs/moddata/bug60852 deleted file mode 100755 index c51594f7ef..0000000000 --- a/tests/bugs/moddata/bug60852 +++ /dev/null @@ -1,68 +0,0 @@ - -puts "========" -puts "BUC60852" -puts "BUC60923" -puts "========" - -pload QAcommands - -set bndbox_X1 0 -set bndbox_Y1 0 -set bndbox_Z1 0 -set bndbox_X2 30 -set bndbox_Y2 10 -set bndbox_Z2 20 - -set point_1_1_X -20 -set point_1_1_Y -5 -set point_1_1_Z 10 -set point_1_2_X 50 -set point_1_2_Y 15 -set point_1_2_Z 10 - -vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z -vertex vertex_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z - -edge edge_1 vertex_1_1 vertex_1_2 - -puts "" - -set point_2_1_X -20 -set point_2_1_Y -10 -set point_2_1_Z 10 -set point_2_2_X 50 -set point_2_2_Y -10 -set point_2_2_Z 10 - -vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z -vertex vertex_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z - -edge edge_2 vertex_2_1 vertex_2_2 - -puts "" - -box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2 - - -line line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z [ expr { $point_1_1_X - $point_1_2_X } ] [ expr { $point_1_1_Y - $point_1_2_Y } ] [ expr { $point_1_1_Z - $point_1_2_Z } ] - -line line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z [ expr { $point_2_1_X - $point_2_2_X } ] [ expr { $point_2_1_Y - $point_2_2_Y } ] [ expr { $point_2_1_Z - $point_2_2_Z } ] - -puts "" - -set result1 [BUC60852 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2] -if {${result1} != "Line that lies on edge intersects the box\n"} { - puts "BUC60852: Error; (case 1)" -} else { - puts "BUC60852: OK; (case 1)" -} - -puts "" - -set result2 [BUC60852 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2] -if {${result2} != "Line that lies on edge does not intersect the box\n"} { - puts "BUC60852: Error; (case 2)" -} else { - puts "BUC60852: OK; (case 2)" -} - diff --git a/tests/bugs/moddata/bug60854 b/tests/bugs/moddata/bug60854 deleted file mode 100755 index 8a3cf412c0..0000000000 --- a/tests/bugs/moddata/bug60854 +++ /dev/null @@ -1,43 +0,0 @@ -puts "TODO OCC12345 ALL: BUC60854: Error" - -puts "========" -puts "BUC60854" -puts "========" - -pload QAcommands - -plane test_plane -mkface test_face test_plane 0 1 0 1 - -vertex test_vertex_1 0 0.5 0 -vertex test_vertex_2 1 0.5 0 -edge test_edge test_vertex_1 test_vertex_2 - -splitshape test_shape test_face test_face test_edge - -explode test_shape f - -renamevar test_shape_1 test_face - -vertex test_vertex_3 0.2 0.5 0 -vertex test_vertex_4 0.8 0.5 0 -edge test_edge_1 test_vertex_3 test_vertex_4 - -vertex test_vertex_5 0 1 0 -edge test_edge_2 test_vertex_5 test_vertex_3 - -vertex test_vertex_6 1 1 0 -edge test_edge_3 test_vertex_4 test_vertex_6 - -BUC60854 result test_shape test_face test_edge_2 test_edge_3 @ test_edge test_edge_1 - -erase test_plane - -regexp {FACE +: +([-0-9.+eE]+)} [numshapes result] full FACE_num - -if {${FACE_num} != 3} { - puts "BUC60854: Error" -} - -set 2dviewer 0 - diff --git a/tests/bugs/moddata/bug60868 b/tests/bugs/moddata/bug60868 deleted file mode 100755 index 9e568889f1..0000000000 --- a/tests/bugs/moddata/bug60868 +++ /dev/null @@ -1,21 +0,0 @@ - -puts "========" -puts "BUC60868" -puts "========" -puts "" - -pload QAcommands - -restore [locate_data_file buc60868.brep] sh -puts [checkshape sh] - -BUC60868 result sh -puts [checkshape result] - -set len [llength [explode result w]] -if { $len != 3 } { - puts "Error : the number of curves is $len, but it should be 3." -} - -set 2dviewer 0 - diff --git a/tests/bugs/moddata/bug60870 b/tests/bugs/moddata/bug60870 deleted file mode 100755 index 8bc322b9e0..0000000000 --- a/tests/bugs/moddata/bug60870 +++ /dev/null @@ -1,35 +0,0 @@ - -puts "========" -puts "BUC60870" -puts "========" - -pload QAcommands - -vertex vertex_1 0 0 0 -vertex vertex_2 0 1 0 -vertex vertex_3 0 0.3 1 - -edge edge_1 vertex_1 vertex_2 - -set result [BUC60870 test_result edge_1 vertex_3 2.0] - -if {[llength ${result}] < 4} { - puts "BUC60870: Error; must be 3 solutions" -} else { - set MinimumDistance [dval test_result_val] - set TheorMinimumDistance 1.0 - set percent_max 1.0 - set percent [expr abs(${MinimumDistance} - ${TheorMinimumDistance}) / ${TheorMinimumDistance} * 100.] - if {${percent} > ${percent_max}} { - puts "MinimumDistance=${MinimumDistance}" - puts "TheorMinimumDistance=${TheorMinimumDistance}" - puts "percent=${percent}" - puts "percent_max=${percent_max}" - puts "BUC60870: Error; bad value of minimum distance" - } else { - puts "BUC60870: OK" - } -} - -set 2dviewer 0 - diff --git a/tests/bugs/moddata/bug60889 b/tests/bugs/moddata/bug60889 deleted file mode 100755 index e7ed39f00f..0000000000 --- a/tests/bugs/moddata/bug60889 +++ /dev/null @@ -1,93 +0,0 @@ - -puts "========" -puts "BUC60889" -puts "BUC60947" -puts "========" - -pload QAcommands - -set bndbox_X1 0 -set bndbox_Y1 0 -set bndbox_Z1 0 -set bndbox_X2 30 -set bndbox_Y2 10 -set bndbox_Z2 20 - -set point_1_1_X -30 -set point_1_1_Y -10 -set point_1_1_Z 5 -set point_1_2_X -30 -set point_1_2_Y -10 -set point_1_2_Z 15 - -set point_1_3_X -15 -set point_1_3_Y -5 -set point_1_3_Z 5 - -set dx_1 [ expr { $point_1_3_X - $point_1_1_X } ] -set dy_1 [ expr { $point_1_3_Y - $point_1_1_Y } ] -set dz_1 [ expr { $point_1_3_Z - $point_1_1_Z } ] - -point point_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z -point point_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z -polyline p_line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $point_1_2_X $point_1_2_Y $point_1_2_Z -vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z -vertex vertex_1_2 $point_1_3_X $point_1_3_Y $point_1_3_Z -edge edge_1 vertex_1_1 vertex_1_2 - -puts "" - -set point_2_1_X 30 -set point_2_1_Y 10 -set point_2_1_Z -5 -set point_2_2_X 30 -set point_2_2_Y 10 -set point_2_2_Z -15 - -set point_2_3_X 0 -set point_2_3_Y 10 -set point_2_3_Z -5 - -set dx_2 [ expr { $point_2_3_X - $point_2_1_X } ] -set dy_2 [ expr { $point_2_3_Y - $point_2_1_Y } ] -set dz_2 [ expr { $point_2_3_Z - $point_2_1_Z } ] - -point point_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z -point point_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z -polyline p_line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z $point_2_2_X $point_2_2_Y $point_2_2_Z -vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z -vertex vertex_2_2 $point_2_3_X $point_2_3_Y $point_2_3_Z -edge edge_2 vertex_2_1 vertex_2_2 - -puts "" - -box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2 - - -line line_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $dx_1 $dy_1 $dz_1 -line line_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z $dx_1 $dy_1 $dz_1 - -line line_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z $dx_2 $dy_2 $dz_2 -line line_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z $dx_2 $dy_2 $dz_2 - -puts "" - -set result1 [BUC60889 point_1_1 point_1_2 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2] - -if {${result1} != "The band intersects the box\n"} { - puts "BUC60889: Error; (case 1)" -} else { - puts "BUC60889: OK; (case 1)" -} - -puts "" - -set result2 [BUC60889 point_2_1 point_2_2 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2] - -if {${result2} != "The band lies out of the box\n"} { - puts "BUC60889: Error; (case 2)" -} else { - puts "BUC60889: OK; (case 2)" -} - - diff --git a/tests/bugs/moddata/bug60895 b/tests/bugs/moddata/bug60895 deleted file mode 100755 index 1860d0ab52..0000000000 --- a/tests/bugs/moddata/bug60895 +++ /dev/null @@ -1,18 +0,0 @@ - -puts "============" -puts "BUC60895" -puts "============" -puts "" -############################################################## -##If give command "sameparameter edge" on attached edge in the DRAW this command hang. -############################################################## - -restore [locate_data_file BUC60895.brep] result - -fsameparameter result -puts [checkshape result] - -set check_square 1 -set length 12.6012 -set 2dviewer 0 - diff --git a/tests/bugs/moddata/bug60897 b/tests/bugs/moddata/bug60897 deleted file mode 100755 index e26a4ec292..0000000000 --- a/tests/bugs/moddata/bug60897 +++ /dev/null @@ -1,72 +0,0 @@ -puts "========" -puts "BUC60897" -puts "========" - -pload QAcommands - -if [catch { set result [BUC60897] } ] { - puts "BUC60897: Error; (case 1)" -} else { - set len [llength ${result}] - if {${len} < 21} { - puts "length = ${len}" - puts "BUC60897: Error; (case 2)" - } else { - set circle_X [lindex ${result} 3] - set circle_Y [lindex ${result} 5] - set circle_R [lindex ${result} 7] - set tangency1_X [lindex ${result} 11] - set tangency1_Y [lindex ${result} 13] - set tangency2_X [lindex ${result} 17] - set tangency2_Y [lindex ${result} 19] - - set x1 [expr abs(${tangency1_X} - ${circle_X})] - set y1 [expr abs(${tangency1_Y} - ${circle_Y})] - set R1 [expr sqrt(${x1} * ${x1} + ${y1} * ${y1})] - - set x2 [expr abs(${tangency2_X} - ${circle_X})] - set y2 [expr abs(${tangency2_Y} - ${circle_Y})] - set R2 [expr sqrt(${x2} * ${x2} + ${y2} * ${y2})] - - set maxdelta 1.0 - set delta_R1 [expr abs(${R1} - ${circle_R}) / ${circle_R} * 100.] - set delta_R2 [expr abs(${R2} - ${circle_R}) / ${circle_R} * 100.] - - if {${delta_R1} > ${maxdelta}} { - puts "circle_X = ${circle_X}" - puts "circle_Y = ${circle_Y}" - puts "circle_R = ${circle_R}" - puts "tangency1_X = ${tangency1_X}" - puts "tangency1_Y = ${tangency1_Y}" - puts "x1 = ${x1}" - puts "y1 = ${y1}" - puts "R1 = ${R1}" - puts "delta_R1 = ${delta_R1}" - puts "maxdelta = ${maxdelta}" - puts "BUC60897: Error; (case 3)" - } else { - puts "BUC60897: OK; (case 1)" - } - - if {${delta_R2} > ${maxdelta}} { - puts "circle_X = ${circle_X}" - puts "circle_Y = ${circle_Y}" - puts "circle_R = ${circle_R}" - puts "tangency2_X = ${tangency2_X}" - puts "tangency2_Y = ${tangency2_Y}" - puts "x2 = ${x2}" - puts "y2 = ${y2}" - puts "R2 = ${R2}" - puts "delta_R2 = ${delta_R2}" - puts "maxdelta = ${maxdelta}" - puts "BUC60897: Error; (case 4)" - } else { - puts "BUC60897: OK; (case 2)" - } - - } -} - -set 3dviewer 0 - - diff --git a/tests/bugs/moddata/bug60911 b/tests/bugs/moddata/bug60911 deleted file mode 100755 index 38a262fcc0..0000000000 --- a/tests/bugs/moddata/bug60911 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "============" -puts "BUC60911" -puts "============" - -##################################################### -## Bad value of the volume of the shape. -##################################################### - -restore [locate_data_file BUC60911.brep] result -invert result - -set check_square 1 -set square 16353.8 -set 2dviewer 0 diff --git a/tests/bugs/moddata/bug60924 b/tests/bugs/moddata/bug60924 deleted file mode 100755 index f32c5841de..0000000000 --- a/tests/bugs/moddata/bug60924 +++ /dev/null @@ -1,24 +0,0 @@ - -puts "========" -puts "BUC60924" -puts "========" -puts "" - -################################################## -## ShapeAnalysisStd_Curve::IsPlanar works incorrectly with a conic curve. -################################################## - -pload QAcommands - -ellipse el 0 0 1 20 10 - -set result1 [BUC60924 el 0 0 1] - -if {${result1} != "The curve is planar !\n"} { - puts "BUC60924: Error" -} else { - puts "BUC60924: OK" -} - -set 3dviewer 1 - diff --git a/tests/bugs/moddata/bug60955 b/tests/bugs/moddata/bug60955 deleted file mode 100755 index 022fd2e451..0000000000 --- a/tests/bugs/moddata/bug60955 +++ /dev/null @@ -1,15 +0,0 @@ - -puts "===========" -puts " BUC60955" -puts "===========" - -puts "Restoring face from file" -restore [locate_data_file buc60955.brep] result -puts [checkshape result] - -build3d result - -set check_square 1 -set square 8464.65 -set 2dviewer 0 - diff --git a/tests/bugs/moddata/bug60960 b/tests/bugs/moddata/bug60960 deleted file mode 100755 index 77b6cfe389..0000000000 --- a/tests/bugs/moddata/bug60960 +++ /dev/null @@ -1,30 +0,0 @@ - -puts "===========" -puts " BUC60960" -puts "===========" - -proc do_offsets {i} { - global c c1 c2 c3 c4 c5 - - set poles {{0 0 1} {0 1 1} {1 1 1} {1 0 1} {2 0 1} {2 -1 1} {1 -1 1} \ - {1 -2 1} {0 -2 1} {0 -1 1} {-1 -1 1} {-1 0 1}} - set knots {{0 1} {1 1} {2 1} {3 1} {4 1} {5 1} {6 1} {7 1} {8 1} {9 1} \ - {10 1} {11 1} {12 1}} - eval 2dpbsplinecurve c 3 [llength $knots] [join $knots] [join $poles] - - - if [catch {offset c1 c 0.1}] {puts "while creating c1 at step $i"} - if [catch {offset c2 c 0.2}] {puts "while creating c2 at step $i"} - if [catch {offset c3 c 0.3}] {puts "while creating c3 at step $i"} - if [catch {offset c4 c 0.4}] {puts "while creating c4 at step $i"} - if [catch {offset c5 c 0.5}] {puts "while creating c5 at step $i"} - if [catch {offset c6 c 0.6}] {puts "while creating c6 at step $i"} - if [catch {offset c7 c 0.7}] {puts "while creating c7 at step $i"} - if [catch {offset c8 c 0.8}] {puts "while creating c8 at step $i"} -} - -for {set i 0} {$i < 10} {incr i} { - do_offsets $i -} - - diff --git a/tests/bugs/moddata/bug60965 b/tests/bugs/moddata/bug60965 deleted file mode 100755 index 5c3093bb33..0000000000 --- a/tests/bugs/moddata/bug60965 +++ /dev/null @@ -1,24 +0,0 @@ - -puts "========================" -puts "BUC60965" -puts "========================" - -restore [locate_data_file buc60965-c.draw] c -restore [locate_data_file buc60965-s.draw] s - -project result c s - -regexp {The+ length+ result+ is +([-0-9.+eE]+)} [length result] full len -set y [expr 3.e5+int(1.e5*($len-round($len)))] - -if { $y != 314196.0 } { - puts "Results is incorrect" -} - -set 2dviewer 0 - - - - - - diff --git a/tests/bugs/moddata/bug60967 b/tests/bugs/moddata/bug60967 deleted file mode 100755 index 29f5991caf..0000000000 --- a/tests/bugs/moddata/bug60967 +++ /dev/null @@ -1,14 +0,0 @@ - -puts "========" -puts "BUC60967" -puts "========" -puts "" - -restore [locate_data_file buc60967.draw] bs2 - -to3d result bs2 - -set 3dviewer 0 - - - diff --git a/tests/bugs/moddata/bug60968 b/tests/bugs/moddata/bug60968 deleted file mode 100755 index ec1596856a..0000000000 --- a/tests/bugs/moddata/bug60968 +++ /dev/null @@ -1,16 +0,0 @@ - -puts "========================" -puts "BUC60968" -puts "========================" - -restore [locate_data_file buc60968-c.draw] c -restore [locate_data_file buc60968-s1.draw] s1 - -set che [extrema c s1] -set err [llength $che] -if { $err == 0} { - puts "Error : command extrema does NOT work properly" -} - - - diff --git a/tests/bugs/moddata/bug61006 b/tests/bugs/moddata/bug61006 deleted file mode 100755 index f54d8a2a72..0000000000 --- a/tests/bugs/moddata/bug61006 +++ /dev/null @@ -1,20 +0,0 @@ - -puts "=========" -puts "BUC61006" -puts "=========" -puts "" -######################################################### -## Checkshape says that face is valid but it inludes selfintersecting wire. -######################################################### - -restore [locate_data_file buc61006.brep] result -decho off -set ch [checkshape result] -decho on - -if {![string compare $ch "This shape seems to be valid"]} { - puts "Error : the checkshape command returns incorrect result." -} - -set 2dviewer 0 - diff --git a/tests/bugs/moddata/bug62476_1 b/tests/bugs/moddata/bug62476_1 deleted file mode 100755 index da675ce6b4..0000000000 --- a/tests/bugs/moddata/bug62476_1 +++ /dev/null @@ -1,29 +0,0 @@ -puts "TODO OCC12345 ALL: Error : here is shading problem" - -puts "============" -puts "FRA62476" -puts "" -puts "==================================" -puts "It takes visual check for this BUG" -puts "==================================" -puts "" - -restore [locate_data_file fra62476a.brep] result -puts [checkshape result] - -tclean result -incmesh result .1 -triangles result - -set info [trinfo result] -regexp { +([-0-9.+eE]+) +triangles} $info full tri -regexp { +([-0-9.+eE]+) +nodes} $info full nod - -if { $tri != 93 && $nod != 56 } { - puts "Error : here is shading problem" -} - -set 3dviewer 0 - - - diff --git a/tests/bugs/moddata/bug62476_2 b/tests/bugs/moddata/bug62476_2 deleted file mode 100755 index 379f01e5ee..0000000000 --- a/tests/bugs/moddata/bug62476_2 +++ /dev/null @@ -1,28 +0,0 @@ - -puts "==========" -puts "FRA62476" -puts "" -puts "==================================" -puts "It takes visual check for this BUG" -puts "==================================" -puts "" - -restore [locate_data_file fra62476b.brep] result -puts [checkshape result] - -tclean result -incmesh result .1 -triangles result - -set info [trinfo result] -regexp { +([-0-9.+eE]+) +triangles} $info full tri -regexp { +([-0-9.+eE]+) +nodes} $info full nod - -if { $tri !=239 && $nod != 145 } { - puts "Shady FRA62476: here may be shading problem, number tri & nod - are changed" -} - -set 3dviewer 0 - - diff --git a/tests/bugs/moddata/fra62476_1 b/tests/bugs/moddata/fra62476_1 new file mode 100644 index 0000000000..da675ce6b4 --- /dev/null +++ b/tests/bugs/moddata/fra62476_1 @@ -0,0 +1,29 @@ +puts "TODO OCC12345 ALL: Error : here is shading problem" + +puts "============" +puts "FRA62476" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" + +restore [locate_data_file fra62476a.brep] result +puts [checkshape result] + +tclean result +incmesh result .1 +triangles result + +set info [trinfo result] +regexp { +([-0-9.+eE]+) +triangles} $info full tri +regexp { +([-0-9.+eE]+) +nodes} $info full nod + +if { $tri != 93 && $nod != 56 } { + puts "Error : here is shading problem" +} + +set 3dviewer 0 + + + diff --git a/tests/bugs/moddata/fra62476_2 b/tests/bugs/moddata/fra62476_2 new file mode 100644 index 0000000000..379f01e5ee --- /dev/null +++ b/tests/bugs/moddata/fra62476_2 @@ -0,0 +1,28 @@ + +puts "==========" +puts "FRA62476" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" + +restore [locate_data_file fra62476b.brep] result +puts [checkshape result] + +tclean result +incmesh result .1 +triangles result + +set info [trinfo result] +regexp { +([-0-9.+eE]+) +triangles} $info full tri +regexp { +([-0-9.+eE]+) +nodes} $info full nod + +if { $tri !=239 && $nod != 145 } { + puts "Shady FRA62476: here may be shading problem, number tri & nod + are changed" +} + +set 3dviewer 0 + + diff --git a/tests/bugs/moddata/pro20333 b/tests/bugs/moddata/pro20333 new file mode 100644 index 0000000000..dcaf6dc86c --- /dev/null +++ b/tests/bugs/moddata/pro20333 @@ -0,0 +1,26 @@ +puts "TODO OCC12345 ALL: Faulty PRO20333: here is shading problem" + +puts "============" +puts "PRO20333" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +restore [locate_data_file pro20333a.brep] result +puts [checkshape result] + +tclean result +isos result 0 +incmesh result .1 +triangles result + +set info [trinfo result] +regexp { +([-0-9.+eE]+) +triangles} $info full tri +regexp { +([-0-9.+eE]+) +nodes} $info full nod + +if { $tri != 107 || $nod != 109 } { + puts "Faulty PRO20333: here is shading problem" +} + +set 3dviewer 0 diff --git a/tests/bugs/step/buc60624 b/tests/bugs/step/buc60624 new file mode 100644 index 0000000000..29a53cd0f0 --- /dev/null +++ b/tests/bugs/step/buc60624 @@ -0,0 +1,10 @@ +puts "========================" +puts "BUC60624" +puts "========================" + +stepread [locate_data_file buc60624a.stp] a * + +tpcompound result +puts [checkshape result] + +set 2dviewer 0 diff --git a/tests/bugs/step/buc60809 b/tests/bugs/step/buc60809 new file mode 100644 index 0000000000..1d02ef17cf --- /dev/null +++ b/tests/bugs/step/buc60809 @@ -0,0 +1,19 @@ +puts "========================" +puts "BUC60809" +puts "========================" + +################################################################ +### Reading file teststp.stp produces a sphere without restriction which is not usable in the viewer +################################################################ + +param read.step.product.mode OFF +stepread [locate_data_file BUC60809.stp] a * + +tpcompound result +puts [checkshape result] +puts [checkshape result r] + +set 2dviewer 0 + + + diff --git a/tests/bugs/step/buc60810 b/tests/bugs/step/buc60810 new file mode 100644 index 0000000000..a1e9f313b6 --- /dev/null +++ b/tests/bugs/step/buc60810 @@ -0,0 +1,13 @@ +puts "===========" +puts "BUC60810" +puts "===========" + +################################################# +## Reading file sample.stp crashes. +################################################# + +stepread [locate_data_file BUC60810.stp] a * + +tpcompound result + +set 2dviewer 0 diff --git a/tests/bugs/step/buc60906 b/tests/bugs/step/buc60906 new file mode 100644 index 0000000000..d608ebf10d --- /dev/null +++ b/tests/bugs/step/buc60906 @@ -0,0 +1,74 @@ +# by apn master-master 03.12.2012 +#puts "TODO OCC12345 ALL: An exception was caught" +#puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" +puts "TODO OCC12345 ALL: Faulty OCC294" +puts "TODO OCC12345 ALL: Error : OCC294" +#puts "TODO OCC12345 ALL: TEST INCOMPLETE" + +puts "========================" +puts " BUC60906 " +puts "========================" + +cpulimit 3000 +pload QAcommands + +stepread [locate_data_file carcasse_gauche_simpl3.stp] a * + +tpcompound com + +set AllEdgesList [explode com e] +set list [split ${AllEdgesList}] +set NumbEdges [llength ${list}] +set delta 0.03 +set IsSmallEdges 0 + +set IsOK 1 + +for {set i 1} {${i} <= ${NumbEdges}} {incr i} { + set i_tolerance [maxtolerance com_${i}] + set i_list [split ${i_tolerance} "\n\t"] + set i_listLength [llength ${i_list}] + if { ${i_listLength} < 7 } then { + puts "BUC60906 - Error : i = ${i}" + puts "BUC60906 - Error : i_listLength = ${i_listLength}" + } + set i_EdgeList [lindex ${i_list} 3] + set i_MaxEdgeTolerance [lindex [split ${i_EdgeList}] [expr [llength [split ${i_EdgeList}] ] - 2] ] + #puts "i_MaxEdgeTolerance = ${i_MaxEdgeTolerance}" + if { ${i_MaxEdgeTolerance} > ${delta} } then { + set IsSmallEdges 1 + puts "Remove ${i}-th small edge with a tolerance of ${delta} mm" + + if [catch { OCC294 shape_result com com_${i} } result] { + puts "Error : OCC294" + set IsOK 0 + break + } + + renamevar shape_result com + } +} +if { ${IsOK} == 1 } { + if { ${IsSmallEdges} == 0 } { + puts "Error : here are not small edges" + set IsOK 0 + } +} + +if { ${IsOK} == 1 } { + set fullness [nbshapes com] + regexp {VERTEX +: +([-0-9.+eE]+)} $fullness full vert + regexp {EDGE +: +([-0-9.+eE]+)} $fullness full edg + if { $edg == 0 || $vert == 0 } { + puts "Error : it is Faulty result" + set IsOK 0 + } +} + +if { ${IsOK} == 1 } { + fixshape result com ${delta} + puts [ checkshape result] + puts [checkshape result r] +} + +set 2dviewer 0 diff --git a/tests/bugs/step/buc60948 b/tests/bugs/step/buc60948 new file mode 100644 index 0000000000..3292aa9580 --- /dev/null +++ b/tests/bugs/step/buc60948 @@ -0,0 +1,32 @@ +set os $env(os_type) +if { [string compare $os "windows"] == 0 } { +# puts "TODO OCC23561 $os: child process exited abnormally" +} else { + puts "TODO OCC23561 ALL: An exception was caught" + puts "TODO OCC23561 ALL: Tcl Exception:" + puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*" +} +puts "TODO OCC23561 ALL: TEST INCOMPLETE" + +puts "========================" +puts "BUC60948" +puts "========================" + +restore [locate_data_file pump4.brep] a_1 +puts [checkshape a_1] + +##################################################################### +catch {exec rm ${imagedir}/buc60948.stp} +stepwrite a a_1 ${imagedir}/buc60948.stp + +dall + +stepread ${imagedir}/buc60948.stp a * + +tpcompound result +puts [checkshape result] + +set 2dviewer 0 + + + diff --git a/tests/bugs/step/bug19854 b/tests/bugs/step/bug19854 deleted file mode 100755 index 2d4bae1710..0000000000 --- a/tests/bugs/step/bug19854 +++ /dev/null @@ -1,19 +0,0 @@ -puts "==========" -puts "PRO19854" -puts "==========" -puts "Incorrect translation of one entity from STEP file in optimaze mode of C30." - -stepread [locate_data_file id_turbine-B.stp] a * - -puts [checkshape a_1] -puts [checkshape a_1 r] - -renamevar a_1 result - -tpdraw 2637 - -puts [checkshape tp_2637] -puts [checkshape tp_2637 r] - -set 2dviewer 0 - diff --git a/tests/bugs/step/bug19895 b/tests/bugs/step/bug19895 deleted file mode 100755 index c202d42add..0000000000 --- a/tests/bugs/step/bug19895 +++ /dev/null @@ -1,29 +0,0 @@ -puts "==========" -puts "PRO19895" -puts "==========" - -############################################################################# -## There is wrong tolerance after reading of the model in optimaze mode (C30). Retrive entity number 2139 from file -## "bm4_db_punch_a.stp" and will obtaine tolerance. It is very big and isolains extend from entity. -############################################################################# - -stepread [locate_data_file bm4_db_punch_a.stp] a * - -tpcompound b -isos b 0 -isos b 3 -tpcompound result - -tpdraw 2139 - -puts [checkshape tp_2139] -puts [checkshape tp_2139 r] - -set MaxTolerance [ lindex [ split [ lindex [tolerance tp_2139] 1 ] = ] 1 ] -puts "MaxTolerance = $MaxTolerance" -if { $MaxTolerance > 1 } { - puts "Error : Tolerance of shape is more then 1.0" -} - -set 2dviewer 0 - diff --git a/tests/bugs/step/bug20361_1 b/tests/bugs/step/bug20361_1 deleted file mode 100755 index 2bca5046dd..0000000000 --- a/tests/bugs/step/bug20361_1 +++ /dev/null @@ -1,12 +0,0 @@ -puts "================" -puts "PRO20361" -puts "case 1" -puts "================" - -param read.step.product.mode OFF - -stepread [locate_data_file PRO20361-2.stp] a * - -tpcompound result - -set 2dviewer 0 diff --git a/tests/bugs/step/bug20361_2 b/tests/bugs/step/bug20361_2 deleted file mode 100755 index 23ba2c747b..0000000000 --- a/tests/bugs/step/bug20361_2 +++ /dev/null @@ -1,13 +0,0 @@ -puts "================" -puts "PRO20361" -puts "case 2" -puts "================" - -param read.step.product.mode OFF -stepread [locate_data_file PRO20361-1.stp] a * - -tpcompound result -puts [checkshape result] -puts [checkshape result r] - -set 2dviewer 0 diff --git a/tests/bugs/step/bug20361_3 b/tests/bugs/step/bug20361_3 deleted file mode 100755 index c48e870185..0000000000 --- a/tests/bugs/step/bug20361_3 +++ /dev/null @@ -1,13 +0,0 @@ -puts "================" -puts "PRO20361" -puts "case 3" -puts "================" - -param read.step.product.mode OFF -stepread [locate_data_file PRO20361-3.stp] a * - -tpcompound result -puts [checkshape result] -puts [checkshape result r] - -set 2dviewer 0 diff --git a/tests/bugs/step/bug20362 b/tests/bugs/step/bug20362 deleted file mode 100755 index a80a6f145e..0000000000 --- a/tests/bugs/step/bug20362 +++ /dev/null @@ -1,28 +0,0 @@ -puts "========================" -puts "PRO20362" -puts "========================" - -stepread [locate_data_file PRO20362.stp] a * - -explode a_1 f -renamevar a_1 result - -puts [checkshape a_1_1] -puts [checkshape a_1_1 r] - -set l [explode a_1_1 e] -set n [llength $l] -if { $n != 4 } { - puts "Error : The amount of edges in FIRST face is more than four" -} - -puts [checkshape a_1_2] -puts [checkshape a_1_2 r] - -set i [explode a_1_2 e] -set m [llength $i] -if { $m != 4 } { - puts "Faulty : The amount of edges in SECOND face is more than four" -} - -set 2dviewer 0 diff --git a/tests/bugs/step/bug233 b/tests/bugs/step/bug233 index aeba84beea..583543c4a5 100755 --- a/tests/bugs/step/bug233 +++ b/tests/bugs/step/bug233 @@ -3,7 +3,7 @@ puts "OCC233" puts "========" puts "Problem during translation in dev in optimaze mode .Debug mode is OK)" -stepread [locate_data_file Samtech_bottle.stp] a * +stepread [locate_data_file Sbottle.stp] a * tpcompound result diff --git a/tests/bugs/step/bug60624 b/tests/bugs/step/bug60624 deleted file mode 100755 index 29a53cd0f0..0000000000 --- a/tests/bugs/step/bug60624 +++ /dev/null @@ -1,10 +0,0 @@ -puts "========================" -puts "BUC60624" -puts "========================" - -stepread [locate_data_file buc60624a.stp] a * - -tpcompound result -puts [checkshape result] - -set 2dviewer 0 diff --git a/tests/bugs/step/bug60809 b/tests/bugs/step/bug60809 deleted file mode 100755 index 1d02ef17cf..0000000000 --- a/tests/bugs/step/bug60809 +++ /dev/null @@ -1,19 +0,0 @@ -puts "========================" -puts "BUC60809" -puts "========================" - -################################################################ -### Reading file teststp.stp produces a sphere without restriction which is not usable in the viewer -################################################################ - -param read.step.product.mode OFF -stepread [locate_data_file BUC60809.stp] a * - -tpcompound result -puts [checkshape result] -puts [checkshape result r] - -set 2dviewer 0 - - - diff --git a/tests/bugs/step/bug60810 b/tests/bugs/step/bug60810 deleted file mode 100755 index a1e9f313b6..0000000000 --- a/tests/bugs/step/bug60810 +++ /dev/null @@ -1,13 +0,0 @@ -puts "===========" -puts "BUC60810" -puts "===========" - -################################################# -## Reading file sample.stp crashes. -################################################# - -stepread [locate_data_file BUC60810.stp] a * - -tpcompound result - -set 2dviewer 0 diff --git a/tests/bugs/step/bug60906 b/tests/bugs/step/bug60906 deleted file mode 100755 index c3ee9e53a6..0000000000 --- a/tests/bugs/step/bug60906 +++ /dev/null @@ -1,74 +0,0 @@ -# by apn master-master 03.12.2012 -#puts "TODO OCC12345 ALL: An exception was caught" -#puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" -puts "TODO OCC12345 ALL: Faulty OCC294" -puts "TODO OCC12345 ALL: Error : OCC294" -#puts "TODO OCC12345 ALL: TEST INCOMPLETE" - -puts "========================" -puts " BUC60906 " -puts "========================" - -cpulimit 3000 -pload QAcommands - -stepread [locate_data_file Samtech_carcasse_gauche_simpl3.stp] a * - -tpcompound com - -set AllEdgesList [explode com e] -set list [split ${AllEdgesList}] -set NumbEdges [llength ${list}] -set delta 0.03 -set IsSmallEdges 0 - -set IsOK 1 - -for {set i 1} {${i} <= ${NumbEdges}} {incr i} { - set i_tolerance [maxtolerance com_${i}] - set i_list [split ${i_tolerance} "\n\t"] - set i_listLength [llength ${i_list}] - if { ${i_listLength} < 7 } then { - puts "BUC60906 - Error : i = ${i}" - puts "BUC60906 - Error : i_listLength = ${i_listLength}" - } - set i_EdgeList [lindex ${i_list} 3] - set i_MaxEdgeTolerance [lindex [split ${i_EdgeList}] [expr [llength [split ${i_EdgeList}] ] - 2] ] - #puts "i_MaxEdgeTolerance = ${i_MaxEdgeTolerance}" - if { ${i_MaxEdgeTolerance} > ${delta} } then { - set IsSmallEdges 1 - puts "Remove ${i}-th small edge with a tolerance of ${delta} mm" - - if [catch { OCC294 shape_result com com_${i} } result] { - puts "Error : OCC294" - set IsOK 0 - break - } - - renamevar shape_result com - } -} -if { ${IsOK} == 1 } { - if { ${IsSmallEdges} == 0 } { - puts "Error : here are not small edges" - set IsOK 0 - } -} - -if { ${IsOK} == 1 } { - set fullness [nbshapes com] - regexp {VERTEX +: +([-0-9.+eE]+)} $fullness full vert - regexp {EDGE +: +([-0-9.+eE]+)} $fullness full edg - if { $edg == 0 || $vert == 0 } { - puts "Error : it is Faulty result" - set IsOK 0 - } -} - -if { ${IsOK} == 1 } { - fixshape result com ${delta} - puts [ checkshape result] - puts [checkshape result r] -} - -set 2dviewer 0 diff --git a/tests/bugs/step/bug60948 b/tests/bugs/step/bug60948 deleted file mode 100755 index 3292aa9580..0000000000 --- a/tests/bugs/step/bug60948 +++ /dev/null @@ -1,32 +0,0 @@ -set os $env(os_type) -if { [string compare $os "windows"] == 0 } { -# puts "TODO OCC23561 $os: child process exited abnormally" -} else { - puts "TODO OCC23561 ALL: An exception was caught" - puts "TODO OCC23561 ALL: Tcl Exception:" - puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*" -} -puts "TODO OCC23561 ALL: TEST INCOMPLETE" - -puts "========================" -puts "BUC60948" -puts "========================" - -restore [locate_data_file pump4.brep] a_1 -puts [checkshape a_1] - -##################################################################### -catch {exec rm ${imagedir}/buc60948.stp} -stepwrite a a_1 ${imagedir}/buc60948.stp - -dall - -stepread ${imagedir}/buc60948.stp a * - -tpcompound result -puts [checkshape result] - -set 2dviewer 0 - - - diff --git a/tests/bugs/step/pro19854 b/tests/bugs/step/pro19854 new file mode 100644 index 0000000000..2d4bae1710 --- /dev/null +++ b/tests/bugs/step/pro19854 @@ -0,0 +1,19 @@ +puts "==========" +puts "PRO19854" +puts "==========" +puts "Incorrect translation of one entity from STEP file in optimaze mode of C30." + +stepread [locate_data_file id_turbine-B.stp] a * + +puts [checkshape a_1] +puts [checkshape a_1 r] + +renamevar a_1 result + +tpdraw 2637 + +puts [checkshape tp_2637] +puts [checkshape tp_2637 r] + +set 2dviewer 0 + diff --git a/tests/bugs/step/pro19895 b/tests/bugs/step/pro19895 new file mode 100644 index 0000000000..c202d42add --- /dev/null +++ b/tests/bugs/step/pro19895 @@ -0,0 +1,29 @@ +puts "==========" +puts "PRO19895" +puts "==========" + +############################################################################# +## There is wrong tolerance after reading of the model in optimaze mode (C30). Retrive entity number 2139 from file +## "bm4_db_punch_a.stp" and will obtaine tolerance. It is very big and isolains extend from entity. +############################################################################# + +stepread [locate_data_file bm4_db_punch_a.stp] a * + +tpcompound b +isos b 0 +isos b 3 +tpcompound result + +tpdraw 2139 + +puts [checkshape tp_2139] +puts [checkshape tp_2139 r] + +set MaxTolerance [ lindex [ split [ lindex [tolerance tp_2139] 1 ] = ] 1 ] +puts "MaxTolerance = $MaxTolerance" +if { $MaxTolerance > 1 } { + puts "Error : Tolerance of shape is more then 1.0" +} + +set 2dviewer 0 + diff --git a/tests/bugs/step/pro20361_1 b/tests/bugs/step/pro20361_1 new file mode 100644 index 0000000000..2bca5046dd --- /dev/null +++ b/tests/bugs/step/pro20361_1 @@ -0,0 +1,12 @@ +puts "================" +puts "PRO20361" +puts "case 1" +puts "================" + +param read.step.product.mode OFF + +stepread [locate_data_file PRO20361-2.stp] a * + +tpcompound result + +set 2dviewer 0 diff --git a/tests/bugs/step/pro20361_2 b/tests/bugs/step/pro20361_2 new file mode 100644 index 0000000000..23ba2c747b --- /dev/null +++ b/tests/bugs/step/pro20361_2 @@ -0,0 +1,13 @@ +puts "================" +puts "PRO20361" +puts "case 2" +puts "================" + +param read.step.product.mode OFF +stepread [locate_data_file PRO20361-1.stp] a * + +tpcompound result +puts [checkshape result] +puts [checkshape result r] + +set 2dviewer 0 diff --git a/tests/bugs/step/pro20361_3 b/tests/bugs/step/pro20361_3 new file mode 100644 index 0000000000..c48e870185 --- /dev/null +++ b/tests/bugs/step/pro20361_3 @@ -0,0 +1,13 @@ +puts "================" +puts "PRO20361" +puts "case 3" +puts "================" + +param read.step.product.mode OFF +stepread [locate_data_file PRO20361-3.stp] a * + +tpcompound result +puts [checkshape result] +puts [checkshape result r] + +set 2dviewer 0 diff --git a/tests/bugs/step/pro20362 b/tests/bugs/step/pro20362 new file mode 100644 index 0000000000..a80a6f145e --- /dev/null +++ b/tests/bugs/step/pro20362 @@ -0,0 +1,28 @@ +puts "========================" +puts "PRO20362" +puts "========================" + +stepread [locate_data_file PRO20362.stp] a * + +explode a_1 f +renamevar a_1 result + +puts [checkshape a_1_1] +puts [checkshape a_1_1 r] + +set l [explode a_1_1 e] +set n [llength $l] +if { $n != 4 } { + puts "Error : The amount of edges in FIRST face is more than four" +} + +puts [checkshape a_1_2] +puts [checkshape a_1_2 r] + +set i [explode a_1_2 e] +set m [llength $i] +if { $m != 4 } { + puts "Faulty : The amount of edges in SECOND face is more than four" +} + +set 2dviewer 0 diff --git a/tests/bugs/vis/CR23407_1 b/tests/bugs/vis/CR23407_1 deleted file mode 100755 index 92604ba62c..0000000000 --- a/tests/bugs/vis/CR23407_1 +++ /dev/null @@ -1,60 +0,0 @@ -puts "============" -puts "CR23407" -puts "============" -puts "" -####################################################################### -# Draw face outlines for XDE objects -####################################################################### -pload QAcommands -pload XDEDRAW - -set r_check 1 -set g_check 0 -set b_check 0 -set x1 178 -set y1 36 -set x2 224 -set y2 39 -set x3 244 -set y3 89 - -XNewDoc Doc1 -ReadStep Doc1 [locate_data_file screw.step] -XShow Doc1 0:1:1:1 -XShowFaceBoundary Doc1 0:1:1:1 1 255 0 0 10 1 -vfit -vsetdispmode 1 - -set color1 [ QAGetPixelColor ${x1} ${y1} ] -regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1 -regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1 -regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1 -set status1 0 -if { $rd1 != $r_check || $gr1 != $g_check || $bl1 != $b_check } { - set status1 1 -} - -set color2 [ QAGetPixelColor ${x2} ${y2} ] -regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2 -regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2 -regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2 -set status2 0 -if { $rd2 != $r_check || $gr2 != $g_check || $bl2 != $b_check } { - set status2 1 -} - -set color3 [ QAGetPixelColor ${x3} ${y3} ] -regexp {RED +: +([-0-9.+eE]+)} $color3 full rd3 -regexp {GREEN +: +([-0-9.+eE]+)} $color3 full gr3 -regexp {BLUE +: +([-0-9.+eE]+)} $color3 full bl3 -set status3 0 -if { $rd3 != $r_check || $gr3 != $g_check || $bl3 != $b_check } { - set status3 1 -} - -if { $status1 != 0 && $status2 != 0 && $status3 != 0 } { - puts "Error : color are not equal" - puts "Error : Boundary of face is not changed" -} - -set 3dviewer 2 diff --git a/tests/bugs/vis/CR23407_2 b/tests/bugs/vis/CR23407_2 deleted file mode 100755 index 05fba825c9..0000000000 --- a/tests/bugs/vis/CR23407_2 +++ /dev/null @@ -1,60 +0,0 @@ -puts "============" -puts "CR23407" -puts "============" -puts "" -####################################################################### -# Draw face outlines for XDE objects -####################################################################### -pload QAcommands -pload AISV MODELING - -set r_check 1 -set g_check 0 -set b_check 0 -set x1 183 -set y1 190 -set x2 292 -set y2 358 -set x3 26 -set y3 265 - -box b 10 10 10 -vinit -vdisplay b -vsetdispmode 1 -vshowfaceboundary b 1 255 0 0 10 1 -vfit - -set color1 [ QAGetPixelColor ${x1} ${y1} ] -regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1 -regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1 -regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1 -set status1 0 -if { $rd1 != $r_check || $gr1 != $g_check || $bl1 != $b_check } { - set status1 1 -} - -set color2 [ QAGetPixelColor ${x2} ${y2} ] -regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2 -regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2 -regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2 -set status2 0 -if { $rd2 != $r_check || $gr2 != $g_check || $bl2 != $b_check } { - set status2 1 -} - -set color3 [ QAGetPixelColor ${x3} ${y3} ] -regexp {RED +: +([-0-9.+eE]+)} $color3 full rd3 -regexp {GREEN +: +([-0-9.+eE]+)} $color3 full gr3 -regexp {BLUE +: +([-0-9.+eE]+)} $color3 full bl3 -set status3 0 -if { $rd3 != $r_check || $gr3 != $g_check || $bl3 != $b_check } { - set status3 1 -} - -if { $status1 != 0 && $status2 != 0 && $status3 != 0 } { - puts "Error : color are not equal" - puts "Error : Boundary of face is not changed" -} - -set 3dviewer 2 diff --git a/tests/bugs/vis/CR23425 b/tests/bugs/vis/CR23425 deleted file mode 100755 index c17b645a9b..0000000000 --- a/tests/bugs/vis/CR23425 +++ /dev/null @@ -1,11 +0,0 @@ -puts "============" -puts "CR23425" -puts "============" -puts "" -####################################################################### -# diffimage generate OSD_Exception during execution -####################################################################### - -diffimage [locate_data_file bug23425_B8_Linux.gif] [locate_data_file bug23425_B8_Win.gif] 0.01 0 1 -diffimage [locate_data_file bug23425_B8_Win.gif] [locate_data_file bug23425_B8_Linux.gif] 0.01 0 1 - diff --git a/tests/bugs/vis/bug22835 b/tests/bugs/vis/bug22835 index 11f8feed1c..fe4485ecfc 100755 --- a/tests/bugs/vis/bug22835 +++ b/tests/bugs/vis/bug22835 @@ -14,4 +14,6 @@ vsetdispmode 1 tclean result vdisplay result -set 3dviewer 2 +set 3dviewer 1 + + diff --git a/tests/bugs/vis/bug23120 b/tests/bugs/vis/bug23120 index b17153d695..146aac4990 100755 --- a/tests/bugs/vis/bug23120 +++ b/tests/bugs/vis/bug23120 @@ -67,4 +67,4 @@ if { $rd1 != $r_check || $gr1 != $g_check || $bl1 != $b_check } { puts "OK : Transform persistence is restored" } -set 3dviewer 2 +set only_screen 1 diff --git a/tests/bugs/vis/bug23407_1 b/tests/bugs/vis/bug23407_1 new file mode 100644 index 0000000000..25e0d47897 --- /dev/null +++ b/tests/bugs/vis/bug23407_1 @@ -0,0 +1,61 @@ +puts "============" +puts "CR23407" +puts "============" +puts "" +####################################################################### +# Draw face outlines for XDE objects +####################################################################### +pload QAcommands +pload XDEDRAW + +set r_check 1 +set g_check 0 +set b_check 0 +set x1 178 +set y1 36 +set x2 224 +set y2 39 +set x3 244 +set y3 89 + +XNewDoc Doc1 +ReadStep Doc1 [locate_data_file screw.step] +XShow Doc1 0:1:1:1 +XShowFaceBoundary Doc1 0:1:1:1 1 255 0 0 10 1 +vfit +vsetdispmode 1 + +set color1 [ QAGetPixelColor ${x1} ${y1} ] +regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1 +regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1 +regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1 +set status1 0 +if { $rd1 != $r_check || $gr1 != $g_check || $bl1 != $b_check } { + set status1 1 +} + +set color2 [ QAGetPixelColor ${x2} ${y2} ] +regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2 +regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2 +regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2 +set status2 0 +if { $rd2 != $r_check || $gr2 != $g_check || $bl2 != $b_check } { + set status2 1 +} + +set color3 [ QAGetPixelColor ${x3} ${y3} ] +regexp {RED +: +([-0-9.+eE]+)} $color3 full rd3 +regexp {GREEN +: +([-0-9.+eE]+)} $color3 full gr3 +regexp {BLUE +: +([-0-9.+eE]+)} $color3 full bl3 +set status3 0 +if { $rd3 != $r_check || $gr3 != $g_check || $bl3 != $b_check } { + set status3 1 +} + +if { $status1 != 0 && $status2 != 0 && $status3 != 0 } { + puts "Error : color are not equal" + puts "Error : Boundary of face is not changed" +} + +set only_screen 1 + diff --git a/tests/bugs/vis/bug23407_2 b/tests/bugs/vis/bug23407_2 new file mode 100644 index 0000000000..c0469639a1 --- /dev/null +++ b/tests/bugs/vis/bug23407_2 @@ -0,0 +1,60 @@ +puts "============" +puts "CR23407" +puts "============" +puts "" +####################################################################### +# Draw face outlines for XDE objects +####################################################################### +pload QAcommands +pload AISV MODELING + +set r_check 1 +set g_check 0 +set b_check 0 +set x1 183 +set y1 190 +set x2 292 +set y2 358 +set x3 26 +set y3 265 + +box b 10 10 10 +vinit +vdisplay b +vsetdispmode 1 +vshowfaceboundary b 1 255 0 0 10 1 +vfit + +set color1 [ QAGetPixelColor ${x1} ${y1} ] +regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1 +regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1 +regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1 +set status1 0 +if { $rd1 != $r_check || $gr1 != $g_check || $bl1 != $b_check } { + set status1 1 +} + +set color2 [ QAGetPixelColor ${x2} ${y2} ] +regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2 +regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2 +regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2 +set status2 0 +if { $rd2 != $r_check || $gr2 != $g_check || $bl2 != $b_check } { + set status2 1 +} + +set color3 [ QAGetPixelColor ${x3} ${y3} ] +regexp {RED +: +([-0-9.+eE]+)} $color3 full rd3 +regexp {GREEN +: +([-0-9.+eE]+)} $color3 full gr3 +regexp {BLUE +: +([-0-9.+eE]+)} $color3 full bl3 +set status3 0 +if { $rd3 != $r_check || $gr3 != $g_check || $bl3 != $b_check } { + set status3 1 +} + +if { $status1 != 0 && $status2 != 0 && $status3 != 0 } { + puts "Error : color are not equal" + puts "Error : Boundary of face is not changed" +} + +set only_screen 1 diff --git a/tests/bugs/vis/bug23425 b/tests/bugs/vis/bug23425 new file mode 100644 index 0000000000..c17b645a9b --- /dev/null +++ b/tests/bugs/vis/bug23425 @@ -0,0 +1,11 @@ +puts "============" +puts "CR23425" +puts "============" +puts "" +####################################################################### +# diffimage generate OSD_Exception during execution +####################################################################### + +diffimage [locate_data_file bug23425_B8_Linux.gif] [locate_data_file bug23425_B8_Win.gif] 0.01 0 1 +diffimage [locate_data_file bug23425_B8_Win.gif] [locate_data_file bug23425_B8_Linux.gif] 0.01 0 1 + diff --git a/tests/bugs/vis/bug4894 b/tests/bugs/vis/bug4894 index 8bef714aab..f6f24cc334 100755 --- a/tests/bugs/vis/bug4894 +++ b/tests/bugs/vis/bug4894 @@ -13,6 +13,7 @@ vdisplay result tclean result trinfo result vsetdispmode 1 +vfit set info [trinfo result] regexp { +([-0-9.+eE]+) +triangles} $info full tr regexp { +([-0-9.+eE]+) +nodes} $info full nd @@ -21,4 +22,4 @@ if { $tr <= 0 || $nd <= 0 } { puts "Error : Problems with shading" } -set 3dviewer 2 +set only_screen 1 diff --git a/tests/bugs/xde/CR23384 b/tests/bugs/xde/CR23384 deleted file mode 100755 index ea35d4831f..0000000000 --- a/tests/bugs/xde/CR23384 +++ /dev/null @@ -1,65 +0,0 @@ -# Original bug : 23384 -# Date : 16 Aug 2012 - -if {[array get env os_type] != ""} { - set os $env(os_type) -} -XOpen [locate_data_file bug23384-doc_subshapes.dxc] doc -set info1 [XStat doc] -regexp {level N 0 +: +([-0-9.+eE]+)} $info1 full l0 -regexp {level N 1 +: +([-0-9.+eE]+)} $info1 full l1 -regexp {level N 2 +: +([-0-9.+eE]+)} $info1 full l2 -regexp {level N 3 +: +([-0-9.+eE]+)} $info1 full l3 -regexp {level N 4 +: +([-0-9.+eE]+)} $info1 full l4 -regexp {level N 5 +: +([-0-9.+eE]+)} $info1 full l5 -regexp {level N 6 +: +([-0-9.+eE]+)} $info1 full l6 -regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info1 full nb -regexp {Number of labels with name += +([-0-9.+eE]+)} $info1 full nbname - -param write.stepcaf.subshapes.name 1 -if { [string compare $os "windows"] == 0 } { - WriteStep doc C:/temp/doc_subshapes.stp -} else { - WriteStep doc /tmp/doc_subshapes.stp -} -param read.stepcaf.subshapes.name 1 -if { [string compare $os "windows"] == 0 } { - ReadStep after_doc C:/temp/doc_subshapes.stp -} else { - ReadStep after_doc /tmp/doc_subshapes.stp -} - -set info2 [XStat after_doc] -regexp {level N 0 +: +([-0-9.+eE]+)} $info2 full l0_1 -regexp {level N 1 +: +([-0-9.+eE]+)} $info2 full l1_1 -regexp {level N 2 +: +([-0-9.+eE]+)} $info2 full l2_1 -regexp {level N 3 +: +([-0-9.+eE]+)} $info2 full l3_1 -regexp {level N 4 +: +([-0-9.+eE]+)} $info2 full l4_1 -regexp {level N 5 +: +([-0-9.+eE]+)} $info2 full l5_1 -regexp {level N 6 +: +([-0-9.+eE]+)} $info2 full l6_1 -regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info2 full nb_1 -regexp {Number of labels with name += +([-0-9.+eE]+)} $info2 full nbname_1 - -if { ${l0} != ${l0_1} || - ${l1} != ${l1_1} || - ${l2} != ${l2_1} || - ${l3} != ${l3_1} || - ${l4} != ${l4_1} || - ${l5} != ${l5_1} || - ${l6} != ${l6_1} || - ${nb} != ${nb_1} || - ${nbname} != ${nbname_1} } { - puts "Error : Document is read/written wrong!" -} - - - - - - - - - - - - diff --git a/tests/bugs/xde/bug23193 b/tests/bugs/xde/bug23193 index 8e921e43bb..c68c540ea4 100755 --- a/tests/bugs/xde/bug23193 +++ b/tests/bugs/xde/bug23193 @@ -44,7 +44,7 @@ if { $rd != 0 || $gr != 0 || $bl_1 != 7 } { puts "Error : Color are not equal. There is missing triangle" } -set 3dviewer 2 +set only_screen 1 diff --git a/tests/bugs/xde/bug23384 b/tests/bugs/xde/bug23384 new file mode 100644 index 0000000000..ea35d4831f --- /dev/null +++ b/tests/bugs/xde/bug23384 @@ -0,0 +1,65 @@ +# Original bug : 23384 +# Date : 16 Aug 2012 + +if {[array get env os_type] != ""} { + set os $env(os_type) +} +XOpen [locate_data_file bug23384-doc_subshapes.dxc] doc +set info1 [XStat doc] +regexp {level N 0 +: +([-0-9.+eE]+)} $info1 full l0 +regexp {level N 1 +: +([-0-9.+eE]+)} $info1 full l1 +regexp {level N 2 +: +([-0-9.+eE]+)} $info1 full l2 +regexp {level N 3 +: +([-0-9.+eE]+)} $info1 full l3 +regexp {level N 4 +: +([-0-9.+eE]+)} $info1 full l4 +regexp {level N 5 +: +([-0-9.+eE]+)} $info1 full l5 +regexp {level N 6 +: +([-0-9.+eE]+)} $info1 full l6 +regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info1 full nb +regexp {Number of labels with name += +([-0-9.+eE]+)} $info1 full nbname + +param write.stepcaf.subshapes.name 1 +if { [string compare $os "windows"] == 0 } { + WriteStep doc C:/temp/doc_subshapes.stp +} else { + WriteStep doc /tmp/doc_subshapes.stp +} +param read.stepcaf.subshapes.name 1 +if { [string compare $os "windows"] == 0 } { + ReadStep after_doc C:/temp/doc_subshapes.stp +} else { + ReadStep after_doc /tmp/doc_subshapes.stp +} + +set info2 [XStat after_doc] +regexp {level N 0 +: +([-0-9.+eE]+)} $info2 full l0_1 +regexp {level N 1 +: +([-0-9.+eE]+)} $info2 full l1_1 +regexp {level N 2 +: +([-0-9.+eE]+)} $info2 full l2_1 +regexp {level N 3 +: +([-0-9.+eE]+)} $info2 full l3_1 +regexp {level N 4 +: +([-0-9.+eE]+)} $info2 full l4_1 +regexp {level N 5 +: +([-0-9.+eE]+)} $info2 full l5_1 +regexp {level N 6 +: +([-0-9.+eE]+)} $info2 full l6_1 +regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info2 full nb_1 +regexp {Number of labels with name += +([-0-9.+eE]+)} $info2 full nbname_1 + +if { ${l0} != ${l0_1} || + ${l1} != ${l1_1} || + ${l2} != ${l2_1} || + ${l3} != ${l3_1} || + ${l4} != ${l4_1} || + ${l5} != ${l5_1} || + ${l6} != ${l6_1} || + ${nb} != ${nb_1} || + ${nbname} != ${nbname_1} } { + puts "Error : Document is read/written wrong!" +} + + + + + + + + + + + +