开发工具:
文件大小: 211kb
下载次数: 0
上传时间: 2011-11-11
详细说明： function identity(libName:pchar;mRound,bone,maxNoise,limit,spn,spx0,spy0,spuw,spuh,sppw,rlL,rlH,ruW,imgW,imgH:Integer;var imgAry:TBArray):string; var ary: TAAIArray; unitAry: TBArray; n,n1,x1,y1,x2,y2,unitW,unitH: Integer; rt: string; begin if spx0 < 0 then spx0 := 0; if spy0 < 0 then spy0 := 0; if spn = 0 then begin if (spx0<>0) or (spy0<>0) or (spuw<>0) or (spuh<>0) then cutArea(imgW,imgH,spx0,spy0,spuw,spuh,imgAry); ary := clearNoise(maxNoise,rlL,rlH,ruW,imgW,imgH,true,imgAr y); end else begin n := (imgW-spx0-sppw) div (spuw+sppw) + 1; if (spn = -1) or (spn > n) then spn := n; //针对单元单独去除杂点 SetLength(unitAry,spuw*spuh); for n:=0 to spn-1 do begin for y1:=0 to spuh-1 do for x1:=0 to spuw-1 do unitAry[x1+y1*spuw] := imgAry[(y1+spy0)*imgW+x1+n*(spuw+sppw)+spx0]; clearNoise(maxNoise,1,1,spuw,spuw,spuh,false,unitAry); for y1:=0 to spuh-1 do for x1:=0 to spuw-1 do imgAry[(y1+spy0)*imgW+x1+n*(spuw+sppw)+spx0] := unitAry[x1+y1*spuw]; end; ary := splitArea(spn,spx0,spy0,spuw,spuh,sppw,imgW,imgAry); end; if Length(ary) = 0 then rt := '?' else rt := ''; for n:=0 to Length(ary)-1 do begin if Length(ary[n]) = 0 then continue; x1 := ary[n][0][0]; y1 := ary[n][0][1]; x2 := x1; y2 := y1; for n1:=1 to Length(ary[n])-1 do begin if ary[n][n1][0] < x1 then x1 := ary[n][n1][0]; if ary[n][n1][0] > x2 then x2 := ary[n][n1][0]; if ary[n][n1][1] < y1 then y1 := ary[n][n1][1]; if ary[n][n1][1] > y2 then y2 := ary[n][n1][1]; end; unitW := x2 - x1 + 1; unitH := y2 - y1 + 1; SetLength(unitAry,unitW*unitH); for n1:=0 to Length(unitAry)-1 do unitAry[n1] := 0; for n1:=0 to Length(ary[n])-1 do unitAry[(ary[n][n1][1]-y1)*unitW+ary[n][n1][0]-x1] := 1; rt := rt + unitIdentity(libName,mRound,bone,limit,unitW,unitH,unitAry); end; result := rt; end; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
