h_plot_CP

 plot control points

 Wolfgang Förstner
 wfoerstn@uni-bonn.de

0001 % plot control points
0002 %
0003 % Wolfgang Förstner
0004 % wfoerstn@uni-bonn.de
0005 
0006 function h_plot_CP(X,fi)
0007 
0008 figure(fi)
0009 d = 2*(fi-1);
0010 
0011 for n=1:4
0012     plot_square_with_background(X(n,1+d),X(n,2+d),10);
0013     plot_square_with_background(X(n,1+d),X(n,2+d),10);
0014 end
0015 
0016 plot([X(1,1+d),X(2,1+d)],[X(1,2+d),X(2,2+d)],'-y','LineWidth',3);
0017 plot([X(1,1+d),X(3,1+d)],[X(1,2+d),X(3,2+d)],'-y','LineWidth',3);
0018 plot([X(1,1+d),X(4,1+d)],[X(1,2+d),X(4,2+d)],'-y','LineWidth',3);
0019 plot([X(2,1+d),X(3,1+d)],[X(2,2+d),X(3,2+d)],'-y','LineWidth',3);
0020 plot([X(2,1+d),X(4,1+d)],[X(2,2+d),X(4,2+d)],'-y','LineWidth',3);
0021 plot([X(3,1+d),X(4,1+d)],[X(3,2+d),X(4,2+d)],'-y','LineWidth',3);
0022 
0023 plot([X(1,1+d),X(2,1+d)],[X(1,2+d),X(2,2+d)],'-k','LineWidth',1);
0024 plot([X(1,1+d),X(3,1+d)],[X(1,2+d),X(3,2+d)],'-k','LineWidth',1);
0025 plot([X(1,1+d),X(4,1+d)],[X(1,2+d),X(4,2+d)],'-k','LineWidth',1);
0026 plot([X(2,1+d),X(3,1+d)],[X(2,2+d),X(3,2+d)],'-k','LineWidth',1);
0027 plot([X(2,1+d),X(4,1+d)],[X(2,2+d),X(4,2+d)],'-k','LineWidth',1);
0028 plot([X(3,1+d),X(4,1+d)],[X(3,2+d),X(4,2+d)],'-k','LineWidth',1);