Website Background

This background .svg is inspired by Bridget Riley (born 1931 in London) where she painted in 1967 her first stripe painting.

My website background is made by this code:

c1:=RGBColor[({0,155,175}+RandomInteger[{-20,20},3])/255]
c2:=RGBColor[({238,60,46}+RandomInteger[{-20,20},3])/255]
color:={c1,c2,None,c2,c1,None}
fil=MapIndexed[#[[1]]->{{#[[2]]},color[[Mod[First@#2,6,1]]]}&,Partition[Range[51],2,1]];
style=Flatten[Append[#,#[[2]]]&/@Partition[DeleteCases[fil[[All,2,2]],None],2]];

g=Plot[Evaluate@Join[Table[1/5 (1+n-Cos[(n Pi)/5+(2 Pi x)/3]),{n,14,-3,-1}],Table[1/5 (-5-n-Cos[(n Pi)/5+(2 Pi x)/3]),{n,-2,30}]],{x,0,10},Filling->fil,AspectRatio->Automatic,PlotStyle->style,Axes->False,PlotRange->{{-0.2,10.21},{-7.41,3.4}},ImagePadding->0.1]

Export["panel_1.pdf",Graphics[Inset[g,Automatic,Automatic,Scaled[1]]]];

(* heavily inspired by this stack overflow post: https://mathematica.stackexchange.com/questions/302187/bridget-riley-movement-in-squares-and-circles *)