source: issm/oecreview/Archive/16554-17801/ISSM-17223-17224.diff@ 17802

../trunk-jpl/src/m/plot/radarpower.m

@@ -89 +89 @@
                 %Read in temp.tif:
                 im=imread('temp.tif','TIFF');
                 %adjust contrast and brightness
-                im=imadjust(im,[a b],[c d]);
+                %im=imadjust(im,[a b],[c d]);
                 pixelskip=max(1,ceil(posting/((x1-x0)/(size(im,2)))));
-                md.radaroverlay.pwr=double(flipud(im(1:pixelskip:end,1:pixelskip:end)));
+                if size(im,3)==1,
+                        md.radaroverlay.pwr=double(flipud(im(1:pixelskip:end,1:pixelskip:end)));
+                else
+                        md.radaroverlay.pwr=double(im(1:pixelskip:end,1:pixelskip:end,1:pixelskip:end));
+                        md.radaroverlay.pwr(:,:,1)=flipud(md.radaroverlay.pwr(:,:,1));
+                        md.radaroverlay.pwr(:,:,2)=flipud(md.radaroverlay.pwr(:,:,2));
+                        md.radaroverlay.pwr(:,:,3)=flipud(md.radaroverlay.pwr(:,:,3));
+                end
                 md.radaroverlay.x=(x0:(x1-x0)/(size(md.radaroverlay.pwr,2)-1):x1);
                 md.radaroverlay.y=(y0:(y1-y0)/(size(md.radaroverlay.pwr,1)-1):y1);
 
@@ -152 +159 @@
         disp('Warning: expecting coordinates in polar stereographic (Std Latitude: 70ºN Meridian: 45º)');
         im=imread(overlay_image);
         %adjust contrast and brightness
-        im=imadjust(im,[a b],[c d]);
+        %im=imadjust(im,[a b],[c d]);
         im=im(toplefty:toplefty+sizey,topleftx:topleftx+sizex);
         md.radaroverlay.pwr=double(flipud(im));
         md.radaroverlay.x=(x0:(x1-x0)/(size(md.radaroverlay.pwr,2)-1):x1);

../trunk-jpl/src/m/plot/plot_overlay.m

@@ -42 +42 @@
 contrast = getfieldvalue(options,'contrast',1);  
 radar = (md.radaroverlay.pwr).^(contrast);
 radar = radar./max(radar(:));
+if size(radar,3)>1,
+        disp('WARNING: color image converted to greyscale intensity image');
+        radar=sum(radar,3)/3;
+end
 %radar(find(radar==0))=1; %Change background from black to white
 
 %InterpFromMeshToGrid