blob: 9d9aa8bc4293ffceaa616e99f1f1b1329fa1ebea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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 () )
$ Pure ())
|