the lines of the spiral with lessend opacity...

same algorithm as Spiral


Rendered in Mathematica:
Graphics3D[{Opacity[.3], EdgeForm[None],
Flatten[Table[
Polygon /@ (Function[{X, Y,
Z}, {-z Z Sin[(\[Pi] z)/2] +
Cos[(\[Pi] z)/
2] (X z Cos[(\[Pi] z^2)/2] - Y z Sin[(\[Pi] z^2)/2]),
Cos[\[Pi] z] (Y z Cos[(\[Pi] z^2)/2] +
X z Sin[(\[Pi] z^2)/2]) -
Sin[\[Pi] z] (z Z Cos[(\[Pi] z)/2] +
Sin[(\[Pi] z)/
2] (X z Cos[(\[Pi] z^2)/2] -
Y z Sin[(\[Pi] z^2)/2])),
Sin[\[Pi] z] (Y z Cos[(\[Pi] z^2)/2] +
X z Sin[(\[Pi] z^2)/2]) +
Cos[\[Pi] z] (z Z Cos[(\[Pi] z)/2] +
Sin[(\[Pi] z)/
2] (X z Cos[(\[Pi] z^2)/2] -
Y z Sin[(\[Pi] z^2)/2]))}] @@@ ((2
Reverse /@ IntegerDigits[Range[0, 7], 2, 3] -
1)[[#]]) & /@ {{1, 2, 4, 3, 1}, {5, 6, 8, 7, 5}, {1,
5}, {2, 6}, {3, -2}, {4, -1}}), {z, .02, 1, 0.02}]]}]