Return to Answer

Something like this:

nlines = 30;
Table[
 Overlay[
  Rotate[
     Graphics[{
       Table[{
         Line[{{0, n}, {nlines, n}}],
         Line[{{n, 0}, {n, nlines}}]},
        {n, 0, nlines}],
       Text[Style[#1, 18], {0, 0}, {-1, -1}, Background -> White]
       },
      AspectRatio -> 1,
      PlotRangePadding -> None,
      ImageSize -> 360], #2] & @@@ 
   Transpose[{(ToUpperCase /@ Alphabet[])[[;; ngrids]], 
     Most@Subdivide[\[Pi]/2, ngrids]}],
  Alignment -> Center],
 {ngrids, 3, 6}]

You can get an interesting effect if you use color in the grid. Here I'm using a repeating pattern of colors for the gridlines and it gives a pretty interesting effect (also, modified the code to not use Overlay, as it is always worth the effort to avoid that function)

With[{line = Line[{{0, n}, {30, n}}]},
 Show[
  Table[
   rt = RotationTransform[m \[Pi] / 16, {15, 15}];
   Graphics[{Table[{ColorData[110][n], rt /@ line, 
       rt /@ Map[Reverse, line, {1, 2}]},
      {n, 0, 30}]}], {m, 0, 7}], ImageSize -> 500]
 ]

Something like this:

nlines = 30;
Table[
 Overlay[
  Rotate[
     Graphics[{
       Table[{
         Line[{{0, n}, {nlines, n}}],
         Line[{{n, 0}, {n, nlines}}]},
        {n, 0, nlines}],
       Text[Style[#1, 18], {0, 0}, {-1, -1}, Background -> White]
       },
      AspectRatio -> 1,
      PlotRangePadding -> None,
      ImageSize -> 360], #2] & @@@ 
   Transpose[{(ToUpperCase /@ Alphabet[])[[;; ngrids]], 
     Most@Subdivide[\[Pi]/2, ngrids]}],
  Alignment -> Center],
 {ngrids, 3, 6}]

You can get an interesting effect if you use color in the grid. Here I'm using a repeating pattern of colors for the gridlines and it gives a pretty interesting effect (also, modified the code to not use Overlay, as it is always worth the effort to avoid that function)

With[{line = Line[{{0, n}, {30, n}}]},
 Show[
  Table[
   rt = RotationTransform[m \[Pi] / 16, {15, 15}];
   Graphics[{Table[{ColorData[110][n], rt /@ line, 
       rt /@ Map[Reverse, line, {1, 2}]},
      {n, 0, 30}]}], {m, 0, 7}], ImageSize -> 500]
 ]

or, replacing ColorData[110][n] with If[EvenQ[n], Red, Blue] gives this,

Something like this:

nlines = 30;
Table[
 Overlay[
  Rotate[
     Graphics[{
       Table[{
         Line[{{0, n}, {nlines, n}}],
         Line[{{n, 0}, {n, nlines}}]},
        {n, 0, nlines}],
       Text[Style[#1, 18], {0, 0}, {-1, -1}, Background -> White]
       },
      AspectRatio -> 1,
      PlotRangePadding -> None,
      ImageSize -> 360], #2] & @@@ 
   Transpose[{(ToUpperCase /@ Alphabet[])[[;; ngrids]], 
     Most@Subdivide[\[Pi]/2, ngrids]}],
  Alignment -> Center],
 {ngrids, 3, 6}]

You can get an interesting effect if you use color in the grid. Here I'm using a repeating pattern of colors for the gridlines and it gives a pretty interesting effect,

With[{line = Line[{{0, n}, {30, n}}]},
 Overlay[
  Table[
   Rotate[
    Graphics[{Table[{ColorData[110][n], line, 
        Map[Reverse, line, {1, 2}]},
       {n, 0, 30}]},
     AspectRatio -> 1,
     PlotRangePadding -> None,
     ImageSize -> 360], m π/16], {m, 0, 7}], Alignment -> Center]
 ]

Something like this:

nlines = 30;
Table[
 Overlay[
  Rotate[
     Graphics[{
       Table[{
         Line[{{0, n}, {nlines, n}}],
         Line[{{n, 0}, {n, nlines}}]},
        {n, 0, nlines}],
       Text[Style[#1, 18], {0, 0}, {-1, -1}, Background -> White]
       },
      AspectRatio -> 1,
      PlotRangePadding -> None,
      ImageSize -> 360], #2] & @@@ 
   Transpose[{(ToUpperCase /@ Alphabet[])[[;; ngrids]], 
     Most@Subdivide[\[Pi]/2, ngrids]}],
  Alignment -> Center],
 {ngrids, 3, 6}]

You can get an interesting effect if you use color in the grid. Here I'm using a repeating pattern of colors for the gridlines and it gives a pretty interesting effect (also, modified the code to not use Overlay, as it is always worth the effort to avoid that function)

With[{line = Line[{{0, n}, {30, n}}]},
 Show[
  Table[
   rt = RotationTransform[m \[Pi] / 16, {15, 15}];
   Graphics[{Table[{ColorData[110][n], rt /@ line, 
       rt /@ Map[Reverse, line, {1, 2}]},
      {n, 0, 30}]}], {m, 0, 7}], ImageSize -> 500]
 ]

Something like this:

nlines = 30;
Table[
 Overlay[
  Rotate[
     Graphics[{
       Table[{
         Line[{{0, n}, {nlines, n}}],
         Line[{{n, 0}, {n, nlines}}]},
        {n, 0, nlines}],
       Text[Style[#1, 18], {0, 0}, {-1, -1}, Background -> White]
       },
      AspectRatio -> 1,
      PlotRangePadding -> None,
      ImageSize -> 360], #2] & @@@ 
   Transpose[{(ToUpperCase /@ Alphabet[])[[;; ngrids]], 
     Most@Subdivide[\[Pi]/2, ngrids]}],
  Alignment -> Center],
 {ngrids, 3, 6}]

Something like this:

nlines = 30;
Table[
 Overlay[
  Rotate[
     Graphics[{
       Table[{
         Line[{{0, n}, {nlines, n}}],
         Line[{{n, 0}, {n, nlines}}]},
        {n, 0, nlines}],
       Text[Style[#1, 18], {0, 0}, {-1, -1}, Background -> White]
       },
      AspectRatio -> 1,
      PlotRangePadding -> None,
      ImageSize -> 360], #2] & @@@ 
   Transpose[{(ToUpperCase /@ Alphabet[])[[;; ngrids]], 
     Most@Subdivide[\[Pi]/2, ngrids]}],
  Alignment -> Center],
 {ngrids, 3, 6}]

You can get an interesting effect if you use color in the grid. Here I'm using a repeating pattern of colors for the gridlines and it gives a pretty interesting effect,

With[{line = Line[{{0, n}, {30, n}}]},
 Overlay[
  Table[
   Rotate[
    Graphics[{Table[{ColorData[110][n], line, 
        Map[Reverse, line, {1, 2}]},
       {n, 0, 30}]},
     AspectRatio -> 1,
     PlotRangePadding -> None,
     ImageSize -> 360], m π/16], {m, 0, 7}], Alignment -> Center]
 ]