Jedes anspruchsvolle Mal- und Grafikprogramm verfügt über eine Funktion, die es gestattet. Bildausschnitte von beliebiger Größe auf dem Bildschirm zu verschieben bzw. zu kopieren. Hierbei besteht der Unterschied zwischen „Verschieben“ und „Kopieren“ darin, daß bei der Funktion „Verschieben“ der Ausschnitt im wahrsten Sinne aus dem Bild „herausgeschnitten“ wird. Bei der Funktion „Kopieren“ verbleibt der Originalausschnitt im Bild, die Kopie des Ausschnitts läßt sich an anderer Stelle beliebig positionieren.

Das Verschieben von grafischen Einheiten stellt den wesentlichen Bestandteil des sogenannten Layouts etwa einer Druckvorlage dar. Die in diesem Artikel gezeigten Routinen lassen Schere und Klebstoff - Hauptwerkzeuge beim Layout - endgültig überflüssig werden: Alle grafischen Einheiten, seien es Texte, Bilder oder auch Notensysteme, können mit der Maus auf dem Bildschirm druckfertig arrangiert werden.

Das Prinzip

Der zu verschiebende Bildausschnitt wird mit dem „Gummifaden“ eingerahmt. Dieser eingerahmte Bildschirmbereich wird in geeigneter Weise zwischengespeichert - gepuffert - und kann dann an beliebiger Stelle mit der Maus wieder auf dem Bildschirm plaziert werden. Bei der Funktion „Verschieben“ wird der Bereich unter dem Rahmen gelöscht.

Die Realisierung

Die Realisierung dieses an sich einfachen Prinzips findet sich in der Procedure Verschieben(Copy%). Betrachten wir das Listing:

Die Do-Loop-Hauptschleife ist nur notwendig, falls nach dem Aufruf der Prozedur die Möglichkeit bestehen soll, mehrere Verschiebungen unmittelbar nacheinander vornehmen zu können.

Die erste While-Wend-Schleife wird bis zum Mausklick mit der linken Taste durchlaufen. Dabei ist die Menüüberwachung eingeschaltet. Erfolgt nun ein Mausklick, wird mit MOUSE xl%, yl%,k% die augenblickliche Bildschirmposition der Maus festgehalten und der Variablen xl% bzw. yl% übergeben.

Der Rahmen

Die Werte der Koordinaten xl% und yl% bleiben in der nun folgenden Rahmenschleife konstant, da hier mit MOUSE xr%,yr%,k% eine eigene Mausstatusauswertung erfolgt. Der Grund für diese zweifache Statusermittlung liegt in dem Prinzip, nach dem der “Gummifaden” auf dem Bildschirm erzeugt wird: Für das Zeichnen des Rahmens mit dem BOX-Befehl werden vier Koordinaten benötigt, zwei für die linke obere Ecke (xl%,yl%) und zwei für die rechte untere Ecke (xr%,yr%). Da die Größe des Rahmens mit der Maus eingestellt wird und diese nur zwei Koordinaten liefert, müssen die Werte der linken, oberen Koordinaten konstant bleiben, wahrend die Werte der Koordinaten der rechten, unteren

Ecke analog zur Mausbewegung verändert werden können. Zur Realisierung des “Gummifadens' benötigt man demnach prinzipiell zwei Schleifen mit zwei unabhängigen Statusermittlungen.

Nach einer Bewegung der Maus muß vor dem Zeichnen des neuen Rahmens der alte Rahmen gelöscht werden, da andernfalls nach mehreren Mausbewegungen nur noch ein schwarz ausgefülltes Rechteck auf dem Bildschirm verbleiben würde. Das Löschen das alten Rahmens geschieht mit dem zweiten BOX-Befehl innerhalb der Rahmenschleife. Die beiden gleichartigen BOX-Befehle sind durch eine Repeat-Until-Schleife voneinander getrennt. Diese Schleife wird nach einer Mausbewegung verlassen, und das zweite BOX xl%,yl%,xr%,yr% überschreibt (im Graphmode 3) den alten Rahmen.

