chickenize (10jan16)

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

1 files changed, 29 insertions, 28 deletions

diff --git a/Master/texmf-dist/source/luatex/chickenize/chickenize.dtx b/Master/texmf-dist/source/luatex/chickenize/chickenize.dtx
index d98dcb84b89..d425244117c 100644
--- a/Master/texmf-dist/source/luatex/chickenize/chickenize.dtx
+++ b/Master/texmf-dist/source/luatex/chickenize/chickenize.dtx
@@ -19,7 +19,7 @@ arno dot trautmann at gmx dot de
 
 Hope you have fun with this package!
 
-This package is copyright © 2015 Arno L. Trautmann. It may be distributed and/or
+This package is copyright © 2016 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 ‘maintained’.
@@ -37,7 +37,7 @@ ance status ‘maintained’.
 
 EXPERIMENTAL CODE
 
-This package is copyright © 2015 Arno L. Trautmann. It may be distributed and/or
+This package is copyright © 2016 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 ‘maintained’.
@@ -117,7 +117,7 @@ chickenize
 
 \unrainbowcolor
 
-\centerline{v0.2.2}
+\centerline{v0.2.3}
 \centerline{\hspace*{2cm} Arno L. Trautmann \ALT}
 \centerline{\href{mailto:arno.trautmann@gmx.de}{arno.trautmann@gmx.de}}
 
@@ -140,7 +140,7 @@ If you have any suggestions or comments, just drop me a mail, I’ll be happy to
 
 \small\noindent
 \fbox{\parbox{.97\textwidth}{
-This package is copyright © 2015 Arno L. Trautmann. It may be distributed and/or
+This package is copyright © 2016 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 maintenance status ‘maintained’.}}
 \vspace*{1cm}
@@ -700,9 +700,6 @@ The namespace of the chickenize package is \emph{not} consistent. Please don't t
 \def\unupsidedown{
   \directlua{luatexbase.remove_from_callback("post_linebreak_filter","upsidedown")}}
 
-\def\unuppercasecolor{
-  \directlua{luatexbase.remove_from_callback("post_linebreak_filter","upsidedow")}}
-
 \def\variantjustification{
   \directlua{luatexbase.add_to_callback("post_linebreak_filter",variantjustification,"variantjustification")}}
 \def\unvariantjustification{
@@ -809,7 +806,7 @@ sloppyline(flugel_vorne,flugel_unten) sloppyline(flugel_hinten,flugel_unten)
 % Some code might be implemented to manipulate figures for full chickenization. However, I will \emph{not} load any packages at this place, as loading of expl3 or TikZ or whatever takes too much time for such a tiny package like this one. If you require any of the features presented here, you have to load the packages on your own. Maybe this will change.
 %    \begin{macrocode}
 \ProvidesPackage{chickenize}%
-  [2015/12/26 v0.2.2 chickenize package]
+  [2016/01/09 v0.2.3 chickenize package]
 \input{chickenize}
 %    \end{macrocode}
 % \subsection{Free Compliments}
@@ -859,6 +856,10 @@ WHAT  = nodeid("whatsit")
 COL   = node.subtype("pdf_colorstack")
 PDF_LITERAL = node.subtype("pdf_literal")
 GLYPH = nodeid("glyph")
+GLUE  = nodeid("glue")
+PENALTY = nodeid("penalty")
+GLUE_SPEc = nodeid("glue_spec")
+KERN  = nodeid("kern")
 %    \end{macrocode}
 % Now we set up the nodes used for all color things. The nodes are whatsits of subtype |pdf_colorstack|.
 %    \begin{macrocode}
@@ -909,8 +910,8 @@ chickenize_real_stuff = function(i,head)
       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] = nodenew(GLUE)
+        chicken[j].spec = nodenew(GLUE_SPEC)
         chicken[j].spec.width = space
         chicken[j].spec.shrink = shrink
         chicken[j].spec.stretch = stretch
@@ -983,8 +984,8 @@ end
 % Linewise rotation:
 %    \begin{macrocode}
 boustrophedon = function(head)
-  rot = node.new(8,PDF_LITERAL)
-  rot2 = node.new(8,PDF_LITERAL)
+  rot = node.new(WHAT,PDF_LITERAL)
+  rot2 = node.new(WHAT,PDF_LITERAL)
   odd = true
     for line in node.traverse_id(0,head) do
       if odd == false then
@@ -1005,8 +1006,8 @@ end
 %    \begin{macrocode}
 boustrophedon_glyphs = function(head)
   odd = false
-  rot = nodenew(8,PDF_LITERAL)
-  rot2 = nodenew(8,PDF_LITERAL)
+  rot = nodenew(WHAT,PDF_LITERAL)
+  rot2 = nodenew(WHAT,PDF_LITERAL)
   for line in nodetraverseid(0,head) do
     if odd==true then
       line.dir = "TRT"
