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

Happy New Year! (note: GIF compressed with compressor.io)Happy New Year! (note: GIF compressed with compressor.io)

To mark the new decade, here's a quick-and-dirty SAS ODS Graphics take on a film leader countdown. Happy New Year, all!

 

* Fun w/SAS ODS Graphics: "Happy New Year!" Film Countdown Leader (see en.wikipedia.org/wiki/Film_leader);

data points(keep=counter angle text x y tx ty vx vy);      * Counter=10, 9, ..., 1;
pi=constant('pi');                                         * Angle=degrees of slices (0 to 360 by 15);
retain tx ty 0;                                            * x/y=Polygon coordinates, tx/ty=text, vx/vy=vector;
do counter=10 to 1 by -1;                                  * Countdown seconds, 10 to 1;
  text=put(counter,2.);                                    * Format econds remaining;
  do angle=0 to 360 by 15;                                 * Plot every 15 degrees beginning at top;
    StartRadians=90/360*2*pi-angle/360*2*pi;               * Convert radians to x/y points for plotting;
    vx=cos(StartRadians)*2; vy=sin(startradians)*2;        * Last polygon point x/y coordinates;
    x=0; y=0; output;                                      * Start drawing shaded polygon at center (0,0);
    do i=0 to angle by 1;                                  * Add more points to shaded plygon (one point/degree);
      StartRadians=90/360*2*pi-i/360*2*pi;                 * Convert radians to x/y points for plotting;
      x=cos(StartRadians)*2; y=sin(startradians)*2;        * Polygon point x/y coordinates;
      output;
    end;
  end;
end;
run;
 
options nobyline;                                          
proc template;                                             * Film countdown leader chart definition;
define statgraph filmtemplate;                             * Composite of scatter, polygon, vector, ellipse, text plots;
  begingraph / pad=0;
    layout overlayequated /  
      equatetype=square pad=0 border=false
      walldisplay=none backgroundcolor=lightgrey opaque=true 
      commonaxisopts=(tickvaluelist=(-1 1) viewmin=-1 viewmax=1) /* Cutoff window at -1 and 1 to trim" polygon area */
      xaxisopts=(display=none offsetmin=0.000 offsetmax=0.000 viewmin=-1 viewmax=1)  /* Suppress axes/ticks/values */
      yaxisopts=(display=none offsetmin=0.000 offsetmax=0.000 viewmin=-1 viewmax=1);
      scatterplot x=x y=y / markerattrs=(size=0); * Ensure at least some data is plotted;
      polygonplot x=x y=y id=angle / fillattrs=(color=gray) display=(fill) label=none; * Shaded "radar sweep" area;
      vectorplot x=vx y=vy xorigin=0 yorigin=0 / arrowheads=false lineattrs=(color=black thickness=4pt); * "Radar sweep" hand; 
      referenceline x=0 / lineattrs=(color=black thickness=4pt); * Line bisecting x axis;
      referenceline y=0 / lineattrs=(color=black thickness=4pt); * Line bisecting y axis;      
      ellipseparm semimajor=.92 semiminor=.92 xorigin=0 yorigin=0 slope=0 / outlineattrs=(color=white thickness=8pt); * Outer circle;
      ellipseparm semimajor=.77 semiminor=.77 xorigin=0 yorigin=0 slope=0 / outlineattrs=(color=white thickness=8pt); * Inner circle;  
      textplot x=tx y=ty text=text / textattrs=(size=216pt color=black weight=bold) strip=true contributeoffsets=none; * Seconds remaining;
    endlayout;
  endgraph;
end;
run;
                                                           * Create animated GIF film countdown leader followed by Happy New Year! message;
ods _all_ close;                                           * Animated GIF setup;
options papersize=('5 in', '5 in') printerpath=gif animation=start 
        nodate nonumber animloop=YES NOANIMOVERLAY;
ods printer file='/folders/myfolders/filmlead.gif';
ods graphics / width=5in height=5in imagefmt=GIF;

options animduration=.04;                                   * 25 frames per second;
proc sgrender data=points template=filmtemplate;            * Generate countdown frames using BY statement;
by descending counter angle;                                
run;

data year;                                                  * Text for Happy New Year message;
retain tx ty 0 msg "2020" tx2 0 ty2 .9 msg2 "HAPPY NEW YEAR!";

options animduration=2;                                     * Generate Happy New Year! message frame (2 seconds);
proc sgplot data=year aspect=1 noborder opaque nowall noautolegend;
styleattrs backcolor=black;
text x=tx y=ty text=msg / textattrs=(size=128pt color=white weight=bold) contributeoffsets=none;
text x=tx2 y=ty2 text=msg2 / textattrs=(size=30pt color=white weight=bold) contributeoffsets=none position=bottom;
xaxis display=none values=(-1 0 1); yaxis display=none values=(-1 0 1);
run;

options printerpath=gif animation=stop;                     * Animated GIF wrapup;
ods printer close;
1 REPLY 1

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
  • 1 reply
  • 1129 views
  • 8 likes
  • 2 in conversation