summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/happy4th/happy4th.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/plain/contrib/happy4th/happy4th.tex')
-rw-r--r--macros/plain/contrib/happy4th/happy4th.tex35
1 files changed, 35 insertions, 0 deletions
diff --git a/macros/plain/contrib/happy4th/happy4th.tex b/macros/plain/contrib/happy4th/happy4th.tex
new file mode 100644
index 0000000000..121e047614
--- /dev/null
+++ b/macros/plain/contrib/happy4th/happy4th.tex
@@ -0,0 +1,35 @@
+% Author: Brian Blackmore <blb8@po.cwru.edu>
+% Date: July 4, 2007
+% Version: 20120102
+% Original source: efnet #TeX
+% License: Public Domain
+% Requirements: Plain TeX
+%
+\nopagenumbers \centerline{Fireworks Display} \centerline{Brian Blackmore}
+\centerline{Page Down As Quickly As You Wish}\centerline{Enjoy}\vfill\eject
+\catcode`~\active\let~\catcode~`[\active \let[\let~`]\active ~`Y=1[]\active
+~`@=2~`|=][|\expandafter ~`>][>\advance~`:][:\romannumeral~`+][+\count~`H10
+~`&][&\def~`*][*\multiply[~\dimen[]\endcsname[[\csname&\burst{\bst{30}{29@}
+&\bdYO} &\ss{\rsta{-2.2}{.2}{3@H\rstaY-2.2}{-0.5}{8@ \rsta{-2.2}{0.45}{0}@%
+&\ssf{\dra\adva} &\draY+0=1H\loop\dr{x:+0}{y:+0}\vskip-\baselineskip >+0by1
+\ifnum+0<\bc\repeat\vfill\eject}&\msa{\rsta{-2}Y0}{4.24@\rsta{-1.5}0Y4.24}}
+&\adv#1#2#3#4{ ~0=[#1] ~1=[#3] >~0Hby~1 |\edef[#1]{[the]~0@ ~0=[#2] ~1=[#4]
+>~0by~1 |\edef[#2]{[the]~0}~0=[#4]H~1=0.3in>~0by~1|\edef[#4]{\the~0}>+0by1}
+&\sf{[ssf]\ssf\ssf\ssf\ssf\ssf@\catcode`!0&\fs{!let\vyi\vxi&\ssfY\sdra\adva
+~0=\yi >~0by0inH\ifdim~0<8in \elseH&\yi{8in}&\vyi{0in}\fi}\mf@ +3=\the\time
+&\rs{*+3 by12 >+3 by5H+1=+3 [divide]+1by151 *+1by151 >+3by-+1}&\mf{\ssf\ssf
+[ssf]&\bd{o}\ssf\ssf} &\asm{\rsta{-2.3@0Y4.24}&!bd{\ifnum+0=1{\bf\TeX}\else
+o!fi}} &\adva{+0=1H\loop \adv{x:+0@Yy:+0@{vx:+0}{vy:+0}\ifnum+0<\bc\repeat@
+&\ms{[msa][asm][sf]} &\dr#1#2{\vbox to0pt{\parindent0pt\vskip-1in\vskip[#2]
+\hboxHto\hsize{\hskip-1in!hskip[#1]\hbox to 0ptY\hss[bd]\hss}\hss}\vss}@\rs
+&\gen{|\edef[x:+0]{\xi}|\edef[y:+0]{\yi} +1=+3>+3by+0\rs~0=+3pt\rs\divide~0
+by151*~0 by151H>~0by-50.5pt|\edef[vx:+0]Y\the~0}~0=+3pt\rs\divide~0by151*~0
+by151>~0by-60.5pt>+3by+1|!edef[vy:+0]Y\the~0}@&\bst#1#2{+0=1 \loop\gen>+0by
+1 \ifnum+0<#1\repeat&\bc{#2}&\bd{$\bullet$}}&\sdra{\dra~0=\yi \divide~0Hby3
+[font]\tf=cmr10 at~0H!vbox to 0pt{[parindent]0pt\vskip-1in\vskip\yi\hboxHto
+\hsize{\hskip-1in\hskip\xi\hbox to0pt{\hss\tf\TeX\hss@\hss}\vss}}&\mburstY%
+\bst{60}{59@}&\rst#1#2#3Y&\yi{11in@&\xi{#3in}&!vyi{#1in}&\vxiY#2in}&!uat{O@
+\ambd&\bc{1}}&\ambd{&\bdY\ifnum+0=1O\else o\fi}&!bc{10@}H\catcode`\Z\active
+&\rsta{\sbm\rst}&\sbm{\sf\burst\mf}\rstY-2@{-0.2}{5.25}!ss\sf&Z{bye@&!ssY13
+wEbeDonE37}&!bc{1}\rsta{-2.5@0Y4.24}\ms\mburst&\vxi{0in}\fs!sf\sdra[vskip]%
+-\baselineskip\centerline{H\char`\HappyHHJuly 4th\char`\!H}\expandafter[Z]Z