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 set only_screen 1
  41
  42
  43