New in Wolfram Mathematica 7: New Interface Elements ◄ previous | next ►
Create Tables with Rotated Text Labels
Anything can now immediately be rotated, even outside of graphics.
In[1]:=

Click for copyable input
Text[Grid[

  Join[{Flatten[{"", Table[Rotate[10^i, 90 Degree], {i, 9, 0, -1}]}]},

    Flatten[{#, IntegerDigits[#, 10, 10]}] & /@ 

    Sort[RandomInteger[10^10, 10]]], Dividers -> Center, 

  Alignment -> {Right, Bottom}]]
Out[1]=