1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-09 18:50:54 +03:00
occt/tests/bugs/modalg_2/bug23162_4
ski a8676008f7 Adding of testing cases from subgroups 937 940 and 941 of CHL group
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing
Correction of end file in group v3d
Small correction of test case
2013-02-08 15:16:15 +04:00

48 lines
877 B
Plaintext
Executable File

puts "================"
puts "OCC23162"
puts "================"
puts ""
##############################################################################
# BRepOffsetAPI_MakePipeShell works wrong
##############################################################################
set BugNumber OCC23162
catch {pload XDE}
set status 0
set radius 0.1
puts "------------- Radius $radius"
# make a ring quarter
vertex v1 [expr $radius / 2] 0 0
vertex v2 $radius 0 0
edge e v1 v2
revol rq e 0 0 0 0 0 1 45
# make rq scaled and translated
scaleshape rq2 rq 0.2
ttranslate rq2 0 0 $radius
# get wires of rq
explode rq W
explode rq2 W
# make a spine
vertex v1 0 0 0
vertex v2 0 0 $radius
edge e v1 v2
wire spine e
# make a pipe
mksweep spine
addsweep rq_1 v1
addsweep rq2_1 v2
buildsweep result
# BUG: a pipe is invalid
checkshape result -short
set square 0.0145725
set 3dviewer 0