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

puts "TODO ?OCC12345 ALL: Error : The feat grid is not valid. The area is 0."
puts "TODO ?OCC12345 ALL: Error : The area of the resulting shape is 0"

restore [locate_data_file cylindre.rle] cyl
restore [locate_data_file contour.rle] cont
mkplane cont cont
nexplode cyl F
ttranslate cont 0 0 -100

#
# flo : 25/06/1998 : Arguments 3 et 4 featperform -> face et non surface
#
mksurface surf cyl_3
mkface face surf
featprism cyl cont cont 0 1 0 0 1
if { [catch { featperform prism result face face } ] != 0 } {
  puts "Error in featperform"
}

set square 103218
Commit	Line	Data
8581b519	1	puts "TODO ?OCC12345 ALL: Error : The feat grid is not valid. The area is 0."
	2	puts "TODO ?OCC12345 ALL: Error : The area of the resulting shape is 0"
	3
8418c617	4	restore [locate_data_file cylindre.rle] cyl
8418c617	5	restore [locate_data_file contour.rle] cont
40093367	6	mkplane cont cont
40093367	7	nexplode cyl F
40093367	8	ttranslate cont 0 0 -100
	9
	10	#
	11	# flo : 25/06/1998 : Arguments 3 et 4 featperform -> face et non surface
	12	#
	13	mksurface surf cyl_3
	14	mkface face surf
	15	featprism cyl cont cont 0 1 0 0 1
	16	if { [catch { featperform prism result face face } ] != 0 } {
	17	puts "Error in featperform"
	18	}
	19
6bc6a6fc	20	set square 103218