; File: simp_slice.pro
; Author: Erik Brisson

common volume_data, voldata
voldata = fltarr(16, 16, 16)
for i=0, 15 do begin
    for j=0, 15 do begin
        for k=0, 15 do begin
	    voldata(i,j,k) = sin(i) + j + sqrt(k)
        endfor
    endfor
endfor
slicer3, ptr_new(voldata)
end