tests/bugs/moddata_1/bug17424

   1 pload QAcommands
   2
   3 puts "============"
   4 puts "OCC17424"
   5 puts "============"
   6 puts ""
   7 ######################################################
   8 # IntCurvesFace_ShapeIntersector does not find intersection point
   9 ######################################################
  10
  11 set BugNumber OCC17424
  12
  13 restore [locate_data_file OCC17424.brep] a
  14
  15 set X_Pnt 86.960439048069262
  16 set Y_Pnt 1028.2863798310484
  17 set Z_Pnt -266.58526583558000
  18
  19 set X_Dir 0.25881904510252074
  20 set Y_Dir 0
  21 set Z_Dir -0.96592582628906831
  22
  23 set PInf 0.
  24
  25 set aStatusList [OCC17424 a ${X_Pnt} ${Y_Pnt} ${Z_Pnt} ${X_Dir} ${Y_Dir} ${Z_Dir} ${PInf}]
  26 regexp {OCC17424 status = +([-0-9.+eE]+)} ${aStatusList} full aStatus
  27
  28 if { ${aStatus} != 0 } {
  29    puts "Faulty ${BugNumber}"
  30 } else {
  31    puts "OK ${BugNumber}"
  32 }
  33