Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | fixed machine/exercise output |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c8eec67efddaf7439bbdfd3ae6da6a7c |
| User & Date: | rmelton 2014-01-06 05:17:02.977 |
Context
|
2014-03-02
| ||
| 02:08 | 0.1 - several cleanups check-in: d3a03866d2 user: rmelton tags: trunk | |
|
2014-01-06
| ||
| 05:17 | fixed machine/exercise output check-in: c8eec67efd user: rmelton tags: trunk | |
| 01:07 | fixed machine/exercise menu output check-in: 83b3f53d74 user: rmelton tags: trunk | |
Changes
Changes to lib/gcode/gcode_0.1.tcl.
| ︙ | ︙ | |||
564 565 566 567 568 569 570 571 572 573 574 575 576 577 |
set cArgs {}
while {[llength $args] > 0 && [string match "-*" [lindex $arg 0]]} {
set args [lassign $args cmd]
switch -- $cmd {
default {error "gcode::write::Init bad cmd=$cmd"}
}
}
Puts G21 ;# set units to mm
Puts G90 ;# set to absolute positioning
}
proc Home {args} {
set cArgs {}
while {[llength $args] > 0 && [string match "-*" [lindex $args 0]]} {
set args [lassign $args cmd]
| > > > | 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 |
set cArgs {}
while {[llength $args] > 0 && [string match "-*" [lindex $arg 0]]} {
set args [lassign $args cmd]
switch -- $cmd {
default {error "gcode::write::Init bad cmd=$cmd"}
}
}
Puts [format "\#\# frusta version = %s" $::cfg(frustaVersion)]
Puts [format "\#\# http://chiselapp.com/user/seadevil/repository/frusta"]
Puts [format "\#\# seadevil (R. Melton) 2013"]
Puts G21 ;# set units to mm
Puts G90 ;# set to absolute positioning
}
proc Home {args} {
set cArgs {}
while {[llength $args] > 0 && [string match "-*" [lindex $args 0]]} {
set args [lassign $args cmd]
|
| ︙ | ︙ |
Changes to lib/gui/gui_0.1.tcl.
| ︙ | ︙ | |||
128 129 130 131 132 133 134 |
}
default {error "giu::Busy: bad cmd=$cmd"}
}
}
}
| < | 128 129 130 131 132 133 134 135 136 137 138 139 140 141 |
}
default {error "giu::Busy: bad cmd=$cmd"}
}
}
}
set ::cfg(frustaAbout) {
Frusta / Frustum (latin) = pieces/peice (the math definition of frustum is the portion of a rectangular or conic section sliced parallel to the base)
This project is my attempt to use Tcl to build a toolkit to manipulate data for a 3d-printer
In the first version I want to build internal representations of STL and GCODE datafiles and provide a simple way to visualize them. I'll see where it goes from there.
|
| ︙ | ︙ |
Changes to lib/machine/machine_0.1.tcl.
| ︙ | ︙ | |||
150 151 152 153 154 155 156 |
if {$v(doResonanceY)} {
drawPathInCanvas $w.view [resonanceY $v(x0) $v(y0) $v(x1) $v(y1) $v(segsResonanceY)] 1 {-fill cyan}
}
}
proc BuildExercise {fileName} {
variable v
| | | 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 |
if {$v(doResonanceY)} {
drawPathInCanvas $w.view [resonanceY $v(x0) $v(y0) $v(x1) $v(y1) $v(segsResonanceY)] 1 {-fill cyan}
}
}
proc BuildExercise {fileName} {
variable v
gcode::write::Open $fileName
gcode::write::Init
gcode::write::Display "Motor Exercise"
for {set i 0} {$i < $v(loops)} {incr i} {
gcode::write::Display "Motor Exercise $i/$v(loops)"
if {$v(autoHome)} {
gcode::write::Home
}
|
| ︙ | ︙ |
Changes to main.tcl.
| ︙ | ︙ | |||
9 10 11 12 13 14 15 | ## kits stuff lappend auto_path [file join $cfg(kitLib) Canvas3d] lappend auto_path [file join $cfg(kitLib) sqlite3] ## frusta components lappend auto_path $cfg(frustaLib) | | | | | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
## kits stuff
lappend auto_path [file join $cfg(kitLib) Canvas3d]
lappend auto_path [file join $cfg(kitLib) sqlite3]
## frusta components
lappend auto_path $cfg(frustaLib)
set cfg(frustaVersion) "0.1"
switch -- $cfg(frustaVersion) {
0.1 {
## hard code for now, autoload later...
source [file join $cfg(frustaLib) commandLineArgs.tcl]
source [file join $cfg(frustaLib) stl.tcl]
package require -exact frusta::gcode 0.1
source [file join $cfg(frustaLib) geom.tcl]
source [file join $cfg(frustaLib) slice.tcl]
package require -exact frusta::gui 0.1
source [file join $cfg(frustaLib) view.tcl]
source [file join $cfg(frustaLib) view2d.tcl]
source [file join $cfg(frustaLib) menu.tcl]
source [file join $cfg(frustaLib) logging.tcl]
package require -exact frusta::settings 0.1
package require -exact frusta::machine 0.1
}
default {
error "bad frustaVersion=$cfg(frustaVersion)"
}
}
##
lappend auto_path [file join $cfg(frustaLib) utils]
proc Exit {} {
|
| ︙ | ︙ |