[Moose-dev] Animation in Roassal

hi! Just to share an example on how to do animations in Roassal. All the pieces are there, but abstractions are still missing. Sequencing animations is not intuitive so far. -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= "Source code: ROExample>>animationOn:" "Preambule. It includes the initialization. " | view rawView elements b helpLabel | rawView := ROView new. view := ROMondrianViewBuilder view: rawView. "-------------" "-------------" "Define 10 blue rectangles, align them, and move them away from the corner" elements := ROElement forCollection: (1 to: 10). elements do: [ :el | el + ROBox blue; extent: 40 @ 80 ]. rawView addAll: elements. ROHorizontalLineLayout new horizontalGap: 0; on: elements. elements do: [ :el | el translateBy: 40 @ 40 ]. "We define the animation in a block to be repeatable" b := [ elements do: [ :el | el model odd ifTrue: [ ROLinearMove new nbCycles: 30; for: el by: 0 @ 40; after: [ ROLinearMove new nbCycles: 30; for: el by: 0 @ -40 ] ] ] ]. "We first do the animation" b value. "Help message" RONopAnimation new nbCycles: 70; after: [ rawView add: (helpLabel := (ROElement on: 'Click here!') + ROLabel). helpLabel translateTo: 20 @ 150.]; on: rawView. RONopAnimation new nbCycles: 120; after: [ helpLabel remove ]; on: rawView. rawView on: ROMouseClick do: [ :event | b value ]. "-------------" "-------------" "Below is the initiation of the menu and opening the visualization" ROEaselMorphic new populateMenuOn: view. view noLayout. view open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.