28.45 setxunit
-1 16 setxrange
-1 4 setyrange

/A {0 0} def
/B {1 3} def
/C {4 0} def
/J {A A C vecteur 3 mulv translatepoint} def
/I {A A B vecteur 1 3 div mulv translatepoint} def



(A) A [1.5 dup ] dltext
(B) B [1.5 dup ] uctext
(C) C [1.5 dup ] dctext
(J) J [1.5 dup ] urtext
(I) I [1.5 dup ] ultext
pointilles
I C droite
B J droite
continu
[A B C] ligne
[A J] ligne



%[O I J K] {plus3} papply