home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Graphics / Viewers / pCD0.3.4 / Source / hpcdtoppm.0.4 / postscr.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-06-12  |  3.8 KB  |  158 lines
  1. /* hpcdtoppm (Hadmut's pcdtoppm) v0.4
  2. *  Copyright (c) 1992, 1993 by Hadmut Danisch (danisch@ira.uka.de).
  3. *  Permission to use and distribute this software and its
  4. *  documentation for noncommercial use and without fee is hereby granted,
  5. *  provided that the above copyright notice appear in all copies and that
  6. *  both that copyright notice and this permission notice appear in
  7. *  supporting documentation. It is not allowed to sell this software in 
  8. *  any way. This software is not public domain.
  9. */
  10.  
  11. #include "hpcdtoppm.h"
  12.  
  13.  
  14. float PAPER_LEFT   =DEF_PAPER_LEFT;
  15. float PAPER_BOTTOM =DEF_PAPER_BOTTOM;
  16. float PAPER_WIDTH  =DEF_PAPER_WIDTH;
  17. float PAPER_HEIGHT =DEF_PAPER_HEIGHT;
  18.  
  19.  
  20.  
  21. static char pshdr[]=
  22. "%%Creator: hpcdtoppm by Hadmut Danisch (danisch@ira.uka.de), hpcd_ps by Adolf Mathias (mathias@ira.uka.de)\n";
  23.  
  24.  
  25. /* find an appropriate scaling coefficient and generate a ps header
  26.  * including a BoundingBox comment and a translate/scale sequence to 
  27.  * fit the pixw*pixh image into a square on paper with PS user coordinates 
  28.  * x,y,w,h 
  29.  */
  30. static void size_dependant(pixw,pixh, x,y,w,h)
  31.   int pixw,pixh;
  32.   float x,y,w,h;
  33. { float scale=(float)w/pixw,scaley=(float)h/pixh;
  34.  
  35.   if(scale>scaley) scale=scaley;
  36.   x+=w/2.0;y+=h/2.0;
  37.   fprintf(fout,"%s",pshdr);
  38.   fprintf(fout,"%%%%BoundingBox %.8g %.8g %.8g %.8g\n",
  39.      x-scale*pixw/2.0,y-scale*pixh/2.0,
  40.      x+scale*pixw/2.0,y+scale*pixh/2.0);
  41.  
  42.   if(pcdname) fprintf(fout,"%%%%Title: %s\n",pcdname);
  43.   fputs("%%EndComments\n\n",fout);
  44.  
  45.   fprintf(fout,"%f %f translate\n",x-scale*pixw/2.0,y-scale*pixh/2.0);
  46.   fprintf(fout,"%f %f scale\n",scale*pixw,scale*pixh);
  47. }
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54. static void sub_psgrey(w,h, ptr,zeil,pix)
  55.   sdim w,h, zeil,pix;
  56.   uBYTE *ptr;
  57.  
  58. { sdim x,y;
  59.   register uBYTE *p;
  60.   int c;
  61.  
  62.   size_dependant(w,h,PAPER_LEFT,PAPER_BOTTOM,PAPER_WIDTH,PAPER_HEIGHT);
  63.   fprintf(fout,"%ld string\n",w);
  64.   fprintf(fout,"%ld %ld 8\n",w,h);    /* always 8 bit per channel */
  65.   fprintf(fout,"[%ld 0 0 %ld 0 %ld]\n",w,-h,h);
  66.   fputs("{currentfile 1 index readhexstring pop} image\n",fout);
  67.   
  68.   c=0;
  69.   for(y=0;y<h;y++,ptr+=zeil)
  70.     for(p=ptr,x=0;x<w;x++,p+=pix)
  71.       {fprintf(fout,"%.2X",*p);
  72.        if(!(++c % 36)) fputs("\n",fout);
  73.       }
  74.  
  75.   fputs("pop\n",fout);
  76. }
  77.  
  78.  
  79. void write_epsgrey(w,h, ptr,zeil,pix)
  80.   sdim w,h, zeil,pix;
  81.   uBYTE *ptr;
  82. { 
  83.   fputs("%!PS-Adobe-2.0 EPSF-2.0\n",fout);
  84.   sub_psgrey(w,h, ptr,zeil,pix);
  85. }
  86.  
  87. void write_psgrey(w,h, ptr,zeil,pix)
  88.   sdim w,h, zeil,pix;
  89.   uBYTE *ptr;
  90. { 
  91.   fputs("%!PS-Adobe-2.0\n",fout);
  92.   sub_psgrey(w,h, ptr,zeil,pix);
  93.   fputs("showpage\n",fout);
  94. }
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106. static void sub_psrgb(w,h, rptr,rzeil,rpix,  
  107.                gptr,gzeil,gpix,  
  108.                bptr,bzeil,bpix) 
  109.   sdim w,h, rzeil,gzeil,bzeil, rpix,gpix,bpix;
  110.   uBYTE *rptr,*gptr,*bptr;
  111.  
  112. { sdim x,y;
  113.   register uBYTE *pr,*pg,*pb;
  114.   int c;
  115.  
  116.   size_dependant(w,h,PAPER_LEFT,PAPER_BOTTOM,PAPER_WIDTH,PAPER_HEIGHT);
  117.   fprintf(fout,"%ld string\n",w*3);
  118.   fprintf(fout,"%ld %ld 8\n",w,h);    /* always 8 bit per channel */
  119.   fprintf(fout,"[%ld 0 0 %ld 0 %ld]\n",w,-h,h);
  120.   fputs("{currentfile 1 index readhexstring pop} false 3 colorimage\n",fout);
  121.   
  122.   c=0; 
  123.   for(y=0;y<h;y++,rptr+=rzeil,gptr+=gzeil,bptr+=bzeil)
  124.     for(pr=rptr,pg=gptr,pb=bptr,x=0;x<w;x++,pr+=rpix,pg+=gpix,pb+=bpix)
  125.       {fprintf(fout,"%.2X%.2X%.2X",*pr,*pg,*pb);
  126.        if(!(++c % 12)) fputs("\n",fout);
  127.       }
  128.  
  129.   fputs("\npop\n",fout);
  130. }
  131.  
  132.  
  133. void write_epsrgb(w,h, rptr,rzeil,rpix,  
  134.                  gptr,gzeil,gpix,  
  135.                  bptr,bzeil,bpix) 
  136.   sdim w,h, rzeil,gzeil,bzeil, rpix,gpix,bpix;
  137.   uBYTE *rptr,*gptr,*bptr;
  138. { 
  139.   fputs("%!PS-Adobe-2.0 EPSF-2.0\n",fout);
  140.   sub_psrgb(w,h, rptr,rzeil,rpix,gptr,gzeil,gpix,bptr,bzeil,bpix);
  141. }
  142.  
  143.  
  144.  
  145. void write_psrgb(w,h, rptr,rzeil,rpix,  
  146.                  gptr,gzeil,gpix,  
  147.                  bptr,bzeil,bpix) 
  148.   sdim w,h, rzeil,gzeil,bzeil, rpix,gpix,bpix;
  149.   uBYTE *rptr,*gptr,*bptr;
  150. { 
  151.   fputs("%!PS-Adobe-2.0\n",fout);
  152.   sub_psrgb(w,h, rptr,rzeil,rpix,gptr,gzeil,gpix,bptr,bzeil,bpix);
  153.   fputs("showpage\n",fout);
  154. }
  155.  
  156.  
  157.  
  158.