+++ /dev/null
-diff -ru povray31/source/frame.h povray31.fixed/source/frame.h
---- povray31/source/frame.h Sat May 1 15:01:17 1999
-+++ povray31.fixed/source/frame.h Fri Nov 9 00:19:38 2001
-@@ -1453,6 +1453,7 @@
- COLOUR *line_data, int *line_number);
- void (*Read_Image_p) (IMAGE *Image, char *filename);
- void (*Close_File_p) (struct file_handle_struct *handle);
-+ void *private;
- };
-
- #define Open_File(h,n,wd,ht,sz,m) ((*((h)->Open_File_p)) (h,n,wd,ht,sz,m))
-diff -ru povray31/source/png_pov.c povray31.fixed/source/png_pov.c
---- povray31/source/png_pov.c Sat May 1 15:01:24 1999
-+++ povray31.fixed/source/png_pov.c Fri Nov 9 09:04:21 2001
-@@ -71,8 +71,8 @@
- #define FLUSH_DIST (*width >= 640 ? 10 : 6400 / *width)
- */
- #define FLUSH_DIST ((opts.Options & BUFFERED_OUTPUT && \
-- handle->buffer_size > (*width * png_stride * 5)) ? \
-- (handle->buffer_size / (*width * png_stride)): \
-+ handle->buffer_size > (*width * povpng_info->png_stride * 5)) ? \
-+ (handle->buffer_size / (*width * povpng_info->png_stride)): \
- (*width >= 640 ? 10 : 6400 / *width))
-
- #define NTEXT 15 /* Maximum number of tEXt comment blocks */
-@@ -83,23 +83,22 @@
- /*****************************************************************************
- * Local typedefs
- ******************************************************************************/
-+typedef struct povpng_info_struct POVPNG_INFO;
-
--
-+struct povpng_info_struct {
-+ png_structp png_ptr;
-+ png_infop info_ptr;
-+ png_structp o_png_ptr;
-+ png_bytep row_ptr;
-+ int png_stride;
-+ char tmp_fname[FILE_NAME_LENGTH];
-+ FILE *tmp_fp;
-+};
-
- /*****************************************************************************
- * Local variables
- ******************************************************************************/
-
--static png_struct *png_ptr = NULL;
--static png_info *info_ptr = NULL;
--static png_struct *o_png_ptr = NULL;
--static png_byte *row_ptr = NULL;
--static int png_stride;
--static char tmp_fname[FILE_NAME_LENGTH];
--static FILE *tmp_fp = NULL;
--
--
--
- /*****************************************************************************
- * Static functions
- ******************************************************************************/
-@@ -155,6 +154,7 @@
- FILE_HANDLE *Get_Png_File_Handle()
- {
- FILE_HANDLE *handle;
-+ POVPNG_INFO *povpng_info;
-
- handle = (FILE_HANDLE *)POV_MALLOC(sizeof(FILE_HANDLE), "PNG file handle");
-
-@@ -169,6 +169,16 @@
- handle->file = NULL;
- handle->buffer = NULL;
-
-+ povpng_info = (POVPNG_INFO *)POV_MALLOC(sizeof(POVPNG_INFO), "PNG file info");
-+
-+ povpng_info->png_ptr = NULL;
-+ povpng_info->info_ptr = NULL;
-+ povpng_info->o_png_ptr = NULL;
-+ povpng_info->row_ptr = NULL;
-+ povpng_info->tmp_fp = NULL;
-+
-+ handle->private = (void *)povpng_info;
-+
- return (handle);
- }
-
-@@ -262,8 +272,11 @@
-
- static int Open_Png_File(FILE_HANDLE *handle, char *name, int *width, int *height, int buffer_size, int mode)
- {
-+ POVPNG_INFO *povpng_info;
-+
- handle->mode = mode;
- handle->filename = name;
-+ povpng_info = (POVPNG_INFO *)(handle->private);
-
- switch (mode)
- {
-@@ -280,7 +293,7 @@
- * need to use the path, or the rename will fail if the temp file
- * is not on the same drive as the output file.
- */
-- sprintf(tmp_fname, "%s%s.tpn", opts.Output_Path, opts.Scene_Name);
-+ sprintf(povpng_info->tmp_fname, "%s%s.tpn", opts.Output_Path, opts.Scene_Name);
-
- /* Move the old output file to a temporary file, so it can be
- * read in and simultaneously written out to the new output file.
-@@ -289,27 +302,27 @@
- * to check if a temp file already exists, in case the transfer
- * has been previously aborted.
- */
-- if ((tmp_fp = fopen(tmp_fname,READ_BINFILE_STRING)) == NULL)
-+ if ((povpng_info->tmp_fp = fopen(povpng_info->tmp_fname,READ_BINFILE_STRING)) == NULL)
- {
- /* The temp file doesn't exist. Try the original file. */
-- if ((tmp_fp = fopen(name,READ_BINFILE_STRING)) == NULL)
-+ if ((povpng_info->tmp_fp = fopen(name,READ_BINFILE_STRING)) == NULL)
- {
- Status_Info("\n");
- return(0); /* Neither file exists - start from scratch. */
- }
- else /* The original file exists, but the temp file doesn't. */
- {
-- fclose(tmp_fp);
-+ fclose(povpng_info->tmp_fp);
-
-- if (RENAME_FILE(name,tmp_fname) == RENAME_FILE_ERR)
-+ if (RENAME_FILE(name,povpng_info->tmp_fname) == RENAME_FILE_ERR)
- {
- Error("\nError making temporary PNG file for continuing trace.\n");
- }
-
- /* Open the original file (now with a new name) for reading */
-- if ((tmp_fp = fopen(tmp_fname,READ_BINFILE_STRING)) == NULL)
-+ if ((povpng_info->tmp_fp = fopen(povpng_info->tmp_fname,READ_BINFILE_STRING)) == NULL)
- {
-- RENAME_FILE(tmp_fname,name); /* Try to rename back - not crucial */
-+ RENAME_FILE(povpng_info->tmp_fname,name); /* Try to rename back - not crucial */
- Error("\nError opening temporary PNG file for continuing trace.\n");
- }
- }
-@@ -320,11 +333,11 @@
- */
- else if((handle->file = fopen(name,READ_BINFILE_STRING)) != NULL)
- {
-- fclose(tmp_fp);
-+ fclose(povpng_info->tmp_fp);
- fclose(handle->file);
-
- Error_Line("\nBoth original and temporary PNG files exist after an interrupted trace.\n");
-- Error("Please delete either %s or %s (preferrably the smaller).\n",name,tmp_fname);
-+ Error("Please delete either %s or %s (preferrably the smaller).\n",name,povpng_info->tmp_fname);
- }
-
- /* Try to open the new output file for writing. If we can't, try
-@@ -335,8 +348,8 @@
- {
- Status_Info("\n");
-
-- fclose(tmp_fp);
-- RENAME_FILE(tmp_fname,name);
-+ fclose(povpng_info->tmp_fp);
-+ RENAME_FILE(povpng_info->tmp_fname,name);
- return(-1);
- }
-
-@@ -349,14 +362,14 @@
- handle->buffer_size = buffer_size;
-
- /* The original input file */
-- if ((o_png_ptr = png_create_read_struct(PNG_LIBPNG_VER_STRING,
-+ if ((povpng_info->o_png_ptr = png_create_read_struct(PNG_LIBPNG_VER_STRING,
- (png_voidp)FALSE, png_pov_err, png_pov_warn)) == NULL ||
-- (info_ptr = png_create_info_struct(o_png_ptr)) == NULL)
-+ (povpng_info->info_ptr = png_create_info_struct(povpng_info->o_png_ptr)) == NULL)
- {
- Error("Error allocating PNG data structures");
- }
-
-- if (setjmp(o_png_ptr->jmpbuf))
-+ if (setjmp(povpng_info->o_png_ptr->jmpbuf))
- {
- /* If we get here, we had a problem reading the file */
- Status_Info("\n");
-@@ -367,23 +380,23 @@
- handle->buffer = NULL;
- }
-
-- png_destroy_read_struct(&o_png_ptr, &info_ptr, (png_infopp)NULL);
-+ png_destroy_read_struct(&(povpng_info->o_png_ptr), &(povpng_info->info_ptr), (png_infopp)NULL);
-
- fclose(handle->file);
- handle->file = NULL;
-- fclose(tmp_fp);
-- tmp_fp = NULL;
-+ fclose(povpng_info->tmp_fp);
-+ povpng_info->tmp_fp = NULL;
-
- return(0);
- }
-
- /* Set up the compression structure */
-- png_init_io(o_png_ptr, tmp_fp);
-+ png_init_io(povpng_info->o_png_ptr, povpng_info->tmp_fp);
-
- /* Read in header info from the file */
-- png_read_info(o_png_ptr, info_ptr);
-+ png_read_info(povpng_info->o_png_ptr, povpng_info->info_ptr);
-
-- if (info_ptr->color_type & ~(PNG_COLOR_MASK_COLOR | PNG_COLOR_MASK_ALPHA))
-+ if (povpng_info->info_ptr->color_type & ~(PNG_COLOR_MASK_COLOR | PNG_COLOR_MASK_ALPHA))
- {
- return(0);
- }
-@@ -391,13 +404,13 @@
- Status_Info("\nResuming interrupted trace from %s",handle->filename);
-
- /* The new output file. Thank god for re-entrant libpng/libz code! */
-- if ((png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING,
-+ if ((povpng_info->png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING,
- (png_voidp)TRUE, png_pov_err, png_pov_warn)) == NULL)
- {
- Error("Error allocating PNG data structures");
- }
-
-- if (setjmp(png_ptr->jmpbuf))
-+ if (setjmp(povpng_info->png_ptr->jmpbuf))
- {
- /* If we get here, we had a problem writing the file */
- Status_Info("\n");
-@@ -408,78 +421,78 @@
- handle->buffer = NULL;
- }
-
-- png_destroy_read_struct(&o_png_ptr, &info_ptr, (png_infopp)NULL);
-- png_destroy_write_struct(&png_ptr, (png_infopp)NULL);
-+ png_destroy_read_struct(&(povpng_info->o_png_ptr), &(povpng_info->info_ptr), (png_infopp)NULL);
-+ png_destroy_write_struct(&(povpng_info->png_ptr), (png_infopp)NULL);
-
- fclose(handle->file);
- handle->file = NULL;
-- fclose(tmp_fp);
-- tmp_fp = NULL;
-+ fclose(povpng_info->tmp_fp);
-+ povpng_info->tmp_fp = NULL;
-
- if (DELETE_FILE(name) != DELETE_FILE_ERR)
- {
-- RENAME_FILE(tmp_fname,name); /* Try to get the original file back */
-+ RENAME_FILE(povpng_info->tmp_fname,name); /* Try to get the original file back */
- }
-
- return(-1);
- }
-
- /* Set up the compression structure */
-- png_init_io(png_ptr, handle->file);
-+ png_init_io(povpng_info->png_ptr, handle->file);
-
- /* Fill in the relevant image information from the resumed file */
-- *width = handle->width = info_ptr->width;
-- *height = handle->height = info_ptr->height;
-+ *width = handle->width = povpng_info->info_ptr->width;
-+ *height = handle->height = povpng_info->info_ptr->height;
-
- /* Find out if file is a valid format, and if it had Alpha in it */
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
- {
- opts.Options |= OUTPUT_ALPHA;
- }
-
-- if ((info_ptr->color_type & PNG_COLOR_MASK_COLOR) == PNG_COLOR_TYPE_GRAY)
-+ if ((povpng_info->info_ptr->color_type & PNG_COLOR_MASK_COLOR) == PNG_COLOR_TYPE_GRAY)
- {
- opts.Options |= HF_GRAY_16;
- opts.PaletteOption = GREY; /* Force grayscale preview */
- }
-
- #if defined(PNG_READ_sBIT_SUPPORTED)
-- if (info_ptr->valid & PNG_INFO_sBIT)
-+ if (povpng_info->info_ptr->valid & PNG_INFO_sBIT)
- {
-- if (info_ptr->color_type & PNG_COLOR_MASK_COLOR)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_COLOR)
- {
-- opts.OutputQuality = info_ptr->sig_bit.red;
-+ opts.OutputQuality = povpng_info->info_ptr->sig_bit.red;
- }
- else
- {
-- opts.OutputQuality = info_ptr->sig_bit.gray;
-+ opts.OutputQuality = povpng_info->info_ptr->sig_bit.gray;
- }
- }
-
- #else /* !PNG_READ_sBIT_SUPPORTED */
-- if (info_ptr->bit_depth == 8 && opts.OutputQuality > 8 ||
-- info_ptr->bit_depth == 16 && opts.OutputQuality <= 8)
-+ if (povpng_info->info_ptr->bit_depth == 8 && opts.OutputQuality > 8 ||
-+ povpng_info->info_ptr->bit_depth == 16 && opts.OutputQuality <= 8)
- {
- Error("\nSpecified color depth +fn%d not the same as depth %d in %s\n",
-- opts.OutputQuality, info_ptr->bit_depth, name);
-+ opts.OutputQuality, povpng_info->info_ptr->bit_depth, name);
- }
- #endif /* !PNG_READ_sBIT_SUPPORTED */
-
- #if defined(PNG_READ_oFFs_SUPPORTED)
-- opts.First_Column = info_ptr->x_offset;
-- opts.First_Line = info_ptr->y_offset;
-+ opts.First_Column = povpng_info->info_ptr->x_offset;
-+ opts.First_Line = povpng_info->info_ptr->y_offset;
- #endif /* PNG_READ_oFFs_SUPPORTED */
-
-- png_write_info(png_ptr, info_ptr);
-+ png_write_info(povpng_info->png_ptr, povpng_info->info_ptr);
-
-- png_stride = info_ptr->color_type & PNG_COLOR_MASK_COLOR ? 3 : 1;
-+ povpng_info->png_stride = povpng_info->info_ptr->color_type & PNG_COLOR_MASK_COLOR ? 3 : 1;
-
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-- png_stride++;
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ povpng_info->png_stride++;
-
-- png_stride *= (opts.OutputQuality + 7) / 8;
-+ povpng_info->png_stride *= (opts.OutputQuality + 7) / 8;
-
-- row_ptr = (png_byte *)POV_MALLOC(*width*png_stride,"PNG read row buffer");
-+ povpng_info->row_ptr = (png_byte *)POV_MALLOC(*width*povpng_info->png_stride,"PNG read row buffer");
- break;
-
- case WRITE_MODE:
-@@ -502,14 +515,14 @@
-
- handle->buffer_size = buffer_size;
-
-- if ((png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING,
-+ if ((povpng_info->png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING,
- (png_voidp)TRUE, png_pov_err, png_pov_warn)) == NULL ||
-- (info_ptr = png_create_info_struct(png_ptr)) == NULL)
-+ (povpng_info->info_ptr = png_create_info_struct(povpng_info->png_ptr)) == NULL)
- {
- Error("Error allocating PNG data structures");
- }
-
-- if (setjmp(png_ptr->jmpbuf))
-+ if (setjmp(povpng_info->png_ptr->jmpbuf))
- {
- /* If we get here, we had a problem writing the file */
- if (handle->buffer != NULL)
-@@ -518,7 +531,7 @@
- handle->buffer = NULL;
- }
-
-- png_destroy_write_struct(&png_ptr, &info_ptr);
-+ png_destroy_write_struct(&(povpng_info->png_ptr), &(povpng_info->info_ptr));
-
- fclose(handle->file);
- handle->file = NULL;
-@@ -528,71 +541,71 @@
-
- /* Set up the compression structure */
-
-- png_init_io(png_ptr, handle->file);
-+ png_init_io(povpng_info->png_ptr, handle->file);
-
- /* Fill in the relevant image information */
-
-- info_ptr->width = handle->width = *width;
-- info_ptr->height = handle->height = *height;
-+ povpng_info->info_ptr->width = handle->width = *width;
-+ povpng_info->info_ptr->height = handle->height = *height;
-
-- info_ptr->bit_depth = 8 * ((opts.OutputQuality + 7) / 8);
-+ povpng_info->info_ptr->bit_depth = 8 * ((opts.OutputQuality + 7) / 8);
-
- if (opts.Options & HF_GRAY_16)
- {
-- info_ptr->color_type = PNG_COLOR_TYPE_GRAY;
-+ povpng_info->info_ptr->color_type = PNG_COLOR_TYPE_GRAY;
- }
- else
- {
-- info_ptr->color_type = PNG_COLOR_TYPE_RGB;
-+ povpng_info->info_ptr->color_type = PNG_COLOR_TYPE_RGB;
- }
-
- if (opts.Options & OUTPUT_ALPHA)
- {
-- info_ptr->color_type |= PNG_COLOR_MASK_ALPHA;
-+ povpng_info->info_ptr->color_type |= PNG_COLOR_MASK_ALPHA;
- }
-
- #if defined(PNG_WRITE_sBIT_SUPPORTED)
-- if (info_ptr->color_type & PNG_COLOR_MASK_COLOR)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_COLOR)
- {
-- info_ptr->sig_bit.red =
-- info_ptr->sig_bit.green =
-- info_ptr->sig_bit.blue = opts.OutputQuality;
-+ povpng_info->info_ptr->sig_bit.red =
-+ povpng_info->info_ptr->sig_bit.green =
-+ povpng_info->info_ptr->sig_bit.blue = opts.OutputQuality;
- }
- else
- {
-- info_ptr->sig_bit.gray = opts.OutputQuality;
-+ povpng_info->info_ptr->sig_bit.gray = opts.OutputQuality;
- }
-
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
- {
-- info_ptr->sig_bit.alpha = opts.OutputQuality;
-+ povpng_info->info_ptr->sig_bit.alpha = opts.OutputQuality;
- }
-
-- info_ptr->valid |= PNG_INFO_sBIT;
-+ povpng_info->info_ptr->valid |= PNG_INFO_sBIT;
- #endif /* PNG_WRITE_sBIT_SUPPORTED */
-
- #if defined(PNG_WRITE_gAMA_SUPPORTED)
- if (handle->file_type & (IMAGE_FTYPE | GRAY_FTYPE))
- {
-- info_ptr->gamma = 1.0/opts.DisplayGamma;
-- info_ptr->valid |= PNG_INFO_gAMA;
-+ povpng_info->info_ptr->gamma = 1.0/opts.DisplayGamma;
-+ povpng_info->info_ptr->valid |= PNG_INFO_gAMA;
- }
- else if (handle->file_type & (HIST_FTYPE | HF_FTYPE))
- {
-- info_ptr->gamma = 1.0;
-- info_ptr->valid |= PNG_INFO_gAMA;
-+ povpng_info->info_ptr->gamma = 1.0;
-+ povpng_info->info_ptr->valid |= PNG_INFO_gAMA;
- }
- #endif /* PNG_WRITE_gAMA_SUPPORTED */
-
- #if defined(PNG_WRITE_oFFs_SUPPORTED)
- if (opts.First_Column != 0 || opts.First_Line != 0)
- {
-- info_ptr->x_offset = opts.First_Column;
-- info_ptr->y_offset = opts.First_Line;
-+ povpng_info->info_ptr->x_offset = opts.First_Column;
-+ povpng_info->info_ptr->y_offset = opts.First_Line;
-
-- info_ptr->offset_unit_type = PNG_OFFSET_PIXEL;
-+ povpng_info->info_ptr->offset_unit_type = PNG_OFFSET_PIXEL;
-
-- info_ptr->valid |= PNG_INFO_oFFs;
-+ povpng_info->info_ptr->valid |= PNG_INFO_oFFs;
- }
- #endif /* PNG_WRITE_oFFs_SUPPORTED */
-
-@@ -605,22 +618,22 @@
- */
- }
-
-- png_write_info(png_ptr, info_ptr);
-+ png_write_info(povpng_info->png_ptr, povpng_info->info_ptr);
-
-- png_stride = info_ptr->color_type & PNG_COLOR_MASK_COLOR ? 3 : 1;
-+ povpng_info->png_stride = povpng_info->info_ptr->color_type & PNG_COLOR_MASK_COLOR ? 3 : 1;
-
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-- png_stride++;
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ povpng_info->png_stride++;
-
-- png_stride *= (opts.OutputQuality + 7) / 8;
-+ povpng_info->png_stride *= (opts.OutputQuality + 7) / 8;
-
-- row_ptr = (png_byte *)POV_MALLOC(*width*png_stride, "PNG write row buffer");
-+ povpng_info->row_ptr = (png_byte *)POV_MALLOC(*width*povpng_info->png_stride, "PNG write row buffer");
-
- #if defined(PNG_WRITE_FLUSH_SUPPORTED)
- /* Set libpng to flush the output buffers every few lines, so that
- * in case of a rude crash we don't lose very much data.
- */
-- png_set_flush(png_ptr, FLUSH_DIST);
-+ png_set_flush(povpng_info->png_ptr, FLUSH_DIST);
- #endif /* PNG_WRITE_FLUSH_SUPPORTED */
-
- break;
-@@ -628,7 +641,7 @@
- case APPEND_MODE:
-
- #if defined(PNG_WRITE_FLUSH_SUPPORTED)
-- if (setjmp(png_ptr->jmpbuf))
-+ if (setjmp(povpng_info->png_ptr->jmpbuf))
- {
- /* If we get here, we had a problem writing the file */
-
-@@ -638,7 +651,7 @@
- handle->buffer = NULL;
- }
-
-- png_destroy_write_struct(&png_ptr, &info_ptr);
-+ png_destroy_write_struct(&(povpng_info->png_ptr), &(povpng_info->info_ptr));
-
- fclose(handle->file);
- handle->file = NULL;
-@@ -649,8 +662,8 @@
- /* Write out the data in the PNG/zlib buffers, and set automatic
- * flushing for every few scanlines, in case of a rude crash.
- */
-- png_write_flush(png_ptr);
-- png_set_flush(png_ptr, FLUSH_DIST);
-+ png_write_flush(povpng_info->png_ptr);
-+ png_set_flush(povpng_info->png_ptr, FLUSH_DIST);
- #else /* !PNG_WRITE_FLUSH_SUPPORTED */
- fflush(handle->file);
- #endif /* PNG_WRITE_FLUSH_SUPPORTED */
-@@ -664,7 +677,7 @@
- handle->buffer = NULL;
- }
-
-- png_destroy_write_struct(&png_ptr, &info_ptr);
-+ png_destroy_write_struct(&(povpng_info->png_ptr), &(povpng_info->info_ptr));
-
- return(0);
- }
-@@ -672,14 +685,14 @@
- /* Delete the temporary data file. Note that the new output file
- * is all ready to go - nothing needs to be done here.
- */
-- if (tmp_fp != NULL)
-+ if (povpng_info->tmp_fp != NULL)
- {
-- fclose(tmp_fp);
-- tmp_fp = NULL;
-+ fclose(povpng_info->tmp_fp);
-+ povpng_info->tmp_fp = NULL;
-
-- if (DELETE_FILE(tmp_fname) == DELETE_FILE_ERR)
-+ if (DELETE_FILE(povpng_info->tmp_fname) == DELETE_FILE_ERR)
- {
-- Warning(0.0,"Can't delete temporary PNG file %s. Please delete it.\n",tmp_fname);
-+ Warning(0.0,"Can't delete temporary PNG file %s. Please delete it.\n",povpng_info->tmp_fname);
- }
- }
- }
-@@ -723,6 +736,9 @@
- register int col, j;
- int himask;
- int color;
-+ POVPNG_INFO *povpng_info;
-+
-+ povpng_info = (POVPNG_INFO *)(handle->private);
-
-
- /*
-@@ -745,142 +761,142 @@
-
- himask = 0xFF ^ ((1 << (8 - opts.OutputQuality)) - 1);
-
-- if ((info_ptr->color_type & PNG_COLOR_MASK_COLOR) == PNG_COLOR_TYPE_GRAY)
-+ if ((povpng_info->info_ptr->color_type & PNG_COLOR_MASK_COLOR) == PNG_COLOR_TYPE_GRAY)
- {
-- for (col = j = 0; col < handle->width; col++, j += png_stride)
-+ for (col = j = 0; col < handle->width; col++, j += povpng_info->png_stride)
- {
- color = (png_byte)floor((line_data[col][RED]*0.30 +
- line_data[col][GREEN]*0.59 +
- line_data[col][BLUE]*0.11) * 255.0);
-
- /* Use left-bit replication (LBR) for bit depths < 8 */
-- row_ptr[j] = color & himask;
-- row_ptr[j] |= color >> opts.OutputQuality;
-+ povpng_info->row_ptr[j] = color & himask;
-+ povpng_info->row_ptr[j] |= color >> opts.OutputQuality;
-
- /* Handle Alpha here if needed - must use exact bit replication
- * instead of truncation or 100... termination
- */
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
- {
- color = 255 - (int)floor(line_data[col][TRANSM] * 255.0);
-
-- row_ptr[j + 1] = color & himask;
-- row_ptr[j + 1] |= color >> opts.OutputQuality;
-+ povpng_info->row_ptr[j + 1] = color & himask;
-+ povpng_info->row_ptr[j + 1] |= color >> opts.OutputQuality;
- }
- }
- }
- else
- {
-- for (col = j = 0; col < handle->width; col++, j += png_stride)
-+ for (col = j = 0; col < handle->width; col++, j += povpng_info->png_stride)
- {
- color = (int)floor(line_data[col][RED] * 255.0);
-
-- row_ptr[j] = color & himask;
-- row_ptr[j] |= color >> opts.OutputQuality;
-+ povpng_info->row_ptr[j] = color & himask;
-+ povpng_info->row_ptr[j] |= color >> opts.OutputQuality;
-
- color = (int)floor(line_data[col][GREEN] * 255.0);
-
-- row_ptr[j + 1] = color & himask;
-- row_ptr[j + 1] |= color >> opts.OutputQuality;
-+ povpng_info->row_ptr[j + 1] = color & himask;
-+ povpng_info->row_ptr[j + 1] |= color >> opts.OutputQuality;
-
- color = (int)floor(line_data[col][BLUE] * 255.0);
-
-- row_ptr[j + 2] = color & himask;
-- row_ptr[j + 2] |= color >> opts.OutputQuality;
-+ povpng_info->row_ptr[j + 2] = color & himask;
-+ povpng_info->row_ptr[j + 2] |= color >> opts.OutputQuality;
-
- /* Handle Alpha here if needed */
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
- {
- color = 255 - (int)floor(line_data[col][TRANSM] * 255.0);
-
-- row_ptr[j + 3] = color & himask;
-- row_ptr[j + 3] |= color >> opts.OutputQuality;
-+ povpng_info->row_ptr[j + 3] = color & himask;
-+ povpng_info->row_ptr[j + 3] |= color >> opts.OutputQuality;
- }
- }
- }
- break;
-
- case 8:
-- if ((info_ptr->color_type & PNG_COLOR_MASK_COLOR) == PNG_COLOR_TYPE_GRAY)
-+ if ((povpng_info->info_ptr->color_type & PNG_COLOR_MASK_COLOR) == PNG_COLOR_TYPE_GRAY)
- {
-- for (col = j = 0; col < handle->width; col++, j += png_stride)
-+ for (col = j = 0; col < handle->width; col++, j += povpng_info->png_stride)
- {
-- row_ptr[j] = (png_byte)floor((line_data[col][RED]*0.30 +
-+ povpng_info->row_ptr[j] = (png_byte)floor((line_data[col][RED]*0.30 +
- line_data[col][GREEN]*0.59 +
- line_data[col][BLUE]*0.11) * 255.0);
-
- /* Handle Alpha here if needed */
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
- {
-- row_ptr[j+1] = (png_byte)(255-floor(line_data[col][TRANSM]*255.0));
-+ povpng_info->row_ptr[j+1] = (png_byte)(255-floor(line_data[col][TRANSM]*255.0));
- }
- }
- }
- else
- {
-- for (col = j = 0; col < handle->width; col++, j += png_stride)
-+ for (col = j = 0; col < handle->width; col++, j += povpng_info->png_stride)
- {
-- row_ptr[j] = (png_byte)floor(line_data[col][RED] * 255.0);
-- row_ptr[j + 1] = (png_byte)floor(line_data[col][GREEN] * 255.0);
-- row_ptr[j + 2] = (png_byte)floor(line_data[col][BLUE] * 255.0);
-+ povpng_info->row_ptr[j] = (png_byte)floor(line_data[col][RED] * 255.0);
-+ povpng_info->row_ptr[j + 1] = (png_byte)floor(line_data[col][GREEN] * 255.0);
-+ povpng_info->row_ptr[j + 2] = (png_byte)floor(line_data[col][BLUE] * 255.0);
-
- /* Handle Alpha here if needed */
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
- {
-- row_ptr[j+3] = (png_byte)(255-floor(line_data[col][TRANSM]*255.0));
-+ povpng_info->row_ptr[j+3] = (png_byte)(255-floor(line_data[col][TRANSM]*255.0));
- }
- }
- }
- break;
-
- case 16:
-- if ((info_ptr->color_type & PNG_COLOR_MASK_COLOR) == PNG_COLOR_TYPE_GRAY)
-+ if ((povpng_info->info_ptr->color_type & PNG_COLOR_MASK_COLOR) == PNG_COLOR_TYPE_GRAY)
- {
-- for (col = j = 0; col < handle->width; col++, j += png_stride)
-+ for (col = j = 0; col < handle->width; col++, j += povpng_info->png_stride)
- {
- color = (int)floor((line_data[col][RED]*0.30 +
- line_data[col][GREEN]*0.59 +
- line_data[col][BLUE]*0.11) * 65535.0);
-
-- row_ptr[j] = color >> 8;
-- row_ptr[j + 1] = color & 0xFF;
-+ povpng_info->row_ptr[j] = color >> 8;
-+ povpng_info->row_ptr[j + 1] = color & 0xFF;
-
- /* Handle Alpha here if needed */
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
- {
- color = 65535 - (int)floor(line_data[col][TRANSM] * 65535.0);
-
-- row_ptr[j + 2] = color >> 8;
-- row_ptr[j + 3] = color & 0xFF;
-+ povpng_info->row_ptr[j + 2] = color >> 8;
-+ povpng_info->row_ptr[j + 3] = color & 0xFF;
- }
- }
- }
- else
- {
-- for (col = j = 0; col < handle->width; col++, j += png_stride)
-+ for (col = j = 0; col < handle->width; col++, j += povpng_info->png_stride)
- {
- color = (int)floor(line_data[col][RED] * 65535.0);
-
-- row_ptr[j] = color >> 8;
-- row_ptr[j + 1] = color & 0xFF;
-+ povpng_info->row_ptr[j] = color >> 8;
-+ povpng_info->row_ptr[j + 1] = color & 0xFF;
-
- color = (int)floor(line_data[col][GREEN] * 65535.0);
-
-- row_ptr[j + 2] = color >> 8;
-- row_ptr[j + 3] = color & 0xFF;
-+ povpng_info->row_ptr[j + 2] = color >> 8;
-+ povpng_info->row_ptr[j + 3] = color & 0xFF;
-
- color = (int)floor(line_data[col][BLUE] * 65535.0);
-
-- row_ptr[j + 4] = color >> 8;
-- row_ptr[j + 5] = color & 0xFF;
-+ povpng_info->row_ptr[j + 4] = color >> 8;
-+ povpng_info->row_ptr[j + 5] = color & 0xFF;
-
- /* Handle Alpha here if needed */
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
- {
- color = 65535 - (int)floor(line_data[col][TRANSM] * 65535.0);
-
-- row_ptr[j + 6] = color >> 8;
-- row_ptr[j + 7] = color & 0xFF;
-+ povpng_info->row_ptr[j + 6] = color >> 8;
-+ povpng_info->row_ptr[j + 7] = color & 0xFF;
- }
- }
- }
-@@ -890,60 +906,60 @@
- /* Handle shifting for arbitrary output bit depth */
- himask = 0xFF ^ ((1 << (16 - opts.OutputQuality)) - 1);
-
-- if ((info_ptr->color_type & PNG_COLOR_MASK_COLOR) == PNG_COLOR_TYPE_GRAY)
-+ if ((povpng_info->info_ptr->color_type & PNG_COLOR_MASK_COLOR) == PNG_COLOR_TYPE_GRAY)
- {
-- for (col = j = 0; col < handle->width; col++, j += png_stride)
-+ for (col = j = 0; col < handle->width; col++, j += povpng_info->png_stride)
- {
- color = (int)floor((line_data[col][RED]*0.30 +
- line_data[col][GREEN]*0.59 +
- line_data[col][BLUE]*0.11) * 65535.0);
-
-- row_ptr[j] = color >> 8;
-- row_ptr[j + 1] = color & himask;
-+ povpng_info->row_ptr[j] = color >> 8;
-+ povpng_info->row_ptr[j + 1] = color & himask;
-
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
- {
- color = 65535 - (int)floor(line_data[col][TRANSM] * 65535.0);
-
-- row_ptr[j + 2] = color >> 8;
-- row_ptr[j + 3] = color & himask;
-- row_ptr[j + 3] |= color >> opts.OutputQuality;
-+ povpng_info->row_ptr[j + 2] = color >> 8;
-+ povpng_info->row_ptr[j + 3] = color & himask;
-+ povpng_info->row_ptr[j + 3] |= color >> opts.OutputQuality;
- }
- }
- }
- else
- {
-- for (col = j = 0; col < handle->width; col++, j += png_stride)
-+ for (col = j = 0; col < handle->width; col++, j += povpng_info->png_stride)
- {
- color = (int)floor(line_data[col][RED] * 65535.0);
-
-- row_ptr[j] = color >> 8;
-- row_ptr[j + 1] = color & himask;
-+ povpng_info->row_ptr[j] = color >> 8;
-+ povpng_info->row_ptr[j + 1] = color & himask;
-
- color = (int)floor(line_data[col][GREEN] * 65535.0);
-
-- row_ptr[j + 2] = color >> 8;
-- row_ptr[j + 3] = color & himask;
-+ povpng_info->row_ptr[j + 2] = color >> 8;
-+ povpng_info->row_ptr[j + 3] = color & himask;
-
- color = (int)floor(line_data[col][BLUE] * 65535.0);
-
-- row_ptr[j + 4] = color >> 8;
-- row_ptr[j + 5] = color & himask;
-+ povpng_info->row_ptr[j + 4] = color >> 8;
-+ povpng_info->row_ptr[j + 5] = color & himask;
-
- /* Handle Alpha here if needed */
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
- {
- color = 65535 - (int)floor(line_data[col][TRANSM] * 65535.0);
-
-- row_ptr[j + 6] = color >> 8;
-- row_ptr[j + 7] = color & himask;
-- row_ptr[j + 7] |= color >> opts.OutputQuality;
-+ povpng_info->row_ptr[j + 6] = color >> 8;
-+ povpng_info->row_ptr[j + 7] = color & himask;
-+ povpng_info->row_ptr[j + 7] |= color >> opts.OutputQuality;
- }
- }
- }
- }
-
-- if (setjmp(png_ptr->jmpbuf))
-+ if (setjmp(povpng_info->png_ptr->jmpbuf))
- {
- /* If we get here, we had a problem writing the file */
- fclose(handle->file);
-@@ -953,7 +969,7 @@
- }
-
- /* Write out a scanline */
-- png_write_row(png_ptr, row_ptr);
-+ png_write_row(povpng_info->png_ptr, povpng_info->row_ptr);
-
- /* Close and reopen file (if not stdout) for integrity in case we crash */
- if (handle->buffer_size == 0 && !(opts.Options & TO_STDOUT))
-@@ -995,8 +1011,11 @@
- static int Read_Png_Line(FILE_HANDLE *handle, COLOUR *line_data, int *line_number)
- {
- register int col, j, step;
-+ POVPNG_INFO *povpng_info;
-+
-+ povpng_info = (POVPNG_INFO *)(handle->private);
-
-- if (setjmp(o_png_ptr->jmpbuf))
-+ if (setjmp(povpng_info->o_png_ptr->jmpbuf))
- {
- /* If we get here, we had a problem reading the file, which probably
- * means that we have read all the available data, rather than a real
-@@ -1006,29 +1025,29 @@
- return(0);
- }
-
-- if (setjmp(png_ptr->jmpbuf))
-+ if (setjmp(povpng_info->png_ptr->jmpbuf))
- {
- /* If we get here, we had a problem writing the new file */
- Status_Info("\n");
-
- fclose(handle->file);
- handle->file = NULL;
-- fclose(tmp_fp);
-- tmp_fp = NULL;
-+ fclose(povpng_info->tmp_fp);
-+ povpng_info->tmp_fp = NULL;
-
- if (DELETE_FILE(handle->filename) != DELETE_FILE_ERR)
- {
-- RENAME_FILE(tmp_fname,handle->filename); /* Move original file back */
-+ RENAME_FILE(povpng_info->tmp_fname,handle->filename); /* Move original file back */
- }
-
- return(-1);
- }
-
- /* Read in another row if available */
-- png_read_row(o_png_ptr, row_ptr, NULL);
-+ png_read_row(povpng_info->o_png_ptr, povpng_info->row_ptr, NULL);
-
- /* We won't get here if there was a read error */
-- png_write_row(png_ptr, row_ptr);
-+ png_write_row(povpng_info->png_ptr, povpng_info->row_ptr);
-
- if (*line_number % 32 == 31)
- Status_Info(".");
-@@ -1042,33 +1061,33 @@
- */
-
- /* How many bytes in a sample */
-- step = (info_ptr->bit_depth <= 8) ? 1 : 2;
-+ step = (povpng_info->info_ptr->bit_depth <= 8) ? 1 : 2;
-
-- if ((info_ptr->color_type & PNG_COLOR_MASK_COLOR) == PNG_COLOR_TYPE_GRAY)
-+ if ((povpng_info->info_ptr->color_type & PNG_COLOR_MASK_COLOR) == PNG_COLOR_TYPE_GRAY)
- {
-- for (col = j = 0; col < handle->width; col++, j += png_stride)
-+ for (col = j = 0; col < handle->width; col++, j += povpng_info->png_stride)
- {
-- line_data[col][RED] = (DBL)row_ptr[j] / 255.0;
-- line_data[col][GREEN] = (DBL)row_ptr[j] / 255.0;
-- line_data[col][BLUE] = (DBL)row_ptr[j] / 255.0;
-+ line_data[col][RED] = (DBL)(povpng_info->row_ptr[j]) / 255.0;
-+ line_data[col][GREEN] = (DBL)(povpng_info->row_ptr[j]) / 255.0;
-+ line_data[col][BLUE] = (DBL)(povpng_info->row_ptr[j]) / 255.0;
-
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
- {
-- line_data[col][TRANSM] = (DBL)(255 - row_ptr[j + step]) / 255.0;
-+ line_data[col][TRANSM] = (DBL)(255 - povpng_info->row_ptr[j + step]) / 255.0;
- }
- }
- }
- else
- {
-- for (col = j = 0; col < handle->width; col++, j += png_stride)
-+ for (col = j = 0; col < handle->width; col++, j += povpng_info->png_stride)
- {
-- line_data[col][RED] = (DBL)row_ptr[j] / 255.0;
-- line_data[col][GREEN] = (DBL)row_ptr[j + step] / 255.0;
-- line_data[col][BLUE] = (DBL)row_ptr[j + 2*step] / 255.0;
-+ line_data[col][RED] = (DBL)(povpng_info->row_ptr[j]) / 255.0;
-+ line_data[col][GREEN] = (DBL)(povpng_info->row_ptr[j + step]) / 255.0;
-+ line_data[col][BLUE] = (DBL)(povpng_info->row_ptr[j + 2*step]) / 255.0;
-
-- if (info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
-+ if (povpng_info->info_ptr->color_type & PNG_COLOR_MASK_ALPHA)
- {
-- line_data[col][TRANSM] = (DBL)(255 - row_ptr[j + 3*step]) / 255.0;
-+ line_data[col][TRANSM] = (DBL)(255 - povpng_info->row_ptr[j + 3*step]) / 255.0;
- }
- }
- }
-@@ -1077,9 +1096,9 @@
- * the next row!
- */
- #if defined(PNG_READ_oFFS_SUPPORTED)
-- *line_number = info_ptr->y_offset + png_ptr->row_number - 1;
-+ *line_number = povpng_info->info_ptr->y_offset + povpng_info->png_ptr->row_number - 1;
- #else
-- *line_number = png_ptr->row_number - 1;
-+ *line_number = povpng_info->png_ptr->row_number - 1;
- #endif
-
- return(1);
-@@ -1127,6 +1146,9 @@
- "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
- #endif
- #endif
-+ POVPNG_INFO *povpng_info;
-+
-+ povpng_info = (POVPNG_INFO *)(handle->private);
-
- /* Why are we here? */
-
-@@ -1137,18 +1159,18 @@
-
- if (handle->mode == WRITE_MODE || handle->mode == APPEND_MODE)
- {
-- if (png_ptr != NULL)
-+ if (povpng_info->png_ptr != NULL)
- {
-- if (setjmp(png_ptr->jmpbuf))
-+ if (setjmp(povpng_info->png_ptr->jmpbuf))
- {
- /* If we get here, we had a problem writing the file */
-
-- png_destroy_write_struct(&png_ptr, &info_ptr);
-+ png_destroy_write_struct(&(povpng_info->png_ptr), &(povpng_info->info_ptr));
-
-- if (row_ptr != NULL)
-+ if (povpng_info->row_ptr != NULL)
- {
-- POV_FREE(row_ptr);
-- row_ptr = NULL;
-+ POV_FREE(povpng_info->row_ptr);
-+ povpng_info->row_ptr = NULL;
- }
-
- if (handle->file != NULL)
-@@ -1166,19 +1188,19 @@
- Error("Error writing PNG file.");
- }
-
-- if(png_ptr->row_number < png_ptr->num_rows)
-+ if(povpng_info->png_ptr->row_number < povpng_info->png_ptr->num_rows)
- {
- /* finished prematurely - trick into thinking done*/
-- png_ptr->num_rows = png_ptr->row_number;
-- png_write_finish_row(png_ptr);
-+ povpng_info->png_ptr->num_rows = povpng_info->png_ptr->row_number;
-+ png_write_finish_row(povpng_info->png_ptr);
- }
-
- #ifdef POV_COMMENTS /* temporarily skip comment writing code */
-- if (info_ptr != NULL)
-+ if (povpng_info->info_ptr != NULL)
- {
- #if defined(PNG_WRITE_tIME_SUPPORTED)
-- png_convert_from_time_t(&info_ptr->mod_time, tstart);
-- info_ptr->valid = PNG_INFO_tIME;
-+ png_convert_from_time_t(&(povpng_info->info_ptr->mod_time), tstart);
-+ povpng_info->info_ptr->valid = PNG_INFO_tIME;
- #endif /* PNG_WRITE_tIME_SUPPORTED */
-
- #if defined(PNG_WRITE_tEXt_SUPPORTED)
-@@ -1214,9 +1236,9 @@
- /* Print the image "creation" time in RFC 1123 format */
- text_ptr[++index].key = "Creation Time";
- sprintf(bigtext, "%02d %3s %4d %02d:%02d:%02d GMT",
-- info_ptr->mod_time.day, months[info_ptr->mod_time.month],
-- info_ptr->mod_time.year, info_ptr->mod_time.hour,
-- info_ptr->mod_time.minute, info_ptr->mod_time.second);
-+ povpng_info->info_ptr->mod_time.day, months[povpng_info->info_ptr->mod_time.month],
-+ povpng_info->info_ptr->mod_time.year, povpng_info->info_ptr->mod_time.hour,
-+ povpng_info->info_ptr->mod_time.minute, povpng_info->info_ptr->mod_time.second);
- text_ptr[index].text_length = strlen(bigtext);
- text_ptr[index].text = (char *)POV_MALLOC(text_ptr[index].text_length + 1, "PNG comment");
- strcpy(text_ptr[index].text, bigtext);
-@@ -1290,8 +1312,8 @@
- }
- #endif /* POV_COMMENTS */
-
-- png_write_end(png_ptr, info_ptr);
-- png_destroy_write_struct(&png_ptr, &info_ptr);
-+ png_write_end(povpng_info->png_ptr, povpng_info->info_ptr);
-+ png_destroy_write_struct(&(povpng_info->png_ptr), &(povpng_info->info_ptr));
-
- #ifdef POV_COMMENTS
- if (text_ptr != NULL)
-@@ -1311,10 +1333,10 @@
-
- }
-
-- if (row_ptr != NULL)
-+ if (povpng_info->row_ptr != NULL)
- {
-- POV_FREE(row_ptr);
-- row_ptr = NULL;
-+ POV_FREE(povpng_info->row_ptr);
-+ povpng_info->row_ptr = NULL;
- }
-
- if (handle->file != NULL && !(opts.Options & TO_STDOUT))
-@@ -1331,9 +1353,9 @@
- }
- else /* READ_MODE */
- {
-- if (o_png_ptr != NULL)
-+ if (povpng_info->o_png_ptr != NULL)
- {
-- png_destroy_read_struct(&o_png_ptr, (png_infopp)NULL, (png_infopp)NULL);
-+ png_destroy_read_struct(&(povpng_info->o_png_ptr), (png_infopp)NULL, (png_infopp)NULL);
- }
- }
- }
-
+++ /dev/null
-diff -Naur source.ori/optin.c source/optin.c
---- source.ori/optin.c Sat Jun 30 01:49:21 2001
-+++ source/optin.c Sat Jun 30 10:01:28 2001
-@@ -30,7 +30,8 @@
- *
- * Written by CEY 4/94 based on existing code and INI code from CDW.
- *
--* ---
-+* Modified Oct. 96 by Deischi for PVM
-+* Modified Jun 2001 by Agaran for conditional PVM build
- *
- * Modification by Thomas Willhalm, March 1999, used with permission.
- *
-@@ -56,7 +57,9 @@
- #include "targa.h"
- #include "userio.h"
- #include "png_pov.h"
--
-+#ifdef USE_PVM
-+#include "pvm.h"
-+#endif
-
-
- /*****************************************************************************
-@@ -187,7 +190,23 @@
-
- { BITS_PER_COLOR_OP, "Bits_Per_Color" },
- { BITS_PER_COLOUR_OP, "Bits_Per_Colour" },
-+#ifdef USE_PVM
-+ { INCLUDE_INI_OP, "Include_Ini" },
-+
-+ /* new options for PVM-Pov */
-+ { PVM_TASKS_OP, "PVM_Tasks" },
-+ { PVM_WIDTH_OP, "PVM_Width" },
-+ { PVM_HEIGHT_OP, "PVM_Height" },
-+ { PVM_SLAVE_OP, "PVM_Slave" },
-+ { PVM_ARCH_OP, "PVM_Arch" },
-+ { PVM_NICE_OP, "PVM_Nice" },
-+ { PVM_WD_OP, "PVM_WD" },
-+ { PVM_HOSTS_OP, "PVM_Hosts" },
-+ { PVM_USE_OP, "PVM" }
-+
-+#else
- { INCLUDE_INI_OP, "Include_Ini" }
-+#endif
- };
-
- static char temp_string[3]="\0\0";
-@@ -229,7 +248,8 @@
- *
- * CHANGES
- *
--* -
-+* Oct. 1996: Added options for PVMPOV [Deischi]
-+* jun 2001: conditional pvm
- *
- ******************************************************************************/
-
-@@ -560,6 +580,44 @@
- case INCLUDE_INI_OP:
- value[0] = '\0';
- return value;
-+#ifdef USE_PVM
-+ /*
-+ * PVM Options
-+ */
-+ case PVM_TASKS_OP:
-+ sprintf(value, "%d", PvmTasks);
-+ return value;
-+ case PVM_WIDTH_OP:
-+ sprintf(value, "%d", PvmChunkWidth);
-+ return value;
-+ case PVM_HEIGHT_OP:
-+ sprintf(value, "%d", PvmChunkHeight);
-+ return value;
-+ case PVM_SLAVE_OP:
-+ strncpy(value, PvmSlavename ? PvmSlavename : "", 128);
-+ return value;
-+ case PVM_ARCH_OP:
-+ sprintf(value, "%s", PvmArch);
-+ return value;
-+ case PVM_NICE_OP:
-+ sprintf(value, "%d", PvmNice);
-+ return value;
-+ case PVM_WD_OP:
-+ strncpy(value, PvmWorkingDir, PATH_MAX);
-+ return value;
-+ case PVM_HOSTS_OP:
-+ if(PvmHosts) {
-+ int i;
-+ for(i=0; i < PvmHostsN; i++) {
-+ strncat(value, PvmHosts[i], 128);
-+ strncat(value, ",", 128);
-+ }
-+ }
-+ return value;
-+ case PVM_USE_OP:
-+ sprintf(value, "%s", (PvmTasks || PvmSlave) ? "On" : "Off");
-+ return value;
-+#endif
-
- default:
- Error("Unknown INI option in Write_INI.");
-@@ -602,6 +660,8 @@
- * Sep 1994 : Added options for union splitting, vista/light buffer. [DB]
- * Jan 1995 : Added options for histogram grid. [CJC]
- * Feb 1995 : Added options for console/file redirection and .INI writing [SCD]
-+* Oct 1996 : Added options for PVMPOV [Deischi]
-+* jun 2001 : added condititional build for pvm
- *
- ******************************************************************************/
-
-@@ -1024,13 +1084,67 @@
- break;
-
- /* "N" option flag is used by networking (multi-processor) options.
--
-- case 'N':
-- case 'n':
--
-- break;
--
- */
-+#ifdef USE_PVM
-+ /*
-+ * PVM-POV
-+ *
-+ */
-+ case 'N': /* switches used for PVMPOV */
-+ case 'n':
-+ switch( Option_String[1]) {
-+ case '\0': /* Start one slave/available PVM host */
-+ process_variable(PVM_USE_OP, Add_Option ? "On" : "Off");
-+ break;
-+ case 'a': /* Select a particular architecture to run the slaves on */
-+ case 'A':
-+ process_variable(PVM_ARCH_OP, Option_String+2);
-+ break;
-+ case 'n': /* Sets the niceness (priority) level */
-+ case 'N':
-+ process_variable(PVM_NICE_OP, Option_String+2);
-+ break;
-+ case 't': /* Sets the number of tasks to run. Default is 1 per host */
-+ case 'T':
-+ process_variable(PVM_TASKS_OP, Option_String+2);
-+ break;
-+ case 'h': /* The height of a single grid block, in pixels */
-+ case 'H':
-+ process_variable(PVM_HEIGHT_OP, Option_String+2);
-+ break;
-+ case 'w': /* The width of a single grid block, in pixels */
-+ case 'W':
-+ process_variable(PVM_WIDTH_OP, Option_String+2);
-+ break;
-+ case 's': /* specify the name of the slave */
-+ case 'S':
-+ process_variable(PVM_SLAVE_OP, Option_String+2);
-+ break;
-+ case 'd': /* specify working directory for the slaves */
-+ case 'D':
-+ process_variable(PVM_WD_OP, Option_String+2);
-+ break;
-+ /* Internal sub-option "-nI" indicates a PVM slave task.
-+ * This will be appended to current argv string, so it will override
-+ * the previous -nxx options. */
-+ case 'i':
-+ case 'I':
-+ PvmTasks = 1;
-+ PvmSlave = 1;
-+
-+ if (chdir(&Option_String[2]) < 0) {
-+ fprintf(stderr, "Slave cannot cd to %s.\n", &Option_String[2]);
-+ exit(1);
-+ }
-+ break;
-+
-+ default:
-+ fprintf(stderr, "Illegal +N%c switch setting\n", Option_String[1]);
-+ break;
-+ } /* switch */
-+ break;
-+#endif
-+
-
- case 'O':
- case 'o':
-@@ -1262,7 +1376,8 @@
- *
- * CHANGES
- *
--* -
-+* Oct 1996 : Added options for PVMPOV [Deischi]
-+* jun 2001 : conditional build for pvm
- *
- ******************************************************************************/
-
-@@ -1445,21 +1560,36 @@
- return;
-
- case END_COLUMN_OP:
-+#ifdef USE_PVM
-+ /* tw */
-+ if (sscanf (value, DBL_FORMAT_STRING, &floatval) != SCANF_EOF) {
-+#else
- { /* tw */
- if (sscanf (value, DBL_FORMAT_STRING, &floatval) != SCANF_EOF)
-+#endif
- if(floatval > 0.0 && floatval <= 1.0)
- {
- opts.Last_Column = -1;
- opts.Last_Column_Percent = floatval;
- }
-+#ifdef USE_PVM
-+ else {
-+ opts.Last_Column = (int) floatval; }
-+#else
- else
- opts.Last_Column = (int) floatval;
-+#endif
- } /* tw */
- return;
-
- case END_ROW_OP:
-+#ifdef USE_PVM
-+ /* tw */
-+ if (sscanf (value, DBL_FORMAT_STRING, &floatval) != SCANF_EOF) {
-+#else
- { /* tw */
- if (sscanf (value, DBL_FORMAT_STRING, &floatval) != SCANF_EOF)
-+#endif
- if(floatval > 0.0 && floatval <= 1.0)
- {
- opts.Last_Line = -1;
-@@ -1831,6 +1961,86 @@
- Error ("Could not open Include_Ini='%s'.\n", value);
- }
- return;
-+
-+#ifdef USE_PVM
-+ /*
-+ * Options for PVMPOV
-+ */
-+ case PVM_TASKS_OP:
-+ if (sscanf(value, "%d", &PvmTasks) != 1 || PvmTasks < 1) {
-+ PvmTasks = 9999; /* Try to start one slave/available PVM host */
-+ }
-+ return;
-+
-+ case PVM_WIDTH_OP:
-+ if (sscanf(value, "%d", &PvmChunkWidth) != 1 || PvmChunkWidth < 4)
-+ PvmChunkWidth = PVM_DEFAULT_GRID_WIDTH;
-+ return;
-+
-+ case PVM_HEIGHT_OP:
-+ if (sscanf(value, "%d", &PvmChunkHeight) != 1 || PvmChunkHeight < 4)
-+ PvmChunkHeight = PVM_DEFAULT_GRID_HEIGHT;
-+ return;
-+
-+ case PVM_SLAVE_OP:
-+ PvmSlavename = POV_MALLOC( sizeof(char)*(strlen(value)+1),
-+ "PVM Slavename");
-+ strcpy(PvmSlavename, value);
-+ return;
-+
-+ case PVM_ARCH_OP:
-+ strncpy(PvmArch,value,19);
-+ PvmArch[19] = '\0';
-+
-+ if (PvmTasks < 1)
-+ PvmTasks = 9999; /* Try to start one slave/available PVM host */
-+ return;
-+
-+ case PVM_NICE_OP:
-+ if (sscanf(value, "%d", &PvmNice) != 1 || PvmNice < 0) {
-+ PvmNice = PVM_DEFAULT_NICE;
-+ }
-+ return;
-+
-+ case PVM_WD_OP:
-+ strncpy(PvmWorkingDir, value, PATH_MAX);
-+ return;
-+
-+ case PVM_HOSTS_OP: {
-+ char * c = value;
-+ char * c2;
-+ int n;
-+
-+ PvmHostsN = 1; /* count number of names */
-+ while((c = strchr(c, ',')) != NULL) {
-+ c ++;
-+ PvmHostsN ++;
-+ }
-+ PvmHosts = (char**)POV_MALLOC( sizeof(char*) * PvmHostsN, "PvmHosts");
-+
-+ c = value;
-+ c2 = strchr(c,',');
-+ for(i=0; i < PvmHostsN; i++) {
-+ n = (c2) ? c2 - c : strlen(c);
-+ PvmHosts[i] = (char*)POV_MALLOC( sizeof(char) * (n + 1), "PvmHosts[i]");
-+ strncpy(PvmHosts[i], c, n);
-+ PvmHosts[i][n] = '\0';
-+
-+ if(c2) c = c2 + 1;
-+ c2 = strchr(c, ',');
-+ }
-+
-+ PvmTasks = PvmHostsN;
-+
-+ return;
-+
-+ }
-+ case PVM_USE_OP:
-+ PvmTasks = istrue(value) ? 9999 : 0;
-+ return;
-+
-+#endif
-+
-
- default:
- Warning(0.0,"Unimplemented INI '%s'.\n",Option_Variable[variable].Token_Name);
-diff -Naur source.ori/optin.h source/optin.h
---- source.ori/optin.h Sat Jun 30 01:49:21 2001
-+++ source/optin.h Sat Jun 30 03:43:53 2001
-@@ -19,6 +19,10 @@
- * DKBTrace was originally written by David K. Buck.
- * DKBTrace Ver 2.0-2.12 were written by David K. Buck & Aaron A. Collins.
- *
-+*
-+* Oct 1996 : Added options for PVMPOV [Deischi]
-+* Jun 2001 : Added conditional build for PVM Support [Agaran]
-+*
- *****************************************************************************/
-
-
-@@ -131,6 +135,19 @@
- BITS_PER_COLOR_OP,
- BITS_PER_COLOUR_OP,
- INCLUDE_INI_OP,
-+
-+#ifdef USE_PVM
-+ /* new options for PVMPOV */
-+ PVM_TASKS_OP,
-+ PVM_WIDTH_OP,
-+ PVM_HEIGHT_OP,
-+ PVM_SLAVE_OP,
-+ PVM_ARCH_OP,
-+ PVM_NICE_OP,
-+ PVM_WD_OP,
-+ PVM_HOSTS_OP,
-+ PVM_USE_OP,
-+#endif
-
- MAX_OPTION
- } INI_OP;
-diff -Naur source.ori/optout.c source/optout.c
---- source.ori/optout.c Sat Jun 30 01:49:21 2001
-+++ source/optout.c Sat Jun 30 09:25:02 2001
-@@ -19,6 +19,9 @@
- * DKBTrace was originally written by David K. Buck.
- * DKBTrace Ver 2.0-2.12 were written by David K. Buck & Aaron A. Collins.
- *
-+* Oct 1996 : Added options for PVMPOV [Deischi]
-+* jun 2001 : added conditional build for pvm
-+*
- *****************************************************************************/
-
- #include <ctype.h>
-@@ -65,8 +68,9 @@
- #include "povray.h"
- #include "optin.h"
- #include "optout.h"
--
--
-+#ifdef USE_PVM
-+#include "pvm.h"
-+#endif
-
- /*****************************************************************************
- * Local preprocessor defines
-@@ -611,6 +615,9 @@
- * Dec 1994 : Changed to show options depending on parameter n. [DB]
- *
- * Feb 1995 : Changed to terminate only if f != 0. [DB]
-+*
-+* Oct 1996 : Added options from PVMPOV [Deischi]
-+* Jun 2001 : conditional build for pvm
- *
- ******************************************************************************/
-
-@@ -640,7 +647,12 @@
- Banner(" 4 Output Options - file related\n");
- Banner(" 5 Tracing Options\n");
- Banner(" 6 Animation Options\n");
-+#ifdef USE_PVM
-+ Banner(" 7 PVM Options\n");
-+ Banner(" 8 Redirecting Options\n");
-+#else
- Banner(" 7 Redirecting Options\n");
-+#endif
-
- break;
-
-@@ -767,6 +779,40 @@
-
- break;
-
-+#ifdef USE_PVM
-+ /* PVM options. */
-+
-+ case 7:
-+
-+ Banner("\n");
-+ Banner("PVM options\n");
-+ Banner("\n");
-+ Banner(" N = Turn on PVM\n");
-+ Banner(" NTnnn = Spawn number of tasks\n");
-+ Banner(" NAs = Spawn only on architecture\n");
-+ Banner(" NWnnn = Width of each chunk\n");
-+ Banner(" NHnnn = Height of each chunk\n");
-+ Banner(" NNnnn = Niceness of slaves\n");
-+ Banner(" NSs = Name of slaves (executable)\n");
-+ Banner(" NDnnn = Name of the working directory\n");
-+ Banner(" pvm_hosts = n,n,.. = List of hostnames to use\n");
-+ Banner("\n");
-+
-+ /* Redirecting options. */
-+
-+ Banner("\n");
-+ Banner("Redirecting options\n");
-+ Banner("\n");
-+ Banner(" GI<name>= write all .INI parameters to file name\n");
-+ Banner(" Gx<name>= write stream x to console and/or file name\n");
-+ Banner(" GA - All streams (except status)\n");
-+ Banner(" GD - Debug stream\n");
-+ Banner(" GF - Fatal stream\n");
-+ Banner(" GR - Render stream\n");
-+ Banner(" GS - Statistics stream\n");
-+ Banner(" GW - Warning stream\n");
-+#else
-+
- /* Redirecting options. */
-
- case 7:
-@@ -782,6 +828,7 @@
- Banner(" GR - Render stream\n");
- Banner(" GS - Statistics stream\n");
- Banner(" GW - Warning stream\n");
-+#endif
-
- break;
-
-@@ -867,7 +914,8 @@
- *
- * CHANGES
- *
--* -
-+* Oct 1996 : Added options from PVMPOV [Deischi]
-+* Jun 2001 : Added conditional build for PVM Support [Agaran]
- *
- ******************************************************************************/
-
-@@ -1089,6 +1137,26 @@
- }
-
- Render_Info("\n");
-+#if USE_PVM
-+ if(PvmTasks) {
-+ int i;
-+ Render_Info("PVM Options\n");
-+ Render_Info(" Block Width....%8d", PvmChunkWidth);
-+ Render_Info(" Block Height...%8d\n", PvmChunkHeight);
-+ Render_Info(" PVM Tasks......%8d\n", PvmTasks);
-+ Render_Info(" PVM Nice.......%8d\n", PvmNice);
-+ Render_Info(" PVM Arch....... %s\n", PvmArch);
-+ Render_Info(" PVM Slave...... %s\n", PvmSlavename ? PvmSlavename : "");
-+ Render_Info(" PVM WorkingDir. %s\n", PvmWorkingDir);
-+ if(PvmHosts) {
-+ Render_Info(" Pvm Hosts......");
-+ for(i=0; i < PvmHostsN; i++) {
-+ Render_Info(" %s", PvmHosts[i]);
-+ }
-+ Render_Info("\n");
-+ }
-+ }
-+#endif
-
- /* Print redirecting options. */
-
-diff -Naur source.ori/optout.h source/optout.h
---- source.ori/optout.h Sat Jun 30 01:49:21 2001
-+++ source/optout.h Sat Jun 30 02:17:45 2001
-@@ -19,6 +19,10 @@
- * DKBTrace was originally written by David K. Buck.
- * DKBTrace Ver 2.0-2.12 were written by David K. Buck & Aaron A. Collins.
- *
-+* Oct 1996 : Added options for PVMPOV [Deischi]
-+* May 1999 : Changed code to work with POVRAY 3.1e [Flierl]
-+* Jun 2001 : conditional build for PVM [agaran]
-+*
- *****************************************************************************/
-
-
-@@ -36,12 +40,19 @@
- #define POV_RAY_VERSION "3.1g"
-
- #define DISTRIBUTION_MESSAGE_1 "This is an unofficial version compiled by:"
-+#ifdef USE_PVM
-+#define DISTRIBUTION_MESSAGE_2 "Jakob Flierl <flierl@luga.de> - PVMPOV Version 3.1e.2"
-+#else
- #define DISTRIBUTION_MESSAGE_2 "FILL IN NAME HERE........................."
-+#endif
- #define DISTRIBUTION_MESSAGE_3 "The POV-Ray Team(tm) is not responsible for supporting this version."
-
- /* Number of help pages (numbered 0 to MAX_HELP_PAGE). */
--
-+#ifdef USE_PVM
-+#define MAX_HELP_PAGE 8
-+#else
- #define MAX_HELP_PAGE 7
-+#endif
-
-
-
-diff -Naur source.ori/povray.c source/povray.c
---- source.ori/povray.c Sat Jun 30 01:49:21 2001
-+++ source/povray.c Sat Jun 30 09:55:32 2001
-@@ -20,6 +20,10 @@
- * DKBTrace was originally written by David K. Buck.
- * DKBTrace Ver 2.0-2.12 were written by David K. Buck & Aaron A. Collins.
- *
-+* Oct 1996 : Added options for PVMPOV [Deischi]
-+* May 1999 : Changed code to work with POVRAY 3.1e [Flierl]
-+* Jun 2001 : Added conditional build for PVM [Agaran]
-+*
- *****************************************************************************/
-
- #include <ctype.h>
-@@ -69,7 +73,9 @@
- #include "userio.h" /*Error,Warning,Init_Text_Streams*/
- #include "lbuffer.h"
- #include "vbuffer.h"
--
-+#ifdef USE_PVM
-+#include "pvm.h"
-+#endif
-
- /*****************************************************************************
- * Local preprocessor defines
-@@ -157,9 +163,15 @@
- static void fix_up_rendering_window (void);
- static void fix_up_animation_values (void);
- static void fix_up_scene_name (void);
-+#ifdef USE_PVM
-+void set_output_file_handle (void);
-+void setup_output_file_name (void);
-+void open_output_file (void);
-+#else
- static void set_output_file_handle (void);
- static void setup_output_file_name (void);
- static void open_output_file (void);
-+#endif
- static void FrameRender (void);
- static void init_statistics (COUNTER *);
- static void sum_statistics (COUNTER *, COUNTER *);
-@@ -192,7 +204,8 @@
- *
- * CHANGES
- *
--* -
-+* Oct 1996 : Added PVM Support [Deischi]
-+* Jun 2001 : Added conditional build for PVM Support [Agaran]
- *
- ******************************************************************************/
-
-@@ -262,17 +275,31 @@
- }
- #endif
-
-+#ifdef USE_PVM
-+ /* If slave, turn off certain optiongs */
-+ if ( PvmSlave)
-+ opts.Options &= ~(DISPLAY | VERBOSE);
-+#endif
-+
- /* Strip path and extension off input name to create scene name */
- fix_up_scene_name ();
-
- /* Redirect text streams [SCD 2/95] */
- Open_Text_Streams();
-
-+#ifdef USE_PVM
-+ if ( !PvmSlave) {
-+ /* Write .INI file [SCD 2/95] */
-+ Write_INI_File();
-+
-+ ALT_WRITE_INI_FILE
-+ }
-+#else
- /* Write .INI file [SCD 2/95] */
- Write_INI_File();
-
- ALT_WRITE_INI_FILE
--
-+#endif
- /* Make sure clock is okay, validate animation parameters */
- fix_up_animation_values();
-
-@@ -282,9 +309,18 @@
- /* Set output file handle for options screen. */
- set_output_file_handle();
-
-+#ifdef USE_PVM
-+ /* Initialize PVM master */
-+ if ( !PvmSlave && PvmTasks)
-+ Pvm_Master_Init(argc, argv);
-+
-+ /* Print options used. */
-+ if ( !PvmSlave)
-+ Print_Options();
-+#else
- /* Print options used. */
- Print_Options();
--
-+#endif
- /* BEGIN SECTION */
- /* VARIOUS INITIALIZATION THAT ONLY NEEDS TO BE DONE 1/EXECUTION */
-
-@@ -306,6 +342,32 @@
-
- /* END SECTION */
-
-+#ifdef USE_PVM
-+ /* PVM Slave */
-+ if (PvmSlave ) {
-+ if( Pvm_Slave_Init() < 0)
-+ return;
-+
-+ Pvm_Slave_Control(); /* get the first block to do */
-+ while(PvmNextFrame <= opts.FrameSeq.FinalFrame) {
-+ /* set frame number */
-+ opts.FrameSeq.FrameNumber = PvmNextFrame;
-+ /* calculate clock value */
-+ opts.FrameSeq.Clock_Value = opts.FrameSeq.InitialClock +
-+ ((DBL)(opts.FrameSeq.FrameNumber - opts.FrameSeq.InitialFrame)) *
-+ Clock_Delta;
-+
-+ FrameRender();
-+ }
-+
-+ Pvm_Slave_Exit();
-+
-+ Terminate_POV(0);
-+
-+ MAIN_RETURN_STATEMENT
-+ }
-+#endif
-+
- /* Execute the first shell-out command */
- Pre_Scene_Result=(POV_SHELLOUT_CAST)POV_SHELLOUT(PRE_SCENE_SHL);
-
-@@ -314,6 +376,26 @@
- if (Pre_Scene_Result != ALL_SKIP_RET)
- {
- if (Pre_Scene_Result != SKIP_ONCE_RET)
-+#ifdef USE_PVM
-+ if(!PvmSlave && PvmTasks) {
-+ START_TIME
-+ Pvm_Master_Control(); /* distribute work,
-+ and collect results,
-+ call shellout commands */
-+ STOP_TIME
-+ trender = TIME_ELAPSED
-+
-+ PRINT_STATS(totalstats);
-+ } else {
-+ for (opts.FrameSeq.FrameNumber = opts.FrameSeq.InitialFrame,
-+ opts.FrameSeq.Clock_Value = opts.FrameSeq.InitialClock;
-+
-+ opts.FrameSeq.FrameNumber <= opts.FrameSeq.FinalFrame;
-+
-+ opts.FrameSeq.FrameNumber++,
-+ opts.FrameSeq.Clock_Value += Clock_Delta)
-+ {
-+#else
- {
- for (opts.FrameSeq.FrameNumber = opts.FrameSeq.InitialFrame,
- opts.FrameSeq.Clock_Value = opts.FrameSeq.InitialClock;
-@@ -323,6 +405,7 @@
- opts.FrameSeq.FrameNumber++,
- opts.FrameSeq.Clock_Value += Clock_Delta)
- {
-+#endif
- setup_output_file_name();
-
- /* Execute a shell-out command before tracing */
-@@ -348,7 +431,6 @@
- }
- }
- }
--
- /* Print total stats ... */
-
- if(opts.FrameSeq.FrameType==FT_MULTIPLE_FRAME)
-@@ -399,6 +481,8 @@
- * CHANGES
- *
- * Feb 1996: Make sure we are displaying when doing a mosaic preview [AED]
-+* Oct 1996: Added PVM support [Deischi]
-+* Jun 2001: Added conditional build for PVM Support [agaran]
- *
- ******************************************************************************/
-
-@@ -483,6 +567,30 @@
- /* Save variable values. */
- variable_store(STORE);
-
-+#ifdef USE_PVM
-+ if( !PvmSlave) {
-+
-+ /* Open output file and if we are continuing an interrupted trace,
-+ * read in the previous file settings and any data there. This has to
-+ * be done before any image-size related allocations, since the settings
-+ * in a resumed file take precedence over that specified by the user. [AED]
-+ */
-+ open_output_file();
-+
-+ /* Start the display. */
-+ if (opts.Options & DISPLAY)
-+ {
-+ Status_Info ("\nDisplaying...");
-+
-+ POV_DISPLAY_INIT(Frame.Screen_Width, Frame.Screen_Height);
-+
-+ Display_Started = TRUE;
-+
-+ /* Display vista tree. */
-+ Draw_Vista_Buffer();
-+ }
-+ } /* !PvmTasks */
-+#else
- /* Open output file and if we are continuing an interrupted trace,
- * read in the previous file settings and any data there. This has to
- * be done before any image-size related allocations, since the settings
-@@ -502,15 +610,45 @@
- /* Display vista tree. */
- Draw_Vista_Buffer();
- }
--
-+#endif
- /* Get things ready for ray tracing (misc init, mem alloc) */
- Initialize_Renderer();
-+#ifdef USE_PVM
-+ /* If a PVM slave, re-assign Write_Line to PVM */
-+ if (PvmSlave) {
-+ Output_File_Handle->Write_Line_p = Pvm_Write_Line;
-+ }
-+#endif
-
- /* This had to be taken out of open_output_file() because we don't have
- * the final image size until the output file has been opened, so we can't
- * initialize the display until we know this, which in turn means we can't
- * read the rendered part before the display is initialized. [AED]
- */
-+#ifdef USE_PVM
-+ if (!PvmSlave) {
-+ if ((opts.Options & DISKWRITE) && (opts.Options & CONTINUE_TRACE))
-+ {
-+ Read_Rendered_Part(Actual_Output_Name);
-+
-+ if (opts.Last_Line > Frame.Screen_Height)
-+ opts.Last_Line = Frame.Screen_Height;
-+
-+ if (opts.Last_Column > Frame.Screen_Width)
-+ opts.Last_Column = Frame.Screen_Width;
-+ }
-+ } /* !PvmSlave */
-+ if(PvmSlave || !PvmTasks) {
-+ /* Get parsing time. */
-+ STOP_TIME
-+ tparse = TIME_ELAPSED
-+
-+ /* Get total parsing time. */
-+ tparse_total += tparse;
-+
-+ } /* PvmSlave || !PvmTasks */
-+
-+#else
- if ((opts.Options & DISKWRITE) && (opts.Options & CONTINUE_TRACE))
- {
- Read_Rendered_Part(Actual_Output_Name);
-@@ -529,7 +667,7 @@
-
- /* Get total parsing time. */
- tparse_total += tparse;
--
-+#endif
- /* Store start time for trace. */
- START_TIME
-
-@@ -547,7 +685,65 @@
- POV_PRE_RENDER
-
- Status_Info ("\nRendering...\r");
-+#ifdef USE_PVM
-+ do {
-
-+ /* Macro for setting up any special FP options */
-+ CONFIG_MATH
-+
-+ /* Ok, go for it - trace the picture. */
-+
-+ /* If radiosity preview has been done, we are continuing a trace, so it
-+ * is important NOT to do the preview, even if the user requests it, as it
-+ * will cause discontinuities in radiosity shading by (probably) calculating
-+ * a few more radiosity values.
-+ */
-+ if ( !opts.Radiosity_Preview_Done )
-+ {
-+ if ( opts.Options & RADIOSITY )
-+ {
-+ /* Note that radiosity REQUIRES a mosaic preview prior to main scan */
-+
-+ Start_Tracing_Mosaic_Smooth(opts.PreviewGridSize_Start, opts.PreviewGridSize_End);
-+ }
-+ else
-+ {
-+ if (opts.Options & PREVIEW && opts.Options & DISPLAY)
-+ {
-+ Start_Tracing_Mosaic_Preview(opts.PreviewGridSize_Start, opts.PreviewGridSize_End);
-+ }
-+ }
-+ }
-+
-+ switch (opts.Tracing_Method)
-+ {
-+ case 2 :
-+
-+ Start_Adaptive_Tracing();
-+
-+ break;
-+
-+ case 1 :
-+ default:
-+
-+ Start_Non_Adaptive_Tracing();
-+ }
-+ } while(PvmSlave ? Pvm_Slave_Control() : 0); /* ask for more work */
-+
-+ /* We're done. */
-+
-+ /* Record time so well spent before file close so it can be in comments */
-+ STOP_TIME
-+ trender = TIME_ELAPSED
-+
-+ if(!PvmSlave) {
-+ /* Close out our file */
-+ if (Output_File_Handle)
-+ {
-+ Close_File(Output_File_Handle);
-+ }
-+ }
-+#else
- /* Macro for setting up any special FP options */
- CONFIG_MATH
-
-@@ -600,7 +796,7 @@
- {
- Close_File(Output_File_Handle);
- }
--
-+#endif
- Stage = STAGE_SHUTDOWN;
-
- POV_PRE_SHUTDOWN
-@@ -626,6 +822,27 @@
- /* Get total render time. */
- trender_total += trender;
-
-+#ifdef USE_PVM
-+ if(!PvmSlave) {
-+ POV_DISPLAY_FINISHED
-+
-+ if ((opts.Options & DISPLAY) && Display_Started)
-+ {
-+ POV_DISPLAY_CLOSE
-+
-+ Display_Started = FALSE;
-+ }
-+
-+ if (opts.histogram_on)
-+ write_histogram (opts.Histogram_File_Name) ;
-+ }
-+ Status_Info("\nDone Tracing");
-+
-+ /* Print stats ... */
-+ if(!PvmSlave)
-+ PRINT_STATS(stats);
-+
-+#else
- POV_DISPLAY_FINISHED
-
- if ((opts.Options & DISPLAY) && Display_Started)
-@@ -642,7 +859,7 @@
-
- /* Print stats ... */
- PRINT_STATS(stats);
--
-+#endif
- if(opts.FrameSeq.FrameType==FT_MULTIPLE_FRAME)
- {
- /* Add them up */
-@@ -1030,8 +1247,11 @@
- * NULL function pointer.
- *
- ******************************************************************************/
--
-+#ifdef USE_PVM
-+void set_output_file_handle()
-+#else
- static void set_output_file_handle()
-+#endif
- {
- char *def_ext = NULL;
- char temp[FILE_NAME_LENGTH];
-@@ -1110,7 +1330,11 @@
- * function appends a path separator on output.
- *
- ******************************************************************************/
-+#ifdef USE_PVM
-+void setup_output_file_name()
-+#else
- static void setup_output_file_name()
-+#endif
- {
- char number_string[10];
- char separator_string[2] = {FILENAME_SEPARATOR, 0} ;
-@@ -1219,8 +1443,11 @@
- * -
- *
- ******************************************************************************/
--
-+#ifdef USE_PVM
-+void open_output_file()
-+#else
- static void open_output_file()
-+#endif
- {
- int Buffer_Size;
-
-@@ -1378,12 +1605,18 @@
- opts.Radiosity_Nearest_Count = 6;
- opts.Radiosity_Recursion_Limit = 1;
- opts.Radiosity_Quality = 6; /* Q-flag value for light gathering */
-+#ifdef USE_PVM
-+ opts.Radiosity_File_ReadOnContinue = PvmSlave ? 0 : 1;
-+ opts.Radiosity_File_SaveWhileRendering = PvmSlave ? 0 : 1; /* Don't save radiostiry cache with PVM */
-+ opts.Radiosity_File_AlwaysReadAtStart = 0;
-+ opts.Radiosity_File_KeepOnAbort = PvmSlave ? 0 : 1;
-+#else
- opts.Radiosity_File_ReadOnContinue = 1;
- opts.Radiosity_File_SaveWhileRendering = 1;
- opts.Radiosity_File_AlwaysReadAtStart = 0;
- opts.Radiosity_File_KeepOnAbort = 1;
-+#endif
- opts.Radiosity_File_KeepAlways = 0;
--
-
- init_statistics(stats);
- init_statistics(totalstats);
-diff -Naur source.ori/pvm/PVMPOV.Changelog source/pvm/PVMPOV.Changelog
---- source.ori/pvm/PVMPOV.Changelog Thu Jan 1 01:00:00 1970
-+++ source/pvm/PVMPOV.Changelog Sun Sep 12 00:25:35 1999
-@@ -0,0 +1,17 @@
-+ * 3.1e.2 [Jakob Flierl]
-+ - fixed problem with the statistics collection in line 1331 of "pvm.c"
-+ - minor changes in "sources/pvm/Makefile.aimk"
-+ - updated documentation
-+ - added "PVMPOV.Changelog" and "PVMPOV.benchmark"
-+ * 3.1e.1 [Jakob Flierl]
-+ - applied the patch to POV-Ray version 3.1e
-+ - fixed at least partially a memory bug in "render.c". Thanks to Michael
-+ Eilers for solving this problem at least partially.
-+ * 3.0x [Harald Deischinger]
-+ - applied the patch to POV-Ray 3.01 and 3.01
-+ - several command line enhancements.
-+ * 2.2 to 2.9 [Andreas Dilger]
-+ - changes in optin.h, optin.c, optout.h, optout.c,
-+ povray.c, render.h, render.c
-+ - added pvm/Makefile.aimk, pvm/pvm.h, pvm/pvm.c
-+ * Initial Version [Brad Kline, Cray Inc.]
-diff -Naur source.ori/pvm/PVMPOV.benchmark source/pvm/PVMPOV.benchmark
---- source.ori/pvm/PVMPOV.benchmark Thu Jan 1 01:00:00 1970
-+++ source/pvm/PVMPOV.benchmark Sun Sep 12 00:25:35 1999
-@@ -0,0 +1 @@
-+Surf to http://www.haveland.com/povbench/ to look at some render statistics.
-diff -Naur source.ori/pvm/PVMPOV.example source/pvm/PVMPOV.example
---- source.ori/pvm/PVMPOV.example Thu Jan 1 01:00:00 1970
-+++ source/pvm/PVMPOV.example Sun Sep 12 00:25:35 1999
-@@ -0,0 +1,283 @@
-+This file describes the command line options of PVMPOV, as well as the general
-+theory behind how it operates.
-+
-+Theory of Operation
-+-------------------
-+Using the PVM model, there is one master and many slave tasks. The master has
-+the responsibility of issuing the work sections to the slaves, and receiving
-+portions of the rendered sections back. The master does not render anything
-+by itself. The PVM component is only active if the user gives the "+N" option
-+to POV. Otherwise, PVMPOV behaves the same as regular POV-Ray and runs a
-+single task only on the local machine.
-+
-+Valid POV-Ray command-line options relating to PVM are:
-+
-+ pvm=on
-+ +N This is the default for starting PVMPOV. One slave will be
-+ started on each available host, regardless of architecture, and
-+ the blocks will be 32x32 pixels in size. The slaves will be
-+ started with a nice value of 5, which means they will run at a
-+ lower priority than other user jobs.
-+ pvm=off
-+ -N Turns of PVM support. PVMPOV now runs exactly as normal POV-Ray.
-+ You should do this when there are still errors in your pov-file.
-+ PVMPOV will not display error message otherwise.
-+
-+ pvm_tasks=xx
-+ +NTxx Start xx tasks on the available PVM hosts. This is usually only
-+ useful if debugging on a single machine, or for starting more
-+ than 1 task on multi-processor hosts. If, for example, you have
-+ 10 machines with 4 CPUs each, you could specify +nt40 to start 4
-+ processes on each host (and the OS will hopefully run 1 on each
-+ CPU).
-+
-+ Note that PVM is stupid in the way it starts tasks, so if,
-+ in the previous example, one of the hosts has only one CPU, it will
-+ still have 4 slaves started on it. You can use the "pvm_hosts"
-+ option (see below) to control on which machines the tasks are
-+ started.
-+
-+ Starting multiple tasks on a single processor will always be less
-+ efficient than a single task because of context switching and extra
-+ message passing.
-+
-+ pvm_arch=arch
-+ +NAarch Start the tasks only on the PVM architecture "arch". If +NT is not
-+ given, one task will be started on each of the hosts of the given
-+ architecture.
-+
-+ pvm_nice=xx
-+ +NNxx Run the slaves at a niceness factor of xx. The default niceness
-+ is 5. In general, changing the niceness value will not affect
-+ performance very much, but may get others upset with you. The
-+ nicest setting for pvmpov is 20, while the least nice setting is
-+ 0. Note that these values are always used even on systems that
-+ use nice values from 20-40. See the installation document and
-+ the man page for nice for more information.
-+
-+ pvm_width=xx
-+ +NWxx Change the width of the blocks to xx pixels. The default width
-+ is 32 pixels.
-+
-+ pvm_height=xx
-+ +NHxx Change the height of the blocks to xx pixels. The default height
-+ is 32 pixels.
-+
-+ It is important to note that by varying the size of the grid
-+ sections, you can affect the performance of the rendering. If you
-+ have particular renderings that are very complex in a small portion
-+ of the display, then a finer grain may help. In this way, more of
-+ the tasks are able to migrate towards the grid sections that are
-+ more complex. Conversely, if you have a shorter render or a
-+ slower network, it may be advantageous to have larger blocks to
-+ reduce network overhead, as well as ensure the slaves are not idle
-+ waiting for blocks to render.
-+
-+ You must also consider overhead if using anti-aliasing. Anti-
-+ aliasing requires the line segment above and below the grid section
-+ to be traced so that super-sampling may occur. If the height of the
-+ grid is reduced in size, and anti-aliasing is turned on, your
-+ percentage of overhead goes up. For example, setting a height of
-+ four (-NH4) using anti-aliasing would have more than 25% overhead.
-+ If the image size is not an integer multiple of the grid size, the
-+ edge blocks are smaller (ie extra pixels aren't rendered), so it
-+ is not necessary to evenly divide the image into blocks.
-+
-+ pvm_slave=slave
-+ +NSslave Uses slave as filename for the slave tasks. If you do not
-+ specify this option PVMPOV will use the current executable name
-+ also for the slaves.
-+
-+ Using this option you can for example run the X11 version
-+ (x-pvmpov) as master (to display the results) and a version
-+ without any display support (pvmpov) as slaves.
-+
-+ pvm_wd=dir
-+ +NDdir Set the working directory for the slaves. By default PVMPOV
-+ tries to run the slaves in the same directory, as the master.
-+ But sometimes 'getcwd' gives misleading output (when automounting
-+ is used), or you simply want to run the slaves in some other
-+ directory, then you can use this option.
-+
-+ pvm_hosts=name1,name2,...
-+ Set the names of the hosts to use for slaves. Note, that there are
-+ not spaces allowed between the names!
-+
-+ By default PVM distributes the processes in some order to the
-+ available machines. Sometimes the choice of PVM is not the best,
-+ so you can specify explicitly which machines to use.
-+
-+ You can use more tasks, then you specify here. You can use the
-+ options in this way: pvm_hosts=darkstar,darkstar,baby +nt6
-+ This will start 6 tasks (+nt6 must come after the pvm_hosts),
-+ 4 on darkstar and 2 on baby.
-+
-+
-+For example, if I wanted to distribute an 1024x768 rendering and use eight PVM
-+tasks to do the work, I would use the +NT8 option, and let the PVM master
-+define 768 32x32 sections. Eight slave tasks would be launched, and when ready,
-+they would request work to do from the master. The master then issues a column
-+and row range back to the requesting slave.
-+
-+% pvmpov +nt8 +w1024 +h768 +iskyvase.pov +oskyvase.tga
-+
-+As each quarter of a grid is completed, the slave sends it back to the
-+master, which buffers the incoming blocks until an entire line recieved, at
-+which time it writes the line to disk with the specified file format. If
-+all slaves did perfectly equal work in this example, they would be issued 96
-+sections of work, and would have returned 384 messages of 32x8 pixels each.
-+
-+Note that the work issues are done essentially one at a time. As each slave
-+starts up it requests a single block, and as it recieves a work request, it
-+requests the next block. In this way, effective load balancing can occur.
-+Tasks rendering the "easy" sections will eventually all migrate towards the
-+harder sections. Seriously imbalanced distributions will be seen by widely
-+varying percentages shown at the end of the rendering, assuming all of the
-+hosts are identical. Since each slave always has a block to be rendered, it
-+will be kept busy without waiting for the master to recieve its work request
-+and reply with a new block assignment.
-+
-+If for some reason any of the slaves are very slow, or they are interrupted
-+during their operation, their blocks are reassigned to other slaves after
-+all of the blocks have been assigned a first time. This means that the render
-+can be completed quickly even if some of the slaves have problems, or if some
-+blocks have been assigned to slower slaves while the faster slaves are idle.
-+This will show up as some percentage of late blocks for that machine in the
-+statistics at the end. Note that blocks will NOT be reassigned to slaves that
-+are significantly slower than average, in preference to reassigning it to a
-+faster slave when it becomes available.
-+
-+Since only complete lines are written out to disk, interrupted traces will
-+be restarted at the last complete line that was written to disk, regardless
-+of how many blocks were buffered by the master at the time. However, it is
-+possible to re-start an interrupted trace in the same method as POV-Ray.
-+
-+Known bugs (and other limitations)
-+-------------------------------------
-+All of the slaves must to share the same file system as the master process,
-+and the source file must be mounted in the same location on each one. This
-+may limit the number of hosts that can be used in some circumstances.
-+
-+The command line arguments for specifying hosts is not cumulative, so
-+
-+% pvmpov +naSUNMP +nt24 +n +iskyvase.pov +oskyvase.tga
-+
-+will not start 24 slaves on the multi-processor SUN system(s) (which may have
-+4 CPUs each), and then start 1 slave on each of the remaining systems.
-+
-+The statistics for the image being rendered may not be accurate if any of the
-+slaves is too slow, or stops for some reason. As well, since some sections
-+may be rendered twice if the block is reassigned, the statistics will not be
-+exactly the same as if it were rendered on a single host. The master only
-+waits a few seconds for statistics to arrive before printing them.
-+
-+The master does not parse the input file. Because of that it displays
-+no error messages concerning the input file. As long as your input file
-+still contains error you should disable PVM support (-N or pvm=off)
-+
-+Execution example (from version 2.9):
-+-------------------------------------
-+You first must have a PVM daemon launched on each machine that will be
-+participating in the rendering. Refer to the PVM 3.3 documentation. The
-+following is an example is from Jason Hough, and was generated on a group
-+of six Solaris based 4-processor SPARCstation 20s. His home directory is
-+auto-mounted to all of these hosts.
-+
-+He keeps the pvm daemon installed in a directory called "bin", given by
-+"dx=./bin/pvmd3" relative to his home directory, and pvmpov is in various
-+subdirectories under "bin" (ie bin/SUN4, bin/SUNMP, bin/LINUX, etc.), given
-+by the executable path "ex=./bin", so his pvm.hosts file looks like:
-+
-+% cat pvm.hosts
-+glee dx=./bin/pvmd3 ep=./bin
-+elation dx=./bin/pvmd3 ep=./bin
-+ecstasy dx=./bin/pvmd3 ep=./bin
-+bliss dx=./bin/pvmd3 ep=./bin
-+delight dx=./bin/pvmd3 ep=./bin
-+rapture dx=./bin/pvmd3 ep=./bin
-+
-+Note that, by default, PVM looks for executables in $HOME/pvm3/bin/$PVM_ARCH,
-+and pvmd should be in $PVM_ROOT/lib, so if this is the case on your systems,
-+you don't need to have anything in your pvm.hosts file except the hostnames,
-+one per line. An exception is RS6K, which needs the dx= no matter what. See
-+the PVM documentation and/or the pvmd3 man page for more information on what
-+all of this means if you don't understand it.
-+
-+The following command launches the PVM daemons.
-+
-+% pvm pvm.hosts
-+3.3.7
-+t40001
-+pvm> conf
-+6 hosts, 1 data format
-+ HOST DTID ARCH SPEED
-+ glee 40000 SUNMP 1000
-+ elation 80000 SUNMP 1000
-+ ecstasy c0000 SUNMP 1000
-+ bliss 100000 SUNMP 1000
-+ delight 140000 SUNMP 1000
-+ rapture 180000 SUNMP 1000
-+pvm> quit
-+
-+pvmd still running.
-+
-+Now that the PVM daemons are up and waiting for work to do, we can render.
-+Note that for these MP machines he forces pvmpov to start more tasks than
-+the default 1 per host, and uses a 64x64 block size:
-+
-+% pvmpov -Iskyvase.pov -Oskyvase.tga +nt24 +nw64 +nh64 +v
-+
-+POV-Ray Options in effect: +v1 +ft +mb25 +nt24 +nn5 +nw64 +nh64 +a0.300
-++j1.000 +b999 +r3 -q9 -w1024 -h768 -s1 -e768
-+-k0.000 -mv2.0 -iskyvase.pov -oskyvase.tga
-+ ...at least 13 tasks successfully spawned in time.
-+ ...Don't worry, more are on the way, I'm just not waiting
-+PVM Task Distribution: Tasks-24 Grid width-64 Grid height-64 Sections-192
-+
-+Waiting for slave stats.
-+
-+PVM Task Distribution Statistics:
-+ host name [ done ] [ late ] host name [ done ] [ late ]
-+ glee [ 4.17%] [ 0.00%] glee [ 4.17%] [ 0.00%]
-+ glee [ 4.17%] [ 0.00%] glee [ 4.17%] [ 0.00%]
-+ elation [ 4.69%] [ 0.00%] elation [ 4.17%] [ 0.00%]
-+ elation [ 4.17%] [ 0.00%] elation [ 4.17%] [ 0.00%]
-+ ecstasy [ 3.65%] [ 0.00%] ecstasy [ 4.69%] [ 0.00%]
-+ ecstasy [ 4.69%] [ 0.00%] ecstasy [ 4.17%] [ 0.00%]
-+ bliss [ 3.65%] [ 0.00%] bliss [ 4.17%] [ 0.00%]
-+ bliss [ 4.69%] [ 0.00%] bliss [ 3.65%] [ 0.00%]
-+ delight [ 3.65%] [ 0.00%] delight [ 4.17%] [ 0.00%]
-+ delight [ 4.17%] [ 0.00%] delight [ 4.17%] [ 0.00%]
-+ rapture [ 4.69%] [ 0.00%] rapture [ 4.17%] [ 0.00%]
-+ rapture [ 4.17%] [ 0.00%] rapture [ 3.65%] [ 0.00%]
-+
-+
-+skyvase.pov statistics
-+--------------------------------------
-+Resolution 1024 x 768
-+# Rays: 3773743 # Pixels: 798720 # Pixels supersampled: 17381
-+ Ray->Shape Intersection Tests:
-+ Type Tests Succeeded Percentage
-+ -----------------------------------------------------------
-+ Sphere 6304452 1170727 18.57
-+ Plane 63822062 35385552 55.44
-+ Quadric 6304452 2770858 43.95
-+ Cone 5918163 4839298 81.77
-+ Bounds 5918163 3152226 53.26
-+ Calls to Noise: 4327871
-+ Calls to DNoise: 5141872
-+ Shadow Ray Tests: 10498615 Blocking Objects Found: 254807
-+ Reflected Rays: 2818594
-+ Time For Trace: 0 hours 0 minutes 47.00 seconds
-+
-+------
-+NB: Note that for comparison purposes with other skyvase benchmarks that this
-+ is rendered at 1024x768 instead of the usual 640x480!
-+
-+Enjoy!
-+
-+Andreas Dilger
-+adilger@enel.ucalgary.ca
-+
-+Harald Deischinger
-+k3096e5@c210.edvz.uni-linz.ac.at
-diff -Naur source.ori/pvm/PVMPOV.general source/pvm/PVMPOV.general
---- source.ori/pvm/PVMPOV.general Thu Jan 1 01:00:00 1970
-+++ source/pvm/PVMPOV.general Sun Sep 12 00:25:35 1999
-@@ -0,0 +1,98 @@
-+
-+ - PVMPOV - written by Andreas Dilger, June 1 1995
-+ and Harald Deischinger, 1997
-+ modified by Jakob Flierl, 1999
-+
-+
-+***** NOTE - This is an UNOFFICIAL modification to POV-Ray 3.1e *****
-+
-+** DO NOT SEND PROBLEM REPORTS TO THE POV TEAM REGARDING THESE MODIFICATIONS. **
-+
-+The author disclaims all warranties with regard to this software, including
-+all implied warranties of merchant-ability and fitness. The code is simply
-+distributed as it is.
-+
-+
-+General information
-+-------------------
-+
-+"I only ask that credit (or blame) is attributed to me for the original work."
-+ - Brad Kline
-+
-+The original author of the PVM POV-Ray patch on which this is based is Brad
-+Kline, of Cray Research, Inc. Because of problems running the original code at
-+my site, and a desire to learn more about PVM for my Master's work, I have
-+changed large portions to not only be more user-friendly about reporting
-+errors, but also hopefully more robust and faster.
-+ - Andreas Dilger
-+
-+Because Andreas has other things to do, I have taken over the part of
-+PVMing POV-Ray 3.1. If you have problems with this program, don't be afraid
-+to ask me for help.
-+
-+Please send me a mail, if you're using PVMPOV Version 3.1e.2.
-+ - Jakob Flierl
-+Contact
-+-------
-+email : flierl@luga.de
-+
-+Important information/Problems
-+------------------------------
-+
-+* This version is not tested very vell, so it is very likely, that you
-+ find some errors - please tell me about them.
-+
-+ Especially the very time consuming new features (radiosity) are not
-+ really tested.
-+
-+* Shellout commands are always done by the master process.
-+
-+* Now PVMPOV also supports animations. PVMPOV computes multiply frames
-+ simultaniously, so it is not possible to do "recursive animations"
-+ (like the desk example in povscn/level3). You have to run PVMPOV extra
-+ for each frame.
-+
-+ All the pre-scene shellouts are done in the correct order, and the same
-+ for the post-scene shellouts. BUT for example the pre-scene shellout for
-+ frame 2, will be executed before the post-scene shellout for frame 1!
-+
-+ Field Rendering (+UF) is not working yet.
-+
-+* The X11 display now displays everything.
-+ There are no longer "forgotten blocks".
-+
-+* The master process of PVMPOV does not parse the input file. So you will
-+ NOT see errors in the .pov file - the slaves will simply not start.
-+ So you should turn off PVM support (pvm=off or -N) while developing your
-+ scene file.
-+
-+ You will also get no warning, if the slave can not find the input file.
-+ The slave will simply never ask for work. Check "/tmp/pvml.<uid>" for
-+ errors with the slaves.
-+
-+* You might get errors, that pvm can not find the executables for the slaves.
-+ You can solve this in lot's of ways.
-+ - Start pvmpov with an absolute filename,
-+ e.g. '/usr/bin/pvmpov ...'
-+ - Specify the absolute path for the slaves,
-+ e.g. 'pvmpov -NS/usr/bin/pvmpov ...'
-+ You can set this option in you '.povrayrc' file.
-+ - Move your executables into ~/pvm3/bin/ARCH
-+ - Use the 'ep=PATH' option in your hostfile
-+ Read the PVM documentation for more information.
-+
-+* When using automount you might have the problem, that the slaves can't
-+ change to the working directory. Use the +ND (pvm_wd) option.
-+ Calling pvmpov with "+ND$PWD" should solve the problem.
-+
-+* For more information see "PVMPOV.1st_scene"
-+
-+Changed files
-+-------------
-+ optin.c Accept new options for PVMPOV
-+ optin.h
-+ optout.c Print new options and help texts for PVMPOV
-+ optout.h
-+ povray.c Major changes
-+ render.c Minor changes
-+ render.h
-diff -Naur source.ori/pvm/PVMPOV.install source/pvm/PVMPOV.install
---- source.ori/pvm/PVMPOV.install Thu Jan 1 01:00:00 1970
-+++ source/pvm/PVMPOV.install Sun Sep 12 00:25:35 1999
-@@ -0,0 +1,39 @@
-+How to compile and install PVMPOV.
-+
-+COMPILE
-+-------
-+Before compiling PVMPOV you must me sure to have PVM installed correctly.
-+PVM is not included with this package. You have to download and install it
-+manually: http://www.epm.ornl.gov/pvm/pvm_home.html
-+
-+After that you can compile and install PVMPOV:
-+
-+ tar xvfz pvmpov-3.1e.?.tgz <- unpack the PVMPOV distfiles
-+ cd pvmpov3_1e_?
-+ tar xvfz ~/povuni_s.tgz <- unpack the POV source from ftp://ftp.povray.org/
-+[POV-Ray versions 3.1e - 3.1g are reported to work fine with PVMPOV 3.e1.2.]
-+
-+ ./inst-pvm <- apply the PVMPOV patch
-+
-+[This script applies the patch and searches for any rejected files.
-+If there are any .rej-files the changes are not done correctly -
-+you can try to do the changes by hand.]
-+
-+ cd pvmpov3_1e_?/povray31/source/pvm
-+
-+[You can choose:]
-+ aimk newunix <- to create the UNIX text only binaries
-+ aimk newsvga <- to create binaries for svgalib (Linux only)
-+ aimk newxwin <- to create binaries using X11 to display
-+
-+This should create the executables 'pvmpov', 's-pvmpov' or 'x-pvmpov'.
-+
-+INSTALL
-+------
-+If your are running PVMPOV on a homogenous cluster, you can copy the
-+executables to "/usr/bin" and "/usr/X11R6/bin".
-+
-+Read "PVMPOV.example" to get started.
-+
-+Jakob Flierl, flierl@luga.de
-+May 1999
-diff -Naur source.ori/pvm/PVMPOV.radiosity source/pvm/PVMPOV.radiosity
---- source.ori/pvm/PVMPOV.radiosity Thu Jan 1 01:00:00 1970
-+++ source/pvm/PVMPOV.radiosity Sun Sep 12 00:25:35 1999
-@@ -0,0 +1,39 @@
-+[...] PVMPOV and radiosity:
-+
-+Radiosity is currently not working with PVMPOV; the resulting images look like
-+mosaics. There's a currently only a workaround suggested by Andreas Dilger:
-+
-+You must create a .rca file for the whole image [when rendering with the
-+radiosity option turned on], which I did manually by running
-+"pvmpov -n +qr +d +i <scene>.pov" and stopping the rendering when the mosaic
-+preview is complete, to give me <scene>.rca. Then I started a new
-+"pvmpov +c +qr +d +i <scene>.pov +nt2" on my 2 CPU system, and it rendered
-+the same image as letting "pvmpov -n +qr +d +i <scene>.pov" finish on 1 CPU.
-+The <scene>.rca file was readable by both slave systems because they were local,
-+but it would also be possible to use NFS for this, like normal PVMPOV.
-+This is some work to do manually, but it will ensure that the radiosity
-+will work properly with PVMPOV.
-+
-+[for programmers only:]
-+What needs to be done now is to have the PVMPOV master run the mosaic
-+preview for radiosity before the slave tasks start. It looks like this
-+could be done in pvm.c:PvmStartFrame(), but the current design of the
-+master doesn't allow it to do any rendering because it does not parse
-+the scene, so it would need to be reworked to do this.
-+
-+In the old PVMPOV 2.2 design, the master did the parsing of the scene
-+file to ensure that the syntax was correct. I think this is the better
-+design. If radiosity is used, the master will render the preview before
-+the rendering is started on the slaves, so the .rca file is available.
-+If the master does the parsing, then it can also send the data to the
-+slaves via the POB binary file format through PVM (no NFS needed) so we
-+don't waste the time spent parsing the scene at the master.
-+
-+I think what needs to be done is modify povray.c so it doesn't call
-+Pvm_Master_Control() instead of FrameRender() in povray.c:398. Then
-+FrameRender() should be modified to work with PVMPOV code, replacing
-+PvmStartFrame() entirely. This will mean that PVMPOV will render one
-+frame at a time, which is OK I think, because it means that some of
-+the problems with PVMPOV 3.x will be fixed, like post-scene shellouts.
-+I think it will also make PVMPOV less complex also, because it only
-+has to work on 1 frame at a time.
-diff -Naur source.ori/pvm.c source/pvm.c
---- source.ori/pvm.c Thu Jan 1 01:00:00 1970
-+++ source/pvm.c Sun Sep 12 00:25:35 1999
-@@ -0,0 +1,1556 @@
-+/****************************************************************************
-+* pvm.c
-+*
-+* This module implements the PVM control routines for PVM'd POVRAY.
-+*
-+* This file was written by Brad Kline. April 1994.
-+* modified by Andreas Dilger Jan - May 1995
-+* modified by Harald Deischinger, 1996 - 1997
-+*
-+* NOTE - PVM is not supplied here.
-+*
-+* You need the PVM 3.x libraries, include files, and PVMD daemons.
-+*
-+* PVM is available from the University of Tennessee, Knoxville, TN.
-+*
-+* The author disclaims all warranties with regard to this software,
-+* including all implied warranties of merchant-ability and fitness.
-+* The code is simply distributed as it is.
-+*
-+* 970610 - New option PVM_WD. To specify a working directory for
-+* the slaves. [Deischi]
-+* New option PVM_Hosts. To give names for hosts to use
-+* as slaves. [Deischi]
-+*
-+* 9704.. - changed to to animations, lots of changes
-+* simplifications to the whole thing [Deischi]
-+*
-+* 96.... - Changed code to work with POVRAY 3.0 [Deischi]
-+*
-+* 950508 - Changed code that allocates blocks to be more robust.
-+* Changed the write_line routines to hook into the existing routines.
-+* Changed the slave startup processes to be more informative.
-+*
-+* 940511 - Remove code that tried to fit grid sections into whole parts. The
-+* code now supports odd sized images.
-+*
-+*****************************************************************************/
-+#include <sys/time.h>
-+#include <sys/resource.h>
-+#include "frame.h"
-+#include "vector.h"
-+#include "povproto.h"
-+#include "frame.h"
-+#include "povray.h"
-+#include "render.h"
-+#include "optout.h"
-+#include "pvm3.h"
-+#include "pvm.h"
-+
-+
-+/* This distribution scheme breaks down the image into to two dimensional
-+ * areas. Each area has a designated grid control point. The grid area
-+ * is up to PvmChunkWidth (-NWxx) pixels wide by PvmChunkHeight (-NHxx)
-+ * high. If one uses the default, then a grid section would be 32x32, or
-+ * 1024 pixels. In a 640x480 image, this would create 300 grid control
-+ * points, and therefore 300 different sections to do work on (not lines.).
-+ */
-+
-+/*
-+ * clock value in shellout command is not working correctly
-+ * timings are not displayed (and done) correctly
-+ * statistics can be wrong
-+ * continue trace might produce wrong results -- needs testing
-+ */
-+
-+/*
-+ * Global variables
-+ */
-+char PvmArch[20] = { 0 };
-+int PvmChunkHeight = PVM_DEFAULT_GRID_HEIGHT; /* height of a block */
-+int PvmChunkWidth = PVM_DEFAULT_GRID_WIDTH; /* widht of a block */
-+int PvmRowsToSend = 1;
-+int PvmSlave = 0;
-+int PvmTasks = 9999;
-+int PvmNice = PVM_DEFAULT_NICE;
-+int PvmMTid;
-+int PvmBlockNum;
-+char * PvmSlavename = NULL;
-+int PvmNextFrame = 0;
-+char PvmWorkingDir[PATH_MAX+1] = ""; /* PVM Working Directory */
-+char ** PvmHosts = NULL;
-+int PvmHostsN = 0;
-+
-+/*
-+ * local functions
-+ */
-+static void PvmSpawnError PARAMS((int));
-+static void PvmSpawnTidError PARAMS((int));
-+static void PvmSpawn PARAMS((void));
-+static void PvmCheckFirst PARAMS((void));
-+static void PvmInitSlaveStat PARAMS((void));
-+static void PvmInitFrameStat PARAMS((void));
-+
-+static int PvmMasterReceive PARAMS((void));
-+static void PvmIdentifySlave PARAMS((void));
-+static void PvmSendWork PARAMS((int block));
-+static void PvmReassignWork PARAMS((int block));
-+static void PvmAssignWork PARAMS((void));
-+static void PvmMasterEnd PARAMS((void));
-+static int PvmStartFrame PARAMS((void));
-+static void PvmFinishFrame PARAMS((void));
-+static void PvmReceiveData PARAMS((void));
-+static void PvmWrite PARAMS((void));
-+
-+static void PvmUnpackStats PARAMS((void));
-+
-+
-+static int grid_points; /* number of grid blocks for one frame */
-+static int grid_ppline; /* Number of grid blocks in a row */
-+static int frames; /* num. of frames to do */
-+static int frame = -1; /* the current frame, start with 0 to count */
-+static int next_frame_finish;
-+static int frame_display; /* the frame that is displayed */
-+
-+static int grid_lines_done = 0; /* num. of PvmCthunkWidth lines done (only statistics) */
-+
-+static int npixels_done = 0; /* Number of pixels done, by all processors */
-+
-+static int row_start; /* First row in the block */
-+static int row_end; /* Last row in the block */
-+static int col_start; /* First column in the block */
-+static int col_end; /* Last column in the block */
-+static int msgtag;
-+
-+static struct timeval wait_time; /* Time to wait for slave stats */
-+static struct pvmhostinfo *hostinfo; /* Info on each PVM host */
-+static int minions; /* Number of slave tasks */
-+static int nhost; /* Number of available pvm hosts */
-+static pvm_slave_stat *slave_stat; /* Info on the slaves */
-+static pvm_frame_stat *frame_stat;
-+static int rtid; /* tid of the message sender */
-+static int *tids; /* tids of all the slaves */
-+static int slave_num; /* Relative host number of sender */
-+static char *slave_name; /* Hostname of sending slave */
-+static int nstat = 0; /* Number of slaves returning stats */
-+
-+static int bitmask; /* Start tasks on a specific arch */
-+static int bufid; /* pvm recieve buffer id */
-+static int bytesin; /* Size of message */
-+static char **sargs; /* argv for the slaves */
-+static char slave_option[PATH_MAX+4]; /* the directory argument */
-+
-+
-+/* in povray.c */
-+extern char Actual_Output_Name[FILE_NAME_LENGTH];
-+void setup_output_file_name PARAMS((void));
-+void open_output_file PARAMS((void));
-+void set_output_file_handle();
-+
-+
-+
-+/********************************************************************************
-+ * Initialize Master Process
-+ *******************************************************************************/
-+
-+
-+/*
-+ * Spawn the slaves, and check for errors
-+ */
-+
-+/* handle an error from pvm_spawn */
-+static void PvmSpawnError(m)
-+ int m;
-+{
-+ /* Only quit if we can't start many tasks, or an error condition. */
-+ Error_Line( "...error spawning tasks because \n");
-+ switch (m) {
-+ case PvmBadParam:
-+ Error_Line("of bad parameter.\n");
-+ break;
-+ case PvmNoHost:
-+ Error_Line("host not in PVM.\n");
-+ break;
-+ case PvmNoFile:
-+ Error_Line("executable not found.\n");
-+ break;
-+ case PvmNoMem:
-+ Error_Line("no memory on host.\n");
-+ break;
-+ case PvmSysErr:
-+ Error_Line("pvmd not responding.\n");
-+ break;
-+ case PvmOutOfRes:
-+ Error_Line("lack of resources.\n");
-+ break;
-+ default:
-+ Error_Line("of unknown error.\n");
-+ }
-+ pvm_perror("");
-+ pvm_exit();
-+ close_all();
-+ exit(1);
-+}
-+
-+static void PvmSpawnTidError(tid)
-+ int tid;
-+{
-+
-+ Warning(0.0, "...spawn failure because ");
-+ switch (tid) {
-+ case PvmBadParam:
-+ Warning(0.0, "of bad parameter.\n");
-+ break;
-+ case PvmNoHost:
-+ Warning(0.0, "host not in PVM.\n");
-+ break;
-+ case PvmNoFile:
-+ Warning(0.0, "executable not found.\n");
-+ break;
-+ case PvmNoMem:
-+ Warning(0.0, "no memory on host.\n");
-+ break;
-+ case PvmSysErr:
-+ Warning(0.0, "pvmd not responding.\n");
-+ break;
-+ case PvmOutOfRes:
-+ Warning(0.0, "lack of resources.\n");
-+ break;
-+ default:
-+ Warning(0.0, "of unknown error.\n");
-+ }
-+}
-+
-+static void PvmSpawn() {
-+ int i;
-+
-+ /* Start up the slave processes */
-+ if (PvmArch[0] != '\0') {
-+ Status_Info(" Spawning %s with %d PVM tasks on arch %s...\n",
-+ PvmSlavename, PvmTasks,PvmArch);
-+ } else {
-+ Status_Info(" Spawning %s with %d PVM tasks on %d hosts...\n",
-+ PvmSlavename, PvmTasks,nhost);
-+ }
-+
-+ if(PvmHosts) { /* start at specified hosts */
-+ int m;
-+ minions = 0;
-+ for(i=0; i < PvmTasks; i++) { /* start one by one */
-+ m = pvm_spawn(PvmSlavename, sargs, PvmTaskHost, PvmHosts[i % PvmHostsN],
-+ 1, tids+minions);
-+ if( m < 0) { /* spawn failed */
-+ PvmSpawnError(m);
-+ } else if (m==0) { /* failed a little bit */
-+ PvmSpawnTidError(tids[minions]);
-+ }
-+ minions += m;
-+ }
-+
-+ } else { /* start all at once somwhere */
-+ minions = pvm_spawn(PvmSlavename, sargs, bitmask, PvmArch, PvmTasks, tids);
-+
-+ if(minions < 0) /* check for total failure */
-+ PvmSpawnError(minions);
-+ for (i = minions; i < PvmTasks; i++) /* errors/process */
-+ PvmSpawnTidError(tids[i]);
-+ }
-+
-+ /* Check if "few" tasks could be started */
-+ if (minions < (PvmTasks + 1) / 2) {
-+ if(minions==0) {
-+ Error_Line("...No tasks");
-+ } else {
-+ Error_Line("...only %d of %d tasks", minions, PvmTasks);
-+ }
-+ Error_Line(" spawned! Quitting.\n");
-+ pvm_exit();
-+ close_all();
-+ exit(1);
-+ } else {
-+ Status_Info(" ...%d PVM tasks successfully spawned.\n", minions);
-+ }
-+
-+ PvmTasks = minions;
-+}
-+
-+
-+/*
-+ * Wait up to 120 seconds for the first to check in
-+ */
-+static void PvmCheckFirst() {
-+ wait_time.tv_sec = 120;
-+ wait_time.tv_usec = 0;
-+
-+ Status_Info(" Waiting up to %lds for first slave to start...\n",
-+ wait_time.tv_sec);
-+ minions = 0;
-+
-+ if( pvm_trecv(-1, PVM_INIT_SLAVE, &wait_time) <= 0 ) {
-+ /* No slave checked in. Something is wrong */
-+ Error_Line("First slave did not start in time! Quitting.\n");
-+ Error_Line("See /tmp/pvml.<your uid> on the master PVM host for\n");
-+ Error_Line("more info on why the slave didn't start correctly.\n");
-+ pvm_exit();
-+ close_all();
-+ exit(1);
-+ } else {
-+ minions++;
-+ }
-+
-+ if (opts.Options & VERBOSE) {
-+ Status_Info(" Slave 0 successfully started.\n");
-+ }
-+}
-+
-+
-+/*
-+ * Get a status struct for each slave
-+ */
-+static void PvmInitSlaveStat() {
-+
-+ slave_stat = (pvm_slave_stat *)POV_CALLOC(PvmTasks, sizeof(pvm_slave_stat), "slave_stat");
-+
-+ /* Set up pointers to all the host names and the slave status */
-+ for (slave_num = 0; slave_num < PvmTasks; slave_num++) {
-+ int j;
-+ int dtid;
-+
-+ dtid = pvm_tidtohost(tids[slave_num]);
-+ slave_stat[slave_num].name = "unknown";
-+
-+ for (j = 0; j < nhost; j++) {
-+ if (dtid == hostinfo[j].hi_tid) {
-+ slave_stat[slave_num].name = (char*)POV_CALLOC(strlen(hostinfo[j].hi_name)+1,
-+ sizeof(char), "hostnames");
-+ strcpy(slave_stat[slave_num].name,hostinfo[j].hi_name);
-+ break;
-+ }
-+ }
-+ slave_stat[slave_num].frame_assigned = PVM_SLAVE_FREE;
-+ slave_stat[slave_num].block_reassigned = PVM_SLAVE_FREE;
-+ }
-+}
-+
-+/*
-+ * Get a status struct for each frame
-+ */
-+static void PvmInitFrameStat() {
-+ int i,j;
-+
-+ frames = (opts.FrameSeq.FrameType == FT_MULTIPLE_FRAME) ?
-+ opts.FrameSeq.FinalFrame - opts.FrameSeq.InitialFrame + 1 :
-+ 1;
-+ frame_stat = (pvm_frame_stat *)POV_CALLOC(frames, sizeof(pvm_frame_stat), "frame_stat");
-+ frame_display = -1;
-+
-+ for(i=0; i < frames; i++) {
-+ frame_stat[i].block_to_assign = 0;
-+ frame_stat[i].block_to_reassign = 0;
-+
-+ frame_stat[i].block_to_write = 0;
-+
-+ frame_stat[i].row_to_write = opts.First_Line;
-+ frame_stat[i].row_to_malloc = opts.First_Line;
-+
-+ frame_stat[i].block_stat =
-+ (pvm_block_stat *)POV_CALLOC(grid_points, sizeof(pvm_block_stat), "block_stat");
-+
-+ for(j=0; j < MaxStat; j++)
-+ Init_Counter(frame_stat[i].stats[j]);
-+ }
-+}
-+
-+/*
-+ * Initialize PVM Master
-+ */
-+void
-+Pvm_Master_Init(argc, argv)
-+ int argc;
-+ char **argv;
-+{
-+ int i;
-+
-+ Status_Info("Initializing PVMPOV\n");
-+
-+ /* Get a table for the TIDs */
-+ tids = (int *)POV_CALLOC(PvmTasks, sizeof(int), "tids");
-+
-+ /* Build a new arg list for the sub-tasks - add -ni in front */
-+ sargs = (char **)POV_CALLOC(argc + 1, sizeof(char *), "sargs");
-+
-+ /* Move argument pointers to new list array, keep position 0 free for -ni option */
-+ for (i = 1; i < argc; i++) {
-+ sargs[i] = argv[i];
-+ }
-+
-+ /* Get current directory for the slave tasks */
-+ if(PvmWorkingDir[0] == '\0')
-+ if ( GETCWD(PvmWorkingDir) == NULL) {
-+ Error("PVM Master cannot get current directory.\n");
-+ return;
-+ }
-+
-+ /* Add slave flag */
-+ sprintf(slave_option, "-nI%s", PvmWorkingDir);
-+ sargs[0] = slave_option;
-+
-+ /* Enroll in PVM */
-+ if (pvm_mytid() < 0) {
-+ Error("Error starting master task.\n");
-+ }
-+
-+ if (pvm_config(&nhost, (int *)NULL, &hostinfo) < 0) {
-+ pvm_exit();
-+ Error("Error getting PVM machine status.\n");
-+ }
-+
-+ bitmask = PvmTaskDefault;
-+
-+ /* If PvmArch is specified, use that architecture */
-+ if (PvmArch[0] != '\0') {
-+ bitmask = PvmTaskArch;
-+
-+ /* If arch is psecified, but not the number of tasks, go and
-+ * count how many hosts of that type there are.
-+ */
-+ if (PvmTasks >= 9999) {
-+ PvmTasks = 0;
-+
-+ for (i = 0; i < nhost; i++) {
-+ if (strcmp(PvmArch,hostinfo[i].hi_arch) == 0)
-+ PvmTasks++;
-+ }
-+ }
-+ }
-+
-+ /* If PvmTasks is specified, use that many tasks, otherwise use
-+ * as many hosts as possible.
-+ */
-+ if (PvmTasks >= 9999) {
-+ PvmTasks = nhost;
-+ }
-+
-+ /* if no slavename was given, use name of current executable */
-+ if(PvmSlavename == NULL)
-+ PvmSlavename = argv[0];
-+
-+ PvmSpawn(); /* spawn the slaves */
-+ PvmCheckFirst(); /* wait for first slave */
-+
-+ pvm_setopt(PvmRoute, PvmRouteDirect);
-+
-+ /* Max # of pixels in a grid row */
-+ PvmChunkWidth = min(PvmChunkWidth, opts.Last_Column - opts.First_Column);
-+
-+ /* Grid points per line - rounded up */
-+ grid_ppline = (opts.Last_Column - opts.First_Column + PvmChunkWidth - 1) / PvmChunkWidth;
-+
-+ /* Establish grid section height */
-+ PvmChunkHeight = min(PvmChunkHeight, opts.Last_Line - opts.First_Line);
-+
-+ /* Total grid points in the image - round up PvmChunkHeight */
-+ grid_points = ((opts.Last_Line - opts.First_Line + PvmChunkHeight - 1) / PvmChunkHeight) *
-+ grid_ppline;
-+
-+ PvmInitSlaveStat();
-+ PvmInitFrameStat();
-+
-+ /* initialize total stats */
-+ for(i=0; i < MaxStat; i++) {
-+ Init_Counter(totalstats[i]);
-+ }
-+}
-+
-+
-+
-+
-+
-+/********************************************************************************
-+ * Master Control
-+ ********************************************************************************/
-+
-+/*
-+ * Receive a message
-+ */
-+static int PvmMasterReceive() {
-+
-+ /* wait for a message from the slaves */
-+ if ((bufid = pvm_trecv(-1, -1, &wait_time)) < 0) {
-+ Error_Line( "PVM Master cannot receive.\n");
-+ pvm_perror("");
-+ pvm_exit();
-+ exit(1);
-+ }
-+
-+ /* We timed out waiting for any messages */
-+ if (bufid == 0) {
-+ Status_Info(".");
-+ fflush(stderr);
-+
-+ return 1;
-+ }
-+
-+ return 0;
-+}
-+
-+/*
-+ * Find name and number of slave, of current message
-+ */
-+static void PvmIdentifySlave() {
-+
-+ /* get info about this msg. */
-+ if (pvm_bufinfo(bufid, &bytesin, &msgtag, &rtid) < 0) {
-+ Error_Line( "PVM Master cannot bufinfo.\n");
-+ pvm_perror("");
-+ pvm_exit();
-+ return;
-+ }
-+
-+ /* find the name of the slave, sending the msg. */
-+ slave_name = "unknown";
-+ for (slave_num = 0; slave_num < PvmTasks; slave_num++) {
-+ if (tids[slave_num] == rtid) {
-+ slave_name = slave_stat[slave_num].name;
-+ break;
-+ }
-+ }
-+}
-+
-+/*
-+ * Send a PVM_WORK message
-+ * Set block to PVM_GRID_POINT_ASSIGNED
-+ */
-+static void PvmSendWork(block)
-+ int block;
-+{
-+ int row_start, row_end, col_start, col_end;
-+#ifdef DEBUG
-+ Status_Info("Assigning block: %d, frame: %d of %d to %s.\n", block, frame, frames, slave_name);
-+#endif /* DEBUG */
-+
-+ frame_stat[frame].block_stat[block].status = PVM_GRID_POINT_ASSIGNED;
-+ frame_stat[frame].block_stat[block].assigned_tid = rtid;
-+
-+ row_start = (block/grid_ppline) * PvmChunkHeight + opts.First_Line;
-+ row_end = (row_start + PvmChunkHeight) - 1;
-+
-+ if (row_end >= opts.Last_Line)
-+ row_end = opts.Last_Line - 1;
-+
-+ col_start = (block%grid_ppline) * PvmChunkWidth + opts.First_Column;
-+ col_end = (col_start + PvmChunkWidth) - 1;
-+
-+ if (col_end >= opts.Last_Column)
-+ col_end = opts.Last_Column - 1;
-+
-+ pvm_initsend(PvmDataDefault);
-+ pvm_pkint(&frame,1,1);
-+ pvm_pkint(&block,1,1);
-+ pvm_pkint(&row_start,1,1);
-+ pvm_pkint(&row_end,1,1);
-+ pvm_pkint(&col_start,1,1);
-+ pvm_pkint(&col_end,1,1);
-+ if (pvm_send(rtid, PVM_WORK) < 0) {
-+ Error_Line( "PVM Master can't send to slave on %s.\n",slave_name);
-+ pvm_perror("");
-+ pvm_exit();
-+ exit(1);
-+ }
-+
-+ frame_stat[frame].block_to_assign ++;
-+}
-+
-+/*
-+ * Send a PVM_WORK message
-+ * Set block to PVM_GRID_POINT_REASSIGNED
-+ */
-+static void PvmReassignWork(block)
-+ int block;
-+{
-+#ifdef DEBUG
-+ Status_Info("Reassigning %d to %s.\n", block,
-+ slave_name);
-+#endif /* DEBUG */
-+
-+ frame_stat[frame].block_stat[block].status=PVM_GRID_POINT_REASSIGNED;
-+ frame_stat[frame].block_stat[block].reassigned_tid = rtid;
-+ slave_stat[slave_num].block_reassigned = block;
-+
-+ if (frame_stat[frame].block_stat[block].wr_line == 0) {
-+ row_start = (block / grid_ppline)*PvmChunkHeight + opts.First_Line;
-+ } else {
-+ row_start = frame_stat[frame].block_stat[block].wr_line;
-+ }
-+ row_end = (block/grid_ppline + 1) * PvmChunkHeight - 1;
-+
-+ if (row_end >= opts.Last_Line)
-+ row_end = opts.Last_Line - 1;
-+
-+ col_start = (block % grid_ppline) * PvmChunkWidth +
-+ opts.First_Column;
-+ col_end = (col_start + PvmChunkWidth) - 1;
-+
-+ if (col_end >= opts.Last_Column)
-+ col_end = opts.Last_Column - 1;
-+
-+ pvm_initsend(PvmDataDefault);
-+ pvm_pkint(&frame,1,1);
-+ pvm_pkint(&block,1,1);
-+ pvm_pkint(&row_start,1,1);
-+ pvm_pkint(&row_end,1,1);
-+ pvm_pkint(&col_start,1,1);
-+ pvm_pkint(&col_end,1,1);
-+ if (pvm_send(rtid, PVM_WORK) < 0) {
-+ Error_Line( "PVM Master can't send to slave on %s.\n",slave_name);
-+ pvm_perror("");
-+ pvm_exit();
-+ exit(1);
-+ }
-+
-+ frame_stat[frame].block_to_reassign++;
-+}
-+
-+
-+/*
-+ * Do all the stuff, that is necessary for a new frame
-+ * This is called before the PVM_WORK is sent
-+ *
-+ * A lot of this is taken from 'FrameRender'
-+ *
-+ * ret: 0 .. OK send the PVMWOR
-+ * 1 .. Shellout gave SKIP_ONCE_RET -> this frame is done
-+ */
-+static int PvmStartFrame() {
-+ int Frame_Result;
-+
-+ if(frame_stat[frame].status != PVM_FRAME_FREE) {
-+ Warning(0.0, "Frame %d already started.\n", frame);
-+ return 1;
-+ }
-+
-+ if(opts.Options & VERBOSE)
-+ Status_Info("\nStarting frame %d...", opts.FrameSeq.InitialFrame + frame);
-+
-+ frame_stat[frame].status = PVM_FRAME_WORKING;
-+
-+ /* allocate row pointers */
-+ frame_stat[frame].row_ptr = (COLOUR **)POV_CALLOC(opts.Last_Line, sizeof(COLOUR *), "row_ptr");
-+
-+ opts.FrameSeq.FrameNumber = opts.FrameSeq.InitialFrame + frame;
-+ setup_output_file_name();
-+
-+ /* Execute a shell-out command before tracing */
-+ Frame_Result = POV_SHELLOUT(PRE_FRAME_SHL);
-+
-+ if (Frame_Result == ALL_SKIP_RET) {
-+ /* stop completely */
-+ int i;
-+ for(i=frame; i < frames; i++) {
-+ frame_stat[i].block_to_assign = grid_points;
-+ frame_stat[i].block_to_reassign = grid_points;
-+ frame_stat[i].status = PVM_FRAME_DONE_SHELLOUT;
-+ }
-+ /* continue searching, frames before this one, should be finished */
-+ return 1;
-+ }
-+
-+ if (Frame_Result == SKIP_ONCE_RET) {
-+ /* mark frame as done */
-+ frame_stat[frame].block_to_assign = grid_points;
-+ frame_stat[frame].block_to_reassign = grid_points;
-+ frame_stat[frame].status = PVM_FRAME_DONE_SHELLOUT;
-+
-+ /* continue searching */
-+ return 1;
-+ }
-+
-+ /*
-+ * open output file
-+ */
-+ set_output_file_handle();
-+ open_output_file();
-+
-+ Initialize_Renderer();
-+
-+ /*
-+ * Start displaying
-+ */
-+ if( (opts.Options & DISPLAY) && !Display_Started) {
-+ Status_Info("\nDisplaying frame %d...", opts.FrameSeq.InitialFrame + frame);
-+ POV_DISPLAY_INIT(Frame.Screen_Width, Frame.Screen_Height);
-+ Display_Started = TRUE;
-+ frame_display = frame;
-+ Status_Info("\n");
-+ }
-+
-+
-+ /*
-+ * read already rendered parts
-+ */
-+ if ((opts.Options & DISKWRITE) && (opts.Options & CONTINUE_TRACE)) {
-+ int i;
-+ int fl = opts.First_Line; /* remember start of image */
-+
-+ Read_Rendered_Part(Actual_Output_Name); /* read -> changes opts.First_line */
-+
-+ frame_stat[frame].row_to_write =
-+ frame_stat[frame].row_to_malloc = opts.First_Line;
-+
-+ frame_stat[frame].block_to_write =
-+ frame_stat[frame].block_to_assign = (opts.First_Line/PvmChunkHeight)*grid_ppline;
-+ /* blocks above the new start are already finished */
-+ for(i=0; i < frame_stat[frame].block_to_assign; i++) {
-+ frame_stat[frame].block_stat[i].status = PVM_GRID_POINT_WRITTEN;
-+ }
-+ if(opts.Options & VERBOSE)
-+ Status_Info("Continuing with block %d in frame %d\n",
-+ frame_stat[frame].block_to_assign, frame);
-+
-+ opts.First_Line = fl; /* set back the old value */
-+
-+
-+ /* this should not be necessary */
-+ if (opts.Last_Line > Frame.Screen_Height)
-+ opts.Last_Line = Frame.Screen_Height;
-+
-+ if (opts.Last_Column > Frame.Screen_Width)
-+ opts.Last_Column = Frame.Screen_Width;
-+ }
-+
-+ /*
-+ * make a copy of the Output_File_Handle
-+ */
-+ frame_stat[frame].output_file = Output_File_Handle;
-+ if(Output_File_Handle->filename) {
-+ char * n = POV_MALLOC(strlen(Output_File_Handle->filename)+1, "filename");
-+ strcpy(n, Output_File_Handle->filename);
-+ frame_stat[frame].output_file->filename = n;
-+ }
-+
-+ if(opts.Options & VERBOSE)
-+ Status_Info("\n");
-+
-+ return 0;
-+}
-+
-+
-+/*
-+ * test, if the next frame in the sequence finished,
-+ * do all the necessary stuff to close the frame (shellout, ...)
-+ */
-+static void PvmFinishFrame() {
-+
-+ /* check, if frame has really finished */
-+ if( frame_stat[frame].row_to_write < opts.Last_Line)
-+ return;
-+
-+ /* if not already closed */
-+ if( frame_stat[frame].status < PVM_FRAME_DONE) {
-+
-+ if(opts.Options & VERBOSE)
-+ Status_Info("\nFinishing frame %d...", opts.FrameSeq.InitialFrame + frame);
-+ Status_Info("rtw. %d\n", frame_stat[frame].row_to_write);
-+
-+ frame_stat[frame].status = PVM_FRAME_DONE;
-+
-+ POV_FREE(frame_stat[frame].row_ptr);
-+
-+ /* Close output file */
-+ if (frame_stat[frame].output_file) {
-+ Output_File_Handle = frame_stat[frame].output_file;
-+ Close_File(frame_stat[frame].output_file);
-+ }
-+
-+ if( frame == frame_display) {
-+ POV_DISPLAY_FINISHED
-+
-+ if ((opts.Options & DISPLAY) && Display_Started) {
-+ POV_DISPLAY_CLOSE
-+
-+ Display_Started = FALSE;
-+ }
-+
-+ frame_display = -1;
-+ }
-+
-+ if (opts.histogram_on)
-+ write_histogram (opts.Histogram_File_Name);
-+ }
-+
-+ if( frame_stat[frame].status < PVM_FRAME_DONE_SHELLOUT) {
-+ /* the shellouts are done in the correct order */
-+ if( frame == next_frame_finish) {
-+ int Frame_Result;
-+
-+ frame_stat[frame].status = PVM_FRAME_DONE_SHELLOUT;
-+
-+ opts.FrameSeq.FrameNumber = opts.FrameSeq.InitialFrame + frame;
-+ setup_output_file_name();
-+
-+ Frame_Result = POV_SHELLOUT(POST_FRAME_SHL);
-+
-+ if ((Frame_Result==SKIP_ONCE_RET) || (Frame_Result==ALL_SKIP_RET)) {
-+ next_frame_finish = frames;
-+ return;
-+ }
-+ next_frame_finish ++; /* one more frame finished */
-+
-+ frame ++; /* check next frame (might have finished earlier) */
-+ if( frame < frames)
-+ PvmFinishFrame();
-+ }
-+ }
-+ if(opts.Options & VERBOSE)
-+ Status_Info("\n");
-+}
-+
-+
-+/*
-+ * Assign Work
-+ *
-+ * A slaved requested work, now find free block (or a block to reassign)
-+ */
-+static void PvmAssignWork() {
-+ int min_assigned;
-+ int found;
-+ int f;
-+
-+ /* The slave wants work, but has already been reassigned something,
-+ * then tell it to ask again when it really wants work.
-+ */
-+ if( slave_stat[slave_num].block_reassigned != PVM_SLAVE_FREE) {
-+#ifdef DEBUG
-+ Status_Info("%s already assigned on %d. Not reassigning.\n",
-+ slave_name,
-+ slave_stat[slave_num].block_reassigned);
-+#endif /* DEBUG */
-+ pvm_initsend(PvmDataDefault);
-+ pvm_send(rtid, PVM_INIT_SLAVE);
-+
-+ return;
-+ }
-+
-+
-+ /*
-+ * search for a free block, take a frame with minimal
-+ * number of assigned blocks
-+ */
-+ found = 0;
-+ min_assigned = grid_points;
-+
-+ frame = slave_stat[slave_num].frame_assigned;
-+ /* if slave was already assigned and that frame has still free blocks */
-+ if ( (frame >= 0) &&
-+ (frame_stat[frame].block_to_assign < grid_points) ) {
-+
-+ min_assigned = 0;
-+ found = 1;
-+ }
-+
-+ /* find free frame with minimal number of assigned frames */
-+ for(f = 0; (f < frames) && (min_assigned > 0); f ++) {
-+ if( (frame_stat[f].block_to_assign < min_assigned) &&
-+ (frame_stat[f].block_to_assign < grid_points) ) {
-+
-+#ifdef DEBUG
-+ Status_Info("\nfound: frame %d, ass: %d, min: %d\n",
-+ f, frame_stat[f].block_to_assign,
-+ min_assigned);
-+#endif
-+
-+ min_assigned = frame_stat[f].block_to_assign;
-+ frame = f;
-+ found = 1;
-+
-+ }
-+ }
-+
-+ if( found ) {
-+ /* first block for that frame */
-+ if( frame_stat[frame].block_to_assign == 0) {
-+ /* Do the necessary preparations for a new frame */
-+ if( PvmStartFrame() ) {
-+ /* Shellout gave SKIP_ONCE_REt -> search next block */
-+ PvmAssignWork();
-+ return;
-+ }
-+ }
-+
-+ slave_stat[slave_num].frame_assigned = frame;
-+ PvmSendWork(frame_stat[frame].block_to_assign);
-+ return;
-+ }
-+
-+
-+ /*
-+ * found no free block
-+ * search for a block to reassign
-+ */
-+
-+ /* if this slave was slow, and there are enough other slaves left,
-+ don't use this anymore */
-+ if ( (slave_stat[slave_num].pixels_done < npixels_done*9/10/PvmTasks) &&
-+ (minions >= (PvmTasks + 3) / 4) ) {
-+
-+ Status_Info("Not using %s for reassignment (%d%%)\n", slave_name,
-+ 100*slave_stat[slave_num].pixels_done*PvmTasks/npixels_done);
-+
-+ /* tell slave to finish work */
-+ pvm_initsend(PvmDataDefault);
-+ pvm_send(rtid, PVM_STOP_SLAVE);
-+ }
-+
-+ found = 0;
-+
-+ frame = slave_stat[slave_num].frame_assigned;
-+ /* if slave was already assigned and that frame has free blocks */
-+ if ( (frame >= 0) &&
-+ (frame_stat[frame].block_to_reassign < grid_points) ) {
-+
-+ min_assigned = 0;
-+ found = 1;
-+ }
-+
-+ /* find first frame with minimal number of reassigned frames */
-+ min_assigned = grid_points + 1;
-+ for(f = 0; (f < frames) && (min_assigned > 0); f ++) {
-+ if( frame_stat[f].block_to_reassign < min_assigned) {
-+
-+ min_assigned = frame_stat[frame].block_to_reassign;
-+ frame = f;
-+ found = 1;
-+ }
-+ }
-+
-+ if( found ) {
-+ /* find block in frame */
-+ int block;
-+ for(block = 0; block < grid_points; block ++) {
-+ if( frame_stat[frame].block_stat[block].status < PVM_GRID_POINT_DONE) {
-+ slave_stat[slave_num].frame_reassigned = frame;
-+ PvmReassignWork(block);
-+ return;
-+ }
-+ }
-+ }
-+
-+ /*
-+ * there is nothing left to reassign
-+ */
-+ Status_Info("All blocks are assigned. Stopping %s.\n", slave_name);
-+
-+ /* tell slave to finish work */
-+ pvm_initsend(PvmDataDefault);
-+ pvm_send(rtid, PVM_STOP_SLAVE);
-+
-+}
-+
-+/*
-+ * display a part from one line
-+ */
-+static void PvmDisplayPlot(row_ptr, row, col, ncols)
-+ COLOUR * row_ptr;
-+ int row, col, ncols;
-+{
-+ unsigned char Red, Green, Blue, Alpha;
-+ DBL grey;
-+ int i;
-+
-+ /* draw line */
-+ for (i = col; i < col+ncols; i++) {
-+ extract_colors(row_ptr[i], &Red, &Green, &Blue, &Alpha, &grey);
-+ POV_DISPLAY_PLOT(i, row, Red, Green, Blue, Alpha);
-+ }
-+ /* force draw of the whole line (with X11) */
-+ i = opts.Last_Column - 1;
-+ extract_colors(row_ptr[i], &Red, &Green, &Blue, &Alpha, &grey);
-+ POV_DISPLAY_PLOT(i, row, Red, Green, Blue, Alpha);
-+}
-+
-+
-+/*
-+ * one of the slaves sends a part of it's computed data
-+ */
-+static void PvmReceiveData() {
-+ int ncols;
-+ int i;
-+ int block;
-+
-+ pvm_upkint(&frame, 1, 1);
-+ pvm_upkint(&block, 1, 1);
-+ pvm_upkint(&row_start, 1, 1);
-+ pvm_upkint(&col_start, 1, 1);
-+ pvm_upkint(&ncols, 1, 1);
-+
-+ row_end = row_start + (bytesin - 3*sizeof(int))/(5*ncols*sizeof(COLC));
-+ col_end = col_start + ncols;
-+
-+#ifdef DEBUG
-+ Status_Info("receiving frame: %d, row: %d-%d, col: %d-%d\n",
-+ frame, row_start, row_end, col_start, col_end);
-+#endif
-+
-+ /* Make some checks to see if the data is not corrupted or invalid */
-+ if( (row_start < opts.First_Line) || (col_start < opts.First_Column) ||
-+ (row_end > opts.Last_Line) || (col_end > opts.Last_Column) ||
-+ (frame < 0) || (frame >= frames) ||
-+ (ncols > PvmChunkWidth) || (row_end - row_start > PvmChunkHeight) ) {
-+
-+ Warning(0.0, "Bad block recieved from %s\n",slave_name);
-+ Warning(0.0, "Frame %d, Row %d - %d, Column %d - %d.\n", frame, row_start, row_end,
-+ col_start, col_end);
-+
-+ return;
-+ }
-+
-+ /* get one row after the other */
-+ for (i = row_start; i < row_end; i++) {
-+ if (i >= frame_stat[frame].block_stat[block].wr_line) { /* Is incoming data current? */
-+
-+ /* allocate memory, to receive data */
-+ if (frame_stat[frame].row_ptr[i] == NULL) { /* Starting a new row */
-+
-+ frame_stat[frame].row_ptr[i] = (COLOUR *)POV_MALLOC(opts.Last_Column*sizeof(COLOUR),
-+ "row_ptr");
-+
-+ while(frame_stat[frame].row_ptr[frame_stat[frame].row_to_malloc] != NULL &&
-+ frame_stat[frame].row_to_malloc < opts.Last_Line) {
-+ frame_stat[frame].row_to_malloc++;
-+ }
-+ }
-+
-+ /* get color data */
-+ pvm_upkCOL(&(frame_stat[frame].row_ptr[i][col_start][0]),5*ncols,1);
-+
-+ frame_stat[frame].block_stat[block].wr_line = i + 1;
-+
-+ if (frame == frame_display) {
-+ PvmDisplayPlot(frame_stat[frame].row_ptr[i], i, col_start, ncols);
-+ }
-+
-+ /* Statistics - Attribute this grid section */
-+ grid_lines_done++;
-+ slave_stat[slave_num].pixels_done += ncols;
-+
-+ npixels_done += ncols;
-+ } else {
-+ /* another slave already sent this data */
-+
-+ COLOUR *dummy = (COLOUR *)POV_MALLOC(ncols * sizeof(COLOUR), "dummy row");
-+ pvm_upkCOL(&(dummy[0][0]),5*ncols,1);
-+
-+ /* Statistics - Attribute this grid section */
-+ slave_stat[slave_num].pixels_late += ncols;
-+ POV_FREE(dummy);
-+ }
-+ }
-+ /* Has this entire block been rendered? */
-+ if (frame_stat[frame].block_stat[block].wr_line >=
-+ (block/grid_ppline + 1)*PvmChunkHeight + opts.First_Line - 1 ||
-+ frame_stat[frame].block_stat[block].wr_line >= opts.Last_Line) {
-+#ifdef DEBUG
-+ Status_Info("Block completed by %s\n", slave_name);
-+#endif /* DEBUG */
-+ frame_stat[frame].block_stat[block].status = PVM_GRID_POINT_DONE;
-+ if (slave_stat[slave_num].block_reassigned == block) {
-+#ifdef DEBUG
-+ Status_Info(" reassigned block cleared.\n");
-+#endif /* DEBUG */
-+ slave_stat[slave_num].block_reassigned = PVM_SLAVE_FREE;
-+ }
-+#ifdef DEBUG
-+ else
-+ {
-+ Status_Info(" reassigned block is %d.\n",
-+ slave_stat[slave_num].block_reassigned);
-+ }
-+#endif /* DEBUG */
-+ }
-+
-+ if ((opts.Options & VERBOSE) && (grid_lines_done % PvmChunkHeight) == 0) {
-+ Status_Info("\r%5.2f of blocks complete.",
-+ (float)100*grid_lines_done/PvmChunkHeight/grid_points/frames);
-+ }
-+}
-+
-+/*
-+ * Write out us many lines as possible
-+ */
-+static void PvmWrite() {
-+ int i;
-+
-+ do {
-+ /* check, if there is a complete line to write */
-+ for (i = frame_stat[frame].block_to_write;
-+ i < frame_stat[frame].block_to_write + grid_ppline; i++) {
-+ if (frame_stat[frame].block_stat[i].wr_line <= frame_stat[frame].row_to_write) {
-+#ifdef DEBUG
-+ Status_Info("needing block %d in frame %d\n", i, frame);
-+#endif
-+ return;
-+ }
-+ }
-+
-+ /* OK, we can write a whole line */
-+ if (opts.Options & DISKWRITE) {
-+#ifdef DEBUG
-+ Status_Info("write: %d %d\n", frame, frame_stat[frame].row_to_write);
-+#endif
-+ Write_Line(frame_stat[frame].output_file,
-+ frame_stat[frame].row_ptr[frame_stat[frame].row_to_write],
-+ frame_stat[frame].row_to_write);
-+ }
-+
-+ /* Still lines to allocate so */
-+ if (frame_stat[frame].row_to_malloc < opts.Last_Line) {
-+ /* move this row buffer down, so we avaoid one malloc/free */
-+ frame_stat[frame].row_ptr[frame_stat[frame].row_to_malloc] =
-+ frame_stat[frame].row_ptr[frame_stat[frame].row_to_write];
-+ frame_stat[frame].row_ptr[frame_stat[frame].row_to_write] = NULL;
-+ frame_stat[frame].row_to_malloc++;
-+ } else { /* Otherwise free the row buffer */
-+ POV_FREE(frame_stat[frame].row_ptr[frame_stat[frame].row_to_write]);
-+ frame_stat[frame].row_ptr[frame_stat[frame].row_to_write]= NULL;
-+ }
-+
-+ frame_stat[frame].row_to_write++;
-+
-+#ifndef DEBUG
-+ if ((opts.Options & VERBOSE) && (frame_stat[frame].row_to_write % 8) == 0) {
-+ Status_Info("\r%5.2f of blocks complete.",
-+ (float)100*grid_lines_done/PvmChunkHeight/grid_points/frames);
-+ Status_Info(" %4d of %4d lines finished (in frame %d).",
-+ frame_stat[frame].row_to_write - opts.First_Line,
-+ opts.Last_Line - opts.First_Line, frame);
-+ }
-+#endif /* not DEBUG */
-+
-+ /* Finished a whole row of blocks */
-+ if ((frame_stat[frame].row_to_write - opts.First_Line) % PvmChunkHeight == 0) {
-+ for (i = frame_stat[frame].block_to_write;
-+ i < frame_stat[frame].block_to_write + grid_ppline; i++) {
-+ frame_stat[frame].block_stat[i].status = PVM_GRID_POINT_WRITTEN;
-+ }
-+ frame_stat[frame].block_to_write += grid_ppline;
-+ }
-+
-+ } while(frame_stat[frame].block_to_write < grid_points);
-+}
-+
-+/*
-+ * Handle slave requests, distribute and collect work
-+ */
-+void Pvm_Master_Control() {
-+
-+ /* Wait five minutes at a time between messages */
-+ wait_time.tv_sec = 300;
-+
-+ next_frame_finish = 0; /* next frame that finishes */
-+
-+ /* There are incomplete frames and/or incoming messages, and there are any slaves left*/
-+ while ( (next_frame_finish < frames) ||
-+ ((pvm_probe(-1, -1) > 0) && (minions > 0))) {
-+
-+ /* check for user abort */
-+ TEST_ABORT;
-+ if (Stop_Flag) {
-+ Render_Info("\nAborting render...\n");
-+
-+ PvmMasterEnd();
-+
-+ if ((opts.Options & DISPLAY) && Display_Started) {
-+ POV_DISPLAY_CLOSE;
-+ }
-+ if (opts.Do_Stats) {
-+ PRINT_STATS(stats);
-+ }
-+ Error("User abort.\n");
-+
-+ return;
-+ }
-+
-+ /* receive a request from a slave */
-+ if(PvmMasterReceive())
-+ continue;
-+
-+ PvmIdentifySlave();
-+
-+#ifdef DEBUG
-+ Status_Info("Received msg %d from %s\n", msgtag, slave_name);
-+#endif
-+
-+ /* a slaves requests work */
-+ switch(msgtag) {
-+ case PVM_INIT_SLAVE: /* Another slave started ok */
-+ if (opts.Options & VERBOSE) {
-+ Status_Info(" Slave %d at %s successfully started.\n", minions, slave_name);
-+ }
-+ minions++;
-+ break;
-+
-+ case PVM_NEED_WORK: /* a slave wants work */
-+ PvmAssignWork();
-+ break;
-+
-+ case PVM_SLAVE_RESULTS: /* slaves sends us some data */
-+ PvmReceiveData();
-+ PvmWrite();
-+ PvmFinishFrame();
-+ break;
-+
-+ case PVM_SLAVE_STATS: /* Too many stats, eh? */
-+#ifdef DEBUG
-+ Status_Info("Getting stats from %s.\n", slave_name);
-+#endif /* DEBUG */
-+ PvmUnpackStats();
-+ nstat++;
-+ break;
-+
-+ case PVM_SLAVE_EXIT: /* Slave has exited. */
-+ Status_Info("\nSlave at %s has exited.\n",slave_name);
-+
-+ if (--minions <= 0) {
-+ Error_Line( "Error - All slave tasks have exited!\n");
-+ pvm_exit();
-+ return;
-+ }
-+ break;
-+
-+ default: /* something strange happend */
-+ Warning(0.0, "Bad block recieved from %s - message type %4X.\n",
-+ slave_name, msgtag);
-+ }
-+ } /* incomplete frames */
-+
-+ /* Finished calculating everything */
-+ PvmMasterEnd();
-+}
-+
-+/*
-+ * Stop PvmMaster
-+ */
-+static void PvmMasterEnd() {
-+ int i;
-+
-+ /* tell all slave to stop work */
-+ for(i=0; i < PvmTasks; i++) {
-+ pvm_initsend(PvmDataDefault);
-+ pvm_send(tids[i], PVM_STOP_SLAVE);
-+ }
-+
-+ /* Wait a few seconds for lingering stats */
-+ wait_time.tv_sec = 4;
-+ wait_time.tv_usec = 0;
-+
-+ if (opts.Options & VERBOSE)
-+ Status_Info("\nWaiting for remaining slave stats.\n");
-+
-+ /* some incoming stats */
-+ while ((bufid = pvm_trecv(-1, PVM_SLAVE_STATS, &wait_time)) > 0) {
-+#ifdef DEBUG
-+ int msgtag;
-+ if (pvm_bufinfo(bufid, &bytesin, &msgtag, &rtid) < 0) {
-+ Error_Line( "PVM Master cannot bufinfo.\n");
-+ pvm_perror("");
-+ pvm_exit();
-+ return;
-+ }
-+
-+ PvmIdentifySlave();
-+
-+ Status_Info("Getting stats from %s.\n", slave_name);
-+#endif /* DEBUG */
-+
-+ PvmUnpackStats();
-+ nstat++;
-+ }
-+
-+ /* Dump stats for the tasks */
-+ Statistics( "\n\nPVM Task Distribution Statistics:\n");
-+ Statistics( "%20s [ done ] [ late ]","host name");
-+ Statistics( "%20s [ done ] [ late ]\n","host name");
-+
-+ for (i = 0; i < PvmTasks; i++) {
-+ int dtid;
-+ int j;
-+
-+ dtid = pvm_tidtohost(tids[i]);
-+
-+ for (j = 0; j < PvmTasks; j++) {
-+ if (dtid == hostinfo[j].hi_tid)
-+ break;
-+ }
-+
-+ Statistics("%20s [%5.2f%%] [%5.2f%%]", hostinfo[j].hi_name,
-+ (DBL)slave_stat[i].pixels_done * 100 / npixels_done / frames,
-+ (DBL)slave_stat[i].pixels_late * 100 / npixels_done / frames);
-+
-+ if (i % 2 == 1)
-+ Statistics("\n");
-+ }
-+
-+ pvm_exit();
-+
-+ Statistics("\n\nPOV-Ray statistics for finished frames:");
-+ if(opts.FrameSeq.FrameType==FT_MULTIPLE_FRAME) {
-+ for(i=0; i < next_frame_finish; i++) {
-+ Statistics("\nFrame %d:\n", opts.FrameSeq.InitialFrame + i);
-+ PRINT_STATS(frame_stat[i].stats);
-+ }
-+ if (opts.Do_Stats) {
-+ Statistics("\n\nTotal statistics:");
-+ }
-+ }
-+
-+}
-+
-+/*
-+ * A slave sent some stats
-+ */
-+static void PvmUnpackStats() {
-+ COUNTER tmpStat[MaxStat];
-+
-+ pvm_upkint(&frame, 1, 1);
-+
-+ if( pvm_upkSTAT((long*)tmpStat, MaxStat*sizeof(COUNTER)/sizeof(long), 1) >= 0) {
-+ int i;
-+ COUNTER tmp;
-+
-+ for(i=0; i < MaxStat; i++) {
-+ /* stats per frame */
-+ Add_Counter(tmp,tmpStat[i],frame_stat[frame].stats[i]);
-+ frame_stat[frame].stats[i] = tmp;
-+
-+ /* total stats */
-+ Add_Counter(tmp,tmpStat[i],totalstats[i]);
-+ totalstats[i] = tmp;
-+
-+ if(opts.FrameSeq.FrameType != FT_MULTIPLE_FRAME) {
-+ Add_Counter(tmp,tmpStat[i],stats[i]);
-+ stats[i] = tmp;
-+ }
-+ }
-+ } else {
-+ Error_Line("Unpack Stats.\n");
-+ pvm_perror("");
-+ }
-+}
-+
-+
-+
-+/********************************************************************************
-+ * Slave Intialization
-+ ********************************************************************************/
-+
-+int Pvm_Slave_Init() {
-+ /* Get master TID */
-+ PvmMTid = pvm_parent();
-+
-+ /* Have PVM notify us if the host POV process is killed
-+ * or the local PVM daemon dies */
-+ pvm_notify(PvmTaskExit, PVM_KILL_SLAVE, 1, &PvmMTid);
-+ pvm_setopt(PvmAutoErr, 2);
-+
-+ /* Set direct routing */
-+ pvm_setopt(PvmRoute, PvmRouteDirect);
-+
-+ /* Tell the master we started successfully */
-+ pvm_initsend(PvmDataDefault);
-+ pvm_send(PvmMTid, PVM_INIT_SLAVE);
-+
-+ /* Send an initial work request to the master, so that there is always
-+ * an outstanding block assignment, and we don't have to wait for the
-+ * master to respond to our request.
-+ */
-+ pvm_initsend(PvmDataDefault);
-+ pvm_send(PvmMTid, PVM_NEED_WORK);
-+
-+ NICE(PvmNice);
-+
-+ return 0;
-+}
-+
-+
-+/********************************************************************************
-+ * Slave Control
-+ ********************************************************************************/
-+
-+static void PvmSendStats() {
-+ pvm_initsend(PvmDataDefault);
-+ pvm_pkint( &frame, 1, 1);
-+ pvm_pkSTAT( (long*)stats, MaxStat*sizeof(COUNTER)/sizeof(long), 1);
-+ pvm_send(PvmMTid, PVM_SLAVE_STATS);
-+}
-+
-+/*
-+ * Request a new block from the master,
-+ * handle all messages sent by the master
-+ * ret: 0 .. continue with new frame (or exit)
-+ * 1 .. continue with this frame (but new region)
-+ */
-+int Pvm_Slave_Control() {
-+
-+ struct timeval wait_time;
-+ int bufid;
-+ unsigned int msgtag;
-+ int f;
-+ static int first = 1;
-+
-+ /* Wait up to 5 minutes for a message, otherwise exit */
-+ wait_time.tv_sec = 300;
-+ wait_time.tv_usec = 0;
-+
-+ if((bufid = pvm_trecv(PvmMTid, -1, &wait_time)) == 0) {
-+ Error_Line( "Slave timed out waiting for master\n");
-+ pvm_exit();
-+ exit(1);
-+ } else if (bufid < 0) {
-+ Error_Line( "Cannot receive message from master.");
-+ pvm_perror("");
-+ pvm_exit();
-+ exit(1);
-+ }
-+
-+ /* We have a block assignment from the master - IGOR SERVES! */
-+ if(pvm_bufinfo(bufid, (int *)0, &msgtag, &PvmMTid) < 0) {
-+ Error_Line("Cannot get PVM bufinfo\n");
-+ pvm_perror("");
-+ pvm_exit();
-+ exit(1);
-+ }
-+
-+ switch( msgtag) {
-+ case PVM_INIT_SLAVE:
-+ pvm_initsend(PvmDataDefault);
-+ pvm_send(PvmMTid, PVM_NEED_WORK);
-+ break;
-+
-+ case PVM_WORK:
-+ /* Ask master for some more block assignments in advance
-+ * to avoid waiting for them to be sent later
-+ */
-+ pvm_initsend(PvmDataDefault);
-+ pvm_send(PvmMTid, PVM_NEED_WORK);
-+
-+ /* Unpack the message */
-+ pvm_upkint(&f, 1, 1);
-+ pvm_upkint(&PvmBlockNum, 1, 1);
-+ pvm_upkint(&opts.First_Line, 1, 1);
-+ pvm_upkint(&opts.Last_Line, 1, 1);
-+ pvm_upkint(&opts.First_Column, 1, 1);
-+ pvm_upkint(&opts.Last_Column, 1, 1);
-+
-+ /* Last_Line is really "number of lines to do" */
-+ opts.Last_Line++;
-+
-+ /* Send the data every 1/4 of a block */
-+ PvmRowsToSend = (opts.Last_Line - opts.First_Line + 3) / 4;
-+
-+ /* Last_Column is really "number of columns to do" */
-+ opts.Last_Column++;
-+
-+ /* check, if a new frame starts */
-+ if(frame != f) {
-+ if(!first)
-+ PvmSendStats();
-+ first = 0;
-+ PvmNextFrame = opts.FrameSeq.InitialFrame + f;
-+ frame = f;
-+ return 0; /* stop with this frame */
-+ }
-+
-+ /* We need to do this for every block */
-+ Initialize_Renderer();
-+
-+ return 1; /* still the same frame */
-+
-+ case PVM_STOP_SLAVE: /* Everything is done, send stats and exit */
-+ PvmSendStats();
-+ PvmNextFrame = opts.FrameSeq.FinalFrame + 1;
-+ return 0;
-+
-+ case PVM_KILL_SLAVE:
-+ Error_Line("\nSlave killed because of dead master.\n");
-+ pvm_exit();
-+ exit(1);
-+
-+ default: /* Unknown message */
-+ Error_Line("\nUnknown control message from master - %X\n",msgtag);
-+ pvm_initsend(PvmDataDefault);
-+ pvm_send(PvmMTid,PVM_NEED_WORK); /* Request work again */
-+ }
-+ return 0;
-+}
-+
-+void Pvm_Slave_Exit() {
-+ pvm_initsend(PvmDataDefault);
-+ pvm_send(PvmMTid, PVM_SLAVE_EXIT);
-+ pvm_exit();
-+}
-+
-+void Pvm_Write_Line(handle, line_data, line_number)
-+ FILE_HANDLE *handle;
-+ COLOUR *line_data;
-+ int line_number;
-+{
-+ static int in_buffer = 0;
-+ static int ncols;
-+
-+ if (in_buffer == 0) /* No lines written yet. Initialize buffer */
-+ {
-+ ncols = opts.Last_Column - opts.First_Column;
-+ pvm_initsend(PvmDataDefault);
-+
-+ /* Insert block info into message */
-+ pvm_pkint(&frame, 1, 1);
-+ pvm_pkint(&PvmBlockNum, 1, 1);
-+ pvm_pkint(&line_number, 1, 1);
-+ pvm_pkint(&opts.First_Column, 1, 1);
-+ pvm_pkint(&ncols, 1, 1);
-+ }
-+
-+ if (pvm_pkCOL(&(line_data[opts.First_Column][0]),5*ncols, 1) < 0) {
-+ Error_Line( "Cannot pack in Pvm_Write_Line\n");
-+ pvm_perror("");
-+ if (in_buffer > 0) {
-+ pvm_send(PvmMTid, PvmBlockNum); /* Send any lines we have done. */
-+ }
-+ pvm_initsend(PvmDataDefault);
-+ pvm_send(PvmMTid, PVM_SLAVE_EXIT); /* Tell the master we're dying */
-+ pvm_exit();
-+ return;
-+ }
-+
-+ in_buffer++;
-+
-+ if (in_buffer >= PvmRowsToSend || line_number >= opts.Last_Line - 1) {
-+ if (pvm_send(PvmMTid, PVM_SLAVE_RESULTS) < 0) {
-+ Error_Line( "Cannot send block in Pvm_Write_Line\n");
-+ pvm_perror("");
-+ pvm_exit();
-+ return;
-+ }
-+
-+ in_buffer = 0;
-+ }
-+}
-+
-+
-+
-+
-+
-+
-+
-+
-+
-+
-+
-+
-+
-+
-+
-+
-+
-+
-+
-diff -Naur source.ori/pvm.h source/pvm.h
---- source.ori/pvm.h Thu Jan 1 01:00:00 1970
-+++ source/pvm.h Sun Sep 12 00:25:35 1999
-@@ -0,0 +1,164 @@
-+/****************************************************************************
-+* pvm.h
-+*
-+* This include module is used by PVM control routines in the PVM'd PovRAY.
-+*
-+* This file was written by Brad Kline. April 1994.
-+* modified by Andreas Dilger, Feb 1995.
-+* modified by Harald Deischinger, 1996 - April 1997
-+* modified by Jakob Flierl, May 1999
-+*
-+* All the defines that need modification are at the top.
-+*
-+* The author disclaims all warranties with regard to this software,
-+* including all implied warranties of merchant-ability and fitness.
-+* The code is simply distributed as it is.
-+*
-+*
-+*****************************************************************************/
-+
-+/* If setpriority() doesn't exist on your system, you should change
-+ * "your_pvm_arch" on the following line to whatever your actual PVM_ARCH
-+ * is (ie ALPHA or SCO), and please email me to tell me about it, so I can
-+ * add it in permanently.
-+ */
-+
-+#include <features.h>
-+
-+#if defined(SUN4SOL2) || defined(your_pvm_arch)
-+
-+#define NICE(x) nice(x)
-+extern int nice PARAMS((int prio));
-+
-+#else
-+
-+/* This should work for the majority of systems */
-+
-+#define NICE(x) setpriority(PRIO_PROCESS,0,getpriority(PRIO_PROCESS,0)+(x))
-+
-+#if !(defined __GLIBC__ && __GLIBC__ >= 2)
-+extern int setpriority PARAMS((int which, int who, int prio));
-+extern int getpriority PARAMS((int which, int who));
-+#endif
-+#endif
-+
-+/* How nice to be by default. 0 is the regular job priority, while is 20 very
-+ * nice. The nice value can be changed on the command line, so there is
-+ * probably little reason to change it here.
-+ */
-+#define PVM_DEFAULT_NICE 5
-+
-+/* On BSD systems, use getwd instead of getcwd. Change "your_pvm_arch" on
-+ * the following line to whatever your actual PVM_ARCH is (ie MIPS or CRAY),
-+ * and please email me to tell me about it, so I can add it in permanently.
-+ */
-+#if defined(NEXT) || defined(your_pvm_arch)
-+
-+#define GETCWD(path) getwd(path)
-+extern char *getwd PARAMS((char *));
-+
-+#else
-+
-+#define GETCWD(path) getcwd(path,PATH_MAX+1)
-+extern char *getcwd PARAMS((char *, size_t ));
-+
-+#endif
-+
-+extern int chdir PARAMS((const char *path));
-+
-+/* Grid decomposition defaults */
-+#define PVM_DEFAULT_GRID_HEIGHT 32
-+#define PVM_DEFAULT_GRID_WIDTH 32
-+
-+/* what type of encoding to use whan sending pixels */
-+#define pvm_upkCOL pvm_upkfloat
-+#define pvm_pkCOL pvm_pkfloat
-+#define pvm_upkSTAT pvm_upklong
-+#define pvm_pkSTAT pvm_pklong
-+
-+
-+/* The maximum path length. _POSIX_PATH_MAX_ = 255 in my limits.h file, but
-+ * not all systems have this defined, and my base SUN4 install didn't have
-+ * PATH_MAX in <limits.h>.*/
-+#ifndef PATH_MAX
-+#ifdef _POSIX_PATH_MAX
-+#define PATH_MAX _POSIX_PATH_MAX
-+#else /* _POSIX_PATH_MAX doesn't exist. A safe guess. */
-+#define PATH_MAX 1024
-+#endif /* _POSIX_PATH_MAX */
-+#endif /* PATH_MAX */
-+
-+/* Structure to hold info about each slave process */
-+typedef struct {
-+ char *name;
-+ int pixels_done; /* Number of pixels completed */
-+ int pixels_late; /* Number of pixels finished after another slave did it */
-+ int block_reassigned; /* Block number reassigned to this slave */
-+ int frame_assigned; /* assigned to that frame */
-+ int frame_reassigned; /* reassigned to that frame */
-+} pvm_slave_stat;
-+#define PVM_SLAVE_FREE -1
-+
-+/* Structure to hold info about each grid section */
-+typedef struct {
-+ int status; /* Current status of block */
-+ int wr_line; /* Line to be written next */
-+ int assigned_tid; /* Tid of the machine assigned to this block */
-+ int reassigned_tid; /* Tid of the machine reassigned to this block */
-+} pvm_block_stat;
-+/* Status indicators */
-+#define PVM_GRID_POINT_FREE 0
-+#define PVM_GRID_POINT_ASSIGNED 1
-+#define PVM_GRID_POINT_REASSIGNED 2
-+#define PVM_GRID_POINT_DONE 3
-+#define PVM_GRID_POINT_WRITTEN 4
-+
-+
-+/* Structure to hold info about each frame */
-+typedef struct {
-+ int status;
-+ COLOUR ** row_ptr;
-+ int row_to_write;
-+ int row_to_malloc;
-+ int block_to_assign;
-+ int block_to_reassign;
-+ int block_to_write;
-+ COUNTER stats[MaxStat]; /* PovRay Status */
-+ pvm_block_stat * block_stat;
-+ FILE_HANDLE* output_file;
-+} pvm_frame_stat;
-+#define PVM_FRAME_FREE 0
-+#define PVM_FRAME_WORKING 1
-+#define PVM_FRAME_DONE 2
-+#define PVM_FRAME_DONE_SHELLOUT 3
-+
-+/* Define some message IDs to be used */
-+#define PVM_INIT_SLAVE 1
-+#define PVM_STOP_SLAVE 2
-+#define PVM_KILL_SLAVE 3
-+#define PVM_NEED_WORK 4
-+#define PVM_SLAVE_EXIT 5
-+#define PVM_SLAVE_STATS 6
-+#define PVM_SLAVE_RESULTS 7
-+#define PVM_WORK 8
-+
-+/* Prototypes for public functions defined in pvm.c */
-+void Pvm_Master_Init PARAMS((int argc, char **argv));
-+void Pvm_Master_Control PARAMS((void));
-+void Pvm_Write_Line PARAMS((FILE_HANDLE *handle, COLOUR *line, int row));
-+int Pvm_Slave_Init PARAMS((void));
-+int Pvm_Slave_Control PARAMS((void));
-+void Pvm_Slave_Exit PARAMS((void));
-+
-+extern char PvmArch[];
-+extern int PvmChunkWidth;
-+extern int PvmChunkHeight;
-+extern int PvmSlave;
-+extern int PvmTasks;
-+extern int PvmNice;
-+extern char * PvmSlavename;
-+extern int PvmNextFrame;
-+extern int PvmBlockNum;
-+extern char PvmWorkingDir[];
-+extern char ** PvmHosts;
-+extern int PvmHostsN;
-diff -Naur source.ori/render.c source/render.c
---- source.ori/render.c Sat Jun 30 01:49:21 2001
-+++ source/render.c Sat Jun 30 10:08:01 2001
-@@ -46,7 +46,9 @@
- #include "texture.h"
- #include "vbuffer.h"
- #include "userio.h"
--
-+#ifdef USE_PVM
-+#include "pvm.h"
-+#endif
-
- /*****************************************************************************
- * Local preprocessor defines
-@@ -65,6 +67,10 @@
-
- #define SUB_PIXEL_GRID_SIZE 16
-
-+#ifdef USE_PVM
-+DBL maxclr;
-+#endif
-+
- /*****************************************************************************
- * Local typedefs
- ******************************************************************************/
-@@ -104,7 +110,9 @@
-
- static int SuperSampleCount, RadiosityCount;
-
-+#ifndef USE_PVM
- static DBL maxclr;
-+#endif
-
- /* Jitter values are taken from [-0.5*JitterScale, 0.5*JitterScale]. */
-
-@@ -314,7 +322,9 @@
- static int create_ray (RAY *ray, DBL x, DBL y, int ray_number);
- static void supersample (COLOUR result, int x, int y);
- static void gamma_correct (COLOUR Colour);
-+#ifndef USE_PVM
- static void extract_colors (COLOUR Colour, unsigned char *Red, unsigned char *Green, unsigned char *Blue, unsigned char *Alpha, DBL *grey);
-+#endif
- static void trace_pixel (int x, int y, COLOUR Colour);
- static void initialise_histogram (void) ;
- static void accumulate_histogram (int x, int y, int on);
-@@ -349,7 +359,8 @@
- *
- * CHANGES
- *
--* -
-+* Oct 1996: Added support for PVM [Deischi]
-+* Jun 2001: Added conditional build for PVM Support [Agaran]
- *
- ******************************************************************************/
-
-@@ -368,6 +379,12 @@
-
- size = (Frame.Screen_Width + 1) * sizeof(COLOUR);
-
-+#ifdef USE_PVM
-+ /* looks like normal mem leak, maybe that should be always enabled? */
-+ if (Previous_Line!=NULL) POV_FREE(Previous_Line);
-+ if (Current_Line!=NULL) POV_FREE(Current_Line);
-+#endif
-+
- Previous_Line = (COLOUR *)POV_MALLOC(size, "previous line buffer");
- Current_Line = (COLOUR *)POV_MALLOC(size, "current line buffer");
-
-@@ -381,6 +398,12 @@
- {
- size = (Frame.Screen_Width + 1) * sizeof(char);
-
-+#ifdef USE_PVM
-+ /* again looks like memleak fixup... */
-+ if (Previous_Line_Antialiased_Flags!=NULL) POV_FREE(Previous_Line_Antialiased_Flags);
-+ if (Current_Line_Antialiased_Flags!=NULL) POV_FREE(Current_Line_Antialiased_Flags);
-+#endif
-+
- Previous_Line_Antialiased_Flags = (char *)POV_MALLOC(size, "previous line flags");
- Current_Line_Antialiased_Flags = (char *)POV_MALLOC(size, "current line flags");
-
-@@ -390,6 +413,11 @@
- Current_Line_Antialiased_Flags[i] = 0;
- }
- }
-+#ifdef USE_PVM
-+ /* If PVM, this is already enough */
-+ if(PvmTasks && !PvmSlave)
-+ return;
-+#endif
-
- Assign_Vector(Camera_Ray.Initial, Frame.Camera->Location);
-
-@@ -3154,8 +3182,11 @@
- * Jun 1995 : Alpha channel support -CEY
- *
- ******************************************************************************/
--
-+#ifdef USE_PVM
-+void extract_colors(COLOUR Colour, unsigned char *Red, unsigned char *Green, unsigned char *Blue, unsigned char *Alpha, DBL *grey)
-+#else
- static void extract_colors(COLOUR Colour, unsigned char *Red, unsigned char *Green, unsigned char *Blue, unsigned char *Alpha, DBL *grey)
-+#endif
- {
- if (opts.PaletteOption == GREY)
- {
-diff -Naur source.ori/render.h source/render.h
---- source.ori/render.h Sat Jun 30 01:49:21 2001
-+++ source/render.h Sat Jun 30 03:18:56 2001
-@@ -59,6 +59,9 @@
- extern unsigned long *histogram_grid ;
- extern unsigned long max_histogram_value ;
- extern FILE_HANDLE *Histogram_File_Handle ;
-+#ifdef USE_PVM
-+extern DBL maxclr;
-+#endif
-
- /*****************************************************************************
- * Global functions
-@@ -74,6 +77,10 @@
- DBL Trace (RAY *Ray, COLOUR Colour, DBL Weight);
- void Check_User_Abort (int Do_Stats);
- void write_histogram (char *filename);
-+#ifdef USE_PVM
-+void extract_colors (COLOUR Colour, unsigned char *Red, unsigned char *Green, unsigned char *Blue, unsigned char *Alpha, DBL *grey);
-+#endif
-+
- void destroy_histogram (void);
-
- #endif
-diff -Naur source.ori/unix/makefile source/unix/makefile
---- source.ori/unix/makefile Sat Jun 30 03:02:03 2001
-+++ source/unix/makefile Sat Jun 30 11:54:57 2001
-@@ -53,7 +53,7 @@
- #CFLAGS = -O6 -finline-functions -ffast-math -c -ansi -m386 -DCPU=586 -DCOMPILER_VER=\".`uname`.$(CC)\" -DPOV_LIB_DIR=\"$(POVLIBDIR)\" $(SRCINC) $(LIBPNGINC) $(ZLIBINC)
-
- # Linux compiler flags, Pentium II optimized
--CFLAGS = $(OPT_FLAGS) -finline-functions -ffast-math -c -ansi -DCOMPILER_VER=\".`uname`.$(CC)\" -DPOV_LIB_DIR=\"$(POVLIBDIR)\" $(SRCINC)
-+CFLAGS = $(OPT_FLAGS) $(PVMFLAGS) -finline-functions -ffast-math -c -ansi -DCOMPILER_VER=\".`uname`.$(CC)\" -DPOV_LIB_DIR=\"$(POVLIBDIR)\" $(SRCINC)
-
- # HPUX compiler flags
- #CFLAGS = +O2 -finline-functions -c -Aa -D_HPUX_SOURCE -DCOMPILER_VER=\".`uname`.$(CC)\" $(SRCINC) $(LIBPNGINC) $(ZLIBINC)
-@@ -149,12 +149,15 @@
-
- # UTARGET is the name of the text-only UNIX version
- UTARGET=povray
-+UTARGET_PVM=pvmpov
-
- # XTARGET is the name of the X-Windows executable.
- XTARGET=x-povray
-+XTARGET_PVM=x-pvmpov
-
- # STARGET is the name of the SVGA executable.
- STARGET=s-povray
-+STARGET_PVM=s-pvmpov
-
- # This is the suffix for object files.
- OBJ = .o
-@@ -167,6 +170,13 @@
-
- SRCINC = -I. -I$(SRCDIR)
-
-+# not needed
-+#PVMINC = -I$(PVM_ROOT)/include
-+#PVMLIB = /usr/lib/libpvm3.a /usr/lib/libgpvm3.a
-+PVMLIB = -lpvm3
-+# dunno for what that is used
-+XDIR = $(HOME)/pvm3/bin/$(PVM_ARCH)
-+
- #
- # End of user specific options
- #
-@@ -1526,6 +1536,12 @@
- xpovmask.xbm \
- $(SRCDIR)/povproto.h
-
-+pvmDEP = $(SRCDIR)/pvm.c \
-+ config.h \
-+ $(SRCDIR)/pvm.h
-+# $(UNIXDIR)/unixconf.h
-+
-+
- config.h:
- @echo
- @echo 'You need to select which executable version you want'
-@@ -1549,46 +1565,89 @@
- unix: $(UTARGET)
- @echo
-
-+unix_pvm: $(UTARGET_PVM)
-+ @echo
-+
- $(UTARGET): $(POVOBJS) $(ODIR)/unix$(OBJ)
- $(CC) $(POVOBJS) $(ODIR)/unix$(OBJ) $(LFLAGS) -o $(UTARGET)
-
-+$(UTARGET_PVM): $(POVOBJS) $(ODIR)/pvm$(OBJ) $(ODIR)/unix$(OBJ)
-+ $(CC) $(POVOBJS) $(ODIR)/unix$(OBJ) $(ODIR)/pvm$(OBJ) $(PVMLIB) $(LFLAGS) -o $(UTARGET_PVM)
-+
- svga: $(STARGET)
- @echo
-
-+svga_pvm: $(STARGET_PVM)
-+ @echo
-+
-+
- $(STARGET): $(POVOBJS) $(ODIR)/svga$(OBJ) $(ODIR)/unix$(OBJ)
- $(CC) $(POVOBJS) $(ODIR)/svga$(OBJ) $(ODIR)/unix$(OBJ) $(LFLAGS) $(SLIBLIB) -o $(STARGET)
-
-+$(STARGET_PVM): $(POVOBJS) $(ODIR)/svga$(OBJ) $(ODIR)/pvm$(OBJ) $(ODIR)/unix$(OBJ)
-+ $(CC) $(POVOBJS) $(ODIR)/svga$(OBJ) $(ODIR)/unix$(OBJ) $(ODIR)/pvm$(OBJ) $(PVMLIB) $(LFLAGS) $(SLIBLIB) -o $(STARGET_PVM)
-+
- xwin: $(XTARGET)
- @echo
-
-+xwin_pvm: $(XTARGET_PVM)
-+ @echo
-+
- $(XTARGET): $(POVOBJS) $(ODIR)/xwindows$(OBJ) $(ODIR)/unix$(OBJ)
- $(CC) $(POVOBJS) $(ODIR)/xwindows$(OBJ) $(ODIR)/unix$(OBJ) $(LFLAGS) $(XLIBLIB) -o $(XTARGET)
-
-+$(XTARGET_PVM): $(POVOBJS) $(ODIR)/xwindows$(OBJ) $(ODIR)/pvm$(OBJ) $(ODIR)/unix$(OBJ)
-+ $(CC) $(POVOBJS) $(ODIR)/xwindows$(OBJ) $(ODIR)/unix$(OBJ) $(ODIR)/pvm$(OBJ) $(PVMLIB) $(LFLAGS) $(XLIBLIB) -o $(XTARGET_PVM)
-+
-+
- # Only these files need to be rebuilt if the display type was changed
- DISPOBJS = $(ODIR)/povray$(OBJ) $(ODIR)/render$(OBJ) \
- $(ODIR)/userio$(OBJ) $(ODIR)/vbuffer$(OBJ)
-
-+PVMOBJ = $(ODIR)/optin$(OBJ) $(ODIR)/optout$(OBJ) $(ODIR)/povray$(OBJ) $(ODIR)render$(OBJ)
-+
- newunix:
-- -@$(RM) $(DISPOBJS)
-+ -@$(RM) $(DISPOBJS) $(PVMOBJ)
- -@cp unixconf.h config.h
- -@touch -c $(ODIR)/*$(OBJ)
- -@$(MAKE) unix
-
-+newunix_pvm:
-+ -@$(RM) $(DISPOBJS) $(PVMOBJ)
-+ -@cp unixconf.h config.h
-+ -@touch -c $(ODIR)/*$(OBJ)
-+ -@$(MAKE) PVMFLAGS="-DUSE_PVM" unix_pvm
-+
-+
- newsvga:
-- -@$(RM) $(DISPOBJS)
-+ -@$(RM) $(DISPOBJS) $(PVMOBJ)
- -@cp svgaconf.h config.h
- -@touch -c $(ODIR)/*$(OBJ)
- -@$(MAKE) svga
-
-+newsvga_pvm:
-+ -@$(RM) $(DISPOBJS) $(PVMOBJ)
-+ -@cp svgaconf.h config.h
-+ -@touch -c $(ODIR)/*$(OBJ)
-+ -@$(MAKE) PVMFLAGS="-DUSE_PVM" svga_pvm
-+
- newxwin:
-- -@$(RM) $(DISPOBJS)
-+ -@$(RM) $(DISPOBJS) $(PVMOBJ)
- -@cp xwinconf.h config.h
- -@touch -c $(ODIR)/*$(OBJ)
- -@$(MAKE) xwin
-
-+newxwin_pvm:
-+ -@$(RM) $(DISPOBJS) $(PVMOBJ)
-+ -@cp xwinconf.h config.h
-+ -@touch -c $(ODIR)/*$(OBJ)
-+ -@$(MAKE) PVMFLAGS="-DUSE_PVM" xwin_pvm
-+
-+
- clean:
-- -@$(RM) $(POVOBJS) $(ODIR)/unix$(OBJ) $(ODIR)/xwindows$(OBJ)
-- -@$(RM) $(ODIR)/svga$(OBJ) $(UTARGET) $(XTARGET) $(STARGET)
-+ -@$(RM) $(POVOBJS) pvm$(OBJ) $(ODIR)/unix$(OBJ) $(ODIR)/xwindows$(OBJ)
-+ -@$(RM) $(ODIR)/svga$(OBJ) $(UTARGET) $(XTARGET) $(STARGET) $(UTARGET_PVM)
-+ -@$(RM) $(XTARGET_PVM) $(STARGET_PVM)
-
- install:
- -@cp povray.1 $(POVPATH)/man/man1
-@@ -1821,17 +1880,7 @@
- $(ODIR)/xwindows$(OBJ) : $(xwindowsDEP)
- $(CC) $(CFLAGS) $(XLIBINC) xwindows.c
-
--
--
--
--
--
--
--
--
--
--
--
--
-+$(ODIR)/pvm$(OBJ) : $(pvmDEP)
-+ $(CC) $(CFLAGS) $(SRCDIR)/pvm.c
-
-