<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<p><font size="+1">Ok, I got <b>Chevron 1 encoded</b> ;-) Looks
nice.<br>
</font></p>
<img moz-do-not-send="false"
src="cid:part1.7FFB8D8E.E1A240DB@drgeo.eu" alt="" width="102"
height="97">
<p><font size="+1">Code a bit hackish.</font></p>
<p><font size="+1">I wonder if it could be made simpler with
transformation, never use it though.<br>
</font></p>
<p><font size="+1"><br>
</font></p>
<pre><font size="+1">| c p1 p2 center |
" DrGeoSystem beDevelopment "
"Feature require: 'VectorGraphics'."
c _ VectorCanvas onForm: Display.
center _ 800@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.
</font></pre>
<p><font size="+1"><br>
</font></p>
<p><font size="+1"></font><br>
</p>
<div class="moz-cite-prefix">Le 19/05/2020 à 17:19, Juan Vuletich a
écrit :<br>
</div>
<blockquote type="cite" cite="mid:5EC3F8E5.3080306@jvuletich.org">This
is still experimental code, but evaluate in a Workspace:<br>
</blockquote>
<pre class="moz-signature" cols="72">--
GNU Dr. Geo
<a class="moz-txt-link-freetext" href="http://drgeo.eu">http://drgeo.eu</a></pre>
</body>
</html>