[pstricks] pstricks-add bug in \psbrace

[Alan Ristow]

Herbert Voss wrote:
> Alan Ristow wrote:
>> I updated pstricks-add this morning and now have errors originating with 
>> \psbrace. With the following example (copied directly from the 
>> pstricks-add-doc.tex):
>>
>> \documentclass{article}
>> \usepackage{pstricks}
>> \usepackage{pstricks-add}
>> \begin{document}
>> \begin{pspicture}(4,4)
>> \psgrid[subgriddiv=0,griddots=10]
>> \pnode(0,0){A}
>> \pnode(4,4){B}
>> \psbrace[linecolor=red,ref=lC](A)(B){Text I}
>> \psbrace*[linecolor=blue,ref=lC](3,4)(0,1){Text II}
>> \psbrace[fillcolor=white](3,0)(3,4){III}
>> \end{pspicture}
>> \end{document}
>>
>> The log file tells me:
>>
>> ! Undefined control sequence.
>> <argument> ...\psk at nodesepA add exch \tx at UserCoor
>>   
> 
> I forgot, that these definitions are in the new pstricks.tex v1.16,
> which will
> be uploaded at the end of this year. Until then, use
> http://perce.de/LaTeX/pstricks/pstricks.tex
> 
> or write into the preamble:

Thanks, Herbert. Now the document compiles okay, but whether I add the 
code to my preamble or use the new pstricks.tex I get me the following 
Postscript error when I try to view it in GSView:

Error: /undefined in Pyth2
Operand stack:
    --nostringval--   Length   0.0   0.0   113.811   113.811
Execution stack:
    %interp_exit   .runexec2   --nostringval--   --nostringval-- 
--nostringval--   2   %stopped_push   --nostringval--   --nostringval-- 
   false   1   %stopped_push   1   3   %oparray_pop   1   3 
%oparray_pop   1   3   %oparray_pop   1   3   %oparray_pop   .runexec2 
  --nostringval--   --nostringval--   --nostringval--   2 
%stopped_push   --nostringval--   --nostringval--   --nostringval--
Dictionary stack:
    --dict:1132/1686(ro)(G)--   --dict:0/20(G)--   --dict:82/200(L)-- 
--dict:175/300(L)--   --dict:90/200(L)--
Current allocation mode is local

--- Begin offending input ---
ay } ifelse fill grestore 0.01 setlinewidth 1 0 0  setrgbcolor stroke 0 
0 moveto grestore /Dh radius1 radius2 add Width add def tx at NodeDict 
begin tx at NodeDict /N at A known { /N at A load GetCenter } { 0 0 } ifelse end 
tx at NodeDict begin tx at NodeDict /N at B known { /N at B load GetCenter } { 0 0 } 
ifelse end 3 -1 roll sub 3 1 roll exch sub 0.5  mul exch 0.5  mul 
tx at NodeDict begin tx at NodeDict /N at A known { /N at A load GetCenter } { 0 0 } 
ifelse end 3 -1 roll add Dh Alpha cos mul sub 0.0 sub 3 1 roll add Dh 
Alpha sin mul add 0.0 add exch  28.45274 div exch 28.45274 div exch 
28.45274 mul exch 28.45274 mul exch } PutCoor PutBegin  end
  639
1385 a 639 1385 a
  tx at Dict begin Alpha 0 add 90 sub RotBegin  end
  639 1385 a 28 x Fa(T)-7 b(ext)28 b(I)639
1385 y
  tx at Dict begin RotEnd  end
  639 1385 a 639 1385 a
  tx at Dict begin PutEnd  end
  639 1385 a @beginspecial
@setspecial
  tx at Dict begin STP newpath 0.01 SLW 1 0 0  setrgbcolor  end
  @endspecial 639 1385 a
  tx at Dict begin {  /ifStar true def /radius1 8.00003 def /radius2 
8.00003 def /Alp
--- End offending input ---
file offset = 94596
gsapi_run_string_continue returns -101


Alan