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

/*
 * Richard A. DeVenezia
 * June 9, 2004
 *
 * jDSGI test 19
 */

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

  width  = 500;
  height = 500;

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

  %tsetWindow (1, -100,-100, 100, 100);

  %tsetClip (1);

  %setColorA (200000ffx);
  %fillRect (0,0,width,height);

  %setColor (0);

  %tarc (50,50,45,0,180);
  %tarc (50,55,35,180,0);

  %tarcChord (50,-50,45,0,180);

  %tarcPieSlice (-50,-50,45,30,150);
  %tarcPieSlice (-50,-55,35,210,-30);

  %setPenWidth (3);
  %tarc (-50,50,45,90,270);

  %setPenWidth (25);
  %tarc (-50,50,15,-90,90);

  %tsetViewport (1,.35,.35,.65,.65);
  %tsetWindow (1, -15,-15,15,15);

  array dash[4] _temporary_ (10,5,5,5); * alternating on off, unit lengths;

  %setPenWidth (2);
  %setPenDash (dash);

  %tbar (-10,-10,10,10);

  %setPenDashPhase (5);
  %tbar (-8,-8,8,8);

  %tsetClip (0);
  dash[1] = 50;
  dash[2] = 40;
  dash[3] = 30;
  dash[4] = 20;
  %setPenWidth (12);
  %setPenDash (dash);
  %setPenDashPhase (0);
  %setPenEndCap (&CAP_ROUND);
  %tbar (-18,-18,18,18);

  %canvas_saveAs (gsf, gsftype, savedAs);

  %canvas_delete();

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

run;