多边形裁剪编程与结果.docVIP

计算机图形学试验报告二 实验(实习)名称 多边形裁剪 日期 得分 指导教师 系专业年级 班次 姓名 学号 实验目的：练习多边形的裁剪算法 实验内容：用Sutherland-Hodgeman算法}}，被裁剪多边形Q的控制点为：{{-3,5},{-3,2},{2,-2},{2,1},{6,2},{2,6}} 实验要求： 在同一坐标下画出原裁减多边形P和被裁剪多边形Q的图形； 编程用P中四条边依次对Q进行裁剪，并画出每次裁剪后的图形； 撰写实验报告并附上所用程序和结果。 实验程序： 1.Sutherland.m文件，调用了inside.m和intersect.m文件 function f=Sutherland() figure(1); clf; P=[-2,4;-2,-3;3,-3;3,4;-2,4]; Q=[-3,5;-3,2;2,-2;2,1;6,2;2,6;-3,5]; subplot(3,2,1); plot(P(:,1),P(:,2),-) hold on; plot(Q(:,1),Q(:,2),-) Q1=Q; for i=1:4 Q2=[]; if(inside(Q1(1,:),P(i,:),i)==1) Q2=[Q2;Q1(1,:)]; end for j=1:length(Q1)-1 if(inside(Q1(j,:),P(i,:),i)==1) if(inside(Q1(j+1,:),P(i,:),i)==1) Q2=[Q2;Q1(j+1,:)]; else Q2=[Q2;intersect(Q1(j,:),Q1(j+1,:),P(i:i+1,:))]; end else if(inside(Q1(j+1,:),P(i,:),i)==1) Q2=[Q2;intersect(Q1(j+1,:),Q1(j,:),P(i:i+1,:))]; Q2=[Q2;Q1(j+1,:)]; end end end subplot(3,2,i+1); plot(P(:,1),P(:,2),-) hold on; plot(Q2(:,1),Q2(:,2),-*) Q1=[Q2;Q2(1,:)]; end end 2 inside.m文件 function f=inside(Q,P,i) f=0; switch i case 1 if (Q(1)=P(1)) f=1; end case 2 if(Q(2)=P(2)) f=1; end case 3 if(Q(1)=P(1)) f=1; end case 4 if(Q(2)=P(2)) f=1; end end end 3．Intersect.m文件 function f=intersect(Q1,Q2,P) %Q1在窗口内，Q2在窗口外，P为用于裁减的边 f=[0,0]; if P(1,2)==P(2,2) f(2)=P(1,2); f(1)=Q1(1)+(P(1,2)-Q1(2))*(Q2(1)-Q1(1))/(Q2(2)-Q1(2)); else f(1)=P(1,1); f(2)=Q1(2)+(P(1,1)-Q1(1))*(Q2(2)-Q1(2))/(Q2(1)-Q1(1)); end end 输出结果：