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

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

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,"\","test13");

  width  = 700;
  height = 500;

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

  %setFont ('Comic Sans MS', 0, 19.5);
  %drawString ('Now is the time for all good men to come to the aid of their country', 10,20);
  %drawString ('- Charles E. Weller - Teacher - recommended typing drill', 10, 45);
  %drawString ('www.straightdope.com', 10, 65);

  %setFontName ('Arial');
  %drawString ('setFontName - Arial', 10, 95);

  %setFontSize (12);
  %drawString ('setFontSize - 12', 10, 115);

  %setFontStyle (0);
  %drawString ('setFontStyle - 0', 10, 130);
  %setFontStyle (1);
  %drawString ('setFontStyle - 1', 10, 145);
  %setFontStyle (2);
  %drawString ('setFontStyle - 2', 10, 160);
  %setFontStyle (3);
  %drawString ('setFontStyle - 3', 10, 175);

  text = 'Width of this string is:';

  %setFontStyle (0);
  %drawString (text, 10, 190);
  %getStringWidth(text,width);
  %drawString (put(width,4.-L), 10+width, 190);

  length name $40 size 8 ;

  %getFontName (name);
  %getFontSize (size);
  %getFontStyle (style);

  put name= size= style=;

  %canvas_saveAs (gsf, gsftype, savedAs);

  %canvas_delete();

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