R=40;r=15; (*Tokamak parameters*)
Tra=15;Trb=100;Trc=17; (*Transformer core*)
Clear[Torus,Transformator];
SetDirectory[ToFileName[Extract["FileName"/.NotebookInformation[EvaluationNotebook[]],{1},FrontEnd`FileName]]];
Torus[]:=(
x[t_]:=(R+r*Cos[s])*Cos[t];
y[t_]:=(R+r*Cos[s])*Sin[t];
z[t_]:=r*Sin[s];
Show[ParametricPlot3D[{x[t],y[t],z[t]},{s,0,2*Pi},{t,0,2*Pi},PlotStyle->Specularity[White,50],Mesh->None]]);


Loop[A_,z_,Phi1_,Phi2_]:=(Show[ParametricPlot3D[{A Sin[t],A Cos[t],z},{t,Phi1,Phi2}]]);
Spojka[y_,z_,Phi1_,Phi2_]:=(Show[ParametricPlot3D[{t,y,z},{t,Phi1,Phi2}]]);

DAS=Show[
Torus[],
(*Loop[R*0.8,r,0,2Pi*0.98], (*Uloop*)*)
Loop[R*1.2,r,0,2Pi*0.975], (*Uloop*)
(*Graphics3D[Text["Tokamak chamber",{-R,-R,r*1.1}]], *)
(*Graphics3D[Text["(Subscript[U, loop])",{0,R*1.6,r*1.2}]],*)
PlotRange->All,ViewPoint->{Pi,Pi/2,2},Axes->False, Boxed->False]

Export["das.png",Show[DAS,Axes->False],"png",ImageSize->600,ImageResolution->300]
Export["das.svg",Show[DAS,Axes->False],"svg",ImageSize->600,ImageResolution->300]
Export["das.pdf",Show[DAS,Axes->False],"pdf",ImageSize->600,ImageResolution->300]