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:addcontour()
  /\     
  \ \    
  /  \   
 /    \  
 \     \ 
 /      \
/       /
\      / 
 \    /  
  \  /   
   \/    
> = mp:addrcut(0):addrcut(2)
  /\     
  \ \    
  /  \   
 /\   \  
 \ \   \ 
 /  \   \
/\   \  /
\ \   \/ 
 \ \  /  
  \ \/   
   \/    
> = mp:addlcut(1)
  /\     
  \ \    
  /  \   
 /\   \  
 \ \  /\ 
 /  \/  \
/\  /\  /
\ \/  \/ 
 \/\  /  
  \ \/   
   \/    
> = 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")
> 
>