diff options
author | Josh Blum <josh@joshknows.com> | 2010-01-22 11:46:58 -0800 |
---|---|---|
committer | Josh Blum <josh@joshknows.com> | 2010-01-22 11:46:58 -0800 |
commit | a170b9b42345794429486dd4f3316e84ea2cc871 (patch) | |
tree | 2483dfa9eb239e3c2cec5701da6f2f5b5940d7ad /usrp1/tb/makesine.pl | |
parent | 320c70016f8798cb73c8d02eaa3728df48b5b3ab (diff) | |
download | uhd-a170b9b42345794429486dd4f3316e84ea2cc871.tar.gz uhd-a170b9b42345794429486dd4f3316e84ea2cc871.tar.bz2 uhd-a170b9b42345794429486dd4f3316e84ea2cc871.zip |
Moved usrp1 fpga files into usrp1 subdir.
Diffstat (limited to 'usrp1/tb/makesine.pl')
-rwxr-xr-x | usrp1/tb/makesine.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/usrp1/tb/makesine.pl b/usrp1/tb/makesine.pl new file mode 100755 index 000000000..9aebd6947 --- /dev/null +++ b/usrp1/tb/makesine.pl @@ -0,0 +1,14 @@ +#!/usr/bin/perl + +$angle = 0; +$angle_inc = 2*3.14159/87.2; +$amp = 1; +$amp_rate = 1.0035; +for($i=0;$i<3500;$i++) + { + printf("@(posedge clk);xi<= #1 16'h%x;yi<= #1 16'h%x;\n",65535&int($amp*cos($angle)),65535&int($amp*sin($angle))); + $angle += $angle_inc; + $amp *= $amp_rate; + } + +printf("\$finish;\n"); |