diff options
Diffstat (limited to 'Master/texmf-dist/tex/luatex/chickenize/chickenize.tex')
| -rw-r--r-- | Master/texmf-dist/tex/luatex/chickenize/chickenize.tex | 139 |
1 files changed, 135 insertions, 4 deletions
diff --git a/Master/texmf-dist/tex/luatex/chickenize/chickenize.tex b/Master/texmf-dist/tex/luatex/chickenize/chickenize.tex index aa48c984574..d1d211c572f 100644 --- a/Master/texmf-dist/tex/luatex/chickenize/chickenize.tex +++ b/Master/texmf-dist/tex/luatex/chickenize/chickenize.tex @@ -8,7 +8,7 @@ %% %% EXPERIMENTAL CODE %% -%% This package is copyright © 2017 Arno L. Trautmann. It may be distributed and/or +%% This package is copyright © 2021 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’. @@ -18,11 +18,10 @@ \bgroup% \fontspec{Latin Modern Sans}% A% - \kern-.4em \raisebox{.65ex}{\scalebox{0.3}{L}}% - \kern-.0em \raisebox{-0.98ex}{T}% + \kern-.375em \raisebox{.65ex}{\scalebox{0.3}{L}}% + \kern.03em \raisebox{-.99ex}{T}% \egroup% } - \def\allownumberincommands{ \catcode`\0=11 \catcode`\1=11 @@ -170,9 +169,37 @@ \textbackslash\textbackslash\textbackslash\textbackslash\textbackslash\textbackslash\textbackslash\textbackslash\textbackslash\textbackslash... the true name of Ba'al, the soul-eater} } +\def\francize{ + \directlua{luatexbase.add_to_callback("pre_linebreak_filter",francize,"francize")}} + +\def\unfrancize{ + \directlua{luatexbase.remove_from_callback("pre_linebreak_filter",francize)}} + \def\gameoflife{ Your Life Is Tetris. Stop Playing It Like Chess. } +\def\gameofchicken#1{\directlua{ +GOCrule_live = {2,3} +GOCrule_spawn = {3} +GOCrule_antilive = {2,3} +GOCrule_antispawn = {3} +GOCcellcode = "\\scalebox{0.03}{\\drawchicken}" +GOCcellcode = "\\scalebox{0.03}{\\drawcov}" +GOCx = 100 +GOCy = 100 +GOCiter = 150 +GOC_console = false +GOC_pdf = true +GOCsleep = 0 +GOCdensity = 100 +#1 +gameofchicken() + +if (GOCmakegif == true) then + luatexbase.add_to_callback("wrapup_run",make_a_gif,"makeagif") +end +}} +\let\gameofchimken\gameofchicken % yeah, that had to be. \def\guttenbergenize{ %% makes only sense when using LaTeX \AtBeginDocument{ @@ -208,6 +235,16 @@ \let\hendlnize\chickenize % homage to Hendl/Chicken \let\unhendlnize\unchickenize % may the soldering strength always be with him +\def\italianizerandwords{ + \directlua{luatexbase.add_to_callback("pre_linebreak_filter",italianizerandwords,"italianizerandwords")}} +\def\unitalianizerandwords{ + \directlua{luatexbase.remove_from_callback("pre_linebreak_filter","italianizerandwords")}} + +\def\italianize{ + \directlua{luatexbase.add_to_callback("pre_linebreak_filter",italianize,"italianize")}} +\def\unitalianize{ + \directlua{luatexbase.remove_from_callback("pre_linebreak_filter","italianize")}} + \def\kernmanipulate{ \directlua{luatexbase.add_to_callback("pre_linebreak_filter",kernmanipulate,"kernmanipulate")}} @@ -300,6 +337,13 @@ \def\unrandomuclc{ \directlua{luatexbase.remove_from_callback("pre_linebreak_filter","randomuclc")}} +\def\relationship{% + \directlua{luatexbase.add_to_callback("post_linebreak_filter",cutparagraph,"cut paragraph") + luatexbase.add_to_callback("stop_run",missingcharstext,"charsmissing") + relationship() + } +} + \let\rongorongonize\boustrophedoninverse \let\unrongorongonize\unboustrophedoninverse @@ -436,6 +480,93 @@ sloppyline(wing_front,wing_bottom) sloppyline(wing_back,wing_bottom) } } +\long\def\drawcov{ + \luadraw{90}{ + covbody = {200,50} + covbody_rad = 50 + + covcrown_rad = 5 + crownno = 13 + for i=1,crownno do + crownpos = {covbody[1]+1.4*covbody_rad*math.sin(2*math.pi/crownno*i),covbody[2]+1.4*covbody_rad*math.cos(2*math.pi/crownno*i)} + crownconnect = {covbody[1]+covbody_rad*math.sin(2*math.pi/crownno*i),covbody[2]+covbody_rad*math.cos(2*math.pi/crownno*i)} + sloppycircle(crownpos,covcrown_rad) + sloppyline(crownpos,crownconnect) + end + + covcrown_rad = 6 + crownno = 8 + for i=1,crownno do + crownpos = {covbody[1]+0.8*covbody_rad*math.sin(2*math.pi/crownno*i),covbody[2]+0.8*covbody_rad*math.cos(2*math.pi/crownno*i)} + crownconnect = {covbody[1]+0.5*covbody_rad*math.sin(2*math.pi/crownno*i),covbody[2]+0.5*covbody_rad*math.cos(2*math.pi/crownno*i)} + sloppycircle(crownpos,covcrown_rad) + sloppyline(crownpos,crownconnect) + end + + covcrown_rad = 8 + sloppycircle(covbody,covcrown_rad) + sloppycircle(covbody,covbody_rad) + sloppyline(covbody,covbody) + } +} +\long\def\drawhorse{ + \luadraw{90}{ + horsebod = {100,-40} + sloppyellipsis(horsebod,50,20) + horsehead = {20,0} + sloppyellipsis(horsehead,25,15) + sloppyline({35,-10},{50,-40}) + sloppyline({45,5},{80,-25}) + sloppyline({60,-50},{60,-90}) + sloppyline({70,-50},{70,-90}) + sloppyline({130,-50},{130,-90}) + sloppyline({140,-50},{140,-90}) + sloppyline({150,-40},{160,-60}) + sloppyline({150,-38},{160,-58}) + sloppyline({150,-42},{160,-62}) + sloppyline({-5,-10},{10,-5}) + sloppyellipsis({30,5},5,2) %% it's an eye, aye? + sloppyline({27,15},{34,25}) + sloppyline({34,25},{37,13}) + } +} +\long\def\drawfathorse{ + \luadraw{90}{ + horsebod = {100,-40} + sloppyellipsis(horsebod,50,40) + horsehead = {20,0} + sloppyellipsis(horsehead,25,15) + sloppyline({35,-10},{50,-40}) + sloppyline({45,5},{70,-15}) + sloppyline({60,-70},{60,-90}) + sloppyline({70,-70},{70,-90}) + sloppyline({130,-70},{130,-90}) + sloppyline({140,-70},{140,-90}) + sloppyline({150,-40},{160,-60}) + sloppyline({150,-38},{160,-58}) + sloppyline({150,-42},{160,-62}) + sloppyline({-5,-10},{10,-5}) + sloppyellipsis({30,5},5,2) %% it's an eye, aye? + sloppyline({27,15},{34,25}) + sloppyline({34,25},{37,13}) + } +} +\long\def\drawunicorn{ +\color{pink!90!black} + \drawhorse + \luadraw{0}{ + sloppyline({15,20},{15,50}) + sloppyline({15,50},{25,20}) + } +} +\long\def\drawfatunicorn{ +\color{pink!90!black} + \drawfathorse + \luadraw{0}{ + sloppyline({15,20},{15,50}) + sloppyline({15,50},{25,20}) + } +} %% %% %% End of file `chickenize.tex'. |