<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p><font size="+1">Work pretty well adding submorphs. Only requires
little vector calculus to coop with the rotation center:</font></p>
<pre><font size="+1"><font color="#a11818">ProtractorMorph>>initialize
| label p1 font |
super initialize .
font _ FontFamily familyName: FontFamily defaultFamilyName pointSize: 4.
10 to: 170 by: 10 do: [:angle |
p1 _ Point r: 88 degrees: angle negated.
p1 _ p1 - (p1 normal * (font widthOfString: angle asString) / 2).
label _ LabelMorph contents: angle asString font: font.
label rotation: (90 - angle) degreesToRadians.
self addMorph: label.
label morphPosition: p1]</font>
</font></pre>
<p><font size="+1">All the the necessary knowledge do construct such
morph is in The Cuis Book.</font></p>
<p><font size="+1">What is interesting is how the width of the lines
can be float number, here 1.0 ; 0.5 ; 0.6<br>
</font></p>
<p><img moz-do-not-send="false"
src="cid:part1.2FB30713.6ED27B17@drgeo.eu" alt="" width="429"
height="297"></p>
<br>
<div class="moz-cite-prefix">Le 13/01/2021 à 16:17, Juan Vuletich
via Cuis-dev a écrit :<br>
</div>
<blockquote type="cite" cite="mid:5FFF0F07.5000203@jvuletich.org">One
way to do it is to add a submorph for each label, rotating it as
needed.<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>
<a class="moz-txt-link-freetext" href="http://blog.drgeo.eu">http://blog.drgeo.eu</a></pre>
</body>
</html>