title=Module 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

