VT100/tests/TestRegisDemo.mod

MODULE TestRegisDemo;

(* ReGIS demo scene: frame, house, sun, label. View on a ReGIS-capable
   terminal (xterm built with --enable-regis-graphics, or contour).
   Pipe through od to inspect bytes headlessly. *)

IMPORT Regis;

BEGIN
  Regis.Enter;

  Regis.Rect(50, 50, 750, 430);

  (* house body + roof + door *)
  Regis.Rect(300, 250, 500, 400);
  Regis.MoveTo(280, 250);
  Regis.LineTo(400, 150);
  Regis.LineTo(520, 250);
  Regis.Rect(380, 320, 420, 400);

  (* sun *)
  Regis.MoveTo(650, 120);
  Regis.Circle(700, 120);

  (* label *)
  Regis.MoveTo(300, 445);
  Regis.TextSize(2);
  Regis.TextOut("ReGIS house");

  Regis.Exit;
END TestRegisDemo.