[Cuis-dev] Circular toolbar

[Hilaire Fernandes]

Ok, I got *Chevron 1 encoded* ;-) Looks nice.

Code a bit hackish.

I wonder if it could be made simpler with transformation, never use it 
though.


| c p1 p2 center | " DrGeoSystem beDevelopment " "Feature require: 
'VectorGraphics'." c _ VectorCanvas onForm: Display. center _ 800 at 400. c 
strokeWidth: 3 color: Color blue darker fillColor: (Color blue lighter 
alpha:0.5) do: [ :e | p1 _ (Point r: 140 degrees: 80) * (1@ -1) + 
center. p2 _ (Point r: 200 degrees: 80) * (1@ -1) + center. e 
abs_MoveToX: p1 x y: p1 y; abs_LineToX: p2 x y: p2 y. p1 _ (Point r: 200 
degrees: 100) * (1@ -1) + center. e abs_ArcToX: p1 x y: p2 y radiusX: 
200 radiusY: 200 angleOfXAxis: 60 degreesToRadians largeFlag: false 
sweepFlag: false. p2 _ (Point r: 140 degrees: 100) * (1@ -1) + center. e 
abs_LineToX: p2 x y: p2 y. p1 _ (Point r: 140 degrees: 80) * (1@ -1) + 
center. e abs_ArcToX: p1 x y: p1 y radiusX: 140 radiusY: 140 
angleOfXAxis: 60 degreesToRadians largeFlag: false sweepFlag: true]. 
Display forceToScreen. p1 _ (Point r: 170 degrees: 90) * (1@ -1) + 
center - 24 asPoint. DrGIcons line displayOn: Display at: p1 rule: Form 
blend.



Le 19/05/2020 à 17:19, Juan Vuletich a écrit :
> This is still experimental code, but evaluate in a Workspace:

-- 
GNU Dr. Geo
http://drgeo.eu

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.cuis.st/mailman/archives/cuis-dev/attachments/20200520/747ff49c/attachment.htm>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Capture d??cran de 2020-05-20 15-32-48.png
Type: image/png
Size: 14667 bytes
Desc: not available
URL: <http://lists.cuis.st/mailman/archives/cuis-dev/attachments/20200520/747ff49c/attachment.png>