function mia_pixval(arg1, arg2)
% function mia_pixval(arg1, arg2)
%
% Display information about image pixels. It is almost same as the
% PIXVAL built in Matlab function, exept that mia_pixval considers the measure
% and the unit of the pixels (xypixsize, pixunit). Also it can take into
% consideration the current colormap showing the original pixel values
% in tha case of the RGB image(currentmap). These additional variables should be
% defined as global variables in the the gVOIpixval structure, that is:
% gVOIpixval.xypixsize
% gVOIpixval.pixunit
% gVOIpixval.currentmap
%
% Zoom and pan capabilities added at later. Middle drag to zoom
% and right drag on the image to pan, double click to restore the original.
%
% Matlab library function for mia_gui utility.
% University of Debrecen, PET Center/LB 2003-2004
global gVOIpixval
% PIXVAL('ON') turns on interactive display of information about image pixels
% in the current figure. PIXVAL installs a black bar at the bottom of the
% figure which displays the (x,y) coordinates for whatever pixel the
% cursor is currently over, and the color information for that pixel. If
% the image is binary or intensity, the color information is a single
% intensity value. If the image is indexed or RGB, the color information
% is an RGB triplet. The values displayed are the actual data values,
% regardless of the class of the image array, or whether the data is in
% normal image range.
%
% If you click on the image and hold down the mouse button while you move
% the cursor, PIXVAL also displays the Euclidean distance between the
% point you clicked on and current cursor location. PIXVAL draws a line
% between these points to indicate the distance being measured. When you
% release the mouse button, the line and the distance display disappear.
%
% You can move the display bar by clicking on it and dragging it to
% another place in the figure.
%
% PIXVAL('OFF') turns interactive display off in the current figure. You can
% also turn off the display by clicking the button on the right side of
% the display bar.
%
% PIXVAL toggles interactive display on or off in the current figure.
%
% PIXVAL(FIG,OPTION) applies the PIXVAL command to the figure specified
% by figure handle FIG. OPTION is string containing 'on' or 'off'.
%
% PIXVAL(AX,OPTION) applies the PIXVAL command to the figure that contains
% the axes AX. OPTION is string containing 'on' or 'off'.
%
% PIXVAL(HIMG,OPTION) applies the PIXVAL command to the figure that contains
% the image object H. OPTION is string containing 'on' or 'off'.
%
% See also IMPIXEL, IMPROFILE.
% Copyright 1993-2002 The MathWorks, Inc.
% $Revision: 1.23 $ $Date: 2002/03/15 15:28:53 $
error(nargchk(0,4,nargin));
if nargin==0
arg1 = gcf;
end
if ischar(arg1) % execute a callback
switch lower(arg1)
case 'pixvalmotionfcn'
PixvalMotionFcn;
case 'buttondownonimage'
ButtonDownOnImage;
case 'backtonormalpixvaldisplay'
BackToNormalPixvalDisplay;
case 'movedisplaybar'
MoveDisplayBar;
case 'on'
mia_pixval(gcf, 'on');
case 'off'
mia_pixval(gcf, 'off');
case 'deletedisplaybar'
DeleteDisplayBar;
end
else % mia_pixval(FIG)
% mia_pixval
% mia_pixval(FIG,OPTION)
% mia_pixval(AX)
% mia_pixval(AX,OPTION)
% mia_pixval(IMG)
% mia_pixval(IMG,OPTION)
if ~ishandle(arg1)
msgId = 'Images:pixval:invalidHandle';
msg = 'The first argument must be a valid figure, axes, or image handle.';
error(msgId, '%s', msg);
else
images = findobj(arg1, 'tag', 'MainImage');
if isempty(images)
return
end
figureHandle = get(get(images(1), 'parent'), 'parent');
if ~strcmp(get(figureHandle,'Units'),'pixels')
msgId = 'Images:pixval:incorrectFigureUnits';
msg = 'Set the figure units to ''pixels'' for PIXVAL.';
error(msgId, '%s', msg);
end
if nargin>1 % pixval(FIG, OPTION)
%checkstrs(arg2,{'on','off'},mfilename,'OPTION',2);
if strcmp(lower(arg2), 'off')
action = 'destroy';
else
action = 'create';
end
else % mia_pixval(FIG) or mia_pixval
% Toggle the state
displayBar = findobj(figureHandle, 'tag', 'pixel value display bar');
if isempty(displayBar)
action = 'create';
else
action = 'destroy';
end
end
% Put things in the Images' UserData so that pixel value display works
switch action
case 'destroy'
displayBar = findobj(figureHandle, 'tag', 'pixel value display bar');
if ~isempty(displayBar)
DeleteDisplayBar(displayBar);
end
case 'create'
otherDisplayBar = findobj(figureHandle, 'tag', ...
'pixel value display bar');
if ~isempty(otherDisplayBar)
% mia_pixval is already ON for this figure.
return
end
% Save the interactive state of the figure. UICLEARMODE now
% does everything that UISUSPEND used to do. It calls
% SCRIBECLEARMODE to take care of SCRIBE. We WILL be
% restoring the state - this is a change. UICLEARMODE also
% registers a way to disable pixval
%%dbud.oldFigureUIState = uiclearmode(figureHandle,'mia_pixval',figureHandle,'off');
AxisHandle = findobj(figureHandle, 'tag', 'ImaAxes');
dbud.xLim = get(AxisHandle,'XLim');% for zoom mode
dbud.yLim = get(AxisHandle,'YLim');% for zoom mode
dbud.old_pt = 0;% for zoom mode
% Make sure the SCRIBE toolbar doesn't go away
plotedit(figureHandle,'locktoolbarvisibility');
% Make sure that the Motion function doesn't interrupt itself
set(figureHandle, 'Interruptible', 'off', 'busyaction', 'queue');
% Make sure that the Image's Button Down & Up functions will queue
set(images, 'Interruptible', 'off', 'BusyAction', 'Queue');
% dbud is the UserData structure which is going into the display bar
dbud.figureHandle = figureHandle;
dbud.displayMode = 'normal';
figPos = get(dbud.figureHandle, 'position');
tempStr = sprintf(' %g, %g = %6.4f,%6.4f,%6.4f dist = %3.3f', ...
-0.9999,-0.9999,pi/10,pi/10,pi/10,pi*100);
% Calculate the position vector of the display bar
tempTxt = uicontrol('Parent', dbud.figureHandle, 'horiz', 'left', ...
'Style', 'text', 'Units', 'pixels', 'visible', 'off', 'fontname', ...
'FixedWidth','String', tempStr, 'position', [0 0 figPos(3) 20]);
extent= get(tempTxt, 'extent');
txtHt = extent(4);
txtWid = extent(3)+txtHt; % Leave room for the close button
delete(tempTxt);
% Create position vectors for Text, Frame, and Close Button
pos = [0 0 min(txtWid,(figPos(3))-txtHt)*9/16 txtHt];
btnSide = pos(4)-4; % In pixels
btnPos = [pos(1)+pos(3)+2 pos(2)+2 btnSide btnSide];
frmPos = [pos(1)+pos(3) 0 txtHt txtHt];
% Create a frame for the display bar. I do this because of a bug in
% MATLAB 5.2 where the text field pops to the front of the button each
% time it is updated. It should stay behind in which case, all we would
% need is the text uicontrol and the button. We can take the frame out
% if the bug gets fixed. Make sure the frame doesn't fall behind the
% text control, otherwise you can't execute the text control's buttondown
% function (another MATLAB 5.2 bug).
dbud.DisplayFrame = uicontrol('Parent', figureHandle, ...
'style', 'frame', ...
'Units', 'pixels', ...
'Position', frmPos, ...
'Background', [0 0 0], ...
'BusyAction', 'queue', ...
'Interruptible', 'off');
set(dbud.DisplayFrame,'Units','normalized');
% Create the display bar
dbud.buttonDownImage = 0; % Image 0 never exists
DisplayBar = uicontrol('Parent', figureHandle, ...
'Style','text', ...
'Units','pixels', ...
'Position',pos, ...
'Foreground', [1 1 .5], ...
'Background', [0 0 0], ...
'Horiz','left', ...
'Tag', 'pixel value display bar', ...
'String','', ...
'fontname', 'FixedWidth', ...
'BusyAction', 'queue', ...
'enable', 'inactive', ...
'Interruptible', 'off');
% 'ButtonDownFcn', 'mia_pixval(''MoveDisplayBar'')', ...
% 'DeleteFcn', 'mia_pixval(''DeleteDisplayBar'')', ...
set(DisplayBar,'Units','normalized');
% Create the close button
dbud.CloseButton = uicontrol('Parent', figureHandle, ...
'style', 'pushbutton', ...
'units', 'pixels', ...
'position', btnPos, ...
'BusyAction', 'queue', ...
'Interruptible', 'off');
% 'DeleteFcn', 'mia_pixval(''DeleteDisplayBar'')', ...
% 'String', 'X', ...
% 'Callback', 'mia_pixval(''DeleteDisplayBar'')', ...
set(dbud.CloseButton,'Units','normalized');
% Register the motion function and button up function
set(figureHandle, 'WindowButtonMotionFcn',...
'mia_pixval(''PixvalMotionFcn'')')
set(DisplayBar, 'UserData', dbud);
PixvalMotionFcn(DisplayBar);
end
end
end
%%%
%%% Sub-function - PixvalMotionFcn
%%%
function PixvalMotionFcn(displayBar)
if nargin<1
displayBar = findobj(gcbf, 'Tag', 'pixel value display bar');
end
if isempty(displayBar)
% Pixval is in a half-broken state. Another function (like zoom) has
% restored pixval callbacks and mia_pixval has already been uninstalled.
% Call uisuspend to gracefully get rid of the callbacks.
% Note 7/21/98 - Since we are now using UICLEARMODE instead of
% UISUSPEND, I think that we should never get into this
% state. It will only happen if a user writes a function
% which calls UIRESTORE without ever calling UICLEARMDOE or
% SCRIBECLEARMODE. We'll leave this code here just to be safe.
uisuspend(gcbf);
return
end
dbud = get(displayBar, 'UserData');
%get(get(dbud.figureHandle,'CurrentObject'),'tag')
%get(get(dbud.figureHandle,'CurrentObject'),'type')
pt = get(dbud.figureHandle, 'CurrentPoint');
x = pt(1,1); y = pt(1,2);
if strcmp(dbud.displayMode, 'normal')
% See if we're above the displayBar
dbpos = get(displayBar, 'Position');
left = dbpos(1);
bottom = dbpos(2);
width = dbpos(3);
height = dbpos(4);
% On the line below, we look to see if x<=left+width+height because
% there is a frame next to the text object, see note above about the
% MATLAB 5.2 bug we're working around
if x>=left & x<=left+width+height & y>=bottom & y<=bottom+height
% We're hovering above the display bar
% Look to see if we are above the Close button
cp = get(dbud.CloseButton, 'Position');
if x>=cp(1) & x<=cp(1)+cp(3) & y>=cp(2) & y<=cp(2)+cp(4)
if isfield(dbud, 'oldPointer') % Switch back to the default pointer
set(dbud.figureHandle, 'Pointer', dbud.oldPointer, ...
'PointerShapeCData', dbud.oldPointerShapeCData, ...
'PointerShapeHotSpot', dbud.oldPointerShapeHotSpot);
dbud = rmfield(dbud, {'oldPointer', ...
'oldPointerShapeCData', 'oldPointerShapeHotSpot'});
end
else
% Save the default pointer if there is one
if ~isfield(dbud, 'oldPointer') % We still have the default pointer
dbud.oldPointer = get(dbud.figureHandle, 'Pointer');
dbud.oldPointerShapeCData = get(dbud.figureHandle, 'PointerShapeCData');
dbud.oldPointerShapeHotSpot = get(dbud.figureHandle, 'PointerShapeHotSpot');
end
setptr(dbud.figureHandle, 'hand');
end
else
% We're not hovering over the display bar
[imageHandle,imageType,img,x,y] = OverImage(dbud.figureHandle);
% if we are on the mia ColorbarImages: return /BL
if ~strcmp(get(imageHandle,'tag'),'MainImage') & ~strcmp(get(imageHandle,'tag'),'MainImage2')
set(dbud.figureHandle, 'Pointer', 'arrow');%The oldPointer is allways arrow /BL
return;
end
if imageHandle ~= 0
% Save old pointer and get a new one (use Custom pointer for non-Windows machine)
if ~isfield(dbud, 'oldPointer') % We still have the default pointer
dbud.oldPointer = get(dbud.figureHandle, 'Pointer');
dbud.oldPointerShapeCData = get(dbud.figureHandle, 'PointerShapeCData');
dbud.oldPointerShapeHotSpot = get(dbud.figureHandle, 'PointerShapeHotSpot');
end
if strcmp(computer, 'PCWIN')
set(dbud.figureHandle, 'Pointer', 'cross');
else
[pointerShape, pointerHotSpot] = CreatePointer;
set(dbud.figureHandle, 'Pointer', 'custom', ...
'PointerShapeCData', pointerShape, ...
'PointerShapeHotSpot', pointerHotSpot);
end
% Update the Pixel Value display
UpdatePixelValues(imageHandle, imageType, displayBar,img,x,y);
else
if isfield(dbud, 'oldPointer') % Switch back to the default pointer
% set(dbud.figureHandle, 'Pointer', dbud.oldPointer, ...
% 'PointerShapeCData', dbud.oldPointerShapeCData, ...
% 'PointerShapeHotSpot', dbud.oldPointerShapeHotSpot);
dbud = rmfield(dbud, {'oldPointer', ...
'oldPointerShapeCData', 'oldPointerShapeHotSpot'});
set(displayBar, 'String', '');
end
end
end
elseif strcmp(dbud.displayMode, 'distance')
% If we're in distance mode and in another image, clean up a bit.
[imageHandle,imageType,img,x,y]= OverImage(dbud.figureHandle);
if imageHandle~=0
if imageHandle==dbud.buttonDownImage
UpdatePixelValues(imageHandle, imageType, displayBar,img,x,y);
end
end
end
set(displayBar, 'UserData', dbud);
%%%
%%% Sub-function - OverImage
%%%
function [imageHandle,imageType,img,x,y] = OverImage(figHandle)
% Return the index of which image we are over, and return a 0 if we
% aren't above an image.
images = findobj(figHandle, 'Tag','MainImage');
if isempty(images)
imageHandle=0; imageType=''; img=[]; x=0; y=0;
return
end
% Make sure that the Image's Button Down & Up functions will queue
set(images, 'ButtonDownFcn', 'mia_pixval(''ButtonDownOnImage'')', ...
'Interruptible', 'off', 'BusyAction', 'Queue');
axHandles = get(images, {'Parent'});
axPositions = get([axHandles{:}], {'Position'});
axCurPt = get([axHandles{:}], {'CurrentPoint'});
% Loop over the axes, see if we are above any of them
imageHandle = 0;
for k=1:length(axHandles)
XLim = get(axHandles{k}, 'XLim');
YLim = get(axHandles{k}, 'YLim');
pt = axCurPt{k};
x = pt(1,1); y = pt(1,2);
if x>=XLim(1) & x<=XLim(2) & y>=YLim(1) & y<=YLim(2)
imageHandle = images(k);
break;
end
end
% Figure out image type
if imageHandle ~= 0
[img,flag] = getimage(imageHandle);
switch flag
case 1
imageType = 'indexed';
case 2 %Grayscale in standard range
imageType = 'intensity';
case 3 %Logical or Grayscale in nonstandard range
if islogical(img)
imageType = 'logical';
else
imageType = 'intensity';
end
case 4
imageType = 'rgb';
otherwise
msgId = 'Images:pixval:invalidImage';
msg = ['Invalid image, GETIMAGE returned flag = ' flag '.'];
error(msgId, '%s', msg);
end
else
imageHandle=0; imageType=''; img=[]; x=0; y=0;
end
%%%
%%% Sub-function - UpdatePixelValues
%%%
function UpdatePixelValues(imageHandle, imageType, displayBar,img,x,y)
% This is the motion callback for when we are displaying
% pixels. Either we are in automatic display mode and the
% mouse pointer is moving around or we are in normal mode
% and there has been a button-down but not yet a button up.
% I get the current point and update the string.
global gVOIpixval old_pt_zoom_main x0_pan_main;%temp variables for distance, zoom and pan operation;
dbud = get(displayBar, 'UserData');
[rows,cols,colors] = size(img);
rp = axes2pix(rows, get(imageHandle,'YData'),y);
cp = axes2pix(cols, get(imageHandle,'XData'),x);
r = min(rows, max(1, round(rp)));
c = min(cols, max(1, round(cp)));
if strcmp(imageType,'indexed')
map=get(dbud.figureHandle, 'Colormap');
idx = img(r,c);
if ~isa(idx, 'double'),
idx = double(idx)+1;
end
idx = round(idx);
if idx<=size(map,1)
pixel = map(idx,:);
else
pixel = map(end,:);
end
else
pixel = double(img(r,c,:));
end
ImgSize = size(double(gVOIpixval.CurrentImage));
if x > ImgSize(2) | x < 1 | y > ImgSize(1) | y < 1
% in zoom or pan mod the cursor might be beyond the image area
return;
end
CurPixVal = double(gVOIpixval.CurrentImage(round(y),round(x)));
% figure out the new string
switch dbud.displayMode
case 'normal' % Just display intensity information
if strcmp(imageType,'rgb') | strcmp(imageType,'indexed')
if isa(img, 'uint8') & strcmp(imageType,'rgb')
pixval_str = sprintf(' %g, %g = %3d,%3d,%3d', ...
round(x),round(y),pixel(1),pixel(2),pixel(3));
elseif isa(img, 'uint16') & strcmp(imageType,'rgb')
pixval_str = sprintf(' %g, %g = %5d,%5d,%5d', ...
round(x),round(y),pixel(1),pixel(2),pixel(3));
elseif islogical(img) & strcmp(imageType,'rgb')
pixval_str = sprintf(' %g, %g = %1d,%1d,%1d', ...
round(x),round(y),pixel(1),pixel(2),pixel(3));
else % all indexed images use double precision colormaps
pixval_str = sprintf(' %g,%g = %5.1f ', ...
round(x),round(y),CurPixVal);
end
else
% intensity
if isa(img, 'uint8')
pixval_str = sprintf(' %g,%g = %1d',round(x),round(y),pixel(1));
elseif isa(img, 'int16')
pixval_str = sprintf(' %g,%g = %1d',round(x),round(y),pixel(1));
elseif islogical(img)
pixval_str = sprintf(' %g,%g = %1d',round(x),round(y),pixel(1));
else
pixval_str = sprintf(' %g,%g = %5.1f',round(x),round(y),pixel(1));
end
end
set(displayBar, 'String', (pixval_str), 'UserData', dbud);
case 'distance'
figureHandle = get(get(imageHandle, 'parent'), 'parent');
mouseclick = get(gcf,'SelectionType');
if strcmp(mouseclick,'normal')
delta_x = (x - dbud.x0)*gVOIpixval.xypixsize(1);
delta_y = (y - dbud.y0)*gVOIpixval.xypixsize(2);
dist = sqrt(delta_x^2 + delta_y^2);
sunit = gVOIpixval.pixunit;
set(dbud.line, 'XData', [dbud.x0 x], 'YData', [dbud.y0 y]);
if strcmp(imageType,'rgb') | strcmp(imageType,'indexed')
if isa(img, 'uint8') & strcmp(imageType,'rgb')
pixval_str = sprintf(' %g,%g = %3d,%3d,%3d dist = %3.3f', ...
x,y,pixel(1),pixel(2),pixel(3),dist);
elseif isa(img, 'uint16') & strcmp(imageType,'rgb')
pixval_str = sprintf(' %g,%g = %5d,%5d,%5d dist = %3.3f', ...
x,y,pixel(1),pixel(2),pixel(3),dist);
elseif islogical(img) & strcmp(imageType,'rgb')
pixval_str = sprintf(' %g,%g = %1d,%1d,%1d dist = %3.3f', ...
x,y,pixel(1),pixel(2),pixel(3),dist);
else % all indexed images use double precision colormaps
pixval_str = sprintf([' %g,%g = %5.1f; dist=%3.1f' ,sunit], ...
round(x),round(y),CurPixVal,dist);
end
else % intensity
if isa(img, 'uint8')
pixval_str = sprintf([' %g,%g = %1d; dist=%3.1f',sunit], ...
round(x),round(y),pixel(1),(dist));
elseif isa(img, 'uint16')
pixval_str = sprintf([' %g,%g = %1d; dist=%3.1f',sunit], ...
round(x),round(y),pixel(1),(dist));
elseif islogical(img)
pixval_str = sprintf([' %g,%g = %1d; dist=%3.1f',sunit], ...
round(x),round(y),pixel(1),(dist));
else
pixval_str = sprintf(' %g,%g = %1.1f; dist =%3.1f', ...
round(x),round(y),pixel(1),(dist));
end
end
set(displayBar, 'String', (pixval_str), 'UserData', dbud);
elseif strcmp(mouseclick,'extend') % zoom mode
CurrentAxes = findobj(figureHandle, 'tag', 'ImaAxes');
%set(CurrentAxes,'Units','pixel');
new_pt = get(0,'PointerLocation');
dy = (new_pt(2) - old_pt_zoom_main(2))/abs(old_pt_zoom_main(2))*5;
zoomFactor = (1-dy);
xLim=get(CurrentAxes,'XLim');
yLim=get(CurrentAxes,'YLim');
xLimNew = [0 zoomFactor*diff(xLim)] + xLim(1) + (1-zoomFactor)*diff(xLim)/2;
yLimNew = [0 zoomFactor*diff(yLim)] + yLim(1) + (1-zoomFactor)*diff(yLim)/2;
set(CurrentAxes,'XLim',xLimNew,'YLim',yLimNew);
old_pt_zoom_main = new_pt;
elseif strcmp(mouseclick,'alt') % pan mode
currentPoint = get(figureHandle,'CurrentPoint');
CurrentAxes = findobj(figureHandle, 'tag', 'ImaAxes');
set(CurrentAxes,'Units','pixel');
dx = currentPoint - x0_pan_main;
x0_pan_main = currentPoint;
ap = get(CurrentAxes,'Position');
xLim = get(CurrentAxes,'XLim');
yLim = get(CurrentAxes,'YLim');
set(CurrentAxes,'XLim',xLim-(diff(xLim)*dx(1)/ap(3)), ...
'YLim',yLim+(diff(yLim)*dx(2)/ap(4)));
set(CurrentAxes,'Units','normalized');
elseif strcmp(mouseclick,'open')% restore the original image
xLimNew = gVOIpixval.xLim;
yLimNew = gVOIpixval.yLim;
CurrentAxes = findobj(figureHandle, 'tag', 'ImaAxes');
set(CurrentAxes,'XLim',xLimNew,'YLim',yLimNew);
end
end
%%%
%%% Sub-function - ButtonDownOnImage
%%%
function ButtonDownOnImage
global old_pt_zoom_main x0_pan_main;%temp for zoom and pan operation
imageHandle = gcbo;
figureHandle = get(get(imageHandle,'Parent'),'Parent');
displayBar = findobj(figureHandle, 'Tag', 'pixel value display bar');
dbud = get(displayBar, 'UserData');
axesHandle = get(imageHandle, 'Parent');
mouseclick = get(gcf,'SelectionType');
if strcmp(mouseclick,'normal')% case of distance measuring
% Set the initial point (x0,y0)
pt = get(axesHandle, 'CurrentPoint');
dbud.x0 = pt(1,1);
dbud.y0 = pt(1,2);
dbud.line = line('Parent', axesHandle, ...
'erasemode', 'xor', ...
'color', [1 0 0], ...
'Xdata', [dbud.x0 dbud.x0], ...
'Ydata', [dbud.y0 dbud.y0],'LineWidth',3);
elseif strcmp(mouseclick,'alt') % pan mode
setptr(figureHandle,'closedhand');
elseif strcmp(mouseclick,'extend') % zoom mode
setptr(figureHandle,'glass');
end
dbud.displayMode = 'distance';
old_pt_zoom_main = get(0,'PointerLocation');% for zoom mode
x0_pan_main = get(figureHandle,'CurrentPoint');% for pan mode
dbud.buttonDownImage = imageHandle;
set(displayBar, 'UserData', dbud);
set(dbud.figureHandle, 'WindowButtonUpFcn', 'mia_pixval(''BackToNormalPixvalDisplay'')');
PixvalMotionFcn(displayBar);
%%%
%%% Sub-function - BackToNormalPixvalDisplay
%%%
function BackToNormalPixvalDisplay
displayBar = findobj(gcbo, 'Tag', 'pixel value display bar');
dbud = get(displayBar, 'UserData');
imageHandle = dbud.buttonDownImage;
mouseclick = get(gcf,'SelectionType');
if strcmp(mouseclick,'normal')% case of distance measuring
delete(dbud.line);
dbud.line = [];
dbud.x0 = []; dbud.y0 = [];
end
set(dbud.figureHandle, 'WindowButtonUpFcn', '');
dbud.displayMode = 'normal';
dbud.buttonDownImage = 0;
set(displayBar, 'UserData', dbud);
PixvalMotionFcn(displayBar);
%%%
%%% Sub-function - MoveDisplayBar
%%%
function MoveDisplayBar
displayBar = gcbo;
dbud = get(displayBar, 'UserData');
oldWindowMotionFcn = get(dbud.figureHandle, 'WindowButtonMotionFcn');
set(dbud.figureHandle, 'WindowButtonMotionFcn', '');
oldPointer = get(dbud.figureHandle, 'Pointer');
oldPointerShapeCData = get(dbud.figureHandle, 'PointerShapeCData');
oldPointerShapeHotSpot = get(dbud.figureHandle, 'PointerShapeHotSpot');
setptr(dbud.figureHandle,'closedhand');
txtpos = get(displayBar, 'Position');
frmPos = get(dbud.DisplayFrame, 'Position');
position = txtpos + [0 0 frmPos(3) 0];
position2 = dragrect(position);
dx = position2(1)-position(1);
dy = position2(2)-position(2);
txtpos = txtpos + [dx dy 0 0];
set(displayBar, 'Position', txtpos);
frmPos = frmPos + [dx dy 0 0];
set(dbud.DisplayFrame, 'Position', frmPos);
btnPos = get(dbud.CloseButton, 'Position');
btnPos = btnPos + [dx dy 0 0];
set(dbud.CloseButton, 'Position', btnPos);
set(dbud.figureHandle, 'Pointer', oldPointer, ...
'PointerShapeCData', oldPointerShapeCData, ...
'PointerShapeHotSpot', oldPointerShapeHotSpot)
set(dbud.figureHandle, 'WindowButtonMotionFcn', oldWindowMotionFcn);
%%%
%%% Sub-function - DeleteDisplayBar
%%%
function DeleteDisplayBar(displayBar)
% Take apart the pixel value display - get rid of the text
% uicontrol and clean up the image objects (remove their
% UserData's and get rid of their ButtonDown & Delete Fcn's)
if nargin<1
displayBar = findobj(gcbf, 'Tag', 'pixel value display bar');
end
if ~isempty(displayBar) % if it's empty, there's no work to do.
dbud = get(displayBar, 'UserData');
set(displayBar, 'DeleteFcn', ''); % Make sure there's no recursion
if ishandle(displayBar)
delete(displayBar);
end
if ishandle(dbud.CloseButton)
delete(dbud.CloseButton);
end
if ishandle(dbud.DisplayFrame)
delete(dbud.DisplayFrame);
end
mfh = findobj('tag','mia_figure1');
set(mfh,'WindowButtonMotionFcn','');
mih = findobj('tag','MainImage');
set(mih,'buttonDownFcn','');
% We are once again restoring the figure state, since
% UIRESTORE also will reactivate the SCRIBE toolbar.
%%uirestore(dbud.oldFigureUIState);
% This is what we did for IPT 2.1/ML 5.2 :
% uisuspend(dbud.figureHandle);
end
%%%
%%% Sub-function - CreatePointer
%%%
function [pointerShape, pointerHotSpot] = CreatePointer
pointerHotSpot = [8 8];
pointerShape = [ ...
NaN NaN NaN NaN NaN 1 2 NaN 2 1 NaN NaN NaN NaN NaN NaN
NaN NaN NaN NaN NaN 1 2 NaN 2 1 NaN NaN NaN NaN NaN NaN
NaN NaN NaN NaN NaN 1 2 NaN 2 1 NaN NaN NaN NaN NaN NaN
NaN NaN NaN NaN NaN 1 2 NaN 2 1 NaN NaN NaN NaN NaN NaN
NaN NaN NaN NaN NaN 1 2 NaN 2 1 NaN NaN NaN NaN NaN NaN
1 1 1 1 1 1 2 NaN 2 1 1 1 1 1 1 1
2 2 2 2 2 2 2 NaN 2 2 2 2 2 2 2 2
NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN
2 2 2 2 2 2 2 NaN 2 2 2 2 2 2 2 2
1 1 1 1 1 1 2 NaN 2 1 1 1 1 1 1 1
NaN NaN NaN NaN NaN 1 2 NaN 2 1 NaN NaN NaN NaN NaN NaN
NaN NaN NaN NaN NaN 1 2 NaN 2 1 NaN NaN NaN NaN NaN NaN
NaN NaN NaN NaN NaN 1 2 NaN 2 1 NaN NaN NaN NaN NaN NaN
NaN NaN NaN NaN NaN 1 2 NaN 2 1 NaN NaN NaN NaN NaN NaN
NaN NaN NaN NaN NaN 1 2 NaN 2 1 NaN NaN NaN NaN NaN NaN
NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN];
