guys do you know why if i try to convert this
newcover =
GraphicsGrid[
Table[ParametricPlot[ myellipse[i, j], {x, 0, 2 \[Pi]},
Axes -> False,
PlotStyle -> Directive[Black, Thickness[ spessoreellisse[i, j]]],
PlotRange -> {-1.2, 1.2},
Epilog -> { {If[Sign[S3medie[[i, j]]] == 1, Red, Blue],
Arrowheads[5*spessoreellisse[i, j]],
Arrow[{freccia[i, j ] [[-7]], freccia[i, j ][[-1]]}]}},
Background -> None], {i, 1, 300, 10}, {j, 1, 300, 10}] ,
ImageSize -> {900, 900}, Spacings -> 0, Frame -> None,
BaselinePosition -> Top, Background -> None]