setflags s locked
updatetolerance result s 1
puts [checkshape result]
