Each year there are several challenges for generative arts in the month January called “Genuary” ( https://genuary.art/prompts ). For this genuary 2022 the topic is “Fidenza”. Using just a few lines we can recreate this effect:
Define the text and scale it to a ~3*3 box:
SetDirectory[NotebookDirectory[]];txt=Text[Style["2022",FontFamily"Univers LT Std"]];reg=DiscretizeGraphics[txt,_Text,MaxCellMeasure0.05];reg//=RegionResize[#,{5.5,4.5}]&;rmf=RegionMember[reg];(*regionmemberfunctiondetermineswhetherthepieceshouldbegrayorcolored*)
(ab)use a streamplot to create a Fidenza-looking graphic, but color is depending on the position, rasterize, and export:
In[]:=
sp=StreamPlot[{-1-x^2+y,1+x-y^2},{x,-3,3},{y,-3,3},StreamScale{0.01,2,0.015,1&},StreamPoints{1500,0.01},StreamMarkers"Box"];cols=ColorData[45]/@Range[11];g=Graphics[Cases[sp,Line[p___]:>{If[rmf[Mean[p]],GrayLevel[0.4],RandomChoice[cols]],Polygon[p]},∞],ImageSize2×600,BackgroundRGBColor[1.,0.98,0.96]];img=Rasterize[g,"Image",RasterSize2×600,ImageSize600]Export["2022_4.png",img]
Out[]=
Out[]=
2022_4.png