[ Foro de Pascal ]

Graficos en Freepascal

08-Nov-2006 00:37
Martín Alvarez Pulido
1 Respuestas

Hola Nacho, soy profesor en Ingenieria en Sistemas Computacionales en México, pero me inscribí a tu curso para poder darte una aportación en lo referente a los gráficos, ya que en tus manuales no los traes para freepascal, pero funcionan los de turbo pascal con unas modificaciones: Te presento tu mismo código del ejemplo 1 de tus manuales pero con las modificaciones para que funcionen en Freepascal, para los demas es lo mismo, te lo aseguro, ya los probé. De antemano una disculpa por usar tus manuales en algunos de mis cursos, es que la verdad están bastante bien. El código es el siguiente:
{--------------------------}
 {  Ejemplo en Pascal:      }
 {                          }
 {    Primer ejemplo de     }
 {    gráficos usando BGI   }
 {    GRAF1.PAS             }
 {                          }
 {  Este fuente procede de  }
 {  CUPAS, curso de Pascal  }
 {  por Nacho Cabanes       }
 {                          }
 {  Modificado para:        }
 {    - Freepascal 2.0.2    }
 {Por Martín Alvarez Pulido }
 {--------------------------}

 program PrimerGrafico;

 uses Graph;                     { Va a usar la librería gráfica de FPC }

 var
  Driver, Modo: smallint;             { Pues el driver y el modo, claro }

 begin
  Driver := Vga;                                   { Para pantalla VGA }
  Modo := VgaHi;                            { Modo 640x480, 16 colores }
  InitGraph(Driver, Modo, 'c:\FPC\bgi');                { Inicializamos }
  Line(0, 0, 320, 240);                          { Dibujamos una línea }
  Readln;                                                  { Esperamos }
  CloseGraph                                              { Y se acabó }
 end.



20-Nov-2006 23:08
Nacho Cabanes (+83)

Tienes razón, pero no hace falta ni siquiera indicar ruta a los drivers BGI en la lína

InitGraph(Driver, Modo, 'c:\FPC\bgi');

porque FPC no usa ficheros BGI. Y existen muchos más modos gráficos que se pueden utilizar, comparado con Turbo Pascal.

El tema está casi completo, pero ahora mismo tengo muy poco tiempo libre, así que no creo que pueda publicar hasta mediados de diciembre. Ahora mismo, para mí son prioritarios otros cursos, especialmente el de PHP y el de Lazarus.

Gracias por tu apoyo y tu contribución.






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)