[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

set square 0.000314159

checknbshapes result -vertex 1 -edge 1 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 4
set 2dviewer 1
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
	18	set square 0.000314159
	19
a4eba920	20	checknbshapes result -vertex 1 -edge 1 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 4
6e242322	21	set 2dviewer 1