def draw_rounded_block (expr bottom_left, top_right, roundness) =
save round;
round = floor min(roundness,xpart (top_right-bottom_left),
def draw_rounded_block (expr bottom_left, top_right, roundness) =
save round;
round = floor min(roundness,xpart (top_right-bottom_left),