puts [DT_ToBspl result a]
puts [checkshape result]
