0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug27648
CommitLineData
e67e482d 1puts "========"
2puts "OCC27648"
3puts "========"
4puts ""
5#################################################
6# Regression vs 6.7.1: General Fuse operation fails to fuse the solids
7#################################################
8
9restore [locate_data_file bug27648_simple.brep] s
10explode s
11bsection r s_1 s_2
12explode s_2 f
13
14# find section edge belonging to the face s_2_3
15foreach e [explode r e] {
16 if {[catch {mk2dcurve c2d $e s_2_3}] == 0} {
17 break
18 }
19}
20
21mkcurve c $e
22
23# in a loop, check that curve has increased Z value along its length
98974dcc 24bounds c u1 u2
25set delta [dval (u2-u1)/1000.0]
e67e482d 26cvalue c 0 xp yp zp
98974dcc 27for {set p [dval u1] } {$p <= [dval u2] } {set p [expr $p + $delta]} {
e67e482d 28 cvalue c $p x y z
29 if {[dval z] < [dval zp]} {
30 puts "Error on parameter $p"
31 }
32 copy z zp
33}