% draw a picture
clear all


disp(['Time is now: ' datestr(now)])

theta = pi/4;

R = [ cos(theta)  -sin(theta);
      sin(theta)  cos(theta)];

x= [2 3 3 2 2 nan 3.5 2.5 1.5];

y= [0 0 1 1 0 nan .5 1.5 .5];


r_ref= [x;y];

r = R* r_ref;

x=r(1,:);
y=r(2,:);

plot(x,y)
axis('equal'); 
axis([-1 4 -1 4]);