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

# Original bug : pro16810
# Date : 07 Dec 98

restore [locate_data_file CFE900_pro16gfj.rle] base

circle cercle 0 0 0 0 0 1 10
mkedge edge cercle
wire wire edge
mkplane cont wire

explode base face
copy base_6 funtil

featprism base cont cont 0 0 1 1 1
featperform prism result funtil

set square 28559.8
Commit	Line	Data
40093367	1	# Original bug : pro16810
	2	# Date : 07 Dec 98
	3
34dd4990	4	restore [locate_data_file CFE900_pro16gfj.rle] base
40093367	5
	6	circle cercle 0 0 0 0 0 1 10
	7	mkedge edge cercle
	8	wire wire edge
	9	mkplane cont wire
	10
	11	explode base face
	12	copy base_6 funtil
	13
	14	featprism base cont cont 0 0 1 1 1
	15	featperform prism result funtil
	16
	17	set square 28559.8