Adjusting testing cases for current state of OCCT.
[occt.git] / tests / bugs / modalg / bug23367_13
1 puts "============"
2 puts "CR23367"
3 puts "============"
4 puts ""
5 ##########################################################################################################
6 # New functionality restoring the middle path of pipe-like shape
7 ##########################################################################################################
8
9 polyline pp 0 0 0 10 0 0 20 10 0 20 20 0
10 polyline sp 0 0 0 0 0 100 -50 50 200 -100 100 100
11 mksweep sp
12 addsweep pp
13 buildsweep a -R
14 explode a e
15 wire w1 a_2 a_5 a_8
16 wire w2 a_24 a_27 a_30
17 donly a w1 w2
18 fit
19 middlepath result a w1 w2
20
21 set length 352.512
22
23 set 2dviewer 1
24
25
26
27