%%HP: T(1)A(G)F(,);
  E A DA DB
   E 2,  * r A SIN
* / DA * E 2,  * r A
SIN * / DB *  B C
     B 2, ^ C 2, ^ +
2, B * C * 100, A -
COS * -  DUP 2, ^
NEG B 2, ^ C 2, ^ +
2, * +  ,5 * SWAP ,5
* +
    
  
