Graphics[Map[Line[Append[#,#[[1]]]]&,NestList[0.9#+0.1RotateLeft[#]&,{{1,1},{-1,1},{-1,-1},{1,-1}},25]]]
Graphics[Map[Line[Append[#,#[[1]]]]&,NestList[0.9#+0.1RotateLeft[#]&,{{1,1},{-1,1},{-1,-1},{1,-1}},25]]]
/image%2F0933529%2F20200220%2Fob_b31c11_sans-titre.jpg)

/image%2F0933529%2F20240410%2Fob_ea6eb4_image-0980383-20210405-ob-a4da44-bonne.gif)