setflags s locked
sameparameter result s 0.001
puts [checkshape result]