Free_ball (elm_playground.Free

type t = {

x : Playground.number;
y : Playground.number;
vx : Playground.number;
vy : Playground.number;

}

val still : Playground.number -> Playground.number -> t

val roll : 
  friction:Playground.number ->
  ?push:(Playground.number * Playground.number) ->
  t ->
  t

val touch : 
  glued:bool ->
  speed:Playground.number ->
  reach:Playground.number ->
  hold:Playground.number ->
  (Playground.number * Playground.number) ->
  (Playground.number * Playground.number) ->
  t ->
  t option

val bounce_in : 
  half_w:Playground.number ->
  half_h:Playground.number ->
  keep:Playground.number ->
  t ->
  t

val speed : t -> Playground.number

val near : 
  Playground.number ->
  (Playground.number * Playground.number) ->
  t ->
  bool