[occt.git] / tests / bugs / modalg_2 / bug251_1

puts "================"
puts "OCC251: Section of two faces f1 and f2 depends on order of arguments:  section r1 f1 f2 and section r2 f2 f1 give different results, one of result is invalid - overlapped edges."
puts "================"
puts ""

restore [locate_data_file OCC251.brep] f 
explode f
checkshape f_1
checkshape f_2

bsection result f_1 f_2
explode result

foreach a [explode result e] {
  foreach b [explode result e] {
    if { ![regexp {not} [compare b_1 n_1]] } {
      continue;
    }
    
    set coe [checkoverlapedges e1 e2 5.0e-5]

    puts "$a <-> $b: $coe"
    if { [regexp "Edges are not overlapped" $coe] != 1 } {
      puts "Error: $a and $b are overlapped"
    }
  }
}

checkprops result -l 1. 
checkshape result 
checksection result -r 2

smallview
don result*
fit

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
a87752f3	1	puts "================"
e121dd4d	2	puts "OCC251: Section of two faces f1 and f2 depends on order of arguments: section r1 f1 f2 and section r2 f2 f1 give different results, one of result is invalid - overlapped edges."
a87752f3	3	puts "================"
a87752f3	4	puts ""
a87752f3	5
	6	restore [locate_data_file OCC251.brep] f
	7	explode f
352ffd73	8	checkshape f_1
352ffd73	9	checkshape f_2
a87752f3	10
	11	bsection result f_1 f_2
	12	explode result
	13
e121dd4d	14	foreach a [explode result e] {
	15	foreach b [explode result e] {
	16	if { ![regexp {not} [compare b_1 n_1]] } {
	17	continue;
	18	}
	19
	20	set coe [checkoverlapedges e1 e2 5.0e-5]
	21
	22	puts "$a <-> $b: $coe"
7b5e532f	23	if { [regexp "Edges are not overlapped" $coe] != 1 } {
7b5e532f	24	puts "Error: $a and $b are overlapped"
a87752f3	25	}
e121dd4d	26	}
a87752f3	27	}
a87752f3	28
58cf74e0	29	checkprops result -l 1.
58cf74e0	30	checkshape result
e121dd4d	31	checksection result -r 2
	32
	33	smallview
	34	don result*
	35	fit
	36
	37	checkview -screenshot -2d -path ${imagedir}/${test_image}.png