h[x_] := If[Abs[x] < 1, 1, -1];
f[{{a_, b_}, {v_, w_}}] := {{b + h[a] v, b + h[b] w}, {h[a] v, (h[b] - 0.0001) w - 0.001}};
r := 0.0002*(Random[] - 1/2);
DynamicModule[{c = {}}, EventHandler[ Graphics[{RGBColor[1, 1, 1], PointSize[0.03], 
   Background -> RGBColor[0.328267, 0.847959, 0.936645], Point[Dynamic[c = Map[f, c]; Map[First, c]]]}, 
   PlotRange -> {{-1, 1}, {-1, 1}}, ImageSize -> {400, 400}], "MouseDown" :> (AppendTo[c, {MousePosition["Graphics"], {r, r}}])]]
A1 = {RGBColor[0, 100, 0], Polygon[{{2.5, 5}, {4, 2}, {1, 2}}]};
A2 = {RGBColor[0.0678721, 0.0012665, 0.0250248], Polygon[{{2, 0}, {2, 2}, {3, 2}, {3, 0}}]};
A3 = {RGBColor[0.936645, 0.0175784, 0.345388], Polygon[{{3.5, 0}, {4, 0}, {4, 1}, {3.5, 1}}]};
A4 = {RGBColor[0.376974, 0.0387732, 0.936645], Polygon[{{3.7, 0}, {3.8, 0}, {3.8, 1}, {3.7, 1}}]};
A5 = {RGBColor[0.376974, 0.0387732, 0.936645], Polygon[{{3.5, .4}, {3.5, .6}, {4, .6}, {4, .4}}]};
A7 = {RGBColor[0.0848554, 0.250935, 0.936645], Polygon[{{1, 1.8}, {1.3, 1.8}, {1.3, 0}, {1, 0}}]};
A6 = {RGBColor[0.936645, 0.905989, 0.089662], Polygon[{{2.3, 5.2}, {2.3, 4.8}, {2.7, 5.2}, {2.7, 4.8}}]};
A8 = {RGBColor[0.328267, 0.847959, 0.936645], Polygon[{{1, 1.35}, {1, 1.45}, {1.3, 1.45}, {1.3, 1.35}}]};
A9 = {RGBColor[0.669413, 0.883558, 0.945708], Polygon[{{1.4, 0}, {1.9, 0}, {1.9, 1.6}, {1.4, 1.6}}]};
A10 = {RGBColor[0.945708, 0.426322, 0.385229], Polygon[{{1.6, 0}, {1.7, 0}, {1.7, 1.6}, {1.6, 1.6}}]};
A11 = {RGBColor[0.945708, 0.426322, 0.385229], Polygon[{{1.4, 1.2}, {1.4, 1.4}, {1.9, 1.2}, {1.9, 1.4}}]};
A12 = {RGBColor[0.328267, 0.847959, 0.936645], Polygon[{{1, 1.15}, {1, 1.25}, {1.3, 1.25}, {1.3, 1.15}}]};
S1 = ChristmasTree = Show[Graphics[{A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12}], AspectRatio -> 1]