[Syracuse] bbgraf : une erreur que je ne comprend pas

Avec la figure suivante, que j'avais faite il y a quelques années,
inspiré de je ne sais plus quel exemple,
j'obtiens maintenant une erreur à la compilation.
Pourtant, si je compile le même fichier directement sur le site de
bbgraf, ça marche.
Est-ce que quelqu'un aurait le début d'une idée ?
(Si je commente le boxit_all, ça marche, si je le remplace par un
circleit_all, ça marche aussi)

Amicalement

gh

########## log
Traitement de tmp.jps
This is dvips(k) 5.96 Copyright 2005 Radical Eye Software (www.radicaleye.com)
' TeX output 2007.11.11:2254' -> /tmp/tex3722.ps
<tex.pro><8r.enc><texps.pro>. [1]
Error: /undefined in arcp_
Operand stack:
   -5.834 0.69 -5.884 0.69 -5.834 0.64
Execution stack:
   %interp_exit .runexec2 --nostringval-- --nostringval--
--nostringval-- 2 %stopped_push --nostringval--
--nostringval-- --nostringval-- false 1 %stopped_push 1813
1 3 %oparray_pop 1812 1 3 %oparray_pop --nostringval--
1808 1 3 %oparray_pop 1691 1 3 %oparray_pop
--nostringval-- %errorexec_pop .runexec2 --nostringval--
--nostringval-- --nostringval-- 2 %stopped_push
--nostringval-- --nostringval-- --nostringval-- --nostringval--
 --nostringval-- --nostringval-- --nostringval-- --nostringval--
  --nostringval-- 3 --nostringval-- %repeat_continue
--nostringval-- --nostringval-- --nostringval--
Dictionary stack:
   --dict:1084/1123(ro)(G)-- --dict:0/20(G)-- --dict:74/200(L)--
--dict:16/50(L)-- --dict:433/500(L)-- --dict:17/23(L)--
--dict:1/1(L)-- --dict:2/2(L)-- --dict:0/3(L)-- --dict:3/3(L)--
 --dict:17/19(L)--
Current allocation mode is local
Last OS error: 2
GPL Ghostscript 8.57: Unrecoverable error, exit code 1
Fin de creation de tmp.pdf
###############

############### fichier .jps
/C1 {-2 -1 3} def
/C2 {1 1 4} def

gsave
   newpath
      C1 cercle_
   clip

   newpath
      C2 cercle_
   clip
   orange
   hachure
grestore

C1 cercle
bleu
C2 cercle

%% la legende
/A {-5.5 1} def
/B {219 241 rptojpoint} def %% coordonnees lues a la souris
/C {xmin xmax add 2 div -5} def

noir
/dx_boxit 3 def
/dy_boxit 3 def
/linearc .05 def

noir
[A 160 C1 cpoint] ligne
bleu
[B 50 C2 cpoint] ligne
noir
[C 112 128 rptojpoint] (-*) ligne

boxit_all
/fillstyle {blanc fill} def
noir
<tex>
$A$
</tex>
A cctexlabel

%%%%%%%%%%%%%%%%%%%%

-- 
Guillaume Haberer
ghaberer@lamartin.fr
http://mpsi1.lamartin.fr
_______________________________________________
Liste de diffusion Syracuse 
Syracuse@melusine.eu.org
http://melusine.eu.org/cgi-bin/mailman/listinfo/syracuse
Adresse alternative du site :
http://syracuse.eu.org/syracuse/