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