Clear[r, L1, L2, L3, L4, L5, L6]
r[t_] := (E^(-(t/3)))*
        Sin[t]
L1[t_] := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.007], 
            Line[{{0, -6.5}, {0, r[t]}}]}], 
        DisplayFunction -> Identity]
L2[t_] := 
      Show[Graphics[{RGBColor[0, 1, 1], 
            Polygon[{{-0.5, -4.8 + r[t]}, {0.5, -4.8 + 
                    r[t]}, {0.5, -5.9}, {-0.5, -5.9}}]}], 
        DisplayFunction -> Identity]
L3[t_] := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.007], 
            Line[{{-0.5, -4.8 + r[t]}, {0.5, -4.8 + r[t]}}]}], 
        DisplayFunction -> Identity]
L4 = 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.007], 
            Line[{{-0.5, -2.3}, {-0.5, -5.9}}]}], 
        DisplayFunction -> Identity]
L5 = 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.007], 
            Line[{{-0.5, -5.9}, {0.5, -5.9}}]}], 
        DisplayFunction -> Identity]
L6 := 
      Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.007], 
            Line[{{0.5, -5.9}, {0.5, -2.3}}]}], 
        DisplayFunction -> Identity]
Table[
      Show[L1[t], L2[t], L3[t], L4, L5, L6, 
        PlotRange -> {{-3, 3}, {-6.5, 3}}, 
        DisplayFunction -> $DisplayFunction], {t, 0, 10, 
        0.1}]