\catcode`@=11%
%
\def\VDDcdlpleadlinepart@#1&#2:#3&#4&#5:#6&#7 {%
  \VDDcpleadlinepart@#1&:#3&#4&:#6&
  \VDDdpsline@#1&#6&:
  \VDDlpointletter@#3&#1&#4&:
  {%
    \VDDcpanglehatx@\angle:#6&#1
    \VDDdperpangle@ #1:\angle{}
  }%
}%
\def\VDDcdlpleadlinepart#1:#2:#3 {%
  \def\VDDparse@tmp{}%
  \VDDparse@letter\VDDdef@not\VDDparse@tmp#1
  \edef\VDDparse@tmp{\VDDparse@tmp&:}%
  \VDDparse@letter\VDDdef@\VDDparse@tmp#2
  \edef\VDDparse@tmp{\VDDparse@tmp&:}%
  \VDDparse@letter\VDDdef@\VDDparse@tmp#3
  \expandafter\VDDcdlpleadlinepart@\VDDparse@tmp&
}%
\def\VDDcdldeellijnpart@#1&#2:#3&#4&#5&#6 {%
  \VDDcdeellijnpart@#1&:#3&#4&#5&
  \VDDdpsline@#1&#4&:
  \VDDlpointletter@#5&#1&#3&:
  \VDDlangleequal@ #1&#4&#5&#3&#4&#1&
  \ifx\end#6\end\else\VDDcdldeellijnpart@#2:#4&#5&#6 \fi
}%
\def\VDDcdldeellijnpart#1:#2 {%
  \def\VDDparse@tmp{}%
  \VDDparse@letter\VDDdef@dontcare\VDDparse@tmp#1
  \edef\VDDparse@tmp{\VDDparse@tmp&:}%
  \VDDparse@letter\VDDdef@\VDDparse@tmp#2
  \expandafter\VDDcdldeellijnpart@\VDDparse@tmp&
}%
\catcode`@=12%
