Indeed, Roassal does not have a rectangle with rounded corner. Having it in Roassal means you need a new TRShape and a new RTShape.
I could easily do the RTShape. But we need the TRShape first. Do you feel like doing it? This will be a valuable addition to Roassal. Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. On Jul 13, 2014, at 9:57 AM, Peter Uhnák <i.uh...@gmail.com> wrote: > 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.ber...@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.uh...@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.ber...@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.uh...@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 >> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. >> >> >> >> >
