File: intersection.euk

package info (click to toggle)
eukleides 0.9.2-3
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, sarge
  • size: 452 kB
  • ctags: 270
  • sloc: ansic: 1,934; yacc: 796; lex: 499; makefile: 101; sh: 61
file content (21 lines) | stat: -rw-r--r-- 597 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
% This figure was an illustration for an exercice about
% homothecies.
% Copyright (c) Christian Obrecht 2001

frame(-1,-1,7,5)

A B C triangle
I = homothecy(B,A,1/3) ; J = homothecy(B,A,2/3)
K = homothecy(C,B,1/3) ; L = homothecy(C,B,2/3)
M = homothecy(A,C,1/3) ; N = homothecy(A,C,2/3)

draw(A,B,C)
draw(I) ; draw(J) ; draw(K)
draw(L) ; draw(M) ; draw(N)
draw("$A$",A,-140:) ; draw("$B$",B,-40:)
draw("$C$",C,90:) ; draw("$I$",I,-40:)
draw("$J$",J,-140:) ; draw("$K$",K,40:)
draw("$L$",L,0:) ; draw("$M$",M,180:)
draw("$N$",N,140:)
color(gray)
draw(line(I,L)) ; draw(line(J,M)) ; draw(line(K,N))