Function bevel 

fn bevel(p: &Painter, r: Rect)

Paint a NeXT raised bevel over r: light-gray face, white top-left edge, dark gray then black bottom-right edge (spec §1).