[dk-tug] Uønsket, tom side i starten af dokument

Hvordan undgår jeg at få en tom side i starten af nedenstående?
Ja, undskyld, det er ikke et minimalt eksempel (der er en lidt hidsig
makro i starten - selve 'dokumentet' fylder ikke mange linjer), men når
jeg laver et minimalt eksempel, forsvinder problemet, og så er jeg lige
vidt....

Poul Riis



\documentclass[a4paper,landscape]{article}
\usepackage[x11names]{xcolor}
\usepackage{multido}
\usepackage{pstricks-add}


%\usepackage[landscape,left=5cm, right=2cm,top=-3cm]{geometry}
\makeatletter
\def\psWave{\pst@object{psWave}}
\def\psWave@i#1#2#3#4#5{% lambda, nb, At, Al, t
\begin@SpecialObj
\addto@pscode{%
/Times-Roman findfont 0.4 scalefont setfont %
%     /Symbol findfont 0.1 scalefont setfont
/cminpt 72.27 2.54 div def
/scalefactor cminpt 1 mul def
scalefactor scalefactor scale
/sometext 20 string def
/lambda #1 def
/nb #2 def
/At #3 def
/Al #4 def
/np 40 def
/tt #5 def
/nptot np nb mul def
/xmax lambda nb mul def
/deltaphi 360 np div def
/phi0 360 tt mul def
/cosphi0 phi0 cos def
/Atst At cosphi0 mul def
/phiakt 0 def
0 3 translate
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
%4.5 neg 0 moveto (Travelling transversal wave) show /AE glyphshow %AE,
Oslach, Aring, ae, oslach, aring
4.5 neg 0.2 moveto (Fremadskridende) show
4.5 neg 0.2 neg moveto (transversalb) show /oslash glyphshow (lge) show
0.1 setlinewidth
1 0 0 setrgbcolor
newpath phiakt 360 div lambda mul phiakt phi0 sub cos At mul moveto 1 1
nptot {/phiakt phiakt deltaphi add def phiakt 360 div lambda mul phiakt
phi0 sub cos At mul lineto } for stroke
%0 1 1 setcolor
0.5 1 0.5 setcolor
/nbakt 0 def
1 1 nb {newpath phi0 360 div nbakt add lambda mul At 0.1 0 360 arc
closepath gsave fill grestore stroke /nbakt nbakt 1 add def} for
1 1 0 setcolor %Farven på bølgegiveren
newpath 0 phi0 cos At mul 0.05 0 360 arc closepath gsave fill grestore
stroke
0 2 neg translate
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
0 0 0 setrgbcolor
%4.5 neg 0 moveto (Standing transversal wave) show
4.5 neg 0.2 moveto (St) show /aring glyphshow (ende) show
4.5 neg 0.2 neg moveto (transversalb) show /oslash glyphshow (lge) show
1 0.5 0 setcolor %Farven på kurven for stående transversalbølge
0.1 setlinewidth
/phiakt 0 def
newpath phiakt 360 div lambda mul phiakt cos Atst mul moveto 1 1 nptot
{/phiakt phiakt deltaphi add def phiakt 360 div lambda mul phiakt cos Atst
mul lineto } for stroke
/nbakt 0 def
1 1 nb {0 1 0 setcolor newpath 0 360 div nbakt add lambda mul Atst 0.1 0
360 arc closepath gsave fill grestore stroke newpath 180 360 div nbakt add
lambda mul Atst neg 0.1 0 360 arc closepath gsave fill grestore stroke 1 0
1 setcolor newpath 90 360 div nbakt add lambda mul 0 0.1 0 360 arc
closepath gsave fill grestore stroke newpath 270 360 div nbakt add lambda
mul 0 0.1 0 360 arc closepath gsave fill grestore stroke /nbakt nbakt 1
add def} for
0 2 neg translate
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
0 0 0 setrgbcolor
%4.5 neg 0 moveto (Travelling longitudinal wave) show
4.5 neg 0.2 moveto (Fremadskridende) show
4.5 neg 0.2 neg moveto (longitudinalb) show /oslash glyphshow (lge) show
0 1 0 setrgbcolor
0.01 setlinewidth
/phiakt 0 def
0 1 nptot {/xakt phiakt 360 div lambda mul phiakt phi0 sub cos Al mul add
def newpath xakt 0 0.01 0 360 arc closepath gsave fill grestore stroke
xakt 0.1 0.01 0 360 arc closepath gsave fill grestore stroke xakt 0.1 neg
0.01 0 360 arc closepath gsave fill grestore stroke /phiakt phiakt
deltaphi add def} for
/phiakt 0 def
1 0 0 setrgbcolor
0 1 nb {/xakt phiakt 360 div lambda mul phiakt phi0 sub cos Al mul add 
def xakt 0 0.02 0 360 arc closepath gsave fill grestore stroke xakt .1
0.02 0 360 arc closepath gsave fill grestore stroke xakt 0.1 neg 0.02 0
360 arc closepath gsave fill grestore stroke /phiakt phiakt deltaphi np
mul add def} for
0 2 neg translate
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
0 0 0 setrgbcolor
4.5 neg 0.2 moveto (St) show /aring glyphshow (ende) show
4.5 neg 0.2 neg moveto (longitudinalb) show /oslash glyphshow (lge) show
0 1 0 setrgbcolor
0.01 setlinewidth
/phiakt 0 def
0 1 nptot {/xakt phiakt 360 div lambda mul phiakt sin phi0 cos mul Al mul
add def newpath xakt 0 0.01 0 360 arc closepath gsave fill grestore stroke
xakt 0.1 0.01 0 360 arc closepath gsave fill grestore stroke xakt 0.1 neg
0.01 0 360 arc closepath gsave fill grestore stroke /phiakt phiakt
deltaphi add def} for
/phiakt 0 def
1 0 0 setrgbcolor
0 1 nb 2 mul {/xakt phiakt 360 div lambda mul phiakt sin phi0 cos mul Al
mul add def xakt 0 0.02 0 360 arc closepath gsave fill grestore stroke
xakt .1 0.02 0 360 arc closepath gsave fill grestore stroke xakt 0.1 neg
0.02 0 360 arc closepath gsave fill grestore stroke /phiakt phiakt
deltaphi np mul 2 div add def} for
/phiakt 90 def
0 0 1 setrgbcolor
0 1 nb 2 mul 1 sub {/xakt phiakt 360 div lambda mul phiakt sin phi0 cos
mul Al mul add def xakt 0 0.02 0 360 arc closepath gsave fill grestore
stroke xakt .1 0.02 0 360 arc closepath gsave fill grestore stroke xakt
0.1 neg 0.02 0 360 arc closepath gsave fill grestore stroke /phiakt phiakt
deltaphi np mul 2 div add def} for
   }
   \end@SpecialObj}
\makeatother


\hoffset=-3cm
\topmargin=-4cm
\pagestyle{empty}

\begin{document}
\special{landscape}\special{! /landplus90 true store}
\psset{unit=1pt}%(1pt=0.351mm)
\multido{\nn=0+0.1}{11}{% 
\begin{pspicture}(0,-300)(600,300)
\psaxes[Dx=20,Dy=20,ticksize=0 -3pt](0,0)(0,-200)(600,200)
   \psWave{3.5}{6}{1}{0.2}{\nn}%lambda, nb, At, Al
\end{pspicture}
\newpage}
\end{document}