[occt.git] / tests / bugs / modalg_5 / bug22614_1

puts "========================"
puts "OCC22614"
puts "========================" 
puts ""
#######################################################################
# Scaling fails with linear (p-)curves
#######################################################################

pcylinder p 10 50

explode p f

# p_1 is a cylindrical face
tscale p_1 0 0 0 0.001

renamevar p_1 result

checkprops result -s 0.00314159 
checkshape result

checknbshapes result -vertex 2 -edge 3 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 7
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
6e242322	1	puts "========================"
	2	puts "OCC22614"
	3	puts "========================"
	4	puts ""
	5	#######################################################################
	6	# Scaling fails with linear (p-)curves
	7	#######################################################################
	8
	9	pcylinder p 10 50
	10
	11	explode p f
	12
	13	# p_1 is a cylindrical face
	14	tscale p_1 0 0 0 0.001
	15
	16	renamevar p_1 result
	17
58cf74e0	18	checkprops result -s 0.00314159
58cf74e0	19	checkshape result
6e242322	20
a4eba920	21	checknbshapes result -vertex 2 -edge 3 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 7
5747059b	22	checkview -display result -2d -path ${imagedir}/${test_image}.png