2022-07-31 16:01:13 +02:00
|
|
|
module Costants where
|
|
|
|
|
|
|
|
|
|
import Canvas
|
|
|
|
|
import Graphics.Gloss
|
|
|
|
|
|
2022-07-31 17:44:14 +02:00
|
|
|
|
2022-07-31 16:01:13 +02:00
|
|
|
display :: Display
|
2022-07-31 16:33:36 +02:00
|
|
|
display = InWindow "Amaranth" windowSize (0,0)
|
2022-07-31 16:01:13 +02:00
|
|
|
|
|
|
|
|
background :: Color
|
|
|
|
|
background = white
|
|
|
|
|
|
|
|
|
|
initial :: Canvas
|
|
|
|
|
initial = Canvas {
|
|
|
|
|
items = []
|
|
|
|
|
, mode = Brush
|
2022-07-31 16:33:36 +02:00
|
|
|
, drawing = False
|
2022-07-31 17:44:14 +02:00
|
|
|
, pos = (0, 0)
|
2022-07-31 18:58:13 +02:00
|
|
|
, tip = Tip Rectangular 3
|
2022-07-31 16:01:13 +02:00
|
|
|
}
|
