Areas as Creativity Reflections

L1=Prepend[Append[Table[{.5+.005*i,1.1+Sin[.03*i]},
{i,200}],{2,0}],{0,0}];
L2={{0,0},{.5,2.3},{1.5,2.3},{2,0},{0,0}};
Show[Graphics[{Texture[ExampleData[{"ColorTexture","MultiSpiralsPattern"}]],
Polygon[L2,VertexTextureCoordinates ->L2],
Style[Line[L2],RGBColor["silver"],Thickness[.015]],Style[Polygon[L1],
RGBColor["#3636ff"]],Style[Line[L1],RGBColor["silver"],
Thickness[.015]]}],PlotPoints->100,ImageSize->400]