File: directrix.euk

package info (click to toggle)
xeukleides 0.9.2rev2-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, sarge
  • size: 356 kB
  • ctags: 374
  • sloc: ansic: 2,767; yacc: 814; lex: 455; makefile: 78; sh: 45
file content (17 lines) | stat: -rw-r--r-- 302 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
% Directrix
% Copyright (c) Christian Obrecht 2001

x interactive(3,.2,"B",right)
y interactive(2,.2,"B",up)
r interactive(2,.1,"A",up)
d interactive(-90,1,"A",right)
e interactive(1,.1,"C",right)

F = point(x,y)
C = circle(F,r)
D = line(C,d:)
Co = conic(F,D,e)

draw(Co)
color(blue)
draw(F) ; draw(D)