SAS Art Competition 2016

SAS Art Competition 2016 - Open to all

Did you know that you can use SAS to create interesting graphics and even conceptual art? We would like to invite all SAS users to take part in a competition to create interesting art and graphics. The winning entry will receive a £500 shopping token (which can be donated to your chosen charity, if preferred). The entries should be sent to This email address is being protected from spambots. You need JavaScript enabled to view it. by 5pm UK time on Friday 25th November 2016. We would ideally like the artwork to be printable in large format (A0 or 1 metre square approximately), although the file can be sent as either a bitmap or JPEG file in smaller format. Please include the SAS code and graphic in your email, along with any other explanation required to understand and/or interpret the artwork. All entries should incorporate at least one of the colours in the PHASTAR logo (the darker colour is cx73002E and the lighter colour is CXAF95A6).


This year we will have an additional category: a £200 shopping token will be awarded to the best Christmas themed SAS generated art, and will also feature on PHASTAR Christmas cards this year.

Here's an example:

SAS Art Example

This artworkwas created using the lighter colour in the PHASTAR logo as the average colour, but randomly selecting new colours. The width of the rings is also normally distributed. The SAS code used to generate the image is at the bottom of this article.

You can find the results of last year's competition here - SAS ART 2015 results.

 

filename art1 'C:\sasart\sasart1.jpg';

goptions device=jpeg xmax=20in ymax=20in gsfname=art1 gsfmode=replace cback=cx73002E;

 

data art10;

  %annomac;

  length function color style $ 8;

  xsys='5'; ysys='5';phcolor="cxAF95A6";phcolor2="cx73002E";

  radius=100;

  do until (radius<1);

    xend = 1+0.5*rannor(1969);

    phcolor="cxAF95A6";

    _red=input(substr(phcolor,3,2),hex2.)+round(40*rannor(1969));

    _grn=input(substr(phcolor,5,2),hex2.)+round(40*rannor(1969));

    _blu=input(substr(phcolor,7,2),hex2.)+round(40*rannor(1969));

    newcol = "CX"||put(_red,hex2.)||put(_grn,hex2.)||put(_blu,hex2.);

    %slice(50,50,0,360,radius,newcol,s,0);

    radius=radius-xend;

  end;

run;



data art10;

  set art10;

  if color = "newcol" then color = newcol;

run;

 

proc gslide annotate=art10;

run;