feat: add line-foot construction method

This commit is contained in:
Glen Whitney 2023-11-26 20:18:20 -08:00
parent 52272ff728
commit b8ab409fc0

View File

@ -728,6 +728,17 @@ classHandler: Record<JoyceClass, ClassHandler> :=
commands.push `${aux} = Translate(${source}, ${displacement})`
auxiliaries.push 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'
unless args.subpoints then return
[newStart, oldStart, oldEnd] := args.subpoints