Warning: this is an htmlized version! The original is across this link, and the conversion rules are here.
Lua 5.1.5  Copyright (C) 1994-2012 Lua.org, PUC-Rio
> dofile "newrect.lua"
> z = ZHA.fromspec("1234R3L21L"):print()
54
44
43  34
42  33  24
32  23  14
31  22  13  04
30  21  12  03
20  11  02
10  01
00
> mp = MixedPicture.new({bhbox=1, paren=1, scale="10pt", def="foo"}, z)
> mp = MixedPicture.new({def="foo"}, z)
/\
\ \
/  \
/    \
\     \
/      \
/       /
\      /
\    /
\  /
\/
/\
\ \
/  \
/\   \
\ \   \
/  \   \
/\   \  /
\ \   \/
\ \  /
\ \/
\/
/\
\ \
/  \
/\   \
\ \  /\
/  \/  \
/\  /\  /
\ \/  \/
\/\  /
\ \/
\/
> = mp:put(v"20", "P")
/  \

\     \

/        \

/  \           \

\     \        /  \

/        \  /        \

/  \        /  \        /

\     \  /        \  /
P
\  /  \        /

\     \  /

\  /
> = mp:put(v"30", "P*", "P^*")
/  \

\     \

/        \

/  \           \

\     \        /  \

/        \  /        \

/  \        /  \        /
P*
\     \  /        \  /
P
\  /  \        /

\     \  /

\  /
> = mp:put(v"11", "Q")
/  \

\     \

/        \

/  \           \

\     \        /  \

/        \  /        \

/  \        /  \        /
P*
\     \  /        \  /
P     Q
\  /  \        /

\     \  /

\  /
> = mp:put(v"12", "Q*", "Q^*")
/  \

\     \

/        \

/  \           \

\     \        /  \

/        \  /        \

/  \        /  \        /
P*          Q*
\     \  /        \  /
P     Q
\  /  \        /

\     \  /

\  /
> = mp:put(v"03", "R")
/  \

\     \

/        \

/  \           \

\     \        /  \

/        \  /        \

/  \        /  \        /
P*          Q*    R
\     \  /        \  /
P     Q
\  /  \        /

\     \  /

\  /
> = mp:put(v"14", "R*", "R^*")
/  \

\     \

/        \

/  \           \

\     \        /  \
R*
/        \  /        \

/  \        /  \        /
P*          Q*    R
\     \  /        \  /
P     Q
\  /  \        /

\     \  /

\  /
> latex = mp:tolatex()
> = latex
\def\foo{\vcenter{\hbox{\unitlength=10pt%
\celllower=2.5pt%
\def\cellfont{}%
\begin{picture}(9,11)(-4,-1)
\put(0,-1){\line(-1,1){4}}
\put(-4,3){\line(1,1){2}}
\put(-2,5){\line(-1,1){1}}
\put(-3,6){\line(1,1){2}}
\put(-1,8){\line(-1,1){1}}
\put(-2,9){\line(1,1){1}}
\put(-1,10){\line(1,-1){6}}
\put(5,4){\line(-1,-1){5}}
\put(-3,4){\line(1,-1){4}}
\put(-2,7){\line(1,-1){5}}
\put(-2,1){\line(1,1){5}}
\put(-2,2){\cell{P}}
\put(-3,3){\cell{P^*}}
\put(0,2){\cell{Q}}
\put(1,3){\cell{Q^*}}
\put(3,3){\cell{R}}
\put(3,5){\cell{R^*}}
\end{picture}}}}
> writefile("/tmp/o.tex", latex)  -- (find-fline "/tmp/o.tex")
> -- (find-ist "-handouts.tex" "mixedpicture-tests")
>
>