title=Re  Im

cs=!line $level of 0\
    0\
    2,3\
    2,3,5\
    2,3,5,6\
    2,3,5,6,7\
    2,3,5,6,7,8\
    2,3,5,6,7,8\
    2,3,5,6,8,10,11,12\
    2,3,5,6,8,10,11,12,13

cn=!line $level of 1,2,1\
    1,2,0.5\
    1,2,0.3\
    1,2,0.2\
    1,2,0.1\
    1,3,0.2\
    0.5,3,0.1\
    0.5,3,0.1\
    0.4,3.5,0.1\
    0.4,3.5,0.1

ce=!line $level of 1\
    1\
    1\
    1\
    e\
    e,pi/2\
    e/2,e,pi/2\
    e/2,e,pi/2,sqrt(e),sqrt(pi)\
    e/2,e,pi/2,sqrt(e),sqrt(pi),pi-1,e-1\
    e/2,e,pi/2,sqrt(e),sqrt(pi),pi-1,e-1,pi-2,e-2

cs=!randitem $cs
ce=!randitem $ce
!distribute items $cn into a_,b_,c_
cn=$[randint(($b_-$a_)/$c_+1)*$c_+$a_]
c=!line $level of $cn\
    $cn\
    sqrt($cs),$cn,$cn\
    sqrt($cs),$cn\
    sqrt($cs),sqrt($cs),$cn,$ce\
    sqrt($cs),$cn,$cn,$ce\
    sqrt($cs),$cn,$ce\
    sqrt($cs),$cn,$ce\
    sqrt($cs),$cn,$ce\
    sqrt($cs),sqrt($cs),$cn,$ce,$ce

c=!randitem $c
!ifval $c!=0
 c=!randitem $c,-($c)
!endif

tt=!randitem 1,2
fn=!item $tt of Re,Im
fn2=!item $tt of real,imag

fname=$fn($w)=$c
gtype=line
calc=!exec pari z=x+i*y; f=$fn2($w); print(polcoeff(f,1,x),",",polcoeff(f,1,y),",",subst(subst(f,x,0),y,0));
!distribute items $calc into cx,cy,ct
cc=$[$c-($ct)]
