It is of course possible to draw everything manually. 

![enter image description here][1]

 Manipulate[
 With[{
 colArea = 
 Polygon[#2, VertexColors -> ConstantArray[Hue[#1/(2 Pi)], 3]] & @@@ 
 Table[{phi, {{0, 0}, {Cos[phi], Sin[phi]}, {Cos[phi + Pi/40], Sin[phi + Pi/40]}}},
 {phi, 0.0, 2 Pi, Pi/40}],
 gridLines = 
 Table[{{x, -#}, {x, #}} &[Sqrt[1 - x^2]], {x, -1, 1, 
 2/(grid - 1)}],
 radLines = Table[{{0, 0}, {Cos[phi], Sin[phi]}}, 
 {phi, 0, 2 Pi - 2 Pi/radiants, 2 Pi/radiants}],
 cirLines = With[{
 circle = Table[{Cos[phi], Sin[phi]}, {phi, 0, 2 Pi, Pi/20}]},
 Table[r*circle, {r, 0, 1, 1/circles}]
 ]},
 Graphics[{
 colArea, Black, Thin, Line[gridLines], 
 Line[Map[Reverse, gridLines, {2}]], Darker@Gray, Line@radLines, 
 Line /@ cirLines}]],
 {circles, 3, 10, 1},
 {radiants, 4, 20, 1},
 {grid, 5, 20, 1}
 ]


 [1]: https://i.sstatic.net/rjstM.png