前几天看到用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
以上,所有