function model_dr(Scx,Scy)
%
% MODEL_DR is a functioon that draw the SISO system
% behind the pushbuttons.

%    Authors: Dingyu XUE, The University of Sussex 
%             Ole Barup Sorensen, Rapid Data Ltd 

%    Copyright (c) 1989-94 by Rapid Data Ltd
%    Revision 15:43  09/05/94

delete(gca)

set(gca,'Visible','off','units','normal');
set(gca,'Position',[0 0 1 1],'YLim',[0 1],...
'XLim',[0 1])

lineplt(50/Scx,90/Scx,143/Scy,143/Scy,3);

lineplt(110/Scx,440/Scx,143/Scy,143/Scy,3);
lineplt(82/Scx,87/Scx,148/Scy,143/Scy,2);
lineplt(82/Scx,87/Scx,138/Scy,143/Scy,2);

lineplt(100/Scx,400/Scx,73/Scy,73/Scy,3);

lineplt(100/Scx,100/Scx,73/Scy,132/Scy,3);
lineplt(95/Scx,100/Scx,130/Scy,135/Scy,2);
lineplt(100/Scx,105/Scx,135/Scy,130/Scy,2);

lineplt(400/Scx,400/Scx,73/Scy,143/Scy,3);

cir(10/Scx,100/Scx,143/Scy);

mv=get(0,'defaulttextunits');

set(0,'defaulttextunits','normal');
text('Position',[83/Scx 154/Scy],'Fontsize',[12],...
'String','+');
text('Position',[87/Scx 130/Scy],'Fontsize',[12],...
'String','-');
text('Position',[55/Scx 155/Scy],'Fontsize',[12],...
'String','R(s)');
text('Position',[115/Scx 155/Scy],'Fontsize',[12],...
'String','E(s)');
text('Position',[200/Scx 155/Scy],'Fontsize',[12],...
'String','U(s)');
text('Position',[410/Scx 155/Scy],'Fontsize',[12],...
'String','Y(s)');
set(0,'defaulttextunits',mv);