[Moose-dev] Fading elements

Hi! Just to share a small addon to manage alpha blending I made with Roassal. Try in an easel the following: -=-=-=-=-=-=-=-=-=-=-=-= random := Random new. view shape circle size: 80; fillColor: Color black. view interaction on: ROMouseEnter do: [ :event | ROColorAlphaFading new for: event element nbCycles: 60 ]. nodes := view nodes: (1 to: 50). nodes do: [:el | el translateTo: (random next * 400) @ (random next * 400) ]. view noLayout. ROPluggableAnimation new nbCycles: 20000; block: [ ROColorAlphaFading new for: nodes atRandom nbCycles: 60 ]; on: view raw. -=-=-=-=-=-=-=-=-=-=-=-= -=-=-=-=-=-=-=-=-=-=-=-= view shape circle size: 80; fillColor: Color black. view interaction on: ROMouseEnter do: [ :event | ROColorAlphaFading new for: event element nbCycles: 60 ]. view nodes: (1 to: 50). view gridLayout. -=-=-=-=-=-=-=-=-=-=-=-= It also works with edges: -=-=-=-=-=-=-=-=-=-=-=-= view interaction dynamicEdgeToAll: [ :model | (1 to: model) collect: [ :v | v // 2 ] ] usingFading: (ROLine red width: 5; attachPoint: ROCenteredAttachPoint instance). view shape rectangle size: 20. view nodes: (1 to: 20). view circleLayout. -=-=-=-=-=-=-=-=-=-=-=-= In the last version of Roassal Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.