Using rasterImage for speed