Cover Graphic

<<d:\MMA\CS\CSPROGS.m
<<d:\MMA\CS\PLTPROGS.m
<<d:\MMA\CS\CURVES.m
<<d:\MMA\CS\SURFS.m
<<d:\MMA\CS\TUBES.m

AffGamma[β_,ν_]:=
{β,ν,Log[Gamma[ν]]-ν Log[β]}

S=ParametricPlot3D[AffGamma[β,ν]//Evaluate,
{β,0.0001,4},{ν,0.0,2Pi}, ViewPoint->{4,2,1}, BoxRatios->{1,1,1},Mesh->None, Axes->None]

c[t_]:={t,1,-Log[t]}

tubecurve[c][r][t,theta]

R=ParametricPlot3D[tubecurve[
c][0.7][β,theta]
//Evaluate,
{β,0.000,4},{theta,0,2Pi},
PlotPoints->{20,20},ViewPoint->{4,2,1}, 
BoxRatios->{1,1,1},Mesh->True, Axes -> None]

Show[S,R,ViewPoint->{4,2,1}]