通常の文字と「スクリプト」文字の両方を含むテキストの回転に問題があるようです。これを説明するために、短い関数を書きました。
RotatePrint[s_String] :=
GraphicsRow[Table[
Graphics[Rotate[Text[Style[s, 50]], j]] // ImageCrop,
{j, 0, 2 Pi, Pi/4}]]
RotatePrint["Sc"]
、つまり 2 つの通常の文字を使用すると、期待どおりに動作します。
RotatePrint["\[ScriptCapitalS]\[ScriptC]"]
、つまり 2 つの「スクリプト」文字を使用しても同様に機能します。
RotatePrint["\[ScriptCapitalS]c"]
ただし、通常の文字とスクリプト文字が混在している場合は、奇妙な動作をします。
特に奇妙なのは、回転角 Pi/2 ではオーバーラップが発生しないことです。
ご協力いただきありがとうございます!
ImageRotate
Edit1:代わりに使用することでこれを回避できることはわかっていますRotate
が、これは問題自体を解決しません。
Edit2:これはオペレーティング システムと Mathematica のバージョンに依存するように思われるため、Windows 7 64 ビットで Mathematica v8.0.0.0 を使用しています。