-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathExercise2.hs
More file actions
51 lines (39 loc) · 1.06 KB
/
Copy pathExercise2.hs
File metadata and controls
51 lines (39 loc) · 1.06 KB
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
module Exercise2 where
import Pictures
black = invertColour white
-- make a cell with any Char
makeCell :: Char -> Picture
makeCell s =
replicate 6 $ replicate 12 s
-- define black without using white
myWhite = makeCell '.'
myBlack = makeCell '#'
-- make block of white and black cells
fstTryPic = above
(sideBySide white black)
(sideBySide black white)
sndTryPic =
let a = sideBySide white black
b = invertColour a
in above a b
-- Generate chessboard 8x8
genChess :: Picture -> Picture -> Picture
genChess wh bl =
let a = sideBySide wh bl
b = invertColour a
in helpBoard . helpBoard $ above a b
-- helper function for chess gen
helpBoard :: Picture -> Picture
helpBoard block =
let a = sideBySide block block
in above a a
-- some images of horses
genHorseBlock :: (Picture -> Picture) -> Picture
genHorseBlock f =
let a = sideBySide horse $ invertColour horse
b = f a
in above a b
-- First invertColour
-- Second flipV
-- Third rotate
-- Forth (flipH . invertColour $)