Frusta

Check-in [09fd732842]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:started gcode writer
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:09fd732842e59246db6df17a4c2f608b41885f1a
User & Date: rmelton 2013-10-23 03:06:19
Context
2013-10-23
03:07
started gcode writer check-in: a243c85b43 user: rmelton tags: trunk
03:06
started gcode writer check-in: 09fd732842 user: rmelton tags: trunk
00:09
repack exercise preview check-in: 803b3983ed user: rmelton tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lib/gcode/gcode_0.1.tcl.

254
255
256
257
258
259
260







261
262
263
264
265
266
267
...
314
315
316
317
318
319
320






















321
322
323
324
325
326
327
328
329
330
331
    }
    proc M110 {args} {;## Set Current Line Number
    }
    proc M111 {args} {;## Set Debug Level
    }
    proc M112 {args} {;## Emergency Stop
    }








    proc unknown {args} {
      error "GCODE unknown error args=$args"
    }


    variable cfg
................................................................................
      geom::_publish_ $defaultName
    } else {
      geom::_publish_ gcode
    }
    interp delete gcodeParseInterp
  }
























}

package provide frusta::gcode 0.1


## Local Variables:
## mode: tcl
## tcl-indent-level: 2
## indent-tabs-mode: nil
## End:







>
>
>
>
>
>
>







 







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>











254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
...
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
    }
    proc M110 {args} {;## Set Current Line Number
    }
    proc M111 {args} {;## Set Debug Level
    }
    proc M112 {args} {;## Emergency Stop
    }

    proc M130 {args} {;## ????
    }
    proc M140 {args} {;## ????
    }
    proc M190 {args} {;## ????
    }

    proc unknown {args} {
      error "GCODE unknown error args=$args"
    }


    variable cfg
................................................................................
      geom::_publish_ $defaultName
    } else {
      geom::_publish_ gcode
    }
    interp delete gcodeParseInterp
  }

  namespace eval write {
    #http://reprap.org/wiki/G-code
    variable fp
    proc open {} {}
    proc close {} {}
    proc Puts {} {
      variable fp
    }
    proc Display {args} {
      Puts "M117 $args"
    }
    proc Path {args} {
      set path [concat {*}$args]
      set pathPt [lassign $path P0]
      lassign $P0 x0 y0
      Puts G1 X90.6 Y13.8 E22.4
      foreach pt $pathPt {
        lassign $pt x1 y1
        Puts G1 X90.6 Y13.8 E22.4
      }
    }
  }

}

package provide frusta::gcode 0.1


## Local Variables:
## mode: tcl
## tcl-indent-level: 2
## indent-tabs-mode: nil
## End: