[Moose-dev] Re: Rotating labels around a circular shape

Hi Offray Can you try the next piece of code. .=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.= | view center data diameter angle gap | diameter := 100. gap := 5. view := RTView new. data := #('lion-o' 'tigro' 'chitara' 'munra' 'ozimandias' 'Dr Manhatan'). center := RTEllipse new size: diameter; color: Color white; borderColor: Color veryLightGray. view add: center element. 1 to: data size do: [ :index | | label | angle := (index * 360/ data size) degreesToRadians. label := (RTRotatedLabel new text: (data at: index); height: 5) element. label translateBy: (Point r: label trachelShape notRotatedWidth/2+(diameter/2)+gap theta: angle). view add: label. angle := angle radiansToDegrees. angle := angle + ((angle between: 90 and: 270) ifTrue: [ 180 ] ifFalse: [ 0 ]). label trachelShape angleInDegree: angle. ]. view .=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.= Cheers, Milton 2015-12-23 20:36 GMT-04:00 Offray Vladimir Luna Cárdenas &lt;offray.luna(a)mutabit.com <mailto:offray.luna@mutabit.com>>: Hi, I'm trying to understand the code behind the figure here to rotate labels: So, I made a minimal example to start with, here (code is at http://ws.stfx.eu/N6ZG4BAIBO00 ) Now I would like to rotate the text to made it look like the first image. I presume that the code that made this possible for the first case is this one: ==================== RTBundleBuilder>>createLabelFor: e view: aView | lbl | lbl := label elementOn: e model. self interaction setUpElement: lbl. aView add: lbl. e addCallback: (TRTranslationCallback new block: [ | angle | angle := (e position - center ) theta. lbl translateTo: e position+((lbl trachelShape notRotatedWidth/2) * (angle cos @ angle sin)). angle := angle radiansToDegrees. angle := angle + ((angle between: 90 and: 270) ifTrue: [ 180 ] ifFalse: [ 0 ]). lbl trachelShape angleInDegree: angle ] ). e translateTo: e position. ==================== but I can not quite understand the lines lbl translateTo: e position+((lbl trachelShape notRotatedWidth/2) * (angle cos @ angle sin)). and angle := angle + ((angle between: 90 and: 270) ifTrue: [ 180 ] ifFalse: [ 0 ]). Could some body explain me how to incorporate rotation to the first basic example at http://ws.stfx.eu/N6ZG4BAIBO00 (second image of this mail). Thanks, Offray _______________________________________________ Moose-dev mailing list Moose-dev(a)list.inf.unibe.ch <mailto:Moose-dev@list.inf.unibe.ch> https://www.list.inf.unibe.ch/listinfo/moose-dev _______________________________________________ Moose-dev mailing list Moose-dev(a)list.inf.unibe.ch https://www.list.inf.unibe.ch/listinfo/moose-dev