From 0561cf7899e728d4b80dbcab108ce880fcafbf8c Mon Sep 17 00:00:00 2001
From: Thomas Kremer <->
Date: Thu, 24 Sep 2020 21:58:49 +0200
Subject: initial commit

---
 camm2svg.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 camm2svg.pl

(limited to 'camm2svg.pl')

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;
-- 
cgit v1.2.3