summaryrefslogtreecommitdiff
path: root/i/serialplot/toto.pl
diff options
context:
space:
mode:
Diffstat (limited to 'i/serialplot/toto.pl')
-rw-r--r--i/serialplot/toto.pl10
1 files changed, 10 insertions, 0 deletions
diff --git a/i/serialplot/toto.pl b/i/serialplot/toto.pl
new file mode 100644
index 0000000..9c95718
--- /dev/null
+++ b/i/serialplot/toto.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+use strict;
+
+my $a = 0;
+
+while (1)
+{
+ print sin ($a * 3.14), ' ', cos ($a * 3.14), "\n";
+ $a += 0.02;
+}