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

goptions hpos=100 vpos=58;

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

%include 'VBAR3D.SAS';

/* Create sample data set */

data init;
input @1 stooge $ @10 pop 2. @14 grp $;
cards;
Curly    20  West
CurlyJoe 10  West
Joe      10  West
Larry    40  West
Moe      10  West
Shemp    10  West
Curly    40  South
CurlyJoe 10  South
Joe       5  South
Larry    15  South
Moe      20  South
Shemp    10  South
Curly    30  North
CurlyJoe  5  North
Joe      10  North
Larry    20  North
Moe      20  North
Shemp    15  North
Curly    20  East
CurlyJoe 20  East
Larry    20  East
Moe      20  East
Shemp    20  East
;

/* invoke VBAR3D macro with user defined parameters */

%VBAR3D
(ds=init,
midpoint=stooge,
response=pop,
group=grp,
vmax=100,
vmin=0,
vincr=10,
height=7,
length=65,
barwidth=6,
fill1=solid,
fill2=solid,
fill3=solid,
fill4=solid,
cfill1=green,
cfill2=blue,
cfill3=gray,
cfill4=cyan,
caxis=black,
title=My Favorite Stooge,
ftitle=swissb,
ctitle=blue,
htitle=2,
midlabel=STOOGES,
reslabel=PCT,
grplabel=REGION,
dispgrp=y,
disresbg=y,
cmidlab=blue,
creslab=blue,
cgrplab=blue,
ctickval=blue,
leglabel=LEGEND,
fleglab=swiss,
hleglab=1,
cleglab=blue,
flegent=swiss,
displeg=y,
csidegr=black,
cbackgr=black,
cback=white,
cbacksg=cream,
cbackbg=cream,
linesg=2,
linebg=2,
sizesg=2,
sizebg=2,
dispbotg=y,
faxval=swiss,
haxval=1,
amidval=0,
faxlab=swiss,
haxlab=1,
horigin=25,
vorigin=20,
hspace=1.5,
libref=work,
catalog=gseg,
entry=vbar3d);