/* greplaybyname.sas Daniel Brockman 070519 Displays up to four named charts */
/*****************************************************************************/
/* Originally identified as Filename: GREPLAY.txt                            */
/* Purpose: This file is "included" in MULTIGRAPH.SAS	                  			*/
/* Date: 4/25/99               							*/
/* Author: Jianmin Liu                                                       */
/*****************************************************************************/

* 070524 Daniel Brockman goptions gif ;
* 070519 Daniel Brockman pass-by-parameter names ;
* 070515 Daniel Brockman remove dependency on dataset output1 ;

%macro greplaybyname(name1,name2,name3,name4,gcat);
/*
*        name1, name2, name3, name4 are the names of four charts
*          contained in gcat
*        gcat is name of input graphic catalog (see proc gplot) 
*          containing the info about the chart to display
* 070515, 070519
*/

/*Filename: greplay.txt*/
* goptions display gunit=pct;
* goptions device=gif;


/*
proc gslide gout=output1 name='bigtitle' ;
title1 h=2.5 'WELLS FARGO (WEST) HOME EQUITY PREPAYMENT SPEED';
footnote h=1.0 j=l'PRODUCED BY STATISTICAL MODELING/DATA STRATEGY GROUP, HOME EQUITY STRATEGIC MARKETING AND ANALYSIS';
footnote2 h=1.0 j=l'CONFIDENTIAL' 
j=r'Data Source: WELLS FARGO BANK, HOME EQUITY';
run;
*/

proc greplay igout=&gcat nofs ; 
             tc=tempcat;
       *     template=newfour;

/*define a template*/
tdef newfour des='Four squares of equal size'

        /*define panel 1*/

1/llx=0    lly=0
  ulx=0    uly=100
  urx=100  ury=100
  lrx=100  lry=0
  color=black

2/llx=0    lly=48
  ulx=0    uly=96
  urx=50   ury=96
  lrx=50   lry=48
  color=red

3/llx=50   lly=48
  ulx=50   uly=96
  urx=100  ury=96
  lrx=100  lry=48
  color=blue

4/llx=0    lly=0
  ulx=0    uly=48
  urx=50   ury=48
  lrx=50   lry=0
  color=black

5/llx=50    lly=0
  ulx=50    uly=48
  urx=100   ury=48
  lrx=100   lry=0
  color=black;

template=newfour;

treplay 1=bigtitle 
        2=&name1
        3=&name2
        4=&name3
        5=&name4;
run;
quit;
%mend greplaybyname;