Automating the height of a drop cap initial

Question

How can I modify the following macro to automatically have the initial with the height indicated in the picture?

\documentclass{article}

\makeatletter

\RequirePackage{tikz}

\newlength\CLett% Nuova dimensione

 \newcommand*\capolettera[2]{% #1 lettera da ingrandire #2 testo in maiuscoletto
\par\noindent\setbox\z@\hbox{%
             \scalebox{1.35}{%
                            \huge#1}%
                            }%
\CLett=\wd\z@\hangindent\CLett\hangafter-2\relax%
\raisebox{-\baselineskip}[0pt][0pt]{\llap{\box\z@\kern1pt}}\textsc{#2}}

\makeatother

\begin{document}

\capolettera{L}{orem ipsum} at nusquam appellantur his, ut eos erant homero
concludaturque. Albucius appellantur deterruisset id eam, vivendum
partiendo dissentiet ei ius. Vis melius facilisis ea, sea id convenire
referrentur, takimata adolescens ex duo. Ei harum argumentum per. Eam
vidit exerci appetere ad, ut vel zzril intellegam interpretaris.

\end{document}

Answer 1

I used \resizebox rather than \scalebox to force the initial to \baselineskip + the height of the small caps text.

\documentclass{article}

\makeatletter

\RequirePackage{tikz}

\newlength\CLett% Nuova dimensione

 \newcommand*\capolettera[2]{% #1 lettera da ingrandire #2 testo in maiuscoletto
\par\noindent
 \setbox8\hbox{\textsc{#2}}%
 \setbox\z@\hbox{%
             \resizebox{!}{\dimexpr\baselineskip+\ht8\relax}{%
                            \huge#1}%
                            }%
\CLett=\wd\z@\hangindent\CLett\hangafter-2\relax%
\raisebox{-\baselineskip}[0pt][0pt]{\llap{\box\z@\kern1pt}}{\box8}}

\makeatother

\begin{document}

\capolettera{L}{orem ipsum} at nusquam appellantur his, ut eos erant homero
concludaturque. Albucius appellantur deterruisset id eam, vivendum
partiendo dissentiet ei ius. Vis melius facilisis ea, sea id convenire
referrentur, takimata adolescens ex duo. Ei harum argumentum per. Eam
vidit exerci appetere ad, ut vel zzril intellegam interpretaris.

\end{document}