たびたびすみません。 元々のリストの38行目あたり(回転変換を元に戻す部分)に、以下を追加してみてください。 X[C]=2*RD*CO+X[N]:Y[C]=2*RD*SI*Y[N] スプライト同士がめり込もうとすると、無理やり引き離します。