[pstricks] pst-3dplot|Error: /undefined in SphericalCoorType

[hh]

I could imagine a faulty pro-file. Was it updated too?
hh


> Hello,
> 
> I have updated package pst-3dplot. And now using SphericalCoor results in ghostscript Error: /undefined in SphericalCoorType
> 
> Example:
> \documentclass[10pt,a4paper,twoside]{book}
> \usepackage[latin1]{inputenc}
> \usepackage{ngerman,a4wide}
> \usepackage{pst-pdf}
> \usepackage{pst-3dplot}
> 
> \begin{document}
> 
> \begin{pspicture}(-5,-5)(5,5)
> 	\pstThreeDLine[SphericalCoor=true](1,10,20)(2,20,30)
> \end{pspicture}
> 
> \end{document}
> 
> 
> generating ps file fails with:
> Error: /undefined in SphericalCoorType
> Operand stack:
>    --nostringval--   1   10   20
> 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--   1   --nostringval--   %repeat_continue   --nostringval--   0   --nostringval--   %repeat_continue   --nostringval--
> Dictionary stack:
>    --dict:1128/1686(ro)(G)--   --dict:0/20(G)--   --dict:120/200(L)--   --dict:95/300(L)--   --dict:39/200(L)--   --dict:95/200(L)--   --dict:103/200(L)--
> Current allocation mode is local
> Last OS error: No such file or directory
> 
> --- Begin offending input ---
>  /PROCMQUATERNION
> /ConcatMQuaternion def} {/PROCMXYZ () def /PROCMQUATERNION () def}
> ifelse } ifelse RotSequence (quaternion ) ne {PROCMXYZ} {PROCMQUATERNION}
> ifelse cvx exec /RotSet (keep ) def {end} if /leftHanded false def
> /coorType 0  def 1 1 2  /zLight ED /yLight ED /xLight ED 1 setlinejoin
> /dxUnit 1.0  def /dyUnit 1.0  def /dzUnit 1.0  def /SphericalCoor true
> def /xUnit { 28.45274  mul } def /yUnit { 28.45274  mul } def convertStackTo2D
> end  /Lineto /lineto load def false 0  setlinejoin   NArray n 0 eq
> not { n 1 eq { 0 0 /n 2 def } if () length 0 gt { 1.5 2.  CLW mul add
> dup 1.4  mul exch 0.4 mul neg add /arrowlength exch def 4 copy /y1
> ED /x1 ED /y2 ED /x2 ED /Alpha y2 y1 sub x2 x1 sub Atan def ArrowA
> x1 Alpha cos arrowlength mul add y1 Alpha sin arrowlength mul add /n
> n 1 sub def n { 4 copy /y1 ED /x1 ED /y2 ED /x2 ED x1 y1 0.5  1 gt
> { /Alpha y2 y1 sub x2 x1 sub Atan def /ArrowPos 0.  def /Length x2
> x1 sub y2 y1 sub Pyth def /dArrowPos 0.5  abs def { /ArrowPos ArrowPos
> dArrowPos add def ArrowPos Lengt
> --- End offending input ---
> file offset = 124955
> gsapi_run_string_continue returns -101
> 
> Best Regards,
> Robert.
> 
> 
> _______________________________________________
> PSTricks mailing list
> PSTricks at tug.org
> http://tug.org/mailman/listinfo/pstricks
> archive: http://www.tug.org/pipermail/pstricks/