Quit[]

texture1=Rotate[Import["http://www.yukterez.net/mw/akkretionsscheibe.jpg"],-Pi/2];
texture2=Rotate[Import["http://www.yukterez.net/mw/disk.png"],-Pi/2];
texture3=Import["https://upload.wikimedia.org/wikipedia/commons/e/ea/Equirectangular-projection.jpg"];

ri=1.63678; ra=7; (*Akkretionsscheibe*)
tmax=-5/3 R0; (*zeitlicher Integrationsbereich*)
a=0.7; (*Spinparameter*)
℧=0.7; (*Ladung*)
plp=120;

Xyz[{x_,y_,z_},α_]:={x Cos[α]-y Sin[α],x Sin[α]+y Cos[α],z}; (*Rotationsmatrix*)
xYz[{x_,y_,z_},β_]:={x Cos[β]+z Sin[β],y,z Cos[β]-x Sin[β]};
xyZ[{x_,y_,z_},ψ_]:={x,y Cos[ψ]-z Sin[ψ],y Sin[ψ]+z Cos[ψ]};

rE=1+Sqrt[1-a^2 Cos[θ]^2-℧^2]; (*äußere Ergosphäre*)
RE[A_,w1_,w2_]:=Xyz[xyZ[{Sqrt[rE^2+A^2] Sin[θ] Cos[φ],Sqrt[rE^2+A^2] Sin[θ] Sin[φ],rE Cos[θ]},w1],w2];
rG=1-Sqrt[1-a^2 Cos[θ]^2-℧^2]; (*innere Ergosphäre*)
RG[A_,w1_,w2_]:=Xyz[xyZ[{Sqrt[rG^2+A^2] Sin[θ] Cos[φ],Sqrt[rG^2+A^2] Sin[θ] Sin[φ],rG Cos[θ]},w1],w2];
rA=1+Sqrt[1-a^2-℧^2]; (*äußerer Horizont*)
RA[A_,w1_,w2_]:=Xyz[xyZ[{Sqrt[rA^2+A^2] Sin[θ] Cos[φ],Sqrt[rA^2+A^2] Sin[θ] Sin[φ],rA Cos[θ]},w1],w2];
rI=1-Sqrt[1-a^2-℧^2]; (*innerer Horizont*)
RI[A_,w1_,w2_]:=Xyz[xyZ[{Sqrt[rI^2+A^2] Sin[θ] Cos[φ],Sqrt[rI^2+A^2] Sin[θ] Sin[φ],rI Cos[θ]},w1],w2];
AS[A_,w1_,w2_]:=Xyz[xyZ[{r*Sin[Pi/2]*Cos[ϕ],r*Sin[Pi/2]*Sin[ϕ],r*Cos[Pi/2]},w1],w2];

horizons1[A_,mesh_,w1_,w2_]:=Show[
ParametricPlot3D[RE[A,w1,w2],{φ,0,2 π},{θ,0,π},Mesh->mesh,PlotPoints->plp,PlotStyle->Directive[Blue,Opacity[0.10]], ImageSize->400, Background->Black,  ViewPoint->{12Cos[10Pi/180],0,12Sin[10Pi/180]}],
ParametricPlot3D[RA[A,w1,w2],{φ,0,2 π},{θ,0,π},Mesh->None,PlotPoints->plp,PlotStyle->Directive[Cyan,Opacity[0.15]]],
ParametricPlot3D[RI[A,w1,w2],{φ,0,2 π},{θ,0,π},Mesh->None,PlotPoints->plp,PlotStyle->Directive[Red,Opacity[0.25]]],
ParametricPlot3D[RG[A,w1,w2],{φ,0,2 π},{θ,0,π},Mesh->None,PlotPoints->plp,PlotStyle->Directive[Red,Opacity[0.35]]],
If[A==0,{},ParametricPlot3D[{Sin[prm] A,Cos[prm] A,0},{prm,0,2π},PlotStyle->{Thickness[0.001],Orange}]],
ParametricPlot3D[Xyz[xyZ[{r*Sin[Pi/2]*Cos[ϕ],r*Sin[Pi/2]*Sin[ϕ],r*Cos[Pi/2]},w1],w2],{r,Sqrt[ri^2+a^2],Sqrt[ra^2+a^2]},{ϕ,0+36Pi/360,2*Pi+36Pi/360},PlotPoints->plp,Mesh->None,TextureCoordinateScaling->True,PlotStyle->Texture[texture1]],
SphericalPlot3D[Sqrt[rA^2 Cos[θ]^2+(A^2+rA^2) Sin[θ]^2],{θ,0,π},{φ,0,2 π},Mesh->None,TextureCoordinateFunction->({#5,1-#4}&),PlotStyle->{Opacity[0.3],Directive[Texture[texture3]]},SphericalRegion->True,Lighting->"Neutral"],
PlotRange->12];

pic=Rasterize[Show[horizons1[a,None,0,0]]]

Export["1.png",pic]