diff options
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/images.folk | 1 | ||||
| -rw-r--r-- | virtual-programs/points-at.folk | 6 |
2 files changed, 6 insertions, 1 deletions
diff --git a/virtual-programs/images.folk b/virtual-programs/images.folk index bf25e308..ae40769a 100644 --- a/virtual-programs/images.folk +++ b/virtual-programs/images.folk @@ -5,6 +5,7 @@ # Wish $this displays camera slice $slice # } +if {$::isLaptop} { return } # Generic image class for sub-image manipulations namespace eval ::image { diff --git a/virtual-programs/points-at.folk b/virtual-programs/points-at.folk index eb5d942b..5c79cf1e 100644 --- a/virtual-programs/points-at.folk +++ b/virtual-programs/points-at.folk @@ -20,23 +20,27 @@ When /someone/ wishes /rect/ points /direction/ & /rect/ has region /region/ { set whisker_radians $radians set fac -1.0 set whisker_size [expr {$width * $fac}] + set color green if {$direction eq "up"} { set whisker_radians [expr {$radians + $pi / 2}] set whisker_size [expr {$height * $fac}] + set color blue } if {$direction eq "left"} { set whisker_radians [expr {$radians + $pi}] + set color red } if {$direction eq "down"} { set whisker_radians [expr {$radians + $pi * 1.5}] set whisker_size [expr {$height * $fac}] + set color white } set wx [expr {$cx + $whisker_size * [::tcl::mathfunc::cos [expr {-1 * $whisker_radians}]] }] set wy [expr {$cy + $whisker_size * [::tcl::mathfunc::sin [expr {-1 * $whisker_radians}]] }] - Display::stroke [list [list $cx $cy] [list $wx $wy] ] 2 green + Display::stroke [list [list $cx $cy] [list $wx $wy] ] 4 $color When /target/ has region /r2/ { if {$target != $rect && \ |