[REBOL] Re: bad animation ...
From: arngar::gmail::com at: 5-Jun-2007 15:59
Many thanks for this answer !
I work on your code and try to adapt it for my program ... (there
are two squares, click on the black and the red moves ;-), just a
simple animation test ...
=> Now, the speed is not a problem , thanks !
=> but there are still some gui problems during the animation
(pictures below) ... Do I need to clean something ? (I double check
your code ..., you did nothing more )
-- Attached file included as plaintext by Ecartis --
Content-Transfer-Encoding: base64
Content-Type: application/applefile;
name=Image 1.png
Content-Disposition: inline;
filename="Image 1.png"
AAUWBwACAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJAAAAMgAAAAoAAAADAAAAPAAAAAsAAAAAAAAA
ABAASW1hZ2UgMS5wbmc
-- Binary/unsupported file stripped by Ecartis --
-- Type: image/png
-- File: Image 1.png
-- Attached file included as plaintext by Ecartis --
-- Attached file included as plaintext by Ecartis --
Content-Transfer-Encoding: base64
Content-Type: application/applefile;
name=Image 2.png
Content-Disposition: inline;
filename="Image 2.png"
AAUWBwACAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAJAAAAMgAAAAoAAAADAAAAPAAAAAsAAAAAAAAA
ABAASW1hZ2UgMi5wbmc
-- Binary/unsupported file stripped by Ecartis --
-- Type: image/png
-- File: Image 2.png
-- Attached file included as plaintext by Ecartis --
(left picture: On windows there are sometimes verticals lines, in all
cases the first vertical line do not disappear ...
right picture: On mac os x (sdk beta 2.7.5) => it never works
correctly, I always have some verticals lines and the whole red block
disappears during the animation ! ;-((
)
here the code if you want to try:
;-------------------------
rebol [ ]
cursor-moving: false
cur-menu-pos: 150x0
move-cursor-menu-to: function [ item-menu ] [ delta steps nb-mov ] [
steps: 1
delta: cur-face/offset/x - item-menu/offset/x
nb-mov: delta / steps
loop nb-mov [
cur-face/changes: 'offset
cur-face/offset/x: cur-face/offset/x - steps
wait 0.01
show cur-face
]
cursor-moving: false
]
view/new layout/size [
origin 0x0
menu-bar: box 800x58
at 200x200 text "click on the black box ..."
at 10x0
register-menu: box 72x58 black [
if [ curson-moving = false ] [
cursor-moving: true
move-cursor-menu-to register-menu
]
]
] 800x600
cur-face: make face [
offset: cur-menu-pos
size: 72x58
color: red
edge: none
]
menu-bar/pane: cur-face
show menu-bar
do-events
;-----------------------------
Le 4 juin 07 à 22:55, Maxim Olivier-Adlhoch a écrit :