<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html; charset=UTF-8" http-equiv="Content-Type"> </head> <body bgcolor="#ffffff" text="#000000"> Just pushed to GitHub. Apologies for the delay. Thanks! On 3/5/2025 7:42 PM, Mark Volkmann via Cuis-dev wrote: <blockquote cite="mid:CAFfRWnUsHEO_oZcV=1mT9kEh1sPNG4icnxYPLweUA1Ugc_2=jQ@mail.gmail.com" type="cite"> <div dir="ltr">Yes, I love it! I think I was taught the wrong meaning of the word "oval" in grade school and never learned the correct definition despite having a B.S. in Math. ;-) <div>Stadium it is!</div> <div> </div> <div>Let me know when your version is pushed and I'll change my Switch morph to use the stadium method.</div> </div> <div class="gmail_quote gmail_quote_container"> <div dir="ltr" class="gmail_attr">On Wed, Mar 5, 2025 at 3:14 PM Juan Vuletich <<a moz-do-not-send="true" href="mailto:juan@cuis.st">juan@cuis.st</a>> wrote: </div> <blockquote class="gmail_quote" style="margin: 0px 0px 0px 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"> <div bgcolor="#ffffff"> Hi Mark, I expected more what <a moz-do-not-send="true" href="https://en.wikipedia.org/wiki/Oval" target="_blank">https://en.wikipedia.org/wiki/Oval</a> describes as a "technical drawing oval". This could perhaps be called a 'Stadium'. Additionally, in VectorCanvas, coordinates describe the points that the pen goes through, not a rectangle where the figure is contained. I suggest this: stadium: aRectangle " | r | r := 500@150 extent: 100@250. (VectorCanvas onForm: Display) strokeWidth: 2.0 color: Color red do: [ :canvas | canvas stadium: r ]. (VectorCanvas onForm: Display) geometryTransformation: (AffineTransformation withRadians: 1 scale: 1.2 position: 200@100); strokeWidth: 2.0 color: Color red do: [ :canvas | canvas stadium: r ]. Display forceToScreen " | height p1 p2 p3 p4 radius width x1 x2 y1 y2 | width := aRectangle width. height := aRectangle height. radius := (width min: height) / 2. height < width ifTrue: [ x1 := aRectangle left + radius. x2 := aRectangle right - radius. y1 := aRectangle top. y2 := aRectangle bottom. p1 := x1 @ y1. p2 := x2 @ y1. p3 := x2 @ y2. p4 := x1 @ y2 ] ifFalse: [ x1 := aRectangle left. x2 := aRectangle right. y1 := aRectangle top + radius. y2 := aRectangle bottom - radius. p1 := x1 @ y2. p2 := x1 @ y1. p3 := x2 @ y1. p4 := x2 @ y2]. self moveTo: p1; lineTo: p2; arcTo: p3 radius: radius angleOfXAxis: 0 largeFlag: false sweepFlag: true; lineTo: p4; arcTo: p1 radius: radius angleOfXAxis: 0 largeFlag: false sweepFlag: true. Would this work? On 3/5/2025 4:19 PM, Mark Volkmann via Cuis-dev wrote: <blockquote type="cite"> <div dir="ltr"> <div dir="ltr"> <div>Below is the AbstractVectorCanvas method I mentioned in the meetup today for drawing an oval. Here is an example of using it from a drawOn: method of a morph. See the TODO comment below related to getting the stroke width. I'm open to suggestions for improving this.</div> <div> </div> <div>aCanvas strokeWidth: 5 color: Color red fillColor: Color yellow do: [ aCanvas drawOval: rect strokeWidth: 5. ]. </div> <div> </div> <div>---</div> <div> </div> <div>drawOval: aRect strokeWidth: aStrokeWidth | diameter halfStrokeWidth height p1 p2 p3 p4 radius strokeWidth width x1 x2 y1 y2 | width := aRect width. height := aRect height. "TODO: Why does this give the wrong value?" "strokeWidth := engine strokeWidth." strokeWidth := aStrokeWidth. halfStrokeWidth := strokeWidth / 2. diameter := (height min: width) - strokeWidth. radius := diameter / 2. height < width ifTrue: [ x1 := halfStrokeWidth + radius.</div> <div> x2 := width - x1. y1 := halfStrokeWidth. y2 := height - y1. p1 := x1 @ y1. p2 := x2 @ y1. p3 := x2 @ y2. p4 := x1 @ y2.</div> <div> ] ifFalse: [ x1 := halfStrokeWidth. y1 := halfStrokeWidth + radius. x2 := width - x1. y2 := height - y1. p1 := x1 @ y2. p2 := x1 @ y1. p3 := x2 @ y1. p4 := x2 @ y2. ]. self moveTo: p1; lineTo: p2; arcTo: p3 radius: radius angleOfXAxis: 0 largeFlag: false sweepFlag: true; lineTo: p4; arcTo: p1 radius: radius angleOfXAxis: 0 largeFlag: false sweepFlag: true. </div> <div> </div> -- <div dir="ltr" class="gmail_signature"> <div dir="ltr"> <div> <div dir="ltr"> <div> <div dir="ltr"> <div dir="ltr"> <div>R. Mark Volkmann</div> <div>Object Computing, Inc.</div> </div> </div> </div> </div> </div> </div> </div> </div> </div> </blockquote> <pre cols="72">-- Juan Vuletich <a moz-do-not-send="true" href="http://cuis.st" target="_blank">cuis.st</a> <a moz-do-not-send="true" href="http://github.com/jvuletich" target="_blank">github.com/jvuletich</a> <a moz-do-not-send="true" href="http://researchgate.net/profile/Juan-Vuletich" target="_blank">researchgate.net/profile/Juan-Vuletich</a> <a moz-do-not-send="true" href="http://independent.academia.edu/JuanVuletich" target="_blank">independent.academia.edu/JuanVuletich</a> <a moz-do-not-send="true" href="http://patents.justia.com/inventor/juan-manuel-vuletich" target="_blank">patents.justia.com/inventor/juan-manuel-vuletich</a> <a moz-do-not-send="true" href="http://linkedin.com/in/juan-vuletich-75611b3" target="_blank">linkedin.com/in/juan-vuletich-75611b3</a> <a moz-do-not-send="true" href="http://twitter.com/JuanVuletich" target="_blank">twitter.com/JuanVuletich</a></pre> </div> </blockquote> </div> <div> </div> <div> </div> -- <div dir="ltr" class="gmail_signature"> <div dir="ltr"> <div> <div dir="ltr"> <div> <div dir="ltr"> <div dir="ltr"> <div>R. Mark Volkmann</div> <div>Object Computing, Inc.</div> </div> </div> </div> </div> </div> </div> </div> </blockquote> <pre class="moz-signature" cols="72">-- Juan Vuletich cuis.st github.com/jvuletich researchgate.net/profile/Juan-Vuletich independent.academia.edu/JuanVuletich patents.justia.com/inventor/juan-manuel-vuletich linkedin.com/in/juan-vuletich-75611b3 twitter.com/JuanVuletich</pre> </body> </html>