sources/new-s5r4/graf/hvfill.c

   1      /* Loglan82 Compiler&Interpreter\r
   2      Copyright (C) 1981-1993 Institute of Informatics, University of Warsaw\r
   3      Copyright (C)  1993, 1994 LITA, Pau\r
   4      \r
   5      This program is free software; you can redistribute it and/or modify\r
   6      it under the terms of the GNU General Public License as published by\r
   7      the Free Software Foundation; either version 2 of the License, or\r
   8      (at your option) any later version.\r
   9      \r
  10      This program is distributed in the hope that it will be useful,\r
  11      but WITHOUT ANY WARRANTY; without even the implied warranty of\r
  12      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
  13      GNU General Public License for more details.\r
  14      \r
  15 =======================================================================\r
  16 */\r
  17 \r
  18 #include "graf.h"
  19
  20
  21 void pascal hfill( col )
  22    int *col;
  23 {
  24    int x = inxpos(NULL);
  25    int y = inypos(NULL);
  26    draw( col, &y );
  27    move( &x, &y );
  28 }
  29
  30
  31 void pascal vfill( row )
  32    int *row;
  33 {
  34    int x = inxpos(NULL);
  35    int y = inypos(NULL);
  36    draw( &x, row );
  37    move( &x, &y );
  38 }
  39
  40 \r