% Script Eg5_3
% Illustrates DrawFlag

% Initializations
  close all
  figure
  axis equal off
  hold on
  StripeWidth = 1;
  FlagWidth = 13*StripeWidth;
  
% Some pleasing proportions...
  GoldenRatio = (1+sqrt(5))/2;
  FlagLength = GoldenRatio*FlagWidth;
  RingRadius = 2.5*StripeWidth;
  StarRadius = 0.5*StripeWidth;

% Display four flags with different blue lengths...
  BlueLength = .30*FlagLength;
  DrawFlag( 0, 0,FlagLength,FlagWidth,BlueLength,RingRadius,StarRadius)
  BlueLength = .35*FlagLength;
  DrawFlag(25, 0,FlagLength,FlagWidth,BlueLength,RingRadius,StarRadius)
  BlueLength = .40*FlagLength;
  DrawFlag (0,16,FlagLength,FlagWidth,BlueLength,RingRadius,StarRadius)
  BlueLength = .45*FlagLength;
  DrawFlag(25,16,FlagLength,FlagWidth,BlueLength,RingRadius,StarRadius)
  
  
  
  


