Zeichenmaschine
-- V1 vereinbaren für das RagTime-Zeichnen-Maß für cm. RagTime rechnet mit 28.3465 für 1 cm.
set V1 to 2.83465
-- P vereinbaren für 10 Bezierkurvenpunkte in mm (jeweils 3 Koordinaten x, y)
-- für Bezierpunkt 1 und -1 sind nur je 2 Werte angegeben, für Bezierpunkt 3 und weitere je 3 Werte
set P01 to {100 * V1, 22 * V1}
set P01b to {100 * V1, 22 * V1}
set P02a to {0, 22 * V1}
set P02 to {0, 22 * V1}
set P02b to {0, 22 * V1}
set P03a to {0, 18 * V1}
set P03 to {0, 18 * V1}
set P03b to {0, 18 * V1}
set P04a to {13 * V1, 18 * V1}
set P04 to {13 * V1, 18 * V1}
set P04b to {13 * V1, 18 * V1}
set P05a to {13 * V1, 13 * V1}
set P05 to {13 * V1, 13 * V1}
set P05b to {13 * V1, 13 * V1}
set P06a to {0, 13 * V1}
set P06 to {0, 13 * V1}
set P06b to {0, 13 * V1}
set P07a to {0, 8 * V1}
set P07 to {0, 8 * V1}
set P07b to {6.5 * V1, 8 * V1}
set P08a to {6.5 * V1, 1 * V1}
set P08 to {13 * V1, 1 * V1}
set P08b to {13 * V1, 1 * V1}
set P09a to {13 * V1, 0 * V1}
set P09 to {13 * V1, 0 * V1}
set P09b to {13 * V1, 0 * V1}
set P10a to {100 * V1, 0 * V1}
set P10 to {100 * V1, 0 * V1}
make at beginning of drawing "Kurvenpunkte" of document 1 new Bezier curve with data {P01, P01b, P02a, P02, P02b, P03a, P03, P03b, P04a, P04, P04b, P05a, P05, P05b, P06a, P06, P06b, P07a, P07, P07b, P08a, P08, P08b, P09a, P09, P09b, P10a, P10}
select Bezier curve 1 of drawing "Kurvenpunkte" of document 1
set name of selection to "Konterprofil"
Moin, Liste!
RagTime 6 als Zeichenmaschine einzusetzen, ist richtig lohnend. Obiges Skript wurde extern mit dem Scripteditor aufgenommen, nachgearbeitet, ausprobiert und dann in das RagTime-Dokument unter Extras > Befehle und Skripte als Skript eingefügt und in einen Knopf gezogen.
3 Fragen:
- Kann der Name für die neue Bezierkurve gleich mit in der Anweisung make at beginning of drawing "Kurvenpunkte" new Bezier curve³ vergeben werden (der Umweg über select und set wirkt etwas umständlich)?
- Unter welchen Umständen kann "of document 1" weggelassen werden?
- Wie kann ich oben die übersichtliche Vereinbarung für die Bezierkurvenpunkte (set P...) so schreiben, daß die Werte aus Rechenblattzellen kommen?
Das Inhaltsverzeichnis im AppleScript-Forum
http://db.ragtime.de/FAQD/fm
hat mir sehr weitergeholfen. Danke an die Entwickler!
Norbert Lindenthal
_____________________________
Die macnews.de Mailingliste Ragtime:
http://lists.macnews.de/cgi-b
Neu: Das Mailinglistenarchiv unter
http://forum.macnews.de/lists