home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / disk22 / modosx / ejemplo3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-03-25  |  1.9 KB  |  45 lines
  1. {▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  2. ▒▒                                                                         ▒▒
  3. ▒▒  Ejemplo de utilización de la libreria de modo X en pascal.             ▒▒
  4. ▒▒  2 bloques de 255 colores para ver la resolución y la paleta.           ▒▒
  5. ▒▒                                                                         ▒▒
  6. ▒▒  1996 Compiler SoftWare                                                 ▒▒
  7. ▒▒                                                                         ▒▒
  8. ▒▒  Creado con Borland Pascal 7.0 por BiZaRRe InC.                         ▒▒
  9. ▒▒                                                                         ▒▒
  10. ▒▒  Ver COMPILER.NFO                                                       ▒▒
  11. ▒▒                                                                         ▒▒
  12. ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒;-)▒▒▒}
  13.  
  14.  
  15. {$I modox.pas}
  16.                                                 { nuestra librería }
  17. Var x, y  : integer;
  18.     color : byte;
  19.  
  20. Begin
  21.  
  22.   Set_320x240X;                                 {  Establece modo X       }
  23.  
  24.   For y:= 0 to 100 do
  25.   For x := 0 to 225 do
  26.         PutpixelX (x, y, x);                    {  Dibuja 100 lineas      }
  27.   
  28.   For y:= 0 to 50 do
  29.   For x := 0 to 225 do                          {  Dibuja 50 lineas con   }
  30.         Begin                                   {  los colores de las     }
  31.           color := GetpixelX ( x, y );          {  lineas de 0 a 50       }
  32.           PutpixelX (x, y+110 , color);
  33.         end;
  34.   
  35.   asm
  36.         xor ax, ax                              {  Espera a pulsar una    }
  37.         int 16h                                 {  tecla                  }
  38.         mov ax, 3h                              
  39.         int 10h                                 {  Establece modo texto   }
  40.   
  41.   end;
  42.  
  43. end.
  44.  
  45.