drawmult.m

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

function dr = drawmult(c,d,f,t,l,p,s,F,dc)

% drawmult(c,d,f,t,l,p,s,F,dc)
% c = x1 
% d = y1
% f = x2 or y2
% t = text      "A"
% l =label      "a"
% p = orientation: 
%         input --I>-- output
%     0 = left  --I>-- right
%     1 = down  --I>-- up
%     2 = right --I>-- left
%     3 = up    --I>-- down
% s = scale
% F = font size 
% dc= draw color
% ----------------
% drawmult.m  Draw MULT

% 8:55PM  9/16/99
%
%            Drawing Filter Realizations
%
%   Authors: Miroslav D. Lutovac, Dejan V. Tosic, 1999.08.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
%

a=(f+c)/2-0.4*s;
b=d;
g=c;
h=(f+d)/2-0.4*s;

if p == 0
 x1 = a + s*[0.6, 0.2, 0.2, 0.6, (f-a)/s];
 y1 = b + s*[  0, 0.3,-0.3,   0,       0];
 x2 = a + s*[(c-a)/s, 0.2];  y2 = b + s*[0, 0];
line(x1,y1,'Color',dc);  line(x2,y2,'Color',dc);
 text(a+s*0.5,b+s*0.3,l,'FontName','Times','FontSize',F,...
   'HorizontalAlignment','left','VerticalAlignment','cap')
 text(a+s*0.5,b+s*0.3,t,'FontName','Times-Italic','FontSize',F,...
   'HorizontalAlignment','left','VerticalAlignment','baseline')
elseif p == 1
 x1 = g + s*[0,0.3,-0.3,0,0];
 y1 = h + s*[0.6,0.2,0.2,0.6,(f-h)/s];
 x2 = g + s*[0,0];  y2 = h + s*[(d-h)/s,0.2];
 line(x1,y1,'Color',dc);  line(x2,y2,'Color',dc);
 text(g-s*0.2,h+s*0.5,l,'FontName','Times','FontSize',F,...
   'HorizontalAlignment','right','VerticalAlignment','cap')
 text(g-s*0.2,h+s*0.5,t,'FontName','Times-Italic','FontSize',F,...
   'HorizontalAlignment','right','VerticalAlignment','baseline')
elseif p == 2
 x1 = a + s*[0.2,0.6,0.6,0.2,(c-a)/s];
 y1 = b + s*[0,0.3,-0.3,0,0];
 x2 = a + s*[(f-a)/s,0.6];  y2 = b + s*[0,0];
 line(x1,y1,'Color',dc);  line(x2,y2,'Color',dc);
 text(a+s*0.3,b-s*0.3,l,'FontName','Times','FontSize',F,...
   'HorizontalAlignment','right','VerticalAlignment','cap')
 text(a+s*0.3,b-s*0.3,t,'FontName','Times-Italic','FontSize',F,...
   'HorizontalAlignment','right','VerticalAlignment','baseline')
elseif p == 3
 x1 = g + s*[0,0.3,-0.3,0,0];
 y1 = h + s*[0.2,0.6,0.6,0.2,(d-h)/s];
 x2 = g + s*[0,0];  y2 = h + s*[(f-h)/s,0.6];
 line(x1,y1,'Color',dc);  line(x2,y2,'Color',dc);
 text(g+s*0.2,h+s*0.3,l,'FontName','Times','FontSize',F,...
   'HorizontalAlignment','left','VerticalAlignment','cap')
 text(g+s*0.2,h+s*0.3,t,'FontName','Times-Italic','FontSize',F,...
   'HorizontalAlignment','left','VerticalAlignment','baseline')
elseif p == 4
 x1 = a + s*[0.6, 0.2, 0.2, 0.6, (f-a)/s];
 y1 = b + s*[  0, 0.3,-0.3,   0,       0];
 x2 = a + s*[(c-a)/s, 0.2];  y2 = b + s*[0, 0];
 line(x1,y1,'Color',dc);  line(x2,y2,'Color',dc);
 text(a+s*0.5,b-s*0.3,l,'FontName','Times','FontSize',F,...
   'HorizontalAlignment','left','VerticalAlignment','cap')
 text(a+s*0.5,b-s*0.3,t,'FontName','Times-Italic','FontSize',F,...
   'HorizontalAlignment','left','VerticalAlignment','baseline')
elseif p == 5
 x1 = g + s*[0,0.3,-0.3,0,0];
 y1 = h + s*[0.6,0.2,0.2,0.6,(f-h)/s];
 x2 = g + s*[0,0];  y2 = h + s*[(d-h)/s,0.2];
 line(x1,y1,'Color',dc);  line(x2,y2,'Color',dc);
 text(g+s*0.2,h+s*0.5,l,'FontName','Times','FontSize',F,...
   'HorizontalAlignment','left','VerticalAlignment','cap')
 text(g+s*0.2,h+s*0.5,t,'FontName','Times-Italic','FontSize',F,...
   'HorizontalAlignment','left','VerticalAlignment','baseline')
elseif p == 6
 x1 = a + s*[0.2, 0.6, 0.6, 0.2, (c-a)/s];
 y1 = b + s*[  0, 0.3,-0.3,   0, 0];
 x2 = a + s*[(f-a)/s, 0.6];  y2 = b + s*[0, 0];
 line(x1,y1,'Color',dc);  line(x2,y2,'Color',dc);
 text(a+s*0.3,b+s*0.3,l,'FontName','Times','FontSize',F,...
   'HorizontalAlignment','right','VerticalAlignment','cap')
 text(a+s*0.3,b+s*0.3,t,'FontName','Times-Italic','FontSize',F,...
   'HorizontalAlignment','right','VerticalAlignment','baseline')
else
 x1 = g + s*[0,0.3,-0.3,0,0];
 y1 = h + s*[0.2,0.6,0.6,0.2,(d-h)/s];
 x2 = g + s*[0,0];  y2 = h + s*[(f-h)/s,0.6];
 line(x1,y1,'Color',dc);  line(x2,y2,'Color',dc);
 text(g-s*0.2,h+s*0.3,l,'FontName','Times','FontSize',F,...
   'HorizontalAlignment','right','VerticalAlignment','cap')
 text(g-s*0.2,h+s*0.3,t,'FontName','Times-Italic','FontSize',F,...
   'HorizontalAlignment','right','VerticalAlignment','baseline')
end