Dieses Makro namens 'gif' ermöglicht die Definition von Ausgabeparametern für die Erstellung von Grafiken im GIF-Format. Es konfiguriert den Namen der Ausgabedatei, den Gerätetreiber (device) und die Abmessungen (horizontal und vertikal) des Bildes. Das Makro verwendet ein weiteres Makro (%sasgfile), um den Basisnamen der Datei zu bestimmen. Die Parameter können direkt übergeben oder aus globalen Makrovariablen oder Systemumgebungsvariablen gelesen werden.
Datenanalyse
Type : CREATION_INTERNE
Das Makro verarbeitet keine Eingabedaten. Seine Rolle besteht darin, die grafische Umgebung für die Dateigenerierung zu konfigurieren und nicht, Datentabellen zu manipulieren.
1 Codeblock
Macro
Erklärung :
Dieser Block definiert das Makro '%gif'. Es beginnt mit der Bestimmung des Namens der Ausgabedatei durch den Aufruf des Makros '%sasgfile'. Anschließend wird der zu verwendende Grafiktreiber ('device') ermittelt, wobei der Makroparameter, dann eine globale Makrovariable 'DRIVER', dann eine Umgebungsvariable 'DRIVER' und schließlich der Standardwert 'gif' priorisiert werden. Es definiert einen Fileref 'gsasfile' für den Ausgabepfad. Schließlich wendet es die Konfigurationen mithilfe der GOPTIONS-Anweisung an, wobei der Treiber, der Pfad, der Ersatzmodus und die Bildabmessungen angegeben werden.
Dieser Block definiert das Makro '%gif'. Es beginnt mit der Bestimmung des Namens der Ausgabedatei durch den Aufruf des Makros '%sasgfile'. Anschließend wird der zu verwendende Grafiktreiber ('device') ermittelt, wobei der Makroparameter, dann eine globale Makrovariable 'DRIVER', dann eine Umgebungsvariable 'DRIVER' und schließlich der Standardwert 'gif' priorisiert werden. Es definiert einen Fileref 'gsasfile' für den Ausgabepfad. Schließlich wendet es die Konfigurationen mithilfe der GOPTIONS-Anweisung an, wobei der Treiber, der Pfad, der Ersatzmodus und die Bildabmessungen angegeben werden.
Kopiert!
| 1 | %macro gif( |
| 2 | fn, |
| 3 | device=, |
| 4 | hsize=, |
| 5 | vsize= |
| 6 | ); |
| 7 | |
| 8 | %*-- Get the basename of the graphic file(s); |
| 9 | %sasgfile(gif,&fn); |
| 10 | |
| 11 | %IF %LENGTH(&device) %THEN %DO; |
| 12 | %let dev=&device; |
| 13 | %END; |
| 14 | %ELSE %DO; |
| 15 | %IF not %defined(DRIVER) %THEN |
| 16 | %let driver =%SYSGET(DRIVER); |
| 17 | %IF &driver=%str() %THEN %let driver = gif; |
| 18 | %let dev=&driver; |
| 19 | %END; |
| 20 | |
| 21 | %let devtyp = GIF; |
| 22 | %let fig=1; |
| 23 | %IF %defined(gsasdir)=0 %THEN %let gsasdir=; |
| 24 | %put GIF: gsasfile is: "&gsasdir.&gsasfile" (&dev driver); |
| 25 | filename gsasfile "&gsasdir.&gsasfile"; |
| 26 | |
| 27 | goptions device=&dev gaccess=gsasfile |
| 28 | /* hpos=80 vpos=75 match pscolor device */ |
| 29 | gsflen=80 gsfmode=replace; |
| 30 | goptions vsize=&vsize hsize=&hsize; |
| 31 | %mend gif; |
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.
Urheberrechtsinformationen : Author: Michael Friendly <friendly @yorku.ca>
