torsdag, april 13, 2006

b cos (2 nite)



/Helvetica findfont
100 scalefont
setfont
1.2 setlinewidth
/b 50 def

newpath
0 0 moveto
400 0 lineto
400 400 lineto
0 400 lineto
closepath
fill

0 5 360 {
    newpath
    gsave
        /k exch def
        /r b 2 k mul cos mul def
        200 r k cos mul add
        200 r k sin mul add
        moveto
        k 90 sub rotate
        0 -25 rmoveto
        (nite) true charpath
        gsave
            .6 0 0 setrgbcolor
            fill
        grestore
        0 0 0 setrgbcolor
        stroke
    grestore
} for

2 kommentarer:

Schnabelmann sa...

Näissä on kyllä meininkiä. Mahtavaa touhua edelleen. Tästä kyseisestä tulee vähän TOOLin Undertow-levyn kansikuva mieleen.

marko sa...

Tänks. Googlasin Undertow'n, ja samaa fiilistähän niissä hieman on. Jahka opin käyttämään useampaa väriä kerralla, päästään ehkä vielä lähemmäs.

ravnh