/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:
Näissä on kyllä meininkiä. Mahtavaa touhua edelleen. Tästä kyseisestä tulee vähän TOOLin Undertow-levyn kansikuva mieleen.
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
Skicka en kommentar