From 5a6bee4fe076e06514c6e4e538590dd3a2a5cdc3 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Fri, 6 Nov 2009 18:37:00 +0000
Subject: upgrade gridflow

svn path=/trunk/; revision=12728
---
 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