jan20pics - = above (sideBySide pic1 pic2) (sideBySide pic2...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
import Pictures black :: Picture black = invertColour white blackWhite :: Picture blackWhite = sideBySide black white bwGrid :: Picture bwGrid = above blackWhite (rotate blackWhite) bwGrid2 :: Picture bwGrid2 = above blackWhite (flipV blackWhite) grid2 :: Picture -> Picture -> Picture grid2 pic1 pic2
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: = above (sideBySide pic1 pic2) (sideBySide pic2 pic1) tripleH :: Picture -> Picture tripleH pic = sideBySide pic (sideBySide pic pic) tripleV :: Picture -> Picture tripleV pic = above pic (above pic pic) grid3 :: Picture -> Picture grid3 pic = tripleV (tripleH pic)...
View Full Document

This note was uploaded on 02/19/2011 for the course CIS 325 taught by Professor Worden during the Spring '11 term at Syracuse.

Ask a homework question - tutors are online