とりあえず 17行目の足し算を外に出して X2 = X2 + X2M Y2 = Y2 + Y2M SPOFS 1,X2,Y2 同じく、20行目も外に出して X1 = X1 + STX*2 Y1 = Y1 - STY*2 SPOFS 0,X1,Y1 とすれば、なにか動くものになるのではないでしょうか