exemples/pLogo/HORLOGE.JLOGO

POUR SECONDE :N :C
	SI NON FINTEMPS? [SECONDE :N :C STOP]
	CT
	FCC CF  RE :N  TD 6
	FCC :C  AV :N
	MT
FIN

POUR CADRAN :N :D :COL 
	FCC :COL
	CERCLE :N + :D
	CT FCAP 0
	REPETE 12 [LC AV :N BC AV :D  LC RE :N + :D TD 30 BC]
	FCAP 0 AV :N MT
FIN

POUR HORLOGE :SEC :COL :N
	CADRAN :N 10 :COL
	REPETE :SEC [DEBUTEMPS 1 SECONDE :N :COL]
FIN

VE
HORLOGE 20 1 60
 

Retour - Back