module Example.CircleThatMoves where

import Graphics.Gloss.Interface.Pure.Game
import Scratchy.Syntax

circSprite :: SProg ()
circSprite = NewSprite
  (15,15)
  (Color green $ circleSolid (cellSize * 0.6))
  (\s ->
      OnKeyEvent (Char 'w')
        ( OnTargetReached s
          (\cl -> SetTarget s (nextCell U cl) (Pure ()))
        $ Pure () )
    $ OnKeyEvent (Char 's')
        ( OnTargetReached s
          (\cl -> SetTarget s (nextCell D cl) (Pure ()))
        $ Pure () )
    $ OnKeyEvent (Char 'a')
        ( OnTargetReached s
            (\cl -> SetTarget s (nextCell L cl) (Pure ()))
        $ Pure () )
    $ OnKeyEvent (Char 'd')
        ( OnTargetReached s
            (\cl -> SetTarget s (nextCell R cl) (Pure ()))
        $ Pure () )
    $ Pure ())