void docstring() {
int i;
fputs(the_docstring0, stdout);
fputs(flam3_version(), stdout);
fputs(the_docstring1, stdout);
for (i = 0; i < flam3_nvariations; i++)
printf(" %2d. %s\n", i, flam3_variation_names[i]);
}
void
write_jpeg(FILE *file, unsigned char *image, int width, int height, flam3_img_comments *fpc) {
struct jpeg_compress_struct info;
struct jpeg_error_mgr jerr;
size_t i;
char *nick = getenv("nick");
char *url = getenv("url");
char *id = getenv("id");
char *ai; /* For argi */
int jpegcom_enable = argi("enable_jpeg_comments",1);
char nick_string[64], url_string[128], id_string[128];
char bv_string[64],ni_string[64],rt_string[64];
char genome_string[65536], ver_string[64];
/* Create the mandatory comment strings */
snprintf(genome_string,65536,"flam3_genome: %s",fpc->genome);
snprintf(bv_string,64,"flam3_error_rate: %s",fpc->badvals);
snprintf(ni_string,64,"flam3_samples: %s",fpc->numiters);
snprintf(rt_string,64,"flam3_time: %s",fpc->rtime);
snprintf(ver_string,64,"flam3_version: %s",flam3_version());
info.err = jpeg_std_error(&jerr);
jpeg_create_compress(&info);
jpeg_stdio_dest(&info, file);
info.in_color_space = JCS_RGB;
info.input_components = 3;
info.image_width = width;
info.image_height = height;
jpeg_set_defaults(&info);
if (getenv("jpeg")) {
int quality = atoi(getenv("jpeg"));
jpeg_set_quality(&info, quality, TRUE);
}
jpeg_start_compress(&info, TRUE);
/* Write comments to jpeg */
if (jpegcom_enable==1) {
jpeg_write_marker(&info, JPEG_COM, (unsigned char *)ver_string, (int)strlen(ver_string));
if (0 != nick) {
snprintf(nick_string,64,"flam3_nickname: %s",nick);
jpeg_write_marker(&info, JPEG_COM, (unsigned char *)nick_string, (int)strlen(nick_string));
}
if (0 != url) {
snprintf(url_string,128,"flam3_url: %s",url);
jpeg_write_marker(&info, JPEG_COM, (unsigned char *)url_string, (int)strlen(url_string));
}
if (0 != id) {
snprintf(id_string,128,"flam3_id: %s",id);
jpeg_write_marker(&info, JPEG_COM, (unsigned char *)id_string, (int)strlen(id_string));
}
jpeg_write_marker(&info, JPEG_COM, (unsigned char *)bv_string, (int)strlen(bv_string));
jpeg_write_marker(&info, JPEG_COM, (unsigned char *)ni_string, (int)strlen(ni_string));
jpeg_write_marker(&info, JPEG_COM, (unsigned char *)rt_string, (int)strlen(rt_string));
jpeg_write_marker(&info, JPEG_COM, (unsigned char *)genome_string, (int)strlen(genome_string));
}
for (i = 0; i < height; i++) {
JSAMPROW row_pointer[1];
row_pointer[0] = (unsigned char *) image + (3 * width * i);
jpeg_write_scanlines(&info, row_pointer, 1);
}
jpeg_finish_compress(&info);
jpeg_destroy_compress(&info);
}
void write_png(FILE *file, void *image, int width, int height, flam3_img_comments *fpc, int bpc) {
png_structp png_ptr;
png_infop info_ptr;
png_text text[FLAM3_PNG_COM];
size_t i;
unsigned short testbe = 1;
void **rows = malloc(sizeof(void *) * height);
char *nick = getenv("nick");
char *url = getenv("url");
char *id = getenv("id");
char *ai; /* For argi */
int pngcom_enable = argi("enable_png_comments", 1);
text[0].compression = PNG_TEXT_COMPRESSION_NONE;
text[0].key = "flam3_version";
text[0].text = flam3_version();
text[1].compression = PNG_TEXT_COMPRESSION_NONE;
text[1].key = "flam3_nickname";
text[1].text = nick;
text[2].compression = PNG_TEXT_COMPRESSION_NONE;
text[2].key = "flam3_url";
text[2].text = url;
text[3].compression = PNG_TEXT_COMPRESSION_NONE;
text[3].key = "flam3_id";
text[3].text = id;
text[4].compression = PNG_TEXT_COMPRESSION_NONE;
text[4].key = "flam3_error_rate";
text[4].text = fpc->badvals;
text[5].compression = PNG_TEXT_COMPRESSION_NONE;
text[5].key = "flam3_samples";
text[5].text = fpc->numiters;
text[6].compression = PNG_TEXT_COMPRESSION_NONE;
text[6].key = "flam3_time";
text[6].text = fpc->rtime;
text[7].compression = PNG_TEXT_COMPRESSION_zTXt;
text[7].key = "flam3_genome";
text[7].text = fpc->genome;
for (i = 0; i < height; i++)
rows[i] = (unsigned char *)image + i * width * 4 * bpc;
png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING,
NULL, NULL, NULL);
info_ptr = png_create_info_struct(png_ptr);
if (setjmp(png_jmpbuf(png_ptr))) {
fclose(file);
png_destroy_write_struct(&png_ptr, &info_ptr);
perror("writing file");
return;
}
png_init_io(png_ptr, file);
png_set_IHDR(png_ptr, info_ptr, width, height, 8*bpc,
PNG_COLOR_TYPE_RGBA,
PNG_INTERLACE_NONE,
PNG_COMPRESSION_TYPE_BASE,
PNG_FILTER_TYPE_BASE);
if (pngcom_enable==1)
png_set_text(png_ptr, info_ptr, text, FLAM3_PNG_COM);
png_write_info(png_ptr, info_ptr);
/* Must set this after the write_info */
if (2==bpc && testbe != htons(testbe)) {
png_set_swap(png_ptr);
}
png_write_image(png_ptr, (png_bytepp) rows);
png_write_end(png_ptr, info_ptr);
png_destroy_write_struct(&png_ptr, &info_ptr);
free(rows);
}
