摘要:
直线裁剪program clipline;uses crt,graph;var markseg:word; gd,gm:integer; startx,starty,endx,endy:integer; x1,y1,x2,y2,x,y:integer; ch:char; readflag,enterflag:boolean; procedure lineclip(x1,y1,x2,y2,left,top,right,bottom:integer); type codetype=array[1..4] of byte; var x11,y11:integer; a,b:codetype; pro
阅读全文