% Script StarArray
% Draws a blue 12-by-6 rectangle with lower left corner at (0,0),
% and then white radius 1 stars with centers at 
%
%       (2,4), (4,4), (6,4), (8,4) (10,4)
%       (2,2), (4,2), (6,2), (8,2) (10,2)
%
% Set up figure window...
  close all
  figure
  axis equal off
  hold on
%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
% Draw the blue rectangle...
  DrawRect(0,0,12,6,'b')
  pause
% Draw the stars...
  for k=1:5
%    Draw kth stars in top and bottom rows
     x = 2*k;
     DrawStar(x,4,1,'w')
     pause
     DrawStar(x,2,1,'w')
     pause
  end
%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  hold off
  shg