SAS Art Competition 2017

SAS Art Competition 2017 - Open to all

It's that time of year again!

We would like to invite all SAS users to take part in our annual art competition. The winning entry shall 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 24th November 2017. We would ideally like the artwork to be printable in large format (A0 or 1 metre square approximately) though 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).

We are also opening the Christmas competition. The winning entry will receive a £200 shopping token and will also feature on PHASTAR Christmas cards this year.

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

Here's an example:

SAS Art Example

This artwork was 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.

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;