‹ swikiSunday Drawings ›

klipp av Logo

2009-12-28 19:09:55 supercollider

Some SuperCollider code to generate old school klipp av logos.

klipp av generated logo nystan 0

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})});
)

klipp av generated logo nystan 1

‹ swikiSunday Drawings ›