sameparameter result 0.001 puts [checkshape result]