开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
GRAPH.C
资源名称：ertos.rar　[点击查看]
上传用户：sunrenlu
上传日期：2022-06-13
资源大小：1419k
文件大小：18k
源码类别：

操作系统开发

开发平台：

DOS

GRAPH.C：源码内容
  1. /*
  2.  * Copyright (c) 1990, 1999 Erick Engelke
  3.  */
  4. #include <rtos.h>
  5. #include <stdio.h>
  6. #include <string.h>
  7. #include <dos.h>
  8. #include <stdlib.h>
  9. #include <net.h>
  10. #include <mem.h>
  11. #include <graph.h>
  12. #include <values.h>
  14. void *gr_alloc( int width, int height )
  15. {
  16.     DWORD bytes;
  17.     int i;
  18.     graph_x *g;
  19.     BYTE *bp;
  21.     bytes = (DWORD)width * (DWORD)height;
  22.     i = bytes;
  23.     if ( i < bytes ) return( NULL );
  24.     bp = kcalloc( i, 1 );
  25.     if ( bp == NULL ) return( NULL );
  27.     g = kcalloc( sizeof( graph_x ), 1 );
  28.     if ( g == NULL ) {
  29.         kfree( bp );
  30.         return( NULL );
  31.     }
  32.     g->g_data = bp;
  33.     g->g_width = width;
  34.     g->g_height = height;
  35.     return( g );
  36. }
  37. void gr_free( void *x )
  38. {
  39.     graph_x *g = x;
  40.     if ( g != NULL ) {
  41.         kfree( g->g_data );
  42.         kfree( g );
  43.     }
  44. }
  45. void gr_background( void *z, int col )
  46. {
  47.     graph_x *g = z;
  49.     g->g_background = col;
  50.     memset( g->g_data, col, g->g_width * g->g_height );
  51. }
  52. void gr_setpixel( void *z, int x, int y, int cols )
  53. {
  54.     graph_x *g = z;
  56.     if (( x >= 0 ) && ( x < g->g_width ) && ( y >= 0 ) && ( y < g->g_height ))
  57.         g->g_data[ x + ( y * g->g_width) ] = cols;
  58. }
  59. int gr_getpixel( void *z, int x, int y )
  60. {
  61.     graph_x *g = z;
  62.     static int oldy = 0, ymult = 0;
  64.     /* avoid multiplications when we can */
  65.     if ( oldy != y ) {
  66.         ymult = y * g->g_width;
  67.         oldy = y;
  68.     }
  70.     if (( x >= 0 ) && ( x < g->g_width ) && ( y >= 0 ) && ( y < g->g_height ))
  71.         return( g->g_data[ x + ymult  ]  );
  72.     else
  73.         return( g->g_background );
  74. }
  76. static void swapxy( int *x1, int *y1, int *x2, int *y2 )
  77. {
  78.     int temp;
  79.     temp = *x1; *x1 = *x2; *x2 = temp;
  80.     temp = *y1; *y1 = *y2; *y2 = temp;
  81. }
  82. void gr_line( void *z, int x1, int y1, int x2, int y2, int color )
  83. {
  84.     int difx, dify;
  85.     int temp;
  87.     difx = x2 - x1;
  88.     if ( difx < 0 ) {
  89.         swapxy( &x1, &y1, &x2, &y2 );
  90.         difx = x2 - x1;
  91.     }
  92.     /* now x1 < x2 */
  94.     dify = y2 - y1;
  95.     temp = dify;
  96.     if ( temp < 0 ) temp = -temp;
  98.     if ( difx > temp ) {
  99.         for ( temp = 0 ; temp <= difx ; ++temp )
  100.             gr_setpixel( z, temp + x1, temp*dify/difx + y1,color);
  101.     } else {
  102.         if ( dify < 0 ) {
  103.             swapxy( &x1, &y1, &x2, &y2 );
  104.             difx = -difx;
  105.             dify = -dify;
  106.         }
  107.         for ( temp = 0 ; temp < dify ; ++temp )
  108.             gr_setpixel( z, temp*difx/dify + x1, temp + y1, color);
  109.     }
  110. }
  114. #define HLEN 9
  116. #if defined(__TURBOC__) || defined(__BORLANDC__)
  117. static char font[96][HLEN] = {
  118.         0000,0000,0000,0000,0000,0000,0000,0000,0000,   /* sp */
  119.         0010,0010,0010,0010,0010,0000,0010,0000,0000,   /* ! */
  120.         0024,0024,0024,0000,0000,0000,0000,0000,0000,   /* QUOTE */
  121.         0024,0024,0076,0024,0076,0024,0024,0000,0000,   /* # */
  122.         0010,0036,0050,0034,0012,0074,0010,0000,0000,   /* $ */
  123.         0060,0062,0004,0010,0020,0046,0006,0000,0000,   /* % */
  124.         0010,0024,0024,0030,0052,0044,0032,0000,0000,   /* & */
  125.         0010,0010,0020,0000,0000,0000,0000,0000,0000,   /* ' */
  126.         0004,0010,0020,0020,0020,0010,0004,0000,0000,   /* ( */
  127.         0020,0010,0004,0004,0004,0010,0020,0000,0000,   /* ) */
  128.         0000,0010,0052,0034,0052,0010,0000,0000,0000,   /* * */
  129.         0000,0010,0010,0076,0010,0010,0000,0000,0000,   /* + */
  130.         0000,0000,0000,0000,0000,0030,0030,0010,0020,   /* , */
  131.         0000,0000,0000,0076,0000,0000,0000,0000,0000,   /* - */
  132.         0000,0000,0000,0000,0000,0030,0030,0000,0000,   /* . */
  133.         0001,0002,0004,0010,0020,0040,0100,0000,0000,   /* / */
  134.         0034,0042,0046,0052,0062,0042,0034,0000,0000,   /* 0 */
  135.         0010,0030,0010,0010,0010,0010,0034,0000,0000,   /* 1 */
  136.         0034,0042,0002,0004,0010,0020,0076,0000,0000,   /* 2 */
  137.         0076,0004,0010,0004,0002,0042,0034,0000,0000,   /* 3 */
  138.         0004,0014,0024,0044,0076,0004,0004,0000,0000,   /* 4 */
  139.         0076,0040,0074,0002,0002,0042,0034,0000,0000,   /* 5 */
  140.         0014,0020,0040,0074,0042,0042,0034,0000,0000,   /* 6 */
  141.         0076,0002,0004,0010,0020,0020,0020,0000,0000,   /* 7 */
  142.         0034,0042,0042,0034,0042,0042,0034,0000,0000,   /* 8 */
  143.         0034,0042,0042,0036,0002,0004,0030,0000,0000,   /* 9 */
  144.         0000,0030,0030,0000,0030,0030,0000,0000,0000,   /* : */
  145.         0000,0030,0030,0000,0030,0030,0010,0020,0000,   /* ; */
  146.         0002,0004,0010,0020,0010,0004,0002,0000,0000,   /* < */
  147.         0000,0000,0076,0000,0076,0000,0000,0000,0000,   /* = */
  148.         0040,0020,0010,0004,0010,0020,0040,0000,0000,   /* > */
  149.         0034,0042,0002,0004,0010,0000,0010,0000,0000,   /* ? */
  150.         0014,0022,0056,0052,0056,0040,0036,0000,0000,   /* @ */
  151.         0034,0042,0042,0076,0042,0042,0042,0000,0000,   /* A */
  152.         0074,0042,0042,0074,0042,0042,0074,0000,0000,   /* B */
  153.         0034,0042,0040,0040,0040,0042,0034,0000,0000,   /* C */
  154.         0070,0044,0042,0042,0042,0044,0070,0000,0000,   /* D */
  155.         0076,0040,0040,0074,0040,0040,0076,0000,0000,   /* E */
  156.         0076,0040,0040,0074,0040,0040,0040,0000,0000,   /* F */
  157.         0036,0040,0040,0046,0042,0042,0036,0000,0000,   /* G */
  158.         0042,0042,0042,0076,0042,0042,0042,0000,0000,   /* H */
  159.         0034,0010,0010,0010,0010,0010,0034,0000,0000,   /* I */
  160.         0034,0010,0010,0010,0010,0050,0020,0000,0000,   /* J */
  161.         0042,0044,0050,0060,0050,0044,0042,0000,0000,   /* K */
  162.         0040,0040,0040,0040,0040,0040,0076,0000,0000,   /* L */
  163.         0042,0066,0052,0052,0042,0042,0042,0000,0000,   /* M */
  164.         0042,0042,0062,0052,0046,0042,0042,0000,0000,   /* N */
  165.         0034,0042,0042,0042,0042,0042,0034,0000,0000,   /* O */
  166.         0074,0042,0042,0074,0040,0040,0040,0000,0000,   /* P */
  167.         0034,0042,0042,0042,0052,0044,0032,0000,0000,   /* Q */
  168.         0074,0042,0042,0074,0050,0044,0042,0000,0000,   /* R */
  169.         0034,0042,0040,0034,0002,0042,0034,0000,0000,   /* S */
  170.         0076,0010,0010,0010,0010,0010,0010,0000,0000,   /* T */
  171.         0042,0042,0042,0042,0042,0042,0034,0000,0000,   /* U */
  172.         0042,0042,0042,0024,0024,0010,0010,0000,0000,   /* V */
  173.         0042,0042,0042,0052,0052,0052,0024,0000,0000,   /* W */
  174.         0042,0042,0024,0010,0024,0042,0042,0000,0000,   /* X */
  175.         0042,0042,0024,0010,0010,0010,0010,0000,0000,   /* Y */
  176.         0076,0002,0004,0010,0020,0040,0076,0000,0000,   /* Z */
  177.         0034,0020,0020,0020,0020,0020,0034,0000,0000,   /* [ */
  178.         0100,0040,0020,0010,0004,0002,0001,0000,0000,   /*  */
  179.         0034,0004,0004,0004,0004,0004,0034,0000,0000,   /* ] */
  180.         0010,0024,0042,0000,0000,0000,0000,0000,0000,   /* ^ */
  181.         0000,0000,0000,0000,0000,0000,0076,0000,0000,   /* _ */
  182.         0010,0010,0004,0000,0000,0000,0000,0000,0000,   /* ` */
  183.         0000,0000,0034,0002,0036,0042,0036,0000,0000,   /* a */
  184.         0040,0040,0074,0042,0042,0042,0074,0000,0000,   /* b */
  185.         0000,0000,0030,0044,0040,0044,0030,0000,0000,   /* c */
  186.         0002,0002,0036,0042,0042,0042,0036,0000,0000,   /* d */
  187.         0000,0000,0034,0042,0076,0040,0034,0000,0000,   /* e */
  188.         0014,0022,0070,0020,0020,0020,0020,0000,0000,   /* f */
  189.         0000,0000,0032,0046,0042,0046,0032,0002,0034,   /* g */
  190.         0040,0040,0074,0042,0042,0042,0042,0000,0000,   /* h */
  191.         0010,0000,0030,0010,0010,0010,0034,0000,0000,   /* i */
  192.         0004,0000,0004,0004,0004,0004,0004,0044,0030,   /* j */
  193.         0040,0040,0044,0050,0064,0042,0042,0000,0000,   /* k */
  194.         0030,0010,0010,0010,0010,0010,0034,0000,0000,   /* l */
  195.         0000,0000,0064,0052,0052,0052,0052,0000,0000,   /* m */
  196.         0000,0000,0074,0042,0042,0042,0042,0000,0000,   /* n */
  197.         0000,0000,0034,0042,0042,0042,0034,0000,0000,   /* o */
  198.         0000,0000,0054,0062,0042,0062,0054,0040,0040,   /* p */
  199.         0000,0000,0032,0046,0042,0046,0032,0002,0002,   /* q */
  200.         0000,0000,0054,0062,0040,0040,0040,0000,0000,   /* r */
  201.         0000,0000,0036,0040,0034,0002,0074,0000,0000,   /* s */
  202.         0020,0020,0070,0020,0020,0022,0014,0000,0000,   /* t */
  203.         0000,0000,0042,0042,0042,0046,0032,0000,0000,   /* u */
  204.         0000,0000,0042,0042,0042,0024,0010,0000,0000,   /* v */
  205.         0000,0000,0042,0042,0052,0052,0024,0000,0000,   /* w */
  206.         0000,0000,0042,0024,0010,0024,0042,0000,0000,   /* x */
  207.         0000,0000,0042,0042,0042,0046,0032,0002,0034,   /* y */
  208.         0000,0000,0076,0004,0010,0020,0076,0000,0000,   /* z */
  209.         0014,0020,0020,0040,0020,0020,0014,0000,0000,   /* { */
  210.         0010,0010,0010,0000,0010,0010,0010,0000,0000,   /* | */
  211.         0030,0004,0004,0002,0004,0004,0030,0000,0000,   /* } */
  212.         0020,0052,0004,0000,0000,0000,0000,0000,0000,   /* ~ */
  213.         0177,0177,0177,0177,0177,0177,0177,0177,0177,   /* del */
  214. };
  215. #elif defined(__DJGPP__)
  216. static char font[96][HLEN] = {
  217.       { 0000,0000,0000,0000,0000,0000,0000,0000,0000 },   /* sp */
  218.       { 0010,0010,0010,0010,0010,0000,0010,0000,0000},  /* ! */
  219.       { 0024,0024,0024,0000,0000,0000,0000,0000,0000},  /* QUOTE */
  220.       { 0024,0024,0076,0024,0076,0024,0024,0000,0000},  /* # */
  221.       { 0010,0036,0050,0034,0012,0074,0010,0000,0000},  /* $ */
  222.       { 0060,0062,0004,0010,0020,0046,0006,0000,0000},  /* % */
  223.       { 0010,0024,0024,0030,0052,0044,0032,0000,0000},  /* & */
  224.       { 0010,0010,0020,0000,0000,0000,0000,0000,0000},  /* ' */
  225.       { 0004,0010,0020,0020,0020,0010,0004,0000,0000},  /* ( */
  226.       { 0020,0010,0004,0004,0004,0010,0020,0000,0000},  /* ) */
  227.       { 0000,0010,0052,0034,0052,0010,0000,0000,0000},  /* * */
  228.       { 0000,0010,0010,0076,0010,0010,0000,0000,0000},  /* + */
  229.       { 0000,0000,0000,0000,0000,0030,0030,0010,0020},  /* , */
  230.       { 0000,0000,0000,0076,0000,0000,0000,0000,0000},  /* - */
  231.       { 0000,0000,0000,0000,0000,0030,0030,0000,0000},  /* . */
  232.       { 0001,0002,0004,0010,0020,0040,0100,0000,0000},  /* / */
  233.       { 0034,0042,0046,0052,0062,0042,0034,0000,0000},  /* 0 */
  234.       { 0010,0030,0010,0010,0010,0010,0034,0000,0000},  /* 1 */
  235.       { 0034,0042,0002,0004,0010,0020,0076,0000,0000},  /* 2 */
  236.       { 0076,0004,0010,0004,0002,0042,0034,0000,0000},  /* 3 */
  237.       { 0004,0014,0024,0044,0076,0004,0004,0000,0000},  /* 4 */
  238.       { 0076,0040,0074,0002,0002,0042,0034,0000,0000},  /* 5 */
  239.       { 0014,0020,0040,0074,0042,0042,0034,0000,0000},  /* 6 */
  240.       { 0076,0002,0004,0010,0020,0020,0020,0000,0000},  /* 7 */
  241.       { 0034,0042,0042,0034,0042,0042,0034,0000,0000},  /* 8 */
  242.       { 0034,0042,0042,0036,0002,0004,0030,0000,0000},  /* 9 */
  243.       { 0000,0030,0030,0000,0030,0030,0000,0000,0000},  /* : */
  244.       { 0000,0030,0030,0000,0030,0030,0010,0020,0000},  /* ; */
  245.       { 0002,0004,0010,0020,0010,0004,0002,0000,0000},  /* < */
  246.       { 0000,0000,0076,0000,0076,0000,0000,0000,0000},  /* = */
  247.       { 0040,0020,0010,0004,0010,0020,0040,0000,0000},  /* > */
  248.       { 0034,0042,0002,0004,0010,0000,0010,0000,0000},  /* ? */
  249.       { 0014,0022,0056,0052,0056,0040,0036,0000,0000},  /* @ */
  250.       { 0034,0042,0042,0076,0042,0042,0042,0000,0000},  /* A */
  251.       { 0074,0042,0042,0074,0042,0042,0074,0000,0000},  /* B */
  252.       { 0034,0042,0040,0040,0040,0042,0034,0000,0000},  /* C */
  253.       { 0070,0044,0042,0042,0042,0044,0070,0000,0000},  /* D */
  254.       { 0076,0040,0040,0074,0040,0040,0076,0000,0000},  /* E */
  255.       { 0076,0040,0040,0074,0040,0040,0040,0000,0000},  /* F */
  256.       { 0036,0040,0040,0046,0042,0042,0036,0000,0000},  /* G */
  257.       { 0042,0042,0042,0076,0042,0042,0042,0000,0000},  /* H */
  258.       { 0034,0010,0010,0010,0010,0010,0034,0000,0000},  /* I */
  259.       { 0034,0010,0010,0010,0010,0050,0020,0000,0000},  /* J */
  260.       { 0042,0044,0050,0060,0050,0044,0042,0000,0000},  /* K */
  261.       { 0040,0040,0040,0040,0040,0040,0076,0000,0000},  /* L */
  262.       { 0042,0066,0052,0052,0042,0042,0042,0000,0000},  /* M */
  263.       { 0042,0042,0062,0052,0046,0042,0042,0000,0000},  /* N */
  264.       { 0034,0042,0042,0042,0042,0042,0034,0000,0000},  /* O */
  265.       { 0074,0042,0042,0074,0040,0040,0040,0000,0000},  /* P */
  266.       { 0034,0042,0042,0042,0052,0044,0032,0000,0000},  /* Q */
  267.       { 0074,0042,0042,0074,0050,0044,0042,0000,0000},  /* R */
  268.       { 0034,0042,0040,0034,0002,0042,0034,0000,0000},  /* S */
  269.       { 0076,0010,0010,0010,0010,0010,0010,0000,0000},  /* T */
  270.       { 0042,0042,0042,0042,0042,0042,0034,0000,0000},  /* U */
  271.       { 0042,0042,0042,0024,0024,0010,0010,0000,0000},  /* V */
  272.       { 0042,0042,0042,0052,0052,0052,0024,0000,0000},  /* W */
  273.       { 0042,0042,0024,0010,0024,0042,0042,0000,0000},  /* X */
  274.       { 0042,0042,0024,0010,0010,0010,0010,0000,0000},  /* Y */
  275.       { 0076,0002,0004,0010,0020,0040,0076,0000,0000},  /* Z */
  276.       { 0034,0020,0020,0020,0020,0020,0034,0000,0000},  /* [ */
  277.       { 0100,0040,0020,0010,0004,0002,0001,0000,0000},  /*  */
  278.       { 0034,0004,0004,0004,0004,0004,0034,0000,0000},  /* ] */
  279.       { 0010,0024,0042,0000,0000,0000,0000,0000,0000},  /* ^ */
  280.       { 0000,0000,0000,0000,0000,0000,0076,0000,0000},  /* _ */
  281.       { 0010,0010,0004,0000,0000,0000,0000,0000,0000},  /* ` */
  282.       { 0000,0000,0034,0002,0036,0042,0036,0000,0000},  /* a */
  283.       { 0040,0040,0074,0042,0042,0042,0074,0000,0000},  /* b */
  284.       { 0000,0000,0030,0044,0040,0044,0030,0000,0000},  /* c */
  285.       { 0002,0002,0036,0042,0042,0042,0036,0000,0000},  /* d */
  286.       { 0000,0000,0034,0042,0076,0040,0034,0000,0000},  /* e */
  287.       { 0014,0022,0070,0020,0020,0020,0020,0000,0000},  /* f */
  288.       { 0000,0000,0032,0046,0042,0046,0032,0002,0034},  /* g */
  289.       { 0040,0040,0074,0042,0042,0042,0042,0000,0000},  /* h */
  290.       { 0010,0000,0030,0010,0010,0010,0034,0000,0000},  /* i */
  291.       { 0004,0000,0004,0004,0004,0004,0004,0044,0030},  /* j */
  292.       { 0040,0040,0044,0050,0064,0042,0042,0000,0000},  /* k */
  293.       { 0030,0010,0010,0010,0010,0010,0034,0000,0000},  /* l */
  294.       { 0000,0000,0064,0052,0052,0052,0052,0000,0000},  /* m */
  295.       { 0000,0000,0074,0042,0042,0042,0042,0000,0000},  /* n */
  296.       { 0000,0000,0034,0042,0042,0042,0034,0000,0000},  /* o */
  297.       { 0000,0000,0054,0062,0042,0062,0054,0040,0040},  /* p */
  298.       { 0000,0000,0032,0046,0042,0046,0032,0002,0002},  /* q */
  299.       { 0000,0000,0054,0062,0040,0040,0040,0000,0000},  /* r */
  300.       { 0000,0000,0036,0040,0034,0002,0074,0000,0000},  /* s */
  301.       { 0020,0020,0070,0020,0020,0022,0014,0000,0000},  /* t */
  302.       { 0000,0000,0042,0042,0042,0046,0032,0000,0000},  /* u */
  303.       { 0000,0000,0042,0042,0042,0024,0010,0000,0000},  /* v */
  304.       { 0000,0000,0042,0042,0052,0052,0024,0000,0000},  /* w */
  305.       { 0000,0000,0042,0024,0010,0024,0042,0000,0000},  /* x */
  306.       { 0000,0000,0042,0042,0042,0046,0032,0002,0034},  /* y */
  307.       { 0000,0000,0076,0004,0010,0020,0076,0000,0000},  /* z */
  308.       { 0014,0020,0020,0040,0020,0020,0014,0000,0000},  /* { */
  309.       { 0010,0010,0010,0000,0010,0010,0010,0000,0000},  /* | */
  310.       { 0030,0004,0004,0002,0004,0004,0030,0000,0000},  /* } */
  311.       { 0020,0052,0004,0000,0000,0000,0000,0000,0000},  /* ~ */
  312.       { 0177,0177,0177,0177,0177,0177,0177,0177,0177 }  /* del */
  313. };
  314. #endif
  316. void gr_char_at( void *z , char ch, int x, int y, int color )
  317. {
  318.     graph_x *g;
  319.     int xx, yy;
  320.     char *cp;
  321.     BYTE b, mask;
  323.     g = z;
  324.     cp = font[ ch - ' ' ];
  326.     for ( yy = 8 ; yy > 0 ; --yy ) {
  327.         b = *cp++;
  328.         for ( xx = 0 , mask = 0x80 ; mask ; ++xx, mask >>= 1 ) {
  329.             if ( b & mask )
  330.                 gr_setpixel( g, x + xx, y + yy, color );
  331.         }
  332.     }
  333. }
  334. void gr_text_at( void *z , char *s, int x, int y, int color )
  335. {
  336.     int i;
  338.     while (*s) {
  339.         gr_char_at( z, *s++, x, y, color );
  340.         x += 9;
  341.     }
  342. }
  344. void gr_linegraph( void *z, int numpoints, int *ys,
  345.     char *x1, char *x2, int textcolor, int color )
  346. {
  347.     int i;
  348.     int max = -MAXINT;
  349.     int min = MAXINT;
  350.     graph_x *g;
  351.     char buffer[ 16 ];
  352.     int prevx, curx, cury, dif;
  354.     g = z;
  355.     for ( i = 0 ; i < numpoints ; ++i ) {
  356.         cury = ys[i];
  357.         if ( cury > max ) max = cury;
  358.         if ( cury < min ) min = cury;
  359.     }
  360.     if ( max == min ) max++;
  361.     dif = max - min;
  363.     gr_line( g, 0, 9, g->g_width -1, 9, 0 );
  364.     gr_line( g, 0, 9, 0, g->g_height-1, 0 );
  365.     itoa( max, buffer, 10 );
  366.     gr_text_at( g, buffer, 1, g->g_height - 10, textcolor );
  367.     itoa( min, buffer, 10 );
  368.     gr_text_at( g, buffer, 1, 10, textcolor );
  369.     if ( x1 != NULL ) gr_text_at( g, x1, 1, 0, textcolor );
  370.     if ( x2 != NULL ) gr_text_at( g, x2,
  371.             g->g_width - strlen( x2 ) * 9, 0,  textcolor );
  374. #define SCALEX( x ) (int)( (DWORD)(x) * g->g_width / numpoints )
  375. #define SCALEY( y ) ((int)( (DWORD)(y-min) * (g->g_height - 10) / dif )+9)
  377.     curx = 0;
  378.     for ( i = 1 ; i < numpoints ; ++i ) {
  379.         prevx = curx;
  380.         curx = SCALEX( i );
  382.         gr_setpixel( g, curx, 8, 0 );
  383.         gr_line( g, prevx, // SCALEX(i - 1),
  384.                     SCALEY( ys[i-1] ),
  385.                     curx, // SCALEX( i ),
  386.                     SCALEY( ys[ i ] ),
  387.                     color );
  388.     }
  389. }
  391. /*
  392.  * Gif Conversion - this section must be single threaded
  393.  */
  394. static graph_x *cur = NULL;
  395. #include "gifsave.h"
  397. static int gpixel(int x, int y)
  398. {
  399.     return gr_getpixel(cur, x, cur->g_height - y);
  400. }
  402. void gr_gif( tcp_Socket *s, void *z )
  403. {
  404.     graph_x *g;
  407. #define NUMCOLORS          8  /* Number of different colors */
  408. #define BITS_PR_PRIM_COLOR 1  /* Two bits pr primary color */
  410.     int q;                      /* Counter */
  412.     sock_mode( s, TCP_MODE_BINARY | TCP_MODE_NONAGLE );
  414.     g = z;
  415.     cur = g;
  416.     GIF_Create(
  417.         s,
  418.         g->g_width, g->g_height-1, NUMCOLORS, BITS_PR_PRIM_COLOR );
  420.     /*
  421.      *  Set each color according to the values extracted from
  422.      *  the palette
  423.      */
  424.     for (q = 0; q < NUMCOLORS; q++)
  425.         /*   Red, Green, Blue */
  426.         GIF_SetColor(q, q & 1, (q >> 1) &1, (q>>2) & 1 );
  428.     /*
  429.      *  Store the entire screen as an image using the user defined
  430.      *  callback function gpixel() to get pixel values from the screen
  431.      */
  432.     GIF_CompressImage(z, 0, 0, -1, -1, gr_getpixel);
  434.     /*
  435.      *  Finish it all and close the file
  436.      */
  437.     GIF_Close();
  438. }