%% syntaxe : x y coeff norme string vd --> trace au point (x, y) levecteur de
%% norme 1 correspond au coeff directeur coeff
/vd {
gsave
3 dict begin
/opt exch def
/n exch def
/coeff exch def
dupp
1 coeff
dupp norme n exch div mulv
addv
opt line
end
grestore
} def
%% syntaxe : f s1 s2 l string champvecteur --> dessin du champ de vecteur
%% syntaxe : f s1 s2 l champvecteur --> dessin du champ de vecteur
/champvecteur {
7 dict begin
dup isstring {
/opt exch def
} {
/opt (-) def
} ifelse
/l exch def %% longueur d'un trait
/s2 exch def %% pas vertical
/s1 exch def %% pas horizontal
/@f exch def %% la fonction definissant l'equa diff y' = @f (x, y)
xmin s1 xmax {
/i exch def
ymin s2 ymax {
/j exch def
i j dupp @f l opt vd
} for
} for
end
} def
|