exemples/COMPIL.JLOGO
POUR CRO
FCC 4
LC
FPOS[-70 0]
BC
FPOS[-60 60]
FPOS[-20 60]
FPOS[-20 100]
FPOS[10 70]
FPOS[30 70]
FPOS[60 90]
FPOS[30 30]
FPOS[70 10]
FPOS[70 0]
FCC 5
FPOS[60 -60]
FPOS[20 -60]
FPOS[20 -100]
FPOS[-10 -70]
FPOS[-30 -70]
FPOS[-60 -90]
FPOS[-30 -30]
FPOS[-70 -10]
FPOS[-70 0]
FIN
; ******************************************************************
; ******************************************************************
POUR PARA :A :C1 :C2
REPETE 2 [AV :C1 TD :A AV :C2 TD DIFF 180 :A]
FIN
; ******************************************************************
POUR FACESUP
TD 50
PARA 40 15 20
TG 50
FIN
; ******************************************************************
POUR FACEAV
PARA 90 20 20
FIN
; ******************************************************************
POUR FACED
PARA 50 20 15
FIN
; ******************************************************************
POUR CUBE
FIN
; ******************************************************************
POUR ESCALIER
FCFG 0 CT
LC FPOS[-90 -90] BC
DONNE "NB 9 DONNE "A :NB
REPETE :NB[FCC :A REPETE :A[FACEAV AV 20]RE PROD :A 20 TD 90 AV 20 TG 90 DONNE "A DIFF :A 1] DONNE "A 1
REPETE :NB[FCC :A FACED AV 20 TG 90 AV 20 TD 90 FACESUP DONNE "A SOMME :A 1]
FIN
; ******************************************************************
; ******************************************************************
POUR FRED
FCFG 0 FCC 1 FRED1 100 20 3
FCC 6 FRED1 10 20 5
FCC 12 FRED1 -80 20 7
VE FCFG 0 FCC 13 FRED2 100 20 2
FCC 14 FRED2 10 20 4
FCC 15 FRED2 -80 20 6
FIN
POUR FRED1 :X :Y :M
BOUCHE1
PT [-3 1] BC PT [-2 1 -3 2 -3 0] LC
PT [8 -6] BC PT [5 -2 5 2 6 2 4 5 5 6 3 5 3 6 2 5 1 7 1 5 -3 4 -5 2 -3 3 -4 2 -4 1 -3 2 -1 3 2 3 2 2 3 3 4 2 4 3 5 2] LC
PT [-1 0] BC PT [-5 0 -6 -1 -6 -2 -5 -3 -2 -3 0 -2] LC
PT [-3 -3] BC PT [-4 -4 -4 -6 -2 -8 2 -8 4 -6 4 -4 3 -3]
FIN
POUR FRED2 :X :Y :M
BOUCHE2
PT [3 1] BC PT [2 1 3 2 3 0] LC
PT [-8 -6] BC PT [-5 -2 -5 2 -6 2 -4 5 -5 6 -3 5 -3 6 -2 5 -1 7 -1 5 3 4 5 2 3 3 4 2 4 1 3 2 1 3 -2 3 -2 2 -3 3 -4 2 -4 3 -5 2] LC
PT [1 0] BC PT [5 0 6 -1 6 -2 5 -3 2 -3 0 -2] LC
PT [3 -3] BC PT [4 -4 4 -6 2 -8 -2 -8 -4 -6 -4 -4 -3 -3]
FIN
POUR BOUCHE1
LC PT [2 -2] BC
PT [2 -3 0 -4 -3 -5 -2 -3 -2 -4 1 -3 2 -2] LC
PT [3 1] BC PT [4 1 4 0 3 -1 3 0] LC
PT [-1 2] BC PT [-1 1 0 1 -1 2] LC
PT [-3 1] BC PT [-2 1 -3 2 -3 0] LC
FIN
POUR BOUCHE2
LC PT [-2 -2] BC
PT [-2 -3 0 -4 3 -5 2 -3 2 -4 -1 -3 -2 -2] LC
PT [-3 1] BC PT [-4 1 -4 0 -3 -1 -3 0] LC
PT [1 2] BC PT [1 1 0 1 1 2] LC
PT [3 1] BC PT [2 1 3 2 3 0] LC
FIN
POUR PT :L
SI VIDE? :L [STOP]
FPOS LISTE SOMME :X PROD PREM :L :M SOMME :Y PROD PREM SP :L :M
PT SP SP :L
FIN
; ******************************************************************
; ******************************************************************
POUR ESCALIER3D
VE
FCC 1
REPETE 5 [FACEAV TD 90 AV 20 TG 90]
REPETE 5 [FACED TD 50 AV 15 TG 50]
TD 50 RE 75 TD 40 RE 100 TG 90 AV 20
REPETE 5 [FACESUP TD 90 AV 20 TG 90]
TD 50 AV 15 TG 140 AV 20 TD 90
REPETE 4 [FACESUP TD 50 AV 15 TG 50]
TD 50 RE 60 TG 140 AV 60 TD 90
FCC 2
REPETE 3 [FACEAV TD 90 AV 20 TG 90]
REPETE 3 [FACED TD 50 AV 15 TG 50]
TD 50 RE 45 TD 40 RE 60 TG 90 AV 20
REPETE 3 [FACESUP TD 90 AV 20 TG 90]
TD 50 AV 15 TG 140 AV 20 TD 90
REPETE 2 [FACESUP TD 50 AV 15 TG 50]
TD 50 RE 30 TG 140 AV 20 TD 90
FCC 3
FACEAV TD 90 AV 20 TG 90
FACED TD 50 AV 15 TG 50
TD 50 RE 15 TD 40 RE 20 TG 90 AV 20
FACESUP
FIN
; ******************************************************************
POUR TRIOMPHE
VE
FCFG 0
FCC 1
REPETE 4 [FACEAV AV 20]
RE 20 REPETE 3 [TD 90 AV 20 TG 90 FACEAV]
RE 60 REPETE 4 [FACEAV AV 20]
TG 90 AV 60 TD 90
REPETE 4 [FACESUP TD 90 AV 20 TG 90]
RE 80
REPETE 4 [FACED AV 20]
TG 90 AV 60 TD 90 RE 80
REPETE 2 [FACED AV 20]
TD 50 AV 15 TG 50 AV 10
CT
EC [L'ARC DE TRIOMPHE]
FIN
; ******************************************************************
; ******************************************************************
; ******************************************************************
POUR S1 :COUPLE
RENDS LISTE OPP PREM :COUPLE OPP DER :COUPLE
FIN
POUR OPP :X
RENDS PROD -1 :X
FIN
POUR K
FCFG 0 DONNE "POS0 POS
FCC 1 EXEC LL SI NON BC? [K]
DONNE "POS1 POS
FCC 2 LC FPOS S1 :POS0 BC FPOS S1 :POS1
LC FPOS :POS1 BC
K
FIN
Retour - Back
jLogo
Turtle
Fractales
