[pstricks] ncangle variant is needed

[Boris Veytsman]

HV> Date: Sun, 24 Jun 2007 00:17:38 +0200
HV> From: Herbert Voss <LaTeX at zedat.fu-berlin.de>


HV> \makeatletter
HV> \def\ncAngles{\pst at object{ncAngles}}
HV> \def\ncAngles at i{\check at arrow{\ncAngles at ii}}
HV> \def\ncAngles at ii#1#2{%
HV>   \nc at object{Open}{#1}{#2}{1.5}{\ncAngles at iii \tx at NCAngles}}
HV> %
HV> \def\ncAngles at iii{%
HV>   tx at Dict begin \psline at iii pop end
HV>   /AngleA \psk at angleA def
HV>   /AngleB \psk at angleB def
HV>   /ArmA \psk at armA GetEdgeA yA yA1 sub dup mul xA xA1 sub dup mul add
HV> sqrt sub def
HV>   /ArmB \psk at armB def
HV>   /ArmTypeA \psk at armtypeA def
HV>   /ArmTypeB \psk at armtypeB def }
HV> \makeatother

Thanks!  Exactly what I needed.

-- 
Good luck

-Boris

I try to keep an open mind, but not so open that my brains fall out.
		-- Judge Harold T. Stone