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

# Original bug : cts21322
# Date : 16 Sept 98

restore [locate_data_file contour.rle] cont
mkplane cont cont

puts "*"

restore [locate_data_file CFE900_cts21gbs.rle] base
restore [locate_data_file cts21322_face.rle] wire

explode base face
copy base_6 fsketch

splitshape cont1 fsketch fsketch wire
explode cont1
bcut cont fsketch cont1_1

featprism base cont fsketch 1 0 0 0 1
if { [catch { featperform prism result } ] != 0 } {
  puts "Error in featperform"
}

set square 683.581
Commit	Line	Data
40093367	1	# Original bug : cts21322
	2	# Date : 16 Sept 98
	3
8418c617	4	restore [locate_data_file contour.rle] cont
40093367	5	mkplane cont cont
	6
	7	puts "*"
	8
34dd4990	9	restore [locate_data_file CFE900_cts21gbs.rle] base
8418c617	10	restore [locate_data_file cts21322_face.rle] wire
40093367	11
	12	explode base face
	13	copy base_6 fsketch
	14
	15	splitshape cont1 fsketch fsketch wire
	16	explode cont1
	17	bcut cont fsketch cont1_1
	18
	19	featprism base cont fsketch 1 0 0 0 1
	20	if { [catch { featperform prism result } ] != 0 } {
	21	puts "Error in featperform"
	22	}
	23
4e57c75e	24	set square 683.581