Die Rahmenschleife wird verlassen, sobald die linke Maustaste losgelassen wurde. Der eingerahmte Bereich wird jetzt mit GET xl%,yl%,xr%,yr%,Snp$ gepuffert. Findet die Verschiebung/Kopie in einem GEM-Fenster statt, muß zur y-Koordinate der Wert 38 hinzuaddiert werden. Der Grund hierfür: Die Grafikbefehle in GEM-Fenstern haben einen anderen Bezugspunkt als die Rasterbefehle GET und PUT, die immer vom Punkt (0,0) ausgehen.

Soll der Ausschnitt verschoben, aber dabei nicht kopiert werden, überdeckt ein Rechteck von der Größe des Ausschnitts den eingerahmten Bereich mit PBOX xl%,yl%,xr%,yr% bei Deffill 0. Die Füllmusterfarbe wird danach sicherheitshalber mit Deffill 1 wieder auf "Objektfarbe” festgelegt. Die Entscheidung, ob der Ausschnitt verschoben oder kopiert wird, übergibt man schon beim Aufruf der Prozedur mit dem Wert der Variablen Copy%. Nach dem Verlassen der Rahmenschleife würde sich ohne weitere Maßnahmen der Mauscursor an der rechten unteren Ecke des Rahmens befinden. Damit in der folgenden Verschiebeschleife der Mauscursor sofort wieder an der linken oberen Ecke des Ausschnitts erscheint, wird mit DPOKE 9952,xl%+1 bzw. DPOKE 9954,yl%+38 der Cursor dorthin zurückgesetzt. Eine beliebige Mausposition kann also bestimmt werden, indem einfach die entsprechenden Werte plus GEM-Offset an diese Adressen ge” de poked” werden.

Verschieben und Kopieren

In der Verschiebeschleife wird nach erneuter Statusermittlung zunächst der Originalhintergrund mit SGET Bild$ gepuffert. Nun zeigt PUT x%,y%+38,Snp$,7 den Ausschnitt, was allerdings erst ab dem zweiten Schleifendurchlauf, d.h. nach der ersten Verschiebung, deutlich wird: Nach einer Mausbewegung wird die While-Wend-Warteschleife verlassen und mit SPUTBild> der Ausschnitt an seiner alten Position überdeckt. Die Verschiebeschleife wird erneut durchlaufen, und jetzt zeigt der PUT-Befehl den Ausschnitt an seiner neuen Position.

Erfolgt nun ein abschließender Mausklick, wird die Verschiebeschleife verlassen, und der Ausschnitt befindet sich an seiner endgültigen Position.

Die Möglichkeit zum Verschieben des Ausschnitts resultiert demnach aus dem Zusammenwirken der Befehle SPUT für den Hintergrund und PUT für den Ausschnitt. Die Tatsache, daß der Ausschnitt nach einer Mausbewegung an seiner alten Position mit SPUT überdeckt wird, ist übrigens die Ursache für ein leichtes Flackern des Ausschnitts während des Verschiebens. Die Warteschleife sorgt dafür, daß bei unbewegter Maus kein solches Flackern entsteht. Für den jeweiligen PUT-Modus stehen prinzipiell die Werte 0 bis 15 zur Verfügung, wobei die wichtigsten die Modi 3 (Graphmode 1), 6 (Graphmode 3), 7 (Graphmode 2) und 4 (Graphmode 4) sind.

Die beschriebene Prozedur kann in jedes Grafikprogramm integriert werden. In dieser Demoversion werden mit der Procedure Flaechen bzw. Procedure Text einfache grafische Einheiten zum Ausprobieren der Verschiebe- bzw. Kopierfunktion erzeugt.

• SNAP.BAS
• SNAP.LST