维克苗综合站

清除杂点并切去掉周围的空白
image.scan(img,true);
--]]
function image.scan(img,crop)
   
    –用一个table数组记录所有的「连通线」
     assert(img:ok(),"image.scan 的参数必须是一个有效的图片");
   
     local tlines ={};
    
     –首先计算出图片的高度宽度，避免重复的调用
     local w = img:width();
     local h = img:height();
         

    –[[以table形式定义一个数组，对应图象中的每个点。
    作用相当一个开关，首先值为false，但黑点首次被遍历到时。把这个值变为true。
    下次，再找到这个点时忽略。避免重复加入连通线。
    --]]
    local tchked ={};
    for i=0,w,1 do
        tchked[i]={};
        for j=0,h,1 do
            tchked[i][j]=false;
        end;
    end;
    
    —–去噪
    img:bpp(1);
    img:bpp(24);
    
    –首先计算出各点的颜色值，避免在循环递归中重复的取
    local tcl={};
    for i=0,w,1 do
        tcl[i]={};
        for j=0,h,1   do
            tcl[i][j]=img:getPos(i,j);
        end;
    end;

   
    –[[
    算点数函数
    参数x,y 坐标
    参数tab 所属连通线;
    --]]
    local   function seed(x,y,tab)
   
        —出界了则返回
        if(x<0 or y<0 or x>w or y>h) then
            return;
        end;
             
        —点的颜色为白色时，返回，不处理。
        if(tcl[x][y]==16777215)  then
            return;
        end;
       
        —值为1，则计数加1，返回
        if ( tchked[x][y]) then
            return ;
        else
            table.insert(tab,{x=x,y=y} );–添加到连通线里
            tchked[x][y]=true;—当值为0时，把值置为1。
            seed(x+1,y-1,tab);
            seed(x,y-1,tab);
            seed(x-1,y-1,tab);
            seed(x-1,y,tab);
            seed(x+1,y,tab);
            seed(x-1,y+1,tab);
            seed(x,y+1,tab);
            return seed(x+1,y+1,tab); –这里可以用一个尾调用(参考教程中的函数部份),加快递归的速度。
        end;
    end;

   
    —————————
      
    —-遍历图像中的所有点
    for i=0,w,1   do
        for j=0,h,1 do
            —如果是黑色的点，而且没有被计过数，则调用seed函数。
            if(tcl[i][j]==0 and (not tchked[i][j])) then       
                local tab = {}
                seed(i,j,tab);
                table.insert(tlines,tab); –添加一条连通线
   
            end;
        end;
    end;
         
    –现在tlines 里记录了的有的连通线，我们现在需要根据连通线的长度排序
    sproc = function(l,l2)  
        return table.maxn(l) > table.maxn(l2);–长的连通线排到前面
    end;
    table.sort(tlines,sproc)
              
    –把图像全部画成白色的点     
    for i=0,w,1  do
        for j=0,h,1  do
            img:setPos( i , j, 16777215);
        end;
    end;
         
    –然后把最长的一条连通线画上去
    for i,point in  ipairs(tlines[1])  do
        img:setPos( point.x, point.y , 0);  
    end;
   

    –如果需要去掉周围的空白
    if(crop)then
        local n = table.maxn(tlines[1])
           
        –排序最长连通线中的所有坐标点
        sproc = function(pt,pt2)  
            return (pt.x <pt2.x );–*左的排前面
        end;
        table.sort(tlines[1],sproc);
        local x,x2 = tlines[1][1].x, tlines[1][n].x;
   
        –排序最长连通线中的所有坐标点
        sproc = function(pt,pt2)  
            return (pt.y <pt2.y );–*上的排前面
        end;
        table.sort(tlines[1],sproc);
        local y,y2 = tlines[1][1].y, tlines[1][n].y;
       
        img:Crop( x,y,x2+1,y2)
    end;
   
end;