%% syntaxe : A B demidroite --> trace le demi droite [AB). Le point A
%% est suppose a l'interieur du cadre de la fenetre de dessin
/demidroite {
4 dict begin
dup isstring
{
/demidroite@ption exch def
}
if
/B defpoint
/A defpoint
xmin ymin xmin ymax
xmax ymax xmax ymin
A B interquadrilatereddroite
/C defpoint
[A C]
currentdict /demidroite@ption known {
demidroite@ption
} if
ligne
end
} def
|