Project: 绅朴明星企划！

新开了一个企划，绅朴明星培育企划

链接： SP-Fans

虽然这个企划是100%腰斩的

但是，至少要设计一个文化衫， 现在网页已经设计好了，只缺一个文化衫了。如果有什么好的创意，请发给[email protected]

附上图片生成方法（语言 Wolfram Mathematica）：

定义一个形成圆角矩形的函数rect，传入颜色和尺寸

	rect[color_, size_] := Graphics[{color, 
		Rectangle[{-size, -size}, {size, size}, 
		RoundingRadius -> .4 size]}, PlotRange -> 1, ImageSize -> 10];
			

再定义一个对图片进行二值化再模糊的函数

	gauss[img_] := img // Rasterize // Binarize // GaussianFilter[#, 2.3] &;
			

生成形状

	(* Text: *)
	mask = Style["WSP", 40, Bold]
	(*  或者是图片（PNG，背景透明，目标为黑色） *)
	mask = Import[(*PicPath*)]

处理形状

	pic = gauss[mask]

形状转为结果的函数

	HuePic[pic_] := 
		MapIndexed[rect[Hue[#2[[2]] / (2 ImageDimensions[pic][[1]])], #1] &,
		ImageData@pic, {2}] // GraphicsGrid[#, ImageSize -> 600] &

生成结果

	result = HuePic[pic]
	Export[(*FilePath*), result]

精简：(并没有什么卵用)

	Export[(*FilePath*),  mask // gauss // HuePic]