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

# Original bug : cts20077
# Date : 25 Nov 98

restore [locate_data_file cts20077_base.brep] base
restore [locate_data_file cts20077_face.brep] cont

explode base face
copy base_5 skface

featprism base cont skface 0 0 -1 0 1
featperformval prism result 100

set square 4909.72
Commit	Line	Data
40093367	1	# Original bug : cts20077
	2	# Date : 25 Nov 98
	3
8418c617	4	restore [locate_data_file cts20077_base.brep] base
8418c617	5	restore [locate_data_file cts20077_face.brep] cont
40093367	6
	7	explode base face
	8	copy base_5 skface
	9
	10	featprism base cont skface 0 0 -1 0 1
	11	featperformval prism result 100
	12
	13	set square 4909.72