Я пытаюсь написать простую анимацию в XPCE/Prolog для проекта, но она недостаточно плавная; он мигает или мерцает. Я использую это на ноутбуке ASUS N550jv с Intel i7 (четырехъядерный, 2,4 ГГц+), так что это не должно быть проблемой. Движущийся объект всегда один и тот же (просто отрисовывается в разных позициях), явно включена двойная буферизация, я использую 40 кадров в секунду.
Что можно сделать для улучшения плавности?
Вот код, который я использую:
sm:- %run this
sm(600,4,40). %runs animation over 600 pixels, 4 seconds long, with 40 FPS
sm(Length,Duration,FPS):-
(object( @window),!,free(@window);true), %check is window exists; if it does, delete it
(object( @floor), !, free( @floor); true), %check is floor exists; if it does, delete it
(object( @box), !, free( @box); true), %%check if box exists; if it does, delete it
new( @window,picture('Window',size(900,300))), %create window
send( @window,open), %display window
send(@window,buffered_update,true), %make sure to use double-buffering
new( @floor,box(800,10)), %create floor
send( @floor,fill_pattern,colour(green)), %colour floor
send( @window,display,@floor,point(50,70)), %show floor
new( @box,box(50,50)), %creates box
send( @box,fill_pattern,colour(yellow)), %colours box yellow
Frames is Duration*FPS, %how many frames are to be drawn
Step is Length/Frames, %what's the distance between steps
Delay is 1/FPS, %what is the delay between steps
send( @window,display,@box,point(50,20)), %shows Object
send( @window,flush), %flushes window
ani(Step,Delay,Frames,point(50,20)), %actual animation
sleep(1), %wait 1 second, and then
free( @box), %delete box
free( @floor), %delete floor
free( @window). %delete window (and exit)
ani(_,_,0,_).
ani(Step,Delay,Frames,point(X,Y)):-
send( @box,x(X+Step)), %moves box to the right
send( @window,flush), %flushes
repeat,
sleep(Delay),
FramesLeft is Frames - 1,
NewX is X + Step,
ani(Step,Delay,FramesLeft,point(NewX,Y)).