Explorations of Color Schemes 2D

L1=Table[{j*Sin[Pi*i/100]+Sin[Pi*i/50],

-j*(1+Cos[Pi*i/100]+Cos[Pi*i/50])},

{j,20 },{i,Range[-100,101,4]}];
L2=Table[{50+j*Sin[Pi*i/100]+Sin[Pi*i/50],

-j*(1+Cos[Pi*i/100]+Cos[Pi*i/50])},

{i,Range[-100,101,4]},{j ,20}];
Show[

ListLinePlot[L1,PlotStyle->"AvocadoColors"],
ListLinePlot[L2,PlotStyle->"FruitPunchColors"],

ImageSize->{800,500},Axes->False,

PlotRange->All,Frame->True]