Add (kludgy) outline thickness

2 files changed, 18 insertions, 6 deletions

diff --git a/virtual-programs/outline.folk b/virtual-programs/outline.folk
index 999fe2f0..c2c46b4f 100644
--- a/virtual-programs/outline.folk
+++ b/virtual-programs/outline.folk
@@ -1,14 +1,26 @@
 Wish $this has filename "outline.folk"
 
-When /someone/ wishes /thing/ is outlined /color/ {
-    When $thing has region /region/ {
-	# FIXME: assumes path
-	lassign $region vertices edges
+
+proc loopRegion {edges vertices weight color} {
 	foreach edge $edges {
 		set from [lindex $vertices [lindex $edge 0]]
 		set to [lindex $vertices [lindex $edge 1]]
-	        Display::stroke [list $from $to] 4 $color
+		Display::stroke [list $from $to] $weight $color
 	}
+}
+
+When /someone/ wishes /thing/ is outlined /color/ {
+    When $thing has region /region/ {
+	# FIXME: assumes path
+	lassign $region vertices edges
+	loopRegion $edges $vertices 3 $color
     }
 }
 
+When /someone/ wishes /thing/ is outlined thick /color/ {
+    When $thing has region /region/ {
+	# FIXME: assumes path
+	lassign $region vertices edges
+	loopRegion $edges $vertices 6 $color
+    }
+}
\ No newline at end of file
diff --git a/virtual-programs/test.folk b/virtual-programs/test.folk
index fee4e01e..a8b18633 100644
--- a/virtual-programs/test.folk
+++ b/virtual-programs/test.folk
@@ -13,4 +13,4 @@ When $this has region /r/ {
 	Display::stroke [list [list $a $b] [list $c $d]] 3 skyblue
 }
 
-Wish $this is outlined green
\ No newline at end of file
+Wish $this is outlined thick magenta
\ No newline at end of file