Random Fonts & Similarities in Deformed Shapes

Source: https://community.wolfram.com/groups/-/m/t/1606199

raster[s_]:=ImagePad[ImageCrop[Rasterize[s,ImageSize150]],50,White]

transf[rn_,amp_,fre_]:=#+{ampSin[rn[[1]]+fre(#[[1]]+#[[2]])]+ampCos[rn[[2]]+fre(#[[1]]-#[[2]])],ampCos[rn[[1]]-fre(#[[1]]-#[[2]])]-ampSin[rn[[2]]-fre(#[[1]]+#[[2]])]}&

randTransf[amp_,fre_][i_]:=With[{rn=RandomInteger[99,2]},ImageTransformation[i,transf[rn,amp,fre]]]

set:=ImagePad[#,-50,Red]&/@randTransf[.02,20]/@raster/@(Style[#,FontFamily"Felipa"]&/@Characters["WOLFRAM"])set//ConformImages//ImageAssemble

data=Flatten[ParallelTable[set,6]];Thumbnail[#,50,PaddingNone]&/@data

FeatureSpacePlot[data,PlotTheme"Frame"]

set:=ImagePad[#,-50,Red]&/@randTransf[.05,100]/@raster/@(Characters["WOLFRAM"])set

data=Flatten[ParallelTable[set,6]];Thumbnail[#,50,PaddingNone]&/@dataFeatureSpacePlot[data,PlotTheme"Frame",PerformanceGoal"Quality"]