MobiNet v1.0.17 CMobile (-90,-90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi si clic alors restart moi; finsi rouge: mem1 mem1: ent(rnd*2) i:7 ; j:7 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 6.95381e-308 0 0 7 0 (-60,-90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 2.122e-314 0 1 3.82355e+15 1 (-30,-90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 1.55729e-268 0 2 6.79729e-313 2 (0,-90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 1.95224e-312 0 3 2.16444e-312 3 (30,-90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 7.78797e-308 0 4 1.42409e-306 4 (60,-90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 5.35847e-313 0 5 7.64583e-313 5 (90,-90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 5.31162e-313 0 6 7.64583e-313 6 (-90,-60,0) (0,0,0) 15 0 0 4278190080 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 3.56027e-307 1 7 4.89537e-307 7 (-60,-60,0) (0,0,0) 15 0 0 4278190080 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 2.2281e-312 1 8 1.03978e-312 8 (-30,-60,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 1.24611e-306 0 9 1.50197e-307 9 (0,-60,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 7.78797e-308 0 10 1.42409e-306 10 (30,-60,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 7.78797e-308 0 11 1.42409e-306 11 (60,-60,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 1.39076e-308 0 12 7.56547e-307 12 (90,-60,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 2.27497e-268 0 13 6.79732e-313 13 (-90,-30,0) (0,0,0) 15 0 0 4278190080 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 2.34332e-268 1 14 2.34314e-268 14 (-60,-30,0) (0,0,0) 15 0 0 4278190080 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 6.9538e-308 1 15 6.95356e-308 15 (-30,-30,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 1.78021e-306 0 16 7.23163e-308 16 (0,-30,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 2.61201e-268 0 17 2.61362e-268 17 (30,-30,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 2.80113e-268 0 18 6.79734e-313 18 (60,-30,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 7.78797e-308 0 19 1.42409e-306 19 (90,-30,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 1.73755e-269 0 20 1.73755e-269 20 (-90,0,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 7.78797e-308 0 21 1.42409e-306 21 (-60,0,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 8.34416e-308 0 22 2.22513e-306 22 (-30,0,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 1.37962e-306 0 23 1.29057e-306 23 (0,0,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 1.23076e-312 0 24 2.122e-313 24 (30,0,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 0 0 25 3.27639e-268 25 (60,0,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 5.35847e-313 0 26 7.64584e-313 26 (90,0,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 1.37962e-306 0 27 1.29057e-306 27 (-90,30,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 1.37962e-306 0 28 1.29057e-306 28 (-60,30,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 3.82657e-313 0 29 9.16702e-312 29 (-30,30,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 1.23076e-312 0 30 2.31298e-312 30 (0,30,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 4.42852e-268 0 31 4.42996e-268 31 (30,30,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 0 0 32 7.43397e-313 32 (60,30,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 1.6022e-306 0 33 1.29061e-306 33 (90,30,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 4.90098e-268 0 34 6.79738e-313 34 (-90,60,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 2.122e-314 0 35 9.95217e-270 35 (-60,60,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 7.78797e-308 0 36 1.42409e-306 36 (-30,60,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 4.45033e-308 0 37 1.69121e-306 37 (0,60,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 7.78797e-308 0 38 1.42409e-306 38 (30,60,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 7.56604e-307 0 39 1.33512e-306 39 (60,60,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 2.92835e-312 0 40 2.9821e-268 40 (90,60,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 7.01394e-316 0 41 6.72147e-268 41 (-90,90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 6.8607e-268 0 42 6.86392e-268 42 (-60,90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 7.78797e-308 0 43 1.42409e-306 43 (-30,90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 0 0 44 7.43401e-313 44 (0,90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 6.95358e-308 0 45 4.45044e-308 45 (30,90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 8.34416e-308 0 46 2.22513e-306 46 (60,90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 8.28687e-268 0 47 5.36972e-315 47 (90,90,0) (0,0,0) 15 0 0 0 1 1 0 1 e:0 p: plusproche_vers(-1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,0,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(0,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi p: plusproche_vers(-1,-1,Pi/4) si p~$VIDE alors e: e + mem1 p; finsi couleur: NOIR si mem1=0 alors si e = 3 alors mem1: 1; finsi sinon si e~2 ou e$3 alors mem1: 0; finsi finsi rouge: mem1 mem1: ent(rnd*2) i:5 ; j:5 // taille grille si moi=1 alors mem2: 0 mem3: i ; mem4: j sinon mem2: (mem2 prec)+1 i: mem3 1 ; j:mem4 1 finsi x: (mem2 mod i) * 200/(i-1) -100 y: ent(mem2 / i) * 200/(j-1) -100 x: .9*x; y: .9*y si suiv~$ 1 alors restart suiv; finsi 5.36972e-315 0 48 8.48798e-313 48