#include <phigs.h>
#include <stdio.h>

main()
{
Pint WorkstnID = 1;
Pint StructureID = 1;
static Ppoint3 SquarePts[4] = {
	0.10, 0.10, 0,
	0.90, 0.10, 0,
	0.90, 0.90, 0,
	0.10, 0.90, 0};

static Ppoint_list3 Square = {4, SquarePts};
static Ppoint TextLocation = {0.1, 0.3};

popen_phigs(PDEF_ERR_FILE, PDEF_MEM_SIZE);
popen_ws(WorkstnID, NULL, phigs_ws_type_x_tool);

popen_struct(StructureID);
pset_int_style(PSTYLE_HOLLOW);
pfill_area3(&Square);
pset_char_ht(0.07);
ptext(&TextLocation, "Hello World?");
pclose_struct();

ppost_struct(WorkstnID, StructureID, 1.0);

printf("return...");
getchar();

pclose_ws(WorkstnID);
pclose_phigs();

}