0024142: Wrong section curve
[occt.git] / tests / bugs / moddata_3 / bug24142
1 puts "================"
2 puts "OCC24142"
3 puts "================"
4 puts ""
5 #################################################################
6 ## Wrong section curve
7 #################################################################
8
9 restore [locate_data_file OCC152.brep] sh
10 explode sh f
11
12 mksurface s1 sh_3
13 mksurface s2 sh_5
14
15 trim st1 s1 0 6.28318530717959 0 74.9999999999999
16 trim st2 s2 0 6.28318530717959 -74.0551172696384 125.944882730362
17
18 intersect i st1 st2
19
20 dlog reset
21 dlog on
22 xdistcs i st2 0 1 10
23 set log_on [dlog get]
24
25 if { [regexp "i is null curve" ${log_on}] != 1 } {
26    puts "Error : Wrong section curve"
27 }
28
29 set 2dviewer 1