anchor.diff:      canvas.Width  <- width
       canvas.Height <- height
       let context = canvas.GetContext "2d"
  -
  -    // ゲームループ開始
  -    Async.Start (gameLoop context playerShip)
  +    
  +    // ソケットの準備
  +    let playerShipSocket = PlayerShip.initSocket context
   
       Div [ Width (string width); Attr.Style "float:left" ] -< [
         Div [ Attr.Style "float:center" ] -< [
           element
           |>! OnMouseMove (fun _ arg ->
             let offset = JQuery.JQuery.Of(element.Dom).Offset()
  -          playerShip |> PlayerShip.move offset arg.X arg.Y
  +          (arg.X, arg.Y)
  +          ||> PlayerShip.nextPosition offset
  +          |> Json.Stringify
  +          |> playerShipSocket.Send
           )
         ]
       ]
  
positive.code:   [<JavaScript>]
    let drawBackground (context : CanvasRenderingContext2D) =
      context.BeginPath()
      context.Rect(0., 0., float width, float height)
      context.FillStyle <- "rgb(0, 0, 0)"
      context.Fill()
  
negative.code:     let move offset x y playerShip =
        playerShip := nextPosition offset x y
  
      [<JavaScript>]
      let initSocket context =
  
        let socket = WebSocket("ws://192.168.37.131:19860/player")
      
        socket.Onopen <- (fun () ->
          init |> Json.Stringify |> socket.Send
        )
      
        socket.Onmessage <- (fun msg ->
          drawBackground context
          msg.Data
          |> (string >> Json.Parse >> As<Mover>) 
          |> draw context
        )
  
        socket
  
    [<JavaScript>]
    let animatedCanvas width height =
  
      // キャンバスの設定
      let element = Tags.NewTag "Canvas" []
  