# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1282282212 14400
# Node ID 6533b4ef83adbe752cefcb43ef788ba1bc396823
# Parent  e6254010c95a7f0bfe53f258905778c01b2a72de
added hash-map filters :)

diff -r e6254010c95a -r 6533b4ef83ad src/laser/rasterize.clj
--- a/src/laser/rasterize.clj	Fri Aug 20 00:49:00 2010 -0400
+++ b/src/laser/rasterize.clj	Fri Aug 20 01:30:12 2010 -0400
@@ -116,18 +116,22 @@
 	    "M101"
 	    "M3 S1"]))
 
+(defn raster-epilogue []
+  (str-join \newline
+	    ["M63 PO"
+	     "M5"
+	     "M2"]))
 
 
+(defn raster-comment [string]
+  (str "(" (re-gsub #"[()]" "" string) ")"))
 
+(defn filter-keys [fun m]
+  (select-keys m (filter fun (keys m))))
 
+(defn filter-vals [fun m]
+  (into {} (filter (comp fun val) m)))
 
-
-
-
-
-
-
-