Polar Flower 007

Rupert Russell

Ballarat, Australia

  • Available
    Products
    55
  • Artist
    Notes
  • Artwork Comments 1

Apparel

Cases & Skins

Wall Art

Home Decor

Accessories

Stationery

Artist's Description

// draws a Polar Flower 006
// Based on code from http://www.physics.emory.edu/~weeks/ideas/rose....
// Created with Processing

int screenWidth = 13500;
int screenHeight = 13500;
float sWeight = 1;
float xSize = 1;
float ySize = 1;

void setup() {
size(13500, 13500);

background(0); // black background
stroke(255,255,255);
smooth(); // antialias lines
}

float rad;
float theta;
float x;
float y;
float r;

void draw() {
for (rad = 5;rad<600;rad+=4) {
for (theta=0;theta<=2.0*3.14159265;theta+=0.007) {
sWeight = sWeight + 0.001;
;
strokeWeight(sWeight);
r = rad*8 + (16*sin(theta*6+rad*PI/4));
x = r * cos(theta) + screenWidth / 2;
y = r * sin(theta) + screenHeight / 2;

stroke(200*sin(theta*6+rad/12),0,200*cos(theta*6+rad/10));
println(20*sin(theta*6+rad/12));
ellipse(x,y,xSize + xSize + sWeight ,ySize + ySize * sWeight);
}
}
printlin("Saving: "+ “polarFlower006-60e.png”);
save(“polarFlower007-600.png”);
noLoop();
exit();
}

Artwork Comments

desktop tablet-landscape content-width tablet-portrait workstream-4-across phone-landscape phone-portrait
desktop tablet-landscape content-width tablet-portrait workstream-4-across phone-landscape phone-portrait