\VDDdef A(0,0)B(5,0)C(2,3.5)
\VDDdef P(6,0)Q(11,0)R(8,3.5)
\VDDdef S(0,-1.5) % stretch viewport to see complete circles
\VDDdcanvas1:1
  \VDDdlpolygon ABC
  \VDDdlpolygon PQR
  \VDDccircumscribedcircle\length:N:PQR
  \VDDdcircle N:\length{}
  \VDDdpoint N
  \VDDlcirclepointletter N:Q:1
  \VDDcavg D:AB
  \VDDcavg E:BC
  \VDDcavg F:CA
  \VDDdeflinepoint n:AB
  \VDDcleadline k:n:D
  \VDDdeflinepoint n:BC
  \VDDcleadline l:n:E
  \VDDdeflinepoint n:CA
  \VDDcleadline m:n:F
  \VDDdwholeline k
  \VDDdwholeline l
  \VDDdwholeline m
  \VDDcintersect M:kl
  \VDDdperp BDM
  \VDDdperp CEM
  \VDDdperp AFM
  \VDDdlinepartequal ADBD
  \VDDdlinepartequal BECE
  \VDDdlinepartequal CFAF
  \VDDllinelinepointletter kl:MA:1:-1
  \VDDcplength\length:AM
  \VDDdcircle M:\length{}
\VDDdcanvasend
