Hi Paco,

The usual way to combine multiple Graphics is to use Show.

g1 = Graphics[{Red, Disk[]}];
g2 = Graphics[{Blue, RegularPolygon[3]}];
Show[g1, g2]

That does not work if the Graphics is rotated

g2r = Rotate[g2, Pi/2];
Show[g1, g2r]
(* Show: Could not combine the graphics objects in Show *)

The reason is that the Head of g2r is Rotate, not Graphics.

g2r // InputForm
(* Rotate[Graphics[{RGBColor[0, 0, 1], RegularPolygon[3]}], Pi/2] *)

We need to swap the Rotate and the Graphics. The Rule replaces Graphics with the identity function Identity and then passes it to Graphics.

g2r /. Graphics -> Identity // Graphics // InputForm
(* Graphics[Rotate[{RGBColor[0, 0, 1], RegularPolygon[3]}, Pi/2]] *)

The best way is to avoid this is to perform the Rotate before passing it to Graphics

gr2 = Graphics[Rotate[{Blue, RegularPolygon[3]}, Pi/2, {0, 0}]];
Show[g1, gr2]

I suggested the former because it required minimal changes to your code. To try the better approach, use Table to generate a list of the rotations of the primitives {CV, Line[{{0, 0}, {PS/4, L1/2}}], ...} and then pass it to Graphics.

Hi dpt1221tpd,

Please provide the values for CV, PS,L1`, ... so we can reproduce your results.

WL is very different from Illustrator and Inkscape. The Do loop calls RotFlasher PN times but does nothing with the result. Here is one way to do it

SeedRandom[111];
g := Graphics[{RandomColor[], RegularPolygon[{1.5, 0}, {1, Pi/3}, 3]}]

t = Table[Rotate[g, n , {0, 0}], {n, Pi/3, 2 Pi, Pi/3}];

t /. Graphics -> Identity // Graphics