Para hacer la estrella se rota el rombo 8 veces usando Secuencia(Rota(c1,i*45º,I),i,1,8). Igual se hace luego con el cuadrado.