Frusta

Check-in [803b3983ed]
Login

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

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

Changes to lib/machine/machine_0.1.tcl.

92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
...
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128

    canvas $w.view -width [expr {[Settings::Get buildWidth]}] -height  [expr {[Settings::Get buildDepth]}]
    button $w.preview -text "Preview" -command [namespace code Preview]
    button $w.write -text "Write"

    grid $w.bed           $w.test        $w.view  -sticky n
    grid $w.loop          -              ^        -sticky ew
    grid x                x              $w.preview
    grid $w.stlFileLabel  $w.stlFileName $w.write
  }

  proc Preview {} {
    variable w
    variable v
    $w.view delete all
................................................................................
    if {$v(doOpositeCircle)} {
      drawPathInCanvas $w.view [roundCrissCrossXY  $v(x0) $v(y0) $v(x1) $v(y1) $v(segsOpositeCircle)] 25 {-fill green}
    }
    if {$v(doSideStitch)} {
      drawPathInCanvas $w.view [stitchSidesXY      $v(x0) $v(y0) $v(x1) $v(y1) $v(segsStitchSides)]  25 {-fill white}
    }
    if {$v(doSpiral)} {
      drawPathInCanvas $w.view [spiralOutXY         $v(x0) $v(y0) $v(x1) $v(y1) $v(segsSpiral)]        5 {-fill purple -arrow none}
      drawPathInCanvas $w.view [spiralInXY          $v(x0) $v(y0) $v(x1) $v(y1) $v(segsSpiral)]        5 {-fill pink -arrow none}
    }
  }
  proc buildExercise {} {
    
  }
  proc drawPathInCanvas {c path {delay 0} {pathArgs {}}} {
    set pathPt [lassign $path P0]







|







 







|
|







92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
...
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128

    canvas $w.view -width [expr {[Settings::Get buildWidth]}] -height  [expr {[Settings::Get buildDepth]}]
    button $w.preview -text "Preview" -command [namespace code Preview]
    button $w.write -text "Write"

    grid $w.bed           $w.test        $w.view  -sticky n
    grid $w.loop          -              ^        -sticky ew
    grid ^                ^              $w.preview
    grid $w.stlFileLabel  $w.stlFileName $w.write
  }

  proc Preview {} {
    variable w
    variable v
    $w.view delete all
................................................................................
    if {$v(doOpositeCircle)} {
      drawPathInCanvas $w.view [roundCrissCrossXY  $v(x0) $v(y0) $v(x1) $v(y1) $v(segsOpositeCircle)] 25 {-fill green}
    }
    if {$v(doSideStitch)} {
      drawPathInCanvas $w.view [stitchSidesXY      $v(x0) $v(y0) $v(x1) $v(y1) $v(segsStitchSides)]  25 {-fill white}
    }
    if {$v(doSpiral)} {
      drawPathInCanvas $w.view [spiralOutXY         $v(x0) $v(y0) $v(x1) $v(y1) $v(segsSpiral)]        1 {-fill purple -arrow none}
      drawPathInCanvas $w.view [spiralInXY          $v(x0) $v(y0) $v(x1) $v(y1) $v(segsSpiral)]        1 {-fill pink -arrow none}
    }
  }
  proc buildExercise {} {
    
  }
  proc drawPathInCanvas {c path {delay 0} {pathArgs {}}} {
    set pathPt [lassign $path P0]