'   PLASMA AMOSERO por �Tony Stuvo Aky! / Odrusba Korp.
'   Programa de ejemplo que acompa�a al art�culo sobre el mismo tema.
'  
'
'   Lo primero es abrirnos una pantallita de 960x512 y 32 colores, 
' pero mostrando s�lo 320x256 pixels de ella.  
Screen Open 0,960,512,32,Lowres
Paper 2 : Curs Off : Flash Off : Cls 
Screen Display 0,128,,320,256

'   Ahora definimos la paleta de grises. 
C=0
Colour 0,0
For N=1 To 15
   Colour N,C
   Add C,$111
Next N
For N=16 To 31
   Colour N,C
   Add C,-$111
Next N

'   Pintamos las l�neas horizontales siguiendo el ciclo de color 
C=0
For Y=0 To 511
   Add C,1,1 To 31
   Ink C
   Polyline 0,Y To 959,Y
Next Y

'   Ahora deformamos en vertical la pantalla siguiendo la funci�n SENO 
E#=0
For X=0 To 959
   E#=E#+0.025
   Screen Copy 0,X,0,X+1,511 To 0,X,Sin(E#)*48
Next X

'   Lo mismo de antes pero en horizontal y con la funci�n COSENO 
E#=0
For Y=0 To 511
   E#=E#+0.02
   Screen Copy 0,0,Y,959,Y+1 To 0,Cos(E#)*96,Y
Next Y

'   Activamos el ciclo de colores
Shift Up 1,1,31,1

'   Definimos el centro del offset a partir del cual se mover� la pantalla 
XO#=320 : YO#=20
A#=0 : B#=0

Repeat 
   '   Calculamos las nuevas coordenadas con las funciones SENO y COSENO para 
   ' obtener un movimiento oscilante m�s o menos suave. 
   A#=A#+0.055
   B#=B#+0.03
   XO#=XO#+Cos(B#)*1.5
   YO#=YO#+Sin(A#)*5
   Screen Offset 0,XO#,YO#
   Wait Vbl 
Until Mouse Key

'   Ejecutando el programa tambi�n se ven los pasos, as� ver�is
' c�mo se pinta el plasma en realidad. 


'   Mensaje para Espray/K�chule: �Eres un mel�n! �C�llate cuando no sepas de lo que hablas! �Pringao!
'   Mensaje para Darlo/Lamer�polis: Ni se te ocurra usar esta rutina en tu pr�xima lamedemo. C�rratela t� so mangante. 
'   Mensaje para JuanJamer/Lamer�polis: Siento mucho que seas impotente. La verdad es que los lamers lo van a llevar crudillo de ahora en adelante, as� que dile al Darlo que se compre una consola(dor).