Setting Pens on Shapes in WPF

Sometimes you need to draw various shapes, drawings and objects using the same elaborate pen. Problem is that some WPF elements like GeometryDrawing (represented by star in this picture) take Pen object for their pen settings and classes derived from Shape (like Rectangle, Ellipse, etc.) expose all the pen settings directly in the form of StrokeXxx properties.