/// ********* File = spirale_3.clsr ************
/// Questa opera è pubblicato sotto una Licenza Creative Commons
/// http://creativecommons.org/licenses/by-nc-sa/2.5/it/

define model:tris([!a,!b,!c],[&r1,&r2,&r3])
{
	&r1(!a,!b)
	&r2(!b,!c)
	&r3(!c,!a)
}

!a
!b

&rr1(1.11)
&rr2(2.1)
def I[30]

def IS1[!]
!a->IS1[]

&rlog=model:tris([!a,!b,!$c],[&rr,&rr1,&rr2])

!$a=!a
!$b=!b
&$rr=&rr

FOR ($z) IN I[]
{
	!$c=!$$
	&rlog(!$a,!$b,!$c)
	!$c->IS1[]
	!$a=!$c
}
!$a->IS1[]

form:wind(IS1[])