Cargar_onda1 = function(f)
f=f or 0.1
local onda={pi=math.pi,Frec=f,Long_onda=2000,Amplitud=100}
function onda:color(a,b,c) self.a=a self.b=b self.c=c end
function onda:ejecutar(desfase)
desfase=desfase or 0
if not self.contador then
self.contador=timer.new()
self.contador:start()
self.contador:reset()
end
if not self.a or not self.b or not self.c then
self.a = 0
self.b = 0
self.c = 255
end
local t,x,y,i
t = self.contador:time()/1000+desfase
for x = 0,480,4 do
y = 136+self.Amplitud*math.sin(2*self.pi*(t*self.Frec-x/self.Long_onda))
i = self.Amplitud*(-2*self.pi/self.Long_onda)*math.cos(2*self.pi*(t*self.Frec-x/self.Long_onda))
draw.line(x-200,y-i*200,x+200,y+i*200,color.new(self.a,self.b,self.c,x/40))
end
collectgarbage()
end
return onda
end
 
--Funcion para la 2ª onda--
 
Cargar_onda2 = function(f)
f=f or 0.1
local onda={pi=math.pi,Frec=f,Long_onda=2000,Amplitud=110}
function onda:color(a,b,c) self.a=a self.b=b self.c=c end
function onda:ejecutar(desfase)
desfase=desfase or 0
if not self.contador then
self.contador=timer.new()
self.contador:start()
self.contador:reset()
end
if not self.a or not self.b or not self.c then
self.a = 0
self.b = 0
self.c = 255
end
local t,x,y,i,a
t = self.contador:time()/1000+desfase
if self.Amplitud <= 5 then
self.aumento = true
elseif self.Amplitud >= 110 then
self.aumento = false
end
if self.aumento then
self.Amplitud = self.Amplitud +0.1
else
self.Amplitud = self.Amplitud-0.1
end
for x = 0,480,10 do
y = 136+self.Amplitud*math.sin(2*self.pi*(t*self.Frec-x/self.Long_onda))
i = self.Amplitud*(-2*self.pi/self.Long_onda)*math.cos(2*self.pi*(t*self.Frec-x/self.Long_onda))
for a = -3,3 do
draw.line(x-20,a+y-i*20,x+20,a+y+i*20,color.new(self.a,self.b,self.c,25-math.abs(a*5)))
end
end
collectgarbage()
end
return onda
end
 
--Funcion para la 3ª onda--
 
Cargar_onda3 = function(f)
f=f or 0.1
local onda={pi=math.pi,Frec=f,Long_onda=1500,Amplitud=50}
function onda:color(a,b,c) self.Color=color.new(a,b,c,40) end
function onda:ejecutar(desfase)
desfase=desfase or 0
if not self.contador then
self.contador=timer.new()
self.contador:start()
self.contador:reset()
end
if not self.Color then
self.Color=color.new(0,0,255,40)
end
local t,x,y,i
t = self.contador:time()/1000+desfase
for x = 0,480 do
y = 200+self.Amplitud*math.sin(2*self.pi*(t*self.Frec-x/self.Long_onda))
draw.line(x,272,x,y,self.Color)
end
collectgarbage()
end
return onda
end