tests/lowalgos/intss/bug20766

   1 pload QAcommands
   2
   3 puts "============"
   4 puts "OCC20766"
   5 puts "============"
   6 puts ""
   7 #######################################################################
   8 # Intersection of cone with plane in apex point crashes
   9 #######################################################################
  10
  11 set BugNumber OCC20766
  12
  13 OCC20766 plane 1 0 0 3522.4299999999998
  14
  15 set x -3522.4299999999998
  16 set y 2540
  17 set z -1461.4300000000001
  18 set dx 5449.7857099692965
  19 set dy 0
  20 set dz 5537.6938973109054
  21 set PI180 0.017453292519943295
  22 set semi-angle [expr 0.46689346637921703 / ${PI180}]
  23 set radius 0.
  24
  25 cone c ${x} ${y} ${z} ${dx} ${dy} ${dz} ${semi-angle} ${radius}
  26
  27 if [catch { intersect result plane c } ] {
  28   puts "Faulty ${BugNumber} : intersect is wrong"
  29 } else {
  30   puts "OK ${BugNumber}"
  31 }
  32
  33 checkview -display result -2d -path ${imagedir}/${test_image}.png
  34