exemples/pLogo/RONDS.JLOGO

POUR  RONDS  :AV :R
	ENR ME 2
	CT
	REPETE 50 [HSECT :AV :R]
	NETTOIE
	REPETE 50 [HROND :AV :R]
	MT
FIN

POUR  HSECT  :AV :R
	AV HASARD :AV
	TD HASARD 360
	FCC HASARD NBCOUL
	SI CC = 0 [FCC 1 FMOTIF [0]] [FMOTIF [-1]]
	SECTEUR HASARD :R HASARD 360 HASARD 360
FIN

POUR  HROND  :AV :R
	AV HASARD :AV
	TD HASARD 360
	FCC HASARD NBCOUL
	SI CC = 0 [FCC 1 FMOTIF [0]] [FMOTIF [-1]]
	CERCLE HASARD :R
FIN

RONDS 200 50
ATTENDS 2
 
 
Me faire un don