function unpaste,a,PASTED_SIZE=pasted_size
;
; procedure to transfer a correct image back into pharo format
;
; pasted_size	- the full image size; default 1024

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

unpasted_size = pasted_size / 2

b=fltarr(unpasted_size,unpasted_size,4,/nozero)

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

return,b
end