{"image_url":null,"categories":["elm","FRP","A-FRP","haskell","Elm-lang","functional","reactive","reactive-functional","GUI","Animation","concurrent","ArrowizedFRP"],"author_name":"uehaj","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fuehaj.hatenablog.com%2Fentry%2F2014%2F07%2F18%2F132109\" title=\"elm\u3067\u3084\u3063\u3066\u307f\u308b\u30b7\u30ea\u30fc\u30ba1: \u25cf\u3092\u52d5\u304b\u3059 - uehaj&#39;s blog \" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","provider_name":"Hatena Blog","blog_title":"uehaj's blog ","provider_url":"https://hatena.blog","blog_url":"https://uehaj.hatenablog.com/","published":"2014-07-18 13:21:09","description":"elm\u3067\u3084\u3063\u3066\u307f\u308b\u30b7\u30ea\u30fc\u30ba1: \u25cf\u3092\u52d5\u304b\u3059\u3002 import Window pos : Signal Int pos =let f = \\tmp -> (tmp `mod` 30) - 10 in f <~ foldp (\\it acc-> acc + 1) 0 (fps 50) drawCircle : Float -> Float -> Form drawCircle x y = move (x,y) <| filled red (circle 20) drawMatrix : [Form] drawMatrix = map (\\x -> drawLine <| x*10) [-10..10\u2026","author_url":"https://blog.hatena.ne.jp/uehaj/","type":"rich","height":"190","version":"1.0","title":"elm\u3067\u3084\u3063\u3066\u307f\u308b\u30b7\u30ea\u30fc\u30ba1: \u25cf\u3092\u52d5\u304b\u3059","url":"https://uehaj.hatenablog.com/entry/2014/07/18/132109"}