Hi,
I'm trying to create an animation with words based on the (ltktest) function
in the library (rotate).
For that I'm storing the words in a plist. The code to maintain the words
is:
(defvar *initial-word-energy* 100)
(defvar *words* '()) ; list of words in the form (:text :x :y :energy)
(defun make-word (text x y display-item)
(list :text text :x x :y y :display-item display-item :energy
*initial-word-energy*))
(defun add-word (word) (push word *words*))
Then I created a button that will add words to the plist and to the canvas:
(enter-text-button (make-instance 'button
:master controls
:text "Enter text"
:command (lambda ()
;;store word in
*words*
(let* ((text (text
user-text-entry))
(x (random
(read-from-string
(cget drawing-canvas-reference
:width))))
(y (random
(read-from-string
(cget drawing-canvas-reference
:height))))
;;put text
in canvas
(display-item (create-text drawing-canvas-reference
x
y
text))
(word
(make-word
text
x
y
display-item)))
;;store new word
(add-word word)
;;clear entry
widget
(setf (text
user-text-entry) "")
(focus
user-text-entry)
(finish-output)))))
The idea is that a word will store the position, the text, other things and
the visual representation of the text.
In the animation part (same code as rotate in the library) I move the words,
and here is the problem.
If I try the move changing the coordinates of the updated values of x and y
of the word the text apearing in the canvas 'jumps' in the first move,
afterward it move normally.
The other alternative is to use itemmove, which works. but I would like to
just manipulate x and y of the word and transpose it to the created text
item in the canvas.
;;move display item
[do not work] ---> (set-coords *drawing-canvas-reference* (getf word
:display-item) (list (getf word :x) (getf word :y)))
[works] ----> (itemmove *drawing-canvas-reference* (getf word
:display-item) atract-x atract-y)
So, I would like to understand better why there seems to be a difference in
the values of x an y for the element stored and the element displayed,
although they have been created with the same values.
If possible, I would like to know how can I query the created text element
about it's x and y values.
Sorry for the long message.
Any help is appreciated.
Thanks,
André
