48 lines
1.0 KiB
C
48 lines
1.0 KiB
C
|
/*
|
||
|
|
|
||
|
|
Encapsulated Postscrip
|
||
|
|
----------------------
|
||
|
|
|
||
|
|
26 Jan 2002: Functions for exporting images to EPS format,
|
||
|
|
for use in printed version of the story "Life in Slashie".
|
||
|
|
|
||
|
|
--> see pnmtops manpage ?
|
||
|
|
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <time.h>
|
||
|
|
#include "tthimage.h"
|
||
|
|
|
||
|
|
/*::------------------------------------------------------------------::*/
|
||
|
|
/*
|
||
|
|
* really don't know how to do that ;-)
|
||
|
|
*/
|
||
|
|
int
|
||
|
|
Image_EPS_save_0(char *nom, Image_Desc *img)
|
||
|
|
{
|
||
|
|
FILE *fp;
|
||
|
|
time_t temps;
|
||
|
|
|
||
|
|
fprintf(stderr, "Image EPS save 0: %p -> %s\n", img, nom);
|
||
|
|
|
||
|
|
if ( (fp=fopen(nom, "w")) == NULL )
|
||
|
|
{
|
||
|
|
fprintf(stderr, "EPS save 0: err fopen %s\n", nom);
|
||
|
|
return FILE_CREATE_ERR;
|
||
|
|
}
|
||
|
|
|
||
|
|
fputs("%!PS-Adobe-2.0 EPSF-1.2\n%%\n", fp);
|
||
|
|
fprintf(fp, "%%%% Generator: libimage v %s\n", IMAGE_VERSION_STRING);
|
||
|
|
time(&temps);
|
||
|
|
fprintf(fp, "%%%% Date: %s\n", ctime(&temps));
|
||
|
|
fclose(fp);
|
||
|
|
|
||
|
|
return FULL_NUCKED;
|
||
|
|
}
|
||
|
|
/*::------------------------------------------------------------------::*/
|
||
|
|
/*
|
||
|
|
* really don't know how to do that ;-)
|
||
|
|
*/
|
||
|
|
/*::------------------------------------------------------------------::*/
|