File: quadratrix.euk

package info (click to toggle)
xeukleides 0.9.0-2
  • links: PTS
  • area: main
  • in suites: woody
  • size: 692 kB
  • ctags: 655
  • sloc: ansic: 3,704; yacc: 1,434; lex: 894; makefile: 178
file content (19 lines) | stat: -rw-r--r-- 449 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
% Generation of quadratrix from the intersection of two
% uniformly-moving lines (one angular, one linear)
% Copyright (c) Robert D. Goulding 2002

A B C D square
draw(A,B,C,D)
BC = segment(B,C)
bc = distance(B,C)

color(red)
trace(x,.001,1){
l1 = line(A,90*x:)
l2 = perpendicular(BC,point(BC,x*bc))
intersection(l1,l2)}

color(darkgray)
x interactive(.5,.025,0,1,"A",up)
l1 = line(A,90*x:); draw(l1)
l2 = perpendicular(BC,point(BC,x*bc)); draw(l2)