Hi Alex!

I made a simple code in sunburst:

.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=
| node view|
view := ROView new.
node := ROElement on:'Hello world'.
node + ROLabel.

node addShape: ((ROArc startAngle: 0 endAngle: 360) fillColor: Color lightGray); @RODraggable.
view add: node.
node translateBy: 100 @ 100.
view open.
.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=.=

Im�genes integradas 2

Cheers,
Milton

2013/11/17 Alexandre Bergel <alexandre.bergel@me.com>
Hi!

In Roassal, I have the following to draw an ellipse:

-=-=-=-=-=-=-=-=-=-=
fillOval: aRectangle color: aColor borderWidth: aBorderWidth borderColor: aBorderColor

|p rect stroke |

rect := self virtualToRealRectangle: aRectangle.

nativeCanvas pathTransform restoreAfter: [
p:= nativeCanvas createPath: [:path |�
|halfPi |
halfPi := Float pi /2.
path�
absolute;
moveTo: rect topCenter;
cwArcTo: rect rightCenter angle: halfPi;
cwArcTo: rect bottomCenter angle: halfPi;
cwArcTo: rect leftCenter angle: halfPi;
cwArcTo: rect topCenter angle: halfPi].
nativeCanvas setShape: p.
nativeCanvas setPaint: aColor.
nativeCanvas draw.
stroke := nativeCanvas setStrokePaint: aBorderColor.
stroke width: aBorderWidth.
nativeCanvas draw
]
-=-=-=-=-=-=-=-=-=-=
I feel this is not quite right.

It produces something like:

With the following Roassal script:

-=-=-=-=-=-=-=-=-=-=
| view el |
view := ROView new.
el := ROElement on: 'hello world'.
el + ROLabel + ROEllipse.
el @ RODraggable.
view add: el.
view open
-=-=-=-=-=-=-=-=-=-=


It is has if the halfPi variable does not have the right value.�
However I was not able to map them in Athens.

Help appreciated. This is a bug in Roassal that has been there for too long :-)

Cheers,
Alexandre

--�
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel �http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.