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

feat: Implement 'meanProportional' point construction method #55

Merged
glen merged 1 commits from BookSix into main 2024-01-18 06:10:24 +00:00
Conversation 0 Commits 1 Files Changed 1 +8 -1
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 if args.scalar and args.scalar.length
callbacks.push (api: AppletObject) => callbacks.push (api: AppletObject) =>
api.setCoords name, ...vertFlipped(args.scalar or [], cdata) 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' 'midpoint'
if args.line if args.line
commands.push `${name} = Midpoint(${args.line[0]})` commands.push `${name} = Midpoint(${args.line[0]})`
@ -888,7 +895,7 @@ classHandler: Record<JoyceClass, ClassHandler> :=
moreParts[0].push newObj moreParts[0].push newObj
api.setVisible newObj, false api.setVisible newObj, false
///triangle|similar|parallelogram|application|quadrilateral ///triangle|similar|parallelogram|application|quadrilateral
octagon|pentagon|hexagon/// |octagon|pentagon|hexagon///
unless args.subpoints then return unless args.subpoints then return
pt .= args.subpoints pt .= args.subpoints
if method is 'parallelogram' if method is 'parallelogram'