Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug23367_3
CommitLineData
2277323d 1puts "============"
2puts "CR23367"
3puts "============"
4puts ""
5##########################################################################################################
6# New functionality restoring the middle path of pipe-like shape
7##########################################################################################################
8
9polyline pp 0 0 0 5 0 0 10 0 0 10 10 0 0 10 0 0 0 0
10mkplane ff pp
11prism a ff 0 0 50
12explode a f
13donly a a_6 a_7
14fit
15middlepath result a a_6 a_7
16
17set length 50.
18
19set 2dviewer 1
20
21
22