- [ wilhelmott | wilhelmott ]

Aufgabe: Eine Zwischenseite soll schwarz mit weißer Schrift gesetzt werden.
Es wurde eine Lösung gewählt, bei der ein seitengroßes schwarzes Rechteck mit PostScript-Mitteln erzeugt und über die Seite 3 gelegt wird. Alles Weitere ist als Erläuterung dem dort hinein in weißer Schrift gesetzten Text zu entnehmen.

#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 neuen Seite ist der Text wieder schwarz auf weiß.
*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

Zurück zum Inhaltsverzeichnis - Satz mit Modul SATZ