#include <stdio.h>
#include <stdlib.h>

FILE *PSinit(const char *name)
{
	FILE *f= fopen(name, "wt");
	if (f==NULL){
		fprintf(stderr, "ERROR - no se abrio\n");
		exit(EXIT_FAILURE);
	}
	fprintf(f, "%%!PS\n"
				"8.5 72 mul 2 div "
				"11 72 mul 2 div translate\n"
				"72 2.54 div dup scale\n"
				"0.03 setlinewidth\n");
	return f;
}

void PSend(FILE* f){
		fprintf(f, "stroke\n"
					"showpage\n");
}

void PSlineto(FILE* f, double x, double y){
		fprintf(f, "%lf %lf lineto\n", x, y);
}

void PSmoveto(FILE* f, double x, double y){
		fprintf(f, "%lf %lf moveto\n", x, y);
}


int main(int argc, char *argv[]) {
	FILE *f= PSinit("cuadrop.ps");
	PSmoveto(f,0,0);
	PSlineto(f,0,10);
	PSlineto(f,10,10);
	PSlineto(f,10,0);
	PSlineto(f,0,0);
	PSend(f);
	return EXIT_SUCCESS;
}