[pstricks] ncangle variant is needed
Boris Veytsman
borisv at lk.net
Sun Jun 24 22:06:17 CEST 2007
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
More information about the PSTricks
mailing list