16 lines
248 B
Haskell
16 lines
248 B
Haskell
|
module Costants where
|
||
|
|
||
|
import Canvas
|
||
|
import Graphics.Gloss
|
||
|
|
||
|
display :: Display
|
||
|
display = InWindow "Amaranth" (500, 500) (0,0)
|
||
|
|
||
|
background :: Color
|
||
|
background = white
|
||
|
|
||
|
initial :: Canvas
|
||
|
initial = Canvas {
|
||
|
items = []
|
||
|
, mode = Brush
|
||
|
}
|