exemples/pLogo/DIVERS.JLOGO

;__________________ POLY ________________
POUR POLY :N :C
REPETE :N [AV :C TD 360 / :N]
FIN

POUR KPOLY :K :N :C
REPETE :K [POLY :N :C TD 360 / :K]
FIN

;__________________ DRAGON ______________
POUR  DRAGON  :N
SI :N > 8 [DRAGON :N / 4 TG 90 DRAGON :N / 2 TD 90 DRAGON :N / 2 TD 90 DRAGON :N / 2 TG 90 DRAGON :N / 4] [AV :N]
FIN

;__________________ ARCS ___________________
POUR ARCD :N :PAS
REPETE :N [AV :PAS TD 1]
FIN

POUR ARCG :N :PAS
REPETE :N [AV :PAS TG 1]
FIN

POUR ROSACE
CT
ARCD 360 1
TD 60
REPETE 3 [ARCD 120 1 TD 120]
TG 60 ARCD 60 1 TD 60
REPETE 3 [ARCD 120 1 TD 120]
FIN

POUR PETALE :N :PAS
ARCD :N :PAS
TD 180 - :N
ARCD :N :PAS
FIN

POUR MARGUERITE 
CT REPETE 12 [PETALE 30 0.5]
RE 20 RE 20
TD 20 PETALE 10 1
FIN

;____________________________ FLOCON _________________

POUR VK1 :Y
VONKOCH :Y TG 60
VONKOCH :Y TD 120
VONKOCH :Y TG 60
VONKOCH :Y
FIN

POUR VONKOCH :X
SI :X < 10 [AV :X] [VK1 :X / 3]
FIN

POUR FLOCON :X
REPETE 3 [VONKOCH :X TD 120]
FIN

;______________ DEMO _______________

POUR DEMO
DONNE "glu -1
; ME 4
FEN
CT
DEMO1
MT
FIN

POUR CO
SOIT "GLU HASARD NBCOUL
SI EGAL? :GLU :glu [RENDS CO]
DONNE "glu :GLU
RENDS :GLU
FIN

POUR COPYRIGHT
; SORTIE 6
; FTCAR [2 2] FCT CO FCFT CO FCURS [0 0] TAPE "P-LOGO
; FTCAR [1 1] FCT CO FCFT CO FCURS [0 2] TAPE "Copyright:
; FTCAR [1 1] FCT CO FCFT CO FCURS [0 3] TAPE [EDITIONS PROFIL]
; FTCAR [1 1] FCT CO FCFT CO FCURS [0 4] TAPE 1990
; SORTIE 1
FIN

POUR TITRE :T
FCT CO FCFT NBCOUL - CTX - 1
EC :T
FIN

POUR DEMO1
VE FEN CT
 FCFG CO FCC CO COPYRIGHT
 TITRE "FLOCON
 FLOCON 100
ATTENDSTORTUE ATTENDS 4 VE FEN CT
 FCFG CO FCC CO COPYRIGHT
 TITRE "POLYGONES
 KPOLY 16 8 64
ATTENDSTORTUE ATTENDS 4 VE FEN CT
 FCFG CO FCC CO COPYRIGHT
 TITRE "ROSACE
 ROSACE
ATTENDSTORTUE ATTENDS 4 VE FEN CT
 FCFG CO FCC CO COPYRIGHT
 TITRE "POLYGONES
 KPOLY 16 20 16
ATTENDSTORTUE ATTENDS 4 VE FEN CT
 FCFG CO FCC CO COPYRIGHT
 TITRE "DRAGON
 DRAGON 128
ATTENDSTORTUE ATTENDS 4 VE FEN CT
 FCFG CO FCC CO COPYRIGHT
 TITRE "POLYGONES
 KPOLY 8 32 4
ATTENDSTORTUE ATTENDS 4 VE FEN CT
 FCFG CO FCC CO COPYRIGHT
 TITRE "MARGUERITE
 MARGUERITE
ATTENDSTORTUE ATTENDS 4 VE FEN CT
 FCFG CO FCC CO COPYRIGHT
 TITRE "POLYGONES
 KPOLY 40 4 60
;SI TOUCHE? [SOIT "U LISCAR STOP]
; RECYCLE
;DEMO1
FIN


DEMO
ATTENDS 2 

Retour - Back