【源码】具有“放大镜”功能的函数magnify

本函数可以通过鼠标控制来弹出放大镜查看2D图片的细节。

Turns the mouse into a pop-up magnifying glass to look at details of 2D plots.

你是否曾经希望MATLAB拥有一个放大镜功能，这样就可以不用一次又一次地放大或缩小就能看到小块区域的细节？

Ever wish MATLAB had a magnifying glass so you could look at the details of a small region of your plots without having to zoom in and out again and again?

只要以感兴趣的图片作为当前图片运行’magnify.m’，然后使用鼠标左键来显示你控制的需要缩放的视图区域。

Just run ‘magnify.m’ with the figure of interest as the current figure, then use the left mouse button to bring up a magnified veiw that you control.

或者使用“Ctrl”键，同时点击图片弹出一个放大镜，释放后“锁定”到图片上（这样可以用于复制和打印图片）。

Or use the ‘Ctrl’ key while clicking to bring up a magnifying glass that ‘locks’ onto the figure when released (for use when copying and printing figures).

使用’<’ 和 '>'键可以将放大镜的尺寸缩小或增大。

Use the ‘<’ and ‘>’ keys to make the magnifying glass smaller or larger.

使用’-’ 和 '+'可以减小或增大缩放的尺度。

Use ‘-’ and ‘+’ to decrease or increase the magnification level.

源代码如下：

function magnify(f1)

%

%magnify(f1)

%

% Figure creates a magnification box when under the mouse

% position when a button is pressed. Press ‘+’/’-’ while

% button pressed to increase/decrease magnification. Press

% ‘>’/’<’ while button pressed to increase/decrease box size.

% Hold ‘Ctrl’ while clicking to leave magnification on figure.

%

% Example:

% plot(1:100,randn(1,100),(1:300)/3,rand(1,300)), grid on,

% magnify;

% Rick Hindman - 7/29/04

if (nargin == 0), f1 = gcf; end;

set(f1, …

‘WindowButtonDownFcn’, @ButtonDownCallback, …

‘WindowButtonUpFcn’, @ButtonUpCallback, …

‘WindowButtonMotionFcn’, @ButtonMotionCallback, …

‘KeyPressFcn’, @KeyPressCallback);

return;

function ButtonDownCallback(src,eventdata)

f1 = src;

a1 = get(f1,‘CurrentAxes’);

a2 = copyobj(a1,f1);

set(f1, …

  'UserData',[f1,a1,a2], ...

  'Pointer','fullcrosshair', ...

  'CurrentAxes',a2);

set(a2, …

  'UserData',[2,0.2], ...  %magnification, frame size

  'Color',get(a1,'Color'), ...

  'Box','on');

xlabel(’’); ylabel(’’); zlabel(’’); title(’’);

set(get(a2,‘Children’), …

  'LineWidth', 2);

set(a1, …

  'Color',get(a1,'Color')*0.95);

set(f1, …

  'CurrentAxes',a1);

ButtonMotionCallback(src);

return;

function ButtonUpCallback(src,eventdata)

H = get(src,‘UserData’);

f1 = H(1); a1 = H(2); a2 = H(3);

set(a1, …

  'Color',get(a2,'Color'));

set(f1, …

  'UserData',[], ...

  'Pointer','arrow', ...

  'CurrentAxes',a1);

if ~strcmp(get(f1,‘SelectionType’),‘alt’),

  delete(a2);

end;

return;

function ButtonMotionCallback(src,eventdata)

H = get(src,‘UserData’);

if ~isempty(H)

  f1 = H(1); a1 = H(2); a2 = H(3);

  a2_param = get(a2,'UserData');

  f_pos = get(f1,'Position');

  a1_pos = get(a1,'Position');



  [f_cp, a1_cp] = pointer2d(f1,a1);



  set(a2,'Position',[(f_cp./f_pos(3:4)) 0 0]+a2_param(2)*a1_pos(3)*[-1 -1 2 2]);

  a2_pos = get(a2,'Position');



set(a2,'XLim',a1_cp(1)+(1/a2_param(1))*(a2_pos(3)/a1_pos(3))*diff(get(a1,'XLim'))*[-0.5 0.5]);

set(a2,'YLim',a1_cp(2)+(1/a2_param(1))*(a2_pos(4)/a1_pos(4))*diff(get(a1,'YLim'))*[-0.5 0.5]);

end;

return;

function KeyPressCallback(src,eventdata)

H = get(gcf,‘UserData’);

if ~isempty(H)

  f1 = H(1); a1 = H(2); a2 = H(3);

  a2_param = get(a2,'UserData');

  if (strcmp(get(f1,'CurrentCharacter'),'+') | strcmp(get(f1,'CurrentCharacter'),'='))

     a2_param(1) = a2_param(1)*1.2;

  elseif (strcmp(get(f1,'CurrentCharacter'),'-') | strcmp(get(f1,'CurrentCharacter'),'_'))

     a2_param(1) = a2_param(1)/1.2;

  elseif (strcmp(get(f1,'CurrentCharacter'),'<') | strcmp(get(f1,'CurrentCharacter'),','))

     a2_param(2) = a2_param(2)/1.2;

  elseif (strcmp(get(f1,'CurrentCharacter'),'>') | strcmp(get(f1,'CurrentCharacter'),'.'))

     a2_param(2) = a2_param(2)*1.2;

  end;

  set(a2,'UserData',a2_param);

ButtonMotionCallback(src);

end;

return;

% Included for completeness (usually in own file)

function [fig_pointer_pos, axes_pointer_val] = pointer2d(fig_hndl,axes_hndl)

%

%pointer2d(fig_hndl,axes_hndl)

%

% Returns the coordinates of the pointer (in pixels)

% in the desired figure (fig_hndl) and the coordinates

% in the desired axis (axes coordinates)

%

% Example:

% figure(1),

% hold on,

% for i = 1:1000,

% [figp,axp]=pointer2d;

% plot(axp(1),axp(2),’.’,‘EraseMode’,‘none’);

% drawnow;

% end;

% hold off

% Rick Hindman - 4/18/01

if (nargin == 0), fig_hndl = gcf; axes_hndl = gca; end;

if (nargin == 1), axes_hndl = get(fig_hndl,‘CurrentAxes’); end;

set(fig_hndl,‘Units’,‘pixels’);

pointer_pos = get(0,‘PointerLocation’); %pixels {0,0} lower left

fig_pos = get(fig_hndl,‘Position’); %pixels {l,b,w,h}

fig_pointer_pos = pointer_pos - fig_pos([1,2]);

set(fig_hndl,‘CurrentPoint’,fig_pointer_pos);

if (isempty(axes_hndl)),

axes_pointer_val = [];

elseif (nargout == 2),

axes_pointer_line = get(axes_hndl,'CurrentPoint');

axes_pointer_val = sum(axes_pointer_line)/2;

end;

源码下载地址：

http://page5.dfpan.com/fs/dlc9j2b21329116d4c7/

更多精彩文章请关注微信号：