不务正业的Mathematica：为谁炼金晒box法

最近贴吧出了几个晒box的帖子，但是无一例外都是多图地狱，这主要是因为炼金不能改变长宽比，也就是说一页能显示的角色数是固定的，要想展示box就必须一页一页地截图……那么有没有什么好的解决办法呢？思考着这个问题，这篇纹章就诞生了。

滚动截图，一图全box不是梦

使用超级强大的截图软件 Snagit 的 Panoramic 截图功能，选定区域然后把box页面滚到底，就能完成，将所有角色截到一张图里（当然图会很长，比如我的这张是21095*344的分辨率……）

很长的一张BOX图

这样box是在一张图里了，但是根本没法看，首先贴吧不支持这么长的图，而且就算支持，滚动起来也不方便。因此考虑将图片切割，然后累起来，使它变成一个“高图”，而不是“长图”

制作“高图”

拿出我们的 Mathematica，用 ImagePartition[image, length] 即可把一张图片分为长度为 length 的数段。然后我们再用 ImageAssemble 函数就能把他们拼起来，为了变成纵向拼接，需要先 Transpose 一下：

分割、转置、拼接

这样基本是能看了，但是还是有两个问题：一是没法按属性分类查看，二是分割的地方可能会把角色图切开。要解决这两个问题，就要用到计算机视觉了（当然这里是非常简单的）

最终方案

切分

这里考虑的方案是把图片切分成一个角色一个角色的。（这里只拿个小图举例）。
首先将图片二值化：

Binarize
为了方便切分，要把每块中间的黑色去掉，用FillingTransform:
FillingTransform
最后用 ComponentMeasurements 函数就能完成分割，单行代码Values@ComponentMeasurements[{MorphologicalComponents@ FillingTransform[Binarize[#, 0.05]], #}, "Image"] &[img]:
分割
可以看到中间多了个小块，这个留到后面去掉就行。

判断属性

分割出了角色图像，还要判断属性，由于各个属性表颜色差别较大，且在图标的大致相同位置，因此这里采用判断该区域的主要颜色的方法。先写一个判断函数,然后 Apply 一下就好.

getElement = 
  Replace[First@
     Nearest[{RGBColor[
       0.6117654014456108, 0.24313611107395094`, 
        0.16862752587699975`], RGBColor[
       0.33333330260234645`, 0.4588233626358242, 0.2392154231793439], 
       RGBColor[
       0.6509809335082749, 0.5686269902148545, 0.15686284439549134`], 
       RGBColor[
       0.22744993534223334`, 0.4313725746091654, 0.5999994077534418], 
       RGBColor[
       0.5803923371825844, 0.5843134577215171, 0.5764700870653138], 
       RGBColor[
       0.3843139670714593, 0.19999960762608932`, 0.4117643212666374]},
       First@DominantColors@
        ColorQuantize[ImageTake[#, {87, 117}, {22, 52}], 1]],
    {RGBColor[
      0.6117654014456108, 0.24313611107395094`, 
       0.16862752587699975`] -> "火", 
     RGBColor[
      0.33333330260234645`, 0.4588233626358242, 0.2392154231793439] ->
       "风", RGBColor[
      0.6509809335082749, 0.5686269902148545, 0.15686284439549134`] ->
       "雷", RGBColor[
      0.22744993534223334`, 0.4313725746091654, 0.5999994077534418] ->
       "水", RGBColor[
      0.5803923371825844, 0.5843134577215171, 0.5764700870653138] -> 
      "光", 
     RGBColor[
      0.3843139670714593, 0.19999960762608932`, 0.4117643212666374] ->
       "暗"}] &;

判断属性

可以看出属性判断基本准确。之后就能进行什么选取所有火属性角色并放一张图里之类的操作了~

由于切割的时候没有完全切割开，所有有少数角色连着……