%% syntaxe : currentppathobj --> path_object soit [array1 array2]
%% parametrage du chemin courant ou array1 est un tableau des valeurs
%% du parametre t (entre 0 et 100), et array 2 est un tableau des points
%% (x, y) correspondants (dans le repere postscript)
/currentppathobj {
3 dict begin
currentppathpointstable
/table exch def
/n table length 2 div cvi def %% nb de points dans "table"
[
[
/i 0 def
n {
i n 1 sub div 100 mul
/i i 1 add def
} repeat
]
table
]
end
} def
|