Dear Sander,
great idea to use the "chaos game" this way - I already had a lot of fun playing around with this nice idea! Thanks for sharing !!!
Here I just have a remark: I noticed that instead of applying the respective randomizing function on single points, it can be applied on the whole region (using TransformedRegion). The result then would be a clean region or a vector graphic:
(* MaxCellMeasure: to be chosen as big as possible! *)
reg = RegionResize[DiscretizeGraphics[Text[Style["\[Wolf]", Bold, 20]], _Text, MaxCellMeasure -> 3.1], 0.7];
pts4 = {{-1, -1}, {1, -1}, {1, 1}, {-1, 1}};
regs = Flatten[Table[NestList[TransformedRegion[#, (RandomChoice[pts4] + #)/2. &] &, reg, 6], 3000], 1];
regsd = DeleteDuplicates[regs];
(* in case a region is wanted: *)
(* totalReg=RegionUnion[regsd]; *)
obj = Reverse[MeshPrimitives[#, 2] & /@ regsd];
Graphics[obj, ImageSize -> 700]
But doing it this way one definitely would need a more systematic approach instead of randomly choosing a transformation and then deleting duplicates ...
