[Tustep-Liste] Seite ganz schwarz - Text weiß

Wilhelm Ott wilhelm.ott at zdv.uni-tuebingen.de
Mon Oct 14 22:25:38 CEST 2013


Lieber Herr Neumann,

anhängend ein Beispiel, wie es funktionieren könnte. Ich habe
hier eine Lösung gewählt, bei der das schwarze Rechteck mit
PostScript-Mitteln erzeugt und über die Seite 3 gelegt wird.
Alles andere ist als Erläuterung dem dort hinein in 
weißer Schrift gesetzten Text zu entnehmen.

Mit den besten Grüßen aus Tübingen
Wilhelm Ott
---------------------------------------
#da,scr*q,fr=-
#um,*,scr*q,,+
%!
% Definieren der x- und y-Koordinaten des Rechtecks:
/xl -36 def /xr 340 def /yo 36 def /yu -520 def
% Rechteck zeichnen und schwarz ausfüllen:
xl yo moveto xl yu lineto xr yu lineto xr yo lineto closepath
0 setgray fill
*eof
#da,schwarz.grf,seq-ap
#*grafik,scr*q,schwarz.grf,lo=-std-,nu=1,ab=0*0

#um,*,scr*q,,+
Seite 1
&&&-3&&&{
$$#1$${  &&\&!c(100)#3+#f+Überschrift#f-#3-&!c{&&{
&!c(100)#f+Und hier geht der Text weiter#f-
$$$und <w>hört <w>noch <w>lang <w>nicht <w>auf
$$$#/+man <w>sieht <w>ihn <w>freilich <w>nur <w>auf <w>schwarzem <w>Hintergrund#/-
$$$ @-0 (das Zeilenende ist hier:) --#(gr) |
$$$=$$$ &!c(100)(Hier muss Umschalten auf weiß wiederholt werden, weil bei
Leerzeile Auszeichnungs-Ende ergänzt wird. Ähnliches gilt oben für
die Überschrift.
$$$___ $$$Wenn das ganze Blatt und nicht nur der Satzspiegel schwarz sein soll,
dann muss das schwarze Rechteck auch über die Beschnittkante hinausragen.
Das kann durch Wahl von geeigneten Werten für die Koordinaten xl xr yo yu
geschenen, wobei l für links, r für rechts, o für oben und u für unten
stehen soll.)
&!a $$$Und das ist die letzte Zeile der Seite
bzw. die Unterkante des Satzspiegels.&!c{
&&&n&&&{
Und auf der neun Seite ist wieder normal
*eof

#da,z'a'p,fr=-
#sa,scr*q,z,t,+,*,a,p
mac       <w>&!m1 $$$&!p1
*eof
#da,tst.ps,sdf-ap
#*psaus,a,da=tst.ps,gr=schwarz.grf
#makro
$$browse "tst.ps"
*eof

----------------------------------------------------------------------
Prof. Dr. Wilhelm Ott               phone: +49-7071-987656
Universitaet Tuebingen              fax:   +49-7071-987622
c/o Zentrum fuer Datenverarbeitung  e-mail: wilhelm.ott at uni-tuebingen.de
Waechterstrasse 76
D-72074 Tuebingen



On Mon, 14 Oct 2013, Thomas Neumann wrote:

> Date: Mon, 14 Oct 2013 17:21:07 +0200 (CEST)
> From: Thomas Neumann <tho.neumann at gmx.de>
> Reply-To: tustep-liste at itug.de
> To: tustep-liste at lists.uni-wuerzburg.de
> Subject: [Tustep-Liste] Seite ganz schwarz - Text weiß
> 
> Diskussionsforum Tustep-Liste
> Weitere Informationen: www.itug.de
> ------------------------------------------------------------
> 
> 


More information about the Tustep-Liste mailing list