Je compte le développer évidemment, ce n'est que la version béta à l'état embryonnaire, mais je la mets quand même. Comme ça, vous pourrez donenez des suggestions ou me dire pourquoi ça ne marche pas (je sais ça ne reconstitue pas comme il faut mais c'est un tout petit rien que je ne vois pas )
Code
If L.:Then
0->L.A(1)
0->L.B(1)
0->L.C(1)
0->L.D(1)
0->L.E(1)
0->L.F(1)
0->L.
End
Repeat getKey
For(I,1,5
Output(3,I," PROGRAMME
33!
Output(5,16-2I,"CREE PAR
End
Output(7,7,"COC5
For(I,1,100
End
ClrHome
End
Goto 0
Lbl 3
Output(1,8," or
Output(1,6,"InF
Output(1,10,"s
Output(3,5," or
Output(3,1,"Ce pr
Output(3,7,"GraMMe permet de numériser une image puis de la recréer a l'écran.
Pause
For(I,3,7
Output(I,1,"
End
Output(7,3," or
Output(3,1,"Numérisez en simple sauf en cas d'images ayant de n
Output(7,5,"Mbreuses alternances
Pause
ClrHome
Output(4,4, or
Output(4,1,"Me J
Output(4,6,"Indre :
Output(5,6," or
Output(5,6,"C
Output(5,8,"cL.Free.Fr
Pause
CLtHOMe
Lbl 0
Menu("IMAGEL.","DENUMERISER",1,"NUMERISER",2,"INFOS",3,"QUITTER",A
Lbl A:Stop
Lbl 1
Output(1,6," or
Output(1,3,"Dest
Output(1,8,"cKer
3->A
1->O
Lbl 6
not(O)->O
If not(O
Then
Output(3,8,"L
Output(4,8,"L`
Output(5,8,"Lf
Output(6,8,"L"
Output(7,8,"L...
Output(8,8,"L+
If O:Then
Output(3,8,"L.A
Output(3,8,"L.B
Output(3,8,"L.C
Output(3,8,"L.D
Output(3,8,"L.E
Output(3,8,"L.F
Output(3,8,"L.G
End
Repeat K=105
getKey->K
A->C
If K=25:A-1->A
If K=34:A+1->A
If A=2 or A=15:10not(A-15)+3->A
If A=9 and not(O) or A=8 and O
Goto 6
If AøC:Then
Output(C-6O,6,"
Output(C-6O,11,"
Output(A-6O,6,"*
Output(A-6O,11,"*
End
End
If A=3:L->L.NUM
If A=4:L`->L.NUM
If A=5:Lf->L.NUM
If A=6:L"->L.NUM
If A=7:L...->L.NUM
If A=8:L+->L.NUM
If A=9:L.A->L.NUM
If A=10:L.B->L.NUM
If A=11:L.C->L.NUM
If A=12:L.D->L.NUM
If A=13:L.E->L.NUM
If A=14:L.F->L.NUM
1->A:1->B:1->N
10->M
If L.NUM(1)=-1:Goto 5
Repeat A=94 and B=62
A+1->A
If A=95:Then
1->A
1+B->B
End
1+M->M
If M=13
Then
1->M
N+1->N
End
If int(10fPart(10^(M)L.NUM(N)=1:Pxl-On(B,A
End
CLrLIst L.NUM
Goto 0
Lbl 5
0->D
Repeat A=94 and B=62 and GetKeY
A+1->A
If A=95:Then
1->A
1+B->B
End
If M=14
Then
1->M
N+1->N
End
If L.NUM(N)>1 or D=1:Then
1->D
If L.NUM(N)=0:Then
1+N->N
2->M:0->D
End
L.NUM(N)-1->L.NUM(N)
If int(10fPart(L.NUM(N+1)))=1:Pxl-On(B,A
Else
If int(10fPart(10^(M)L.NUM(N)))=1:PXL-On(B,A
If int(10fPart(10^(M)L.NUM(N)))>1:N+1->N
M+1->M
End
End
ClrList L.NUM
Goto 0
Lbl 2
Menu("NUMERISER","IMG SIMPLE",S,"IMG CONTRASTE",C
Lbl C
0->L.DNU(1)
1->A:1->B:1->N:ClrHome
.1->M
Output(7,1,"APPUYEZ SUR UNE
Output(8,1,"POUR ARRETER
Repeat A=94 and B=62 or GetKeY
Output(5,1+int((94B-94+A)/389),"=
int((94B-94+A)/5.828)/10
Output(2,8,"
Output(2,8,Ans
A+1->A
If A=95:Then
1->A
1+B->B
End
.1M->M
If M=10^(-14):Then
.1->M
N+1->N
0->L.DNU(N)
End
Mpxl-Test(B,A)+L.DNU(N)->L.DNU(N
End
Goto 9
Lbl S
ClrList L.NUM
-1->L.NUM(1)
1->A:1->B:0->U
2->N:0->M
pxl-Test(1,1)->L
Output(7,1,"APPUYEZ SUR UNE
Output(8,1,"POUR ARRETER
Repeat A=94 and B=62 or getkey
Output(2,8,"
Output(2,8,.1int((94B-94+A)/5.828)
A+1->A
If A=95:Then
B+1->B
1->A
End
L->J
pxl-Test(B,A)->L
U+1->U
If LøJ:Then
If U=1:M+1->M
If M=14 or Uø1:Then
N+1->N
0->L.NUM(N)
M->G
1->M
End
If U=L:10^(-M)+L.NUM(N)->L.NUM(N)
If Uø1:Then
210^(-G)+L.NUM(N-1)->L.NUM(N-1)
U->L.NUM(N)
N+1->N
J->L.NUM(N)
End
0->U
End
End
Lbl 9
ClrHome
Output(1,4," or
Output(1,3,"St
Output(1,6,"cKer dans
3->A
1->O
Lbl 7
not(O)->O
If not(O
Then
Output(3,8,"L1
Output(4,8,"L2
Output(5,8,"L3
Output(6,8,"L4
Output(7,8,"L5
Output(8,8,"L6
If O:Then
Output(3,8,"L.A
Output(3,8,"L.B
Output(3,8,"L.C
Output(3,8,"L.D
Output(3,8,"L.E
Output(3,8,"L.F
Output(3,8,"L.G
End
Repeat K=105
getKey->K
A->C
If K=25:A-1->A
If K=34:A+1->A
If A=2 or A=14:10not(A-2)+3->A
If A=9 and not(O) or A=8 and O
Goto 7
If AøC:Then
Output(C-6O,6,"
Output(C-6O,11,"
Output(A-6O,6,"*
Output(A-6O,11,"*
End
End
If A=3:L.DNU->L
If A=4:L.DNU->L`
If A=5:L.DNU->Lf
If A=6:L.DNU->L"
If A=7:L.DNU->L...
If A=8:L.DNU->L+
If A=9:L.DNU->L.A
If A=10:L.DNU->L.B
If A=11:L.DNU->L.C
If A=12:L.DNU->L.D
If A=13:L.DNU->L.E
If A=14:L.DNU->L.F
ClrList L.DNU
Goto 0
