[occt.git] / tests / bugs / modalg_7 / bug30395

puts "========"
puts "0030395: DRAW bop: Some sub-shapes of some of the argument become connected through other shapes and the argument became self-interfered."
puts "========"
puts ""

restore [locate_data_file bug30395_s1.brep] s1
restore [locate_data_file bug30395_fds.brep] fds

bclearobjects
bcleartools
baddobjects s1
baddtools fds
bfillds

bbop rcommon 0
bbop rfuse 1
bbop rcut 2
bbop rcut21 3
bbop rsection 4

foreach r {rcommon rfuse rcut rcut21 rsection} {
  checkshape $r
  if {![regexp "OK" [bopcheck $r]]} {
    puts "Error: $r is self-interfered shape"
  }
}

checknbshapes rcommon -wire 8 -face 8 -shell 1 -solid 1
checkprops rcommon -s 11331.9 -v 30686.2

checknbshapes rfuse -wire 14 -face 12 -shell 1 -solid 1
checkprops rfuse -s 105935 -v 362551

checknbshapes rcut -wire 14 -face 12 -shell 1 -solid 1
checkprops rcut -s 21665.6 -v 25031.2

checknbshapes rcut21 -wire 8 -face 8 -shell 1 -solid 1
checkprops rcut21 -s 95601 -v 306833

checksection rsection -r 0
checkprops rsection -l 554.848

checkview -display rcommon -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
d4db985b	1	puts "========"
	2	puts "0030395: DRAW bop: Some sub-shapes of some of the argument become connected through other shapes and the argument became self-interfered."
	3	puts "========"
	4	puts ""
	5
	6	restore [locate_data_file bug30395_s1.brep] s1
	7	restore [locate_data_file bug30395_fds.brep] fds
	8
	9	bclearobjects
	10	bcleartools
	11	baddobjects s1
	12	baddtools fds
	13	bfillds
	14
	15	bbop rcommon 0
	16	bbop rfuse 1
	17	bbop rcut 2
	18	bbop rcut21 3
	19	bbop rsection 4
	20
	21	foreach r {rcommon rfuse rcut rcut21 rsection} {
	22	checkshape $r
	23	if {![regexp "OK" [bopcheck $r]]} {
	24	puts "Error: $r is self-interfered shape"
	25	}
	26	}
	27
	28	checknbshapes rcommon -wire 8 -face 8 -shell 1 -solid 1
	29	checkprops rcommon -s 11331.9 -v 30686.2
	30
	31	checknbshapes rfuse -wire 14 -face 12 -shell 1 -solid 1
	32	checkprops rfuse -s 105935 -v 362551
	33
	34	checknbshapes rcut -wire 14 -face 12 -shell 1 -solid 1
	35	checkprops rcut -s 21665.6 -v 25031.2
	36
	37	checknbshapes rcut21 -wire 8 -face 8 -shell 1 -solid 1
	38	checkprops rcut21 -s 95601 -v 306833
	39
	40	checksection rsection -r 0
	41	checkprops rsection -l 554.848
	42
	43	checkview -display rcommon -2d -path ${imagedir}/${test_image}.png