α = π/4;

r[θ_] := E^(-Cot[α]*θ);

PolarPlot[
r[θ],{θ,0,2π},
PlotStyle->{Red,Thick},
PlotRange->All,
Ticks->None,
ImageSize->Large
]