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

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

pcylinder p 10 50

explode p f

# p_2 is top planar face
tscale p_2 0 0 0 0.001

renamevar p_2 result

checkprops result -s 0.000314159 
checkshape result

checknbshapes result -vertex 1 -edge 1 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 4
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_2 is top planar face
	14	tscale p_2 0 0 0 0.001
	15
	16	renamevar p_2 result
	17
58cf74e0	18	checkprops result -s 0.000314159
58cf74e0	19	checkshape result
6e242322	20
a4eba920	21	checknbshapes result -vertex 1 -edge 1 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 4
5747059b	22	checkview -display result -2d -path ${imagedir}/${test_image}.png