divert(-1)
   pstricks.m4
                                Initialize macros for pstricks. Usage:
   m4 path/pstricks.m4 diag.m4 | dpic -p > diag.tex

define(`HOMELIB_',`/u/aplevich/lib')

define(`pstricks_',)
undefine(`mfpic_')
undefine(`gpic_')
ifdef(`right_',,`include(HOMELIB_/libgen.m4)')dnl
divert(-1)
define(`thinlines_',`linethick = 0.4
   \psset{linewidth=0.4pt}
   ')
define(`thicklines_',`linethick = 0.8
   \psset{linewidth=0.8pt}
   ')
define(`linethick_',`linethick = ifelse(`$1',,`0.8',`$1')
   \psset{linewidth=ifelse(`$1',,`0.8',`$1')pt}
   ')

divert(0)dnl
\psset{arrowsize=1.2pt 3,arrowlength=2,arrowinset=0}