title=ģ II

gtype=line
calc=!exec pari b2=$b2; print(b2,","); z=x+i*y; w=$w; w2=$w2+b2; f=w*conj(w)-w2*conj(w2);\
 print(polcoeff(f,1,x),",",polcoeff(f,1,y),",",subst(subst(-f,x,0),y,0));

!distribute items $calc into b2,cx,cy,cc

!if $b2!=0
 b2=!lower $b2
 w2=!rawmath $w2 + $b2
!endif
fname=abs($w)=abs($w2)
