程序实现文字转化成图片

House

程序实现文字转化成图片

, W7 G$ t3 v# d0 M1 Zrgb三通道中，R通道存放文本信息，G通道产生中心涣散圆形，B通道产生全图小涣散圆形
& f% e$ X6 G4 h6 r主要应用的是unicode2native指令，非加密转换

3 c8 w# a/ Z* h5 o
3 M+ U) U7 H$ K( L4 A. b9 E
6 Z! E5 k3 J" Y# P# P! g, ?- F
  s0 K. x0 n/ g! b! yfunction word2picmain()
%程序实现文字转化成图片
+ \8 Z* H3 u( G! c3 f%%//////////////////////////////////////////////////////////////////////
%rgb三通道中，R通道存放文本信息，G通道产生中心涣散圆形，B通道产生全图小涣散圆形
%主要应用的是unicode2native指令，非加密转换

%%//////////////////////////////////////////////////////////////////////
clc
0 y+ r1 p! Z$ a. }! ~clear all
a='七夕节快乐O(∩_∩)O哈哈~';%你想要转换的文字
9 W+ q9 J: a2 N$ @4 V$ g( F& s: ]b=makepic(a,50,50);
imshow(b)
imwrite(b,'my.bmp');
mb=double(imread('my.bmp'))/255;%生成的图像是1~255，而matlab归一化成了0~1，所以要换回来
txt=makeword(mb,50,50)
7 H# v( N3 O" x) H2 oend
%%//////////////////////////////////////////////////////////////////////
' a) _5 H' e2 ^) s% n' `/ sfunction =makepic(txt,cx,cy)
, o( ]8 J7 ?* p( [2 G%[cx,cy]是图片中存放文本数据长度信息位置坐标
0 H' G+ v9 v4 j. e: H/ ]a=txt;
  g1 A; U! h' r# {' oca=unicode2native(a,'UTF-16BE');
- \- R; a* I$ M: A6 R# lb=zeros(100,100,3);
num=size(ca,2);
0 H( q4 o. h" }' N7 z  n5 rst=0;
for i=1:100
    for j=1:100
( J: l2 k1 ?& H3 l, P        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;
' Y5 n" W7 h& A7 R* f- Y* l4 z. z        rcx=ceil(i/8)*8-4;
) e. f0 p, e0 |: |7 n  y        rcy=ceil(j/8)*8-4;
        b(i,j,3)=(((i-rcx)^2+(j-rcy)^2)/32);
1 r5 u. K! s' X' N- ~0 M        st=st+1;
+ @# X% a! u' s; i% d" _, ^    end
; u0 R; I. G. p3 q" f6 Yend
b(cx,cy,2)=1-(ceil(num/100)-1)/10;
# C# Q; ~1 y0 m$ M9 \2 y# Z- Eb(cx,cy,3)=1-mod(num,100)/100;
end

: A2 q2 a' g9 r; x%%//////////////////////////////////////////////////////////////////////
2 P# s% R- Z# y# N+ D) ~" kfunction [txt]=makeword(img,cx,cy)
8 N- y) {3 F7 T# X8 inum=uint16((1-img(cx,cy,3))*100+(1-img(cx,cy,2))*100*10)
lsb=zeros(100,100);
; C  @5 k6 x+ y; D' Bnsp=[];
for i=1:100
4 }$ ]" T' A$ H; |3 b+ A    for j=1:100
, l- p9 `( a1 V' ^* {        nsp=[nsp img(i,j,1)*255];
    end
1 ^* i, u* f4 x7 `end
0 t6 H& e& K; T2 k* F5 j4 w; I& ytxt=native2unicode(nsp(1:num),'UTF-16BE')
end
%%//////////////////////////////////////////////////////////////////////

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

" @; V8 p8 w; Z0 x; B$ h

ononsiiii

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