Browserpush
minocyclin
Profil
Vorname: Kevin
Land:
Geschlecht: männlich
Familienstand:
Sympathie-Punkte:
 
Statistik
Dabei seit: 4200 Tagen
Zuletzt online: 2340 Tagen
Kommentare: 168 Kommentarbeiträge
Gästebucheinträge: 5
Profilbesucher: 44
 
Gästebuch alle Einträge
  • 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).
 
Letzte Besucher
ka-news-logo

Es gibt neue Nachrichten auf ka-news.de

Abbrechen