title=Argument

c=!line $level of 0,pi\
	0,pi,pi/2\
	0,pi,pi/2,2*pi,3*pi\
	0,pi,pi/2,pi/4,3*pi/4\
	0,pi,pi/2,pi/4,3*pi/4,pi/3,2*pi/3\
	0,pi,pi/2,pi/4,3*pi/4,pi/3,2*pi/3,pi/6,5*pi/6\
	0,pi,pi/2,pi/4,3*pi/4,pi/3,2*pi/3,pi/6,5*pi/6,1,2,3\
	0,pi,pi/2,pi/4,3*pi/4,pi/3,2*pi/3,pi/6,5*pi/6,1,2,3,4,5\
	0,pi,pi/2,pi/4,3*pi/4,pi/3,2*pi/3,pi/6,5*pi/6,1,2,3,4,5,e,sqrt(2)\
	0,pi,pi/2,pi/4,3*pi/4,pi/3,2*pi/3,pi/6,5*pi/6,1,2,3,4,5,e,sqrt(2),sqrt(3),sqrt(5)

c=!randitem $c
!if $c!=0
 c=!randitem $c,-$c
!endif

fname=Arg($w)=$c
gtype=sline
calc=!exec pari t=-($b)/($a); print(real(t),",",imag(t),",",arg($a));
!distribute items $calc into cx,cy,aa
cc=$[$c-($aa)]
!if $conj=true
 cy=$[-($cy)]
 cc=$[-($cc)]
!endif

