7 ######################################################
8 # IntCurvesFace_ShapeIntersector does not find intersection point
9 ######################################################
11 set BugNumber OCC17424
13 restore [locate_data_file OCC17424.brep] a
15 set X_Pnt 86.960439048069262
16 set Y_Pnt 1028.2863798310484
17 set Z_Pnt -266.58526583558000
19 set X_Dir 0.25881904510252074
21 set Z_Dir -0.96592582628906831
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
28 if { ${aStatus} != 0 } {
29 puts "Faulty ${BugNumber}"
31 puts "OK ${BugNumber}"