\VDDctranslate C:D(2,1):A(0,0)B(8,0) % create C by translating D over A->B
\VDDctranslate FGH:BCD:AE(0,4)	     % create FGH by translating BCD over A->E
\VDDcabstransp N:E:EH:1.2
\VDDdcanvas 1.8:0.75                 % shrink everything, enlarge coordinates
  \VDDdfillpolygon{fillcolor=gray,fillstyle=solid}BCHE % this comes first
  \VDDdlbalk ABCDEFGH                % draw '3d' object
  \VDDdhiddenline BNC                % a hidden line is not drawn solid
  \VDDlpointletter HNE
  \VDDdline BE
  \VDDdhiddenline CH
  \VDDllinepart AB:$15$              % label linepart with explicit values
  \VDDllinepart BC:$8$
  \VDDllinepart CG:$9$
  \VDDllinepart NE:$4.1$
\VDDdcanvasend

