Pascal/Turbo Pascal - Ayuda con Moviento de paleta en pascal

{Con la graph deves de usar las mismas formas que con crt.

mira esto pero cambia la dirección de bgi a la tuya}

  program paletas;

  uses

     crt, graph;

  const

      paleta : array[1..8] of string[8] = (

      '00111000',

      '11111110',

      '11111110',

      '11111110',

      '01111100',

      '00111000',

      '00111000',

      '00111000');

  var

    drive, modo : integer;

    x, y : integer;

    tecla : char;

  procedure inigra;

  begin

      drive := detect;

      initgraph(drive,modo,'c:\tp\bgi');

      if graphresult <> 0 then

      halt(1);

  end;

  procedure dibuja(x1, y1 : integer);

  var

    j, u : integer;

   begin

      for j := 1 to 8 do

       for u := 1 to 8 do

       if paleta[j,u] = '1' then

       putpixel(x1 + u,y1 + j,15);

   end;

  procedure borra(x1, y1 : integer);

  var

    j, u : integer;

   begin

      for j := 1 to 8 do

       for u := 1 to 8 do

       if paleta[j,u] = '1' then

       putpixel(x1 + u,y1 + j,0);

   end;

  begin

      inigra;

      x := 100;

      y := 100;

      dibuja(x,y);

   repeat

      tecla := readkey;

      borra(x,y);

     if tecla = #72 then

     y := y - 1;

     if tecla = #80 then

     y := y + 1;

     if tecla = #75 then

     x := x - 1;

     if tecla = #77 then

     x := x + 1;

     dibuja(x,y);

   until tecla = #13;

      closegraph;

  end.

program prueba;

uses crt;

var

mov:char;

x,y:word;

begin

x:=40;

y:=20;

repeat

gotoxy(x,y);

write('______');

mov:=readkey;

if (x>5) and (x<50)

then

if (mov='M')

	then

		x:=x+1;

		gotoxy(x,y);

		write('______');

		clrscr;

if (mov='K')

	then

		x:=x-1;

		gotoxy(x,y);

		write('______');

		clrscr;

until (mov='S');

end.

{Mira el sistema gotoxy no funciona en modo gráfico tienes que emplear esta forma o otra eso a tu

 gusto pero no el gotoxy.}

 program linea;

 uses

    crt, graph;

  var

    drive, modo : integer;

    move : char;

    x, y : integer;

  begin

      drive := detect;

      initgraph(drive, modo,'c:\tp\bgi'); {ponlo a tu direccion}

      if graphresult <> 0 then

      halt(1)

   else

      begin

         x := 10;  {posicion de la linea en x}

         y := getmaxy - 20; {posicion de la linea en y}

         setcolor(15);

         line(x,y,x + 10,y); {dibujamos linea}

     repeat

        move := readkey;

        setcolor(0);       {borramos linea}

        line(x,y,x + 10,y);

      if move = #75 then

      begin

          x := x - 10; {para mas rapido incrementa y decrementa x en o mas: 10}

          if x < 10 then

          x := 10;

      end;

      if move = #77 then

      begin

          x := x + 10;

          if x > getmaxx - 15 then

          x := getmaxx - 15;

      end;

         setcolor(15);    {dibujamos en nueva posicion}

         line(x,y,x + 10,y);

     until move = #27;  {tecla [esc] termina}

     closegraph;

    end;

  end.

{Si empleas free pascal  este es el cambio que tienes que realizar}

program linea;

 uses

    wincrt, graph;

  var

    drive, modo : integer;

    move : char;

    x, y : integer;

  begin

      drive := detect;

      initgraph(drive, modo,'c:\tp\bgi'); {ponlo a tu direccion}

      if graphresult <> 0 then

      halt(1)

   else

      begin

         x := 10;  {posicion de la linea en x}

         y := getmaxy - 20; {posicion de la linea en y}

         setcolor(15);

         line(x,y,x + 10,y); {dibujamos linea}

     repeat

        move := readkey;

        setcolor(0);       {borramos linea}

        line(x,y,x + 10,y);

      if move = #75 then

      begin

          x := x - 10; {para mas rapido incrementa y decrementa x en o mas: 10}

          if x < 10 then

          x := 10;

      end;

      if move = #77 then

      begin

          x := x + 10;

          if x > getmaxx - 15 then

          x := getmaxx - 15;

      end;

         setcolor(15);    {dibujamos en nueva posicion}

         line(x,y,x + 10,y);

     until move = #27;  {tecla [esc] termina}

     closegraph;

    end;

  end.