Configuration Graphique PostScript - Macro PSCOLOR

Cette macro configure l'environnement SAS^© pour l'exportation graphique en PostScript. Elle détermine dynamiquement le nom du fichier de sortie en vérifiant les variables d'environnement 'SASFILE' ou 'GSASFILE', ou utilise une valeur par défaut 'grfout.ps'. Elle gère l'assignation du 'filename' et applique les GOPTIONS nécessaires (device pscolor, dimensions hpos/vpos, mode d'ajout). Elle gère également une compatibilité historique de version pour les paramètres gprolog/gaccess.

Analyse des données

Type : CREATION_INTERNE

Le script ne traite pas de données. Il interagit avec l'environnement système via %SYSGET pour la configuration de fichiers.

1 Bloc de code

MACRO

Explication :
Définition de la macro %pscolor. Elle calcule le chemin du fichier de sortie (variable globale gsasfile), assigne le fileref correspondant, et applique les options graphiques globales (GOPTIONS) pour le pilote PostScript.

Copié !

1	%global gsasfile gsasdir devtyp;
2
3	%macro pscolor;
4
5	%let devtyp=PS;
6	%let dev=pscolor;
7	%local gprolog gaccess;
8
9	%IF %defined(sasfile) %THEN %let gsasfile = &sasfile..ps;
10	%ELSE %DO;
11	%let sasfn =%scan(%SYSGET(SASFILE),1,.);
12
13	*-- Set the name of the output file;
14	%let gsasfn =%SYSGET(GSASFILE);
15	%IF %LENGTH(&gsasfn)=0 %THEN %IF &sasfn ^=%str()
16	%THEN %let gsasfn =&sasfn..ps;
17	%ELSE %let gsasfn=grfout.ps;
18	%let gsasfile=&gsasfn;
19	%END;
20	%IF %defined(gsasdir)=0 %THEN %let gsasdir=;
21
22	%put PSCOLOR: gsasfile is: "&gsasdir.&gsasfile";
23	filename gsasfile "&gsasdir.&gsasfile";
24
25	%IF &sysver < 6.08 %THEN %DO;
26	%let gprolog='2521'x;
27	%let gaccess=sasgaedt;
28	%END;
29	%ELSE %DO;
30	%let gprolog=;
31	%let gaccess=gsasfile;
32	%END;
33
34	goptions device=&dev gaccess=&gaccess gsfname=gsasfile gsflen=80
35	/* hpos=80 vpos=75 NeXT pscolor device */
36	hpos=70 vpos=65 /* match pscolor device */
37	gsfmode=append gprolog=&gprolog;
38	goptions lfactor=3;
39	goptions ftext=hwpsl009;
40	%mend;

Ce matériel est fourni "tel quel" par We Are Cas. Il n'y a aucune garantie, expresse ou implicite, quant à la qualité marchande ou à l'adéquation à un usage particulier concernant le matériel ou le code contenu dans les présentes. We Are Cas n'est pas responsable des erreurs dans ce matériel tel qu'il existe maintenant ou existera, et We Are Cas ne fournit pas de support technique pour celui-ci.

Informations de Copyright : Author: Michael Friendly <friendly @yorku.ca>

Retour à la liste

Le Conseil de l'Expert

Stéphanie

Spécialiste Machine Learning et IA.

« PostScript est un langage de programmation à part entière. En configurant correctement vos GOPTIONS via cette macro, vous produisez un code source graphique que des logiciels comme Adobe Illustrator ou Ghostscript peuvent interpréter parfaitement. Pour des rendus destinés à l'intégration web moderne, vous pourriez adapter cette logique vers le driver SVG, qui partage cette nature vectorielle. »