glen/archematics
1
0
Fork 0
Code Issues 17 Pull Requests Packages Projects 1 Releases 2 Wiki Activity

feat: Implement 'meanProportional' point construction method

Browse Source 
Also fixes a typo in a triple-slash regular expression that
  was preventing the "quadrilateral" method from being recognized.
This commit is contained in:
Glen Whitney 2024-01-17 21:53:45 -08:00
parent a9a5a3584f
commit 8e691a56be
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/adapptlet.civet
View File

@ -660,6 +660,13 @@ classHandler: Record<JoyceClass, ClassHandler> :=
if args.scalar and args.scalar.length
callbacks.push (api: AppletObject) =>
api.setCoords name, ...vertFlipped(args.scalar or [], cdata)
'meanProportional'
pt := args.subpoints
unless pt and pt.length is 6 then return
direction := `UnitVector(Vector(${pt[4]},${pt[5]}))`
lensq := `Distance(${pt[0]},${pt[1]})*Distance(${pt[2]},${pt[3]})`
disp := `sqrt(${lensq})*${direction}`
commands.push `${name} = Translate(${pt[4]},${disp})`
'midpoint'
if args.line
commands.push `${name} = Midpoint(${args.line[0]})`
@ -888,7 +895,7 @@ classHandler: Record<JoyceClass, ClassHandler> :=
moreParts[0].push newObj
api.setVisible newObj, false
///triangle|similar|parallelogram|application|quadrilateral
octagon|pentagon|hexagon///
|octagon|pentagon|hexagon///
unless args.subpoints then return
pt .= args.subpoints
if method is 'parallelogram'