Pretty good, though I think it’s one of those case where using an array is warranted (granted we don’t really care about performance but eval still needs a lot of random access…. Also I was not really convinced by the way you did your layout, so I wrote more general functions, and it turned out shorter too :gridToPic :: Board -> PicturegridToPic = displayGrid (15,15) . (map . map) toPic . toList2D where toPic True = color (dark red) $ rectangleSolid 12 12 toPic False = color orange $ rectangleSolid 12 12type Dir = (Float, Float)type Size = FloatdisplayGrid :: (Size,Size) -> [[Picture]] -> PicturedisplayGrid (xSize,ySize) = displayRow dirY ySize . map (displayRow dirX xSize)displayRow :: Dir -> Size -> [Picture] -> PicturedisplayRow dir size ps = pictures . zipWith (uncurry translate) moves $ ps where moves = iterate (^+^ step) start start = (-(fromIntegral $ length ps - 1) * (1/2)) .*^ step step = size .*^ dirdirX = (1,0)dirY = (0,-1)Anyway, it’s pretty cool what you can do with Gloss (though I prefer diagrams if we just want a still image, it’s more general).
Eintrag Nr. 6
erstellt am 04.12.2012 um 17:22 Uhr
fips sagt:welche beta von bada2.0 funktioniert am besetn? mfcssen wirklich die apps neu installiert werden?
Eintrag Nr. 5
erstellt am 27.11.2012 um 06:18 Uhr
Knightsbridge Ugg Boots
I'm happy to meet youHe ran his horse up the hill.There comes a bus.There are mice in Mrs.He is capable of any crime.They are arguing over who should pay the bill.They are arguing over who should pay the bill.Mother doesn't make up.I'll just play it by ear.However, Susan has not really made up her mind yet.
Eintrag Nr. 4
erstellt am 17.09.2012 um 08:01 Uhr
Their noted Mulberry handbags are of routine the limelight of the show. The episodic approach Kleist employs makes the singer's story feel abridged, but it's the best choice for the medium. Q: There a story that a forklift driver convinced you to get into acting. This supposedly shocking moment is ruined when we actually see the fake baby on screen. http://uslvonsale.com
Eintrag Nr. 3
erstellt am 17.09.2012 um 07:11 Uhr
See, I had this very sad looking pair of yellow boots (yes, I wore a pair of yellow boots to shreds), but I could never bear to get rid of them. According to the ground Ticker Association, the suitable sum should be beneath 5:1 with the best sum of 3. Try out the shoe on the little one and see how effortlessly it goes on. Kelly Rowland wore Christian Louboutin Lady Peep Spikes to the 2011 MTV Video Music Awards. http://uslvonsale.com
Eintrag Nr. 2
erstellt am 13.09.2012 um 18:54 Uhr
MALA HINDU PRAYER BEADS = SACRED NECKLACE Mermaid Aqua. Do not hulebron james shoesrry. On this occasion, the former Prime Minister gave Mr. Lots and lots of candles (you can light one and say a prayer for a couple of Francs) and niches with different saints and variations on the theme of 'the goddess Mary', as Rick Steve calls her. http://uslvonsale.com
Eintrag Nr. 1
erstellt am 18.05.2012 um 09:43 Uhr
Hallo Uschi! Die HP ist ja wunderschŲn u. dann ist da auch noch ein Foto von Flic u. Jamie Lee das ist ja toll. Liebe GrŁŖe von Sonja. Pippa, Chiva u. Nipůn
Verantwortlich fŁr den Inhalt ist der Autor der Homepage. Kontakt