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

# cts20088
puts "TODO OCC22810 ALL: Error : The area of the resulting shape is"

restore [locate_data_file cts20088_base.brep] base
restore [locate_data_file contour_pkv.rle] cont

explode base face

mksurface p54 base_54
mkface f54 p54
mksurface p55 base_55
mkface f55 p55

featprism base cont cont 1 0 0 1 1
featperform prism result f54 f55

set square 7238.64
Commit	Line	Data
40093367	1	# cts20088
4e57c75e	2	puts "TODO OCC22810 ALL: Error : The area of the resulting shape is"
40093367	3
34dd4990	4	restore [locate_data_file cts20088_base.brep] base
8418c617	5	restore [locate_data_file contour_pkv.rle] cont
40093367	6
	7	explode base face
	8
	9	mksurface p54 base_54
	10	mkface f54 p54
	11	mksurface p55 base_55
	12	mkface f55 p55
	13
	14	featprism base cont cont 1 0 0 1 1
	15	featperform prism result f54 f55
	16
	17	set square 7238.64