/**********************************************************************/


proc gslide border;
run;               


/**********************************************************************/


   /* Select a device driver that supports            */
   /* hardware gray patterns.                         */
goptions dev=hpljs3;                                    

   /* Create the input data set.                      */
data x;                                                 
   do x=1 to 8;                                         
      output;                                           
   end;                                                 
run;                                                     
  
   /* Eight shades of gray are available with pattern */ 
   /* values HWHPJ001-HWHPJ008.                       */ 
pattern1 v=hwhpj001;                                     
pattern2 v=hwhpj002;                                     
pattern3 v=hwhpj003;                                     
pattern4 v=hwhpj004;                                     
pattern5 v=hwhpj005;                                     
pattern6 v=hwhpj006;                                     
pattern7 v=hwhpj007;                                     
pattern8 v=hwhpj008;                                     

   /* Produce the bar chart.                          */
axis1 label=none value=none;                             
title1 h=1.25 f=swiss 'Hardware Gray Shading';           
title2 f=swiss 'for rectangle fill';                     
proc gchart data=x;                                      
   vbar x / patternid=midpoint discrete                  
            raxis=axis1 noaxis                           
            coutline=black;                              
run;                                                     


/**********************************************************************/


   /* Select any PCL device driver,                   */
   /* for example HPLJS3.                             */
goptions dev=hpljs3;                                    

   /* Create the input data set.                      */
data x;                                                 
   do x=1 to 6;                                         
      output;                                           
   end;                                                 
run;                                                    

   /* Six hardware line patterns are available with   */
   /* pattern values HWHPJ009-HWHPJ14.                */
pattern1 v=hwhpj009;                                    
pattern2 v=hwhpj010;                                    
pattern3 v=hwhpj011;                                    
pattern4 v=hwhpj012;                                    
pattern5 v=hwhpj013;                                    
pattern6 v=hwhpj014;                                    

   /* Produce the bar chart.                          */
axis1 label=none value=none;                            
title1 h=1.25 f=swiss 'Hardware Cross-hatch Patterns';
title2 f=swiss 'for rectangle fill';                  
proc gchart data=x;                                   
   vbar x / patternid=midpoint discrete               
            raxis=axis1 noaxis                        
            coutline=black;                           
run;                                                  


/**********************************************************************/