[occt.git] / tests / feat / featprism / O1

# Original bug : cts21126
# Date : 25 Nov 98

restore [locate_data_file cts21126_base.brep] base

circle c1 0 0 0 0 0 1 1 0 0 6.3
mkedge e1 c1
wire w1 e1
mkplane cont w1 0

# offset de 4 sur face base_3
explode base face
copy base_3 funtil
ttranslate funtil 0 0 -4

#depression until+offset
featprism base cont cont 0 0 1 0 1
featperform prism result funtil

set square 2976.57
Commit	Line	Data
40093367	1	# Original bug : cts21126
	2	# Date : 25 Nov 98
	3
8418c617	4	restore [locate_data_file cts21126_base.brep] base
40093367	5
	6	circle c1 0 0 0 0 0 1 1 0 0 6.3
	7	mkedge e1 c1
	8	wire w1 e1
	9	mkplane cont w1 0
	10
	11	# offset de 4 sur face base_3
	12	explode base face
	13	copy base_3 funtil
	14	ttranslate funtil 0 0 -4
	15
	16	#depression until+offset
	17	featprism base cont cont 0 0 1 0 1
	18	featperform prism result funtil
	19
	20	set square 2976.57