%!PS A small and simple slide generator in PostScript
% $Id: slides.ps,v 1.2 2024/01/11 10:54:26 oj14ozun Exp $
% https://wwwcip.cs.fau.de/~oj14ozun/src+etc/slides.ps

% Run using "ps2pdf slides.ps out.pdf < input", where "input" is a
% file where each slide is on one line.

/width  600 def
/height 400 def
<< /PageSize [width height] >> setpagedevice
/Times-Roman findfont 60 scalefont setfont

/next {
    dup stringwidth
    width height
    2 index sub 2 div exch
    3 index sub 2 div exch
    moveto
    2 {pop} repeat
    show
    showpage
} def

mark
(%stdin) (r) file
{
    dup 1000 string readline
    { next }
    { exit }
    ifelse
} loop