updateControlPoint :: ControlPoint DataEnv -> Size -> (Size -> Size) -> ControlPoint DataEnv
updateControlPoint (Global name params)       size f = Global name (updateDataEnv params size f)
updateControlPoint :: ControlPoint DataEnv -> Size -> (Size -> Size) -> ControlPoint DataEnv
updateControlPoint (Global name params)       size f = Global name (updateDataEnv params size f)
updateControlPoint (Global name params)       size f = Global name (updateDataEnv params size f)