程序实现文字转化成图片

House

程序实现文字转化成图片

3 j5 c2 V8 H7 O; crgb三通道中，R通道存放文本信息，G通道产生中心涣散圆形，B通道产生全图小涣散圆形
主要应用的是unicode2native指令，非加密转换

% h& P6 I8 G5 E) v
( ^0 F3 `# x& Y. e% n9 ], o" c

3 y: ~$ q, o+ [function word2picmain()
%程序实现文字转化成图片
& J( Y. s0 m# O! K, H  K  ^%%//////////////////////////////////////////////////////////////////////
%rgb三通道中，R通道存放文本信息，G通道产生中心涣散圆形，B通道产生全图小涣散圆形
%主要应用的是unicode2native指令，非加密转换

%%//////////////////////////////////////////////////////////////////////
clc
# m9 Z/ ^& h7 g' ^2 G6 r/ Q1 i! ~clear all
a='七夕节快乐O(∩_∩)O哈哈~';%你想要转换的文字
b=makepic(a,50,50);
# z4 x  f5 C' D) s& A7 `8 `imshow(b)
imwrite(b,'my.bmp');
) E8 |' u# l. G3 k4 f6 Tmb=double(imread('my.bmp'))/255;%生成的图像是1~255，而matlab归一化成了0~1，所以要换回来
txt=makeword(mb,50,50)
* L. _3 e6 f! U% K  `; lend
%%//////////////////////////////////////////////////////////////////////
" C7 _' K  W0 k1 Z9 yfunction =makepic(txt,cx,cy)
7 T0 q' Y( |7 E: C%[cx,cy]是图片中存放文本数据长度信息位置坐标
a=txt;
ca=unicode2native(a,'UTF-16BE');
b=zeros(100,100,3);
1 ~) K3 k- _) O8 I, s' i3 q' Xnum=size(ca,2);
7 F3 _) j! Y% x% \st=0;
for i=1:100
    for j=1:100
) E8 g, u0 ?, s3 r% I" a  Z        sp=ceil(mod(st,num))+1;  
        b(i,j,1)=double(ca(sp))/255;
        b(i,j,2)=1-((i-50)^2+(j-50)^2)/5000;
        rcx=ceil(i/8)*8-4;
  ]7 ^1 Z+ V! f- j9 T+ K        rcy=ceil(j/8)*8-4;
        b(i,j,3)=(((i-rcx)^2+(j-rcy)^2)/32);
: K) ~$ L9 E; q        st=st+1;
    end
end
b(cx,cy,2)=1-(ceil(num/100)-1)/10;
b(cx,cy,3)=1-mod(num,100)/100;
end

%%//////////////////////////////////////////////////////////////////////
5 @0 j) k" n3 a- D5 hfunction [txt]=makeword(img,cx,cy)
num=uint16((1-img(cx,cy,3))*100+(1-img(cx,cy,2))*100*10)
3 t3 t$ ~9 V6 s: A7 ?lsb=zeros(100,100);
7 H$ q8 @4 W1 ]8 gnsp=[];
for i=1:100
. I3 ~2 B8 N& v- o$ x2 b$ Q    for j=1:100
        nsp=[nsp img(i,j,1)*255];
    end
end
  N# H8 [' t% K- a8 _/ l6 ltxt=native2unicode(nsp(1:num),'UTF-16BE')
end
%%//////////////////////////////////////////////////////////////////////

游客，如果您要查看本帖隐藏内容请回复

ononsiiii

rgb三通道中，R通道存放文本信息，G通道产生中心涣散圆形，B通道产生全图小涣散圆形 主要应用的是unicode2native指令，非加密转换