From 3a91994fedf95cfcb37a6c7b9ce850c3344e346b Mon Sep 17 00:00:00 2001 From: apv Date: Tue, 16 Jun 2015 12:39:54 +0300 Subject: [PATCH] Test-cases for issues #26305 and #26315 --- tests/bugs/modalg_6/bug26305_1 | 34 ++++++++++++++++++++++++++++++++++ tests/bugs/modalg_6/bug26305_2 | 34 ++++++++++++++++++++++++++++++++++ tests/bugs/modalg_6/bug26305_3 | 34 ++++++++++++++++++++++++++++++++++ tests/bugs/modalg_6/bug26315 | 29 +++++++++++++++++++++++++++++ 4 files changed, 131 insertions(+) create mode 100644 tests/bugs/modalg_6/bug26305_1 create mode 100644 tests/bugs/modalg_6/bug26305_2 create mode 100644 tests/bugs/modalg_6/bug26305_3 create mode 100644 tests/bugs/modalg_6/bug26315 diff --git a/tests/bugs/modalg_6/bug26305_1 b/tests/bugs/modalg_6/bug26305_1 new file mode 100644 index 0000000000..e6bcb79a75 --- /dev/null +++ b/tests/bugs/modalg_6/bug26305_1 @@ -0,0 +1,34 @@ +puts "========" +puts "OCC26305" +puts "========" +puts "" +################################################### +# BRepFeat_MakePrism returns inconsistent results +################################################### + +circle aCircle -9 -9 0 0 0 1 1 0 0 10 +mkedge anEdge aCircle +wire aWire anEdge +mkplane aCircle aWire 0 + +plane aFromPlane 0 0 -10 0 0 1 1 0 0 +mkface aFromPlane aFromPlane +plane aToPlane 0 0 10 0 0 1 1 0 0 +mkface aToPlane aToPlane + +featprism aCircle aCircle aCircle 0 0 1 2 1 +featperform prism aResult aFromPlane aToPlane + +checkshape aResult + +vinit +vdisplay aResult +vsetdispmode aResult 1 +vfit + +set bug_info [vreadpixel 300 340 name] +if {$bug_info == "BLACK 0"} { + puts "ERROR: OCC26305 is reproduced. Prism is incorrect." +} + +set only_screen 1 diff --git a/tests/bugs/modalg_6/bug26305_2 b/tests/bugs/modalg_6/bug26305_2 new file mode 100644 index 0000000000..ae8a4c6c79 --- /dev/null +++ b/tests/bugs/modalg_6/bug26305_2 @@ -0,0 +1,34 @@ +puts "========" +puts "OCC26305" +puts "========" +puts "" +################################################### +# BRepFeat_MakePrism returns inconsistent results +################################################### + +circle aCircle -10 -10 0 0 0 1 1 0 0 10 +mkedge anEdge aCircle +wire aWire anEdge +mkplane aCircle aWire 0 + +plane aFromPlane 0 0 -10 0 0 1 1 0 0 +mkface aFromPlane aFromPlane +plane aToPlane 0 0 10 0 0 1 1 0 0 +mkface aToPlane aToPlane + +featprism aCircle aCircle aCircle 0 0 1 2 1 +featperform prism aResult aFromPlane aToPlane + +checkshape aResult + +vinit +vdisplay aResult +vsetdispmode aResult 1 +vfit + +set bug_info [vreadpixel 300 340 name] +if {$bug_info == "BLACK 0"} { + puts "ERROR: OCC26305 is reproduced. Prism is incorrect." +} + +set only_screen 1 diff --git a/tests/bugs/modalg_6/bug26305_3 b/tests/bugs/modalg_6/bug26305_3 new file mode 100644 index 0000000000..076cb754eb --- /dev/null +++ b/tests/bugs/modalg_6/bug26305_3 @@ -0,0 +1,34 @@ +puts "========" +puts "OCC26305" +puts "========" +puts "" +################################################### +# BRepFeat_MakePrism returns inconsistent results +################################################### + +circle aCircle 0 0 0 0 0 1 1 0 0 10 +mkedge anEdge aCircle +wire aWire anEdge +mkplane aCircle aWire 0 + +plane aFromPlane 0 0 10 0 0 1 1 0 0 +mkface aFromPlane aFromPlane +plane aToPlane 0 0 20 0 0 1 1 0 0 +mkface aToPlane aToPlane + +featprism aCircle aCircle aCircle 0 0 1 2 1 +featperform prism aResult aToPlane aFromPlane + +checkshape aResult + +vinit +vdisplay aResult +vsetdispmode aResult 1 +vfit + +set bug_info [vreadpixel 300 300 name] +if {$bug_info == "BLACK 0"} { + puts "ERROR: OCC26305 is reproduced. Prism is incorrect." +} + +set only_screen 1 diff --git a/tests/bugs/modalg_6/bug26315 b/tests/bugs/modalg_6/bug26315 new file mode 100644 index 0000000000..9a018e696e --- /dev/null +++ b/tests/bugs/modalg_6/bug26315 @@ -0,0 +1,29 @@ +puts "========" +puts "OCC26315" +puts "========" +puts "" +####################################################### +# BRepFeat_MakeRevol fails to create revol from shape +####################################################### + +circle aCircle 0 0 0 0 0 1 1 0 0 10 +mkedge anEdge aCircle +wire aWire anEdge +mkplane aCircle aWire 0 + +plane aFromPlane 0 0 -10 0 0 1 1 0 0 +mkface aFromPlane aFromPlane +plane aToPlane 0 0 10 0 0 1 1 0 0 +mkface aToPlane aToPlane + +featrevol aCircle aCircle aCircle 20 0 0 0 1 0 2 1 +featperform revol aResult aFromPlane aToPlane + +checkshape aResult + +vinit +vdisplay aResult +vsetdispmode aResult 1 +vfit + +set only_screen 1