[pstricks] [Fwd: [Fwd: Re: OT: Converter matrix to picture]]

[Herbert Voss]

Paul Smith wrote:
> On 2/3/06, Herbert Voss <hvoss-WUdSmCIlby8 at public.gmane.org> wrote:
> 
>>>>tell me the structure of your data file?
>>>>Are the values also saved as a matrix?
>>>
>>>Thanks to all. An example of a data file is attached. It is a text
>>>file with a matrix. Each column corresponds to x-coordinate, whereas
>>>each row corresponds to y-coordinate. Both x and y have the same
>>>range: [0,1]. From column to column, x increases 0.1. From row to row,
>>>y increases 0.1. First column corresponds to x=0 and first row to y=0.
>>>
>>>------------------------------------------------------------------------
>>>
>>>0     1       1       0       0       0       0       1       1       1
>>>0     1       1       0       1       1       1       0       1       0
>>
>>understood. Here an example if you could have your textfile
>>as
>>
>>/matrix [
>>0       1       1       0       0       0       0       1       1     1
>>0       1       1       0       1       1       1       0       1     0
>>....
>>] def
> 
> 
> Great, Herbert! That is it. Maybe, a "spy-like" command could be added
> to the list of commands of PSTricks. Well, that is just a
> suggestion...

let's see ...

However, I was a bit too clever ...
the textfile should be with a first and last line of

/dotmatrix [
0       1       1       0       0       0       0       1       1     1
...
...
] def

I forgot that PSTricks also defines a /matrix array for internal
purposes. It collides with the one from this text matrix. Name it
/dotmatrix [ ... ] def instead and everything will be ok. See
example, which also shows the possibility of printing the dots
as squares without whitespace.

Herbert



\documentclass[a4paper]{article}
\usepackage{pst-plot}

\makeatletter
\def\specialPlot#1{%
    \pst at killglue
    \begin at SpecialObj%
    \addto at pscode{
      (#1) run            % load the data file
      \psk at dotsize	% scale dot
      \@nameuse{psds@\psk at dotstyle} % dotstyle
      /n 0 def            % index for element
      0 0.1 1 {           % the y loop
        /y exch def       % save y
        0 0.1 1 {         % the x loop
          /x exch def     % save x
          dotmatrix n get % get value from matrix
          dup 0 gt {      % test if > 0
            x \pst at number\psxunit mul y \pst at number\psyunit mul Dot%
          } { pop } ifelse
          /n n 1 add def
        } for
      } for
    }%
    \end at SpecialObj%
}
\makeatother

\begin{document}

\psset{unit=10}
\begin{pspicture}(-0.1,-0.1)(1.1,1.1)
    \psaxes[Dx=0.1,Dy=0.1]{->}(1,1)
    \psset{dotscale=3,dotstyle=square*,linecolor=magenta}
    \specialPlot{matrix.txt} % must be of /dotmatrix [ ... ] def
\end{pspicture}

\begin{pspicture}(-0.1,-0.1)(1.1,1.1)
    \psaxes[Dx=0.1,Dy=0.1]{->}(1,1)
    \psset{dotsize=1.1cm,dotstyle=square*,linecolor=magenta}
    \specialPlot{matrix.txt}
\end{pspicture}



-- 
http://PSTricks.de/
http://TeXnik.de/
http://www.dante.de/CTAN/info/math/voss/mathmode/Mathmode.pdf
http://www.dante.de/faq/de-tex-faq/
http://www.tex.ac.uk/cgi-bin/texfaq2html?introduction=yes
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: matrix.txt
Url: http://tug.org/pipermail/pstricks/attachments/20060203/be2da855/attachment.txt