output.c

Go to the documentation of this file.

// file output.c

// load and prepare any image maps used by the renderer


#define MODULE_OUTPUT

/* Output file writing + image map loading */

#include "render.h"

extern unsigned char *gRed,   *gGreen,   *gBlue,
                     *gL_Red, *gL_Green, *gL_Blue;
extern char gszHomeDir[];


// code to deal with anti-aliasing

static int n_per_line[5]={1,1,2,2,3};

long AntiAliasLine(long scanline,long aa,
         UCHAR *Red, UCHAR *Green, UCHAR *Blue, UCHAR *Alfa,
         UCHAR *L_Red, UCHAR *L_Green, UCHAR *L_Blue, UCHAR *L_Alfa,
         UCHAR *LL_Red, UCHAR *LL_Green, UCHAR *LL_Blue, UCHAR *LL_Alfa){
 fullscreenbuffer *f;
 unsigned short r,g,b,val,Nt;
 unsigned short *Ergb;
 short          *LineBuffer;
 long j,k,xmax;
 Ergb=RendererUshortBuffer;
 LineBuffer=RendererShortBuffer;
 xmax=ResolutionX;
 if(aa == NONE){
   OUTPUT:
   if(ntsc_colours == YES){ /* limit colours 0-240 */
     for(j=0;j<xmax;j++){
       Red[j]   = (unsigned char)( ((double)Red[j])   * 0.9412);
       Green[j] = (unsigned char)( ((double)Green[j]) * 0.9412);
       Blue[j]  = (unsigned char)( ((double)Blue[j])  * 0.9412);
     }
   }
   if(instant_callback == YES) // used for main preview and for texture/shader test preview
     AddToRenderImagePreview(scanline/n_per_line[aa],
                             ResolutionX,ResolutionY,
                             NULL,Red,Green,Blue);
   if(FullScreenBuffer != NULL){
     f=FullScreenBuffer+(scanline/n_per_line[aa])*xmax;
     for(j=0; j<xmax; j++){ 
       f->R = *(Red+j);  f->G = *(Green+j);
       f->B = *(Blue+j); f->A = *(Alfa+j);
       f++;
     }
     return 0;
   }
 }
 else if(aa == LOW){
   for (j = XMIN+1,k=0; j < XMAX ; j += 2,k++) {
     Red[k] = (unsigned char)(((long)Red[j]+(long)Red[j-1])/2);
     Green[k] = (unsigned char)(((long)Green[j]+(long)Green[j-1])/2);
     Blue[k] = (unsigned char)(((long)Blue[j]+(long)Blue[j-1])/2);
     Alfa[k] = (unsigned char)(((long)Alfa[j]+(long)Alfa[j-1])/2);
   }
   goto OUTPUT;
 }
 else if(aa == MEDIUM){
   if(scanline & 1){
     for (j = XMIN+1,k=0; j < XMAX ; j += 2,k++) {
       Red[k] = (unsigned char)(((long)Red[j]
              +(long)Red[j-1]+(long)L_Red[j]+(long)L_Red[j-1])/4);
       Green[k] = (unsigned char)(((long)Green[j]
              +(long)Green[j-1]+(long)L_Green[j]+(long)L_Green[j-1])/4);
       Blue[k] = (unsigned char)(((long)Blue[j]
              +(long)Blue[j-1]+(long)L_Blue[j]+(long)L_Blue[j-1])/4);
       Alfa[k] = (unsigned char)(((long)Alfa[j]
              +(long)Alfa[j-1]+(long)L_Alfa[j]+(long)L_Alfa[j-1])/4);
     }
     goto OUTPUT;
   }
   else{
     memcpy(L_Red,Red,XMAX);
     memcpy(L_Green,Green,XMAX);
     memcpy(L_Blue,Blue,XMAX);
     memcpy(L_Alfa,Alfa,XMAX);
   }
 }
 else if(aa == HIGH){
   if(scanline & 1){
     for (j = XMIN+2,k=0; j < XMAX ; j += 3,k++) {
       Red[k]   = (unsigned char)(0.5+
           ((double)Red[j]+(double)Red[j-1]+(double)Red[j-2]+
            (double)L_Red[j]+(double)L_Red[j-1]+(double)L_Red[j-2])/6.0);
       Green[k]   = (unsigned char)(0.5+
           ((double)Green[j]+(double)Green[j-1]+(double)Green[j-2]+
            (double)L_Green[j]+(double)L_Green[j-1]+(double)L_Green[j-2])/6.0);
       Blue[k]   = (unsigned char)(0.5+
           ((double)Blue[j]+(double)Blue[j-1]+(double)Blue[j-2]+
            (double)L_Blue[j]+(double)L_Blue[j-1]+(double)L_Blue[j-2])/6.0);
       Alfa[k]   = (unsigned char)(0.5+
           ((double)Alfa[j]+(double)Alfa[j-1]+(double)Alfa[j-2]+
            (double)L_Alfa[j]+(double)L_Alfa[j-1]+(double)L_Alfa[j-2])/6.0);
     }
     goto OUTPUT;
   }
   else{
     memcpy(L_Red,Red,XMAX);
     memcpy(L_Green,Green,XMAX);
     memcpy(L_Blue,Blue,XMAX);
     memcpy(L_Alfa,Alfa,XMAX);
   }
 }
 else if(aa == ULTRA){
   if(scanline%3 == 2){
     for (j = XMIN+2,k=0; j < XMAX ; j += 3,k++) {
       Red[k]   = (unsigned char)(0.5+
           ((double)Red[j]+(double)Red[j-1]+(double)Red[j-2]+
            (double)L_Red[j]+(double)L_Red[j-1]+(double)L_Red[j-2]+
            (double)LL_Red[j]+(double)LL_Red[j-1]+(double)LL_Red[j-2])/9.0);
       Green[k]   = (unsigned char)(0.5+
           ((double)Green[j]+(double)Green[j-1]+(double)Green[j-2]+
            (double)L_Green[j]+(double)L_Green[j-1]+(double)L_Green[j-2]+
            (double)LL_Green[j]+(double)LL_Green[j-1]+(double)LL_Green[j-2])/9.0);
       Blue[k]   = (unsigned char)(0.5+
           ((double)Blue[j]+(double)Blue[j-1]+(double)Blue[j-2]+
            (double)L_Blue[j]+(double)L_Blue[j-1]+(double)L_Blue[j-2]+
            (double)LL_Blue[j]+(double)LL_Blue[j-1]+(double)LL_Blue[j-2])/9.0);
       Alfa[k]   = (unsigned char)(0.5+
           ((double)Alfa[j]+(double)Alfa[j-1]+(double)Alfa[j-2]+
            (double)L_Alfa[j]+(double)L_Alfa[j-1]+(double)L_Alfa[j-2]+
            (double)LL_Alfa[j]+(double)LL_Alfa[j-1]+(double)LL_Alfa[j-2])/9.0);
     }
     goto OUTPUT;
   }
   else{
     if(scanline%3 == 1){
       memcpy(L_Red,Red,XMAX);
       memcpy(L_Green,Green,XMAX);
       memcpy(L_Blue,Blue,XMAX);
       memcpy(L_Alfa,Alfa,XMAX);
     }
     else if(scanline%3 == 0){
       memcpy(LL_Red,Red,XMAX);
       memcpy(LL_Green,Green,XMAX);
       memcpy(LL_Blue,Blue,XMAX);
       memcpy(LL_Alfa,Alfa,XMAX);
     }
   }
 }
 return 0;
}

