Changeset 20516

Timestamp:

04/19/16 08:37:47 (9 years ago)

Author:

Mathieu Morlighem

Message:

CHG: fixing colorbar

File:

• issm/trunk-jpl/src/m/plot/manualcb.m (modified) (2 diffs)

issm/trunk-jpl/src/m/plot/manualcb.m

@@ -62 +62 @@
         ytick  = (ztick-zmin)/(zmax-zmin);
 else
-        ztick = getfieldvalue(options,'tick',round(logspace(log(zmin)/log(10),log(zmax)/log(10),8)));
+        %old method
+        ztick = getfieldvalue(options,'tick',round( logspace(log10(zmin),log10(zmax),8) ));
         ytick = linspace(0,1,numel(ztick));
+
+        %New method
+        test=logspace(-10,10,21);
+        pos=find(test>=zmin & test<=zmax);
+        ztick= test(pos);
+        ytick= (log(ztick) - log(zmin))/(log(zmax) - log(zmin));
 end
 
@@ -69 +76 @@
 hold on
 numcolors=size(cmap,1);
-if strcmpi(getfieldvalue(options,'orientation','vertical'),'vertical'),
-        image_rgb = ind2rgb(repmat((1:numcolors)',1,2),cmap);
-else
-        image_rgb = ind2rgb(repmat((1:numcolors)',1,2)',cmap);
-end
 if 1,
         %disappears somtimes
-        imagesc([0 1],[0 1],repmat(image_rgb,[1 10 1]));
+        if strcmpi(getfieldvalue(options,'orientation','vertical'),'vertical'),
+                image_rgb = ind2rgb(repmat((1:numcolors)',1,10),cmap);
+        else
+                image_rgb = ind2rgb(repmat((1:numcolors),10,1),cmap);
+        end
+
+        imagesc([0 1],[0 1],image_rgb);
 else
         %Creates triangles when exported as pdf
-        for i=1:numcolors,
-                patch([0,0,1,1],[(i-1)/numcolors,i/numcolors,i/numcolors,(i-1)/numcolors],'none','FaceColor',cmap(i,:),'Clipping','off','EdgeColor','none')
+        if strcmpi(getfieldvalue(options,'orientation','vertical'),'vertical'),
+                for i=1:numcolors,
+                        patch([0,0,1,1],[(i-1)/numcolors,i/numcolors,i/numcolors,(i-1)/numcolors],0,'FaceColor',cmap(i,:),'Clipping','off','EdgeColor','none')
+                end
+        else
+                for i=1:numcolors,
+                        patch([(i-1)/numcolors,i/numcolors,i/numcolors,(i-1)/numcolors],[0,0,1,1],0,'FaceColor',cmap(i,:),'Clipping','off','EdgeColor','none')
+                end
         end
 end