$HistoryLength=2;

s1={1,0};
s2={0,1};
n=5;
x0s={#,0}&/@Range[-n,n];
y0s={0,#}&/@Range[-n,n];
np=100;
r[b_,t_,v_]:=b+t*v;
vzorsX=Flatten[Table[r[x0s[[i+n+1]],t,s2],{i,0,n},{t,0,n,(n/np)}],1];
vzorsY=Flatten[Table[r[y0s[[i+n+1]],t,s1],{i,0,n},{t,0,n,(n/np)}],1];
body=N@Union[vzorsX,vzorsY];
plvzor=body//ListPlot[#,AspectRatio->1,Axes->False,PlotStyle->{PointSize[0.006],Blue,Opacity[0.5]}]&;
ClearAll[fZobr,obr];
fZobr[z_]:=N[z+0.08(z^2)+8-0.01(z^3)];
obr[bod_]:=Module[{z},z=fZobr[{1,I}.bod];{Re[z],Im[z]}];
obrs=obr/@body;
plvobrs=obrs//ListPlot[#,AspectRatio->1,Axes->False,PlotStyle->{PointSize[0.006],Hue[0],Opacity[0.5]}]&;

Show[plvobrs,plvzor,PlotRange->All,AspectRatio->Automatic]