exemples/pLogo/COULEURS.JLOGO

POUR TPAS 
RENDS [1 1] 
FIN 
 
POUR YMAX 
	RENDS QUOT QUOT ITEM 2 TGRAPH DER TPAS 2 
FIN 
 
POUR XMAX 
	RENDS QUOT QUOT PREM TGRAPH PREM TPAS 2 
FIN 
 
POUR  SECTCOL  :R :COL :ANG :U :V 
	SI :COL >= 256 [STOP] 
	FCC RESTE :COL NBCOUL 
	SECTEUR :R  :COL * :ANG + :U  (:COL + 1) * :ANG + :U 
	SECTCOL :R - :V :COL + 1 :ANG :U + 1 :V 
FIN 
 
POUR COULEURS 
;	FMOTIF [-1] 
	CT 
	SECTCOL YMAX 0 30 0 DIV YMAX 256 
	FCC 1 MT ; FMOTIF [] 
FIN 
 
POUR CARREP :A :C 
	DONNE "C RESTE :C NBCOUL 
;	SI ZERO? :C [FCC 1] [FCC :C] 
	FCC :C 
	REPETE 4 [ AV :A TD 90 ] 
	SI ZERO? :C 5 [STOP] 
	LC TD 45 AV :A 
;	REMPLIS 
  	RE :A TG 45 BC 
FIN 
 
 
POUR FIBO :P :Q :C 
	SI :P >  DIV XMAX 4 [STOP] 
	CARREP :P :C 
	AV :P TD 90 AV :P 
	FIBO :P + :Q :P :C + 1 
FIN 
 
FEN ME 2 
COULEURS 
ATTENDS 3 
VE CT 
FIBO 3 3 1 
ATTENDS 2 MT 
 

Retour - Back