Changeset 839

Timestamp:

06/08/09 11:16:18 (16 years ago)

Author:

Mathieu Morlighem

Message:

Added default values of latlon tickes

Location:

issm/trunk/src/m/classes/public/plot

Files:

• applyoptions.m (modified) (1 diff)
• latlonoverlay.m (modified) (6 diffs)
• parse_options.m (modified) (1 diff)
• plotdoc.m (modified) (1 diff)

issm/trunk/src/m/classes/public/plot/applyoptions.m

@@ -155 +155 @@
 %latlon
 if (iscell(options_structure.latlon) | ~isnan(options_structure.latlon)),
-        latlonoverlay(options_structure.latlon,options_structure.latlonnumbering);
+        latlonoverlay(options_structure);
 end
 

issm/trunk/src/m/classes/public/plot/latlonoverlay.m

@@ -1 @@
-function latlonoverlay(latlon,numbering)
+function latlonoverlay(options_structure)
 %LATLONOVERLAY - overlay latitude and longitude lines on current figure
 %
@@ -8 +8 @@
 %
 %   Usage:
-%      latlonoverlay(latlon,numbering)
+%      latlonoverlay(options_structure)
+
+%get options
+latlon=options_structure.latlon;
+numbering=options_structure.latlonnumbering;
+if ~isnan(options_structure.latlonclick),
+        latlonclick=1;
+else
+        latlonclick=0;
+end
+if ~isnan(options_structure.fontsize),
+        fontsize=options_structure.fontsize;
+else
+        fontsize=16;
+end
 
 %recover arguments (set default parameters if needed)
@@ -84 +98 @@
                 l=line(x,y,'Color',color);
                 if numbering,
-                        disp(['Specifiy where to put number for longitude ' num2str(lon(i))]);
-                        [xcorner,ycorner]=ginput(1);
+                        if latlonclick
+                                disp(['Specifiy where to put number for longitude ' num2str(lon(i))]);
+                                [xcorner,ycorner]=ginput(1);
 
-                        %Find nearest point on this profile corresponding to (xcorner,ycorner):
-                        ind=find_point(x,y,xcorner,ycorner); xcorner=x(ind); ycorner=y(ind);
+                                %Find nearest point on this profile corresponding to (xcorner,ycorner):
+                                ind=find_point(x,y,xcorner,ycorner); xcorner=x(ind); ycorner=y(ind);
+                        else
+                                ind=round(9*length(x)/10); xcorner=x(ind); ycorner=y(ind);
+                        end
                         if length(x(1:ind))>10,
                                 xcorner2=x(ind-10); ycorner2=y(ind-10);
@@ -97 +115 @@
                         
                         if (xcorner>xlimits(1) & xcorner<xlimits(2) & ycorner>ylimits(1) & ycorner<ylimits(2)),
-                                th=text(xcorner,ycorner,[num2str(lon(i)) '^{\circ}']);set(th,'Color',colornumber,'Rotation',angle,'FontSize',16,'HorizontalAlignment','center','VerticalAlignment','middle');
+                                th=text(xcorner,ycorner,[num2str(lon(i)) '^{\circ}']);set(th,'Color',colornumber,'Rotation',angle,'FontSize',fontsize,'HorizontalAlignment','center','VerticalAlignment','middle');
                                 
                                 %erase line and redraw it in two parts, to leave space for latitude number
@@ -123 +141 @@
                 
                 if numbering,
-                        disp(['Specifiy where to put number for latitude ' num2str(lat(i))]);
-                        [xcorner,ycorner]=ginput(1);
+                        if latlonclick
+                                disp(['Specifiy where to put number for latitude ' num2str(lat(i))]);
+                                [xcorner,ycorner]=ginput(1);
 
-                        %Find nearest point on this profile corresponding to (xcorner,ycorner):
-                        ind=find_point(x,y,xcorner,ycorner); xcorner=x(ind); ycorner=y(ind);
+                                %Find nearest point on this profile corresponding to (xcorner,ycorner):
+                                ind=find_point(x,y,xcorner,ycorner); xcorner=x(ind); ycorner=y(ind);
+                        else
+                                ind=round(9*length(x)/10); xcorner=x(ind); ycorner=y(ind);
+                        end
                         if length(x(1:ind))>10,
                                 xcorner2=x(ind-10); ycorner2=y(ind-10);
@@ -136 +158 @@
                         
                         if (xcorner>xlimits(1) & xcorner<xlimits(2) & ycorner>ylimits(1) & ycorner<ylimits(2)),
-                                th=text(xcorner,ycorner,[num2str(lat(i)) '^{\circ}']);set(th,'Color',colornumber,'Rotation',angle,'FontSize',16,'HorizontalAlignment','center','VerticalAlignment','middle');
+                                th=text(xcorner,ycorner,[num2str(lat(i)) '^{\circ}']);set(th,'Color',colornumber,'Rotation',angle,'FontSize',fontsize,'HorizontalAlignment','center','VerticalAlignment','middle');
                                 
                                 %erase line and redraw it in two parts, to leave space for latitude number

issm/trunk/src/m/classes/public/plot/parse_options.m

@@ -559 +559 @@
 end
 
+%latlonnumbering
+latlonclickvalues=findarg(optionstring,'latlonclick');
+if ~isempty(latlonclickvalues),
+        if  strcmpi(latlonclickvalues.value,'on'),
+                options_struct.latlonclick=1;
+        else
+                options_struct.latlonclick=NaN;
+        end
+else
+        options_struct.latlonclick=NaN;
+end
+
 %north arrow
 northarrowvalues=findarg(optionstring,'northarrow');

issm/trunk/src/m/classes/public/plot/plotdoc.m

@@ -95 +95 @@
 disp('       ''latlon'': ''on'' or {latstep lonstep [resolution [color]]} where latstep,longstep and resolution are in degrees, color is a [r g b] array');
 disp('       ''latlonnumbering'': ''on'' or {latgap longap colornumber latangle lonangle} where latgap and longap are pixel gaps for the numbers,'); 
+disp('       ''latlonclick'': ''on'' to click on latlon ticks positions');
 disp('                   colornumber is a [r g b] array and latangle and lonangle are angles to flip the numbers');
 disp('       ''northarrow'': add an arrow pointing north, ''on'' for default value or [x0 y0 length [ratio [width]]] where (x0,y0) are the coordinates of the base, and ratio=headlength/length');