809eca9d |
1 | puts "================" |
2 | puts "OCC22762" |
3 | puts "================" |
4 | puts "" |
5 | ###################################################################################### |
6 | # Bug in Graphic3d_Vector::IsParallel |
7 | ###################################################################################### |
8 | |
9 | set BugNumber OCC22762 |
10 | |
11 | set x0 0 |
12 | set y0 0 |
13 | set z0 0 |
14 | set x1 0.57735026 |
15 | set y1 0.57735026 |
16 | set z1 0.57735026 |
17 | set x2 -0.40824828 |
18 | set y2 -0.40824828 |
19 | set z2 0.81649655 |
20 | |
21 | vinit |
22 | vpoint p0 $x0 $y0 $z0 |
23 | vpoint p1 $x1 $y1 $z1 |
24 | vpoint p2 $x2 $y2 $z2 |
25 | vline line1 p0 p1 |
26 | vline line2 p0 p2 |
27 | vfit |
28 | |
29 | set info [ OCC22762 $x1 $y1 $z1 $x2 $y2 $z2] |
30 | set Word [string compare [lindex ${info} end] "false"] |
31 | |
32 | # Resume |
33 | puts "" |
34 | if { ${Word} == 0 } { |
35 | puts "OK ${BugNumber}" |
36 | } else { |
37 | puts "Faulty ${BugNumber}" |
38 | } |
39 | |
40 | set only_screen 1 |
41 | |
42 | |
43 | |