From 5b30da668442d49f61556f00aeb3d3cd584fab1b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <andrescuervor@gmail.com>
Date: Tue, 20 Jun 2023 13:58:37 -0400
Subject: Stop image-slice on laptop, give different whiskers different colors

---
 virtual-programs/images.folk    | 1 +
 virtual-programs/points-at.folk | 6 +++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

(limited to 'virtual-programs')

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 && \
-- 
cgit v1.2.3