changer de fond d'ecran sur le portable OpenBSD

[francoisp31]

Code : Tout sélectionner

fvariable ci fvariable c fvariable zi fvariable z
: >2? z f@ fdup f* zi f@ fdup f* f+ 4.0e f> ;
: nextr z f@ fdup f* zi f@ fdup f* f- c f@ f+ ;
: nexti z f@ zi f@ f* 2.0e f* ci f@ f+ ;
: pixel c f! ci f! 0e z f! 0e zi f! 150 20 do nextr nexti zi f! z f! >2? if i unloop exit then loop 0 ; 
       \ lumiere=20
: left->right -1.5e 1280 0 do fover fover pixel emit 0.0016e f+ loop fdrop ; 
       \ largeur champs numerique f+ (0.0016 donne bien pour 1280 pixels de large
: top->bottom -1e 800 0 do left->right 0.0025e f+ loop fdrop ; 
       \ hauteur champ numerique f+ 0.0025 donne bien pour 800 pixels de haut
.( P5) cr .( 1280 800) cr .( 255) cr top->bottom bye

et ensuite on lance

Code : Tout sélectionner

gforth mandel.fs > mandel.ppm ; convert mandel.ppm mandel.jpg && fbsetbg mandel.jpg ; rm mandel.ppm

j'avais déjà l'exemple aproximatif de mandelbrot...j'ai adapter pour obtenir les bonnes couleurs & tailles & proportions, juste....

[yvesffr]

Rassures-moi, t'as quand même fait un doom après ça ?

[francoisp31]

pas encore mais ca ne saurait tarder.

[gege]

Bonjour,
Je n'y connais pas grand chose en forth, mais n'y a-t-il pas un gag de copier-coller dans ton code ?
Il faut que j'essaye de comprendre...
Interessant en tout cas.
G.E.

[treza]

Un autre programme de fractales ("Von Koch") :

Code : Tout sélectionner

%!PS-Adobe-3.0
<< /PageSize [ 595 841] >> setpagedevice
/flocon {
    0.333 0.333 scale
    dup koch
    100 0 translate
    60 rotate
    dup koch
    100 0 translate
    -120 rotate
    dup koch
    100 0 translate
    60 rotate
    koch
} def
/koch {
    1 sub dup 1 eq  
    {  newpath 0 0 moveto 100 0 lineto stroke pop } 
    { gsave flocon grestore }
    ifelse
} def
/floc
{
gsave
dup koch
100 0 translate
-120 rotate
dup koch
100 0 translate
-120 rotate
koch
grestore
} def
gsave
0.7 0.7 scale
50 100 translate
2 1 8 { dup floc 0 120 translate } for
grestore
gsave
200 100 translate
3 3 scale
90 rotate
8 floc
grestore
showpage

C'est presque du Forth, puisque c'est du Postscript.

Il suffit d'en faire un ficher .ps et afficher ou envoyer vers une imprimante Postscript.

[francoisp31]

pas mal non plus ce ps...

[treza]

J'ai fait ce petit flocon il y a bien longtemps, je crois que c'était après avoir découvert la version Postscript de ce diagramme, image qui doit donner de mauvais souvenirs à beaucoup d'électroniciens :

http://schof.colorado.edu/%7Ekuester/smith/smith.ps

[francoisp31]

oula.... oui