File: parallelogram.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 (17 lines) | stat: -rw-r--r-- 449 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
% This figure was an illustration for an exercice about
% homothecies.
% Copyright (c) Christian Obrecht 2001

frame(-1,-3,9.5,3)

u = vector(2,-30:) ; v = vector(sqrt(2),45:)
F = point(0,0)
F G A E parallelogram(u,v)
A B C D parallelogram(2*u,2*v)

draw(A,B,C,D)
draw("$A$",A,90:) ; draw("$B$",B,-90:)
draw("$C$",C,0:) ; draw("$D$",D,90:)
draw(A,E,F,G) ; draw("$B'$",E,90:)
draw("$C'$",F,180:) ; draw("$D'$",G,-90:)
color(gray) ; draw(segment(F,C))