[occt.git] / tests / thrusection / specific / I2

puts "============"
puts "OCC7166"
puts "============"
puts ""
#######################################################################
# Improvement of API of ThruSection
#######################################################################

set BugNumber OCC7166

# spine
polyline s1 0 0 20 0 0 -20

# profile
circle c1 0 0 0 5
mkedge ec1 c1
wire s2 ec1

# 1 vertex
vertex v1 0 0 -20

mksweep s1

addsweep v1
addsweep s2

buildsweep result


set square 1294.43

checknbshapes result -vertex 2 -edge 3 -wire 1 -face 1 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 8


set 3dviewer 0
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC7166"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Improvement of API of ThruSection
	7	#######################################################################
	8
	9	set BugNumber OCC7166
	10
	11	# spine
	12	polyline s1 0 0 20 0 0 -20
	13
	14	# profile
	15	circle c1 0 0 0 5
	16	mkedge ec1 c1
	17	wire s2 ec1
	18
	19	# 1 vertex
	20	vertex v1 0 0 -20
	21
	22	mksweep s1
	23
	24	addsweep v1
	25	addsweep s2
	26
	27	buildsweep result
	28
	29
	30	set square 1294.43
	31
a4eba920	32	checknbshapes result -vertex 2 -edge 3 -wire 1 -face 1 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 8
3bea4c16	33
	34
	35	set 3dviewer 0
	36