BookmarkSubscribeRSS Feed
tc
Lapis Lazuli | Level 10 tc
Lapis Lazuli | Level 10

witch.gif

 

Another holiday, another installment of SAS ODS Graphics meets Math-Aids Four Quadrant Graphing Characters Worksheets. This one’s a GTL animated GIF remix of an SGPLOT remix of a 2015 SAS/GRAPH Halloween Witch (ever notice how SAS visualizations come in threes?). Happy Halloween, kids!

 

* Fun w/SAS ODS Graphics: Animated witch from points in math-aids.com graphing worksheet;

data Witch(keep=shapeID shapenum x y polyX polyY xmin xmax ymin ymax);
length shapeID $ 20. shapenum x y 8;
retain shapeID shapenum;                                
infile cards dsd dlm=',' truncover;  * "Cards" contain points to plot from math-aids.com;
input;
put "i=" _infile_;
if _infile_=:'Shape' then do;
  shapeID=_infile_;
  shapenum=scan(shapeID,2);
  end;
else
  do;
    i=1;
    do while(scan(_infile_, i, ' ,')^='');
      x=scan(_infile_, i, ', ');
      y=scan(_infile_, i+1, ', ');
      i+2;                                      
      polyX=x;                   * Use polygons to color witch shapes on final slide;
      polyY=y;
      xmin=-20; xmax=20;                  * "Dummy" points for consistent image size;
      ymin=-20; ymax=20;
      output;
    end;
  end;
cards;
Shape 1
-1,11 1,8 2,6 1.5,5.5 2,5 2.5,5.5 3,5 2.5,4.5 1,4.5 0,4
-1,3 -2,1 -3,-1 -3,-2 -2.5,-2.5 -1,-2 -1,-2.5 -2,-3 -4,-3.5
-4.5,-3.5 -5,-3 -6.5,-4 -13,-3 -13.5,-5 -13,-7 -12,-8.5 -10,-7
-7,-5 -6,-4.5 -4.5,-5 -4.5,-4.5 -3.5,-4 -1.5,-3.5 -1,-4.5 -1.5,-5
-2,-5 -2.5,-4.5 -3.5,-4.5 -4.5,-6 -5.5,-8 -4,-7 -2,-6 2,-5.5
4,-4.5 4.5,-4 4,-3.5 3.5,-2.5 7,-2 13,-0.5 13,0.5 11,0 9,-0.5
6,-0.5 4,0 3.5,1 3.5,3 5,3 4.5,4 5.5,3.5 6,4.5 7,5 6.5,5.5
5.5,6 5,7 5.5,7.5 5.5,8 5,7.5 4.5,7.5 4,8 2,9 -1,11
Shape 2
2.5,-0.5 4,-1.5 2.5,-2 2.5,-.5
;
                                          * Create annotation data set to draw lines;
data line(keep=function drawspace x1 y1 x2 y2 polyX polyY linecolor);
set witch;
by shapeID notsorted;
function='line';
drawspace='datavalue';
x1=lag(x);
y1=lag(y);
x2=x;
y2=y;
linecolor='black';
if ^first.shapeID;

%macro gentemplate(final=Y);                                      * Draw the witch!;
proc template;
define statgraph witchtemplate;
  begingraph
  %if &final=Y %then / backgroundcolor=black;;        * Last slide? Paint it black!;
    dynamic linenum;
    layout overlayequated / 
      walldisplay=none 
      xaxisopts=(display=none offsetmin=0.001 offsetmax=0.001 viewmin=-20 viewmax=20)
      yaxisopts=(display=none offsetmin=0.001 offsetmax=0.001 viewmin=-20 viewmax=20);
    scatterplot x=x y=y / markerattrs=(size=0);
    scatterplot x=xmin y=ymin / markerattrs=(size=0);
    scatterplot x=xmax y=ymax / markerattrs=(size=0);
    %if &final=Y %then %do;           * Add orange circle, flood-fill witch (black);
      ellipseparm semimajor=18 semiminor=18 xorigin=0 yorigin=0 slope=0 / 
                  display=all outlineattrs=(color=black) fillattrs=(color=orange);
      polygonplot x=PolyX y=PolyY id=ShapeID / 
                  colorresponse=shapenum colormodel=(black orange)
                  display=(fill) label=none outlineattrs=(color=black);
    %end;                                                             * Line counter;
    entry halign=right linenum / valign=bottom textattrs=(size=32 weight=bold color=lightgray);
    annotate;
    endlayout;
  endgraph;
end;
run;
%mend;

* Create animated GIF with one incremental plot for each line;

ods _all_ close;
options papersize=('4 in', '4 in') printerpath=gif animation=start 
        nodate nonumber animduration=1.8 animloop=YES NOANIMOVERLAY;
ods printer file='/folders/myfolders/witch.gif';
ods graphics / width=4in height=4in imagefmt=GIF;

%macro drawlines;
proc sql noprint;
select count(*) into :numlines from line;
quit;                   

%gentemplate(final=Y);                          * Display final image before drawing lines;
options animduration=1.8;
proc sgrender data=Witch template=witchtemplate sganno=line;
dynamic linenum=" "; 

options animduration=.04;                       * Line-by-line drawing;
%gentemplate(final=N); 
%do l=1 %to &numlines;                          * Draw incremental image with lines thus far;  
  proc sgrender data=Witch template=witchtemplate sganno=line(obs=&l);
  dynamic linenum="&l";
%end; 
run; 
%mend;

%drawlines;
options printerpath=gif animation=stop;
ods printer close;

 

SAS INNOVATE 2024

Innovate_SAS_Blue.png

Registration is open! SAS is returning to Vegas for an AI and analytics experience like no other! Whether you're an executive, manager, end user or SAS partner, SAS Innovate is designed for everyone on your team. Register for just $495 by 12/31/2023.

If you are interested in speaking, there is still time to submit a session idea. More details are posted on the website. 

Register now!

How to Concatenate Values

Learn how use the CAT functions in SAS to join values from multiple variables into a single value.

Find more tutorials on the SAS Users YouTube channel.

Get the $99 certification deal.jpg

 

 

Back in the Classroom!

Select SAS Training centers are offering in-person courses. View upcoming courses for:

View all other training opportunities.

Discussion stats
  • 0 replies
  • 6453 views
  • 6 likes
  • 1 in conversation