mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
48 lines
937 B
Plaintext
Executable File
48 lines
937 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC23162"
|
|
puts "================"
|
|
puts ""
|
|
##############################################################################
|
|
# BRepOffsetAPI_MakePipeShell works wrong
|
|
##############################################################################
|
|
|
|
set BugNumber OCC23162
|
|
|
|
catch {pload XDE}
|
|
|
|
set status 0
|
|
|
|
set radius 10.
|
|
puts "------------- Radius $radius"
|
|
# make a ring quarter
|
|
vertex v1 [expr $radius / 2] 0 0
|
|
vertex v2 $radius 0 0
|
|
edge e v1 v2
|
|
revol rq e 0 0 0 0 0 1 45
|
|
|
|
# make rq scaled and translated
|
|
scaleshape rq2 rq 0.2
|
|
ttranslate rq2 0 0 $radius
|
|
|
|
# get wires of rq
|
|
explode rq W
|
|
explode rq2 W
|
|
|
|
# make a spine
|
|
vertex v1 0 0 0
|
|
vertex v2 0 0 $radius
|
|
edge e v1 v2
|
|
wire spine e
|
|
|
|
# make a pipe
|
|
mksweep spine
|
|
addsweep rq_1 v1
|
|
addsweep rq2_1 v2
|
|
buildsweep result
|
|
|
|
# BUG: a pipe is invalid
|
|
checkshape result -short
|
|
|
|
checkprops result -s 145.725
|
|
checkview -display result -3d -path ${imagedir}/${test_image}.png
|