title=ģ I

cs=!line $level of 0\
    0\
    2,3\
    2,3,5\
    2,3,5,6,7,8\
    5,6,7,8,10\
    5,6,7,8,10,11,12,13,14,15\
    5,6,7,8,10,11,12,13,14,15,17,18,19,20\
    8,10,11,12,13,14,15,17,18,19,20,21,22,23,24,25,26\
    8,10,11,12,13,14,15,17,18,19,20,21,22,23,24,25,26,27,28,29,30

cn=!line $level of 2,3,1\
    2,3,0.5\
    2,3,0.3\
    2,3,0.2\
    2,3,0.1\
    2.4,4,0.2\
    2.5,4,0.1\
    2.5,4,0.1\
    3,6,0.1\
    3,6,0.1

ce=!line $level of 1\
    1\
    1\
    1\
    e,pi\
    e,pi\
    e,pi,e+1\
    e,pi,e+1,pi+1\
    e,pi,2*e,2*pi,e+1,pi+1,e+2,pi+2\
    e,pi,e+pi,2*e,2*pi,e+1,pi+1,e+2,pi+2,2*e-1,2*pi-1,2*e-2,2*pi-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

fname=abs($w)=$c
gtype=circle
radius=$[($c)/($wmodule)*$size/(2*$xrange)]
calc=!exec pari t=-($b)/($a); print(real(t),",",imag(t));
!distribute items $calc into cx,cy
!if $conj=true
 cy=$[-($cy)]
!endif
