exemples/pLogo/CERCLES.JLOGO

POUR NEXTCC
	SI NBCOUL <= 2 [STOP]
	SOIT "C CC + 1
	SI :C = NBCOUL [DONNE "C 0]
	FCC :C
FIN

POUR CERCLES :N :P :R
	CT
	REPETE :N [CERCLE :R AV :P TD 360 / :N NEXTCC]
	FCC 1
	MT
FIN

POUR ELLIPSES :N :P :RX :RY
	CT
	REPETE :N [ELLIPSE :RX :RY AV :P TD 360 / :N NEXTCC]
	FCC 1
	MT
FIN

VE
SI PRIM? "CERCLE [FPOS [80 0]  CERCLES 20 10 40]
SI PRIM? "ELLIPSE [FPOS [-80 0] ELLIPSES 20 10 40 60]
ATTENDS 2
 

Retour - Back