3bea4c16 |
1 | puts "============" |
2 | puts "OCC13395" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Pipe is constructed wrongly on a result of revolution |
7 | ####################################################################### |
8 | |
9 | # revolution of an edge to obtain half-disk |
10 | line line1 0 0 0 1 0 0 |
11 | mkedge edge1 line1 0 10 |
12 | revol revol1 edge1 0 0 0 0 1 0 180 |
13 | |
14 | # spine for pipe |
15 | line line2 0 0 0 0 1 0 |
16 | mkedge edge2 line2 0 10 |
17 | wire wire_spine edge2 |
18 | |
19 | # invalid pipe |
20 | pipe result wire_spine revol1 |
21 | |
22 | set square 828.319 |
23 | set good_vertex 6 |
24 | set good_edge 9 |
25 | set good_wire 5 |
26 | set good_face 5 |
27 | set explode_v_length [llength [explode result v] ] |
28 | set explode_e_length [llength [explode result e] ] |
29 | set explode_w_length [llength [explode result w] ] |
30 | set explode_f_length [llength [explode result f] ] |
31 | |
32 | if { ${explode_v_length} != ${good_vertex} } { |
33 | puts "vertex: Faulty" |
34 | } else { |
35 | puts "vertex: OK" |
36 | } |
37 | if { ${explode_e_length} != ${good_edge} } { |
38 | puts "edge: Faulty" |
39 | } else { |
40 | puts "edge: OK" |
41 | } |
42 | if { ${explode_w_length} != ${good_wire} } { |
43 | puts "wire: Faulty" |
44 | } else { |
45 | puts "wire: OK" |
46 | } |
47 | if { ${explode_f_length} != ${good_face} } { |
48 | puts "face: Faulty" |
49 | } else { |
50 | puts "face: OK" |
51 | } |
52 | |
53 | set 2dviewer 0 |
54 | |