blanco = Color.new(255,255,255)
dofile("./lib_ondas.lua")
     r=0
	 Cargar_onda1 ()
	 while true do
onda1:color(255,0,0)
screen.clear(blanco)
onda1:ejecutar ()
screen.flipscreen ()
screen.waitVblankStart()
if r <= 0 then
aumento = true
elseif r >= 128 then
aumento = false
end--Fin
if aumento then
r = r +0.1
else
r = r-0.1

blanco = Color.new(0,0,0,0)
dofile("./lib_ondas.lua")
     r=0
	 Cargar_onda1 ()
	 while true do
onda1:color(r,255,0)
screen.clear(blanco)
onda1:ejecutar ()
screen.flipscreen ()
screen.waitVblankStart()
if r <= 0 then
aumento = true
elseif r >= 128 then
aumento = false
end--Fin
if aumento then
r = r +0.1
else
r = r-0.1
end
end