let
scale s v = create (x v *. s) (y v *. s)