Comment #7 on issue 1097 by ryd...(a)gmail.com: Not all shapes support
borderColor/borderWidth
https://code.google.com/p/moose-technology/issues/detail?id=1097
As per the linked thread, you can do it with the athens drawing API
already..
ellipsisOfExtent := [:builder :anExtent | | halfX halfY |
halfX := anExtent x / 2.
halfY := anExtent y / 2.
"We expect relative builder, and start the ellipsis at
anExtent x / 2 @ 0"
builder
curveVia: 0@(halfY negated * 0.55) and: (0.45 *
halfX)@halfY negated to: halfX@ halfY negated;
curveVia: halfX* 0.55 @ 0 and: halfX@ (0.45 *
halfY) to: halfX @ halfY;
curveVia: 0 @ (halfY * 0.55 ) and: (0.45 * halfX
negated @ halfY) to: halfX negated @ halfY;
curveVia: (halfX negated * 0.55) @ 0 and: halfX
negated @ (halfY negated * 0.45) to: halfX negated @ halfY negated;
close].
AthensSceneView new
scene: [ :can |
| path |
path := can
createPath: [ :builder |
builder moveTo: 10@60.
ellipsisOfExtent value: builder
value: 200@100 ].
(can setPaint: Color blue;
drawShape: path;
setStrokePaint: Color red)
width: 8 asFloat.
can drawShape: path ] ;
openInWindow
--
You received this message because this project is configured to send all
issue notifications to this address.
You may adjust your notification preferences at:
https://code.google.com/hosting/settings