src/Chelleport.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module Chelleport where

import Graphics.Gloss

open =
  display
    ( InWindow
        "Hello World" -- window title
        (400, 150) -- window size
        (10, 10) -- window position
    )
    white -- background color
    picture -- picture to display

picture =
  Translate (-170) (-20) $ -- shift the text to the middle of the window
    Scale 0.5 0.5 $ -- display it half the original size
      Text "Hello World" -- text to display