-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathUsePictures.hs
47 lines (28 loc) · 1.1 KB
/
UsePictures.hs
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
--Use Pictures
--2.1
module UsePictures where
import Pictures
blackHorse :: Picture
blackHorse = invertColour (horse)
rotateHorse :: Picture
rotateHorse = rotate horse
--2.2
black :: Picture
black = superimpose horse (blackHorse)
--2.3
checkerBoard2by2 :: Picture
checkerBoard2by2 = above (sideBySide white (black))(sideBySide black (white))
checkerBoard4by4 :: Picture
checkerBoard4by4 = above (sideBySide checkerBoard2by2 (checkerBoard2by2)) (sideBySide checkerBoard2by2 (checkerBoard2by2))
checkerBoard8by8 :: Picture
checkerBoard8by8 = sideBySide checkerBoard4by4 (checkerBoard4by4)
--2.4
horsevar1 :: Picture
horsevar1 = above (sideBySide horse (blackHorse))(sideBySide blackHorse (horse))
horsevar2 :: Picture
horsevar2 = above (sideBySide horse (blackHorse))(sideBySide (flipV (blackHorse)) (flipV(horse)))
horsevar3 :: Picture
horsevar3 = above (sideBySide horse (blackHorse))(sideBySide (rotate (blackHorse)) (rotate (horse)))
--2.5
horsevar4 :: Picture
horsevar4 = above (sideBySide horse (blackHorse))(sideBySide (flipH (blackHorse)) (flipH(horse)))