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
at

2 kommentarer:

  1. √.S. ¿uoma-ahoapril 13, 2006 4:08 em

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

    SvaraRadera
  2. markoapril 14, 2006 6:26 em

    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

    SvaraRadera

Obs! Endast bloggmedlemmar kan kommentera.