Adjusting testing cases for current state of OCCT
[occt.git] / tests / pipe / specific / K2
CommitLineData
228148b3 1puts "============"
2puts "OCC1477"
3puts "============"
4puts ""
5######################################################
6# Problems in MakePipeShell
7# (case 18)
8# test5.tcl
9######################################################
10
11polyline s1 0 0 0 10 0 0 10 10 0
12
13polyline w2 0 -10 0 20 -10 10 20 10 0
14
15pbsplinecurve c3 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 0 -1 0 1 0 -2 2 1 0 0 1 1 0 2 2 1 0 1 0 1 0 2 -2 1 0 0 -1 1 0 -2 -2 1
16mkedge e3 c3
17wire s2 e3
18
19puts "###############################################################################"
20puts "# (case /-G/-/-R/)"
21puts "###############################################################################"
22
23set setsweepOptions "-G w2 0 0"
24set addsweepOptions ""
25set buildsweepOptions "-R"
26
27set square 242.434
28
29set nb_v_good 7
30set nb_e_good 13
31set nb_w_good 4
32set nb_f_good 4
33set nb_sh_good 1
34set nb_sol_good 0
35set nb_compsol_good 0
36set nb_compound_good 0
37set nb_shape_good 29
38
39set 2dviewer 0