图像效果算法设计 ——静态效果 毕业论文 相关代码

1目录90度旋转2垂直旋转3水平旋转4灰度4添加噪点5彩色噪点6喷溅6马赛克6RGB调整7亮度调整9对比度调整11饱和度调整12曝光14浮雕14雕刻16模糊17锐化18霓虹192/90度旋转PROCEDURETFORM1ROTATEPICTUREBITMAPTBITMAPVARASTREAMTMEMORYSTREAM/内存流HEADERTBITMAPINFODCHDCPTHELPRGBX,Y,B,HINTEGERROWOUTPRGBARRAYBEGIN/创建内存流ASTREAMTMEMORYSTREAMCREATE/设置大小，必须是4的倍数ASTREAMSETSIZEBITMAPHEIGHTBITMAPWIDTH4WITHHEADERBMIHEADERDO/操作位图文件BEGINBISIZESIZEOFTBITMAPINFOHEADER/大小BIWIDTHBITMAPWIDTH/位图宽BIHEIGHTBITMAPHEIGHT/位图高BIPLANES1BIBITCOUNT32/无压缩BICOMPRESSION0BISIZEIMAGEASTREAMSIZEBIXPELSPERMETER1/水平分辨率BIYPELSPERMETER1/竖直分辨率BICLRUSED0BICLRIMPORTANT0ENDDCGETDC0PASTREAMMEMORYGETDIBITSDC,BITMAPHANDLE,0,BITMAPHEIGHT,P,HEADER,DIB_RGB_COLORSRELEASEDC0,DCBBITMAPHEIGHT/源图高HBITMAPWIDTH/源图宽/指定要创建的位图的大小尺寸BITMAPWIDTHBBITMAPHEIGHTHFORY0TOH1DOBEGINROWOUTBITMAPSCANLINEY/获取新的位图信息PASTREAMMEMORY/设置文件指针INCP,Y/指针移位3FORX0TOB1DOBEGINROWOUTXPRGB/进行数据转移INCP,HENDENDASTREAMFREE/释放资源END/垂直翻转PROCEDURETFORM1BSSKINSPEEDBUTTON3CLICKSENDERTOBJECTVARBMP1,BMP2TBITMAPI,JINTEGERP,P1PBYTEARRAYBEGINIMAGE1STRETCHTRUEBMP1TBITMAPCREATEBMP2TBITMAPCREATEBMP1ASSIGNSELFIMAGE1PICTUREBITMAPBMP2ASSIGNSELFIMAGE1PICTUREBITMAPBMP1PIXELFORMATPF24BITBMP2PIXELFORMATPF24BITFORJ0TOSELFIMAGE1PICTUREGRAPHICHEIGHT1DOBEGINPBMP1SCANLINEJP1BMP2SCANLINESELFIMAGE1PICTUREGRAPHICHEIGHT1JFORI0TOSELFIMAGE1PICTUREGRAPHICWIDTH1DOBEGINP3IP13IP3I1P13I1P3I2P123IENDENDBMP1PIXELFORMATPF24BITSELFIMAGE1PICTUREBITMAPASSIGNBMP1SELFIMAGE1PICTUREBITMAPPIXELFORMATPF24BITBMP1FREEBMP2FREEISIMAGECHANGEDTRUEUNDOUSEEND4/水平翻转PROCEDURETFORM1BSSKINSPEEDBUTTON4CLICKSENDERTOBJECTVARBMP1,BMP2TBITMAPT,PPBYTEARRAYX,YINTEGERBEGINIMAGE1STRETCHTRUEBMP1TBITMAPCREATEBMP2TBITMAPCREATEBMP2ASSIGNIMAGE1PICTUREBITMAPBMP1ASSIGNIMAGE1PICTUREBITMAPFORY0TOBMP2HEIGHT1DOBEGINTBMP2SCANLINEYPBMP1SCANLINEYFORX0TOBMP2WIDTH1DOBEGINP3X2T3BMP2WIDTH1X2P3X1T3BMP2WIDTH1X1P3XT3BMP2WIDTH1XENDENDIMAGE1PICTUREBITMAPASSIGNBMP1BMP1FREEBMP2FREEISIMAGECHANGEDTRUEUNDOUSEEND/函数FUNCTIONINTTOBYTEIINTEGERBYTEBEGINIFI255THENRESULT255ELSEIFI240THENAVG240PIXELRGBTREDAVGPIXELRGBTGREENAVGPIXELRGBTBLUEAVGINCPIXELENDENDEND/添加噪点PROCEDUREADDMONONOISESRCBMPTBITMAPAMOUNTINTEGERVARP0PBYTEARRAYX,Y,A,R,G,BINTEGERBEGINFORY0TOSRCBMPHEIGHT1DOBEGINP0SRCBMPSCANLINEYFORX0TOSRCBMPWIDTH1DOBEGINARANDOMAMOUNTAMOUNTSHR1RP0X3AGP0X31ABP0X32AP0X3INTTOBYTERP0X31INTTOBYTEGP0X32INTTOBYTEBENDENDEND6/添加彩色噪点PROCEDUREADDCOLORNOISESRCBMPTBITMAPAMOUNTINTEGERVARP0PBYTEARRAYX,Y,R,G,BINTEGERBEGINFORY0TOSRCBMPHEIGHT1DOBEGINP0SRCBMPSCANLINEYFORX0TOSRCBMPWIDTH1DOBEGINRP0X3RANDOMAMOUNTAMOUNTSHR1GP0X31RANDOMAMOUNTAMOUNTSHR1BP0X32RANDOMAMOUNTAMOUNTSHR1P0X3INTTOBYTERP0X31INTTOBYTEGP0X32INTTOBYTEBENDENDEND/喷溅PROCEDURESPRAYSRCBMPTBITMAPAMOUNTINTEGERVARI,J,X,Y,W,H,VALINTEGERBEGINHSRCBMPHEIGHTWSRCBMPWIDTHFORI0TOW1DOFORJ0TOH1DOBEGINVALRANDOMAMOUNTXIVALRANDOMVAL2YJVALRANDOMVAL2IFX1ANDX1ANDYSRCBMPWIDTHORISIZEUNTILXSRCBMPWIDTHINCJINCY/加1UNTILYSRCBMPHEIGHTORJSIZEUNTILYSRCBMPHEIGHTORXSRCBMPWIDTHUNTILYSRCBMPHEIGHTEND/调整RGB,SRCBMP输入，DESTBMP输出PROCEDURERGBCHANGESRCBMP,DESTBMPTBITMAPREDCHANGE,GREENCHANGE,BLUECHANGEINTEGERVAR/R,G,BINTEGERSRCROW,DESTROWPRGBARRAYI,JINTEGERBEGINFORI0TOSRCBMPHEIGHT1DOBEGINSRCROWSRCBMPSCANLINEIDESTROWDESTBMPSCANLINEI8FORJ0TOSRCBMPWIDTH1DOBEGIN/ADDBRIGHTNESSVALUETOPIXELSRGBVALUESIFREDCHANGE0THENDESTROWJRGBTREDMIN255,SRCROWJRGBTREDREDCHANGEELSEDESTROWJRGBTREDMAX0,SRCROWJRGBTREDREDCHANGEIFGREENCHANGE0THENDESTROWJRGBTGREENMIN255,SRCROWJRGBTGREENGREENCHANGEELSEDESTROWJRGBTGREENMAX0,SRCROWJRGBTGREENGREENCHANGEIFBLUECHANGE0THENDESTROWJRGBTBLUEMIN255,SRCROWJRGBTBLUEBLUECHANGEELSEDESTROWJRGBTBLUEMAX0,SRCROWJRGBTBLUEBLUECHANGEENDENDEND/调整RGB,SRCBMP同时为输入输出PROCEDURERGBCHANGESRCBMPTBITMAPREDCHANGE,GREENCHANGE,BLUECHANGEINTEGERAPROGRESSBARTPROGRESSBAROVERLOADVAR/R,G,BINTEGERSRCROWPRGBARRAYI,JINTEGERBEGINAPROGRESSBARMAXSRCBMPHEIGHT1FORI0TOSRCBMPHEIGHT1DOBEGINSRCROWSRCBMPSCANLINEI/DESTROWDESTBMPSCANLINEIFORJ0TOSRCBMPWIDTH1DOBEGIN/ADDBRIGHTNESSVALUETOPIXELSRGBVALUESIFREDCHANGE0THEN9SRCROWJRGBTREDMIN255,SRCROWJRGBTREDREDCHANGEELSESRCROWJRGBTREDMAX0,SRCROWJRGBTREDREDCHANGEIFGREENCHANGE0THENSRCROWJRGBTGREENMIN255,SRCROWJRGBTGREENGREENCHANGEELSESRCROWJRGBTGREENMAX0,SRCROWJRGBTGREENGREENCHANGEIFBLUECHANGE0THENSRCROWJRGBTBLUEMIN255,SRCROWJRGBTBLUEBLUECHANGEELSESRCROWJRGBTBLUEMAX0,SRCROWJRGBTBLUEBLUECHANGEENDAPROGRESSBARPOSITIONIENDEND/调整亮度，SRCBMP输入，DESTBMP输出PROCEDUREBRIGHTNESSCHANGESRCBMP,DESTBMPTBITMAPVALUECHANGEINTEGERVARI,JINTEGERSRCROW,DESTROWPRGBARRAYBEGIN/GETBRIGHTNESSINCREMENTVALUE/FOREACHROWOFPIXELSFORI0TOSRCBMPHEIGHT1DOBEGINSRCROWSRCBMPSCANLINEIDESTROWDESTBMPSCANLINEI/FOREACHPIXELINROWFORJ0TOSRCBMPWIDTH1DOBEGIN/ADDBRIGHTNESSVALUETOPIXELSRGBVALUESIFVALUECHANGE0THENBEGIN/RGBVALUESMUSTBELESSTHAN256DESTROWJRGBTREDMIN255,SRCROWJRGBTREDVALUECHANGEDESTROWJRGBTGREENMIN255,SRCROWJRGBTGREEN10VALUECHANGEDESTROWJRGBTBLUEMIN255,SRCROWJRGBTBLUEVALUECHANGEENDELSEBEGIN/RGBVALUESMUSTBEGREATEROREQUALTHAN0DESTROWJRGBTREDMAX0,SRCROWJRGBTREDVALUECHANGEDESTROWJRGBTGREENMAX0,SRCROWJRGBTGREENVALUECHANGEDESTROWJRGBTBLUEMAX0,SRCROWJRGBTBLUEVALUECHANGEENDENDENDEND/调整亮度，SRCBMP同时为输入输出PROCEDUREBRIGHTNESSCHANGESRCBMPTBITMAPVALUECHANGEINTEGERAPROGRESSBARTPROGRESSBARVARI,JINTEGERSRCROWPRGBARRAYBEGINAPROGRESSBARMAXSRCBMPHEIGHT1FORI0TOSRCBMPHEIGHT1DOBEGINSRCROWSRCBMPSCANLINEI/DESTROWDESTBMPSCANLINEI/FOREACHPIXELINROWFORJ0TOSRCBMPWIDTH1DOBEGIN/ADDBRIGHTNESSVALUETOPIXELSRGBVALUESIFVALUECHANGE0THENBEGIN/RGBVALUESMUSTBELESSTHAN256SRCROWJRGBTREDMIN255,SRCROWJRGBTREDVALUECHANGESRCROWJRGBTGREENMIN255,SRCROWJRGBTGREENVALUECHANGESRCROWJRGBTBLUEMIN255,SRCROWJRGBTBLUEVALUECHANGEENDELSEBEGIN/RGBVALUESMUSTBEGREATEROREQUALTHAN0SRCROWJRGBTREDMAX0,SRCROWJRGBTREDVALUECHANGESRCROWJRGBTGREENMAX0,SRCROWJRGBTGREENVALUECHANGESRCROWJRGBTBLUEMAX0,SRCROWJRGBTBLUEVALUECHANGEEND11ENDAPROGRESSBARPOSITIONIENDEND/调整对比度PROCEDURECONTRASTCHANGESRCBMPTBITMAPAMOUNTINTEGER/AMOUNT255255VAR/X,YINTEGER/IBYTE/COLORTABLEARRAY0255OFTRGBTRIPLESRCROWPRGBARRAY/PRGBPRGBCOLORTHEMODEINTEGERP0PBYTEARRAY/THEMODE1时候用RG,GG,BG,R,G,B,X,YINTEGERBEGINIFAMOUNT0THENTHEMODE0ELSETHEMODE1CASETHEMODEOF0BEGINFORY0TOSRCBMPHEIGHT1DOBEGINSRCROWSRCBMPSCANLINEYFORX0TOSRCBMPWIDTH1DOBEGINIFSRCROWXRGBTRED128THENSRCROWXRGBTREDMIN255,SRCROWXRGBTREDAMOUNTDIV2ELSESRCROWXRGBTREDMAX0,SRCROWXRGBTREDAMOUNTDIV2IFSRCROWXRGBTGREEN128THENSRCROWXRGBTGREENMIN255,SRCROWXRGBTGREENAMOUNTDIV2ELSESRCROWXRGBTGREENMAX0,SRCROWXRGBTGREENAMOUNTDIV2IFSRCROWXRGBTBLUE128THENSRCROWXRGBTBLUEMIN255,SRCROWXRGBTBLUEAMOUNTDIV2ELSESRCROWXRGBTBLUEMAX0,SRCROWXRGBTBLUEAMOUNTDIV212ENDENDEND1BEGINFORY0TOSRCBMPHEIGHT1DOBEGINP0SRCBMPSCANLINEYFORX0TOSRCBMPWIDTH1DOBEGINRP0X3GP0X31BP0X32RGABS127RAMOUNTDIV255GGABS127GAMOUNTDIV255BGABS127BAMOUNTDIV255IFR127THENRRRGELSERRRGIFG127THENGGGGELSEGGGGIFB127THENBBBGELSEBBBGP0X3INTTOBYTERP0X31INTTOBYTEGP0X32INTTOBYTEBENDENDENDEND/ENDCASEEND/调整饱和度PROCEDURESATURATIONSRCBMPTBITMAPAMOUNTINTEGERAPROGRESSBARTPROGRESSBAROVERLOAD/AMOUNT0510VARGRAYSARRAY0767OFINTEGERALPHAARRAY0255OFWORDGRAY,X,YINTEGERSRCROWPRGBARRAYIBYTEBEGINFORI0TO255DOALPHAIIAMOUNTSHR8X0FORI0TO255DOBEGINGRAYIALPHAI13GRAYSXGRAYINCXGRAYSXGRAYINCXGRAYSXGRAYINCXENDAPROGRESSBARPOSITION0APROGRESSBARMAXSRCBMPHEIGHT1FORY0TOSRCBMPHEIGHT1DOBEGINSRCROWSRCBMPSCANLINEYFORX0TOSRCBMPWIDTH1DOBEGINGRAYGRAYSSRCROWXRGBTREDSRCROWXRGBTGREENSRCROWXRGBTBLUESRCROWXRGBTREDBYTEGRAYALPHASRCROWXRGBTREDSRCROWXRGBTGREENBYTEGRAYALPHASRCROWXRGBTGREENSRCROWXRGBTBLUEBYTEGRAYALPHASRCROWXRGBTBLUEENDAPROGRESSBARPOSITIONYENDENDPROCEDURESATURATIONSRCBMP,DESTBMPTBITMAPAMOUNTINTEGEROVERLOADVARGRAYSARRAY0767OFINTEGERALPHAARRAY0255OFWORDGRAY,X,YINTEGERSRCROW,DESTROWPRGBARRAYIBYTEBEGINFORI0TO255DOALPHAIIAMOUNTSHR8X0FORI0TO255DOBEGINGRAYIALPHAIGRAYSXGRAYINCXGRAYSXGRAYINCXGRAYSXGRAYINCXENDFORY0TOSRCBMPHEIGHT1DOBEGINSRCROWSRCBMPSCANLINEYDESTROWDESTBMPSCANLINEY14FORX0TOSRCBMPWIDTH1DOBEGINGRAYGRAYSSRCROWXRGBTREDSRCROWXRGBTGREENSRCROWXRGBTBLUEDESTROWXRGBTREDBYTEGRAYALPHASRCROWXRGBTREDDESTROWXRGBTGREENBYTEGRAYALPHASRCROWXRGBTGREENDESTROWXRGBTBLUEBYTEGRAYALPHASRCROWXRGBTBLUEENDENDEND/曝光PROCEDUREEXPOSURESRCBMPTBITMAPAPROGRESSBARTPROGRESSBARVARI,JINTEGERSRCROWPRGBARRAYBEGINAPROGRESSBARMAXSRCBMPHEIGHT1FORI0TOSRCBMPHEIGHT1DOBEGINSRCROWSRCBMPSCANLINEI/DESTROWDESTBMPSCANLINEI/FOREACHPIXELINROWFORJ0TOSRCBMPWIDTH1DOBEGIN/ADDBRIGHTNESSVALUETOPIXELSRGBVALUES/RGBVALUESMUSTBELESSTHAN256IFSRCROWJRGBTRED128THENSRCROWJRGBTREDNOTSRCROWJRGBTREDIFSRCROWJRGBTGREEN128THENSRCROWJRGBTGREENNOTSRCROWJRGBTGREENIFSRCROWJRGBTBLUE128THENSRCROWJRGBTBLUENOTSRCROWJRGBTBLUEENDAPROGRESSBARPOSITIONIENDEND/浮雕PROCEDUREEMBOSSSRCBMPTBITMAPAPROGRESSBARTPROGRESSBARVAR15I,JINTEGERSRCROWPRGBARRAYSRCNEXTROWPRGBARRAYVALUEINTEGERBEGINAPROGRESSBARMAXSRCBMPHEIGHT2FORI0TOSRCBMPHEIGHT2DOBEGINSRCROWSRCBMPSCANLINEISRCNEXTROWSRCBMPSCANLINEI1/DESTROWDESTBMPSCANLINEI/FOREACHPIXELINROWFORJ0TOSRCBMPWIDTH1DOBEGIN/ADDBRIGHTNESSVALUETOPIXELSRGBVALUES/RGBVALUESMUSTBELESSTHAN256VALUESRCROWJRGBTREDSRCNEXTROWJ1RGBTRED128VALUEMAX0,VALUEVALUEMIN255,VALUESRCROWJRGBTREDVALUEVALUESRCROWJRGBTGREENSRCNEXTROWJ1RGBTGREEN128VALUEMAX0,VALUEVALUEMIN255,VALUESRCROWJRGBTGREENVALUEVALUESRCROWJRGBTBLUESRCNEXTROWJ1RGBTBLUE128VALUEMAX0,VALUEVALUEMIN255,VALUESRCROWJRGBTBLUEVALUE/去掉彩色VALUESRCROWJRGBTREDSRCROWJRGBTGREENSRCROWJRGBTBLUEDIV3SRCROWJRGBTREDVALUESRCROWJRGBTGREENVALUESRCROWJRGBTBLUEVALUEENDAPROGRESSBARPOSITIONIENDEND16/雕刻PROCEDUREENGRAVESRCBMPTBITMAPAPROGRESSBARTPROGRESSBARVARI,JINTEGERSRCROWPRGBARRAYSRCNEXTROWPRGBARRAYVALUEINTEGERBEGINAPROGRESSBARMAXSRCBMPHEIGHT2FORI0TOSRCBMPHEIGHT2DOBEGINSRCROWSRCBMPSCANLINEISRCNEXTROWSRCBMPSCANLINEI1/DESTROWDESTBMPSCANLINEI/FOREACHPIXELINROWFORJ0TOSRCBMPWIDTH1DOBEGIN/ADDBRIGHTNESSVALUETOPIXELSRGBVALUES/RGBVALUESMUSTBELESSTHAN256VALUESRCNEXTROWJ1RGBTREDSRCROWJRGBTRED128VALUEMAX0,VALUEVALUEMIN255,VALUESRCROWJRGBTREDVALUEVALUESRCNEXTROWJ1RGBTGREENSRCROWJRGBTGREEN128VALUEMAX0,VALUEVALUEMIN255,VALUESRCROWJRGBTGREENVALUEVALUESRCNEXTROWJ1RGBTBLUESRCROWJRGBTBLUE128VALUEMAX0,VALUEVALUEMIN255,VALUESRCROWJRGBTBLUEVALUE/去掉彩色VALUESRCROWJRGBTREDSRCROWJRGBTGREENSRCROWJRGBTBLUEDIV3SRCROWJRGBTREDVALUESRCROWJRGBTGREENVALUESRCROWJRGBTBLUEVALUEENDAPROGRESSBARPOSITIONI17ENDEND/模糊PROCEDUREBLURSRCBMPTBITMAPAMOUNTINTEGERVARI,J,MINTEGERSRCROWPRGBARRAYSRCNEXTROWPRGBARRAYSRCPREROWPRGBARRAYVALUEINTEGERBEGINFORM1TOAMOUNTDOBEGINFORI1TOSRCBMPHEIGHT2DOBEGINSRCROWSRCBMPSCANLINEISRCPREROWSRCBMPSCANLINEI1SRCNEXTROWSRCBMPSCANLINEI1/DESTROWDESTBMPSCANLINEI/FOREACHPIXELINROWFORJ1TOSRCBMPWIDTH1DOBEGIN/ADDBRIGHTNESSVALUETOPIXELSRGBVALUES/RGBVALUESMUSTBELESSTHAN256VALUESRCPREROWJ1RGBTREDSRCROWJ1RGBTREDSRCNEXTROWJ1RGBTREDSRCPREROWJRGBTREDSRCROWJRGBTREDSRCNEXTROWJRGBTREDSRCPREROWJ1RGBTREDSRCROWJ1RGBTREDSRCNEXTROWJ1RGBTREDDIV9SRCROWJRGBTREDVALUEVALUESRCPREROWJ1RGBTGREENSRCROWJ1RGBTGREENSRCNEXTROWJ1RGBTGREENSRCPREROWJRGBTGREENSRCROWJRGBTGREENSRCNEXTROWJRGBTGREEN18SRCPREROWJ1RGBTGREENSRCROWJ1RGBTGREENSRCNEXTROWJ1RGBTGREENDIV9SRCROWJRGBTGREENVALUEVALUESRCPREROWJ1RGBTBLUESRCROWJ1RGBTBLUESRCNEXTROWJ1RGBTBLUESRCPREROWJRGBTBLUESRCROWJRGBTBLUESRCNEXTROWJRGBTBLUESRCPREROWJ1RGBTBLUESRCROWJ1RGBTBLUESRCNEXTROWJ1RGBTBLUEDIV9SRCROWJRGBTBLUEVALUEENDENDENDEND/锐化PROCEDURESHARPENSRCBMPTBITMAPAMOUNTINTEGERVARI,JINTEGERSRCROWPRGBARRAYSRCPREROWPRGBARRAYVALUEINTEGERBEGINFORI1TOSRCBMPHEIGHT1DOBEGINSRCROWSRCBMPSCANLINEISRCPREROWSRCBMPSCANLINEI1/DESTROWDESTBMPSCANLINEI/FOREACHPIXELINROWFORJ0TOSRCBMPWIDTH1DOBEGIN/ADDBRIGHTNESSVALUETOPIXELSRGBVALUES/RGBVALUESMUSTBELESSTHAN25619VALUESRCROWJRGBTREDSRCROWJRGBTREDSRCPREROWJ1RGBTREDAMOUNTDIV100VALUEMAX0,VALUEVALUEMIN255,VALUESRCROWJRGBTREDVALUEVALUESRCROWJRGBTGREENSRCROWJRGBTGREENSRCPREROWJ1RGBTGREENAMOUNTDIV100VALUEMAX0,VALUEVALUEMIN255,VALUESRCROWJRGBTGREENVALUEVALUESRCROWJR