summaryrefslogtreecommitdiff
path: root/i/serialplot
diff options
context:
space:
mode:
Diffstat (limited to 'i/serialplot')
-rw-r--r--i/serialplot/gene.pl8
-rw-r--r--i/serialplot/read.pl46
-rw-r--r--i/serialplot/toto.pl10
3 files changed, 0 insertions, 64 deletions
diff --git a/i/serialplot/gene.pl b/i/serialplot/gene.pl
deleted file mode 100644
index 8420d21..0000000
--- a/i/serialplot/gene.pl
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-while (1)
-{
- print "P11,11\n";
- print "Q22,22\n";
- print "R33,33\n";
-}
diff --git a/i/serialplot/read.pl b/i/serialplot/read.pl
deleted file mode 100644
index 0a9c722..0000000
--- a/i/serialplot/read.pl
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl -w
-#use strict;
-
-my $i=0;
-my $tab;
-my $init=0;
-
-while (defined($line = <STDIN>) && $init == 0)
-{
- #if ($line =~ m/[P-W][0-9a-f1-F]{2},[0-9a-f1-F]{2}/)
- {
- $tab[$i] = substr ($line,1,1);
- for (my $j=0; $j<= $i-1; $j++)
- {
- if (substr($line,1,1) eq $tab[$j])
- {
- $init =1;
- }
-
- }
- $i++ if ($init == 0);
- }
-}
-
-
-for (my $j=0; $j <= $i; $j++)
-{
- $line = <STDIN>;
-}
-
-while ($init != 2 )
-{
- for (my $j=0; $j <= $i-1; $j++)
- {
- if (defined($line = <STDIN>))
- {
- print "0x" . substr($line,2,2) . substr($line,5,2);
- }
- else
- {
- $init = 2;
- }
- print " ";
- }
- print "\n";
-}
diff --git a/i/serialplot/toto.pl b/i/serialplot/toto.pl
deleted file mode 100644
index 9c95718..0000000
--- a/i/serialplot/toto.pl
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-
-my $a = 0;
-
-while (1)
-{
- print sin ($a * 3.14), ' ', cos ($a * 3.14), "\n";
- $a += 0.02;
-}