exemples/A2.JLOGO

; A essayer : MAISON et NICHE 
POUR MAISON 
BC 
TG 150 AV 15 TD 60 AV 15 TD 90 AV 20 TD 90 AV 45 TD 90 AV 20 TD 90 AV 15 TD 60 AV 15 TD 30 
LC 
FIN 
 
POUR FCTGR :C 
FTORTUE 1 
FCC :C 
FTORTUE 0 
FIN 
 
POUR FCURSGR :L 
FTORTUE 1 
LC 
FPOS :L 
BC 
FTORTUE 0 
FIN 
 
POUR ECGR :L 
FTORTUE 1 
CT 
ECG :L 
FTORTUE 0 
FIN 
 
POUR NICHE  
INIT 
DESSIN 
ESSAI 
FIN 
 
POUR INIT 
VE  
FTORTUE 1 CT ; la tortue pour ?crire 
DONNE "PI HASARD 4 
DONNE "PF SAUF.PI 
DONNE "SIGNE -1 + 2 * HASARD 2 
DONNE "ANGLE :SIGNE * 10 * ( 1 + HASARD 17 ) 
;DONNE "SENS ITEM 1 + (1 + :SIGNE) / 2 [TD TG] 
DONNE "CAPI 90 * :PI  
DONNE "CAPF 90 * :PF  
DONNE "CAPVISE :CAPI + :ANGLE 
DONNE "POSF ITEM 1 + :PF [[0 100] [100 0] [0 -100] [-100 0]] 
DONNE "CO 0 
FIN 
 
POUR DESSIN 
FEN 
ME 2 
CT 
COTE1 
ARC 40 :CAPI :ANGLE 
COTE2 
VALEUR 
COTE3 
MAISON 
LC 
ORIGINE 
BC 
FCAP :CAPVISE 
MT 
FIN 
 
POUR ESSAI  
FCC 5 
LC 
ORIGINE 
FCAP :CAPVISE 
ATTRAPEERREUR [SUITEESSAI][EC PH PH [La Tortue ne comprend pas "] :REP [". R??cris ta phrase.] ESSAI] 
FIN 
 
POUR SUITEESSAI 
DONNE "REP LL 
EC :REP 
EXEC :REP 
REPETE 3 [LC ATTENDS 0.5 BC] 
DONNE "CO :CO + 1 
FCURSGR [120 120] 
FCTGR CF 
ECGR PH "Essai :CO - 1 
FCTGR 186 
ECGR PH "Essai :CO 
SI EGAL? POS :POSF [FCURSGR [-180 120] FCTGR 186 ECGR [R?ussi !!] FCC CF FCC 186 ATTENDS .5 EC "Bravo STOP] 
DONNE "C 0 
ESSAI 
FIN 
 
POUR SAUF.PI  
DONNE "PF HASARD 4 
SI NON EGAL? :PF :PI [RENDS :PF] 
RENDS SAUF.PI 
FIN 
 
POUR COTE1  
FCC 5 
FCAP :CAPI 
AV 100 
RE 100 
FIN 
 
POUR COTE2  
LC 
ORIGINE 
FCAP :CAPVISE 
BC 
FCC 5 
AV 100 
FIN 
 
POUR VALEUR  
LC 
ORIGINE 
FCAP :CAPI + :ANGLE / 2 
AV 60 
FCAP 0 
RE 5 
FCURSGR POS 
FCTGR 186 
ECGR ABS :ANGLE 
FIN 
 
POUR COTE3  
ORIGINE 
FCAP :CAPF 
BC 
FCC 5 
AVP 100 
LC 
FCC 0 
AV 10 
FIN 
 
POUR AVP :L 
SI PLP? :L 3 [LC AV :L BC STOP] 
AV 3 LC AV 3 BC 
AVP :L - 6 
FIN 
 

Retour - Back