chickenize (29may12)

git-svn-id: svn://tug.org/texlive/trunk@26702 c570f23f-e606-0410-a88d-b1316a301751

6 files changed, 104 insertions, 89 deletions

diff --git a/Master/texmf-dist/doc/luatex/chickenize/README.tex b/Master/texmf-dist/doc/luatex/chickenize/README.tex
deleted file mode 100644
index 0d8c06a66ac..00000000000
--- a/Master/texmf-dist/doc/luatex/chickenize/README.tex
+++ /dev/null
@@ -1,19 +0,0 @@
-This is the README file of the chickenize package. The package provides several commands and Lua functions to manipulate the input or output tokens of any Lua(La)TeX document. It serves mostly educational and playful usage, but some functions may be used in serious documents.
-
-To produce the package files, run lualatex on chickinize.dtx, wich should result in the creation of the following files:
-  chickenize.pdf  (documentation)
-  chickenize.tex  (plainTeX user interface)
-  chickenize.sty  (LaTeX user interface)
-  chickenize.lua  (Lua package code) [does the actual work]
-
-You need an up-to-date TeX Live (2011 or 2012, if possible) to use this package. Maybe a full MiKTeX will do, too.
-
-For any comments or suggestions, contact me:
-arno dot trautmann at gmx dot de
-
-Hope you have fun with this package!
-
-This package is copyright © 20012 Arno L. Trautmann. It may be distributed and/or
-modified under the conditions of the LaTeX Project Public License, either version 1.3c
-of this license or (at your option) any later version. This work has the LPPL mainten-
-ance status ‘author-maintained’.
diff --git a/Master/texmf-dist/doc/luatex/chickenize/chickenize.pdf b/Master/texmf-dist/doc/luatex/chickenize/chickenize.pdf
index 04bd719012a..0314570d0d6 100644
--- a/Master/texmf-dist/doc/luatex/chickenize/chickenize.pdf
+++ b/Master/texmf-dist/doc/luatex/chickenize/chickenize.pdf
diff --git a/Master/texmf-dist/source/luatex/chickenize/chickenize.dtx b/Master/texmf-dist/source/luatex/chickenize/chickenize.dtx
index a8eff7dc491..d6705e348ba 100644
--- a/Master/texmf-dist/source/luatex/chickenize/chickenize.dtx
+++ b/Master/texmf-dist/source/luatex/chickenize/chickenize.dtx
@@ -12,7 +12,7 @@ To produce the package files, run lualatex on chickinize.dtx, wich should result
   chickenize.sty  (LaTeX user interface)
   chickenize.lua  (Lua package code) [does the actual work]
 
-You need an up-to-date TeX Live (2011 or 2012, if possible) to use this package. Maybe a full MiKTeX will do, too.
+You need an up-to-date TeX Live (2011 or 2012, if possible) to use this package. Maybe a full MiKTeX will do, too. (Not tested!)
 
 For any comments or suggestions, contact me:
 arno dot trautmann at gmx dot de
@@ -37,11 +37,6 @@ ance status ‘author-maintained’.
 
 EXPERIMENTAL CODE
 
-Do not distribute this file without also distributing the
-source files specified above.
-
-Do not distribute a modified version of this file under the same name.
-
 This package is copyright © 20012 Arno L. Trautmann. It may be distributed and/or
 modified under the conditions of the LaTeX Project Public License, either version 1.3c
 of this license or (at your option) any later version. This work has the LPPL mainten-
@@ -63,7 +58,10 @@ ance status ‘author-maintained’.
 
 \generate{\file{chickenize.lua}{\from{chickenize.dtx}{lua}}}
 \nopreamble\nopostamble
