WOLFRAM

Wolfram Language & System Documentation Center

Use Dynamic Objects as Input

    
Click in the framed area to see bouncing balls:
Wolfram Language code: Framed@DynamicModule[{contents = {}}, EventHandler[Graphics[{PointSize[0.1], Point[Dynamic[contents = Map[If[#[[1, 2]] ≥ 0, {#[[1]] - #[[2]], #[[2]] + {0, 0.001}}, {{#[[1, 1]], 0}, {1, -0.8}#[[2]]}]&, contents];Map[First, contents]]]}, PlotRange -> {{0, 1}, {0, 1}}, ImagePadding -> None, ImageSize -> 80], "MouseDown" :> (AppendTo[contents, {MousePosition["Graphics"], {0, 0}}])]]
Use dynamic objects as input; click in the different frames to create additional balls:
Wolfram Language code: (% + 1) ^ 3//Expand