0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug22762
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 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
41
42
43