Index: /issm/trunk-jpl/src/m/plot/scaleruler.m
===================================================================
--- /issm/trunk-jpl/src/m/plot/scaleruler.m	(revision 14462)
+++ /issm/trunk-jpl/src/m/plot/scaleruler.m	(revision 14463)
@@ -6,6 +6,8 @@
 
 %get options
-structure=getfieldvalue(options,'scaleruler');
-fontsize=getfieldvalue(options,'scaleruler_fontsize',16);
+structure  = getfieldvalue(options,'scaleruler');
+fontcolor  = getfieldvalue(options,'fontcolor','k');
+fontweight = getfieldvalue(options,'fontweight','n');
+fontsize   = getfieldvalue(options,'scaleruler_fontsize',16);
 
 %Go through structure and fill missing arguments
@@ -14,50 +16,55 @@
 end
 
-%retrieve north arrow parameters
-x0=structure(1);
-y0=structure(2);
-lengthscale=structure(3);
-widthscale=structure(4);
-numberofticks=structure(5);
-fontcolor=getfieldvalue(options,'fontcolor','k');
-fontweight=getfieldvalue(options,'fontweight','n');
+%retrieve scale parameters
+x0            = structure(1);
+y0            = structure(2);
+lengthscale   = structure(3);
+widthscale    = structure(4);
+numberofticks = structure(5);
 
-%initialize some coordinates
-unitlength=lengthscale/(numberofticks -1);
-flag=-1;
+%If only one tick, just draw a rectangle
+if numberofticks==1,
+	text(x0+lengthscale/2,y0+2*widthscale,2,[num2str(lengthscale/1000) 'km'],...
+		'FontSize',fontsize,'FontWeight',fontweight,'Color',fontcolor,'HorizontalAlignment','center','VerticalAlignment','baseline');
+	patch([x0 x0+lengthscale x0+lengthscale x0],[y0 y0 y0+widthscale y0+widthscale],2*ones(1,4),fontcolor,'Edgecolor',fontcolor);
+else
+	%initialize some coordinates
+	unitlength=lengthscale/(numberofticks -1);
+	flag=-1;
 
-Bd=[x0 y0];
-Bu=[x0 y0+widthscale];
-Tick=0;
-
-%Text
-xt=Bu(1);
-yt=Bu(2)+widthscale;
-text(xt,yt,num2str(Tick),'FontSize',fontsize,'FontWeight',fontweight,'Color',fontcolor,'HorizontalAlignment','left','VerticalAlignment','baseline');
-
-%loope over the patches
-for i=1:numberofticks-1,
-	Au=Bu;
-	Ad=Bd;
-	Bu=[Au(1)+unitlength Ad(2)+widthscale];
-	Bd=[Ad(1)+unitlength Ad(2)];
-	Tick=Tick+unitlength;
-
-	%pathes
-	if flag==-1
-		p=patch([Ad(1) Bd(1) Bu(1) Au(1)],[Ad(2) Bd(2) Bu(2) Au(2)],'Black','FaceAlpha',0.5);
-	else
-		p=patch([Ad(1) Bd(1) Bu(1) Au(1)],[Ad(2) Bd(2) Bu(2) Au(2)],'White','FaceAlpha',0.3);
-	end
-
-	%flip flag
-	flag=-flag;
+	Bd=[x0 y0];
+	Bu=[x0 y0+widthscale];
+	Tick=0;
 
 	%Text
 	xt=Bu(1);
 	yt=Bu(2)+widthscale;
-	if i~=numberofticks-1,
-		text(xt,yt,num2str(round_ice(Tick/1000,3)),'FontSize',fontsize,'FontWeight',fontweight,'Color',fontcolor,'HorizontalAlignment','left','VerticalAlignment','baseline');
+	text(xt,yt,2,num2str(Tick),'FontSize',fontsize,'FontWeight',fontweight,'Color',fontcolor,'HorizontalAlignment','center','VerticalAlignment','baseline');
+
+	%loope over the patches
+	for i=1:numberofticks-1,
+		Au=Bu;
+		Ad=Bd;
+		Bu=[Au(1)+unitlength Ad(2)+widthscale];
+		Bd=[Ad(1)+unitlength Ad(2)];
+		Tick=Tick+unitlength;
+
+		%pathes
+		if flag==-1
+			p=patch([Ad(1) Bd(1) Bu(1) Au(1)],[Ad(2) Bd(2) Bu(2) Au(2)],2*ones(1,4),'Black');
+		else
+			p=patch([Ad(1) Bd(1) Bu(1) Au(1)],[Ad(2) Bd(2) Bu(2) Au(2)],2*ones(1,4),'White');
+		end
+
+		%flip flag
+		flag=-flag;
+
+		%Text
+		xt=Bu(1);
+		yt=Bu(2)+widthscale;
+		if i~=numberofticks-1,
+			text(xt,yt,2,num2str(round_ice(Tick/1000,3)),'FontSize',fontsize,'FontWeight',fontweight,'Color',fontcolor,'HorizontalAlignment','center','VerticalAlignment','baseline');
+		end
 	end
+	text(xt,yt,2,[num2str(round_ice(Tick/1000,3)) ' km'],'FontSize',fontsize,'FontWeight',fontweight,'Color',fontcolor,'HorizontalAlignment','center','VerticalAlignment','baseline');
 end
-text(xt,yt,[num2str(round_ice(Tick/1000,3)) ' km'],'FontSize',fontsize,'FontWeight',fontweight,'Color',fontcolor,'HorizontalAlignment','left','VerticalAlignment','baseline');