mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2026-03-09 08:11:19 -07:00
Code Issues Projects Releases Packages Wiki Activity

small revision of QML sokoban

Browse source
This commit is contained in:
polos 2017-03-14 17:33:05 +01:00
parent 75aa78deac
commit 5e908ef779
4 changed files with 19 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
examples/M-modules/quick/sokoban/qml/ext/RotationAnimationExt.qml Normal file
View file

@ -0,0 +1,7 @@
import QtQuick 2.0
import EQL5 1.0
RotationAnimation {
onRunningChanged: { Lisp.call("qsoko:animation-change", running) }
}

11
examples/M-modules/quick/sokoban/qml/items/box2.qml
View file

@ -27,8 +27,8 @@ Image {
RotationAnimation {
target: box2
property: "rotation"
from: -30; to: 30
duration: 300
from: 0; to: 30
duration: 150
}
RotationAnimation {
@ -37,5 +37,12 @@ Image {
from: 30; to: -30
duration: 300
}
RotationAnimation {
target: box2
property: "rotation"
from: -30; to: 0
duration: 150
}
}
}

2
examples/M-modules/quick/sokoban/qml/items/player.qml
View file

@ -20,7 +20,7 @@ Image {
// final animation
RotationAnimation {
RotationAnimationExt {
objectName: "rotate_player"
target: player
property: "rotation"

5
examples/M-modules/quick/sokoban/sokoban.lisp
View file

@ -246,9 +246,8 @@
t)
(defun final-animation ()
(qml-set "rotate_player" "running" t)
(queued (qml-set-all "wiggle_box" "running" t)
(qml-set-all "object2" "rotation" 0)))
(queued (qml-set "rotate_player" "running" t)
(qml-set-all "wiggle_box" "running" t)))
(defun run ()
(x:do-with *quick-view*