降階的問題 |
|
答題得分者是：ALTIS
|
|
jenwe
一般會員   發表：34 回覆：38 積分：24 註冊：2007-03-23 發送簡訊給我 |
我已經先做過灰階處理
而我想將它降階
比如我想它分0 85 170 255
我做二值化ok
但是分3層紙跑出整張灰色 <textarea class="cpp" rows="10" cols="60" name="code">
Graphics::TBitmap *TheBitmap,*TempBitmap1,*TempBitmap2;
TheBitmap=Image2->Picture->Bitmap;
TempBitmap1= new Graphics::TBitmap();
TempBitmap2= new Graphics::TBitmap();
TempBitmap1->Assign(TheBitmap);
TempBitmap2->Assign(TheBitmap);
Byte *ptr1,*ptr;
int i,j,r,g,b,Gray,t,rem,light;
WORD H=Image1->Picture->Height;
WORD W=Image1->Picture->Width; int num=StrToInt(Edit1->Text);
t=256/num;
for(i=0;i
|
|
syntax
尊榮會員  發表：26 回覆：1139 積分：1258 註冊：2002-04-23 發送簡訊給我 |
|
|
jenwe
一般會員 發表：34 回覆：38 積分：24 註冊：2007-03-23 發送簡訊給我 |
|
|
ALTIS
初階會員 發表：4 回覆：26 積分：31 註冊：2005-04-28 發送簡訊給我 |
<textarea class="cpp" rows="10" cols="60" name="code"> if(opd_loadBMP->Execute())
img_pi->Picture->LoadFromFile(opd_loadBMP->FileName); Graphics::TBitmap *TheBitmap;
TheBitmap= new Graphics::TBitmap();
TheBitmap->Assign(img_pi->Picture->Bitmap); int Class = 2;//(¤À´X¬Ò)
int gray; Byte *ptr;
for(int y=0 ; yHeight ; y ){
ptr = (Byte *)TheBitmap->ScanLine[y];
for(int x=0 ; xWidth ; x ){
gray = ptr[x*3] *0.114
ptr[x*3 1]*0.587
ptr[x*3 2]*0.299 ;
int class_val = gray/(256/Class);
gray = class_val*(255/(Class-1));
ptr[x*3] = gray;
ptr[x*3 1]= gray;
ptr[x*3 2]= gray;
}
}
img_pi->Picture->Bitmap->Assign(TheBitmap);
delete(TheBitmap);
</textarea>
------
城市讓人迷惘 我在湖岸看見希望 妳的眼神是一道光芒 開啟我心中的收藏
編輯記錄
taishyang 重新編輯於 2007-05-02 16:54:58， 註解 排版‧
|
|
jenwe
一般會員 發表：34 回覆：38 積分：24 註冊：2007-03-23 發送簡訊給我 |
發表時間：2007-04-28 14:50:17
IP:140.118.xxx.xxx 訂閱
系統時間：2024-11-23 7:30:44
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |