Calculation of the list of areas between the curves of an intersection region

I have 2 tables;

Table 1:

ctr = {(Exp[Pi*0.5] + 1) / 2, 0};
radius = (Exp[Pi*0.5] - 1) / 2;
pp = PolarPlot[
  Evaluate@Table[Exp[(t + 2*Pi*i/120)*0.5], {i, 1, 120}], {t, -Pi,
Pi}, RegionFunction -> (Norm[{#, #2} - ctr] <= radius &)]Total[ArcLength /@ Cases[pp, _Line, All]]

spiral

and Table 2:

ctr = {(Exp[Pi*0.5] - 1) / 2, 0};
radius = (Exp[Pi*0.5] - 1) / 2;
pp2 = ParametricPlot[
  Evaluate[Table[{t, t (Tan[2 j Pi / 120])}, {j, 1, 60}]], {t, -5, 5},
RegionFunction -> (Norm[{#, #2} - ctr] <= radius &), 
  PlotRange ->    All]Total[ArcLength /@ Cases[pp2, _Line, All]]

Line

I want to calculate each area between the curves and display them as a histogram in order to estimate the maximum and minimum gaps between the tables. I've illustrated what I want as below:

slope

can you show me how?