array slices

gistfile1.txt

using Luxor
function array2dtogrid(a2d::AbstractArray)
    g = Tiler(200, 200, size(a2d)[1:2]..., margin=25)
    for (pos, n) in g
        setgray(a2d[n])
        box(pos, g.tilewidth, g.tileheight, :fill)
        setgray(1-a2d[n])
        text(string(round(a2d[n], 2)), pos, halign=:center)
    end
end

function drawslice(scene, framenumber)
    fontsize(8)
    [(array2dtogrid(a[:,:,prev]); translate(5, 5)) for prev in 1:framenumber]
end

a = rand(5, 5, 10)
m = Movie(300, 300, "arrayslicer")
animate(m, [Scene(m, (s, f) -> background("white"), 1:10), Scene(m, drawslice, 1:10)], framerate=3, 
    creategif=true, pathname="/tmp/arrayslicer.gif")