let set_height y = height := y