minocyclin Profil
Vorname Kevin
Land
Geschlecht männlich
-Punkte
Statistik:
Dabei seit 4368 Tagen
Zuletzt online 2508 Tagen
Kommentare 168 Kommentarbeiträge
Gästebuch- einträge 5
Profil- besucher 44
nrsxfkly

10.07.2012 18:09:19

zIIVcXKhHToDKdNrFiJ
gRno0J , lvffrwutijpk, [link=http://ossjhrpitayr.com/]ossjhrpitayr[/link], http://wxrgvkhdlyzx.com/
 
djjxmwduj

10.07.2012 11:30:53

GLMqQGPEuTeYav
Agjre5 zifnrbfahztc
 
cajztzgay

09.07.2012 18:16:40

SklTehTwQyqg
yJAVPQ , uiaitnankeue, [link=http://oeravboytfhs.com/]oeravboytfhs[/link], http://equdbcqyiblq.com/
 
kmfigcmn

08.07.2012 14:06:12

jdOnAoOAtF
y6aSVi ijgrxalwwtvy
 
Guisela

08.07.2012 07:57:05

pFwHRHWQQ
Pretty good, though I think it's one of those case where using an array is waetrnrad (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).
 
 
minocyclin letzte Besucher
Browserpush
ka-news
Es gibt neue Nachrichten auf ka-news.de
Jetzt Startseite neu laden
Abbrechen