Casi 8.000 fuentes de texto gratis para todos :)

[Eleкtro]

Buenas.

No sabía si colocar este aporte en la sección de diseño gráfico, ya que las fuentes de texto no tienen por que acabar abarcar dicha temática.

En fin, les traigo una lista que he elaborado con casi 8.000 enlaces de fuentes de texto de calidad suprema (True Type y Open Type). Es un texto listo para copiar y pegar en su administrador de descargas favorito.

➢ http://pastebin.com/q9CKV2Hg

Hay muchas fuentes conocidas "comerciales" como la que usa Disney u otras compañias/marcas de todo tipo. Hay todo tipo de fuentes, 3d, grunge, graffity, normales, a mano, etc.



La página de donde he sacado los enlaces:
➢ http://www.1001fonts.com/

Y por si a alguien le sirve, este es el simple algoritmo de web-scraping que desarrollé para la ocasión. Está escrito en VisualBasic.Net.

Código (vbnet) [Seleccionar] Expandir

Dim urlFormat As String = "http://www.1001fonts.com/new-and-fresh-fonts.html?page={0}&items=50"
Dim currenturl As String
Dim includeDemoFonts As Boolean = False
Dim zipExp As New Regex("http([s])?.+\.zip", RegexOptions.IgnoreCase)

Dim fontList As New List(Of String)
Dim outputFile As String = "C:\fonts.txt"

For pageIndex As Integer = 1 To Integer.MaxValue

   currenturl = String.Format(urlFormat, pageIndex)

   Debug.WriteLine(String.Format(" Current page: {0}", pageIndex))
   Debug.WriteLine(String.Format(" Current url : {0}", currenturl))

   Try
       Using sr As New StreamReader(HttpWebRequest.Create(currenturl).GetResponse.GetResponseStream)

           For Each m As Match In zipExp.Matches(sr.ReadToEnd).Cast(Of Match)()

               If (Not includeDemoFonts) AndAlso (m.Value.ToLower.EndsWith("demo.zip")) Then
                   Continue For

               Else
                   If Not fontList.Contains(m.Value) Then
                       fontList.Add(m.Value)
                   End If

               End If

           Next m

       End Using

   Catch ex As WebException
       If (ex.Status = WebExceptionStatus.ProtocolError) AndAlso (ex.Message.Contains("404")) Then
           Exit For

       Else
           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

       End If

   End Try

Next pageIndex

File.WriteAllLines(outputFile, fontList, Encoding.Default)
MessageBox.Show("Finished", "", MessageBoxButtons.OK, MessageBoxIcon.Information)

Si solo quieren descargar las fuentes de una categoría de la página la modificación de la query es muy sencilla, por ejemplo la categoría de fuentes 3D:

Código (vbnet) [Seleccionar] Expandir

Dim urlFormat As String = "http://www.1001fonts.com/3d-fonts.html?page={0}&items=50"

PD: Apenas tarda 1 minuto en recolectar los 8.000 enlaces.

Saludos!

[Filibustero de bolsillo]

a mi me sirve muchísimo por estos días, ¡muchas gracias!  (jeje)

[Eleкtro]

Pues aquí va un pack de 1.500 fuentes de texto:
http://www.vectorilla.com/downloads/fonts_pack.zip

Y otro de 2.000:
http://www.mediafire.com/?nguk702coew117s

Sources:
http://www.vectorilla.com/2009/12/free-fonts-big-pack-more-than-1500-fonts/
https://www.youtube.com/watch?v=6XzCeVvVlBQ

Saludos

[MinusFour]

Muchas de estas son gratis para uso personal solamente.... tengan cuidado como usen estas tipografías. Si es para hacer logotipos para empresas y cosas por el estilo, tienen que pagar la licencia (algunas si son gratis para usar comercialmente).

[Pablo Videla]

Excelente, gracias Elektro, en algun momento lo usaré