void ScanlineToZbuffer(long k, double *Zdepth){
 float *buf;
 long i;
 if     (anti_alias == ULTRA){
   if(k%3 != 0)return;
   k=k/3;
 }
 else if(anti_alias == MEDIUM || anti_alias == HIGH){
   if(k%2 != 0)return;
   k=k/2;
 }
 buf=(fszBuffer+(long)ResolutionX*k);
 for(i=0;i<XMAX;i+=aaXstep) *buf++ = (float)Zdepth[i];
}

void ScanlineToZobject(long k, long *Zobject){
 unsigned char *buf;
 long i;
 if     (anti_alias == ULTRA){
   if(k%3 != 0)return;
   k=k/3;
 }
 else if(anti_alias == MEDIUM || anti_alias == HIGH){
   if(k%2 != 0)return;
   k=k/2;
 }
 buf=(ObjectIdBuffer+(long)ResolutionX*k);
 for(i=0;i<XMAX;i+=aaXstep) *buf++ = (unsigned char)Zobject[i];
}

void FillAlfaLine(UCHAR *Alfa, long *ZglassO[], long *Zobject){
 long i;
 for(i=XMIN;i<XMAX;i++){
   if(Zobject[i] == -2){
     Alfa[i]=0;  /* the sky */
     if(ZglassO[0][i] >= 0){ /* glass over sky */
       Alfa[i] = 128;
     }
   }
   else{
     if(alfagroundON || Zobject[i] != -1)Alfa[i]=255;
   }
 }
 return;
}

// end of anti-aliasing  -  start of image writing 

static short CompressLongLine(unsigned long *input, long *buffer, long xmax){
 long i;
 long *p,run,length,bufsize;
 p=buffer;  buffer++; *buffer++ = *input++;
 *p=0; run=0; length=0; bufsize = 2;
 for(i=1;i<xmax;i++){
   if( *input == *(input-1) ){
     if(length > 0){
       (*p)++; p = (buffer-1); *p = 1; *buffer++ = *input++; bufsize++;
       length=0; run=1;
     }
     else{
       (*p)++; input++; run++;
     }
   }
   else{
     if(run > 0){
       p=buffer++; *p=0; *buffer++ = *input++; bufsize +=2;
       run=0;
     }
     else{
       (*p)--; *buffer++ = *input++; bufsize++; length++;
     }
     if(bufsize > xmax-10)return 0;
   }
 }
 return bufsize;
}

long ScreenTo32bitFile(long frame, char *outputfile, char *out_root, fullscreenbuffer *stereo){
 char format[32];
 FILE *f16;
 fullscreenbuffer *f,*FSB;
 unsigned long r,g,b,val,Nt;
 unsigned long *Ergb;
 long          *LineBuffer;
 long i,j,k,xmax,ResY;
 if(stereo != NULL){
   FSB=stereo;
   ResY=ResolutionY*2;
   frame /= 2;
 }
 else{
   FSB=FullScreenBuffer;
   ResY=ResolutionY;
 }
 sprintf(format,"%s%ld%s","%s%0",tzeros,"d.32b");
 if(nScriptframes > 1)
   sprintf(outputfile,format,out_root,frame);
 else
   sprintf(outputfile,"%s.32b",out_root);
 //MessageBox(NULL,outputfile,"Writing 32 bit file",NULL);
 if((f16=fopen(strlwr(outputfile),"wb")) == NULL)return FAIL;
 Render_Message(46,0,outputfile);
 Ergb=RendererUlongBuffer;
 LineBuffer=RendererLongBuffer;
 xmax=ResolutionX;
 if(fwrite((char *)&ResolutionX,sizeof(long),1,f16) != 1 ||
    fwrite((char *)&ResY,sizeof(long),1,f16) != 1 ||
    fflush(f16) != 0){
   Render_Message(49,1,NULL);
   goto FPT;
 }
 for(i=0;i<ResY;i++){
   f=FSB+i*xmax;
   for(j=0; j<xmax; j++){
     *(gRed+j)   = f->R;
     *(gGreen+j) = f->G;
     *(gBlue+j)  = f->B;
     f++;
   }
   for (k=0; k<xmax; k++) {
     val = ((unsigned long)gRed[k])<< 16
         | ((unsigned long)gGreen[k])<< 8
         | ((unsigned long)gBlue[k]);
     Ergb[k]=val;
   }
   Nt=CompressLongLine(Ergb,LineBuffer,xmax);
   if(fwrite((char *)&Nt,sizeof(long),1,f16) != 1)goto FPT;
   else if(fflush(f16) != 0)goto FPT;
   if(Nt == 0){
     if(fwrite((char *)Ergb,sizeof(unsigned long),xmax,f16) != xmax)goto FPT;
     else if(fflush(f16) != 0)goto FPT;
   }
   else{
     if(fwrite((char *)LineBuffer,sizeof(long),Nt,f16) != Nt)goto FPT;
     else if(fflush(f16) != 0)goto FPT;
   }
 }
 fclose(f16);
 return 0;
 FPT:
 fclose(f16);
 return FAIL;
}

void OneExternalFrame(long frame, void *sbuffer, char *out_root,
                      long type, long quality){
 long x,y;
 char lname[256],outputfile[256],dll[256],type_list[16],format[32];
 HMODULE hLib;
 FARPROC fpFun;
 BOOL (*fpPutMap)(char *, long, long, long, fullscreenbuffer *);
 fullscreenbuffer *FSB;
 if(FullScreenBuffer == NULL){
   Render_Message(97,0,NULL);
   return;
 }
 if     (type == J24_FILE)strcpy(type_list,"jpg");
 else if(type == B24_FILE)strcpy(type_list,"bmp");
 else if(type == PNG_FILE)strcpy(type_list,"png");
 else if(type == TIF_FILE)strcpy(type_list,"tif");
 else if(type == JPS_FILE)strcpy(type_list,"jps");
 // add GIF here !!!
 x=ResolutionX;
 y=ResolutionY;
 if(type == JPS_FILE)FSB=(fullscreenbuffer *)sbuffer; 
 else                FSB=FullScreenBuffer;
 strcpy(lname,gszHomeDir);
 sprintf(dll,"%s_map.dll",type_list);
 strcat(lname,dll);
 sprintf(format,"%s%ld%s","%s%0",tzeros,"d.%s");
 if(nScriptframes > 1)
   sprintf(outputfile,format,out_root,frame,type_list);
 else
   sprintf(outputfile,"%s.%s",out_root,type_list);
 hLib=AddLoadedLibrary(lname);
 if(hLib != NULL){
   if((fpFun=GetProcAddress(hLib,"_PutExternalImage")) != NULL){
     fpPutMap = (void *)fpFun;
     //MessageBox(NULL,outputfile,lname,MB_OK);
     if((*fpPutMap)(outputfile,x,y,quality,FSB)){;}
   }
   //else MessageBox(NULL,"Failed to get adddress DLL",dll,MB_OK);

 }
 //else MessageBox(NULL,"Failed to load DLL",dll,MB_OK);
 return;
}