[Syracuse] [jps2ps] pb de cercle

Bonjour,

pourquoi cela ne marche-t-il pas ?
(À obtenir : tracé d'un cercle de centre 10 ptC et
dont le rayon et la distance qui le sépare à 0 ptC)

%%%%%%%%%%%
30 setxunit
-5 5 setxrange
-5 5 setyrange

/ptC {
     %% angle ptc M
     C cpoint
} def

/C {O 2} def
/D {0 ptC} def

C cercle
tracerepere
[O D] points

bleu

10 ptC dup point
10 ptC D distance cercle
%%%%%%%%%%%

Mais bizarrement il n'accepte pas non plus :
    10 ptC point
    10 ptC dup D distance cercle
en fait le résultat correct est obtenu par :
     10 ptC point
     10 ptC 10 ptC D distance cercle

Me trompe-je dans l'utilisation de cpoint ? renvoie-t-il bien un unique
résultat ??

PS : bravo pour jps2ps ! c'est vraiment fabuleux :D

-- 
cordialement
                           david cobac
_______________________________________________
Liste de diffusion Syracuse 
Syracuse@melusine.eu.org
http://melusine.eu.org/cgi-bin/mailman/listinfo/syracuse
Adresses alternatives du site :
http://syracuse.eu.org/syracuse/
http://193.55.139.7/syracuse/