\version "2.23.12"

\layout {
  indent = 2\cm
}

musright = {
  \key d\major
  <<
    d''4. \\
    { <fis' a'>8\f g' a' <a' d'' fis''> }
  >>
  <b' d'' g''>4 <d'' g''>~ |
  <a' d'' g''> <a' d'' fis''>~ <g' b' fis''>
  <<
    {  <e' e''>~ | e'' d''~ <b' d''> <a' cis''> |
       <fis' a' d''> a'8 cis'' <d' fis' d''>4 e''8 fis'' } \\
    { a'8 cis'' <fis' a'>2 e' |
      s4 e' s <a' cis''> }
  >>
}

musleft = {
  \clef bass
  \key d \major
  d8 e fis d g, a, b, cis |
  d e fis d e d cis a, |
  d e fis d g e a a, |
  d d' cis' a b b a g
}

bc = \figuremode {
  s4 <6> s <6> |
  <5 4> <6> <9> <5> |
  <9> <6> <6 5> <3> |
  s <6> <5>
}

mymusic =
\new PianoStaff \with {
  instrumentName = \markup\center-column { Basso continuo }
} <<
  \new Staff \musright
  \new Staff \musleft
  \new FiguredBass \bc
>>

\score {\mymusic}

\markup "stem-length-demerit-factor 10"
\score {
  \layout {
    \override Beam.details.stem-length-demerit-factor = 10
  }
  \mymusic
}