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

# Original bug : cts21322
# Date : 16 Sept 98

restore [locate_data_file contour.rle] cont
mkplane cont cont

puts "*"

puts "TODO OCC22810 ALL:Error in featperform"
puts "TODO OCC22810 ALL:Error : The feat grid cannot be built."

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 0
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
	9	puts "TODO OCC22810 ALL:Error in featperform"
6aac585a	10	puts "TODO OCC22810 ALL:Error : The feat grid cannot be built."
40093367	11
34dd4990	12	restore [locate_data_file CFE900_cts21gbs.rle] base
8418c617	13	restore [locate_data_file cts21322_face.rle] wire
40093367	14
	15	explode base face
	16	copy base_6 fsketch
	17
	18	splitshape cont1 fsketch fsketch wire
	19	explode cont1
	20	bcut cont fsketch cont1_1
	21
	22	featprism base cont fsketch 1 0 0 0 1
	23	if { [catch { featperform prism result } ] != 0 } {
	24	puts "Error in featperform"
	25	}
	26
	27	set square 0