Commit 7cd96cf3 authored by Ignacio Losiggio's avatar Ignacio Losiggio
Browse files

fix en la cancioncita

parent dbc64046
......@@ -7,7 +7,7 @@ TOP_ENTITY = square_wave_gen_tb
ruidito.vcd: $(FILES)
ghdl -a $(FILES) # Analiza
ghdl -e $(TOP_ENTITY) # Elabora
ghdl -r $(TOP_ENTITY) --stop-time=7000ms --vcd=$@ # Corre
ghdl -r $(TOP_ENTITY) --stop-time=20000ms --vcd=$@ # Corre
out.wav: wav ruidito.vcd
./wav ruidito.vcd sample[15:0]
......
......@@ -158,18 +158,25 @@ begin
-- C5 C5
proc_do_something(523, 100 ms, freq, note_on, note_off);
proc_do_something(523, 100 ms, freq, note_on, note_off);
-- C5 C5 D5 D5
-- C5 C5 B4 B4
proc_do_something(523, 100 ms, freq, note_on, note_off);
proc_do_something(523, 150 ms, freq, note_on, note_off);
proc_do_something(587, 150 ms, freq, note_on, note_off);
proc_do_something(587, 150 ms, freq, note_on, note_off);
-- D5 D5
proc_do_something(587, 100 ms, freq, note_on, note_off);
proc_do_something(587, 100 ms, freq, note_on, note_off);
proc_do_something(494, 150 ms, freq, note_on, note_off);
proc_do_something(494, 150 ms, freq, note_on, note_off);
-- B4 B4
proc_do_something(494, 100 ms, freq, note_on, note_off);
proc_do_something(494, 100 ms, freq, note_on, note_off);
-- C5 B4 A4
proc_do_something(523, 100 ms, freq, note_on, note_off);
proc_do_something(494, 150 ms, freq, note_on, note_off);
proc_do_something(440, 300 ms, freq, note_on, note_off);
proc_do_something(440, 100 ms, freq, note_on, note_off);
wait for 50 ms;
proc_do_something(440, 100 ms, freq, note_on, note_off);
wait for 10 ms;
proc_do_something(440, 80 ms, freq, note_on, note_off);
proc_do_something(440, 80 ms, freq, note_on, note_off);
proc_do_something(440, 500 ms, freq, note_on, note_off);
wait for 1000 ms;
end process;
STIM_PROC: process
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment