diff options
| author | Cristobal Sciutto <cristobal.sciutto@gmail.com> | 2023-10-27 21:54:01 +0000 |
|---|---|---|
| committer | Cristobal Sciutto <cristobal.sciutto@gmail.com> | 2023-10-27 21:54:01 +0000 |
| commit | 0ece21c189df93d85f5d59fa42ed497a3f012a5e (patch) | |
| tree | cbc56080cb2813d9b5ad24a0449e1193de4c42d7 /virtual-programs | |
| parent | outline: Slight optimization (diff) | |
| download | folk-0ece21c189df93d85f5d59fa42ed497a3f012a5e.tar.gz folk-0ece21c189df93d85f5d59fa42ed497a3f012a5e.zip | |
no collection for outline
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/outline.folk | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/virtual-programs/outline.folk b/virtual-programs/outline.folk index 1d6411cb..13f060b1 100644 --- a/virtual-programs/outline.folk +++ b/virtual-programs/outline.folk @@ -9,21 +9,9 @@ proc loopRegion {edges vertices width color} { Wish the GPU draws pipeline "line" with instances $instances } -When the collected matches for [list /someone/ wishes /thing/ is outlined /color/] are /matches/ { - set thingColors [dict create] - foreach match $matches { - dict lappend thingColors [dict get $match thing] [dict get $match color] - } - foreach thing [dict keys $thingColors] { - When $thing has region /region/ { - set thickness 0 - foreach color [dict get $thingColors $thing] { - # FIXME: assumes path - lassign $region vertices edges - loopRegion $edges $vertices [incr thickness 3] $color - } - } - } +When /someone/ wishes /thing/ is outlined /color/ & /thing/ has region /region/ { + lassign $region vertices edges + loopRegion $edges $vertices 3 $color } When /someone/ wishes /thing/ is outlined thick /color/ & /thing/ has region /region/ { |