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