# How to draw a parenthesis-like shape?

Can't quite figure out how to draw the shape below with Lines and make them play nice at the vertices where they meet. I currently have three lines of different thicknesses, but it's clearly not working.

Any suggestions on how make it work so in a way that survives changes in range, resolution, etc?

paren[t1_, t2_, p_, h_] := {Rectangle[{0, 0}, {t1, h}],
Rectangle[{0, 0}, {t2 + p, t2}], Rectangle[{0, h}, {t2 + p, h - t2}]}
Manipulate[
Graphics[paren[t1, t2, p, h], PlotRange -> {{0, 1}, {0, 1}}],
{{t1, .1}, 0, .3}, {{t2, .1}, 0, .3}, {{p, .2}, 0, .5}, {{h, 1}, 0, 2}
]


• Good idea, but I want horizontal lines to be thinner than vertical lines – Wynne Jun 2 at 2:09
• @Wynne you can definitely add that parameter to what is in this answer. Give it a shot yourself. – b3m2a1 Jun 2 at 2:18
• @Wynne I added a second param. – flinty Jun 2 at 2:18

You can use your favorite font:

Manipulate[Style["[", FontSize -> t, FontFamily -> "Al Bayan"], {t, 1, 500}]