孤独的猫

摘要： 直线裁剪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 阅读全文