initial commit

1 files changed, 23 insertions, 0 deletions

diff --git a/camm2svg.pl b/camm2svg.pl
new file mode 100755
index 0000000..a1c11d5
--- /dev/null
+++ b/camm2svg.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+# convert a CAMM-GL III file to SVG to see what is being plotted
+# Line colors represent the order of plotting (red to violet)
+
+## Copyright (c) 2019-2020 by Thomas Kremer
+## License: GPL ver. 2 or 3
+
+# usage:
+#   camm2svg.pl infile > outfile
+#   camm2svg.pl < infile > outfile
+
+use strict;
+use warnings;
+use CAMM;
+
+local $/ = undef;
+
+my $camm = <>;
+
+my $svg = CAMM->to_svg($camm,1,1);
+
+print $svg;