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

restore [locate_data_file cylindre.rle] cyl
restore [locate_data_file contour.rle] cont
mkplane cont cont
nexplode cyl F

puts "*"
#puts "TODO OCC22810 All:Faulty .*"
puts "TODO OCC22810 ALL:Faulty shapes in variables faulty_1 to faulty_3"
puts "TODO OCC22810 ALL:Error : The square of result shape is"
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 0
Commit	Line	Data
8418c617	1	restore [locate_data_file cylindre.rle] cyl
8418c617	2	restore [locate_data_file contour.rle] cont
40093367	3	mkplane cont cont
	4	nexplode cyl F
	5
	6	puts "*"
	7	#puts "TODO OCC22810 All:Faulty .*"
	8	puts "TODO OCC22810 ALL:Faulty shapes in variables faulty_1 to faulty_3"
49c093ae	9	puts "TODO OCC22810 ALL:Error : The square of result shape is"
40093367	10	ttranslate cont 0 0 -100
	11
	12	#
	13	# flo : 25/06/1998 : Arguments 3 et 4 featperform -> face et non surface
	14	#
	15	mksurface surf cyl_3
	16	mkface face surf
	17	featprism cyl cont cont 0 1 0 0 1
	18	if { [catch { featperform prism result face face } ] != 0 } {
	19	puts "Error in featperform"
	20	}
	21
	22	set square 0