[Moose-dev] Re: (semi?) radial layout in Roassal

Hi Usman, Thanks for your emails. Having a better circle layout has been on our todo list for quite some time. Your email is a nice push up! First of all, remove @RODraggable it is not necessary since you are using spritesOn: I am not really sure why you need the targetLayer and sourceLayer variables. I suspect this is to group the elements right? This is not necessary, you can simply translate them. -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | view | view := ROView new. view addAll: ((sourceElements := ROElement spritesOn: (1 to: 4)) do: [:n | (n ) addShape: ROLabel]). view addAll: ((targetElements := ROElement spritesOn: (6 to: 10)) do: [:n | (n ) addShape: ROLabel]). view add: ((centerElement := ROElement spriteOn: 5) addShape: ROLabel). ROVerticalLineLayout on: sourceElements; on: targetElements. targetElements do: [ :e | e translateBy: 300 @ 0 ]. centerElement translateBy: 150 @ 0. view addAll: (sourceElements collect: [:source | ROEdge arrowedLineFrom: source to: centerElement ]). view addAll: (targetElements collect: [:target | ROEdge arrowedLineFrom: centerElement to: target ]). view open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Update the last version of Roassal. I have worked on a better circle layout. Your script can be: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | view | view := ROView new. view addAll: ((sourceElements := ROElement spritesOn: (1 to: 4)) do: [:n | (n ) addShape: ROLabel]). view addAll: ((targetElements := ROElement spritesOn: (6 to: 10)) do: [:n | (n ) addShape: ROLabel]). view add: ((centerElement := ROElement spriteOn: 5) addShape: ROLabel). ROCircleLayout new initialAngleInDegree: 130; initialRadius: 200; initialIncrementalAngleInDegree: 30; on: sourceElements. ROCircleLayout new initialAngleInDegree: -45; initialRadius: 200; initialIncrementalAngleInDegree: 30; on: targetElements. centerElement translateBy: 150 @ 0. view addAll: (sourceElements collect: [:source | ROEdge arrowedLineFrom: source to: centerElement ]). view addAll: (targetElements collect: [:target | ROEdge arrowedLineFrom: centerElement to: target ]). view open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Here is the screenshot: Well... A nicer version could be: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | view | view := ROView new. view addAll: ((sourceElements := ROElement spritesOn: (1 to: 4)) do: [:n | (n ) addShape: ROLabel]). view addAll: ((targetElements := ROElement spritesOn: (6 to: 10)) do: [:n | (n ) addShape: ROLabel]). view add: ((centerElement := ROElement spriteOn: 5) addShape: ROLabel). ROCircleLayout new initialAngleInDegree: 130; initialRadius: 200; initialIncrementalAngleInDegree: 30; on: sourceElements. ROCircleLayout new initialAngleInDegree: -45; initialRadius: 200; initialIncrementalAngleInDegree: 30; on: targetElements. centerElement translateBy: 150 @ 150. view addAll: (sourceElements collect: [ :source | (ROEdge from: source to: centerElement) addShape: (ROLine new attachPoint: ROHorizontalAttachPoint instance; add: (ROArrow new offset: 0.3)) ]). view addAll: (targetElements collect: [ :target | (ROEdge from: centerElement to: target) addShape: (ROLine new attachPoint: ROHorizontalAttachPoint instance; add: (ROArrow new offset: 0.3)) ]). view open -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= The screenshot is: I also have added an animating example: ROExample new circle Does this help? I guess more can be built, for example the amount of elements to locate on the left hand side, and the amount on the right hand side. This should not be that hard. Alexandre On Jan 23, 2013, at 12:33 PM, Usman Bhatti <usman.bhatti(a)gmail.com> wrote: -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.