/
enviwrite_bands.m
82 lines (68 loc) · 2.45 KB
/
enviwrite_bands.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
function enviwrite_bands(filename,envi_data,datatype,resolu,UL,interleave,zone,n_names)
% write envi format file of uint8 and int16
% for example: enviwrite('testzz',data,'int16',[30,30],jiUL,'bsq',ZC,'this is for test only');
% i,j => x, y => rows and cols
% Input 1) 'filename' is the name of the file
% Input 2) 'envi_data' is the data matrix
% Input 3) 'dataype' is the datatype to write 'uint8' or 'int16'
% Input 4) 'resolu' is the resolution of the pixel
% Input 5) 'UL' is the UpperLeftPoint X Y of the UL pixel (not center of UL pixel)
% Input 6) 'interleave' is the bsq bip bil format
% Input 7) 'zone' is the UTM zone
if strcmp(datatype,'uint8')
envi_data=uint8(envi_data);
dt=1;
elseif strcmp(datatype,'int16')
envi_data=int16(envi_data);
dt=2;
elseif strcmp(datatype,'int32')
envi_data=int32(envi_data);
dt=3;
elseif strcmp(datatype,'uint16')
envi_data=uint16(envi_data);
dt=12;
elseif strcmp(datatype,'single')
envi_data=single(envi_data);
dt=4;
else
fprintf('Invalid write data type!\n');
return;
end
n_dims=size(envi_data);
nrows=n_dims(1);
ncols=n_dims(2);
bands=1;
if length(n_dims)>=3
bands=n_dims(3);
end
multibandwrite(envi_data,filename,interleave);
filename_hdr=[filename,'.hdr'];
fid_out=fopen(filename_hdr,'wt');
fprintf(fid_out,'ENVI\n');
fprintf(fid_out,'descirption = {Landsat Scientific Data}\n');
fprintf(fid_out,'samples = %d\n',ncols); % samples is for j
fprintf(fid_out,'lines = %d\n',nrows); % lines is for i
fprintf(fid_out,'bands = %d\n',bands);
fprintf(fid_out,'header offset = 0\n');
fprintf(fid_out,'file type = ENVI Standard\n');
fprintf(fid_out,'data type = %d\n',dt);
fprintf(fid_out,'interleave = %s\n',interleave);
fprintf(fid_out,'sensor type = Landsat\n');
fprintf(fid_out,'byte order = 0\n');
% band names
fprintf(fid_out,'band names = {');
for i=1:length(n_names)
str_n = num2str(n_names(i));
fprintf(fid_out,'%s',str_n);
if i < length(n_names)
fprintf(fid_out,',');
end
end
fprintf(fid_out,'}\n');
if (zone > 0)
fprintf(fid_out, 'map info = {UTM, 1.000, 1.000, %d, %d, %d, %d, %d, North, WGS-84, units=Meters}',UL(1),UL(2),resolu(1),resolu(2),zone);
else
fprintf(fid_out, 'map info = {UTM, 1.000, 1.000, %d, %d, %d, %d, %d, South, WGS-84, units=Meters}',UL(1),UL(2),resolu(1),resolu(2),-zone);
end
fclose(fid_out);
end