Mercurial > lasercutter
diff src/laser/rasterize.clj @ 3:e6254010c95a
added raster-comment
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 20 Aug 2010 00:49:00 -0400 |
parents | 5ed873917c34 |
children | 6533b4ef83ad |
line wrap: on
line diff
1.1 --- a/src/laser/rasterize.clj Fri Aug 20 00:39:50 2010 -0400 1.2 +++ b/src/laser/rasterize.clj Fri Aug 20 00:49:00 2010 -0400 1.3 @@ -64,13 +64,6 @@ 1.4 (display (frame-hash->bufferedImage frame-hash))) 1.5 1.6 1.7 -(defn raster-preamble [] 1.8 - (str-join \newline 1.9 - ["M63 P0\nG61" 1.10 - (str \F feed) 1.11 - "M101" 1.12 - "M3 S1"])) 1.13 - 1.14 (defn frame-hash 1.15 "yields a convienent representation for the pixles in an image. 1.16 Because of the size of the structvre generated, this must only be used 1.17 @@ -116,6 +109,14 @@ 1.18 1.19 1.20 1.21 +(defn raster-preamble [] 1.22 + (str-join \newline 1.23 + ["M63 P0\nG61" 1.24 + (str \F feed) 1.25 + "M101" 1.26 + "M3 S1"])) 1.27 + 1.28 + 1.29 1.30 1.31