<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1619" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face="Courier New" size=2>Lieber Herr Scholtyssek,</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>die von Herrn Leicht vorgeschlagene
Methode benutze ich seit langem; sie ist in der Tat sehr
empfehlenswert. Sie ist auch nicht schwierig, wenn Sie das unten angegebene
Kommandomakro benutzen.</FONT></DIV>
<DIV><FONT face="Courier New" size=2>Was ist zu tun?</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>1. Die Freiräume um die (zunächst
geschätzte) Zahl der Legendenzeilen + ca. 1/2 Zeile Zwischenraum vergrößern.
(Seitengroße Graphiken etwas verkleinern, damit Platz für die Legende
bleibt)</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>2. Dem Graphikaufruf jeweils die Nummern
der Legende hinzufügen. (Praktisch ist es, den Legenden jeweils eine um 100 oder
1000 höhere Nummer zu geben, so daß man sofort sieht, was
zusammengehört.)</FONT></DIV>
<DIV><FONT face="Courier New" size=2>Also z.B. </FONT></DIV>
<DIV><FONT face="Courier New" size=2>$$538#27$${ --->
$$538#27#127$${</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>3. Alle Legenden mit Nummer~Text in *einer*
Datei in jeweils *einem* Satz erfassen, z.B. so:</FONT></DIV>
<DIV><FONT face="Courier New" size=2>122~&!s(1,160)#/+Abb._1: Durchreibung
einer Ornamentplatte mit dem eingesetzten Bildnis von Herzog
Christoph#/-~&!s{<BR>123~&!s(1,160)#/+Abb._2: Durchreibung der Platte
mit der Kreuzigung im Mittelmedallion und den vier Evangelisten in den
Eckmedallions#/-~&!s{<BR>124~&!s(1,160)#/+Abb._3: Ornamentplatte mit
rein ornamentalem Einsatz#/-~&!s{<BR>125~&!s(1,160)#/+Abb._4:
Ornamentplatte mit dem Württembergischen Wappen und der Devise £Verbum Domini
manet in aeternum¬#/-~&!s{<BR>126~#/+Abb._1: £Tübinger Teufelspakt¬ des
David Lipsius aus Erfurt (1596) £Ich, David Leipzig von Erffurdt aus Thuringen,
schreibe und thue dir kunt, Awerhan in der Hellen, das ich mit dir will einen
Pact machen und dein sein will, wen du mir itzundt, wen ich wieder heim
ko<mm>e 3 goltgulden, zu dem brief legen wirst, und darnach mit mir das
wirst eingehen, waz ich begere. Bin einer Antwort gewertigk¬#/-
$$$(#k+Schäfer#k-: #/+Tübinger Teufelspakte, wie Anm. 63,
S._94.)#/-<BR>127~#/+Abb._1: Tübingen, Stadtansicht von Norden
(1620)#/-</FONT></DIV>
<DIV><FONT face="Courier New" size=2>Jede Legende steht, auch wenn es hier nicht
so aussieht, in einem einzigen Satz. Nr. 122-125 sollen nur 160p breit gesetzt
werden.</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>4. Mit nachfolgendem Kommandomakro, das Sie
in Ihre Makrodatei oder eine zu definierende 2. oder 3. Makrodatei einbauen
können, werden alle Legenden der Quelldatei auf einen Schlag gesetzt und in die
Grafikdateien geschrieben. Die erste Datei enthält - aber das wird Ihnen
geläufig sein - jeweils nur die 4 Zeilen Grafikkopf, die andere die inhaltliche
Information.</FONT></DIV>
<DIV><FONT face="Courier New" size=2>Dateinamen, Schrift, Satzbreite und
Schriftgröße werden Sie Ihrem Buch anpassen müssen. Die Beispiellegenden sollten
zu einer Brotschrift von 10//12 p passen.</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>5. Nun müssen Sie die Legenden (einmalig!)
so verschieben, daß sie im Freiraum ordentlich unter der Grafik stehen. Dazu
ändern Sie die beiden Zahlen hinter "abstand:" und starten *PSAUS mit der
Ausgabedatei Ihres Satzlaufs neu, um das Ergebnis zu kontrollieren. (Neusatz ist
nur notwendig, wenn Sie die Satz-Quelldatei geändert haben.) Noch ein Tip:
Legenden gleicher Zeilenzahl zu Graphiken gleicher Größe müßten um denselben
Wert verschoben werden.)</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>Die Beispiele stammen aus: Tubingensia :
Impulse zur Stadt- und Universitätsgeschichte. Festschrift für Wilfried Setzler
... Ostfildern: Thorbecke, 2008.</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>Das Makro schicke ich Ihnen auch gern als
Datei, wenn Sie mir (<A href="mailto:f.seck@t-online.de">f.seck@t-online.de</A>)
Ihre e-mail-Adresse mitteilen. Attachments snd in der Liste
unerwünscht.</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>Mit freundlichen Grüßen</FONT></DIV>
<DIV><FONT face="Courier New" size=2>Friedrich Seck</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>Hier das Makro:</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>$$- LEGENDEN: Legenden als Graphikdatei
erzeugen<BR>$$- Quelle: Datei, die für jede Legende in einem Satz vorn
die<BR>$$- zuzuteilende Graphik-Nummer, dann ohne Blank eine
Tilde,<BR>$$- danach den Text der Legende enthält. Auszeichnungen
(z.B.<BR>$$- Kursive für die ganze Legende), Zeilenwechsel,
Modifikation<BR>$$- der Zeilenbreite usw. müssen im Text der Legende
enthalten sein.<BR>$$- Ziel: 2 Zieldateien entsprechend dem Standardmakro
GRAFIK<BR>$$- Schrift und Satzparameter müssen dem Projekt angepaßt
werden.<BR>$$-
-----------------------------------------------------------<BR>$$!
quelle=LEGTEXT, ziel=GRAFIK.SAML'GRAFIK.LEG, schriften=-<BR>$$+ LEGENDEN:
Version vom 02.02.2009.<BR>$$-
-----------------------------------------------------------<BR>$$=
$[]<BR>$$ MODE variable<BR>$$ ERROR/STOP OPEN (quelle, READ,
-STD-)<BR>$$- Falls benutzereigene Schriften verwendet werden:<BR>$$ IF
(schriften.NE."-") ERROR/STOP OPEN (schriften, READ, -STD-)<BR>$$ SET
grafdat1 = SELECT (ziel,1), grafdat2 = select (ziel,2)<BR>$$ ERROR/STOP
CREATE (grafdat1, RAN-O, -STD-)<BR>$$ ERROR/STOP CREATE (grafdat2, RAN-O,
-STD-)<BR>#DATEI,LEGENDE.TXT'LEGENDE.SZ5'LEGENDE.SZ6'LEGENDE.PAR,FR=-<BR>#DATEI,LEGENDE.PS,FDF-AP<BR>#UMWANDLE,*,LEGENDE.PAR,0,+<BR>pro
Legenden als Grafik<BR>
sch für Times; ggf. Schriftnummern
ändern<BR>
Times
Grie GriKur Courier<BR>sch 31801 31802
31804 31803 31805 31781 31782
30251<BR>*
txt $$ fus
&& &&& sei
kol<BR>gro 8,5//10 8,5//10 0+0 8+2
14+3 10+7<BR>bre
336<BR>hoe 48 Höhe nicht mehr als fünf
Zeilen!<BR>sei 1
-99<BR>mon 1 0 336 12
12<BR>aus
50<BR>rsr 0<BR>*eof<BR>$$ SET y = FILE
"[quelle]"<BR>$$ LOOP teilw = y<BR>$$= $[]~<BR>$$ set nummer =
select (teilw,1), text = select
(teilw,2)<BR>#UMWANDLE,*,LEGENDE.TXT,0,+<BR>[text]<BR>*eof<BR>#SATZ,LEGENDE.TXT,-,T,+,LEGENDE.PAR,LEGENDE.SZ6,-,SCHRIFTEN=SCHRIFTEN.DCK<BR>#*PSAUS,LEGENDE.SZ6,1,100,0+0,DATEI=LEGENDE.PS,KOPF=-,SCHRIFTEN=[schriften]<BR>#*GRAFIK,LEGENDE.PS,[grafdat1]'[grafdat2],<BR>-STD-,[nummer],0*-1050,0,100,NAME=Legende_[nummer]<BR>#+
==================== Ende Legende Nr. [nummer]
========================<BR>$$ ENDLOOP</FONT></DIV>
<DIV><FONT face="Courier New"
size=2></FONT><BR>--------------------------------------<BR>Dr. Friedrich
Seck<BR>72076 Tübingen, Erlenweg 18<BR>Tel: (0 70 71) 96 49
40<BR>Fax-Nummer auf Anfrage</DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=christianscholtyssek@googlemail.com
href="mailto:christianscholtyssek@googlemail.com">Christian Scholtyssek</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=Tustep-Liste@itug.de
href="mailto:Tustep-Liste@itug.de">Tustep-Liste@itug.de</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Monday, February 02, 2009 2:09
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [Tustep-Liste]
Bildunterschrift</DIV>
<DIV><FONT face="Courier New" size=2></FONT><FONT face="Courier New"
size=2></FONT><BR></DIV>Diskussionsforum Tustep-Liste<BR>Weitere
Informationen: <A
href="http://www.itug.de">www.itug.de</A><BR>------------------------------------------------------------<BR><BR>
<P>
<HR>
<P></P>Liebe Tusteper,<BR>von mir eine kleine Frage: Wie lassen sich
Bildunterschriften am besten positionieren. Also zur Zeit realisiere ich die
Positionierung einer Bildunterschrift bei umlaufendem Text, indem ich die
Unterschrift an die passende Stelle im Fließtext setze und dann per
Schreibstrahlverschiebung in die richtige Position bringe. Ich denke, da gibt
es wahrscheinlich eine bessere und elegantere Methode. Für Hilfe wäre
ich sehr dankbar und grüße herzlich<BR>Christian
Scholtyssek</BLOCKQUOTE></BODY></HTML>