@@ -1029,8 +1030,8 @@ end
 % Inverse boustrophedon. At least I think, this is the way Rongorongo is written. However, the top-to-bottom direction has to be inverted, too.
 %    \begin{macrocode}
 boustrophedon_inverse = function(head)
-  rot = node.new(8,PDF_LITERAL)
-  rot2 = node.new(8,PDF_LITERAL)
+  rot = node.new(WHAT,PDF_LITERAL)
+  rot2 = node.new(WHAT,PDF_LITERAL)
   odd = true
     for line in node.traverse_id(0,head) do
       if odd == false then
@@ -1301,8 +1302,8 @@ leftsideright = function(head)
   local factor = 65536/0.99626
   for n in nodetraverseid(GLYPH,head) do
     if (leftsiderightarray[n.char]) then
-      shift = nodenew(8,PDF_LITERAL)
-      shift2 = nodenew(8,PDF_LITERAL)
+      shift = nodenew(WHAT,PDF_LITERAL)
+      shift2 = nodenew(WHAT,PDF_LITERAL)
       shift.data = "q -1 0 0 1 " .. n.width/factor .." 0 cm"
       shift2.data = "Q 1 0 0 1 " .. n.width/factor .." 0 cm"
       nodeinsertbefore(head,n,shift)
@@ -1396,15 +1397,15 @@ medievalumlaut = function(head)
       if (n.char == 228 or n.char == 246 or n.char == 252) then
         e_node = nodecopy(org_e_node)
         e_node.font = n.font
-        shift = nodenew(8,PDF_LITERAL)
-        shift2 = nodenew(8,PDF_LITERAL)
+        shift = nodenew(WHAT,PDF_LITERAL)
+        shift2 = nodenew(WHAT,PDF_LITERAL)
         shift2.data = "Q 1 0 0 1 " .. e_node.width/factor .." 0 cm"
         nodeinsertafter(head,n,e_node)
 
         nodeinsertbefore(head,e_node,shift)
         nodeinsertafter(head,e_node,shift2)
 
-        x_node = nodenew(11)
+        x_node = nodenew(KERN)
         x_node.kern = -e_node.width
         nodeinsertafter(head,shift2,x_node)
       end
@@ -1608,13 +1609,13 @@ end
 % \subsection{suppressonecharbreak}\label{sec:suppressonecharbreak}
 % We rush through the node list before line breaking takes place and insert large penalties for breaks after single glyphs. To keep the code as small, simple and fast as possible, we |traverse_id| over spaces and see wether the |next.next| node is also a space. This might not be the best and most universal way of doing it, but the simplest. The penalty is not created newly each time, but copied – no significant speed gain, however.
 %    \begin{macrocode}
-suppressonecharbreakpenaltynode = node.new(12)
+suppressonecharbreakpenaltynode = node.new(PENALTY)
 suppressonecharbreakpenaltynode.penalty = 10000
 %    \end{macrocode}
 %    \begin{macrocode}
 function suppressonecharbreak(head)
-  for i in node.traverse_id(10,head) do
-    if ((i.next) and (i.next.next.id == 10)) then
+  for i in node.traverse_id(GLUE,head) do
+    if ((i.next) and (i.next.next.id == GLUE)) then
         pen = node.copy(suppressonecharbreakpenaltynode)
         node.insert_after(head,i.next,pen)
     end
@@ -1648,8 +1649,8 @@ tanjanize = function(head)
   local s = nodenew(nodeid"kern")
   local m = nodenew(GLYPH,1)
   local use_letter_i = true
-  scale = nodenew(8,PDF_LITERAL)
-  scale2 = nodenew(8,PDF_LITERAL)
+  scale = nodenew(WHAT,PDF_LITERAL)
+  scale2 = nodenew(WHAT,PDF_LITERAL)
   scale.data  = "0.5 0 0 0.5 0 0 cm"
   scale2.data = "2   0 0 2   0 0 cm"
 
@@ -1712,8 +1713,8 @@ upsidedown = function(head)
   for line in nodetraverseid(Hhead,head) do
     for n in nodetraverseid(GLYPH,line.head) do
       if (upsidedownarray[n.char]) then
-        shift = nodenew(8,PDF_LITERAL)
-        shift2 = nodenew(8,PDF_LITERAL)
+        shift = nodenew(WHAT,PDF_LITERAL)
+        shift2 = nodenew(WHAT,PDF_LITERAL)
         shift.data = "q 1 0 0 -1 0 " .. n.height/factor .." cm"
         shift2.data = "Q 1 0 0 1 " .. n.width/factor .." 0 cm"
         nodeinsertbefore(head,n,shift)