Gfortran fait des vidéos fractales

    do angle = 0, 1800
        radangle = float(angle) * 0.017000
        radius   = float(angle) / 1880.0
        stx = radius * sin(radangle*4.0)
        sty = radius * cos(radangle*5.0)
        call plotsomething (picz, complex(stx, sty), cm)
        write (filename, "(a, i5.5, a)") "img/", angle, ".pnm"
        call spitaspnm (picz, trim(filename))
    enddo

Le code d'à coté l'explique clairement : nous introduisons une perturbation multi-cyclique d'amplitude croissante dans le processus génératif afin de perturber l'entropie visuelle du spectateur passif.

Pour un premier essai, je trouve que ça rend bien, mais il reste pas mal de points à améliorer, en particulier sur le post-processing des images avant de les envoyer à ffmpeg afin d'avoir un contraste optimal.