Connaître la chasse des caractères d'une police

Connaître la chasse des caractères d'une police - Divers - Graphisme

Marsh Posté le 23-12-2014 à 16:49:23    

Hello,
Je souhaiterais connaître la chasse des caractères (largeur de chaque caractère suivi de son espace) d'une police, disons Tahoma pour en prendre une connue (j'imagine que cette largeur est renseignée en "points" ).
 
Dès que je cherche dans Google, bien sûr, ça me renvoie au garde-chasse, et autre police des chasseurs !  :D
 
Savez-vous si cette info est documentée ?
 
 :jap:


---------------
Is it a bird? Is it a plane? No it s F22Raptor !  -  I love flying because football, baseball, rugby, and golf only take one ball
Reply

Marsh Posté le 23-12-2014 à 16:49:23   

Reply

Marsh Posté le 23-12-2014 à 17:15:40    

Déjà ça va dépendre de la taille des caractère, évidemment, et t'as surtout des typos à chasse fixe et d'autres à chasse variable.
Mais j'ai jamais rien vu qui référençait ça. A part le faire toi-même je vois pas trop comment faire.

Reply

Marsh Posté le 23-12-2014 à 17:28:46    

nikos69 a écrit :

Déjà ça va dépendre de la taille des caractère, évidemment, et t'as surtout des typos à chasse fixe et d'autres à chasse variable.
Mais j'ai jamais rien vu qui référençait ça. A part le faire toi-même je vois pas trop comment faire.


Disons pour une taille et une police données : Tahoma 12 pts
Je cherche surtout les rapports entre les chasses des différents caractères.  Par exemple, si le "i" fait 4, le "m" fait 15.3 (je ne dois pas être loin sur Tahoma !)
 
Dommage qu'il n'y ait pas l'info officielle pour les polices publiques.
Je suis deception   :sweat:


---------------
Is it a bird? Is it a plane? No it s F22Raptor !  -  I love flying because football, baseball, rugby, and golf only take one ball
Reply

Marsh Posté le 25-12-2014 à 21:45:12    

F22Raptor a écrit :


Disons pour une taille et une police données : Tahoma 12 pts
Je cherche surtout les rapports entre les chasses des différents caractères.  Par exemple, si le "i" fait 4, le "m" fait 15.3 (je ne dois pas être loin sur Tahoma !)
 
Dommage qu'il n'y ait pas l'info officielle pour les polices publiques.
Je suis deception   :sweat:


A ma connaissance y a pas d'outil qui permette de le déterminer de façon simple, et ce n'est jamais précisé par les vendeurs. Remarque que ça n'a pas grand intérêt, concrètement, comme info - à l'usage le kerning sera quasi systématiquement ajusté (soit automatiquement, soit manuellement pour qui veut faire les choses bien). Mais bon, question pas idiote après tout ; pour les dimensions de chaque glyphe, ouvrir le fichier dans Fontlab, et regarder... :D


Message édité par DREAListe le 25-12-2014 à 21:46:11

---------------
« Citoyens, aux burnes ! Votez Sticule. »
Reply

Marsh Posté le 25-12-2014 à 22:07:57    

J'ai trouvé un malin petit bout de code en VBA qui donne la taille en pixels d'une chaîne, pour une police et une taille données.
Je vous posterai ça lundi :)


---------------
Is it a bird? Is it a plane? No it s F22Raptor !  -  I love flying because football, baseball, rugby, and golf only take one ball
Reply

Marsh Posté le 29-12-2014 à 14:40:23    

comme promis  :)
 
source : http://www.generation-nt.com/repon [...] 62721.html
 

Citation :

Option Explicit
 
Type Size
cx As Long
cy As Long
End Type
 
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
 
Private Declare Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, ByVal hDC As Long) As Long
 
Private Declare Function CreateFontA Lib "gdi32" _
(ByVal H As Long, ByVal W As Long, ByVal E As Long, _
ByVal O As Long, ByVal W As Long, ByVal I As Long, _
ByVal u As Long, ByVal S As Long, ByVal C As Long, _
ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, _
ByVal PAF As Long, ByVal F As String) As Long
 
Private Declare Function SelectObject Lib "gdi32" _
(ByVal hDC As Long, ByVal hObject As Long) As Long
 
Private Declare Function DeleteObject Lib "gdi32" _
(ByVal hObject As Long) As Long
 
Private Declare Function GetTextExtentPoint32A Lib "gdi32" _
(ByVal hDC As Long, ByVal lpsz As String, _
ByVal cbString As Long, lpSize As Size) As Long
 
Private Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hDC As Long, ByVal nIndex As Long) As Long
 
 
 
 
Public Function LargeurTexte(Texte As String, Police As String, _
Taille As Double, Optional Gras As Boolean, Optional Italique As Boolean)
 
    Dim hFont As Long
    Dim hDC As Long
    Dim TSize As Size
    Dim PixpInch As Double
     
    hDC = GetDC(0)
    PixpInch = GetDeviceCaps(hDC, 90) / 72
    hFont = CreateFontA(-Taille * PixpInch, 0, 0, 0, _
    400 + 300 * Gras, Italique, 0, 0, 1, 0, 0, 0, 0, Police)
    ' If hFont = 0 Then LgTexte = CVErr(xlErrValue): Exit Function
    If hFont = 0 Then LargeurTexte = 0: Exit Function
    SelectObject hDC, hFont
    GetTextExtentPoint32A hDC, Texte, Len(Texte), TSize
    DeleteObject hFont
    ReleaseDC 0, hDC
    LargeurTexte = TSize.cx
 
End Function


Message édité par F22Raptor le 29-12-2014 à 14:44:27

---------------
Is it a bird? Is it a plane? No it s F22Raptor !  -  I love flying because football, baseball, rugby, and golf only take one ball
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed