new luatex package chickenize (21may12)

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

3 files changed, 926 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/luatex/chickenize/chickenize.lua b/Master/texmf-dist/tex/luatex/chickenize/chickenize.lua
new file mode 100644
index 00000000000..a331b6536f8
--- /dev/null
+++ b/Master/texmf-dist/tex/luatex/chickenize/chickenize.lua
@@ -0,0 +1,637 @@
+-- 
+--  This is file `chickenize.lua',
+--  generated with the docstrip utility.
+-- 
+--  The original source files were:
+-- 
+--  chickenize.dtx  (with options: `lua')
+--  
+--  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’.
+
+local nodenew = node.new
+local nodecopy = node.copy
+local nodeinsertbefore = node.insert_before
+local nodeinsertafter = node.insert_after
+local noderemove = node.remove
+local nodeid = node.id
+local nodetraverseid = node.traverse_id
+
+Hhead = nodeid("hhead")
+RULE = nodeid("rule")
+GLUE = nodeid("glue")
+WHAT = nodeid("whatsit")
+COL = node.subtype("pdf_colorstack")
+GLYPH = nodeid("glyph")
+color_push = nodenew(WHAT,COL)
+color_pop = nodenew(WHAT,COL)
+color_push.stack = 0
+color_pop.stack = 0
+color_push.cmd = 1
+color_pop.cmd = 2
+chicken_pagenumbers = true
+
+chickenstring = {}
+chickenstring[1] = "Chicken" -- chickenstring is a table, please remeber this!
+
+chickenizefraction = 0.5
+-- set this to a small value to fool somebody, or to see if your text has been read carefully. This is also a great way to lay easter eggs for your own class / package …
+chicken_substitutions = 0 -- value to count the substituted chickens. Makes sense for testing your proofreaders.
+
+local tbl = font.getfont(font.current())
+local space = tbl.parameters.space
+local shrink = tbl.parameters.space_shrink
+local stretch = tbl.parameters.space_stretch
+local match = unicode.utf8.match
+chickenize_ignore_word = false
+
+chickenize_real_stuff = function(i,head)
+    while ((i.next.id == 37) or (i.next.id == 11) or (i.next.id == 7) or (i.next.id == 0)) do  --find end of a word
+      i.next = i.next.next
+    end
+
+    chicken = {}  -- constructing the node list.
+
+-- Should this be done only once? No, otherwise we lose the freedom to change the string in-document.
+-- But it could be done only once each paragraph as in-paragraph changes are not possible!
+
+    chickenstring_tmp = chickenstring[math.random(1,#chickenstring)]
+    chicken[0] = nodenew(37,1)  -- only a dummy for the loop
+    for i = 1,string.len(chickenstring_tmp) do
+      chicken[i] = nodenew(37,1)
+      chicken[i].font = font.current()
+      chicken[i-1].next = chicken[i]
+    end
+
+    j = 1
+    for s in string.utfvalues(chickenstring_tmp) do
+      local char = unicode.utf8.char(s)
+      chicken[j].char = s
+      if match(char,"%s") then
+        chicken[j] = nodenew(10)
+        chicken[j].spec = nodenew(47)
+        chicken[j].spec.width = space
+        chicken[j].spec.shrink = shrink
+        chicken[j].spec.stretch = stretch
+      end
+      j = j+1
+    end
+
+    node.slide(chicken[1])
+    lang.hyphenate(chicken[1])
+    chicken[1] = node.kerning(chicken[1])    -- FIXME: does not work
+    chicken[1] = node.ligaturing(chicken[1]) -- dito
+
+    nodeinsertbefore(head,i,chicken[1])
+    chicken[1].next = chicken[2] -- seems to be necessary … to be fixed
+    chicken[string.len(chickenstring_tmp)].next = i.next
+  return head
+end
+
+chickenize = function(head)
+  for i in nodetraverseid(37,head) do  --find start of a word
+    if (chickenize_ignore_word == false) then  -- normal case: at the beginning of a word, we jump into chickenization
+      head = chickenize_real_stuff(i,head)
+    end
+
+-- At the end of the word, the ignoring is reset. New chance for everyone.
+    if not((i.next.id == 37) or (i.next.id == 7) or (i.next.id == 22) or (i.next.id == 11)) then
+      chickenize_ignore_word = false
+    end
+
+-- And the random determination of the chickenization of the next word:
+    if math.random() > chickenizefraction then
+      chickenize_ignore_word = true
+    elseif chickencount then
+      chicken_substitutions = chicken_substitutions + 1
+    end
+  end
+  return head
+end
+
+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).")
+  texiowrite_nl(" ")
+  texiowrite_nl(separator)
+  texiowrite_nl("Hello my dear user,")
+  texiowrite_nl("good job, now go outside and enjoy the world!")
+  texiowrite_nl(" ")
+  texiowrite_nl("And don't forget to feed your chicken!")
+  texiowrite_nl(separator .. "\n")
+  if chickencount then
+    texiowrite_nl("There were "..chicken_substitutions.." substitutions made.")
+    texiowrite_nl(separator)
+  end
+end
+local quotestrings = {
+   [171] = true,  [172] = true,
+  [8216] = true, [8217] = true, [8218] = true,
+  [8219] = true, [8220] = true, [8221] = true,
+  [8222] = true, [8223] = true,
+  [8248] = true, [8249] = true, [8250] = true,
+}
+guttenbergenize_rq = function(head)
+  for n in nodetraverseid(nodeid"glyph",head) do
+    local i = n.char
+    if quotestrings[i] then
+      noderemove(head,n)
+    end
+  end
+  return head
+end
+hammertimedelay = 1.2
+local htime_separator = string.rep("=", 30) .. "\n" -- slightly inconsistent with the “nicetext”
+hammertime = function(head)
+  if hammerfirst then
+    texiowrite_nl(htime_separator)
+    texiowrite_nl("============STOP!=============\n")
+    texiowrite_nl(htime_separator .. "\n\n\n")
+    os.sleep (hammertimedelay*1.5)
+    texiowrite_nl(htime_separator .. "\n")
+    texiowrite_nl("==========HAMMERTIME==========\n")
+    texiowrite_nl(htime_separator .. "\n\n")
+    os.sleep (hammertimedelay)
+    hammerfirst = false
+  else
+    os.sleep (hammertimedelay)
+    texiowrite_nl(htime_separator)
+    texiowrite_nl("======U can't touch this!=====\n")
+    texiowrite_nl(htime_separator .. "\n\n")
+    os.sleep (hammertimedelay*0.5)
+  end
+  return head
+end
+itsame = function()
+local mr = function(a,b) rectangle({a*10,b*-10},10,10) end
+color = "1 .6 0"
+for i = 6,9 do mr(i,3) end
+for i = 3,11 do mr(i,4) end
+for i = 3,12 do mr(i,5) end
+for i = 4,8 do mr(i,6) end
+for i = 4,10 do mr(i,7) end
+for i = 1,12 do mr(i,11) end
+for i = 1,12 do mr(i,12) end
+for i = 1,12 do mr(i,13) end
+
+color = ".3 .5 .2"
+for i = 3,5 do mr(i,3) end mr(8,3)
+mr(2,4) mr(4,4) mr(8,4)
+mr(2,5) mr(4,5) mr(5,5) mr(9,5)
+mr(2,6) mr(3,6) for i = 8,11 do mr(i,6) end
+for i = 3,8 do mr(i,8) end
+for i = 2,11 do mr(i,9) end
+for i = 1,12 do mr(i,10) end
+mr(3,11) mr(10,11)
+for i = 2,4 do mr(i,15) end for i = 9,11 do mr(i,15) end
+for i = 1,4 do mr(i,16) end for i = 9,12 do mr(i,16) end
+
+color = "1 0 0"
+for i = 4,9 do mr(i,1) end
+for i = 3,12 do mr(i,2) end
+for i = 8,10 do mr(5,i) end
+for i = 5,8 do mr(i,10) end
+mr(8,9) mr(4,11) mr(6,11) mr(7,11) mr(9,11)
+for i = 4,9 do mr(i,12) end
+for i = 3,10 do mr(i,13) end
+for i = 3,5 do mr(i,14) end
+for i = 7,10 do mr(i,14) end
+end
+chickenkernamount = 0
+chickeninvertkerning = false
+
+function kernmanipulate (head)
+  if chickeninvertkerning then -- invert the kerning
+    for n in nodetraverseid(11,head) do
+      n.kern = -n.kern
+    end
+  else             -- if not, set it to the given value
+    for n in nodetraverseid(11,head) do
+      n.kern = chickenkernamount
+    end
+  end
+  return head
+end
+
+leetspeak_onlytext = false
+leettable = {
+  [101] = 51, -- E
+  [105] = 49, -- I
+  [108] = 49, -- L
+  [111] = 48, -- O
+  [115] = 53, -- S
+  [116] = 55, -- T
+
+  [101-32] = 51, -- e
+  [105-32] = 49, -- i
+  [108-32] = 49, -- l
+  [111-32] = 48, -- o
+  [115-32] = 53, -- s
+  [116-32] = 55, -- t
+}
+leet = function(head)
+  for line in nodetraverseid(Hhead,head) do
+    for i in nodetraverseid(GLYPH,line.head) do
+      if not leetspeak_onlytext or
+         node.has_attribute(i,luatexbase.attributes.leetattr)
+      then
+        if leettable[i.char] then
+          i.char = leettable[i.char]
+        end
+      end
+    end
+  end
+  return head
+end
+local letterspace_glue = nodenew(nodeid"glue")
+local letterspace_spec = nodenew(nodeid"glue_spec")
+local letterspace_pen = nodenew(nodeid"penalty")
+
+letterspace_spec.width   = tex.sp"0pt"
+letterspace_spec.stretch = tex.sp"2pt"
+letterspace_glue.spec    = letterspace_spec
+letterspace_pen.penalty  = 10000
+letterspaceadjust = function(head)
+  for glyph in nodetraverseid(nodeid"glyph", head) do
+    if glyph.prev and (glyph.prev.id == nodeid"glyph" or glyph.prev.id == nodeid"disc") then
+      local g = nodecopy(letterspace_glue)
+      nodeinsertbefore(head, glyph, g)
+      nodeinsertbefore(head, g, nodecopy(letterspace_pen))
+    end
+  end
+  return head
+end
+matrixize = function(head)
+  x = {}
+  s = nodenew(nodeid"disc")
+  for n in nodetraverseid(nodeid"glyph",head) do
+    j = n.char
+    for m = 0,7 do -- stay ASCII for now
+      x[7-m] = nodecopy(n) -- to get the same font etc.
+
+      if (j / (2^(7-m)) < 1) then
+        x[7-m].char = 48
+      else
+        x[7-m].char = 49
+        j = j-(2^(7-m))
+      end
+      nodeinsertbefore(head,n,x[7-m])
+      nodeinsertafter(head,x[7-m],nodecopy(s))
+    end
+    noderemove(head,n)
+  end
+  return head
+end
+local randomfontslower = 1
+local randomfontsupper = 0
+randomfonts = function(head)
+  local rfub
+  if randomfontsupper > 0 then  -- fixme: this should be done only once, no? Or at every paragraph?
+    rfub = randomfontsupper  -- user-specified value
+  else
+    rfub = font.max()        -- or just take all fonts
+  end
+  for line in nodetraverseid(Hhead,head) do
+    for i in nodetraverseid(GLYPH,line.head) do
+      if not(randomfonts_onlytext) or node.has_attribute(i,luatexbase.attributes.randfontsattr) then
+        i.font = math.random(randomfontslower,rfub)
+      end
+    end
+  end
+  return head
+end
+uclcratio = 0.5 -- ratio between uppercase and lower case
+randomuclc = function(head)
+  for i in nodetraverseid(37,head) do
+    if not(randomuclc_onlytext) or node.has_attribute(i,luatexbase.attributes.randuclcattr) then
+      if math.random() < uclcratio then
+        i.char = tex.uccode[i.char]
+      else
+        i.char = tex.lccode[i.char]
+      end
+    end
+  end
+  return head
+end
+randomchars = function(head)
+  for line in nodetraverseid(Hhead,head) do
+    for i in nodetraverseid(GLYPH,line.head) do
+      i.char = math.floor(math.random()*512)
+    end
+  end
+  return head
+end
+randomcolor_grey = false
+randomcolor_onlytext = false --switch between local and global colorization
+rainbowcolor = false
+
+grey_lower = 0
+grey_upper = 900
+
+Rgb_lower = 1
+rGb_lower = 1
+rgB_lower = 1
+Rgb_upper = 254
+rGb_upper = 254
+rgB_upper = 254
+rainbow_step = 0.005
+rainbow_Rgb = 1-rainbow_step -- we start in the red phase
+rainbow_rGb = rainbow_step   -- values x must always be 0 < x < 1
+rainbow_rgB = rainbow_step
+rainind = 1          -- 1:red,2:yellow,3:green,4:blue,5:purple
+randomcolorstring = function()
+  if randomcolor_grey then
+    return (0.001*math.random(grey_lower,grey_upper)).." g"
+  elseif rainbowcolor then
+    if rainind == 1 then -- red
+      rainbow_rGb = rainbow_rGb + rainbow_step
+      if rainbow_rGb >= 1-rainbow_step then rainind = 2 end
+    elseif rainind == 2 then -- yellow
+      rainbow_Rgb = rainbow_Rgb - rainbow_step
+      if rainbow_Rgb <= rainbow_step then rainind = 3 end
+    elseif rainind == 3 then -- green
+      rainbow_rgB = rainbow_rgB + rainbow_step
+      rainbow_rGb = rainbow_rGb - rainbow_step
+      if rainbow_rGb <= rainbow_step then rainind = 4 end
+    elseif rainind == 4 then -- blue
+      rainbow_Rgb = rainbow_Rgb + rainbow_step
+      if rainbow_Rgb >= 1-rainbow_step then rainind = 5 end
+    else -- purple
+      rainbow_rgB = rainbow_rgB - rainbow_step
+      if rainbow_rgB <= rainbow_step then rainind = 1 end
+    end
+    return rainbow_Rgb.." "..rainbow_rGb.." "..rainbow_rgB.." rg"
+  else
+    Rgb = math.random(Rgb_lower,Rgb_upper)/255
+    rGb = math.random(rGb_lower,rGb_upper)/255
+    rgB = math.random(rgB_lower,rgB_upper)/255
+    return Rgb.." "..rGb.." "..rgB.." ".." rg"
+  end
+end
+randomcolor = function(head)
+  for line in nodetraverseid(0,head) do
+    for i in nodetraverseid(37,line.head) do
+      if not(randomcolor_onlytext) or
+         (node.has_attribute(i,luatexbase.attributes.randcolorattr))
+      then
+        color_push.data = randomcolorstring()  -- color or grey string
+        line.head = nodeinsertbefore(line.head,i,nodecopy(color_push))
+        nodeinsertafter(line.head,i,nodecopy(color_pop))
+      end
+    end
+  end
+  return head
+end
+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
+      if not(tabularasa_onlytext) or node.has_attribute(n,luatexbase.attributes.tabularasaattr) then
+        s.kern = n.width
+        nodeinsertafter(line.list,n,nodecopy(s))
+        line.head = noderemove(line.list,n)
+      end
+    end
+  end
+  return head
+end
+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))
+      end
+    end
+  end
+  return head
+end
+keeptext = true
+colorexpansion = true
+
+colorstretch_coloroffset = 0.5
+colorstretch_colorrange = 0.5
+chickenize_rule_bad_height = 4/5 -- height and depth of the rules
+chickenize_rule_bad_depth = 1/5
+
+colorstretchnumbers = true
+drawstretchthreshold = 0.1
+drawexpansionthreshold = 0.9
+colorstretch = function (head)
+  local f = font.getfont(font.current()).characters
+  for line in nodetraverseid(Hhead,head) do
+    local rule_bad = nodenew(RULE)
+
+    if colorexpansion then  -- if also the font expansion should be shown
+      local g = line.head
+        while not(g.id == 37) do
+         g = g.next
+        end
+      exp_factor = g.width / f[g.char].width
+      exp_color = colorstretch_coloroffset + (1-exp_factor)*10 .. " g"
+      rule_bad.width = 0.5*line.width  -- we need two rules on each line!
+    else
+      rule_bad.width = line.width  -- only the space expansion should be shown, only one rule
+    end
+    rule_bad.height = tex.baselineskip.width*chickenize_rule_bad_height -- this should give a better output
+    rule_bad.depth = tex.baselineskip.width*chickenize_rule_bad_depth
+
+    local glue_ratio = 0
+    if line.glue_order == 0 then
+      if line.glue_sign == 1 then
+        glue_ratio = colorstretch_colorrange * math.min(line.glue_set,1)
+      else
+        glue_ratio = -colorstretch_colorrange * math.min(line.glue_set,1)
+      end
+    end
+    color_push.data = colorstretch_coloroffset + glue_ratio .. " g"
+
+-- set up output
+    local p = line.head
+
+  -- a rule to immitate kerning all the way back
+    local kern_back = nodenew(RULE)
+    kern_back.width = -line.width
+
+  -- if the text should still be displayed, the color and box nodes are inserted additionally
+  -- and the head is set to the color node
+    if keeptext then
+      line.head = nodeinsertbefore(line.head,line.head,nodecopy(color_push))
+    else
+      node.flush_list(p)
+      line.head = nodecopy(color_push)
+    end
+    nodeinsertafter(line.head,line.head,rule_bad)  -- then the rule
+    nodeinsertafter(line.head,line.head.next,nodecopy(color_pop)) -- and then pop!
+    tmpnode =  nodeinsertafter(line.head,line.head.next.next,kern_back)
+
+    -- then a rule with the expansion color
+    if colorexpansion then  -- if also the stretch/shrink of letters should be shown
+      color_push.data = exp_color
+      nodeinsertafter(line.head,tmpnode,nodecopy(color_push))
+      nodeinsertafter(line.head,tmpnode.next,nodecopy(rule_bad))
+      nodeinsertafter(line.head,tmpnode.next.next,nodecopy(color_pop))
+    end
+    if colorstretchnumbers then
+      j = 1
+      glue_ratio_output = {}
+      for s in string.utfvalues(math.abs(glue_ratio)) do -- using math.abs here gets us rid of the minus sign
+        local char = unicode.utf8.char(s)
+        glue_ratio_output[j] = nodenew(37,1)
+        glue_ratio_output[j].font = font.current()
+        glue_ratio_output[j].char = s
+        j = j+1
+      end
+      if math.abs(glue_ratio) > drawstretchthreshold then
+        if glue_ratio < 0 then color_push.data = "0.99 0 0 rg"
+        else color_push.data = "0 0.99 0 rg" end
+      else color_push.data = "0 0 0 rg"
+      end
+
+      nodeinsertafter(line.head,node.tail(line.head),nodecopy(color_push))
+      for i = 1,math.min(j-1,7) do
+        nodeinsertafter(line.head,node.tail(line.head),glue_ratio_output[i])
+      end
+      nodeinsertafter(line.head,node.tail(line.head),nodecopy(color_pop))
+    end -- end of stretch number insertion
+  end
+  return head
+end
+
+function scorpionize_color(head)
+  color_push.data = ".35 .55 .75 rg"
+  nodeinsertafter(head,head,nodecopy(color_push))
+  nodeinsertafter(head,node.tail(head),nodecopy(color_pop))
+  return head
+end
+zebracolorarray = {}
+zebracolorarray_bg = {}
+zebracolorarray[1] = "0.1 g"
+zebracolorarray[2] = "0.9 g"
+zebracolorarray_bg[1] = "0.9 g"
+zebracolorarray_bg[2] = "0.1 g"
+function zebranize(head)
+  zebracolor = 1
+  for line in nodetraverseid(nodeid"hhead",head) do
+    if zebracolor == #zebracolorarray then zebracolor = 0 end
+    zebracolor = zebracolor + 1
+    color_push.data = zebracolorarray[zebracolor]
+    line.head =     nodeinsertbefore(line.head,line.head,nodecopy(color_push))
+    for n in nodetraverseid(nodeid"glyph",line.head) do
+      if n.next then else
+        nodeinsertafter(line.head,n,nodecopy(color_pull))
+      end
+    end
+
+    local rule_zebra = nodenew(RULE)
+    rule_zebra.width = line.width
+    rule_zebra.height = tex.baselineskip.width*4/5
+    rule_zebra.depth = tex.baselineskip.width*1/5
+
+    local kern_back = nodenew(RULE)
+    kern_back.width = -line.width
+
+    color_push.data = zebracolorarray_bg[zebracolor]
+    line.head = nodeinsertbefore(line.head,line.head,nodecopy(color_pop))
+    line.head = nodeinsertbefore(line.head,line.head,nodecopy(color_push))
+    nodeinsertafter(line.head,line.head,kern_back)
+    nodeinsertafter(line.head,line.head,rule_zebra)
+  end
+  return (head)
+end
+--
+function pdf_print (...)
+  for _, str in ipairs({...}) do
+    pdf.print(str .. " ")
+  end
+  pdf.print("\string\n")
+end
+
+function move (p)
+  pdf_print(p[1],p[2],"m")
+end
+
+function line (p)
+  pdf_print(p[1],p[2],"l")
+end
+
+function curve(p1,p2,p3)
+  pdf_print(p1[1], p1[2],
+            p2[1], p2[2],
+            p3[1], p3[2], "c")
+end
+
+function close ()
+  pdf_print("h")
+end
+
+function linewidth (w)
+  pdf_print(w,"w")
+end
+
+function stroke ()
+  pdf_print("S")
+end
+--
+
+function strictcircle(center,radius)
+  local left = {center[1] - radius, center[2]}
+  local lefttop = {left[1], left[2] + 1.45*radius}
+  local leftbot = {left[1], left[2] - 1.45*radius}
+  local right = {center[1] + radius, center[2]}
+  local righttop = {right[1], right[2] + 1.45*radius}
+  local rightbot = {right[1], right[2] - 1.45*radius}
+
+  move (left)
+  curve (lefttop, righttop, right)
+  curve (rightbot, leftbot, left)
+stroke()
+end
+
+function disturb_point(point)
+  return {point[1] + math.random()*5 - 2.5,
+          point[2] + math.random()*5 - 2.5}
+end
+
+function sloppycircle(center,radius)
+  local left = disturb_point({center[1] - radius, center[2]})
+  local lefttop = disturb_point({left[1], left[2] + 1.45*radius})
+  local leftbot = {lefttop[1], lefttop[2] - 2.9*radius}
+  local right = disturb_point({center[1] + radius, center[2]})
+  local righttop = disturb_point({right[1], right[2] + 1.45*radius})
+  local rightbot = disturb_point({right[1], right[2] - 1.45*radius})
+
+  local right_end = disturb_point(right)
+
+  move (right)
+  curve (rightbot, leftbot, left)
+  curve (lefttop, righttop, right_end)
+  linewidth(math.random()+0.5)
+  stroke()
+end
+
+function sloppyline(start,stop)
+  local start_line = disturb_point(start)
+  local stop_line = disturb_point(stop)
+  start = disturb_point(start)
+  stop = disturb_point(stop)
+  move(start) curve(start_line,stop_line,stop)
+  linewidth(math.random()+0.5)
+  stroke()
+end
+-- 
+--  End of File `chickenize.lua'.
diff --git a/Master/texmf-dist/tex/luatex/chickenize/chickenize.sty b/Master/texmf-dist/tex/luatex/chickenize/chickenize.sty
new file mode 100644
index 00000000000..60d18dff98f
--- /dev/null
+++ b/Master/texmf-dist/tex/luatex/chickenize/chickenize.sty
@@ -0,0 +1,37 @@
+%%
+%% This is file `chickenize.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% chickenize.dtx  (with options: `package')
+%% 
+%% 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’.
+\ProvidesPackage{chickenize}%
+  [2012/05/20 v0.1 chickenize package]
+\input{chickenize}
+  %% We want to “chickenize” figures, too. So …
+\iffalse
+  \DeclareDocumentCommand\includegraphics{O{}m}{
+     \fbox{Chicken}  %% actually, I'd love to draw an MP graph showing a chicken …
+  }
+%%%% specials: the balmerpeak. A tribute to http://xkcd.com/323/.
+%% So far, you have to load pgfplots yourself.
+%% As it is a mighty package, I don't want the user to force loading it.
+\NewDocumentCommand\balmerpeak{G{}O{-4cm}}{
+%% to be done using Lua drawing.
+}
+\fi
+%% 
+%%
+%% End of file `chickenize.sty'.
diff --git a/Master/texmf-dist/tex/luatex/chickenize/chickenize.tex b/Master/texmf-dist/tex/luatex/chickenize/chickenize.tex
new file mode 100644
index 00000000000..a6304f359f8
--- /dev/null
+++ b/Master/texmf-dist/tex/luatex/chickenize/chickenize.tex
@@ -0,0 +1,252 @@
+%%
+%% This is file `chickenize.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% chickenize.dtx  (with options: `tex')
+%% 
+%% 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")}
+
+\def\chickenize{
+  \directlua{luatexbase.add_to_callback("pre_linebreak_filter",chickenize,"chickenize")
+    luatexbase.add_to_callback("start_page_number",
+    function() texio.write("["..status.total_pages) end ,"cstartpage")
+    luatexbase.add_to_callback("stop_page_number",
+    function() texio.write(" chickens]") end,"cstoppage")
+    luatexbase.add_to_callback("stop_run",nicetext,"a nice text")
+  }
+}
+\def\unchickenize{
+  \directlua{luatexbase.remove_from_callback("pre_linebreak_filter","chickenize")
+    luatexbase.remove_from_callback("start_page_number","cstartpage")
+    luatexbase.remove_from_callback("stop_page_number","cstoppage")}}
+
+\def\coffeestainize{  %% to be implemented.
+  \directlua{}}
+\def\uncoffeestainize{
+  \directlua{}}
+
+\def\colorstretch{
+  \directlua{luatexbase.add_to_callback("post_linebreak_filter",colorstretch,"stretch_expansion")}}
+\def\uncolorstretch{
+  \directlua{luatexbase.remove_from_callback("post_linebreak_filter","stretch_expansion")}}
+
+\def\dosomethingfunny{
+    %% should execute one of the “funny” commands, but randomly. So every compilation is completely different. Maybe a list of commands could be specified to exclude total nonesense-functions. Maybe also on a per-paragraph-basis?
+  }
+
+\def\dubstepenize{
+  \chickenize
+  \directlua{
+    chickenstring[1] = "WOB"
+    chickenstring[2] = "WOB"
+    chickenstring[3] = "WOB"
+    chickenstring[4] = "BROOOAR"
+    chickenstring[5] = "WHEE"
+    chickenstring[6] = "WOB WOB WOB"
+    chickenstring[7] = "WAAAAAAAAH"
+    chickenstring[8] = "duhduh duhduh duh"
+    chickenstring[9] = "BEEEEEEEEEW"
+    chickenstring[10] = "DDEEEEEEEW"
+    chickenstring[11] = "EEEEEW"
+    chickenstring[12] = "boop"
+    chickenstring[13] = "buhdee"
+    chickenstring[14] = "bee bee"
+    chickenstring[15] = "BZZZRRRRRRROOOOOOAAAAA"
+
+    chickenizefraction = 1
+  }
+}
+\let\dubstepize\dubstepenize
+
+\def\guttenbergenize{ %% makes only sense when using LaTeX
+  \AtBeginDocument{
+    \let\grqq\relax\let\glqq\relax
+    \let\frqq\relax\let\flqq\relax
+    \let\grq\relax\let\glq\relax
+    \let\frq\relax\let\flq\relax
+    \gdef\footnote##1{}
+    \gdef\cite##1{}\gdef\parencite##1{}
+    \gdef\Cite##1{}\gdef\Parencite##1{}
+    \gdef\cites##1{}\gdef\parencites##1{}
+    \gdef\Cites##1{}\gdef\Parencites##1{}
+    \gdef\footcite##1{}\gdef\footcitetext##1{}
+    \gdef\footcites##1{}\gdef\footcitetexts##1{}
+    \gdef\textcite##1{}\gdef\Textcite##1{}
+    \gdef\textcites##1{}\gdef\Textcites##1{}
+    \gdef\smartcites##1{}\gdef\Smartcites##1{}
+    \gdef\supercite##1{}\gdef\supercites##1{}
+    \gdef\autocite##1{}\gdef\Autocite##1{}
+    \gdef\autocites##1{}\gdef\Autocites##1{}
+    %% many, many missing … maybe we need to tackle the underlying mechanism?
+  }
+  \directlua{luatexbase.add_to_callback("pre_linebreak_filter",guttenbergenize_rq,"guttenbergenize_rq")}
+}
+
+\def\hammertime{
+  \global\let\n\relax
+  \directlua{hammerfirst = true
+             luatexbase.add_to_callback("pre_linebreak_filter",hammertime,"hammertime")}}
+\def\unhammertime{
+  \directlua{luatexbase.remove_from_callback("pre_linebreak_filter","hammertime")}}
+
+
+\def\kernmanipulate{
+  \directlua{luatexbase.add_to_callback("pre_linebreak_filter",kernmanipulate,"kernmanipulate")}}
+\def\unkernmanipulate{
+  \directlua{lutaexbase.remove_from_callback("pre_linebreak_filter",kernmanipulate)}}
+
+\def\leetspeak{
+  \directlua{luatexbase.add_to_callback("post_linebreak_filter",leet,"1337")}}
+\def\unleetspeak{
+  \directlua{luatexbase.remove_from_callback("post_linebreak_filter","1337")}}
+
+\def\letterspaceadjust{
+  \directlua{luatexbase.add_to_callback("pre_linebreak_filter",letterspaceadjust,"letterspaceadjust")}}
+\def\unletterspaceadjust{
+  \directlua{luatexbase.remove_from_callback("pre_linebreak_filter","letterspaceadjust")}}
+
+\let\stealsheep\letterspaceadjust     %% synonym in honor of Paul
+\let\unstealsheep\unletterspaceadjust
+\let\returnsheep\unletterspaceadjust
+
+\def\matrixize{
+  \directlua{luatexbase.add_to_callback("pre_linebreak_filter",matrixize,"matrixize")}}
+\def\unmatrixize{
+  \directlua{luatexbase.remove_from_callback("pre_linebreak_filter",matrixize)}}
+
+\def\milkcow{     %% to be implemented
+  \directlua{}}
+\def\unmilkcow{
+  \directlua{}}
+
+\def\pancakenize{        %% to be implemented
+  \directlua{}}
+\def\unpancakenize{
+  \directlua{}}
+
+\def\rainbowcolor{
+  \directlua{luatexbase.add_to_callback("post_linebreak_filter",randomcolor,"rainbowcolor")
+             rainbowcolor = true}}
+\def\unrainbowcolor{
+  \directlua{luatexbase.remove_from_callback("post_linebreak_filter","rainbowcolor")
+             rainbowcolor = false}}
+  \let\nyanize\rainbowcolor
+  \let\unnyanize\unrainbowcolor
+
+\def\randomcolor{
+  \directlua{luatexbase.add_to_callback("post_linebreak_filter",randomcolor,"randomcolor")}}
+\def\unrandomcolor{
+  \directlua{luatexbase.remove_from_callback("post_linebreak_filter","randomcolor")}}
+
+\def\randomfonts{
+  \directlua{luatexbase.add_to_callback("post_linebreak_filter",randomfonts,"randomfonts")}}
+\def\unrandomfonts{
+  \directlua{luatexbase.remove_from_callback("post_linebreak_filter","randomfonts")}}
+
+\def\randomuclc{
+  \directlua{luatexbase.add_to_callback("pre_linebreak_filter",randomuclc,"randomuclc")}}
+\def\unrandomuclc{
+  \directlua{luatexbase.remove_from_callback("pre_linebreak_filter","randomuclc")}}
+
+\def\scorpionize{
+  \directlua{luatexbase.add_to_callback("pre_linebreak_filter",scorpionize_color,"scorpionize_color")}}
+\def\unscorpionize{
+  \directlua{luatexbase.remove_from_callback("pre_linebreak_filter","scorpionize_color")}}
+
+\def\spankmonkey{    %% to be implemented
+  \directlua{}}
+\def\unspankmonkey{
+  \directlua{}}
+
+\def\tabularasa{
+  \directlua{luatexbase.add_to_callback("post_linebreak_filter",tabularasa,"tabularasa")}}
+\def\untabularasa{
+  \directlua{luatexbase.remove_from_callback("post_linebreak_filter","tabularasa")}}
+
+\def\uppercasecolor{
+  \directlua{luatexbase.add_to_callback("post_linebreak_filter",uppercasecolor,"uppercasecolor")}}
+\def\unuppercasecolor{
+  \directlua{luatexbase.remove_from_callback("post_linebreak_filter","uppercasecolor")}}
+
+\def\zebranize{
+  \directlua{luatexbase.add_to_callback("post_linebreak_filter",zebranize,"zebranize")}}
+\def\unzebranize{
+  \directlua{luatexbase.remove_from_callback("post_linebreak_filter","zebranize")}}
+\newluatexattribute\leetattr
+\newluatexattribute\randcolorattr
+\newluatexattribute\randfontsattr
+\newluatexattribute\randuclcattr
+\newluatexattribute\tabularasaattr
+
+\long\def\textleetspeak#1%
+  {\setluatexattribute\leetattr{42}#1\unsetluatexattribute\leetattr}
+\long\def\textrandomcolor#1%
+  {\setluatexattribute\randcolorattr{42}#1\unsetluatexattribute\randcolorattr}
+\long\def\textrandomfonts#1%
+  {\setluatexattribute\randfontsattr{42}#1\unsetluatexattribute\randfontsattr}
+\long\def\textrandomfonts#1%
+  {\setluatexattribute\randfontsattr{42}#1\unsetluatexattribute\randfontsattr}
+\long\def\textrandomuclc#1%
+  {\setluatexattribute\randuclcattr{42}#1\unsetluatexattribute\randuclcattr}
+\long\def\texttabularasa#1%
+  {\setluatexattribute\tabularasaattr{42}#1\unsetluatexattribute\tabularasaattr}
+\def\chickenizesetup#1{\directlua{#1}}
+\long\def\luadraw#1#2{%
+  \vbox to #1bp{%
+    \vfil
+    \luatexlatelua{pdf_print("q") #2 pdf_print("Q")}%
+  }%
+}
+\long\def\drawchicken{
+\luadraw{90}{
+kopf = {200,50} % Kopfmitte
+kopf_rad = 20
+
+d = {215,35} % Halsansatz
+e = {230,10} %
+
+korper = {260,-10}
+korper_rad = 40
+
+bein11 = {260,-50}
+bein12 = {250,-70}
+bein13 = {235,-70}
+
+bein21 = {270,-50}
+bein22 = {260,-75}
+bein23 = {245,-75}
+
+schnabel_oben = {185,55}
+schnabel_vorne = {165,45}
+schnabel_unten = {185,35}
+
+flugel_vorne = {260,-10}
+flugel_unten = {280,-40}
+flugel_hinten = {275,-15}
+
+sloppycircle(kopf,kopf_rad)
+sloppyline(d,e)
+sloppycircle(korper,korper_rad)
+sloppyline(bein11,bein12) sloppyline(bein12,bein13)
+sloppyline(bein21,bein22) sloppyline(bein22,bein23)
+sloppyline(schnabel_vorne,schnabel_oben) sloppyline(schnabel_vorne,schnabel_unten)
+sloppyline(flugel_vorne,flugel_unten) sloppyline(flugel_hinten,flugel_unten)
+}
+}
+%% 
+%%
+%% End of file `chickenize.tex'.