de pierrotdu18 » 25 Juin 2014, 16:56
Sauf que comme c'est la hauteur en pixels qui compte, ça, c'est mieux
(ceci est une "amélioration" de la hauteur en pixels du code de Bisam et je ne considère pas le code ci-dessous comme ma production)
- Code: Tout sélectionner
Define atom(z)=
Func
:when(getType(z)="NUM",atom({1,0,"",z}),when(z[4]≤0,z[3],atom(augment(when(z[2]>0,{z[1]+1,z[2]-1},{floor((z[1]+3)*0.5),floor(z[1]*0.5)}),{z[3]&when(right(string(z[1]),1)=".",left(string(z[1]),dim(string(z[1]))-1),string(z[1]))&mid("spdfgh",z[2]+1,1)&when(right(string(min(z[4],4*z[2]+2)),1)=".",left(string(min(z[4],4*z[2]+2)),dim(string(min(z[4],4*z[2]+2)))-1),string(min(z[4],4*z[2]+2)))&" ",max(0,z[4]-4*z[2]-2)}))))
:EndFunc
Dernière édition par
pierrotdu18 le 25 Juin 2014, 17:22, édité 1 fois.
Bonjour