File: angles.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 (19 lines) | stat: -rw-r--r-- 423 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
 
% This figure was an illustration for an exercice about
% the sum of the angles "alpha" and "beta".
% Copyright (c) Christian Obrecht 2001

frame(-1,-.7,7.5,3.5)

A X Y right(7,3); A B C right(5,2)

draw(segment(A,X))
draw(segment(A,Y))
draw(segment(B,C))

draw("25",segment(A,B),-90:)
draw("10",segment(A,C),180:)
draw("$\alpha$",C,.7,35:)
draw("$\beta$",B,.7,90:)

color(gray)
mark(B,A,C,right) ; mark(X,B,C); mark(B,C,Y)