Deeph (./27) :

Et bon si tu ne veux plus du tout de if ( , mais bon c'est p-t légèrement extrémiste):

Bah je cherche à faire le plus rapide, mais là déjà je comprend plus ton code ...

Comme souvent ce n'est pas bien compliqué... une fois qu'on a compris


D'ailleurs j'ai oublié un truc: on n'a plus besoin des affectations 0->DX:0->DW lorsque l'on calcul ou lieu de tester
bref, j'espère ma dernière version ( c'est pour m'amuser, tu n'est surtout pas obligé de suivre jusque là ):

31→W:47→X
Line(46,39,48,39
While 1
Pt-On(X,W,2
Repeat K
getKey→K
End

int(K/24)*int(26/K)*(25-K)->DX
int(K/25)*int(34/K)*iPart((K-29.5)/4.5)->DW
1->T
For(A,-1,1
T*(1-pxl-test(62-(W+2DW+DX*A),X+2DX+DW*A))->T
End
Pt-Off(X,W,2
X+DX*T→X
W+DW*T→W
End