Source

beamer / art / beamericonbook.tex

Full commit
\documentclass[12pt]{article}

\usepackage{pgf,pgfshade}
\usepackage{color}

\usepackage[papersize={14pt,12pt},hmargin=0pt,vmargin=0pt,headsep=0pt,nohead,nofoot]{geometry}

\pagestyle{empty}
\pgfdeclarehorizontalshading{cover}{20pt}{%
  rgb(0pt)=(0.84,.5,.5);
  rgb(1.8pt)=(0.82,.48,.48);
  rgb(1.9pt)=(0.83,.66,.65);
  rgb(2.1pt)=(0.83,.66,.65);
  rgb(3pt)=(0.69,.25,.3);
  rgb(8pt)=(0.45,0.05,0.05)}

\pgfdeclareverticalshading{side}{10pt}{%
  rgb(0pt)=(0.78,.78,.78);
  rgb(2.5pt)=(0.60,.60,.60);
  rgb(5pt)=(0.25,.25,.25)}

\begin{document}
\noindent\hbox{%
\begin{pgfpicture}{0pt}{1pt}{14pt}{11pt}
    \pgfsetxvec{\pgfpoint{1pt}{0pt}}
    \pgfsetyvec{\pgfpoint{0pt}{1pt}}
    \pgfsetlinewidth{0.4pt}
    \pgfsetroundjoin
 
    \pgfsetlinewidth{0.8pt}
    \color[gray]{0.5}
    \pgfmoveto{\pgfxy(6.5,11.5)}
    \pgflineto{\pgfxy(1,10.5)}
    \pgfcurveto{\pgfxy(0.6,9.75)}{\pgfxy(0.6,8.75)}{\pgfxy(1,8)}
    \pgflineto{\pgfxy(6.5,2)}
    \pgflineto{\pgfxy(13,3)}
    \pgfcurveto{\pgfxy(12,4)}{\pgfxy(12,5)}{\pgfxy(13,6)}
    \pgfclosepath
    
    \pgfmoveto{\pgfxy(6.5,2)}  
    \pgfcurveto{\pgfxy(6,3)}{\pgfxy(6,4)}{\pgfxy(6.5,5)}
    \pgflineto{\pgfxy(13,6)}
    \pgfstroke

    \begin{pgfscope}
      \pgfmoveto{\pgfxy(6.5,11.5)}
      \pgflineto{\pgfxy(1,10.5)}
      \pgfcurveto{\pgfxy(0.6,9.75)}{\pgfxy(0.6,8.75)}{\pgfxy(1,8)}
      \pgflineto{\pgfxy(6.5,2)}
      \pgfcurveto{\pgfxy(6,3)}{\pgfxy(6,4)}{\pgfxy(6.5,5)}
      \pgflineto{\pgfxy(13,6)}
      \pgfclosepath
      \pgfclip

      \pgfputat{\pgfxy(8.5,0)}
      {%
        \begin{pgfrotateby}{\pgfdegree{45}}
          \pgfbox[left,base]{\pgfuseshading{cover}}
        \end{pgfrotateby}
      }
    \end{pgfscope}      
  
    \begin{pgfscope}
      \pgfmoveto{\pgfxy(6.5,2)}  
      \pgfcurveto{\pgfxy(6,3)}{\pgfxy(6,4)}{\pgfxy(6.5,5)}
      \pgflineto{\pgfxy(13,6)}
      \pgfcurveto{\pgfxy(12,5)}{\pgfxy(12,4)}{\pgfxy(13,3)}
      \pgfclosepath
      \pgfclip

      \pgfputat{\pgfxy(7.5,0)}
      {%
        \begin{pgfrotateby}{\pgfdegree{30}}
          \pgfbox[left,base]{\pgfuseshading{side}}
        \end{pgfrotateby}
      }
    \end{pgfscope}      
  
    \pgfsetlinewidth{0.4pt}
    \color[gray]{0.2}
    \pgfmoveto{\pgfxy(6.5,11.5)}
    \pgflineto{\pgfxy(1,10.5)}
    \pgfcurveto{\pgfxy(0.6,9.75)}{\pgfxy(0.6,8.75)}{\pgfxy(1,8)}
    \pgflineto{\pgfxy(6.5,2)}
    \pgflineto{\pgfxy(13,3)}
    \pgfcurveto{\pgfxy(12,4)}{\pgfxy(12,5)}{\pgfxy(13,6)}
    \pgfclosepath
    
    \pgfmoveto{\pgfxy(6.5,2)}  
    \pgfcurveto{\pgfxy(6,3)}{\pgfxy(6,4)}{\pgfxy(6.5,5)}
    \pgflineto{\pgfxy(13,6)}
    \pgfstroke
\end{pgfpicture}%
}
\end{document}