bdelete.m

AFD - Advanced Filter Design using MATLABMiroslav D. Lutovac, Dejan V. Tosicversion 1.00 released 15

function matrixEE = bdelete(x0,y0,dx,ds,F,Nx,Ny,matrixE)

% bdelete.m  DELETE Draw 
% 6:32PM  9/18/99
%
%            Drawing Filter Realizations
%
%   Authors: Miroslav D. Lutovac, Dejan V. Tosic, 1999.02.21
%                 [e-mail]
%                 [e-mail]
%
%   Copyright (c) 1999 by Lutovac & Tosic
%   $Revision: 1.0 $  $Date: 1999/08/21 02:17:42 $
%
%   References:
%        Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           Advanced Filter Design for Signal Processing
%                   Using MATLAB and Mathematica
%

x = zeros(1,4*Nx);
y = zeros(1,4*Ny);
for indx = 1:4*Nx
 x(indx) = x0 + dx*indx/4;
end
for indy = 1:4*Ny
 y(indy) = y0 + dx*indy/4;
end

[nE,ns] = size(matrixE);

if nE > 1
  for indE = nE:-1:2
    set(gcf,'DefaultTextColor','g')
    dc = 'g';
    eval(matrixE(indE,:))
    title('DELETE using mouse      NO  < left ][ right >  YES ')
    [xxe,yye,but]=ginput(1);
    if (but > 1)
      set(gcf,'DefaultTextColor','r')
      dc = 'r';
      eval(matrixE(indE,:))
      matrixE(indE,:)=[];
    else
      set(gcf,'DefaultTextColor','k')
      dc = 'b';
      eval(matrixE(indE,:))
    end
  end
end
matrixEE = matrixE;
    title('                              ')

set(gcf,'DefaultTextColor','k')