3bea4c16 |
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 | |