#include <stdio.h>
#include <errenv.h>
#include "display.h"
#include "pscreen.h"
#include "keyboard.h"

int main() {
  RECT r1, r2;
  int rc;
  catch(rc)
    PSbegin();
  enverr
    PSend();
    if (rc == 321)
      fputs("TERMINFO missing essential entries\n",stderr);
    else
      fputs("Problems loading TERMINFO\n",stderr);
    return 1;
  envend
  Kbegin(1);
  Ksignal(2);
  PSfill(&GIANT_RECT,' ');
  RASG(&r1,2,10,11,29);
  PSfill(&r1,'X'+A_NORMAL);
  RASG(&r2,13,10,22,49);
  PSfill(&r2,'O'+A_NORMAL);
  PSwrite(23,10,GIANT,"Before sliding",A_STANDOUT);
  PSsync();
  Kgetc();
  if (!PSslide(&r1,DIR_RIGHT,40) || !PSslide(&r2,DIR_UP,11)) {
    PSend();
    return 1;
  }
  RASG(&r1,12,0,22,GIANT);
  PSfill(&r1,' ');
  PSwrite(23,10,GIANT," After",A_STANDOUT);
  PSsync();
  Kgetc();
  RASG(&r1,2,10,11,69);
  PSslide(&r1,DIR_DOWN,11);
  RASG(&r1,2,10,12,69);
  PSfill(&r1,' ');
  PSwrite(23,10,GIANT,"Second",A_STANDOUT);
  PSsync();
  Kgetc();
  PSrefresh();
  Kgetc();
  Kend();
  PSend();
  return 0;
}