# Rotate polar region with occlusion [duplicate]

I am new to Mathematica, so partial answers and strategic advice are appreciated.

I have produced the following image: Show[
Join[
Table[PolarPlot[{1}, {r, 0,2π}, Axes -> False], {ψ, 0, 1, 2.39996}],
Table[PolarPlot[{(θ- ψ)/π}, {θ, (0 + ψ), (π + ψ)}], {ψ, 0, 1, 2.39996}],
Table[PolarPlot[{(2 - θ/π)+(ψ/π)}, {θ, π + ψ, 2π + ψ}], {ψ, 0, 1, 2.39996}]
]
]


I want to fill the following region: And do so in a way that is extensible to more iterations of my loop: Show[
Join[
Table[PolarPlot[{1}, {r, 0,2π}, Axes -> False], {ψ, 0, 3, 2.39996}],
Table[PolarPlot[{(θ- ψ)/π}, {θ, (0 + ψ), (π + ψ)}], {ψ, 0, 3, 2.39996}],
Table[PolarPlot[{(2 - θ/π)+(ψ/π)}, {θ, π + ψ, 2π + ψ}], {ψ, 0, 3, 2.39996}]
]
]


My goal is to have these regions overlap with occlusion, with the edges, background, and fill to be three distinct colors.

## marked as duplicate by Feyre, corey979, Mr.Wizard♦ plotting StackExchange.ready(function() { if (StackExchange.options.isMobile) return; $('.dupe-hammer-message-hover:not(.hover-bound)').each(function() { var$hover = $(this).addClass('hover-bound'),$msg = $hover.siblings('.dupe-hammer-message');$hover.hover( function() { $hover.showInfoMessage('', { messageElement:$msg.clone().show(), transient: false, position: { my: 'bottom left', at: 'top center', offsetTop: -7 }, dismissable: false, relativeToBody: true }); }, function() { StackExchange.helpers.removeMessages(); } ); }); }); Dec 22 '16 at 17:30

• I'm not clear with how you want to shade the more complicated shape, but the simple one is not very hard: BoundaryDiscretizeRegion[RegionDifference[Disk[], First[Cases[PolarPlot[Abs[θ]/π, {θ, -π, π}], Line[l_] :> Polygon[l], ∞]]], MeshCellStyle -> {2 -> Black}] – J. M. will be back soon Dec 22 '16 at 7:10