1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
-- | Gloss hides the pain of drawing simple vector graphics behind a nice data type and
-- a few display functions.
--
-- Getting something on the screen is as easy as:
--
-- @
-- import Graphics.Gloss
-- main = `display` (InWindow \"Nice Window\" (200, 200) (10, 10)) `white` (`Circle` 80)
-- @
--
-- Once the window is open you can use the following:
--
-- @
-- * Quit
-- - esc-key
--
-- * Move Viewport
-- - arrow keys
-- - left-click drag
--
-- * Zoom Viewport
-- - page up/down-keys
-- - control-left-click drag
-- - right-click drag
-- - mouse wheel
--
-- * Rotate Viewport
-- - home/end-keys
-- - alt-left-click drag
--
-- * Reset Viewport
-- 'r'-key
-- @
--
--
-- Animations can be constructed similarly using the `animate`.
--
-- If you want to run a simulation based around finite time steps then try
-- `simulate`.
--
-- If you want to manage your own key\/mouse events then use `play`.
--
-- Gloss uses OpenGL under the hood, but you don't have to worry about any of that.
--
-- Gloss programs should be compiled with @-threaded@, otherwise the GHC runtime
-- will limit the frame-rate to around 20Hz.
--
-- To build gloss using the GLFW window manager instead of GLUT use
-- @cabal install gloss --flags=\"GLFW -GLUT\"@
--
-- @
-- Release Notes:
--
-- For 1.13.1:
-- Thanks to Thaler Jonathan
-- * Repaired GLFW backend.
-- Thanks to Samuel Gfrörer
-- * Support for bitmap sections.
-- Thanks to Basile Henry
-- * Handle resize events in playField driver.
--
-- For 1.12.1:
-- Thanks to Trevor McDonell
-- * Travis CI integration, general cleanups.
--
-- For 1.11.1:
-- Thanks to Lars Wyssard
-- * Use default display resolution in full-screen mode.
--
-- For 1.10.1:
-- * Gloss no longer consumes CPU time when displaying static pictures.
-- * Added displayIO wrapper for mostly static pictures, eg when
-- plotting graphs generated from infrequently updated files.
-- * Allow viewport to be scaled with control-left-click drag.
-- * Rotation of viewport changed to alt-left-click drag.
-- * Preserve current colour when rendering bitmpaps.
-- * Changed to proper sum-of-squares colour mixing, rather than naive
-- addition of components which was causing mixed colours to be too dark.
-- Thanks to Thomas DuBuisson
-- * Allow bitmaps to be specified in RGBA byte order as well as ABGR.
-- Thanks to Gabriel Gonzalez
-- * Package definitions for building with Stack.
-- @
--
-- For more information, check out <http://gloss.ouroborus.net>.
--
module Graphics.Gloss
( module Graphics.Gloss.Data.Picture
, module Graphics.Gloss.Data.Color
, module Graphics.Gloss.Data.Bitmap
, Display(..)
, display
, animate
, simulate
, play)
where
import Graphics.Gloss.Data.Display
import Graphics.Gloss.Data.Picture
import Graphics.Gloss.Data.Color
import Graphics.Gloss.Data.Bitmap
import Graphics.Gloss.Interface.Pure.Display
import Graphics.Gloss.Interface.Pure.Animate
import Graphics.Gloss.Interface.Pure.Simulate
import Graphics.Gloss.Interface.Pure.Game
|
