Référence pour un algorithme

J'aimerais faire une fonction en Delphi qui inscrit un texte, passé en paramètre, en gros

exemple : ecritGros('un texte');

donne

* * *** * *** * * * ***
* * * * *** ** * *** **
* * * * * * * * *
*** * * * *** * * * ***

en tout cas, vous voyer le genre

Si vous avez une référence où je pourrais trouver un algorithme qui fait
ça, ça m'aiderait beaucoup

Merci

Qu'est ce que t'apelle en gros, j'ai pas du tout compris ce que tu veux faire??

Avec un peut de mise en page c'est plus facile a comprendre. :wink:

"un texte" donne

Code:

---

1 2 3 4 5

* * *** *** *** * * *** *** * * * * * * * * * * * * * * * ** * * ** * * * * * * * * * * *** * * * *** * * * ***

---

Bonne soirée
-Magic-

Ben soit tu stockes les "images" des lettres à afficher... Soit tu t'amuses à décortiquer les informations obtenues sur les polices TrueType par exemple.

Je pencherais plus pour la première solution si tu veux pas devenir fou avant la fin du mois ;)

A+

Solution intermediaire : tu te fais une petite image bitmap, ecrit le texte dessus avec une police genre courier new 10px et tu lis les valeurs des pixels de l'image : #00000000 -> '*', #00FFFFFF -> ' '

Bon dev' ;)

à l'écran c'était beau, mais en apperçu ouf

Merci

va faire un tour sur le net , je suis sur que tu peux trouver une police qui correspondra a peut pres a tes besoins ( style ' DOT '), çà sera plus simple et surment plus esthetique.

Je vais faire comme John Fullspeed dit, ç'est la meilleure solution pour mes besoins.

Super merci!

Une solution qui vaut ce qu'elle vaux ... mais qui est interessante pour son algo ;pp :

Tu creer sur papier une matrice NxN qui contien des 1 ou Des 0 en fonctions du fait que la case possede une etoile ou non.
Tu place les lignes de ta matrice les une a la suite des autres
Tu calcule la representation numerique en base 10 de ta suite de 1 et de 0
Tu obtient donc un chiffre par lettre.
Tu retrouve par l'algo inverse ta matrice sur laquelel tu t'appuie pour dessiner tes lettres.

Demo :

A =

Code:

---

1 2 3 4 5 6

***** * * ***** * * * *

---

Donc MAt(A) =
1 1 1 1 1
1 0 0 0 1
1 1 1 1 1
1 0 0 0 1
1 0 0 0 1

ce qui donne :
(11111 10001 11111 10001 10001)Base2 = (33095217)Base10

Etc....

Pour retrouver ta matrice :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

N := 33095217; Col := 0; Row := 0; For p := 24 downto 0 do Begin Mat[0,0] := N div Power(2,p); N := N Mod Power(2,p); dec(p); Inc(Col); If Col >= 5 Then Begin Inc(Row); Col := 0; end; End;

---

Reste plus qu'a afficher la matrice ....

Remarque : Dans ton cas, tu n'a qu'a trouver "a la main" le nombre decimal, le stoquer dans un fichier texte qu'il sera aisé a lire et modifier sans recompiler le prog ....

Sincèrement et sans sarcasme, je suis vraiment impressionné Clorish
bravo !

J'y suis pour pas grand chose .... Notre 2e TP de C en Licence d'info (apres donc seulement 2 mois de prog) a ete de programmer un logiciel de compression de fichier text par la methode d'Huffman, utilisant une technique du genre.

J'ai trouve cette technique extra et je l'adapte a bon nombre de situations :D

... Et yen a ;p