*
; /**************************************************************** * SAS-Makro fuer die Geographie * *---------------------------------------------------------------* * Name : GITTER * * Autor : bereitgestellt von Christine Naumer * * Datum : 01.12.1993 * *---------------------------------------------------------------* * Gruppe : * * Beschreibung : Erzeugung einer Annotate-Datei, die horizontale* * und vertikale Gitterlinien ueber einer Land- * * karte eintraegt * * Literatur : * *---------------------------------------------------------------* * Aufruf : %gitter(system,abstand,name); * *---------------------------------------------------------------* * Parameter : system System, in dem die Koordinaten ange- * * geben werden (siehe SAS/GRAPH Vol.1 * * Version 6, Edition 1 * * abstand Abstaende der einzuzeichnenden Gitter- * * linien * * name Name der zu erzeugenden Annotate-Datei* * Ergebnis : Annotate-Datei NAME * * Output : * *---------------------------------------------------------------* * SAS-Version : 6.08 (MVS, Windows, OS/2), 6.04 (PC/DOS) * * SAS-Module : SAS/GRAPH * * (ohne Base) * *---------------------------------------------------------------* * Beispiel : %gitter('1',10,gitter1); * * goptions cback=white colors=(black); * * proc gmap data=maps.germany map=maps.germany * * anno=gitter1; * * id id; * * choro id / discrete nolegend; * * pattern1 c=black v=e r=1000; * * run;quit; * *****************************************************************/ %macro gitter(system,abstand,name); data &name; length text $3; retain xsys &system ysys &system line 1 color 'black'; step=&abstand; do quer=0 to 100 by step; x=0; y=quer; if quer <= 95 then do; function='LABEL'; text=QUER; style='SIMPLEX'; position='3'; size=2.0; hsys='3'; output; end; function='MOVE'; hsys='4'; output; x=100;y=quer; function='DRAW'; hsys='4'; size='1'; output; end; do laengs=0 to 100 by step; x=laengs; y=0; if laengs <= 95 then do; function='LABEL'; text=LAENGS; style='SIMPLEX'; position='3'; size=2.0; hsys='3'; output; end; function='MOVE'; hsys='4'; output; x=laengs;y=100; function='DRAW'; hsys='4'; size='1'; output; end; %mend gitter; *;