elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Foros Generales
| |-+  Foro Libre
| | |-+  Casi 8.000 fuentes de texto gratis para todos :)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Casi 8.000 fuentes de texto gratis para todos :)  (Leído 1,962 veces)
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Casi 8.000 fuentes de texto gratis para todos :)
« en: 19 Octubre 2015, 16:32 pm »

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
  1. Dim urlFormat As String = "http://www.1001fonts.com/new-and-fresh-fonts.html?page={0}&items=50"
  2. Dim currenturl As String
  3. Dim includeDemoFonts As Boolean = False
  4. Dim zipExp As New Regex("http([s])?.+\.zip", RegexOptions.IgnoreCase)
  5.  
  6. Dim fontList As New List(Of String)
  7. Dim outputFile As String = "C:\fonts.txt"
  8.  
  9. For pageIndex As Integer = 1 To Integer.MaxValue
  10.  
  11.    currenturl = String.Format(urlFormat, pageIndex)
  12.  
  13.    Debug.WriteLine(String.Format(" Current page: {0}", pageIndex))
  14.    Debug.WriteLine(String.Format(" Current url : {0}", currenturl))
  15.  
  16.    Try
  17.        Using sr As New StreamReader(HttpWebRequest.Create(currenturl).GetResponse.GetResponseStream)
  18.  
  19.            For Each m As Match In zipExp.Matches(sr.ReadToEnd).Cast(Of Match)()
  20.  
  21.                If (Not includeDemoFonts) AndAlso (m.Value.ToLower.EndsWith("demo.zip")) Then
  22.                    Continue For
  23.  
  24.                Else
  25.                    If Not fontList.Contains(m.Value) Then
  26.                        fontList.Add(m.Value)
  27.                    End If
  28.  
  29.                End If
  30.  
  31.            Next m
  32.  
  33.        End Using
  34.  
  35.    Catch ex As WebException
  36.        If (ex.Status = WebExceptionStatus.ProtocolError) AndAlso (ex.Message.Contains("404")) Then
  37.            Exit For
  38.  
  39.        Else
  40.            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  41.  
  42.        End If
  43.  
  44.    End Try
  45.  
  46. Next pageIndex
  47.  
  48. File.WriteAllLines(outputFile, fontList, Encoding.Default)
  49. 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
  1. 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!
« Última modificación: 19 Octubre 2015, 16:44 pm por Eleкtro » En línea

Embusterillo de bolsillo


Desconectado Desconectado

Mensajes: 1.333


Yo-jo Yo-jo Un Pirata Yo Soy ♫♫


Ver Perfil
Re: Casi 8.000 fuentes de texto gratis para todos :)
« Respuesta #1 en: 19 Octubre 2015, 16:53 pm »

a mi me sirve muchísimo por estos días, ¡muchas gracias!  :-* (jeje)
En línea

Absence makes the heart grow fonder.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Casi 8.000 fuentes de texto gratis para todos :)
« Respuesta #2 en: 19 Octubre 2015, 17:04 pm »

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
En línea

MinusFour
Moderador Global
***
Desconectado Desconectado

Mensajes: 5.529


I'm fourth.


Ver Perfil WWW
Re: Casi 8.000 fuentes de texto gratis para todos :)
« Respuesta #3 en: 19 Octubre 2015, 17:18 pm »

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).
En línea

Pablo Videla


Desconectado Desconectado

Mensajes: 2.274



Ver Perfil WWW
Re: Casi 8.000 fuentes de texto gratis para todos :)
« Respuesta #4 en: 19 Octubre 2015, 17:46 pm »

Excelente, gracias Elektro, en algun momento lo usaré  ;-)
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines