jDSGI - Java2D DATA Step Graphics Interface   Back - Next   [ 15 of 27 ]   by Richard A. DeVenezia, Copyright 2004  HOME

/*
 * Richard A. DeVenezia
 * June 1, 2004
 *
 * jDSGI test 15
 */

data _null_;

  if symexist('goutpath') then goutpath=symget('goutpath'); else goutpath=pathname('WORK');
  if symexist ('gsftype') then gsftype=symget('gsftype'); else gsftype='png';

  gsf = cats(goutPath,"\","test15");

  width  = 500;
  height = 500;

  %canvas (_g, width, height, 0e8e8dax)

  length img_source $200;

  ulx = 10;
  uly = 10;

  img_source = "http://groups.google.com/images/threadview_logo.gif";
  %readImage (img_source);
  %drawImage (ulx,uly,0ffffffx);

  %getImageWidth(w);
  %getImageHeight(h);

  ulx+w;
  uly+h;

  img_source = "http://www.sas.com/includes/headers/images/saslogo.gif";
  %readImage (img_source);
  %drawImage (ulx,uly,0ffffffx);

  %canvas_saveAs (gsf, gsftype, savedAs);

  %canvas_delete();

  if savedAs ne '' then rc = system ("start " || savedAs);
run;