From 1a5eee8c1595bfe8682071c993108b77ea8dfcb9 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Sun, 31 Aug 2014 01:31:17 -0400
Subject: [PATCH] *tried fixing problem with new draw commands and their
displace
---
pd/src/pd.tk | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index d5ddaa414..3f5df1d78 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -8160,9 +8160,13 @@ proc pdtk_canvas_displace_withtag {w dx dy} {
$w move selected $dx $dy
foreach item [$w find withtag scalar_selected] {
set matrix [lindex [$w itemconfigure $item -matrix] 4]
+ #puts stderr "A:$matrix"
set newx [expr {[lindex $matrix 2 0] + $dx}]
set newy [expr {[lindex $matrix 2 1] + $dy}]
+ #set newx [expr {[lindex $matrix 2 0] + ($dx * [expr 1.0-[lindex $matrix 0 0]])}]
+ #set newy [expr {[lindex $matrix 2 1] + ($dy * [expr 1.0-[lindex $matrix 1 1]])}]
set matrix [lreplace $matrix 2 2 [list $newx $newy]]
+ #puts stderr "B:$matrix"
$w itemconfigure $item -matrix $matrix
}
}
--
GitLab