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 |
|