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

puts "============"
puts "OCC5805"
puts "============"

#######################################################################
# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
#######################################################################

set BugNumber OCC5805

# 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_2 s_3} $calcul $type }


set square 982.254

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

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"
  
}


set 2dviewer 0
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC5805"
	3	puts "============"
	4
	5	#######################################################################
	6	# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
	7	#######################################################################
	8
	9	set BugNumber OCC5805
	10
	11	# ellipse1
	12	ellipse ell 10 0 0 1 0 0 5 3
	13	mkedge ee1 ell
	14	wire UpCover ee1
	15
	16	# ellipse2
	17	copy ee1 ee2
	18	ttranslate ee2 -20 0 0
	19	wire BottomCover ee2
	20
	21	set issolid 1
	22	set isruled 1
	23	if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
	24	puts "Faulty ${BugNumber} : thrusections is wrong"
	25
	26	}
	27
	28	set distance -0.5
	29	catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
	30
	31
	32	set square 982.254
	33
a4eba920	34	checknbshapes result -vertex 3 -edge 5 -wire 6 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 20
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
	49	set 2dviewer 0