source: trunk/src/plot_object.m @ 1098

Last change on this file since 1098 was 1098, checked in by sommeria, 3 years ago

various bugs repaired
File size: 21.4 KB
RevLine 
[8]1%'plot_object': draws a projection object (points, line, plane...)
2%-------------------------------------------------------------------
[432]3% function hh=plot_object(ObjectData,ProjObject,hplot,col)
[8]4%
5%OUTPUT
6%             hh: handles of the graphic object (core part)
7%
8%INPUT:
9%
[432]10% ObjectData: structure representing the object properties:
[379]11%        .Type : style of projection object
[8]12%        .Coord: set of coordinates defining the object position;
13%        .ProjMode=type of projection ;
14%       .ProjAngle=angle of projection;
15%       .DX,.DY,.DZ=increments;
16%       .YMax,YMin: min and max Y
17% ProjObject: projection object corresponding to the current plot (e. g. plane)
18% hplot: handle of the object plot to modify or if it is an axis, the axis
19%            where the object must be plotted, or if it is a figure the plotting figure
20% col: color of the plot, e;g; 'm', 'b' ..;
21
[809]22%=======================================================================
[1093]23% Copyright 2008-2021, LEGI UMR 5519 / CNRS UGA G-INP, Grenoble, France
[809]24%   http://www.legi.grenoble-inp.fr
25%   Joel.Sommeria - Joel.Sommeria (A) legi.cnrs.fr
26%
[8]27%     This file is part of the toolbox UVMAT.
[809]28%
[8]29%     UVMAT is free software; you can redistribute it and/or modify
[809]30%     it under the terms of the GNU General Public License as published
31%     by the Free Software Foundation; either version 2 of the license,
32%     or (at your option) any later version.
33%
[8]34%     UVMAT is distributed in the hope that it will be useful,
35%     but WITHOUT ANY WARRANTY; without even the implied warranty of
36%     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
[809]37%     GNU General Public License (see LICENSE.txt) for more details.
38%=======================================================================
[8]39
[432]40function [hh]=plot_object(ObjectData,ProjObject,hplot,col)
41
[156]42%% default output
[8]43hh=[];%default output
[432]44% object representation is canceled if the field is not projected on a plane or is the same as the represented object
[534]45if ~isfield(ObjectData,'Type')|| isequal(ProjObject,ObjectData)||~isfield(ProjObject,'Type')|| ~strcmp(ProjObject.Type,'plane')
[432]46    if ~isempty(hplot) && ishandle(hplot) && ~strcmp(get(hplot,'Type'),'axes')
47        ObjectPlotData=get(hplot,'UserData');
48        if isfield(ObjectPlotData,'SubObject') & ishandle(ObjectPlotData.SubObject)
49            delete(ObjectPlotData.SubObject);
50        end
51        if isfield(ObjectPlotData,'DeformPoint') & ishandle(ObjectPlotData.DeformPoint)
52            delete(ObjectPlotData.DeformPoint);
53        end
54        delete(hplot)
55    end
56    return
[8]57end
[625]58XMin=0;%default range for the graph
[8]59XMax=0;
60YMin=0;
61YMax=0;
62ZMin=0;
63ZMax=0;
[625]64XMinRange=[];%default range set by input
65XMaxRange=[];
66YMinRange=[];
67YMaxRange=[];
68ZMinRange=[];
69ZMaxRange=[];
[8]70
[156]71%% determine the plotting axes (with handle 'haxes')
[8]72test_newobj=1;
73if ishandle(hplot)
[156]74    if isequal(get(hplot,'Tag'),'proj_object')% hplot is the handle of an object representation 
[8]75        test_newobj=0;
76        haxes=get(hplot,'parent');
[231]77        currentfig=get(haxes,'parent');
[156]78    elseif isequal(get(hplot,'Type'),'axes')% hplot is the handle of an axis
[231]79        haxes=hplot;
[156]80        currentfig=get(hplot,'parent');
81    elseif isequal(get(hplot,'Type'),'figure')% hplot is the handle of a figure
82        set(0,'CurrentFigure',hplot);%set the input figure as the current one
[8]83        haxes=findobj(hplot,'Type','axes');%look for axes in the figure
84        haxes=haxes(1);
[231]85        currentfig=hplot;
[8]86    else
[231]87        currentfig=figure; %create new figure
[8]88        hplot=axes;%create new axes
89        haxes=hplot;
90    end
91else
[231]92    currentfig=figure; %create new figure
[8]93    hplot=axes;%create new axes
94    haxes=hplot;
95end
[231]96set(0,'CurrentFigure',currentfig)%set the currentfigure as the current one
97set(currentfig,'CurrentAxes',haxes);%set the current axes in the current figure
[8]98
[156]99%% default input parameters
[177]100if ~isfield(ObjectData,'ProjMode')||isempty(ObjectData.ProjMode)
[8]101     ObjectData.ProjMode='projection';%default
102end
[177]103if ~isfield(ObjectData,'Coord')||isempty(ObjectData.Coord)
[8]104     ObjectData.Coord=[0 0 0];%default
105end
[379]106if isfield(ObjectData,'RangeX') && ~isempty(ObjectData.RangeX)
107    XMax=max(ObjectData.RangeX);
108    XMin=min(ObjectData.RangeX);
[625]109        XMaxRange=max(ObjectData.RangeX);
110        if numel(ObjectData.RangeX)==2
111    XMinRange=min(ObjectData.RangeX);
112        end
[8]113end
[379]114if isfield(ObjectData,'RangeY')&&~isempty(ObjectData.RangeY)
115    YMax=max(ObjectData.RangeY);
116    YMin=min(ObjectData.RangeY);
[625]117        YMaxRange=max(ObjectData.RangeY);
118        if numel(ObjectData.RangeY)==2
119    YMinRange=min(ObjectData.RangeY);
120        end
[8]121end
[1065]122if isfield(ObjectData,'RangeInterp')&&~isempty(ObjectData.RangeInterp)
123    YMax=ObjectData.RangeInterp;
124end
[379]125if isfield(ObjectData,'RangeZ')&&~isempty(ObjectData.RangeZ)
126    ZMax=max(ObjectData.RangeZ);
127    ZMin=min(ObjectData.RangeZ);
[625]128    ZMaxRange=max(ObjectData.RangeZ);
129    ZMinRange=min(ObjectData.RangeZ);
[8]130end
[625]131if strcmp(ObjectData.Type,'points') && strcmp(ObjectData.ProjMode,'projection')
132    YMax=max(XMax,YMax);
133    YMax=max(YMax,ZMax);
[8]134end
135sizcoord=size(ObjectData.Coord);
136
[156]137%% determine the coordinates xline, yline,xsup,xinf, yinf,ysup determining the new object plot
[954]138test_line=ismember(ObjectData.Type,{'points','line','polyline','polygon','plane','plane_z','volume'});
139test_patch=ismember(ObjectData.ProjMode,{'inside','outside','mask_inside','mask_outside'});
[8]140if test_line
141    xline=ObjectData.Coord(:,1);
142    yline=ObjectData.Coord(:,2);
[177]143    nbpoints=numel(xline);
[954]144    switch ObjectData.Type
145        case 'polygon'
146            xline=[xline; ObjectData.Coord(1,1)];%closing the line
147            yline=[yline; ObjectData.Coord(1,2)];
[1080]148        case {'plane','volume'}
[954]149            if ~isfield(ObjectData,'Angle')
[1080]150                ObjectData.Angle=[0 0 0];
[8]151            end
[1080]152            cosphi=cos(ObjectData.Angle(3)*pi/180);%angle in radians
153            sinphi=sin(ObjectData.Angle(3)*pi/180);%angle in radians
[954]154            x0=xline(1); y0=yline(1);
155            xlim=get(haxes,'XLim');
156            ylim=get(haxes,'YLim');
157            graph_scale=max(abs(xlim(2)-xlim(1)),abs(ylim(2)-ylim(1)))/2;% estimate the length of axes plots
158            XMax=graph_scale;
159            YMax=graph_scale;
160            XMin=-graph_scale;
161            YMin=-graph_scale;
162            if  ~isempty(XMaxRange)
163                XMax=XMaxRange;
[8]164            end
[954]165            if  ~isempty(XMinRange)
166                XMin=XMinRange;
167            end
168            if  ~isempty(YMaxRange)
169                YMax=YMaxRange;
170            end
171            if  ~isempty(YMinRange)
172                YMin=YMinRange;
173            end
174            % axes lines
175            xline=NaN(1,13);
[955]176            xline(1)=x0+min(0,XMin)*cosphi; % min end of the x axes
177            yline(1)=y0+min(0,XMin)*sinphi;
178            xline(2)=x0+XMax*cosphi;% max end of the x axes
179            yline(2)=y0+XMax*sinphi;
180            xline(8)=x0-min(0,YMin)*sinphi;% min end of the y axes
181            yline(8)=y0+min(0,YMin)*cosphi;
182            xline(9)=x0-YMax*sinphi;% max end of the y axes
183            yline(9)=y0+YMax*cosphi;
[954]184           
185            %arrows on x axis
186            arrow_scale=graph_scale/20;
[955]187            phi=acos(cosphi);
[954]188            xline(3)=xline(2)-arrow_scale*cos(phi-pi/8);
189            yline(3)=yline(2)-arrow_scale*sin(phi-pi/8);
190            xline(5)=xline(2);
191            yline(5)=yline(2);
192            xline(6)=xline(2)-arrow_scale*cos(phi+pi/8);
193            yline(6)=yline(2)-arrow_scale*sin(phi+pi/8);
194           
195            %arrows on y axis
196            xline(10)=xline(9)-arrow_scale*cos(phi+pi/2-pi/8);
197            yline(10)=yline(9)-arrow_scale*sin(phi+pi/2-pi/8);
198            xline(12)=xline(9);
199            yline(12)=yline(9);
200            xline(13)=xline(9)-arrow_scale*cos(phi+pi/2+pi/8);
201            yline(13)=yline(9)-arrow_scale*sin(phi+pi/2+pi/8);
202            %xline=[Xbeg_x Xend_x NaN Ybeg_x Yend_x];
203            %yline=[Xbeg_y Xend_y NaN Ybeg_y Yend_y];
204            %  dashed lines indicating bounds
205            xsup=NaN(1,5);
206            ysup=NaN(1,5);
207            if ~isempty(XMaxRange)
208                xsup(1)=xline(2)-YMin*sin(phi);
209                ysup(1)=yline(2)+YMin*cos(phi);
210                xsup(2)=xline(2)-YMax*sin(phi);
211                ysup(2)=yline(2)+YMax*cos(phi);
212            end
213            if ~isempty(YMaxRange)
214                xsup(2)=xline(2)-YMax*sin(phi);
215                ysup(2)=yline(2)+YMax*cos(phi);
216                xsup(3)=xline(9)+XMin*cos(phi);
217                ysup(3)=yline(9)+XMin*sin(phi);
218            end
219            if ~isempty(XMinRange)
220                xsup(3)=xline(9)+XMin*cos(phi);
221                ysup(3)=yline(9)+XMin*sin(phi);
222                xsup(4)=x0+XMin*cos(phi)-YMin*sin(phi);
223                ysup(4)=y0+XMin*sin(phi)+YMin*cos(phi);
224            end
225            if ~isempty(YMinRange)
226                xsup(4)=x0+XMin*cos(phi)-YMin*sin(phi);
227                ysup(4)=y0+XMin*sin(phi)+YMin*cos(phi);
228                xsup(5)=xline(8)-YMin*sin(phi);
229                ysup(5)=yline(8)+YMin*cos(phi);
230            end
231    end
232end
233SubLineStyle='none';%default
234if isfield(ObjectData,'ProjMode')
235    if isequal(ObjectData.ProjMode,'projection')
236        SubLineStyle='--'; %range of projection marked by dash
237        if isfield (ObjectData,'DX')
238            ObjectData=rmfield(ObjectData,'DX');
[8]239        end
[954]240        if isfield (ObjectData,'DY')
241            ObjectData=rmfield(ObjectData,'DY');
[8]242        end
[954]243    elseif isequal(ObjectData.ProjMode,'filter')
244        SubLineStyle=':';%range of projection not visible
[8]245    end
246end
[955]247if ismember(ObjectData.Type,{'line','polyline','polygon'})
[954]248    if length(xline)<2
249        theta=0;
250    else
251        theta=angle(diff(xline)+1i*diff(yline));
252        theta(length(xline))=theta(length(xline)-1);
253    end
254    xsup(1)=xline(1)+YMax*sin(theta(1));
255    xinf(1)=xline(1)-YMax*sin(theta(1));
256    ysup(1)=yline(1)-YMax*cos(theta(1));
257    yinf(1)=yline(1)+YMax*cos(theta(1));
258    for ip=2:length(xline)
259        xsup(ip)=xline(ip)+YMax*sin((theta(ip)+theta(ip-1))/2)/cos((theta(ip-1)-theta(ip))/2);
260        xinf(ip)=xline(ip)-YMax*sin((theta(ip)+theta(ip-1))/2)/cos((theta(ip-1)-theta(ip))/2);
261        ysup(ip)=yline(ip)-YMax*cos((theta(ip)+theta(ip-1))/2)/cos((theta(ip-1)-theta(ip))/2);
262        yinf(ip)=yline(ip)+YMax*cos((theta(ip)+theta(ip-1))/2)/cos((theta(ip-1)-theta(ip))/2);
263    end
264end
[8]265
[156]266%% shading image
[8]267if test_patch
268    npMx=512;
269    npMy=512; 
270    flag=zeros(npMy,npMx);
[379]271    if isequal(ObjectData.Type,'ellipse')
[8]272        XimaMin=ObjectData.Coord(1,1)-XMax;
273        XimaMax=ObjectData.Coord(1,1)+XMax;
274        YimaMin=ObjectData.Coord(1,2)-YMax;
275        YimaMax=ObjectData.Coord(1,2)+YMax;
276        xlim=[1.2*XimaMin-0.2*XimaMax 1.2*XimaMax-0.2*XimaMin];%create an image around the ellipse
277        ylim=[1.2*YimaMin-0.2*YimaMax 1.2*YimaMax-0.2*YimaMin];
278        scale_x=2*1.4*XMax/npMx;
279        scale_y=2*1.4*YMax/npMy;
[177]280        xi=(0.5:npMx-0.5)*scale_x+xlim(1);
281        yi=(0.5:npMy-0.5)*scale_y+ylim(1);
[8]282        [Xi,Yi]=meshgrid(xi,yi);
283        X2Max=XMax*XMax;
284        Y2Max=YMax*YMax;
285        distX=(Xi-ObjectData.Coord(1,1));
286        distY=(Yi-ObjectData.Coord(1,2));
287        flag=(distX.*distX/X2Max+distY.*distY/Y2Max)<1;
[379]288    elseif isequal(ObjectData.Type,'rectangle')||isequal(ObjectData.Type,'volume')
[8]289        XimaMin=ObjectData.Coord(1,1)-XMax;
290        XimaMax=ObjectData.Coord(1,1)+XMax;
291        YimaMin=ObjectData.Coord(1,2)-YMax;
292        YimaMax=ObjectData.Coord(1,2)+YMax;
293        xlim=[1.2*XimaMin-0.2*XimaMax 1.2*XimaMax-0.2*XimaMin];%create an image around the ellipse
294        ylim=[1.2*YimaMin-0.2*YimaMax 1.2*YimaMax-0.2*YimaMin];
295        scale_x=2*1.4*XMax/npMx;
296        scale_y=2*1.4*YMax/npMy;
[177]297        xi=(0.5:npMx-0.5)*scale_x+xlim(1);
298        yi=(0.5:npMy-0.5)*scale_y+ylim(1);
[8]299        [Xi,Yi]=meshgrid(xi,yi);
300        distX=abs(Xi-ObjectData.Coord(1,1));
301        distY=abs(Yi-ObjectData.Coord(1,2));
302        flag=distX<XMax & distY< YMax;
[379]303    elseif isequal(ObjectData.Type,'polygon')
[8]304        XimaMin=min(ObjectData.Coord(:,1));
305        XimaMax=max(ObjectData.Coord(:,1));
306        YimaMin=min(ObjectData.Coord(:,2));
307        YimaMax=max(ObjectData.Coord(:,2));
308        xlim=[1.2*XimaMin-0.2*XimaMax 1.2*XimaMax-0.2*XimaMin];
309        ylim=[1.2*YimaMin-0.2*YimaMax 1.2*YimaMax-0.2*YimaMin];
310        [Xlim,Ylim]=meshgrid(linspace(xlim(1),xlim(2),npMx),linspace(ylim(1),ylim(2),npMy));
311        %flag=roipoly(xlim,ylim,flag,ObjectData.Coord(:,1),ObjectData.Coord(:,2));%=1 inside the polygon, 0 outsid
312        flag=inpolygon(Xlim,Ylim,ObjectData.Coord(:,1),ObjectData.Coord(:,2));%=1 inside the polygon, 0 outsid
313    end
314    if isequal(ObjectData.ProjMode,'outside')||isequal(ObjectData.ProjMode,'mask_outside')
315        flag=~flag;
316    end
317    imflag=zeros(npMx,npMy,3);
318    imflag(:,:,3)=flag; % blue color
319    if isequal(col,'m')
320         imflag(:,:,1)=flag; % magenta color
321    end
322    dx=(xlim(2)-xlim(1))/npMx;
323    dy=(ylim(2)-ylim(1))/npMy;
324end
325
326PlotData=[];%default
[177]327
[156]328%% MODIFY AN EXISTING OBJECT PLOT
[1080]329if test_newobj==0
[8]330    hh=hplot;
[625]331    PlotData=get(hplot,'UserData');
[8]332    if test_line
333        set(hplot,'XData',xline)
334        set(hplot,'YData',yline)
[625]335        %modify subobjects
336        if isfield(PlotData,'SubObject')
337            if isequal(ObjectData.Type,'points')
338                if ~isequal(YMax,0)
339                    for ipt=1:min(length(PlotData.SubObject),size(ObjectData.Coord,1))
340                        set(PlotData.SubObject(ipt),'Position',[ObjectData.Coord(ipt,1)-YMax ObjectData.Coord(ipt,2)-YMax 2*YMax 2*YMax])
341                    end
342                    %complement missing points
343                    if length(PlotData.SubObject)>nbpoints% fpoints in excess on the graph
[1098]344                        for ii=nbpoints+1: length(PlotData.SubObject)
[625]345                            if ishandle(PlotData.SubObject(ii))
346                                delete(PlotData.SubObject(ii))
347                            end
348                        end
349                    end
350                    if nbpoints>length(PlotData.SubObject)
351                        for ipt=length(PlotData.SubObject)+1:nbpoints
352                            PlotData.SubObject(ipt)=rectangle('Curvature',[1 1],...
353                                'Position',[ObjectData.Coord(ipt,1)-YMax ObjectData.Coord(ipt,2)-YMax 2*YMax 2*YMax],'EdgeColor',col,...
354                                'LineStyle',SubLineStyle,'Tag','proj_object');
355                        end
356                    end
357                end
358            elseif length(PlotData.SubObject)==2
[8]359                set(PlotData.SubObject(1),'XData',xinf);
360                set(PlotData.SubObject(1),'YData',yinf);
361                set(PlotData.SubObject(2),'XData',xsup);
362                set(PlotData.SubObject(2),'YData',ysup);
[625]363            elseif length(PlotData.SubObject)==1
364                set(PlotData.SubObject(1),'XData',xsup);
365                set(PlotData.SubObject(1),'YData',ysup);
366            end
[8]367        end
368        if isfield(PlotData,'DeformPoint')
[622]369            NbDeformPoint=length(PlotData.DeformPoint);
[1098]370            % delete deformpoints in excess on the graph
371            if NbDeformPoint>nbpoints
[1080]372                for ii=nbpoints+1:NbDeformPoint
[625]373                    if ishandle(PlotData.DeformPoint(ii))
[622]374                        delete(PlotData.DeformPoint(ii))
[625]375                    end
376                end
377                NbDeformPoint=nbpoints;
378            end
[1098]379            % update the position of the existing deformpoints
[625]380            for ipt=1:NbDeformPoint
381                if ishandle(PlotData.DeformPoint(ipt))
382                    if nbpoints>=ipt
[8]383                        set(PlotData.DeformPoint(ipt),'XData',xline(ipt),'YData',yline(ipt));
384                    end
[625]385                end
386            end
[1098]387            % add neww deform points if requested
[625]388            if nbpoints>length(PlotData.DeformPoint)
389                for ipt=length(PlotData.DeformPoint)+1:nbpoints
[922]390                    PlotData.DeformPoint(ipt)=line(xline(ipt),yline(ipt),'Color',col,'LineStyle','-','Tag','DeformPoint',...
[1098]391                        'Marker','.','MarkerSize',12,'SelectionHighlight','off','UserData',hplot);
[625]392                end
393                set(hplot,'UserData',PlotData)
394            end
[8]395        end
[622]396    elseif (isequal(ObjectData.Type,'rectangle')||isequal(ObjectData.Type,'ellipse'))&&XMax>0 && YMax>0
[625]397        set(hplot,'Position',[ObjectData.Coord(1,1)-XMax ObjectData.Coord(1,2)-YMax 2*XMax 2*YMax])
[8]398    end
[625]399    if test_patch
[681]400        if isfield(PlotData,'SubObject')
[8]401        for iobj=1:length(PlotData.SubObject)
[655]402            if ~ishandle(PlotData.SubObject(iobj))
403                hold on
404                hhh=image([xlim(1)+dx/2 xlim(2)-dx/2],[ylim(1)+dy/2 ylim(2)-dy/2],imflag,'Tag','proj_object','HitTest','off');
405                set(hhh,'AlphaData',(flag)*0.2)% set partial transparency to the filling color
406                PlotData.SubObject(iobj)=hhh;
407            else
408                objtype=get(PlotData.SubObject(iobj),'Type');
409                if isequal(objtype,'image')
410                    set(PlotData.SubObject(iobj),'CData',imflag,'AlphaData',(flag)*0.2)
411                    set(PlotData.SubObject(iobj),'XData',[xlim(1)+dx/2 xlim(2)-dx/2])
412                    set(PlotData.SubObject(iobj),'YData',[ylim(1)+dy/2 ylim(2)-dy/2])
413                end
[8]414            end
[681]415        end
416        end
[655]417    else% no patch image requested, erase existing ones
[680]418        if isfield(PlotData,'SubObject')
[954]419            for iobj=1:length(PlotData.SubObject)
420                if ishandle(PlotData.SubObject(iobj)) && strcmp(get(PlotData.SubObject(iobj),'Type'),'image')
421                    delete(PlotData.SubObject(iobj))
422                end
[655]423            end
[8]424        end
425    end
426end
427
[156]428%% create the object
[8]429if test_newobj
430    hother=findobj('Tag','proj_object');%find all the proj objects
431    for iobj=1:length(hother)
[177]432        if strcmp(get(hother(iobj),'Type'),'rectangle')|| strcmp(get(hother(iobj),'Type'),'patch')
[8]433            set(hother(iobj),'EdgeColor','b')
434            if isequal(get(hother(iobj),'FaceColor'),'m')
435                set(hother(iobj),'FaceColor','b')
436            end
437        elseif isequal(get(hother(iobj),'Type'),'image')
438               Acolor=get(hother(iobj),'CData');
439               Acolor(:,:,1)=zeros(size(Acolor,1),size(Acolor,2));
440               set(hother(iobj),'CData',Acolor);
441        else
442             set(hother(iobj),'Color','b')
443        end
444        set(hother(iobj),'Selected','off')
445    end
446    hother=findobj('Tag','DeformPoint');
447    set(hother,'Color','b');
448    set(hother,'Selected','off') 
[625]449    switch ObjectData.Type
450        case 'points'
[937]451            hh=line(ObjectData.Coord(:,1),ObjectData.Coord(:,2),'Color',col,'LineStyle','none','Marker','+');
[625]452            for ipt=1:length(xline)
[8]453                PlotData.DeformPoint(ipt)=line(ObjectData.Coord(ipt,1),ObjectData.Coord(ipt,2),'Color',...
[1098]454                    col,'LineStyle','none','Marker','.','MarkerSize',12,'SelectionHighlight','off','UserData',hh,'Tag','DeformPoint');
[625]455                %create circle around each point
456                if ~isequal(YMax,0)
457                    PlotData.SubObject(ipt)=rectangle('Curvature',[1 1],...
458                        'Position',[ObjectData.Coord(ipt,1)-YMax ObjectData.Coord(ipt,2)-YMax 2*YMax 2*YMax],'EdgeColor',col,...
459                        'LineStyle',SubLineStyle,'Tag','proj_object');
460                end
[8]461            end
[955]462        case {'line','polyline','polygon'}
[625]463            hh=line(xline,yline,'Color',col);
464                PlotData.SubObject(1)=line(xinf,yinf,'Color',col,'LineStyle',SubLineStyle,'Tag','proj_object');%draw sub-lines
465                PlotData.SubObject(2)=line(xsup,ysup,'Color',col,'LineStyle',SubLineStyle,'Tag','proj_object');
466                for ipt=1:sizcoord(1)
467                    PlotData.DeformPoint(ipt)=line(ObjectData.Coord(ipt,1),ObjectData.Coord(ipt,2),'Color',...
[1098]468                        col,'LineStyle','none','Marker','.','MarkerSize',12,'Tag','DeformPoint','SelectionHighlight','off','UserData',hh);
[625]469                end
[1080]470        case {'plane','volume'}
[625]471            hh=line(xline,yline,'Color',col);
472            PlotData.SubObject(1)=line(xsup,ysup,'Color',col,'LineStyle',SubLineStyle,'Tag','proj_object');
473        case 'rectangle'
474            hh=rectangle('Position',[ObjectData.Coord(1,1)-XMax ObjectData.Coord(1,2)-YMax 2*XMax 2*YMax],'LineWidth',2,'EdgeColor',col);
475        case 'ellipse'
[680]476            hh=rectangle('Curvature',[1 1],'Position',[ObjectData.Coord(1,1)-XMax ObjectData.Coord(1,2)-YMax 2*XMax 2*YMax],'EdgeColor',col,'LineWidth',2);
[625]477        otherwise
478            msgbox_uvmat('ERROR','unknown ObjectData.Type in plot_object.m')
479            return
[8]480    end
481    set(hh,'Tag','proj_object')
[187]482     if test_patch
483         hold on
[8]484        hhh=image([xlim(1)+dx/2 xlim(2)-dx/2],[ylim(1)+dy/2 ylim(2)-dy/2],imflag,'Tag','proj_object','HitTest','off');
[187]485       set(hhh,'AlphaData',(flag)*0.2)% set partial transparency to the filling color
486         PlotData.SubObject=hhh;   
487     end
[8]488    if isfield(PlotData,'SubObject')
489        set(PlotData.SubObject,'UserData',hh)%record the parent handles in the SubObjects
490    end
491    if isfield(PlotData,'DeformPoint')
492        for ipt=1:sizcoord(1)
493            set(PlotData.DeformPoint(ipt),'UserData',hh);%record the parent handles in the SubObjects
494        end
495        set(PlotData.DeformPoint,'UserData',hh)%record the parent handles in the SubObjects
496    end
497end
498set(hh,'UserData',PlotData)
Note: See TracBrowser for help on using the repository browser.