StatGraph Cowboy Hat

data hat (compress=no pointobs=no);
   do x = -5 to 5 by .25;
      do y = -5 to 5 by .25;
         z = sin(sqrt(x*x + y*y));
         output;
      end;
   end;
run;

proc template;
   define statgraph myhat;
      layout gridded;
         surfaceplot x=x y=y z=z;
      endlayout;
   end;
run;

ods graphics on;
ods pdf file='c:\temp\hat.pdf' notoc;

data _null_;
   set hat;
   file print ods=(template="myhat");
   put _ods_;
run;

ods pdf close;

produces a PDF file containing an image.