exemples/pLogo/SECTEURS.JLOGO

POUR NEXTCC 
	SOIT "C CC + 1 
	FCC :C 
FIN 
 
POUR SECTEURS :R :DEB :AMPL 
	SI :R < 0 [STOP] 
	SECTEUR :R :DEB :AMPL 
	NEXTCC 
	SECTEURS :R - 2 :DEB + 6 :AMPL 
FIN 
 
POUR ESECTEURS :RX :RY :DEB :AMPL 
	SI OU :RY < 0 :RX < 0 [STOP] 
	ESECTEUR :RX :RY :DEB :AMPL 
	NEXTCC 
	ESECTEURS :RX - 0,1 :RY - 0,1 SOMME :DEB DIFF :AMPL 1  :AMPL 
FIN 
 
VE CT 
SECTEURS 220 0 20 
ATTENDSTORTUE ATTENDS 2 NETTOIE 
ESECTEURS 300 200 0 2 
FCC 1 MT 
ATTENDS 2 
 

Retour - Back