pt-create.c