I have such points

    pts=Uncompress[FromCharacterCode[
      Flatten[ImageData[Import["https://i.sstatic.net/hkAK8.png"],"Byte"]]]];

>`{{79.044,235.992},{94.9421,235.945},{111.087,235.922},...,,{511.07,12.0754},{527.079,11.9187},{590.997,12.0931}}`

I can show it like following

    ListPlot[pts]
![](https://i.sstatic.net/ncfLh.png)

How to know these point have `15` rows and `32` columns?