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

Poul Riis wrote, On 2012-08-27 19:53:
> 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
> 

Hvilke versioner bruger du? Jeg kan slet ikke oversætte dit eksempel med 
  TL12 (lige opdateret)

Får følgende fejl:

  Undefined control sequence.
\resetOptions ...\pst@linetype {0}\pstScalePoints
                                                   (1,1){}{}\psset 
[pstricks-...
l.2286 \resetOptions


Hvad er grunden til at du bruger PSTRICKS og ikke bare går over til tikz?




> 
> 
> \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}
> 
> 
> 
> 
> 
> 
> 
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> [email protected] mailing list


-- 

/daleif
_______________________________________________
[email protected] mailing list