filtdraw.m

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

% filtdraw.m    Drawing digital filter realizations (main script)
%
% 8:55PM  9/16/99
%
%            Drawing Digital 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
%

clear all; close all

%fh3 = figure(3); axis off;
fh2 = figure(2); axis off;
fh1 = figure(1); axis off;
xx=get(fh1,'Position')+[50 50 0 0];
set(fh2,'Position',xx);


set(fh1, 'Name', 'Draw Digital Filter Realizations v1.0 beta'...
   , 'NextPlot', 'replace','NumberTitle', 'off')
whitebg(fh1,[1 1 0.8]);

x0 = 0;
y0 = 0;
F = 10;
dx = 4;
ds = 5;
Nx = 7;
Ny = 5;
[x,y]= drawgrid(x0,y0,dx,ds,F,Nx,Ny);

matrixE = ['                                                             '];
XS = ['                                                             '];

txtst = 1;
clf
Nydx = 1;
text(0.1,.98*Nydx,'Draw Digital Filters (c) 1999 M.Lutovac, D.Tosic', 'FontWeight', 'bold')
text(0.1,0.90*Nydx,'DELAY draw delay block z^(-1)')
text(0.1,0.85*Nydx,'MULT draw multiplier block')
text(0.1,0.80*Nydx,'ADDER draw adder block')
text(0.1,0.75*Nydx,'__I draw 2-segment line horizontal+vertical')
text(0.1,0.70*Nydx,'I__ draw 2-segment line vertical+horizontal')
text(0.1,0.65*Nydx,'LINE draw line between two points')
text(0.1,0.60*Nydx,'NODE draw node')
text(0.1,0.55*Nydx,'IN draw input')
text(0.1,0.50*Nydx,'OUT draw output')
text(0.1,0.45*Nydx,'TEXT draw text')
text(0.1,0.40*Nydx,'DELETE delete selected items')
text(0.1,0.35*Nydx,'close exit drawing window')
text(0.1,0.30*Nydx,'VIEW draw realization from auxfilt.m')
text(0.1,0.25*Nydx,'SAVE save drawing in file auxfilt.m')
text(0.1,0.20*Nydx,'LOAD load realization from auxfilt.m')
text(0.1,0.15*Nydx,'redraw redraw realization')
text(0.1,0.10*Nydx,'EDIT edit parameter values')
text(0.1,0.05*Nydx,'NEW start a new drawing')
text(0.1,0.00*Nydx,'EPS make auxfilt.eps from auxfilt.m')

axis('off')
butdraw;