1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
puts "============"
puts "OCC1477"
puts "============"
puts ""
######################################################
# Problems in MakePipeShell
# (case 18)
# test5.tcl
######################################################
polyline s1 0 0 0 10 0 0 10 10 0
polyline w2 0 -10 0 20 -10 10 20 10 0
pbsplinecurve 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
mkedge e3 c3
wire s2 e3
puts "###############################################################################"
puts "# (case /-G/-/-R/)"
puts "###############################################################################"
set setsweepOptions "-G w2 0 0"
set addsweepOptions ""
set buildsweepOptions "-R"
set square 242.434
set nb_v_good 7
set nb_e_good 13
set nb_w_good 4
set nb_f_good 4
set nb_sh_good 1
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 0
set nb_shape_good 29
set 2dviewer 0
|
