home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / PICTOOLS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1987-03-23  |  3.2 KB  |  119 lines
  1. /************************************************************************
  2.             Turbo Prolog Toolbox
  3.             (C) Copyright 1987 Borland International.
  4.             
  5.             GRAPHIC-MODULE                    
  6.             Interface to PC PAINT V1.0                
  7.                                     
  8. ************************************************************************/
  9.  
  10.  
  11. #define    CHAR    char
  12. #define    INT    int
  13.  
  14. /* Action to do when a file does not exist */
  15. #define    nomess    1
  16.  
  17. /* Open mode for disk file */
  18. #define    read_f        0
  19. #define    write_f        1
  20.  
  21.  
  22. extern    INT    background;    /* Background color in graphics mode */
  23. extern    INT    palette;    /* Palette in graphic mode            */
  24.  
  25. extern    CHAR    *alloc();    /* Allocate from GSTACK */
  26.     CHAR    *ptr();
  27.  
  28.  
  29. /************************************************************************/
  30. /*    Load PIC File                            */
  31. /* PC-PAINT V1.0 FILE to screen (mode supported is 320*200, 4 colors)    */
  32. /************************************************************************/
  33. /*    Range for ROWS        : 0-200
  34.     Range for COLUMNS    : 0-320
  35. */
  36.  
  37. loadpic_0(fname,row_origin,col_origin, startrow,startcol,noofrow,noofcol)
  38. CHAR *fname;
  39. { INT fp;
  40.   unsigned seg,off,i;
  41.   CHAR *bufptr,*screenptr;
  42.   INT  bytes_row= noofcol/4;
  43.   INT  file_off, scr_off;
  44.   
  45.   if ((fp=openfile(fname,read_f,nomess))==-1) fail_cc();
  46.   bufptr    = alloc(20000);    /* Allocate on GSTACK */
  47.   readbin(fp,bufptr,19999);        /* Read binary */
  48.   zclose(fp);                /* Close file */
  49.   
  50.   set_PalBackgr(*(bufptr+8020),*(bufptr+8019)); /* Palette and background */
  51.   seg        = *(bufptr+1) + (*(bufptr+2)<<8);
  52.   off        = *(bufptr+3) + (*(bufptr+4)<<8);
  53.   screenptr    = ptr(off,seg);
  54.  
  55.   for (i=startrow; i<(startrow+noofrow); i++)
  56.     { file_off    = get_fileoff(row_origin + i-startrow,col_origin);
  57.       scr_off    = get_scroff(i,startcol);
  58.       movmem(bufptr+file_off, screenptr+scr_off, bytes_row);
  59.     }
  60.   release(bufptr);            /* Release GSTACK */
  61. }
  62.  
  63.  
  64.  
  65.  
  66. static get_fileoff(file_row, file_col)
  67. { if (file_row&1) return(8199+(file_row/2)*80 + file_col/4);
  68.   else return(7+file_row*40 + file_col/4);
  69. }
  70.  
  71. static get_scroff(scr_row,scr_col)
  72. { if (scr_row&1) return(0x2000 + (scr_row/2)*80 + scr_col/4);
  73.   else return(scr_row*40 + scr_col/4);
  74. }
  75.  
  76.  
  77. static CHAR *ptr(p)
  78. CHAR *p;
  79. { return(p); }
  80.  
  81.  
  82.  
  83. /************************************************************************/
  84. /*    Save Pic File                            */
  85. /* PC-PAINT V1.0 screen to FILE (mode supported is 320*200, 4 colors)    */
  86. /************************************************************************/
  87.  
  88. savepic_0(fname)
  89. CHAR *fname;
  90. { INT fp;
  91.   unsigned i;
  92.   CHAR *bufptr,*screenptr;
  93.   
  94.   bufptr    = alloc(20000);
  95.   
  96.   *bufptr    = 0xFD;
  97.   *(bufptr+1)    = 0;        /* segment low part */
  98.   *(bufptr+2)    = 0xB8;        /* segment high part*/
  99.   *(bufptr+3)    =        /* offset        */
  100.   *(bufptr+4)    = 0;
  101.   *(bufptr+5)    = 0;        /* bufsize low part */
  102.   *(bufptr+6)    = 0x40;        /* bufsize high part */
  103.   *(bufptr+8020)= background;
  104.   *(bufptr+8019)= palette;
  105.   screenptr    = ptr(0,0xB800);
  106.  
  107.   for (i=0; i<100; i++) movmem(screenptr+80*i, bufptr+7+80*i, 80);
  108.  
  109.   for (i=0; i<100; i++)
  110.     movmem(screenptr+0x2000+80*i, bufptr+8199+80*i, 80);
  111.  
  112.   if ((fp=openfile(fname,write_f,nomess))==-1) fail_cc(); /* open file */
  113.   writebin(fp,bufptr,8200+80*101);              /* write binary */
  114.   zclose(fp);
  115.   release(bufptr);
  116. }
  117.  
  118.  
  119.