\catcode`@=11%
\VDDdef A(0,0)B(3,1)
\VDDdef P(-1,1)Q(-2,3.5)
\VDDcsquare CD:AB
\VDDcpentagon RST:PQ
\VDDdef K(1,-1)L(-1,-1)
\VDDcregulartriangle M:KL
\VDDcsquare M'N:KL
\VDDcpentagon M''N'O:KL
\VDDchexagon M'''N''O'U:KL
\VDDdcanvas1:1
  \VDDdlpolygon ABCD
  \VDDlpolygon PQRST
  \VDDdpolygon PRTQS
  \VDDdpolygon KLM
  \VDDdline LM'NK
  \VDDdline LM''N'OK
  \VDDdline LM'''N''O'UK
\VDDdcanvasend
