<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html; charset=UTF-8" http-equiv="Content-Type"> <title></title> </head> <body bgcolor="#ffffff" text="#000000"> Hi Mark, I expected more what <a class="moz-txt-link-freetext" href="https://en.wikipedia.org/wiki/Oval">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 cite="mid:CAFfRWnU605znqPs4WY25i+Njt8PkF69MhthSv30p2bzhWckynw@mail.gmail.com" 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" data-smartmail="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 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>