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