XProfan

Título de la ventana ""
'Plasma-Effekt en XProfan-11.2a free
'https://rosettacode.org/wiki/Plasma_effect |(lodev.org)
declarar w&,h&,x&,y&,c&,tm!:   w&=169 : h&=126
Ventana w&+8,h&+38+38:font 2:appendmenubar 100,"XProfan Plasma"
 $IFNDEF COMPILER
imprimir "\n\n\nCOMPILE PLEASE!":waitinput 2000
 $ENDIF
:proc dist :parámetros a!,b!,c!,d!
volver Sqrt(sqr(a!-c!)+sqr(b!-d!)):ENDPROC
Repeat: tm!=tm!+5.142857

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

    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