PS 滤镜— —Marble 效果

1220人阅读 评论(0) 收藏 举报
分类:
    clc;
    clear all;
    close all;

    addpath('E:\PhotoShop Algortihm\Image Processing\PS Algorithm');

    I=imread('4.jpg');
    I=double(I);
    Image=I/255;

    xScale = 20;
    yScale = 20;
    amount = 1;
    turbulence =0.25;

    Image_new=Image;

    [height, width, depth]=size(Image);

    Index=1:256;
    sin_T=-yScale*sin(2*pi*(Index-1)/256*turbulence);
    cos_T=xScale*cos(2*pi*(Index-1)/256*turbulence);

    [ind, g1, g2, g3]=init_arr();

    for ii=1:height

    % %     [ind, g1, g2, g3]=init_arr();

        for jj=1:width

            dis=min(max( floor(127*(1+Noise2(jj/xScale, ii/yScale, ind, g2))), 1), 256);

            x=jj+sin_T(dis);
            y=ii+cos_T(dis);

    % %         if (x<=1)     x=1;  end
    % %         if (x>=width)   x=width-1; end;
    % %         if (y>=height)  y=height-1; end;
    % %         if (y<1)  y=1;     end;
    % %         

            if (x<=1)     continue;  end
            if (x>=width)   continue; end;
            if (y>=height)  continue; end;
            if (y<1)  continue;     end;

            x1=floor(x);
            y1=floor(y);
            p=x-x1;
            q=y-y1;

            Image_new(ii,jj,:)=(1-p)*(1-q)*Image(y1,x1,:)+p*(1-q)*Image(y1,x1+1,:)...
                +q*(1-p)*Image(y1+1,x1,:)+p*q*Image(y1+1,x1+1,:); 
        end
    end

    imshow(Image_new)
    imwrite(Image_new, 'out.jpg');

参考来源:http://www.jhlabs.com/index.html

原图:

这里写图片描述

效果图:

这里写图片描述

这里写图片描述

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:562960次
    • 积分:7911
    • 等级:
    • 排名:第2596名
    • 原创:162篇
    • 转载:0篇
    • 译文:60篇
    • 评论:99条
    个人介绍
    专注于图像处理,计算机视觉,机器学习。渴望写出优美的代码与文字。走遍万水千山,在维数的世界里寻找各种可能。
    博客专栏