diff options
| author | Omar Rizwan <omar@omar.website> | 2023-07-12 13:08:06 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-07-12 13:08:06 +0000 |
| commit | 735531e5168dcbf8ce697a986a579d46a76a82f8 (patch) | |
| tree | 50d07381cdf516e8f893e533d02930b31e2ded1b /virtual-programs | |
| parent | Do most of the integration of rotate -> Display::text and labelling (diff) | |
| parent | Merge remote-tracking branch 'origin/main' (diff) | |
| download | folk-735531e5168dcbf8ce697a986a579d46a76a82f8.tar.gz folk-735531e5168dcbf8ce697a986a579d46a76a82f8.zip | |
Merge branch 'main' into osnr/rotate-labels
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/points-at.folk | 8 | ||||
| -rw-r--r-- | virtual-programs/shapes.folk | 2 |
2 files changed, 4 insertions, 6 deletions
diff --git a/virtual-programs/points-at.folk b/virtual-programs/points-at.folk index b0937495..773d42b3 100644 --- a/virtual-programs/points-at.folk +++ b/virtual-programs/points-at.folk @@ -4,16 +4,16 @@ When when /rect/ points /direction/ at /someone/ /lambda/ with environment /e/ { When /someone/ wishes /rect/ points /direction/ & /rect/ has region /region/ { if {$direction eq "up"} { - set whiskerRegion [region move [region scale $region width 0.01px] up 50%] + set whiskerRegion [region move [region scale $region width 0.01px] up 51%] set color blue } elseif {$direction eq "left"} { - set whiskerRegion [region move [region scale $region height 0.01px] left 50%] + set whiskerRegion [region move [region scale $region height 0.01px] left 51%] set color red } elseif {$direction eq "right"} { - set whiskerRegion [region move [region scale $region height 0.01px] right 50%] + set whiskerRegion [region move [region scale $region height 0.01px] right 51%] set color green } elseif {$direction eq "down"} { - set whiskerRegion [region move [region scale $region width 0.01px] down 50%] + set whiskerRegion [region move [region scale $region width 0.01px] down 51%] set color white } set whisker [list $rect whisker $direction] diff --git a/virtual-programs/shapes.folk b/virtual-programs/shapes.folk index e5a67fe5..25c615c5 100644 --- a/virtual-programs/shapes.folk +++ b/virtual-programs/shapes.folk @@ -68,8 +68,6 @@ When /someone/ wishes /p/ draws a /color/ /shape/ offset /offsetVector/ & /p/ ha set y [expr {$y + $offsetY}] } - # puts "drawing $shape at $x $y" - set adjustedWidth [expr {$width * 0.25}] set x [expr { $x * 1.3}] set y [expr { $y * 1.25}] |