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 }