// Copyright (c) 1995, Masanao Izumo

gfont("-adobe-helvetica-bold-o-normal--34-240-100-100-p-182-iso8859-1");
gflush(False);
gopen(150, 90, 0, 1);
for(x = 50; x >= 0; x--)
{
    gpen(100 * x / 50.0, 255 * x / 50.0, 255);
    gstring(x, 50 - x, "TEST");
}
x++;
gpen("MidnightBlue");
gstring(x+1, 50 - x, "TEST");
gstring(x-1, 50 - x, "TEST");
gstring(x, 50 - x+1, "TEST");
gstring(x, 50 - x-1, "TEST");
gpen("blue");
gstring(x, 50 - x, "TEST");

gpause();