hier ist ein Beispiel für ein Script, das mit dem CALL-Befehl seinerseits Scripte aufruft:
if Format=0 then
Ax=118.9
Ay=84.1
CALL "STEMPEL A0" PARAMETERS A =118.9, B =84.1
else
endif
if Format=1 then
Ax=84.1
Ay=59.4
CALL "STEMPEL A1" PARAMETERS A =84.1, B =59.4
else
endif
if Format=2 then
Ax=59.4
Ay=42.0
CALL "STEMPEL A2" PARAMETERS A =59.4, B =42.0
else
endif
if Format=3 then
Ax=42.0
Ay=29.7
CALL "STEMPEL A3" PARAMETERS A =42.0, B =29.7
else
endif
if Format=4 then
Ax=21
Ay=29.7
CALL "STEMPEL A4" PARAMETERS A =21.0, B =29.7
else
endif
if Format=5 then
Ax=a
Ay=b
else
endif
rect2 0, 0, Ax, Ay ! zeichnet Rahmen DIN A...
Das script ruft je nach Eintrag für den Parameter "format" mit CALL die zugehörige Stempel.gsm auf.
Ihr könnt Euch die Planstempel selbst zeichnen, müsst sie dann bloß als gsm abspeichen (mit dem richtigen Namen: Stempel A0.gsm, Stempel A1.gsm, u.s.w.)
Hier findet Ihr das fertige Objekt und ein paar Beispielstempel:
eigener Plankopf.pla Gruß, az
