VT100/tests/TestRegisColor.mod

MODULE TestRegisColor;

(* ReGIS color/pattern/fill demo: registers, arcs, filled triangle. *)

IMPORT Regis;

BEGIN
  Regis.Enter;

  Regis.SetRGB(1, 100, 0, 0);
  Regis.SetHLS(2, 120, 50, 100);
  Regis.BgRegister(0);

  Regis.UseColor(1);
  Regis.LineWidth(3);
  Regis.MoveTo(100, 240);
  Regis.Circle(200, 240);

  Regis.UseColor(2);
  Regis.Pattern(2);
  Regis.MoveTo(400, 240);
  Regis.Arc(180, 500, 240);

  Regis.ColorName("G");
  Regis.MoveTo(150, 350);
  Regis.FillTriangle(300, 350, 225, 200);

  Regis.UseColor(0);
  Regis.Pattern(1);
  Regis.LineWidth(1);
  Regis.MoveTo(500, 350);
  Regis.TextDir(0);
  Regis.TextOut("color + pattern + fill");

  Regis.Exit;
END TestRegisColor.