/k 2 def
/M1 {-4 2} def
/M2 {-3 2} def
/I {-4 0} def
/M1' {M1 I k hompoint} def
/M2' {M2 I k hompoint} def
[I M1 M2 M1' M2'] points
M1' M2' droite
M1 M2 droite
/J {I} def
/N2 {-2 -2} def
/N1 {-1 -1} def
/N1' {N1 J k hompoint} def
/N2' {N2 J k hompoint} def
[J N1 N2 N1' N2'] points
N1 N2 IAcercle cercle
N1' N2' IAcercle cercle
gsave
pointilles
[M2' I M1'] ligne
[N2' J N1'] ligne
grestore
|