線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1100
推到 Plurk!
推到 Facebook!

圖片模糊、銳化、雕刻

 
axsoft
版主


發表:681
回覆:1056
積分:969
註冊:2002-03-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-02-26 10:33:25 IP:61.218.xxx.xxx 未訂閱

圖片模糊、銳化、雕刻

作者不詳 資料來源:http://www.ccrun.com/
void S_Filter(Graphics::TBitmap *Source,Graphics::TBitmap *NewPic,int Div,int xg)//圖片效果 
{ 
//0:模糊1:銳化3:雕刻 
int flt[9]; 
switch (xg) 
  { 
  case 0:
    { 
    flt[0]=5;flt[1]=5;flt[2]=5; 
    flt[3]=5;flt[4]=60;flt[5]=5; 
    flt[6]=5;flt[7]=5;flt[8]=5; 
    }; 
    break; 
  case 1:
    { 
    flt[0]=0;flt[1]=-5;flt[2]=0; 
    flt[3]=-5;flt[4]=30;flt[5]=-5; 
    flt[6]=0;flt[7]=-5;flt[8]=0; 
    }; 
    break; 
  default:
    { 
    flt[0]=-15;flt[1]=-15;flt[2]=0; 
    flt[3]=-15;flt[4]=15;flt[5]=15; 
    flt[6]=0;flt[7]=15;flt[8]=0; 
    }; 
}     int XX[3]; 
BYTE *ptr,*ptru,*ptrd,*ptr1;     NewPic->Assign(Source); 
for (int y = 1; y < NewPic->Height-1; y  ) 
  { 
  ptr=(BYTE *)NewPic->ScanLine[y]; 
  ptr1=(BYTE *)Source->ScanLine[y]; 
  ptru=(BYTE *)Source->ScanLine[y-1]; 
  ptrd=(BYTE *)Source->ScanLine[y 1]; 
  for(int x=3;x<(Source->Width-1)*3;x =3)
    { 
    XX[0]=0;XX[1]=0;XX[2]=0; 
    for(int i=-1;i<=1;i  ) 
      for(int j=0;j<3;j  ) 
        XX[j] =ptr1[x 3*i j]*flt[4 i];
        for(int i=-1;i<=1;i  ) 
          for(int j=0;j<3;j  ) 
            XX[j] =ptru[x 3*i j]*flt[1 i]; 
            for(int i=-1;i<=1;i  ) 
              for(int j=0;j<3;j  ) 
                XX[j] =ptrd[x 3*i j]*flt[7 i]; 
                for (int i=0;i<3;i  )
                  { 
                  XX[i]=XX[i]/Div; 
                  XX[i]=MAX(XX[i],0); 
                  XX[i]=MIN(XX[i],255); 
                  ptr[x i]=XX[i]; 
                  } 
    } 
  } 
} 
聯盟----Visita網站http://www.vista.org.tw ---[ 發問前請先找找舊文章 ]---
系統時間:2024-11-23 11:57:56
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!