% Bisectors in a parallelogram
% Copyright (c) Christian Obrecht 2001

box(-1,-1,8,5)

A B C D parallelogram(6,4,80:)
a = bisector(B,A,D)
b = bisector(C,B,A)
c = bisector(D,C,B)
d = bisector(A,D,C)

M = intersection(a,b)
N = intersection(b,c)
P = intersection(c,d)
Q = intersection(d,a)

draw(A,B,C,D)
draw(M,N,P,Q)
style(dotted)
draw(a)
draw(b)
draw(c)
draw(d)

mark(B,A,M,double,.85) ; mark(M,A,D,double,1.15)
mark(D,C,P,double,.85) ; mark(P,C,B,double,1.15)
mark(C,B,N,dashed,.9) ; mark(N,B,A,dashed,1.1)
mark(A,D,Q,dashed,.9) ; mark(Q,D,C,dashed,1.1)