bmpList :: FilePictureList
bmpList = [("level1.bmp",          Nothing),
           ("level2.bmp",          Nothing),
           ("level3.bmp",          Nothing),
           ("gameover.bmp",        magenta),
           ("congratulations.bmp", magenta),
           ("headn.bmp",           magenta),
           ("heads.bmp",           magenta),
           ("heade.bmp",           magenta),
           ("headw.bmp",           magenta),
           ("food.bmp",            magenta),
           ("segment.bmp",         magenta),
           ("border1.bmp",         magenta),
           ("border2.bmp",         magenta),
           ("border3.bmp",         magenta),
           ("free1.bmp",           magenta),
           ("free2.bmp",           magenta),
           ("free3.bmp",           magenta)]
bmpList :: FilePictureList
bmpList = [("level1.bmp",          Nothing),
           ("level2.bmp",          Nothing),
           ("level3.bmp",          Nothing),
           ("gameover.bmp",        magenta),
           ("congratulations.bmp", magenta),
           ("headn.bmp",           magenta),
           ("heads.bmp",           magenta),
           ("heade.bmp",           magenta),
           ("headw.bmp",           magenta),
           ("food.bmp",            magenta),
           ("segment.bmp",         magenta),
           ("border1.bmp",         magenta),
           ("border2.bmp",         magenta),
           ("border3.bmp",         magenta),
           ("free1.bmp",           magenta),
           ("free2.bmp",           magenta),
           ("free3.bmp",           magenta)]
bmpList = [("level1.bmp",          Nothing),
           ("level2.bmp",          Nothing),
           ("level3.bmp",          Nothing),
           ("gameover.bmp",        magenta),
           ("congratulations.bmp", magenta),
           ("headn.bmp",           magenta),
           ("heads.bmp",           magenta),
           ("heade.bmp",           magenta),
           ("headw.bmp",           magenta),
           ("food.bmp",            magenta),
           ("segment.bmp",         magenta),
           ("border1.bmp",         magenta),
           ("border2.bmp",         magenta),
           ("border3.bmp",         magenta),
           ("free1.bmp",           magenta),
           ("free2.bmp",           magenta),
           ("free3.bmp",           magenta)]