Graphic Utility
Setting Graphic Parameters for PDF Output
This code is also available in:
Type : CREATION_INTERNE
This script is a configuration macro and does not directly process input data for analysis. It manipulates macro parameters and system options to prepare the environment for generating graphic outputs in PDF format. Output file names are dynamically constructed from parameters provided to the macro or from environment variables.
| 1 | %global gsasfile gsasdir devtyp; |
| 2 | |
| 3 | %macro pdf( |
| 4 | fn, |
| 5 | hsize=6in, |
| 6 | vsize=6in |
| 7 | ); |
| 8 | |
| 9 | %let devtyp=PDF; |
| 10 | %let dev=pdf; |
| 11 | %local gprolog gaccess; |
| 12 | |
| 13 | %*-- Get the basename of the graphic file(s); |
| 14 | %sasgfile(pdf,&fn); |
| 15 | |
| 16 | %put PDF: gsasfile is: "&gsasdir.&gsasfile"; |
| 17 | filename gsasfile "&gsasdir.&gsasfile"; |
| 18 | |
| 19 | %IF &sysver < 6.08 %THEN %DO; |
| 20 | %let gprolog='2521'x; |
| 21 | %let gaccess=sasgaedt; |
| 22 | %END; |
| 23 | %ELSE %DO; |
| 24 | %let gprolog=; |
| 25 | %let gaccess=gsasfile; |
| 26 | %END; |
| 27 | |
| 28 | goptions device=&dev gaccess=&gaccess gsfname=gsasfile gsflen=80 |
| 29 | hpos=70 vpos=65 /* match pscolor device */ |
| 30 | gsfmode=append gprolog=&gprolog; |
| 31 | goptions lfactor=3; |
| 32 | goptions ftext='helvetica'; |
| 33 | goptions hsize=&hsize vsize=&vsize; |
| 34 | %mend; |