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