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

cylinder c 50

mkface f c 0 5 0 10

tscale f 0 0 0 0.001

renamevar f result

set square 0.0025

checknbshapes result -vertex 4 -edge 4 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 10
set 2dviewer 1