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

feat: add line-foot construction method

Browse Source
This commit is contained in:
Glen Whitney 2023-11-26 20:18:20 -08:00
parent 52272ff728
commit b8ab409fc0
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/adapptlet.civet
View File

@ -728,6 +728,17 @@ classHandler: Record<JoyceClass, ClassHandler> :=
commands.push `${aux} = Translate(${source}, ${displacement})` commands.push `${aux} = Translate(${source}, ${displacement})`
auxiliaries.push aux auxiliaries.push aux
ends[1] = aux ends[1] = aux
'foot'
pt := args.subpoints
unless pt then return
destination := args.plane
? args.plane[0]
: `Line(${pt[1]},${pt[2]})`
ends[0] = pt[0]
commands.push
`${aux} = ClosestPoint(${destination}, ${pt[0]})`
auxiliaries.push aux
ends[1] = aux
'parallel' 'parallel'
unless args.subpoints then return unless args.subpoints then return
[newStart, oldStart, oldEnd] := args.subpoints [newStart, oldStart, oldEnd] := args.subpoints