Esta macro llamada 'gif' permite definir los parámetros de salida para la creación de gráficos en formato GIF. Configura el nombre del archivo de salida, el controlador de dispositivo (device) y las dimensiones (horizontal y vertical) de la imagen. La macro utiliza otra macro (%sasgfile) para determinar el nombre base del archivo. Los parámetros se pueden pasar directamente o leer desde variables de macro globales o variables de entorno del sistema.
Análisis de datos
Type : CREATION_INTERNE
La macro no procesa ningún dato de entrada. Su función es configurar el entorno gráfico para la generación de archivos, y no manipular tablas de datos.
1 Bloque de código
Macro
Explicación :
Este bloque define la macro '%gif'. Comienza determinando el nombre del archivo de salida a través de la llamada a la macro '%sasgfile'. Luego, resuelve el controlador gráfico a usar ('device'), priorizando el parámetro de la macro, luego una variable de macro global 'DRIVER', después una variable de entorno 'DRIVER', y finalmente el valor predeterminado 'gif'. Define un fileref 'gsasfile' para la ruta de salida. Finalmente, aplica las configuraciones usando la instrucción GOPTIONS, especificando el controlador, la ruta de acceso, el modo de reemplazo y las dimensiones de la imagen.
Este bloque define la macro '%gif'. Comienza determinando el nombre del archivo de salida a través de la llamada a la macro '%sasgfile'. Luego, resuelve el controlador gráfico a usar ('device'), priorizando el parámetro de la macro, luego una variable de macro global 'DRIVER', después una variable de entorno 'DRIVER', y finalmente el valor predeterminado 'gif'. Define un fileref 'gsasfile' para la ruta de salida. Finalmente, aplica las configuraciones usando la instrucción GOPTIONS, especificando el controlador, la ruta de acceso, el modo de reemplazo y las dimensiones de la imagen.
¡Copiado!
| 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; |
Este material se proporciona "tal cual" por We Are Cas. No hay garantías, expresas o implícitas, en cuanto a la comerciabilidad o idoneidad para un propósito particular con respecto a los materiales o el código contenidos en este documento. We Are Cas no es responsable de los errores en este material tal como existe ahora o existirá, ni We Are Cas proporciona soporte técnico para el mismo.
Información de copyright : Author: Michael Friendly <friendly @yorku.ca>
