From a1681d744c00c3ac776022f6e57ba0fa38f49da6 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 12:38:41 +0100
Subject: [PATCH] wip

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 overflow-tube.ps.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 7203177..0aff68b 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -38,4 +38,29 @@ gsave
 cut_line
 END
 
+sub places {
+  my $data = <<END;
+	-1 -1	34 14
+	-H  H	34 14 *
+	 0  0	34 15
+	 0 -1	35 15
+	 0 -2	35 16
+	 H -2-H	35 16 *
+	 1 -2	36 16
+	 1 -1	37 16
+END
+  foreach (split /\n/, $data) {
+    s{\#.*}{};
+    next unless m/\S/;
+    s{^\s*}{};
+    s{H}{ sqrt(2) }eg;
+    s{\*}{1}eg;
+    my ($x,$y,$money,$veeps,$ruby) = map { eval $_ } split /\s+/;
+    $ruby ||= 0;
+    print STDERR "DATA $x $y $money $veeps $ruby\n";
+  }
+}
+
+places();
+
 print $ps_framing or die $!;
-- 
2.30.2