July 14th, 2014

show a -- вот потеха-то

Так и знал, что когда-нибудь наступлю на эти грабли.
Найдите 10 отличий.
     case t of
       Just a -> do bitmapSaveFile mdcbmp (a) wxBITMAP_TYPE_PNG objectNull
                    return ()
       Nothing -> return ()
от этого
     case t of
       Just a -> do bitmapSaveFile mdcbmp (show a) wxBITMAP_TYPE_PNG objectNull
                    return ()
       Nothing -> return ()


И это при том, что у bitmapSaveFile сигнатура такая:
bitmapSaveFile :: Bitmap a -> String -> Int -> Palette d -> IO Int

Сам себя запутал, короче.
построенная программно картинка внутриCollapse )
А вообще, вчерашний алгоритм на ура отработал.
Двойная отрисовка (в контекст формы и в контекст памяти) - наименьшее из зол.