In[]:=
reg1=fun[a_,b_,t_]=sphericalloxodrome=ResourceFunction["InverseStereographicProjection"][logspiral]//Simplify;​​​​reg2=curve=ParametricPlot3D[fun[1,0.1,t],{t,0,10Pi}]/.Line[pts_,rest___]:>Tube[pts,0.02,rest];​​Show[{curve,Graphics3D[Ball[]]}]​​​​
Out[]=
​
In[]:=
Export["E:\\Engineering\\Prusa3D\\MathGeometryPrograms\\ManipulatingandModeling3DObjects\\SpiralProjection_v1.stl",%96,"STL"]
Out[]=
E:\Engineering\Prusa3D\MathGeometryPrograms\ManipulatingandModeling3DObjects\SpiralProjection_v1.stl
In[]:=
RegionPlot3D[Element[{x,y,z},reg2]&&!Element[{x,y,z},reg1],{x,-1,1},{y,-1,1},{z,0,2},PlotStyle->Opacity[0.67],PlotPoints->60,MaxRecursion->5]
RegionPlot3D
:{x,y,z}∈reg2&&!{x,y,z}∈reg1 must be a Boolean function.
RegionPlot3D
:{x,y,z}∈reg2&&!{x,y,z}∈reg1 must be a Boolean function.
Out[]=
RegionPlot3D[{x,y,z}∈reg2&&!{x,y,z}∈reg1,{x,-1,1},{y,-1,1},{z,0,2},PlotStyleOpacity[0.67],PlotPoints60,MaxRecursion5]