klipp av Logo

Some SuperCollider code to generate old school klipp av logos.

Click the window in the SuperCollider code to generate new pictures.

//redFrik
(
  var width= 800, height= 600;
  var win, usr, p0, p1, l= 50, w= 10, h= 15, c= 0.9, o= 0.1;
  win= Window("nystan", Rect(128, 64, width, height), false);
  usr= UserView(win, Rect(0, 0, width, height));
  usr.mouseDownAction= {usr.refresh};
  usr.background= Color.new255(51, 47, 57);
  win.front;
  usr.drawFunc= {
    Pen.translate(width*0.5, height*0.5);
    5.rrand(20).do{
      var p, pp1, len;
      Pen.rotate(pi.linrand);
      p0= Point(0, 0);
      p1= Point(0, h.rand*10.linrand);
      pp1= p1;
      (20.linrand).do{|i|
        len= l+l.rand2;
        Pen.color= Color(c, c, c.rrand(1.0), (1-c).rrand(1.0));
        Pen.moveTo(p0);
        Pen.lineTo(p1);
        if(o.coin, {
          p= 200.rand;
          p0= p0+p;
          p1= p1+p;
        }, {
          p0= p0+Point(len+w.rand2, h.rand);
          p1= p1+Point(len+w.rand2, h.rand);
        });
        Pen.lineTo(p1);
        Pen.lineTo(p0);
        Pen.draw(0);
      };
      Pen.moveTo(p0);
      Pen.lineTo(p1);
      Pen.lineTo(pp1);
      Pen.lineTo(Point(0, 0));
      Pen.draw(5.rand);
    };
  };
  CmdPeriod.doOnce({if(win.isClosed.not, {win.close})});
)