Mathematica图像处理(6)--图片转字符串

前几天看到用python实现了将图片转换成字符串的

于是就准备用Matheatica来实现她

***********

原理:

1.把图片转成灰度图像

2.不同灰度值对应不同的符号

3.对一张图像上每一个点进行变换

*************

看一下效果

这是原图

这是效果图

效果一般吧 能看清大概

下面直接贴一下源码

file = "D:\\dmcs.jpg";
pic = Import[file];
pic = ColorConvert[pic, "Grayscale"];
pic = Thumbnail[pic, 100];
data = ImageData[pic];
color = " - - - + + + . . . 1 1 1 2 2 2 3 3 3 4 4 4 5 5 5 6 6 6 7 7 7 8 8 8 9 9 9 * * * # # #";
color = StringSplit[color];
closeMatch[c_] := color[[IntegerPart[c*100/2.5 + 1]]];
pic1 = Grid[
   Map[closeMatch, data, {2}]
   , Spacings -> {0, 0}];
Export["2.jpg", pic1]

2016/8/14

以上，所有