On Wed, 15 Sep 2010, Henning Hraban Ramm wrote:
\starttext
\setupcolors[state=start]
\definedfont[SansBold at 35mm]
\baselineskip 0pt % switch off the space between the stripes
\lineskip 0pt
\def\MyLogo{\vbox{\hbox{\CONTEXT}\null}} % null is necessary for the
whole bounding box
\def\Number{30}
\dorecurse{\Number}{\definecolor[Col:\recurselevel][c=0,m=\ctxlua{tex.print(\recurselevel/\Number)},y=1,k=0]}
\dorecurse{\Number}{
\clip[ny=\Number,y=\recurselevel]{\color[Col:\recurselevel]\MyLogo}
}
\hbox{\dorecurse{\Number}{\clip[nx=\Number,x=\recurselevel]{\color[Col:\recurselevel]\MyLogo}}}
\stoptext
Add \showboxes to see what is happening :)
Aditya
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________