Thank you, the example now works. However as I've mentioned in previous post I'm not sure about the rest of the shapes posted in the attachment. E.g. I haven't seen any notion of "box with rounded corners". I could compose it from four RTArc nad four RTLine but it seems to me overly complex compared to creating new Trachert/Roassal classes. The same would go for the other shapes. What are your thoughts/recommendations on that? Peter On Sun, Jul 13, 2014 at 3:25 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:
Sorry, the version was not properly saved in SmalltalkHub. If you update Roassal2 and Trachel, you should be able to execute the code snippet Iâve sent you. Maybe you want to add âv openâ at the end. If you are using GTInspector, this is not necessary.
As far as I understand your description of the problem, you do not need to create your own shape.
Let me know how it goes.
Cheers, Alexandre
On Jul 13, 2014, at 10:38 AM, Peter Uhnák <i.uhnak@gmail.com> wrote:
Thank you both for suggestions.
According to Monticello I have latest Roassal2 and yet I don't see RTMultiCompositeShape, but I would assume it should be what I was looking for originally.
In the meantime I chose to do it manually - creating a custom shape in both Roassal and Trachert: I've done it in a single path because it seems that having multiple separate paths just creates more trouble. ======== computePath canvas ifNil: [ ^ self ]. path := self athensCanvas createPath: [ :builder | builder absolute. self ccwCirclePath: builder radius: 0.5. "building circular path with specified radius" self cwCirclePath: builder radius: 0.48. self ccwCirclePath: builder radius: 0.4 ] ========
But even if I could manage to do this with MultiCompositeShape I'm not sure about the rest of the shapes (see attachment).
Peter
On Sun, Jul 13, 2014 at 1:18 AM, Alexandre Bergel <alexandre.bergel@me.com> wrote: Hi Peter,
I am not sure what you try to do. Having two ellipses with the same center? But different radius?
Something like that maybe: -=-=-=-=-=-=-=-=-= | v | v := RTView new. v @ RTDraggableView.
shape := RTMultiCompositeShape new. shape add: (RTEllipse new color: (Color yellow alpha: 0.3); size: [:c | c numberOfMethods sqrt * 10 ]). shape add: (RTEllipse new color: (Color green alpha: 0.3); size: [:c | c numberOfLinesOfCode sqrt * 10 ]).
v addAll: (shape elementsOn: RTShape withAllSubclasses). RTFlowLayout on: v elements.
v -=-=-=-=-=-=-=-=-=
<Screen Shot 2014-07-13 at 1.18.36 AM.png>
Alexandre
On Jul 11, 2014, at 11:05 PM, Peter Uhnák <i.uhnak@gmail.com> wrote:
Hi
I'm trying to draw an ellipse inside another ellipse but to no avail. I've tried using RTCompositeShape but that just expands the size of the smaller shape. Is there something else I'm missing (like fixing dimensions so they won't get updated) or should I subclass RTAbstractCompositeShape and try to make something on my own?
Thanks, Peter
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
<shapes.png>
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.