exemples/COULEURS.JLOGO

POUR AFFCOUL :T :X :Y 
LC FPOS PH :X :Y BC
FCC :T
SECTEUR 20 -90 180
FCC 0 ECRISG :T
FIN

POUR COULEURS
DONNE "NBREX ENT DIV ITEM 1 TGRAPH 45
DONNE "NBREY ENT DIV ITEM 2 TGRAPH 25
DONNE "POSX SOMME MINUS DIV ITEM 1 TGRAPH 2 22
DONNE "COUL 0
CT
REPETE :NBREX [ DONNE "POSY SOMME MINUS DIV ITEM 2 TGRAPH 2 22 REPETE :NBREY [ AFFCOUL :COUL :POSX :POSY DONNE "POSY SOMME :POSY 25 DONNE "COUL SOMME :COUL 1] DONNE "POSX SOMME :POSX 45]
FIN

COULEURS
 
Me faire un don