hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-14 09:32:22 +00:00
Code Issues Projects Releases Wiki Activity

Wibble in sinewave example.

Browse source
This commit is contained in:
David 2019-02-15 11:18:18 +01:00
commit f180be38e1
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Reanimate/Examples.hs
View file

@ -29,9 +29,9 @@ sinewave = proc () -> do
line_ [num_ x1_ margin, num_ x2_ (margin+width), num_ y1_ height, num_ y2_ height
, stroke_ "white"]
circX <- signalOscillate margin (width+margin) -< ()
let circY = height + sin (idx*pi*2*freq) * 50
emit -< circle_ [num_ cx_ circX, num_ cy_ circY, r_ "3", fill_ "red"]
let (circX, circY) = wave idx
emit -< g_ [transform_ $ translate margin height] $
circle_ [num_ cx_ circX, num_ cy_ circY, r_ "3", fill_ "red"]
where
freq = 3; margin = 30; width = 260; height = 90
wave idx = (idx*width, sin (idx*pi*2*freq) * 50)