let get_value_as_int w = truncate (floor (get P.value w +. 0.5))