\input pstricks
\input fp
\FPmessagesfalse
\input vec2d

\catcode`@=11% for testing purposes

%\VDDstart
%  \VDDtriangletwoangles N:K(-5,-6)L(-1,-6):48,48
%  \VDDctranslate M:N:KL
%  \VDDdcanvas1:.7
%    \VDDdlpolygon KLMN
%    \VDDdline LN
%    \VDDlnumberangles MNK:L
%    \VDDlnumberangles KLM:N
%    \VDDlpointautoangle NLK
%    %\VDDdlinepartequal@ K&N&L&N&M&N&
%  \VDDcanvasend
%\VDDend
  %
  %
  %\VDDctranslate C:D(2,1):A(0,0)B(5,0)
  %\VDDctranslate FGH:BCD:AE(0,4)
  %\VDDctranslate M:N(0.5,4):K(1.5,0)L(4,1)
  %\VDDdfillpolygon@{gray}K&L&M&N&
  %\VDDctranslate QRS:LMN:KP(4,0)
  %\VDDdpolygon KLMN
  %\VDDdpolygon PQRS
  %\VDDdlpolygon ABCGHE
  %\VDDdstar BGE:F
  %\VDDlpointletter GFE
  %\VDDlpointletter HDA
  %\psset{linestyle=dashed}%
  %\VDDdstar ACH:D
%\endpspicture

\catcode`@=12%

  %\VDDtrianglegelijkvormig F:D(-4,1)E(-1,-1):PQR
  %\VDDdpolygon DEF
  %\VDDdef A(0,0)B(6;-10)
  %\VDDtriangletwolengths@ C:A&B:4,5
  %\VDDtriangletwolengths C:A(0,0)B(6;-10):4,5
  %\VDDtrianglegelijkvormig F:D(-4,1)E(-1,-1):ABC

\VDDstart
  \VDDtriangletwoangles R:P(0,0)Q(6;-8):78,48
  \VDDdcanvas1:1
    \VDDdlpolygon PQR
    \VDDcdldeellijnpart T:QRP
    \VDDcdlpleadlinepart U:QR:P
    \VDDcppintersect S:RT:PU
    \VDDlpointletter RSP
    \VDDlpointautoangle UPR
    \VDDlpointautoangle RQP
    \VDDlnumberangles RPTUR:S
    \VDDlnumberangles TSR:P
    \VDDlnumberangles QRP:T
    \VDDlnumberangles PTQ:R
  \VDDdcanvasend
\VDDend
\bye
