/*                                                     */
/* COPYRIGHT 1996, SAS INSTITUTE INC.                  */
/* SAMPLE PROGRAM ILLUSTRATING USE OF PLOT3D MACRO     */
/*                                                     */

/* Set the display and hardcopy environment            */

options nobyline;
goptions reset=all dev=win target=pscolor rotate=landscape;

/* include the code for the PLOT3D macro. */
/* modify path name as necessary          */

%include 'a:\PLOT3D.SAS';

/* Create sample data set */

data a;
input year 1-6 coastal 8-9 piedmont 11-12 mountain 14-15 z 17-19;
cards;
1985.0 15 30 40 1
1986.0 18 37 49 1
1987.0 20 22 37 1
1988.0 21 30 35 1
1989.0 24 39 43 1
1990.0 36 44 51 1
1991.0 20 32 47 1
1992.0 15 28 32 1
1993.0 28 33 45 1
1994.0 35 39 50 1
1995.0 33 35 45 1
;
run;

/* invoke PLOT3D macro with user defined parameters */

%PLOT3D(
ds=a,
x=year,
y_a=coastal,
y_b=piedmont,
y_c=mountain,
z=z,
xoffset=17,
yoffset=28,
xpermax=50,
ypermax=40,
xvalmin=1985,
yvalmin=0,
xvalmax=1995,
yvalmax=60,
xbyval=1,
ybyval=10,
barwidth=2,
lncolor1=cx3333ff,
lncolor2=cx55ff55,
lncolor3=cxff3333,
areapat1=solid,
areapat2=solid,
areapat3=solid,
tpcolor1=cx3333ff,
tpcolor2=cx55ff55,
tpcolor3=cxff3333,
toppat1=solid,
toppat2=solid,
toppat3=solid,
titleone=Annual Precipitation,
titletwo=By Geographical Region,
legend=yes,
leglabel=Region,
legval1=Coastal,
legval2=Piedmont,
legval3=Mountains,
vaxlabel=Inches,
haxlabel=Year,
area=yes,
gridline=3,
gridcolr=blue,
arealncl=black,
leftcolr=graydd,
backcolr=graydd,
botmcolr=graydd,
leftfill=solid,
backfill=solid,
botmfill=solid,
titlcolr=blue,
axiscolr=blue,
legncolr=blue,
titlfont=swissb,
axisfont=swissb,
legnfont=swissb,
leghorgn=35,
legvorgn=7
);