createPixelInstruction :: Pixel -> Drawing PixelRGBA8 ()
createPixelInstruction ((x,y),(r,g,b),_) = 
    withTexture (uniformTexture color) . fill $ rectangle point 1 1
    where color = PixelRGBA8 (r :: Word8) (g :: Word8) (b :: Word8) 255
          point = V2 (fromIntegral x) (fromIntegral y)
createPixelInstruction :: Pixel -> Drawing PixelRGBA8 ()
createPixelInstruction ((x,y),(r,g,b),_) = 
    withTexture (uniformTexture color) . fill $ rectangle point 1 1
    where color = PixelRGBA8 (r :: Word8) (g :: Word8) (b :: Word8) 255
          point = V2 (fromIntegral x) (fromIntegral y)
createPixelInstruction ((x,y),(r,g,b),_) = 
    withTexture (uniformTexture color) . fill $ rectangle point 1 1
    where color = PixelRGBA8 (r :: Word8) (g :: Word8) (b :: Word8) 255
          point = V2 (fromIntegral x) (fromIntegral y)