%% syntaxe : A B C parallelopoint --> point D, tel que ABCD parallelogramme
/parallelopoint {
11 dict begin
/yC exch def
/xC exch def
/yB exch def
/xB exch def
/yA exch def
/xA exch def
/A {xA yA} def
/B {xB yB} def
/C {xC yC} def
/d1 {A B C paral} def
/d2 {B C A paral} def
d1 d2 interdroite
end
} def
|