[pstricks] listplot

[Poul Riis]

Compiling the example below with xetex everything is perfect but compiling
with latex and pdflatex I get a ghostscript error message:
MiKTeX GPL Ghostscript 9.19: Unrecoverable error, exit code 1


Poul Riis

Graphics with PSTricks <pstricks at tug.org> writes:
>The coordinates are saved in the PS array Points and can be
>used later if you put the array Points into the global dict
>and the number of points is n.
>The points are saved in the wrong order!
>
>\getCoor{8} will get the pair of x,y, counted from 1
>It can easily be extended to \getxCoor . In the below example I marked
>three points by a cross
>
>Herbert
>
>
>\documentclass{article}
>\usepackage[dvips,x11names]{pstricks}
>\usepackage{pst-plot}
>
>\makeatletter
>\def\psbar at ii{\addto at pscode{startGlobal false \tx at NArray endGlobal
>\psbar at iii}}
>\def\psbar at iii{%
>    newpath
>    n 1 sub {
>      /Yval exch def /Xval exch def
>      2 copy /YNext exch def Xval sub /DX exch def
>      Xval 0 moveto % Start Point
>      0 YNext rlineto % relative move
>      DX 0 rlineto
>      0 YNext neg rlineto
>      DX neg 0 rlineto
>    } repeat
>}%
>\let\UserCoor\tx at UserCoor
>\makeatother
>\def\getCoor#1{Points n #1 sub 2 mul get Points n #1 sub 2 mul 1 add get
>\UserCoor}
>
>
>\thispagestyle{empty}
>
>\begin{document}
>\readdata{\data}{../Downloads/simon.dat}
>
>\psset{xAxisLabel=Time (minutes),
>	yAxisLabel=Load  (W),xAxisLabelPos={c,-10},yAxisLabelPos={-5,c}}%
>\begin{psgraph}[axesstyle=frame,xticksize=0 110,yticksize=0
>100,Dx=10,Dy=10,xsubticks=5,subticksize=1](0,0)(100,110){15cm}{11cm}
>\listplot[linecolor=Red1,fillcolor=Cornsilk1,fillstyle=solid,
>          linewidth=0.1pt,plotstyle=bar,barwidth=0.4]{\data}
>\listplot[linecolor=Blue1, linewidth=2pt]{\data}
>\psline[arrows=->](0,0)(100,0)
>\psline[arrows=->](0,0)(0,110)
>%
>\multido{\iA=0+2}{35}{\psdot(!Points \iA\space 2 getinterval aload pop
>\UserCoor)}
>\psdot[linecolor=red,dotstyle=x,dotscale=3](! \getCoor{3} )
>\psdot[linecolor=red,dotstyle=x,dotscale=3](! \getCoor{13} )
>\psdot[linecolor=red,dotstyle=x,dotscale=3](! \getCoor{30} )
>\end{psgraph}
>\end{document}

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20171005/718fa237/attachment.html>