XProfan

Titre de la fenêtre »
'Plasma-effet dans XProfan-11.2a free
'https://rosettacode.org/wiki/Plasma_effect |(lodev.org)
declare w&,h&,x&,y&,c&,tm!:   w&=169 : h&=126
Fenêtre w&+8,h&+38+38:font 2:appendmenubar 100,"XProfan Plasma"
 $IFNDEF COMPILER
imprimer "\n\n\nCOMPILE PLEASE!":waitinput 2000
 $ENDIF
:proc dist :parameters a!,b!,c!,d!
return Sqrt(sqr(a!-c!)+sqr(b!-d!)):endproc
Repeat: tm!=tm!+5.142857

Whileloop 1,h&,6:y&=&Boucle:whileloop 1,w&,6:x&=&Boucle

    c&=32*(sin(dist(x&+tm!,y&,128,128)/8)+sin(dist(x&,y&,64,64)/8)\
    +sin(dist(x&,y&+tm!/7,192,64)/7)+cos(dist(x&,y&,192,100)/8)+4)
    usepen 0,6,RGB(c&,c&*2,255-c&):line x&,y&-x&+1,y&+5
    endwhile:Endwhile:Until 0