-- Source Code of “UsePicture.hs” formatted in html

module UsePicture where

import Pictures

-- ###############################################################

-- Question 2.1

-- ###############################################################

blackhorse :: Picture

blackhorse = invertColour horse

-- ******************************************

-- ******************************************

rotateHorse :: Picture

rotateHorse =rotate horse

-- ******************************************

rotateà the source code is in “Picture.hs”

-- ###############################################################

-- Question 2.2

-- ###############################################################

-- method 1

black :: Picture

black = ["############",

"############",

"############",

"############",

"############",

"############",

"############",

"############",

"############",

"############",

"############",

"############"]

-- ******************************************

-- Method 2

black2 :: Picture

black2= superimpose horse (invertColour horse)

-- ###############################################################

-- Question 2.3

-- ###############################################################

board :: Picture

board= sideBySide (above white black) (above black white)

-- ******************************************

board2 :: Picture

board2= above (sideBySide white black) (sideBySide black white)

-- ******************************************

-- 4x4 “block”

board44 :: Picture

board44= above (sideBySide board board) (sideBySide board board)

-- ******************************************

-- Method 1

chessboard :: Picture

chessboard= above (sideBySide (above (sideBySide board board) (sideBySide board board))

(above (sideBySide board board) (sideBySide board board)))

(sideBySide (above (sideBySide board board) (sideBySide board board))

(above (sideBySide board board) (sideBySide board board)))

--*******************************************

-- Method 2

chessboard2 :: Picture

chessboard2= above (sideBySide board44 board44) (sideBySide board44 board44)

-- ###############################################################

-- Question 2.4( pattern 1 to 3)

-- ###############################################################

pat1 :: Picture

pat1=above (sideBySide horse (invertColour horse)) (sideBySide (invertColour horse) horse)

-- ******************************************

pat2 :: Picture

pat2=above (sideBySide horse (invertColour horse)) (flipV (sideBySide horse (invertColour horse)))

-- ******************************************

pat3 :: Picture

pat3=above (sideBySide horse (invertColour horse)) (flipH (sideBySide (invertColour horse) horse))

-- ###############################################################

-- Question 2.5( pattern 4 to 7)

-- ###############################################################

pat4 :: Picture

pat4=sideBySide (above horse (invertColour horse) )

(above (invertColour horse) horse )

-- ******************************************

pat5 :: Picture

pat5=sideBySide (above horse (invertColour (flipV(horse))))

(above (invertColour horse) (flipV(horse)) )

-- ******************************************

pat6 :: Picture

pat6=sideBySide (above horse (invertColour (rotate(horse))))

(above (invertColour horse) (rotate(horse)) )

-- ******************************************

-- it produces the pictures in question 2.5

pat7 :: Picture

pat7=sideBySide (above horse (invertColour (flipH(horse))))

(above (invertColour horse) (flipH(horse)) )

email: avin_1066@yahoo.com