function paste,a,pasted_size=pasted_size,zdim=zdim
;
; procedure to form a mosaicked image from pharo format
;

if (n_elements(pasted_size) lt 1) then pasted_size = 1024
if (n_elements(zdim) lt 1) then zdim = 4

b=fltarr(pasted_size,pasted_size,/nozero)

b(pasted_size/2:pasted_size-1,0:pasted_size/2-1) = a(*,*,0)
b(0:pasted_size/2-1,0:pasted_size/2-1) = a(*,*,1)
b(0:pasted_size/2-1,pasted_size/2:pasted_size-1) = a(*,*,2)
b(pasted_size/2:pasted_size-1,pasted_size/2:pasted_size-1) = a(*,*,3)

; Check if the input image is a dim x dim x 8 data cube
if zdim eq 8 then begin
	c=fltarr(pasted_size,pasted_size,/nozero)
	c(pasted_size/2:pasted_size-1,0:pasted_size/2-1) = a(*,*,4)
	c(0:pasted_size/2-1,0:pasted_size/2-1) = a(*,*,5)
	c(0:pasted_size/2-1,pasted_size/2:pasted_size-1) = a(*,*,6)
	c(pasted_size/2:pasted_size-1,pasted_size/2:pasted_size-1) = a(*,*,7)
	b = c-b
endif

return,b
end