Evaluated proc heads_y {y h} { expr $y - 10 - ($h/15) }