From ccddec68116fc6403858ebfa13d4a7b1aa3d5278 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Sun, 18 Oct 2009 20:01:19 +0000
Subject: hi gridflow 0.9.5

svn path=/trunk/; revision=12611
---
 externals/gridflow/bin/hpgl_move | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 externals/gridflow/bin/hpgl_move

(limited to 'externals/gridflow/bin/hpgl_move')

diff --git a/externals/gridflow/bin/hpgl_move b/externals/gridflow/bin/hpgl_move
new file mode 100755
index 00000000..f4bf0534
--- /dev/null
+++ b/externals/gridflow/bin/hpgl_move
@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+# Copyright (c) 2009 by Mathieu Bouchard
+
+x = Float ARGV[0]
+y = Float ARGV[1]
+
+puts STDIN.read.split(/\s*;\s*/).map {|m|
+  h = m.slice!(0,2)
+  d = m.split(",")
+  case h
+  when "PA","PD","PU"
+    (0...d.length).each {|i|
+      off = if i%2==0 then x else y end
+      v = Float(d[i])+off
+      d[i] = if v==v.to_i then v.to_i else v.to_f end
+    }
+  end
+  h+d.join(",")
+}.join(";")
-- 
cgit v1.2.1