;;change a BIP file into a bsq file

pro bipTobsq, bipFname, bsqFname, samples, lines, bands, TYPE=TYPE, fast=fast

;;	bsqFname = output filename
;;	bipFname = input filename
;;	TYPE = 'integer' or 'byte'  default = 'integer'
;;	fast = 0, 1 default = 0... 1 doesn't work (but it's 2x as fast)


openr, bipun, /get, bipFname
openw, bsqun, /get, bsqFname

if (keyword_set(fast) eq 0) then fast = 0

;;by default assume we have integer values
if not keyword_set(type) then type=2

if fast eq 0 then begin

	bipline = make_array(bands, samples, type=TYPE)

	for j=0, bands-1 do begin
		for i = 0, lines-1 do begin
			readu, bipun, bipline
			writeu, bsqun, bipline(j,*)
		end

		close, bipun
		free_lun, bipun
		openr, bipun, /get, bipFname
	end

end

if fast ne 0 then begin
	bipline = make_array(bands, samples, type=TYPE)

	readu, bipun, bipim
	writeu, bsqun, transpose(bipim)	;;this is the problem, I need to 
					;; transpose in a different 
					;; direction... help?

end


close, bipun
close, bsqun
free_lun, bipun
free_lun, bsqun

end