■
AAまゆらのサーフェイス弄ってた。 とりあえず50%にしたけどoverlayがずれたので修正した。。。
100,5,overlay,171,162 => 100,5,overlay,85,81 101,5,overlay,171,162 => 101,5,overlay,85,81 102,5,overlay,176,160 => 102,5,overlay,88,80 103,5,overlay,176,160 => 103,5,overlay,88,80 104,5,overlay,176,160 => 104,5,overlay,88,80 105,100,overlay,176,160 => 105,100,overlay,88,80 105,5,overlay,176,160 => 105,5,overlay,88,80 106,5,overlay,176,167 => 106,5,overlay,88,83 107,5,overlay,176,167 => 107,5,overlay,88,83 108,5,overlay,175,170 => 108,5,overlay,87,85 109,5,overlay,175,170 => 109,5,overlay,87,85 110,15,overlay,242,105 => 110,15,overlay,121,52 111,15,overlay,242,105 => 111,15,overlay,121,52 112,15,overlay,242,105 => 112,15,overlay,121,52 113,10,overlay,250,42 => 113,10,overlay,125,21 114,10,overlay,250,42 => 114,10,overlay,125,21 115,10,overlay,250,42 => 115,10,overlay,125,21 116,0,overlay,250,42 => 116,0,overlay,125,21 116,10,overlay,250,42 => 116,10,overlay,125,21 117,0,overlay,245,42 => 117,0,overlay,122,21 117,5,overlay,245,42 => 117,5,overlay,122,21 118,5,overlay,245,42 => 118,5,overlay,122,21 119,5,overlay,245,42 => 119,5,overlay,122,21 120,1,overlay,245,42 => 120,1,overlay,122,21 128,10,overlay,38,95 => 128,10,overlay,19,47 129,10,overlay,38,95 => 129,10,overlay,19,47 130,10,overlay,204,195 => 130,10,overlay,102,97 131,10,overlay,204,195 => 131,10,overlay,102,97 132,10,overlay,212,210 => 132,10,overlay,106,105 133,10,overlay,212,210 => 133,10,overlay,106,105 134,10,overlay,203,194 => 134,10,overlay,101,97 135,10,overlay,203,194 => 135,10,overlay,101,97 136,10,overlay,209,202 => 136,10,overlay,104,101 137,10,overlay,209,202 => 137,10,overlay,104,101 138,10,overlay,204,195 => 138,10,overlay,102,97 139,10,overlay,204,195 => 139,10,overlay,102,97 140,5,overlay,78,60 => 140,5,overlay,39,30 142,5,overlay,0,94 => 142,5,overlay,0,47 143,10,overlay,0,94 => 143,10,overlay,0,47 144,10,overlay,0,94 => 144,10,overlay,0,47 146,10,overlay,89,73 => 146,10,overlay,44,36 146,10,overlay,89,74 => 146,10,overlay,44,37
while(<DATA>) { chomp; ($i,$v,$def,$x,$y) = split( /,/, $_ ); $h{sprintf "$def,$x,$y => $def,%d,%d \n", $x/2,$y/2}++; } print sort keys %h;