3bea4c16 |
1 | puts "============" |
2 | puts "OCC9303" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Intersection curve surface doesn't take account of bounds of the surface |
7 | ###################################################### |
8 | |
9 | set BugNumber OCC9303 |
10 | |
11 | cone c 0 0 0 30 0 |
12 | trimv nc c 20 30 |
13 | |
14 | smallview +X+Z |
15 | donly nc |
16 | fit |
17 | |
18 | line ll 0 0 10 1 0 0 |
19 | |
3bea4c16 |
20 | if [catch {intersect res ll nc} result] { |
21 | set mistake 1 |
22 | } else { |
23 | set mistake 0 |
24 | } |
3bea4c16 |
25 | |
26 | if { $mistake == 0} { |
27 | puts "${BugNumber} OK : intersection was finished" |
28 | puts "" |
29 | set nom 0 |
30 | set j 1 |
31 | repeat 2 { |
32 | set che [whatis res_$j] |
33 | set err [lindex $che [expr [llength $che] - 1]] |
34 | if { $err != "point"} { |
35 | break |
36 | } else { |
37 | set nom [expr $nom + 1] |
38 | } |
39 | incr j |
40 | } |
41 | if { $nom != 0 } { |
42 | puts [format "Faulty ${BugNumber}: Intersection was made WRONGLY: %s points" $nom] |
43 | } else { |
44 | puts [format "${BugNumber} OK : Intersection command works properly: %s points" $nom] |
45 | } |
46 | } else { |
47 | puts "Faulty ${BugNumber} : intersection does not finished" |
48 | } |
49 | |