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

puts "============"
puts "OCC5805"
puts "============"
#######################################################################
# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
#######################################################################

set BugNumber OCC5805
cpulimit 1400
# ellipse1
ellipse ell 10 0 0 1 0 0 5 3
mkedge ee1 ell
wire UpCover ee1

# ellipse2
copy ee1 ee2
ttranslate ee2 -20 0 0
wire BottomCover ee2

set issolid 1
set isruled 1
if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
   puts "Faulty ${BugNumber} : thrusections is wrong"
   
}

set distance -0.5
catch { OFFSETSHAPE $distance {s_3} $calcul $type }


checkprops result -s 1065.08
checkshape result

checknbshapes result -vertex 3 -edge 5 -wire 6 -face 5 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 21

set index [lsearch [whatis s] Closed]
if {$index == -1} {
  puts "Faulty ${BugNumber} : s is not Closed shape"
  
}

set index [lsearch [whatis result] Closed]
if {$index == -1} {
  puts "Faulty ${BugNumber} : result is not Closed shape"
  
}


checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC5805"
	3	puts "============"
	4	#######################################################################
	5	# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
	6	#######################################################################
	7
	8	set BugNumber OCC5805
	9	cpulimit 1400
	10	# ellipse1
	11	ellipse ell 10 0 0 1 0 0 5 3
	12	mkedge ee1 ell
	13	wire UpCover ee1
	14
	15	# ellipse2
	16	copy ee1 ee2
	17	ttranslate ee2 -20 0 0
	18	wire BottomCover ee2
	19
	20	set issolid 1
	21	set isruled 1
	22	if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
	23	puts "Faulty ${BugNumber} : thrusections is wrong"
	24
	25	}
	26
	27	set distance -0.5
	28	catch { OFFSETSHAPE $distance {s_3} $calcul $type }
	29
	30
58cf74e0	31	checkprops result -s 1065.08
58cf74e0	32	checkshape result
3bea4c16	33
a4eba920	34	checknbshapes result -vertex 3 -edge 5 -wire 6 -face 5 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 21
3bea4c16	35
	36	set index [lsearch [whatis s] Closed]
	37	if {$index == -1} {
	38	puts "Faulty ${BugNumber} : s is not Closed shape"
	39
	40	}
	41
	42	set index [lsearch [whatis result] Closed]
	43	if {$index == -1} {
	44	puts "Faulty ${BugNumber} : result is not Closed shape"
	45
	46	}
	47
	48
5747059b	49	checkview -display result -2d -path ${imagedir}/${test_image}.png