-\generate{\file{README}{\from{chickenize.dtx}{readme}}}
+\catcode`\@12
+
+%\generate{\file{README.}{\from{chickenize.dtx}{readme}}}
+% readme will not be generated until I figured out how to write a file without extension
 
 
 \ifx\fmtname\nameofplainTeX
@@ -91,22 +89,31 @@ ance status ‘author-maintained’.
   filecolor=blue,
   urlcolor=blue
 }
-%\geometry{a4paper}
 
-\cfoot{\directlua{if math.random() > .5 then tex.print("chicken") else tex.print("Chicken") end} \pagemark}
+\cfoot{chicken \pagemark}
 \ohead{}
 \pagestyle{scrheadings}
-\setmainfont{TeX Gyre Pagella}
+\setmainfont{Linux Libertine O}
+\setsansfont{Linux Biolinum O}
+
+\usepackage{chickenize}
+\chickenizesetup{
+  rainbow_step=0.3
+}
 
-\author{Arno Trautmann\\ \href{mailto:arno.trautmann@gmx.de}{arno.trautmann@gmx.de}}
 \begin{document}
 {\hfill \parbox{6.3cm}{{\fontspec{TeX Gyre Chorus}{\large »\,}The Monty Pythons, were they \TeX~users,\\\hspace*{.2em} could have written the chickenize macro.{\large \textit «}}\\[1ex]
 \hspace*{4cm}\small Paul Isambert}\kern-2.5cm
 }
 
-\centerline{\fontsize{35}{0}\selectfont \fontspec[Letters=Random]{Punk Nova}chickenize}
+\begin{center}
+\rainbowcolor
+\fontsize{55}{0}\selectfont \fontspec[Letters=Random]{Punk Nova}
+chickenize
+\end{center}
+
+\unrainbowcolor
 
-\kern.5cm
 \centerline{v0.1}
 \centerline{\hspace*{2cm} Arno Trautmann}
 \centerline{\href{mailto:arno.trautmann@gmx.de}{arno.trautmann@gmx.de}}
@@ -156,8 +163,9 @@ of this license or (at your option) any later version. This work has the LPPL ma
 \hyperref[sec:chickenize]{chickenize} & replaces every word with “chicken”\\
 \hyperref[sec:guttenbergenize]{guttenbergenize} & deletes every quote and footnotes\\
 \hyperref[sec:hammertime]{hammertime} & U can't touch this!\\
-\hyperref[sec:kernmanipulation]{kernmanipulation} & manipulates the kerning\\
+\hyperref[sec:kernmanipulation]{kernmanipulation} & manipulates the kerning (tbi)\\
 \hyperref[sec:matrixize]{matrixize} & replaces every glyph by its ASCII value in binary code\\
+\hyperref[sec:randomerror]{randomerror} & just throws random (La)\TeX\ errors at random times\\
 \hyperref[sec:randomfonts]{randomfonts} & changes the font randomly between every letter\\
 \hyperref[sec:randomchars]{randomchars} & randomizes the (letters of the) whole input\\
 \bottomrule
@@ -188,16 +196,12 @@ The effect of the commands can be influenced, not with arguments, but only via t
 \command{dubstepenize} synomym for |\dubstepize| as I am not sure what is the better name. Both macros are just a special case of |chickenize| with a very special “zoo” … there is no |\undubstepize| – once you go dubstep, you cannot go back …
 \command{hammertime} STOP! —— Hammertime!
 \command{uppercasecolor} Makes every uppercase character in the input colored. At the moment, the color is randomized over the full rgb scale, but that will be adjustable once options are well implemented.
+\command{randomerror} Just throws a random \TeX\ or \LaTeX\ error at a random time during the compilation. I have quite no idea what this could be used for.
 \command{randomuclc} Changes every character of the input into its uppercase or lowercase variant. Well, guess what the “random” means …
 \command{randomfonts} Changes the font randomly for every character. If no parameters are given, all fonts that have been loaded are used, especially including math fonts.
 \command{randomcolor} Does what its name says.
 \command{rainbowcolor} Instead of random colors, this command causes the text color to change gradually according to the colors of a rainbow. Do not mix this with |randomcolor|, as that doesn't make any sense.
-\command{pancakenize} This is a dummy so far, as I have no idea what it should do. If you have suggestions, please tell me.
-                      % \footnote{% Maybe just pretend that the absence of functionality is intentional... [phg]
-                      %   From an absurdist perspective, the |pancakenize| command can be perceived
-                      %   as a reminder to the user to email the package maintainer their own
-                      %   suggestions for further functionality.
-                      % }
+\command{pancakenize} This is a dummy command that does nothing. However, every time you use it, you owe a pancake to the package author. You can either send it via mail or bring it to some (local) \TeX\ user's group meeting.
 \command{tabularasa} Takes every glyph out of the document and replaces it by empty space of the same width. That could be useful if you want to hide some part of a text or similar. The |\text|-version is most likely more useful.
 \command{leetspeak} Translates the input into 1337 speak. If you don't understand that, lern it, n00b.
 \command{nyanize} A synonym for |rainbowcolor|.
@@ -240,17 +244,11 @@ The following list tries to kind of keep track of the options and variables. The
 \item[\opt{chickenstring} = \arg{table}] The string that is printed when using |\chickenize|. In fact, |chickenstring| is a table which allows for some more random action. To specify the default string, say |chickenstring[1] = 'chicken'|. For more than one animal, just step the index: |chickenstring[2] = 'rabbit'|. All existing table entries will be used randomly. Remember that we are dealing with Lua strings here, so use |' '| to mark them. (|" "| can cause problems with |babel|.)
 \item[\opt{chickenizefraction} = \arg{float} \default{1}] Gives the fraction of words that get replaced by the |chickenstring|. The default means that every word is substituted. However, with a value of, say, |0.0001|, only one word in ten thousand will be |chickenstring|. |chickenizefraction| must be specified \emph{after} |\begin{document}|. No idea, why …
 \item[\opt{chickencount} = \arg{true}] Activates the counting of substituted words and prints the number at the end of the terminal output.
-<<<<<<< HEAD
 \item[\opt{colorstretchnumbers} = \arg{true} \default{0}] If true, the amount of stretching or shrinking of each line is printed into the margin as a green, red or black number.
 \item[\opt{chickenkernamount} = \arg{int}] The amount the kerning is set to when using |\kernmanipulate|.
 \item[\opt{chickenkerninvert} = \arg{bool}] If set to true, the kerning is inverted (to be used with |\kernmanipulate|.
 \item[\opt{leettable} = \arg{table}] From this table, the substitution for 1337 is taken. If you want to add or change an entry, you have to provide the unicode numbers of the characters, e.\,g. |leettable[101] = 50| replaces every |e| (|101|) with the number |3| (|50|).
 \item[\opt{uclcratio} = \arg{float} \default{0.5}] Gives the fraction of uppercases to lowercases in the |\randomuclc| mode. A higher number (up to 1) gives more uppercase letters. Guess what a lower number does.
-=======
-\item[\opt{colorstretchnumbers} = \arg{true}] If true, the amount of stretching or shrinking of each line is printed into the margin as a green, red or black number.
-\item[\opt{leettable} = \arg{table}] From this table, the substitution for 1337 is taken. If you want to add or change an entry, you have to provide the unicode code points of the characters, e.\,g. |leettable[101] = 50| replaces every |e| (|101|) with the number |3| (|50|).
-\item[\opt{uclcratio} = \arg{float} \default{0.5}] Gives the fraction of uppercases to lowercases in the |\randomuclc| mode. A higher number (up to 1) will result in more uppercase letters. Guess what a lower number does.
->>>>>>> d9c88b6094abe878dd97cfd77f26e514b1d66c63
 \item[\opt{randomcolor\_grey} = \arg{bool} \default{false}] For a printer-friendly version, this offers a grey scale instead of an rgb value for |\randomcolor|.
 \item[\opt{rainbow\_step} = \arg{float} \default{0.005}] This indicates the relative change of color using the rainbow functionality. A value of |1| changes the color in one step from red to yellow, while a value of |0.005| takes 200 letters for the transition to be completed. Useful values are below |0.05|, but it depends on the amount of text. The longer the text and the lower the |step|, the nicer your rainbow will be.
 \item[\opt{Rgb\_lower}, \opt{rGb\_upper} = \arg{int}] To specify the color space that is used for |\randomcolor|, you can specify six values, the upper and lower value for each color. The uppercase letter in the variable denotes the color, so |rGb_upper| gives the upper value for green etc. Possible values are between |1| and |254|. If you enter anything outside this range, your PDF will become invalid and break. For grey scale, use |grey_lower| and |grey_upper|, with values between |0| (black) and |1000| (white), included. Default is |0| to |900| to prevent white letters.
@@ -353,9 +351,11 @@ The namespace of the chickenize package is \emph{not} consistent. Please don't t
 % This file is more-or-less a dummy file to offer a nice interface for the functions. Basically, every macro registers a function of the same name in the corresponding callback. The |un|-macros later remove these functions. Where it makes sense, there are |text|-variants that activate the function only in a certain area of the text, by means of Lua\TeX's attributes.
 %
 % For (un)registering, we use the |luatexbase| package. Then, the |.lua| file is loaded which does the actual work. Finally, the \TeX\ macros are defined as simple |\directlua| calls.
+% 
+% The Lua file is not found by using a simple |dofile("chickenize.lua")| call, but we have to use kpse's |find_file|.
 %    \begin{macrocode}
 \input{luatexbase.sty}
-\directlua{dofile("chickenize.lua")}
+\directlua{dofile(kpse.find_file("chickenize.lua"))}
 
 \def\chickenize{
   \directlua{luatexbase.add_to_callback("pre_linebreak_filter",chickenize,"chickenize")
@@ -469,15 +469,13 @@ The namespace of the chickenize package is \emph{not} consistent. Please don't t
 \def\unmatrixize{
   \directlua{luatexbase.remove_from_callback("pre_linebreak_filter",matrixize)}}
 
-\def\milkcow{     %% to be implemented
+\def\milkcow{     %% FIXME %% to be implemented
   \directlua{}}
 \def\unmilkcow{
   \directlua{}}
 
-\def\pancakenize{        %% to be implemented
-  \directlua{}}
-\def\unpancakenize{
-  \directlua{}}
+\def\pancakenize{
+  \directlua{luatexbase.add_to_callback("stop_run",pancaketext,"pancaketext")}}
 
 \def\rainbowcolor{
   \directlua{luatexbase.add_to_callback("post_linebreak_filter",randomcolor,"rainbowcolor")
@@ -493,6 +491,11 @@ The namespace of the chickenize package is \emph{not} consistent. Please don't t
 \def\unrandomcolor{
   \directlua{luatexbase.remove_from_callback("post_linebreak_filter","randomcolor")}}
 
+\def\randomerror{ %% FIXME
+  \directlua{luatexbase.add_to_callback("post_linebreak_filter",randomcolor,"randomcolor")}}    
+\def\unrandomerror{ %% FIXME
+  \directlua{luatexbase.remove_from_callback("post_linebreak_filter","randomcolor")}}
+
 \def\randomfonts{
   \directlua{luatexbase.add_to_callback("post_linebreak_filter",randomfonts,"randomfonts")}}
 \def\unrandomfonts{
@@ -535,6 +538,7 @@ The namespace of the chickenize package is \emph{not} consistent. Please don't t
 \newluatexattribute\randfontsattr
 \newluatexattribute\randuclcattr
 \newluatexattribute\tabularasaattr
+\newluatexattribute\uppercasecolorattr
 
 \long\def\textleetspeak#1%
   {\setluatexattribute\leetattr{42}#1\unsetluatexattribute\leetattr}
@@ -548,6 +552,8 @@ The namespace of the chickenize package is \emph{not} consistent. Please don't t
   {\setluatexattribute\randuclcattr{42}#1\unsetluatexattribute\randuclcattr}
 \long\def\texttabularasa#1%
   {\setluatexattribute\tabularasaattr{42}#1\unsetluatexattribute\tabularasaattr}
+\long\def\textuppercasecolor#1%
+  {\setluatexattribute\uppercasecolorattr{42}#1\unsetluatexattribute\uppercasecolorattr}
 %    \end{macrocode}
 % Finally, a macro to control the setup. So far, it's only a wrapper that allows \TeX-style comments to make the user feel more at home.
 %    \begin{macrocode}
@@ -744,7 +750,7 @@ chickenize = function(head)
   return head
 end
 
-local separator    = string.rep("=", 28)
+local separator     = string.rep("=", 28)
 local texiowrite_nl = texio.write_nl
 nicetext = function()
   texiowrite_nl("Output written on "..tex.jobname..".pdf ("..status.total_pages.." chicken,".." eggs).")
@@ -969,8 +975,20 @@ matrixize = function(head)
 end
 %    \end{macrocode}
 % \subsection{pancakenize}\label{sec:pancakenize}
-% Not yet completely decided what this should do, but it might come down to inserting a cooking recipe for a … well, guess what. Possible implementations are: Substitute a whole sentence, from full-stop to full-stop. OR: Substitute word-by-word at a random place. OR (expert-freak-1337-level): Substitute the n-th word of each page to a word of the recipe. That would be totally awesome!!
 %    \begin{macrocode}
+local separator     = string.rep("=", 28)
+local texiowrite_nl = texio.write_nl
+pancaketext = function()
+  texiowrite_nl("Output written on "..tex.jobname..".pdf ("..status.total_pages.." chicken,".." eggs).")
+  texiowrite_nl(" ")
+  texiowrite_nl(separator)
+  texiowrite_nl("Soo ... you decided to use \\pancakenize.")
+  texiowrite_nl("That means you owe me a pancake!")
+  texiowrite_nl(" ")
+  texiowrite_nl("(This goes by document, not compilation.)")
+  texiowrite_nl(separator.."\n\n")
+  texiowrite_nl("Looking forward for my pancake! :)")
+end
 %    \end{macrocode}
 % \subsection{randomfonts}\label{sec:randomfonts}
 % Traverses the output and substitutes fonts randomly. A check is done so that the font number is existing.
@@ -1100,6 +1118,10 @@ randomcolor = function(head)
   return head
 end
 %    \end{macrocode}
+% \subsection{randomerror}\label{sec:randomerror}
+%    \begin{macrocode}
+% 
+%    \end{macrocode}
 % \subsection{rickroll}\label{sec:rickroll}
 % Another tribute to pop culture. Either: substitute word-by-word as in pancake. OR: substitute each link to a youtube-rickroll …
 %    \begin{macrocode}
@@ -1112,7 +1134,7 @@ tabularasa_onlytext = false
 tabularasa = function(head)
   local s = nodenew(nodeid"kern")
   for line in nodetraverseid(nodeid"hlist",head) do
-    for n in nodetraverseid(nodeid"glyph",line.list) do
+    for n in nodetraverseid(nodeid"glyph",line.head) do
       if not(tabularasa_onlytext) or node.has_attribute(n,luatexbase.attributes.tabularasaattr) then
         s.kern = n.width
         nodeinsertafter(line.list,n,nodecopy(s))
@@ -1126,14 +1148,18 @@ end
 % \subsection{uppercasecolor}\label{sec:uppercasecolor}
 % Loop through all the nodes and checking whether it is uppercase. If so (and also for small caps), color it.
 %    \begin{macrocode}
+uppercasecolor_onlytext = false
+
 uppercasecolor = function (head)
   for line in nodetraverseid(Hhead,head) do 
     for upper in nodetraverseid(GLYPH,line.head) do
-      if (((upper.char > 64) and (upper.char < 91)) or
-          ((upper.char > 57424) and (upper.char < 57451)))  then  -- for small caps! nice ☺
-        color_push.data = randomcolorstring()  -- color or grey string
-        line.head = nodeinsertbefore(line.head,upper,nodecopy(color_push))
-        nodeinsertafter(line.head,upper,nodecopy(color_pop))
+      if not(uppercasecolor_onlytext) or node.has_attribute(upper,luatexbase.attributes.uppercasecolorattr) then
+        if (((upper.char > 64) and (upper.char < 91)) or
+            ((upper.char > 57424) and (upper.char < 57451)))  then  -- for small caps! nice ☺
+          color_push.data = randomcolorstring()  -- color or grey string
+          line.head = nodeinsertbefore(line.head,upper,nodecopy(color_push))
+          nodeinsertafter(line.head,upper,nodecopy(color_pop))
+        end
       end
     end
   end
@@ -1260,13 +1286,13 @@ colorstretch = function (head)
   return head
 end
 %    \end{macrocode}
-% \subsection*{dubstepize}
+% \subsection*{dubstepize} %% FIXME – Isn't that already implemented above?
 % BROOOAR WOBWOBWOB BROOOOAR WOBWOBWOB BROOOOAR WOB WOB WOB …
 %    \begin{macrocode}
 
 %    \end{macrocode}
 % \subsection*{scorpionize}
-% These functions intentionally not documented.
+% This function's intentionally not documented. In memoriam scorpionem. %% FIXME
 %    \begin{macrocode}
 function scorpionize_color(head)
   color_push.data = ".35 .55 .75 rg"
diff --git a/Master/texmf-dist/tex/luatex/chickenize/chickenize.lua b/Master/texmf-dist/tex/luatex/chickenize/chickenize.lua
index a331b6536f8..670ec02b2e5 100644
--- a/Master/texmf-dist/tex/luatex/chickenize/chickenize.lua
+++ b/Master/texmf-dist/tex/luatex/chickenize/chickenize.lua
@@ -8,11 +8,6 @@
 --  
 --  EXPERIMENTAL CODE
 --  
---  Do not distribute this file without also distributing the
---  source files specified above.
---  
---  Do not distribute a modified version of this file under the same name.
---  
 --  This package is copyright © 20012 Arno L. Trautmann. It may be distributed and/or
 --  modified under the conditions of the LaTeX Project Public License, either version 1.3c
 --  of this license or (at your option) any later version. This work has the LPPL mainten-
@@ -118,7 +113,7 @@ chickenize = function(head)
   return head
 end
 
-local separator    = string.rep("=", 28)
+local separator     = string.rep("=", 28)
 local texiowrite_nl = texio.write_nl
 nicetext = function()
   texiowrite_nl("Output written on "..tex.jobname..".pdf ("..status.total_pages.." chicken,".." eggs).")
@@ -292,6 +287,19 @@ matrixize = function(head)
   end
   return head
 end
+local separator     = string.rep("=", 28)
+local texiowrite_nl = texio.write_nl
+pancaketext = function()
+  texiowrite_nl("Output written on "..tex.jobname..".pdf ("..status.total_pages.." chicken,".." eggs).")
+  texiowrite_nl(" ")
+  texiowrite_nl(separator)
+  texiowrite_nl("Soo ... you decided to use \\pancakenize.")
+  texiowrite_nl("That means you owe me a pancake!")
+  texiowrite_nl(" ")
+  texiowrite_nl("(This goes by document, not compilation.)")
+  texiowrite_nl(separator.."\n\n")
+  texiowrite_nl("Looking forward for my pancake! :)")
+end
 local randomfontslower = 1
 local randomfontsupper = 0
 randomfonts = function(head)
@@ -397,7 +405,7 @@ tabularasa_onlytext = false
 tabularasa = function(head)
   local s = nodenew(nodeid"kern")
   for line in nodetraverseid(nodeid"hlist",head) do
-    for n in nodetraverseid(nodeid"glyph",line.list) do
+    for n in nodetraverseid(nodeid"glyph",line.head) do
       if not(tabularasa_onlytext) or node.has_attribute(n,luatexbase.attributes.tabularasaattr) then
         s.kern = n.width
         nodeinsertafter(line.list,n,nodecopy(s))
@@ -407,14 +415,18 @@ tabularasa = function(head)
   end
   return head
 end
+uppercasecolor_onlytext = false
+
 uppercasecolor = function (head)
   for line in nodetraverseid(Hhead,head) do
     for upper in nodetraverseid(GLYPH,line.head) do
-      if (((upper.char > 64) and (upper.char < 91)) or
-          ((upper.char > 57424) and (upper.char < 57451)))  then  -- for small caps! nice ☺
-        color_push.data = randomcolorstring()  -- color or grey string
-        line.head = nodeinsertbefore(line.head,upper,nodecopy(color_push))
-        nodeinsertafter(line.head,upper,nodecopy(color_pop))
+      if not(uppercasecolor_onlytext) or node.has_attribute(upper,luatexbase.attributes.uppercasecolorattr) then
+        if (((upper.char > 64) and (upper.char < 91)) or
+            ((upper.char > 57424) and (upper.char < 57451)))  then  -- for small caps! nice ☺
+          color_push.data = randomcolorstring()  -- color or grey string
+          line.head = nodeinsertbefore(line.head,upper,nodecopy(color_push))
+          nodeinsertafter(line.head,upper,nodecopy(color_pop))
+        end
       end
     end
   end
diff --git a/Master/texmf-dist/tex/luatex/chickenize/chickenize.sty b/Master/texmf-dist/tex/luatex/chickenize/chickenize.sty
index 60d18dff98f..18ef07d7c50 100644
--- a/Master/texmf-dist/tex/luatex/chickenize/chickenize.sty
+++ b/Master/texmf-dist/tex/luatex/chickenize/chickenize.sty
@@ -8,11 +8,6 @@
 %% 
 %% EXPERIMENTAL CODE
 %% 
-%% Do not distribute this file without also distributing the
-%% source files specified above.
-%% 
-%% Do not distribute a modified version of this file under the same name.
-%% 
 %% This package is copyright © 20012 Arno L. Trautmann. It may be distributed and/or
 %% modified under the conditions of the LaTeX Project Public License, either version 1.3c
 %% of this license or (at your option) any later version. This work has the LPPL mainten-
diff --git a/Master/texmf-dist/tex/luatex/chickenize/chickenize.tex b/Master/texmf-dist/tex/luatex/chickenize/chickenize.tex
index a6304f359f8..d47e345380c 100644
--- a/Master/texmf-dist/tex/luatex/chickenize/chickenize.tex
+++ b/Master/texmf-dist/tex/luatex/chickenize/chickenize.tex
@@ -8,17 +8,12 @@
 %% 
 %% EXPERIMENTAL CODE
 %% 
-%% Do not distribute this file without also distributing the
-%% source files specified above.
-%% 
-%% Do not distribute a modified version of this file under the same name.
-%% 
 %% This package is copyright © 20012 Arno L. Trautmann. It may be distributed and/or
 %% modified under the conditions of the LaTeX Project Public License, either version 1.3c
 %% of this license or (at your option) any later version. This work has the LPPL mainten-
 %% ance status ‘author-maintained’.
 \input{luatexbase.sty}
-\directlua{dofile("chickenize.lua")}
+\directlua{dofile(kpse.find_file("chickenize.lua"))}
 
 \def\chickenize{
   \directlua{luatexbase.add_to_callback("pre_linebreak_filter",chickenize,"chickenize")
@@ -128,15 +123,13 @@
 \def\unmatrixize{
   \directlua{luatexbase.remove_from_callback("pre_linebreak_filter",matrixize)}}
 
-\def\milkcow{     %% to be implemented
+\def\milkcow{     %% FIXME %% to be implemented
   \directlua{}}
 \def\unmilkcow{
   \directlua{}}
 
-\def\pancakenize{        %% to be implemented
-  \directlua{}}
-\def\unpancakenize{
-  \directlua{}}
+\def\pancakenize{
+  \directlua{luatexbase.add_to_callback("stop_run",pancaketext,"pancaketext")}}
 
 \def\rainbowcolor{
   \directlua{luatexbase.add_to_callback("post_linebreak_filter",randomcolor,"rainbowcolor")
@@ -152,6 +145,11 @@
 \def\unrandomcolor{
   \directlua{luatexbase.remove_from_callback("post_linebreak_filter","randomcolor")}}
 
+\def\randomerror{ %% FIXME
+  \directlua{luatexbase.add_to_callback("post_linebreak_filter",randomcolor,"randomcolor")}}
+\def\unrandomerror{ %% FIXME
+  \directlua{luatexbase.remove_from_callback("post_linebreak_filter","randomcolor")}}
+
 \def\randomfonts{
   \directlua{luatexbase.add_to_callback("post_linebreak_filter",randomfonts,"randomfonts")}}
 \def\unrandomfonts{
@@ -191,6 +189,7 @@
 \newluatexattribute\randfontsattr
 \newluatexattribute\randuclcattr
 \newluatexattribute\tabularasaattr
+\newluatexattribute\uppercasecolorattr
 
 \long\def\textleetspeak#1%
   {\setluatexattribute\leetattr{42}#1\unsetluatexattribute\leetattr}
@@ -204,6 +203,8 @@
   {\setluatexattribute\randuclcattr{42}#1\unsetluatexattribute\randuclcattr}
 \long\def\texttabularasa#1%
   {\setluatexattribute\tabularasaattr{42}#1\unsetluatexattribute\tabularasaattr}
+\long\def\textuppercasecolor#1%
+  {\setluatexattribute\uppercasecolorattr{42}#1\unsetluatexattribute\uppercasecolorattr}
 \def\chickenizesetup#1{\directlua{#1}}
 \long\def\luadraw#1#2{%
   \vbox to #1bp{%