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