Makros zum Zeichnen von Pfeilen und Linien

Das Skript umfasst drei Hauptmakros: '%arrow', das einen Pfeil zwischen zwei Punkten mit anpassbarer Spitze zeichnet, '%line', das eine einfache gerade Linie zeichnet, und '%linept', das einen Punkt in einer bestimmten Entfernung entlang einer Linie mit einer spezifischen Steigung berechnet. Diese Makros sind Low-Level-Tools zur Generierung von Vektorgrafiken in SAS^©, die 'x'-, 'y'- und 'function'-Variablen verwenden, die typisch für SAS^©/GRAPH-Annotationsdatensätze sind. Sie sind dafür konzipiert, in einem DATA-Schritt aufgerufen zu werden, der einen Annotationsdatensatz erzeugt.

Datenanalyse

Type : CREATION_INTERNE

Die Makros lesen keine bestehenden Daten aus Tabellen oder externen Dateien. Sie generieren Punkte (x, y) und Funktionen ('MOVE', 'DRAW'), die dann in einem SAS/GRAPH-Annotationsdatensatz ausgegeben werden. Sie dienen somit der Erstellung grafischer Daten und nicht deren Verarbeitung.

1 Codeblock

MACRO %ARROW Data

Erklärung :
Das Makro '%arrow' ist das Herzstück des Systems. Es nimmt die Startkoordinaten (x1, y1) und Endkoordinaten (x2, y2) eines Pfeils entgegen, sowie Parameter für die Größe der Pfeilspitze (vechead) und deren Farbe. Es beginnt mit dem Zeichnen der Hauptlinie des Pfeils durch Aufruf von '%line'. Wenn dann eine Pfeilspitze angegeben ist, berechnet es die Steigung des Vektors und verwendet dann '%linept', um die Punkte zu bestimmen, die die Pfeilspitze bilden. Die Variablen 'x', 'y' und 'function' werden manipuliert und ausgegeben, um das grafische Objekt in einem Annotationsdatensatz zu erstellen. Es behandelt Fälle von Nullsteigungen, um Divisionen durch Null zu vermeiden.

Kopiert!

1	%macro arrow(
2	x1, y1, /* start point */
3	x2, y2, /* end point, with arrow head */
4	vechead=2.0 0.5, /* head length and perpendicular offset */
5	color=,
6	vtoh=1 /* plot aspect ratio in XSYS,YSYS coordinates */
7	);
8
9	%let singular = 1e-8; /* approximate zero */
10	*------SET up vector heads------;
11	%let headr = %scan(%bquote(&vechead),1,%str( ));
12	%let headw = %scan(%bquote(&vechead),2,%str( ));
13	%IF %LENGTH(%bquote(&headw)) = 0 %THEN %let headr = ;
14	%IF %LENGTH(%bquote(&vechead)) = 0 or %LENGTH(%bquote(&headw))
15	%THEN %let vechead = %str( );
16	drop vecslope headx heady xonvec yonvec;
17	comment = 'vector ';
18	%IF %LENGTH(&color) %THEN
19	%str(color="&color");
20	%line(&x1, &y1, &x2, &y2);
21
22	%IF %LENGTH(&headw) %THEN %DO;
23	comment = 'vechead';
24	*------compute slope of vector------;
25	vecslope = &x2 - &x1;
26	IF abs(vecslope) > &singular THEN
27	vecslope = (&y2 - &y1) / (vecslope / (&vtoh));
28	ELSE vecslope = .;
29
30	*------find point on vector headr distance from end------;
31	%*linept(xtick,&nlines - ytick,headx,heady,vecslope,-&headr);
32	%linept(&x2,&y2,headx,heady,vecslope,-&headr);
33
34	*------slope of line perpendicular to vector------;
35	IF vecslope = . THEN vecslope = 0;
36	ELSE IF abs(vecslope) > &singular
37	THEN vecslope = -1.0 / vecslope;
38	ELSE vecslope = .;
39
40	*------draw vector head------;
41	%linept(headx,heady,xonvec,yonvec,vecslope,-&headw);
42	line=1;
43	x = xonvec; y = yonvec; function = 'DRAW '; OUTPUT;
44	%linept(headx,heady,xonvec,yonvec,vecslope,&headw);
45	%line(&x2,&y2,xonvec,yonvec);
46	%END;
47
48	%mend;

2 Codeblock

MACRO %LINE Data

Erklärung :
Das Makro '%line' ist ein einfaches Hilfsmittel zum Zeichnen einer Linie. Es akzeptiert die Startkoordinaten (x1, y1) und Endkoordinaten (x2, y2). Es verwendet die Funktion 'MOVE ', um den Cursor an den Startpunkt zu positionieren, ohne zu zeichnen, und dann 'DRAW ', um eine Linie zum Endpunkt zu zeichnen. Jedes Koordinatenpaar mit seiner Funktion wird ausgegeben, um dem Annotationsdatensatz hinzugefügt zu werden.

Kopiert!

1	*------draw a line------;
2	%macro line(x1,y1,x2,y2);
3
4	x = &x1; y = &y1; function = 'MOVE '; OUTPUT;
5	x = &x2; y = &y2; function = 'DRAW '; OUTPUT;
6
7	%mend line;

3 Codeblock

MACRO %LINEPT

Erklärung :
Das Makro '%linept' ist eine Berechnungsfunktion, die die Koordinaten eines neuen Punkts (px, py) in einer Entfernung 'r' von einem bestehenden Punkt (x, y) entlang einer Linie mit einer Steigung 'm' bestimmt. Die Richtung wird durch das Vorzeichen von 'r' gesteuert. Es behandelt zwei Hauptfälle: wenn die Steigung 'm' definiert ist (nicht-vertikale Linie) und wenn 'm' fehlt (vertikale Linie). Es berechnet die neuen Koordinaten unter Verwendung geometrischer Prinzipien und weist sie den Makrovariablen 'px' und 'py' zu. Dieses Makro ist ein internes Hilfsmittel, das von '%arrow' verwendet wird, um die Positionen der Elemente der Pfeilspitze zu berechnen.

Kopiert!

1	*------find a point (px,py) r distance from (x,y) on a ------;
2	*------line with slope m, negative r means toward origin------;
3	%macro linept(x,y,px,py,m,r);
4
5	drop vecdir vecm2;
6	vecdir = -sign(&r);
7
8	IF &m ne . THEN DO;
9	vecm2 = sqrt((&r) * (&r) / (1.0 + (&m) * (&m)));
10	IF (&x) > (&x1) THEN vecm2 = -vecm2;
11	&px = vecdir * vecm2 + (&x);
12	&py = vecdir * (&m) * vecm2 / (&vtoh) + (&y);
13	END;
14
15	ELSE DO;
16	&px = (&x);
17	&py = abs(&r);
18	IF (&y) > (&y1) THEN vecdir = -vecdir;
19	&py = vecdir * (&py) / (&vtoh) + (&y);
20	END;
21
22	%mend linept;

Dieses Material wird von We Are Cas "wie besehen" zur Verfügung gestellt. Es gibt keine ausdrücklichen oder stillschweigenden Garantien hinsichtlich der Marktgängigkeit oder Eignung für einen bestimmten Zweck in Bezug auf die hierin enthaltenen Materialien oder Codes. We Are Cas ist nicht verantwortlich für Fehler in diesem Material, wie es jetzt existiert oder existieren wird, noch bietet We Are Cas technischen Support dafür an.

Retour à la liste