home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume39 / hpcd2ppm / part02 < prev    next >
Encoding:
Text File  |  1993-08-16  |  53.6 KB  |  1,746 lines
  1. Newsgroups: comp.sources.misc
  2. From: danisch@ira.uka.de (Hadmut Danisch)
  3. Subject: v39i003:  hpcdtoppm - convert Photo-CD file into portable pixmap v0.5pl1, Part02/03
  4. Message-ID: <1993Aug16.204116.22146@sparky.sterling.com>
  5. X-Md4-Signature: 9eb24718dfa213dc0029dd2a77ee9aba
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Sterling Software
  8. Date: Mon, 16 Aug 1993 20:41:16 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: danisch@ira.uka.de (Hadmut Danisch)
  12. Posting-number: Volume 39, Issue 3
  13. Archive-name: hpcdtoppm/part02
  14. Environment: Photo-CD
  15. Supersedes: hpcdtoppm: Volume 34, Issue 83
  16.  
  17. #! /bin/sh
  18. # This is a shell archive.  Remove anything before this line, then feed it
  19. # into a shell via "sh file" or similar.  To overwrite existing files,
  20. # type "sh file -c".
  21. # Contents:  hpcdtoppm.0.5.pl1/Makefile hpcdtoppm.0.5.pl1/error.c
  22. #   hpcdtoppm.0.5.pl1/format.c hpcdtoppm.0.5.pl1/hpcdtoppm.man
  23. #   hpcdtoppm.0.5.pl1/output.c hpcdtoppm.0.5.pl1/pcdindex
  24. #   hpcdtoppm.0.5.pl1/postscr.c
  25. # Wrapped by kent@sparky on Mon Aug 16 10:49:23 1993
  26. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin ; export PATH
  27. echo If this archive is complete, you will see the following message:
  28. echo '          "shar: End of archive 2 (of 3)."'
  29. if test -f 'hpcdtoppm.0.5.pl1/Makefile' -a "${1}" != "-c" ; then 
  30.   echo shar: Will not clobber existing file \"'hpcdtoppm.0.5.pl1/Makefile'\"
  31. else
  32.   echo shar: Extracting \"'hpcdtoppm.0.5.pl1/Makefile'\" \(472 characters\)
  33.   sed "s/^X//" >'hpcdtoppm.0.5.pl1/Makefile' <<'END_OF_FILE'
  34. X#
  35. X#
  36. X# Use the hpcdtoppm procedures for writing ppm and pgm
  37. XVFLAGS= -DOWN_WRITE
  38. XVLIBS=
  39. X# Use the pbmplus procedures for writing ppm and pgm
  40. X#VFLAGS=
  41. X#VLIBS= libpbm.a libpgm.a libppm.a
  42. X#
  43. X#
  44. XCC=    gcc 
  45. XCFLAGS=    -O4 -ansi -Wall ${VFLAGS} 
  46. XINCL=    hpcdtoppm.h config.h
  47. XOBJ=    main.o output.o color.o format.o tools.o error.o \
  48. X    ppm.o postscr.o const.o
  49. XCOMPILE=${CC} ${CFLAGS}  -c
  50. X#
  51. Xhpcdtoppm: ${OBJ}
  52. X    ${CC} -o hpcdtoppm ${OBJ} ${VLIBS}
  53. X#
  54. X${OBJ}: ${$@:.o=.c} ${INCL}
  55. X    ${COMPILE} ${*}.c
  56. END_OF_FILE
  57.   if test 472 -ne `wc -c <'hpcdtoppm.0.5.pl1/Makefile'`; then
  58.     echo shar: \"'hpcdtoppm.0.5.pl1/Makefile'\" unpacked with wrong size!
  59.   fi
  60.   # end of 'hpcdtoppm.0.5.pl1/Makefile'
  61. fi
  62. if test -f 'hpcdtoppm.0.5.pl1/error.c' -a "${1}" != "-c" ; then 
  63.   echo shar: Will not clobber existing file \"'hpcdtoppm.0.5.pl1/error.c'\"
  64. else
  65.   echo shar: Extracting \"'hpcdtoppm.0.5.pl1/error.c'\" \(8903 characters\)
  66.   sed "s/^X//" >'hpcdtoppm.0.5.pl1/error.c' <<'END_OF_FILE'
  67. X/* hpcdtoppm (Hadmut's pcdtoppm) v0.5pl1
  68. X*  Copyright (c) 1992, 1993 by Hadmut Danisch (danisch@ira.uka.de).
  69. X*  Permission to use and distribute this software and its
  70. X*  documentation for noncommercial use and without fee is hereby granted,
  71. X*  provided that the above copyright notice appear in all copies and that
  72. X*  both that copyright notice and this permission notice appear in
  73. X*  supporting documentation. It is not allowed to sell this software in 
  74. X*  any way. This software is not public domain.
  75. X*/
  76. X
  77. X#include "hpcdtoppm.h"
  78. X#define X(a,b) ((a == b) ? "->" : "  ")
  79. X
  80. Xvoid eerror(enum ERRORS e,char *file,int line)
  81. X {
  82. X  
  83. X  switch(e)
  84. X   {case E_NONE:   return;
  85. X    case E_IMP:    fprintf(stderr,"Sorry, Not yet implemented. [%s:%d]\n",file,line); break;
  86. X    case E_READ:   fprintf(stderr,"Error while reading.\n"); break;
  87. X    case E_WRITE:  fprintf(stderr,"Error while writing.\n"); break;
  88. X    case E_INTERN: fprintf(stderr,"Internal error. [%s:%d]\n",file,line); break;
  89. X    case E_ARG:    fprintf(stderr,"Error in Arguments !\n\n"); 
  90. X#ifdef SHORT_HELP
  91. X                   fprintf(stderr,"Usage: hpcdtoppm [options] pcd-file [ppm-file]\n");
  92. X                   fprintf(stderr,"       ( - means stdin )\n");
  93. X                   fprintf(stderr,"Opts:         [ -> = Default ] \n\n");
  94. X                   fprintf(stderr,"   [-x] [-s] [-d] [-i] [-m]\n");
  95. X                   fprintf(stderr,"   [-crop] [-pos] [-rep] [-vert] [-hori] [-S h v]\n");
  96. X                   fprintf(stderr,"   [-n] [-r] [-l] [-h] [-a]\n");
  97. X                   fprintf(stderr,"   [-ppm] [-pgm] [-ycc] [-ps] [-eps] [-psg] [-epsg] [-psd] [-epsd]\n");
  98. X                   fprintf(stderr,"   [-pl f] [-pb f] [-pw f] [-ph f] [-dpi f] [-fak f]\n");
  99. X                   fprintf(stderr,"   [-c0] [-c-] [-c+]\n");
  100. X                   fprintf(stderr,"   [-0] [-C d s] [-1] [-2] [-3] [-4] [-5]\n");
  101. X
  102. X#endif
  103. X#ifdef LONG_HELP
  104. X                   fprintf(stderr,"Usage: hpcdtoppm [options] pcd-file [ppm-file]\n");
  105. X                   fprintf(stderr,"       ( - means stdin )\n");
  106. X                   fprintf(stderr,"Opts:         [ -> = Default ] \n\n");
  107. X
  108. X                   fprintf(stderr,"     -x     Overskip mode (tries to improve color quality.)\n");
  109. X                   fprintf(stderr,"     -s     Apply simple sharpness-operator on the Luma-channel.\n");
  110. X                   fprintf(stderr,"     -d     Show differential picture only.\n");
  111. X                   fprintf(stderr,"     -i     Give some (buggy) informations from fileheader.\n");
  112. X                   fprintf(stderr,"     -m     Show the decoding steps to stderr.\n");
  113. X                   fprintf(stderr,"     -crop  Try to cut off the black frame.\n");
  114. X                   fprintf(stderr,"     -pos   Print file position of image to stderr.\n");
  115. X                   fprintf(stderr,"     -rep   Try to jump over defects in the Huffman Code.\n");
  116. X                   fprintf(stderr,"     -vert  Flip image vert.\n");
  117. X                   fprintf(stderr,"     -hori  Flip image horiz.\n");
  118. X                   fprintf(stderr,"     -S h v Decode subrectangle with hori. and vert. boundaries h,v,\n");
  119. X                   fprintf(stderr,"            h,v of the form a-b or a+b, a and b integer or float [0.0...1.0]\n");
  120. X                   fprintf(stderr,"\n");
  121. X
  122. X                   fprintf(stderr," %s  -n     Don't rotate.\n",                                 X(T_DEFAULT,T_NONE));
  123. X                   fprintf(stderr," %s  -r     Rotate clockwise for portraits.\n" ,              X(T_DEFAULT,T_RIGHT));
  124. X                   fprintf(stderr," %s  -l     Rotate counter-clockwise for portraits.\n",       X(T_DEFAULT,T_LEFT));
  125. X                   fprintf(stderr," %s  -h     Rotate twice, turn on head.\n",                   X(T_DEFAULT,T_HEAD));
  126. X                   fprintf(stderr," %s  -a     Try to find out orientation automatically.\n",    X(T_DEFAULT,T_AUTO));
  127. X                   fprintf(stderr,"\n");
  128. X
  129. X                   fprintf(stderr," %s  -ppm   output rgb  (ppm-format). \n",                    X(O_DEFAULT,O_PPM));
  130. X                   fprintf(stderr," %s  -pgm   output gray (pgm-format). \n",                    X(O_DEFAULT,O_PGM));
  131. X                   fprintf(stderr," %s  -ycc   output ycc  (ppm-format). \n",                    X(O_DEFAULT,O_YCC));
  132. X                   fprintf(stderr," %s  -ps    output postscript (rgb). \n",                     X(O_DEFAULT,O_PS));
  133. X                   fprintf(stderr," %s  -eps   output encapsulated postscript (rgb). \n",        X(O_DEFAULT,O_EPS));
  134. X                   fprintf(stderr," %s  -psg   output postscript (grayscale). \n",               X(O_DEFAULT,O_PSG));
  135. X                   fprintf(stderr," %s  -epsg  output encapsulated postscript (grayscale). \n",  X(O_DEFAULT,O_EPSG));
  136. X                   fprintf(stderr," %s  -psd   output postscript (b&w dithered). \n",            X(O_DEFAULT,O_PSG));
  137. X                   fprintf(stderr," %s  -epsd  output encapsulated postscript (b&w dithered).\n",X(O_DEFAULT,O_EPSG));
  138. X                   fprintf(stderr,"     -pl  f Postscript paper left position    [ Def:  %8.3f ]\n",DEF_PAPER_LEFT);
  139. X                   fprintf(stderr,"     -pb  f Postscript paper bottom position  [ Def:  %8.3f ]\n",DEF_PAPER_BOTTOM);
  140. X                   fprintf(stderr,"     -pw  f Postscript paper width            [ Def:  %8.3f ]\n",DEF_PAPER_WIDTH);
  141. X                   fprintf(stderr,"     -ph  f Postscript paper height           [ Def:  %8.3f ]\n",DEF_PAPER_HEIGHT);
  142. X                   fprintf(stderr,"     -dpi f Postscript resolution for dith.   [ Def:  %8.3f ]\n",DEF_DPI);
  143. X                   fprintf(stderr,"     -fak f Scaling factor for dith.          [ Def:     1.0   ]\n");
  144. X                   fprintf(stderr,"\n");
  145. X
  146. X                   fprintf(stderr," %s  -c0    don't correct (linear).\n", X(C_DEFAULT,C_LINEAR));
  147. X                   fprintf(stderr," %s  -c-    correct darker.\n",         X(C_DEFAULT,C_DARK));
  148. X                   fprintf(stderr," %s  -c+    correct brighter.\n",       X(C_DEFAULT,C_BRIGHT));
  149. X                   fprintf(stderr,"\n");
  150. X
  151. X                   fprintf(stderr," %s  -0     Extract thumbnails from Overview file.\n",        X(S_DEFAULT,S_Over));
  152. X                   fprintf(stderr," %s  -C d s Extract contact sheet from Overview file, d images width,\n",X(S_DEFAULT,S_Contact)); 
  153. X                   fprintf(stderr,"            with contact sheet orientation s ( one of n l r h).\n");
  154. X                   fprintf(stderr," %s  -1     Extract  128x192   from Image file.\n",           X(S_DEFAULT,S_Base16));
  155. X                   fprintf(stderr," %s  -2     Extract  256x384   from Image file.\n",           X(S_DEFAULT,S_Base4));
  156. X                   fprintf(stderr," %s  -3     Extract  512x768   from Image file.\n",           X(S_DEFAULT,S_Base));
  157. X                   fprintf(stderr," %s  -4     Extract 1024x1536  from Image file.\n",           X(S_DEFAULT,S_4Base));
  158. X                   fprintf(stderr," %s  -5     Extract 2048x3072  from Image file.\n",           X(S_DEFAULT,S_16Base));
  159. X                   fprintf(stderr,"\n");
  160. X#endif
  161. X                   break;
  162. X    case E_OPT:    fprintf(stderr,"These Options are not allowed together.\n");break;
  163. X    case E_MEM:    fprintf(stderr,"Not enough memory !\n"); break;
  164. X    case E_HUFF:   fprintf(stderr,"Error in Huffman-Code-Table\n"); break;
  165. X    case E_SEQ:    fprintf(stderr,"Error in Huffman-Sequence, try option -rep\n"); break;
  166. X    case E_SEQ1:   fprintf(stderr,"Error1 in Huffman-Sequence, try option -rep\n"); break;
  167. X    case E_SEQ2:   fprintf(stderr,"Error2 in Huffman-Sequence, try option -rep\n"); break;
  168. X    case E_SEQ3:   fprintf(stderr,"Error3 in Huffman-Sequence, try option -rep\n"); break;
  169. X    case E_SEQ4:   fprintf(stderr,"Error4 in Huffman-Sequence, try option -rep\n"); break;
  170. X    case E_SEQ5:   fprintf(stderr,"Error5 in Huffman-Sequence, try option -rep\n"); break;
  171. X    case E_SEQ6:   fprintf(stderr,"Error6 in Huffman-Sequence, try option -rep\n"); break;
  172. X    case E_SEQ7:   fprintf(stderr,"Error7 in Huffman-Sequence, try option -rep\n"); break;
  173. X    case E_POS:    fprintf(stderr,"Error in file-position\n"); break;
  174. X    case E_OVSKIP: fprintf(stderr,"Can't read this resolution in overskip-mode\n"); break;
  175. X    case E_TAUTO:  fprintf(stderr,"Can't determine the orientation in overview mode\n");break;
  176. X    case E_SUBR:   fprintf(stderr,"Error in Subrectangle Parameters\n");break;
  177. X    case E_PRPAR:  fprintf(stderr,"Bad printing parameters\n");break;
  178. X    case E_CONFIG: fprintf(stderr,"Something is wrong with your configuration [see %s:%d]\n",file,line);
  179. X                   fprintf(stderr,"Edit the config.h and recompile...\n"); break;
  180. X    case E_TCANT:  fprintf(stderr,"Sorry, can't determine orientation for this file.\n");
  181. X                   fprintf(stderr,"Please give orientation parameters. \n");break;
  182. X    default:       fprintf(stderr,"Unknown error %d ???  [%s:%d]\n",e,file,line);break;
  183. X   }
  184. X  close_all();
  185. X  exit(9);
  186. X }
  187. X
  188. X
  189. END_OF_FILE
  190.   if test 8903 -ne `wc -c <'hpcdtoppm.0.5.pl1/error.c'`; then
  191.     echo shar: \"'hpcdtoppm.0.5.pl1/error.c'\" unpacked with wrong size!
  192.   fi
  193.   # end of 'hpcdtoppm.0.5.pl1/error.c'
  194. fi
  195. if test -f 'hpcdtoppm.0.5.pl1/format.c' -a "${1}" != "-c" ; then 
  196.   echo shar: Will not clobber existing file \"'hpcdtoppm.0.5.pl1/format.c'\"
  197. else
  198.   echo shar: Extracting \"'hpcdtoppm.0.5.pl1/format.c'\" \(11918 characters\)
  199.   sed "s/^X//" >'hpcdtoppm.0.5.pl1/format.c' <<'END_OF_FILE'
  200. X/* hpcdtoppm (Hadmut's pcdtoppm) v0.5pl1
  201. X*  Copyright (c) 1992, 1993 by Hadmut Danisch (danisch@ira.uka.de).
  202. X*  Permission to use and distribute this software and its
  203. X*  documentation for noncommercial use and without fee is hereby granted,
  204. X*  provided that the above copyright notice appear in all copies and that
  205. X*  both that copyright notice and this permission notice appear in
  206. X*  supporting documentation. It is not allowed to sell this software in 
  207. X*  any way. This software is not public domain.
  208. X*/
  209. X
  210. X#include "hpcdtoppm.h"
  211. X
  212. Xstruct pcdquad { uBYTE len,highseq,lowseq,key;};
  213. Xstruct pcdhqt  { uBYTE entries; struct pcdquad entry[256];};
  214. Xstruct myhqt   { uINT seq,mask,len; uBYTE key; };
  215. X
  216. Xstatic struct myhqt myhuff0[256],myhuff1[256],myhuff2[256];
  217. Xstatic sINT          myhufflen0=0,myhufflen1=0,myhufflen2=0;
  218. X
  219. X
  220. X
  221. X
  222. Xstatic void readhqtsub(struct pcdhqt *quelle,struct myhqt *ziel,sINT *anzahl)
  223. X#define E ((uINT) 1)
  224. X {sINT i;
  225. X  struct pcdquad *sub;
  226. X  struct myhqt *help;
  227. X  *anzahl=(quelle->entries)+1;
  228. X
  229. X  for(i=0;i<*anzahl;i++)
  230. X   {sub = (struct pcdquad *)(((uBYTE *)quelle)+1+i*sizeof(*sub));
  231. X    help=ziel+i;
  232. X
  233. X    help->seq = (((uINT) sub->highseq) << 24) |(((uINT) sub->lowseq) << 16);
  234. X    help->len = ((uINT) sub->len) +1;
  235. X    help->key = sub->key;
  236. X
  237. X#ifdef DEBUGhuff
  238. X   fprintf(stderr," Anz: %d A1: %08x  A2: %08x X:%02x %02x %02x %02x Seq:  %08x   Laenge:  %d %d\n",
  239. X          *anzahl,(uINT)sbuffer,(uINT)sub,
  240. X          ((uBYTE *)sub)[0],((uBYTE *)sub)[1],((uBYTE *)sub)[2],((uBYTE *)sub)[3],
  241. X          help->seq,help->len,sizeof(uBYTE));
  242. X#endif
  243. X
  244. X    if(help->len > 16) error(E_HUFF);
  245. X
  246. X    help->mask = ~ ( (E << (32-help->len)) -1); 
  247. X
  248. X  }
  249. X#ifdef DEBUG
  250. X  for(i=0;i<*anzahl;i++)
  251. X   {help=ziel+i;
  252. X    fprintf(stderr,"H: %3d  %08lx & %08lx (%2d) = %02x = %5d  %8x\n",
  253. X        i, help->seq,help->mask,help->len,help->key,(signed char)help->key,
  254. X        help->seq & (~help->mask));
  255. X   }
  256. X#endif
  257. X
  258. X#undef E
  259. X}
  260. X
  261. X
  262. X
  263. X
  264. X
  265. X
  266. X
  267. Xvoid readhqt(sINT n)
  268. X {
  269. X  uBYTE *ptr;
  270. X
  271. X  melde("readhqt\n");
  272. X  EREADBUF;
  273. X  ptr = sbuffer;
  274. X
  275. X  readhqtsub((struct pcdhqt *)ptr,myhuff0,&myhufflen0);
  276. X
  277. X  if(n<2) return;
  278. X  ptr+= 1 + 4* myhufflen0;
  279. X  readhqtsub((struct pcdhqt *)ptr,myhuff1,&myhufflen1);
  280. X
  281. X  if(n<3) return;
  282. X  ptr+= 1 + 4* myhufflen1;
  283. X  readhqtsub((struct pcdhqt *)ptr,myhuff2,&myhufflen2);
  284. X
  285. X}
  286. X
  287. X
  288. X
  289. X
  290. X
  291. X
  292. X
  293. X#ifdef FASTHUFF
  294. X
  295. Xstatic struct myhqt *HTAB0[0x10000],*HTAB1[0x10000],*HTAB2[0x10000];
  296. X
  297. Xstatic void inithuff(sINT hlen,struct myhqt *ptr,struct myhqt *TAB[])
  298. X {sINT i,n;
  299. X  sINT seq,len;
  300. X  struct myhqt *help;
  301. X
  302. X  for(i=0;i<0x10000;i++) TAB[i]=0;
  303. X
  304. X  for(n=0;n<hlen;n++)
  305. X   {help=ptr+n;
  306. X    seq=(help->seq)>>16;
  307. X    len=help->len;
  308. X
  309. X    for(i=0;i<(1<<(16-len));i++)
  310. X      TAB[seq | i] = help;
  311. X   }
  312. X }
  313. X#endif
  314. X
  315. X
  316. X
  317. X
  318. Xstatic char *pn[]={"Luma Channel","Chroma1 Channel","Chroma2 Channel"};
  319. X
  320. X
  321. Xvoid decode(sizeinfo *si,int fak,implane *f,implane *f1,implane *f2,sINT autosync)
  322. X {dim w,h,hoff,hlen,hende,voff,vlen,vende,anfang,ende;
  323. X  sINT htlen,sum,do_inform,part;
  324. X  uINT sreg,maxwidth;
  325. X  uINT inh,n,zeile,segment,ident;
  326. X  struct myhqt *hp;
  327. X
  328. X  uBYTE *nptr;
  329. X  uBYTE *lptr;
  330. X
  331. X#define nextbuf  {  nptr=sbuffer; if(READBUF<1) { if(!do_rep) error(E_READ); \
  332. X                                                  fprintf(stderr,"Read error\n"); \
  333. X                                                  return; } }
  334. X#define checkbuf { if (nptr >= sbuffer + sizeof(sbuffer)) nextbuf; }
  335. X
  336. X#ifdef U_TOO_LONG
  337. X#define shiftreg(n) sreg = (sreg<< n ) & 0xffffffff;
  338. X#else
  339. X#define shiftreg(n) sreg<<=n;
  340. X#endif
  341. X
  342. X#define shiftout(n){ shiftreg(n); inh-=n; \
  343. X                     while (inh<=24) \
  344. X                      {checkbuf; \
  345. X                       sreg |= ((uINT)(*(nptr++)))<<(24-inh);\
  346. X                       inh+=8;\
  347. X                      }\
  348. X                    }  
  349. X#define issync     ((sreg & 0xffffff00) == 0xfffffe00) 
  350. X#define brutesync  ((sreg & 0x00fff000) == 0x00fff000) 
  351. X#define seeksync { while (!brutesync) shiftout(8); while (!issync) shiftout(1);}
  352. X
  353. X#ifdef FASTHUFF
  354. X  struct myhqt **HTAB;
  355. X  HTAB=0;
  356. X  inithuff(myhufflen0,myhuff0,HTAB0);
  357. X  inithuff(myhufflen1,myhuff1,HTAB1);
  358. X  inithuff(myhufflen2,myhuff2,HTAB2);
  359. X#define SETHUFF0 HTAB=HTAB0;
  360. X#define SETHUFF1 HTAB=HTAB1;
  361. X#define SETHUFF2 HTAB=HTAB2;
  362. X#define FINDHUFF(x) {x=HTAB[sreg>>16];}
  363. X
  364. X#else
  365. X
  366. X  sINT i;
  367. X  struct myhqt *htptr;
  368. X  htptr=0;
  369. X#define SETHUFF0 { htlen=myhufflen0 ; htptr = myhuff0 ; }
  370. X#define SETHUFF1 { htlen=myhufflen1 ; htptr = myhuff1 ; }
  371. X#define SETHUFF2 { htlen=myhufflen2 ; htptr = myhuff2 ; }
  372. X#define FINDHUFF(x)  {for(i=0, x=htptr;(i<htlen) && ((sreg & x ->mask)!= x->seq); i++,x++); \
  373. X                      if(i>=htlen) x=0;}
  374. X#endif
  375. X
  376. X  melde("decode\n");
  377. X  anfang=ende=0;
  378. X
  379. X  if(fak >= 0)
  380. X   {w   =si->w     *fak;
  381. X    h   =si->h     *fak;
  382. X    hoff=si->rdhoff*fak;  if(hoff & 1 ) error(E_INTERN);  /* Must be all even */
  383. X    hlen=si->rdhlen*fak;  if(hlen & 1 ) error(E_INTERN); hende=hlen+hoff;
  384. X    voff=si->rdvoff*fak;  if(voff & 1 ) error(E_INTERN);
  385. X    vlen=si->rdvlen*fak;  if(vlen & 1 ) error(E_INTERN); vende=vlen+voff;
  386. X   }
  387. X  else
  388. X   {fak = -fak;
  389. X    w   =si->w     /fak;
  390. X    h   =si->h     /fak;
  391. X    hoff=si->rdhoff/fak;  if(hoff & 1 ) error(E_INTERN);  /* Must be all even */
  392. X    hlen=si->rdhlen/fak;  if(hlen & 1 ) error(E_INTERN); hende=hlen+hoff; 
  393. X    voff=si->rdvoff/fak;  if(voff & 1 ) error(E_INTERN);
  394. X    vlen=si->rdvlen/fak;  if(vlen & 1 ) error(E_INTERN); vende=vlen+voff;
  395. X   }
  396. X
  397. X
  398. X  if( f  && ((! f->im) || ( f->iheight != vlen  ) ||  (f->iwidth != hlen  ))) error(E_INTERN);
  399. X  if( f1 && ((!f1->im) || (f1->iheight != vlen/2) || (f1->iwidth != hlen/2))) error(E_INTERN);
  400. X  if( f2 && ((!f2->im) || (f2->iheight != vlen/2) || (f2->iwidth != hlen/2))) error(E_INTERN);
  401. X
  402. X  htlen=sreg=maxwidth=0;
  403. X  zeile=0;
  404. X  nextbuf;
  405. X  inh=32;
  406. X  lptr=0;
  407. X  part=do_inform=0;
  408. X  shiftout(16);
  409. X  shiftout(16);
  410. X
  411. X  if(autosync) seeksync;
  412. X  
  413. X  if(!issync)
  414. X   { if(!do_rep) error(E_SEQ6);
  415. X     else 
  416. X      {fprintf(stderr,"Image does not start with synchron mark, seeking...\n");
  417. X       seeksync;
  418. X       do_inform=1;
  419. X      }
  420. X   }
  421. X
  422. X  n=0;
  423. X
  424. X  for(;;)
  425. X   {
  426. X    if (issync)
  427. X     {shiftout(24);
  428. X      ident=sreg>>16;
  429. X      shiftout(16);
  430. X
  431. X      zeile=(ident>>1) & 0x1fff;
  432. X      segment=ident>>14;
  433. X      if(do_inform) {fprintf(stderr,"Synchron mark found Line %d\n",zeile);do_inform=0;}
  434. X#ifdef DEBUG
  435. X      fprintf(stderr,"Id %4x Zeile: %6d Seg %3d Pix bisher: %5d  Position: %8lx+%5lx=%8x\n",
  436. X          ident,zeile,segment,n,bufpos,nptr-sbuffer,bufpos+nptr-sbuffer);
  437. X#endif
  438. X
  439. X
  440. X      if(lptr && (n!=maxwidth)) 
  441. X       {if(!do_rep)error(E_SEQ1);
  442. X        else fprintf(stderr,"Line %d in %s : wrong length of last line (%d)\n",zeile,pn[part],n);
  443. X       }
  444. X      n=0;
  445. X
  446. X      if(zeile==h) {RPRINT; return; }
  447. X      if(zeile >h) 
  448. X       { if(!do_rep) error(E_SEQ2);
  449. X         else 
  450. X          {fprintf(stderr,"Wrong line number %d, ignoring line\n",zeile);
  451. X           seeksync;
  452. X           n=maxwidth;
  453. X           do_inform=1;
  454. X          }
  455. X       }    
  456. X      else switch(segment)
  457. X       {
  458. X        case 1: if(!do_rep) error(E_SEQ3);
  459. X                fprintf(stderr,"Abnormal line tag in %d, interpreting as Luma tag\n",zeile);
  460. X        case 0: maxwidth=w;
  461. X                if((!f) && autosync) {seeksync; n=maxwidth; break;}
  462. X                if(!f) error(E_SEQ7);
  463. X                if((zeile<voff) || (zeile >= vende)) {seeksync; n=maxwidth; break;}
  464. X                anfang=hoff; ende=hende;
  465. X                lptr=f->im + (zeile-voff)*f->mwidth;
  466. X                SETHUFF0;
  467. X                part=0;
  468. X                break;
  469. X
  470. X        case 2: maxwidth=w>>1;
  471. X                if(!f1) return;
  472. X                /*if((!f1) && autosync) {seeksync; break;}*/
  473. X                if((zeile<voff) || (zeile >= vende)) {seeksync; n=maxwidth; break;}
  474. X                anfang=hoff>>1; ende=hende>>1;
  475. X                lptr=f1->im + ((zeile-voff)>>1)*f1->mwidth;
  476. X                SETHUFF1;
  477. X                part=1;
  478. X                break;
  479. X 
  480. X        case 3: maxwidth=w>>1;
  481. X                if(!f2) return;
  482. X                /*if((!f2) && autosync) {seeksync; break;}*/
  483. X                if((zeile<voff) || (zeile >= vende)) {seeksync; n=maxwidth; break;}
  484. X                anfang=hoff>>1; ende=hende>>1;
  485. X                lptr=f2->im + ((zeile-voff)>>1)*f2->mwidth;
  486. X                SETHUFF2;
  487. X                part=2;
  488. X                break;
  489. X
  490. X        default:error(E_SEQ3);
  491. X    }
  492. X     }
  493. X    else
  494. X     {
  495. X      if(!lptr)      error(E_SEQ6);
  496. X
  497. X      if(n>maxwidth) 
  498. X        {
  499. X#ifdef DEBUG
  500. X         fprintf(stderr,"Register: %08lx Pos: %08lx\n",sreg,bufpos+nptr-sbuffer);
  501. X#endif
  502. X         if (!do_rep) error(E_SEQ4);
  503. X         else { fprintf(stderr,"Missing synchron mark in %s line %d\n",pn[part],zeile);
  504. X                seeksync;
  505. X                do_inform=1;
  506. X                n=maxwidth;
  507. X              }
  508. X       }
  509. X      else
  510. X       {FINDHUFF(hp);
  511. X        if(!hp)
  512. X         { if(!do_rep) error(E_SEQ5);
  513. X           fprintf(stderr,"Unable to decode, ignoring rest of line\n");
  514. X           seeksync;
  515. X           n=maxwidth;
  516. X           do_inform=1;
  517. X         }
  518. X        else
  519. X         {if((n>= anfang) && (n<ende))
  520. X           {sum=((sINT)(*lptr)) + ((sBYTE)hp->key);
  521. X            NORM(sum);
  522. X            *(lptr++) = sum;
  523. X           }
  524. X
  525. X          n++; 
  526. X          shiftout(hp->len);
  527. X         }
  528. X       }
  529. X     }
  530. X
  531. X   }
  532. X
  533. X
  534. X#undef nextbuf  
  535. X#undef checkbuf 
  536. X#undef shiftout
  537. X#undef issync
  538. X#undef seeksync
  539. X
  540. X }
  541. X
  542. X
  543. X
  544. X
  545. Xenum ERRORS readplain(sizeinfo *si,int fak,implane *l,implane *c1,implane *c2)
  546. X {dim i,w,h,hoff,hlen,voff,vlen;
  547. X  uBYTE *pl=0,*pc1=0,*pc2=0;
  548. X
  549. X  melde("readplain\n");
  550. X
  551. X#ifdef DEBUG
  552. X  fprintf(stderr,"readplain %d %d %d %d %d %d %d\n",fak,si->w,si->h,si->rdhoff,si->rdhlen,si->rdvoff,si->rdvlen);
  553. X#endif
  554. X
  555. X  if(fak >= 0)
  556. X   {w   =si->w     *fak;
  557. X    h   =si->h     *fak;
  558. X    hoff=si->rdhoff*fak;  if(hoff & 1 ) error(E_INTERN);  /* Must be all even */
  559. X    hlen=si->rdhlen*fak;  if(hlen & 1 ) error(E_INTERN);
  560. X    voff=si->rdvoff*fak;  if(voff & 1 ) error(E_INTERN);
  561. X    vlen=si->rdvlen*fak;  if(vlen & 1 ) error(E_INTERN);
  562. X   }
  563. X  else
  564. X   {fak = -fak;
  565. X    w   =si->w     /fak;
  566. X    h   =si->h     /fak;
  567. X    hoff=si->rdhoff/fak;  if(hoff & 1 ) error(E_INTERN);  /* Must be all even */
  568. X    hlen=si->rdhlen/fak;  if(hlen & 1 ) error(E_INTERN);
  569. X    voff=si->rdvoff/fak;  if(voff & 1 ) error(E_INTERN);
  570. X    vlen=si->rdvlen/fak;  if(vlen & 1 ) error(E_INTERN);
  571. X   }
  572. X
  573. X
  574. X    
  575. X  if(l)
  576. X   { if ((l->mwidth<hlen) || (l->mheight<vlen) || (!l->im)) error(E_INTERN);
  577. X     l->iwidth=hlen;
  578. X     l->iheight=vlen;
  579. X     pl=l->im;
  580. X   }
  581. X
  582. X  if(c1)
  583. X   { if ((c1->mwidth<(hlen>>1)) || (c1->mheight<(vlen>>1)) || (!c1->im)) error(E_INTERN);
  584. X     c1->iwidth=hlen>>1;
  585. X     c1->iheight=vlen>>1;
  586. X     pc1=c1->im;
  587. X   }
  588. X
  589. X  if(c2)
  590. X   { if ((c2->mwidth<(hlen>>1)) || (c2->mheight<(vlen>>1)) || (!c2->im)) error(E_INTERN);
  591. X     c2->iwidth=hlen>>1;
  592. X     c2->iheight=vlen>>1;
  593. X     pc2=c2->im;
  594. X   }
  595. X
  596. X  if(voff) SKIPr(w*3*(voff>>1));
  597. X
  598. X  for(i=0;i<vlen>>1;i++)
  599. X   {
  600. X    if(pl)
  601. X     { if(hlen==w)
  602. X        {if(READ(pl,w)<1) return(E_READ);
  603. X         pl+= l->mwidth;
  604. X
  605. X         if(READ(pl,w)<1) return(E_READ);
  606. X         pl+= l->mwidth;
  607. X        }
  608. X       else
  609. X        {SKIPr(hoff);
  610. X
  611. X         if(READ(pl,hlen)<1) return(E_READ);
  612. X         pl+= l->mwidth;
  613. X         
  614. X         SKIPr(w-hlen);    /* w - hlen - hoff + hoff */ 
  615. X
  616. X         if(READ(pl,hlen)<1) return(E_READ);
  617. X         pl+= l->mwidth;
  618. X
  619. X         SKIPr(w-hoff-hlen);         
  620. X        }
  621. X     }
  622. X    else SKIPr(2*w);
  623. X     
  624. X    if(pc1)
  625. X     {
  626. X       if(hlen==w)
  627. X        {
  628. X         if(READ(pc1,w>>1)<1) return(E_READ);
  629. X         pc1+= c1->mwidth;
  630. X        }
  631. X       else
  632. X        {SKIPr((hoff)>>1);
  633. X         if(READ(pc1,hlen>>1)<1) return(E_READ);
  634. X         pc1+= c1->mwidth;
  635. X         SKIPr((w-hoff-hlen)>>1);
  636. X        }
  637. X     }
  638. X    else SKIPr(w>>1);
  639. X     
  640. X    if(pc2)
  641. X     {
  642. X       if(hlen==w)
  643. X        {
  644. X         if(READ(pc2,w>>1)<1) return(E_READ);
  645. X         pc2+= c2->mwidth;
  646. X        }
  647. X       else
  648. X        {SKIPr((hoff)>>1);
  649. X         if(READ(pc2,hlen>>1)<1) return(E_READ);
  650. X         pc2+= c2->mwidth;
  651. X         SKIPr((w-hoff-hlen)>>1);
  652. X        }
  653. X     }
  654. X    else SKIPr(w>>1);
  655. X
  656. X
  657. X   }
  658. X  RPRINT;
  659. X  return E_NONE;
  660. X }
  661. END_OF_FILE
  662.   if test 11918 -ne `wc -c <'hpcdtoppm.0.5.pl1/format.c'`; then
  663.     echo shar: \"'hpcdtoppm.0.5.pl1/format.c'\" unpacked with wrong size!
  664.   fi
  665.   # end of 'hpcdtoppm.0.5.pl1/format.c'
  666. fi
  667. if test -f 'hpcdtoppm.0.5.pl1/hpcdtoppm.man' -a "${1}" != "-c" ; then 
  668.   echo shar: Will not clobber existing file \"'hpcdtoppm.0.5.pl1/hpcdtoppm.man'\"
  669. else
  670.   echo shar: Extracting \"'hpcdtoppm.0.5.pl1/hpcdtoppm.man'\" \(6820 characters\)
  671.   sed "s/^X//" >'hpcdtoppm.0.5.pl1/hpcdtoppm.man' <<'END_OF_FILE'
  672. X.TH hpcdtoppm 1 " 5 Aug 1993"
  673. X.IX hpcdtoppm
  674. X.SH NAME
  675. Xhpcdtoppm v0.5 pl1 - convert a Photo-CD file into a portable pixmap
  676. X.SH SYNOPSIS
  677. X.B hpcdtoppm
  678. X[options] pcd-file [ppm-file]
  679. X.SH DESCRIPTION
  680. XDecodes a Photo-CD Image file or Overview file.
  681. XImage files you can find on the Photo-CD in photo_cd/images, they are named
  682. Xas "imgnnnn.pcd", where nnnn is a 4-digit-number. The Overview file is at
  683. Xphoto_cd/overview.pcd . If there is no output filename given, output will be
  684. Xprinted to stdout. hpcdtoppm stands for "Hadmut's pcdtoppm" to make it
  685. Xdistinguishable in case someone else is building the same thing and
  686. Xcalling it pcdtoppm. Call hpcdtoppm without arguments to see the 
  687. Xdefaults values. If pcd-file is "-", the Photo-CD file is read from
  688. Xstdin.
  689. X.IX GIF
  690. X.SH OPTIONS
  691. X.TP
  692. X.B -x
  693. XOverskip Mode. Works on Base/16, Base/4, Base and 4Base. In Photo-CD
  694. Ximages the luma channel is stored in full resolution, the two chroma
  695. Xchannels are stored in half resolution only and have to be interpolated.
  696. XIn the Overskip Mode the chroma channels of the next higher resolution are
  697. Xtaken instead of interpolating. To see the difference, generate one ppm with
  698. Xand one ppm without this flag. Use pnmarith to generate the difference image
  699. Xof these two images. Call ppmhist for this difference or show it with xv
  700. X(push the HistEq button in the color editor).
  701. X.TP
  702. X.B -s
  703. XApply simple sharpness-operator on the Luma-channel.
  704. X.TP
  705. X.B -d
  706. XDo not show the complete image, but only the decompressed difference.
  707. XIt works only on the 4Base and the 16Base resolution. It does not
  708. Xhave any deeper sense, but it was simple to implement and it shows what
  709. Xcauses different sizes of image files.
  710. X.TP
  711. X.B -i
  712. XGive some information from the fileheader to stderr. It works only for 
  713. XImage files. (It is not working correctly, just printing some strings.)
  714. X.TP
  715. X.B -m
  716. XShow the phases of decoding to stderr.
  717. X.TP
  718. X.B -crop
  719. XTry to cut off the black frame which is sometimes scanned
  720. Xat the image borders. The image size shrinks.
  721. X.TP
  722. X.B -pos
  723. XPrint the file relative start position of the data for
  724. Xthe current resolution.
  725. X.TP
  726. X.B -rep
  727. XTry to jump over reading errors in Huffman code. 
  728. X.TP
  729. X.B -n
  730. XDon't rotate the image.
  731. X.TP
  732. X.B -r
  733. XRotate the picture clockwise for portraits.
  734. X.TP
  735. X.B -l
  736. XRotate the picture counter-clockwise for portraits.
  737. X.TP
  738. X.B -a
  739. XTry to find out the image orientation byself. This doesn't work
  740. Xfor overview files yet. It is very experimental and depends on
  741. Xone byte. Please tell me if it doesn't work.
  742. X.TP
  743. X.B -vert
  744. XVertical flip.
  745. X.TP
  746. X.B -hori
  747. XHorizontal flip.
  748. X.TP
  749. X.B -S h v
  750. XCut out subrectangle with boundaries h (longer side of the image) and
  751. Xv (shorter side). h and v are of the form a-b ( cut from a to b ) or
  752. Xa+b ( offset a, length b). a and b are integer (pixels) or float 
  753. X[0.0 ... 1.0] relative to the length of the side.
  754. X.TP
  755. X.B -ppm
  756. XWrite rgb image in ppm-format.
  757. X.TP
  758. X.B -pgm
  759. XWrite grayscale image in pgm-format.
  760. X.TP
  761. X.B -ycc
  762. XWrite ycc image in ppm-format.
  763. X.TP
  764. X.B -ps
  765. XWrite rgb image in postscript.
  766. X.TP
  767. X.B -eps
  768. XWrite rgb image in encapsulated postscript.
  769. X.TP
  770. X.B -psg
  771. XWrite grayscale image in postscript.
  772. X.TP
  773. X.B -epsg
  774. XWrite grayscale image in encapsulated postscript.
  775. X.TP
  776. X.B -psd
  777. XWrite a Floyd-Steinberg dithered image in postscript.
  778. XSee the Postscript section below.
  779. X.TP
  780. X.B -epsd
  781. XWrite a Floyd-Steinberg dithered image in encapsulated postscript.
  782. XSee the Postscript section below.
  783. X.TP
  784. X.B -pl f
  785. XSet left position of Postscript image to f.
  786. X.TP
  787. X.B -pb f
  788. XSet bottom position of Postscript image to f.
  789. X.TP
  790. X.B -pw f
  791. XSet width of Postscript image to f.
  792. X.TP
  793. X.B -ph f
  794. XSet height of Postscript image to f.
  795. X.TP
  796. X.B -dpi f
  797. XSet printer resolution for dithered postscript images. 
  798. XSee the Postscript section below.
  799. X.TP
  800. X.B -fak f
  801. XSets a scaling factor for dithered postscript images. 
  802. XSee the Postscript section below.
  803. X.TP
  804. X.B -c0
  805. XDon't correct the image.
  806. X.TP
  807. X.B -c-
  808. XDo a correction (darker). Hardware and taste dependend.
  809. X.TP
  810. X.B -c+
  811. XDo a correction (brighter). Hardware and taste dependend.
  812. X.TP
  813. X.B -1 | -Base/16 | -128x192
  814. XExtract the Base/16 size picture (size 128x192 pixels). Note that you
  815. Xcan only give one size option.
  816. X.TP
  817. X.B -2 | -Base/4 | -256x384
  818. XExtract the Base/4 size picture.
  819. X.TP
  820. X.B -3 | -Base | -512x768
  821. XExtract the Base size picture.
  822. X.TP
  823. X.B -4 | -4Base | -1024x1536
  824. XExtract the 4Base size picture.
  825. X.TP
  826. X.B -5 | -16Base | -2048x3072
  827. XExtract the 16Base size picture.
  828. X.TP
  829. X.B -0 | -Overview | -O
  830. XExtract all pictures from an Overview file. A ppmfilename must be given. If the
  831. Xgiven name is "foo", the files are named "foonnnn", where nnnn is a 4-digit number.
  832. XSince they are stored in Base/16 format, they are extracted in this format.
  833. X.TP
  834. X.B -C d s
  835. XExtract all pictures from an Overview file. A ppmfilename must be given. If the
  836. Xgiven name is "foo", the files are named "foonnnn", where nnnn is a 4-digit number.
  837. XSince they are stored in Base/16 format, they are extracted in this format. s is one
  838. Xof "n", "l" and "r" and determines the orientation of the contact sheet image.
  839. X
  840. X
  841. X.PP
  842. X
  843. X.SH POSTSCRIPT OUTPUT
  844. X
  845. XFor postscript output ( ps, eps, psg, epsg, psd, epsg ) you
  846. Xcan choose parameters for the resolution and placement on the paper.
  847. XThe default values are used if none of the following options is given.
  848. X
  849. XThe position of the image within the paper (down left corner) is changed
  850. Xwith the -pl and -pb option for all resolutions. The unit is 1/72 inch.
  851. X
  852. XFor color and grayscale postscript you can change the image size with
  853. Xthe -pw and -ph option (1/72 inch). Every image pixel is mapped onto one
  854. Xpostscript pixel.
  855. X
  856. XFor dithered postscript (-psd and -epsd) there are three options,
  857. Xthe image size (-pw and -ph), the printer resolution (-dpi) and
  858. Xa scaling factor (-fak). Since these values depend from each other,
  859. Xyou can not give more than two of these options. You should play with
  860. Xthese options to get the results you like. You will get pretty images
  861. Xif you use the -dpi and the -pw/-ph options together. Even if you
  862. Xuse the default values, the result will not be the same as without
  863. Xoptions. 
  864. X
  865. X
  866. X.PP
  867. X
  868. X.SH BUGS
  869. Xhpcdtoppm seems to ignore the read protection. :-)
  870. XThe informations i have are quite vague and this program
  871. Xwas developed by staring at the hex-dumps and the famous 
  872. Xtrial-and-error-method. If anything
  873. Xdoesn't work, please send me a report and perhaps you could try to
  874. Xfind out, why it doesn't work.
  875. X.SH "SEE ALSO"
  876. Xppm(5), ppmquant(1), ppmtopgm(1), ppmhist(1), pnmarith(1), ppmtorgb3(1), xv(1)
  877. X.SH AUTHOR
  878. XCopyright (c) 1992, 1993 by Hadmut Danisch (danisch@ira.uka.de).
  879. XPermission to use and distribute this software and its
  880. Xdocumentation for noncommercial use and without fee is hereby granted,
  881. Xprovided that the above copyright notice appear in all copies and that
  882. Xboth that copyright notice and this permission notice appear in
  883. Xsupporting documentation. It is not allowed to sell this software in 
  884. Xany way. This software is not public domain.
  885. END_OF_FILE
  886.   if test 6820 -ne `wc -c <'hpcdtoppm.0.5.pl1/hpcdtoppm.man'`; then
  887.     echo shar: \"'hpcdtoppm.0.5.pl1/hpcdtoppm.man'\" unpacked with wrong size!
  888.   fi
  889.   # end of 'hpcdtoppm.0.5.pl1/hpcdtoppm.man'
  890. fi
  891. if test -f 'hpcdtoppm.0.5.pl1/output.c' -a "${1}" != "-c" ; then 
  892.   echo shar: Will not clobber existing file \"'hpcdtoppm.0.5.pl1/output.c'\"
  893. else
  894.   echo shar: Extracting \"'hpcdtoppm.0.5.pl1/output.c'\" \(5153 characters\)
  895.   sed "s/^X//" >'hpcdtoppm.0.5.pl1/output.c' <<'END_OF_FILE'
  896. X/* hpcdtoppm (Hadmut's pcdtoppm) v0.5pl1
  897. X*  Copyright (c) 1992, 1993 by Hadmut Danisch (danisch@ira.uka.de).
  898. X*  Permission to use and distribute this software and its
  899. X*  documentation for noncommercial use and without fee is hereby granted,
  900. X*  provided that the above copyright notice appear in all copies and that
  901. X*  both that copyright notice and this permission notice appear in
  902. X*  supporting documentation. It is not allowed to sell this software in 
  903. X*  any way. This software is not public domain.
  904. X*/
  905. X
  906. X#include "hpcdtoppm.h"
  907. X
  908. X
  909. X
  910. X
  911. Xstatic void flip_corr(dim w,dim h,uBYTE **ptr,sdim *ystep,sdim *xstep)
  912. X {if(flvert) 
  913. X   { (*ptr) += (h-1)* (*ystep);
  914. X     (*ystep) = -(*ystep);
  915. X   }
  916. X
  917. X  if(flhori)
  918. X   {(*ptr) += (w-1)* (*xstep);
  919. X    (*xstep) = -(*xstep);
  920. X   }
  921. X }
  922. X
  923. X
  924. X
  925. X
  926. Xstatic void call_1plane(OUT1PL proc, FILE *fout,
  927. X                        dim w,    dim h,uBYTE * ptr,
  928. X                        sdim zeil, sdim pix) 
  929. X {
  930. X  flip_corr(w,h,&ptr,&zeil,&pix);
  931. X  (*proc)(fout,w,h,ptr,zeil,pix);
  932. X }
  933. X
  934. X
  935. X
  936. Xstatic void do_1plane(OUT1PL proc, FILE *fout,
  937. X                      dim w,dim h,implane *g,enum TURNS t)
  938. X {
  939. X   switch(t)
  940. X    {case T_NONE: call_1plane(proc,fout,w,h,g->im,g->mwidth,1);
  941. X                  break;
  942. X     case T_RIGHT:call_1plane(proc,fout,h,w,g->im + g->mwidth * ( g->iheight - 1) , 1 , -(g->mwidth));
  943. X                  break;
  944. X     case T_LEFT: call_1plane(proc,fout,h,w,g->im + g->iwidth - 1 , -1 , (g->mwidth));
  945. X                  break; 
  946. X     case T_HEAD: call_1plane(proc,fout,w,h,g->im + g->iwidth - 1 + g->mwidth * ( g->iheight - 1)  , -(g->mwidth) , -1);
  947. X                  break;     
  948. X     default:error(E_INTERN);
  949. X    }
  950. X
  951. X }
  952. X
  953. X
  954. X
  955. X
  956. X
  957. X
  958. X
  959. Xstatic void call_3plane(OUT3PL proc, FILE *fout,  dim w,dim h, 
  960. X                        uBYTE *rptr,sdim rzeil,sdim rpix,  
  961. X                        uBYTE *gptr,sdim gzeil,sdim gpix,  
  962. X                        uBYTE *bptr,sdim bzeil,sdim bpix) 
  963. X {
  964. X  flip_corr(w,h,&rptr,&rzeil,&rpix);
  965. X  flip_corr(w,h,&gptr,&gzeil,&gpix);
  966. X  flip_corr(w,h,&bptr,&bzeil,&bpix);
  967. X
  968. X  (*proc)(fout,w,h,rptr,rzeil,rpix,gptr,gzeil,gpix,bptr,bzeil,bpix );
  969. X }
  970. X
  971. X
  972. Xstatic void do_3plane(OUT3PL proc,FILE *fout,dim w,dim h,
  973. X                      implane *r,implane *g,implane *b,
  974. X                      enum TURNS t)
  975. X {
  976. X   switch(t)
  977. X    {case T_NONE: call_3plane(proc,fout,w,h,r->im,r->mwidth,1,
  978. X                                            g->im,g->mwidth,1,
  979. X                                            b->im,b->mwidth,1);
  980. X                  break;     
  981. X     case T_RIGHT:call_3plane(proc,fout,h,w,r->im + r->mwidth * ( r->iheight - 1) , 1 , -(r->mwidth),
  982. X                                            g->im + g->mwidth * ( g->iheight - 1) , 1 , -(g->mwidth),
  983. X                                            b->im + b->mwidth * ( b->iheight - 1) , 1 , -(b->mwidth));
  984. X                  break;     
  985. X     case T_LEFT: call_3plane(proc,fout,h,w,r->im + r->iwidth - 1 , -1 , (r->mwidth),
  986. X                                            g->im + g->iwidth - 1 , -1 , (g->mwidth),
  987. X                                            b->im + b->iwidth - 1 , -1 , (b->mwidth));
  988. X                  break;           
  989. X     case T_HEAD: call_3plane(proc,fout,w,h,r->im + r->iwidth - 1 + r->mwidth * ( r->iheight - 1)  , -(r->mwidth) , -1,
  990. X                                            g->im + g->iwidth - 1 + g->mwidth * ( g->iheight - 1)  , -(g->mwidth) , -1,
  991. X                                            b->im + b->iwidth - 1 + b->mwidth * ( b->iheight - 1)  , -(b->mwidth) , -1);
  992. X                  break;     
  993. X     default:error(E_INTERN);
  994. X    }
  995. X
  996. X }
  997. X
  998. X
  999. X
  1000. X
  1001. X
  1002. X
  1003. X
  1004. X
  1005. X
  1006. X
  1007. X
  1008. Xvoid writepicture(FILE *fout, sizeinfo *si, 
  1009. X                  implane *r,implane *g,implane *b,
  1010. X                  enum TURNS t)
  1011. X {dim w,h;
  1012. X
  1013. X  w=si->imhlen;
  1014. X  h=si->imvlen;
  1015. X
  1016. X  melde("writepicture\n");
  1017. X     if((!r) || (r->iwidth != w ) || (r->iheight != h) || (!r->im)) error(E_INTERN);
  1018. X  
  1019. X  if(!monochrome)
  1020. X   {
  1021. X     if((!g) || (g->iwidth != w ) || (g->iheight != h) || (!g->im)) error(E_INTERN);
  1022. X     if((!b) || (b->iwidth != w ) || (b->iheight != h) || (!b->im)) error(E_INTERN);
  1023. X   }
  1024. X
  1025. X  switch(outfor)
  1026. X   {case O_YCC:
  1027. X    case O_PPM:  do_3plane(write_ppm     ,fout,w,h,r,g,b,t); break;
  1028. X    case O_PS:   do_3plane(write_psrgb   ,fout,w,h,r,g,b,t); break;
  1029. X    case O_EPS:  do_3plane(write_epsrgb  ,fout,w,h,r,g,b,t); break;
  1030. X
  1031. X    case O_PGM:  do_1plane(write_pgm     ,fout,w,h,r,t);     break;
  1032. X    case O_PSG:  do_1plane(write_psgrey  ,fout,w,h,r,t);     break;
  1033. X    case O_EPSG: do_1plane(write_epsgrey ,fout,w,h,r,t);     break;
  1034. X    case O_PSD:  do_1plane(write_psdith  ,fout,w,h,r,t);     break;
  1035. X    case O_EPSD: do_1plane(write_epsdith ,fout,w,h,r,t);     break;
  1036. X    default: error(E_INTERN);
  1037. X   }
  1038. X
  1039. X
  1040. X }
  1041. X
  1042. X
  1043. X
  1044. X
  1045. X
  1046. X
  1047. X
  1048. X
  1049. X
  1050. Xstruct ph1 
  1051. X {char  id1[8];
  1052. X  uBYTE ww1[14];
  1053. X  char  id2[20];
  1054. X  char  id3[4*16+4];
  1055. X  short ww2;
  1056. X  char  id4[20];
  1057. X  uBYTE ww3[2*16+1];
  1058. X  char  id5[4*16];
  1059. X  uBYTE idx[11*16];
  1060. X } ;
  1061. X
  1062. X
  1063. Xvoid druckeid(void)
  1064. X{struct ph1 *d;
  1065. X char ss[100];
  1066. X
  1067. X d=(struct ph1 *)sbuffer;
  1068. X
  1069. X#define dr(feld,kennung)   \
  1070. X     strncpy(ss,feld,sizeof(feld));\
  1071. X     ss[sizeof(feld)]=0;\
  1072. X     fprintf(stderr,"%s: %s \n",kennung,ss);
  1073. X
  1074. X
  1075. Xdr(d->id1,"Id1")
  1076. Xdr(d->id2,"Id2")
  1077. Xdr(d->id3,"Id3")
  1078. Xdr(d->id4,"Id4")
  1079. Xdr(d->id5,"Id5")
  1080. X
  1081. X#undef dr 
  1082. X
  1083. X}
  1084. X
  1085. X
  1086. X
  1087. X
  1088. X
  1089. X
  1090. END_OF_FILE
  1091.   if test 5153 -ne `wc -c <'hpcdtoppm.0.5.pl1/output.c'`; then
  1092.     echo shar: \"'hpcdtoppm.0.5.pl1/output.c'\" unpacked with wrong size!
  1093.   fi
  1094.   # end of 'hpcdtoppm.0.5.pl1/output.c'
  1095. fi
  1096. if test -f 'hpcdtoppm.0.5.pl1/pcdindex' -a "${1}" != "-c" ; then 
  1097.   echo shar: Will not clobber existing file \"'hpcdtoppm.0.5.pl1/pcdindex'\"
  1098. else
  1099.   echo shar: Extracting \"'hpcdtoppm.0.5.pl1/pcdindex'\" \(4832 characters\)
  1100.   sed "s/^X//" >'hpcdtoppm.0.5.pl1/pcdindex' <<'END_OF_FILE'
  1101. X#!/bin/csh -f
  1102. X#
  1103. X# pcdindex - generate a single PPM file from a PCD overview file
  1104. X#
  1105. X# This script assumes that the PBMPLUS and hpcdtoppm software
  1106. X# packages are installed, and that /tmp has enough space
  1107. X# (worst case 150Kbyte per image).
  1108. X# Based on pnmindex (PBMPLUS), which was written by Jef Poskanzer,
  1109. X# this script makes also use of hpcdtoppm, written by Hadmut Danisch.
  1110. X#
  1111. X# A similar result can be achieved by using "hpcdtoppm -Overview"
  1112. X# followed by "pnmindex -black" on the generated PPM images.
  1113. X# This shell just makes it more convenient and transparent to
  1114. X# convert from one PCD to one PPM overview file.
  1115. X#
  1116. X# Additional options (compared to pnmindex) are -maxwidth and
  1117. X# -font <font>. See "man pbmtext" on how to create your own font.
  1118. X#
  1119. X# Pieter S. van der Meulen, 1992.
  1120. X
  1121. X# You may want to change the default values in the next 6 lines:
  1122. Xset maxwidth=1152    # maximum width of the index image
  1123. Xset size=192        # make the images about this big
  1124. Xset across=6        # show this many images per row
  1125. Xset colors="noquant"    # maximum amount of colors or noquant (no quantization)
  1126. Xset back="-black"    # default background color
  1127. Xset font=" "        # default font or none (pbmtext's internal font)
  1128. X
  1129. X# Parse the options
  1130. Xwhile ( 1 )
  1131. X    switch ( "$1" )
  1132. X
  1133. X    case -m*:
  1134. X    if ( $#argv < 2 ) goto usage
  1135. X    set maxwidth="$2"
  1136. X    shift
  1137. X    shift
  1138. X    breaksw
  1139. X
  1140. X    case -s*:
  1141. X    if ( $#argv < 2 ) goto usage
  1142. X    set size="$2"
  1143. X    shift
  1144. X    shift
  1145. X    breaksw
  1146. X
  1147. X    case -a*:
  1148. X    if ( $#argv < 2 ) goto usage
  1149. X    set across="$2"
  1150. X    shift
  1151. X    shift
  1152. X    breaksw
  1153. X
  1154. X    case -c*:
  1155. X    set colors="$2"
  1156. X    shift
  1157. X    shift
  1158. X    breaksw
  1159. X
  1160. X    case -f*:
  1161. X    set font="-font $2"
  1162. X    shift
  1163. X    shift
  1164. X    breaksw
  1165. X
  1166. X    case -b*:
  1167. X    set back="-black"
  1168. X    shift
  1169. X    breaksw
  1170. X
  1171. X    case -w*:
  1172. X    set back="-white"
  1173. X    shift
  1174. X    breaksw
  1175. X
  1176. X    case -*:
  1177. X    echo "$0 : Unknown option $1"
  1178. X    echo " "
  1179. X    goto usage
  1180. X    breaksw
  1181. X
  1182. X    default:
  1183. X    break
  1184. X    breaksw
  1185. X
  1186. X    endsw
  1187. Xend
  1188. X
  1189. Xif ( $#argv == 0 ) then
  1190. X    goto usage
  1191. Xendif
  1192. X
  1193. Xset tmpfile=/tmp/pi.tmp.$$
  1194. Xrm -f $tmpfile
  1195. Xtouch /tmp/img0001 # Avoid complaints about non matching
  1196. Xrm -f /tmp/img*
  1197. X
  1198. Xset rowfiles=()
  1199. Xset imagefiles=()
  1200. X@ row = 1
  1201. X@ col = 1
  1202. X@ width = $size
  1203. X
  1204. X# Convert the PCD overview file to many PPM images
  1205. Xif (-f $1) then
  1206. X    hpcdtoppm -Overview $1 /tmp/img
  1207. Xelse
  1208. X    echo "$0 : Could not access $1"
  1209. X    echo " "
  1210. X    goto usage
  1211. Xendif
  1212. X
  1213. Xforeach i ( /tmp/img* )
  1214. X
  1215. Xif (-f $i) then
  1216. X    set description=`pnmfile $i`
  1217. X    if ( $description[4] <= $size && $description[6] <= $size ) then
  1218. X    cat $i > $tmpfile
  1219. X    else
  1220. X        if ( $colors =~ n* ) then
  1221. X        pnmscale -quiet -xysize $size $size $i > $tmpfile
  1222. X        else
  1223. X        pnmscale -quiet -xysize $size $size $i | ppmquant -quiet $colors > $tmpfile
  1224. X        endif
  1225. X    endif
  1226. X    set imagefile=/tmp/pi.${row}.${col}.$$
  1227. X    rm -f $imagefile
  1228. X    set ttext=$i:t
  1229. X    if ( "$back" == "-white" ) then
  1230. X    pbmtext $font "$ttext" | pnmcrop -quiet | pnmmargin -white 2| pnmcat $back -tb $tmpfile - > $imagefile
  1231. X    else
  1232. X    pbmtext $font "$ttext" | pnmcrop -quiet | pnmmargin -white 2 | pnminvert | pnmcat $back -tb $tmpfile - > $imagefile
  1233. X    endif
  1234. X    rm -f $tmpfile
  1235. X    set description=`pnmfile $imagefile`
  1236. X    @ width += $description[4]
  1237. X    set imagefiles=( $imagefiles $imagefile )
  1238. X
  1239. X    if (( $col >= $across ) || ( $width > $maxwidth)) then
  1240. X    set rowfile=/tmp/pi.${row}.$$
  1241. X    rm -f $rowfile
  1242. X    if ( $colors =~ n* ) then
  1243. X        pnmcat $back -lr -jbottom $imagefiles > $rowfile
  1244. X    else
  1245. X        pnmcat $back -lr -jbottom $imagefiles | ppmquant -quiet $colors > $rowfile
  1246. X    endif
  1247. X    rm -f $imagefiles
  1248. X    set imagefiles=()
  1249. X    set rowfiles=( $rowfiles $rowfile )
  1250. X    @ col = 1
  1251. X    @ row += 1
  1252. X    @ width = $size
  1253. X    else
  1254. X    @ col += 1
  1255. X    endif
  1256. Xendif
  1257. X
  1258. Xend
  1259. X
  1260. Xif ( $#imagefiles > 0 ) then
  1261. X    set rowfile=/tmp/pi.${row}.$$
  1262. X    rm -f $rowfile
  1263. X    if ( $colors =~ n* ) then
  1264. X    pnmcat $back -lr -jbottom $imagefiles > $rowfile
  1265. X    else
  1266. X    pnmcat $back -lr -jbottom $imagefiles | ppmquant -quiet $colors > $rowfile
  1267. X    endif
  1268. X    rm -f $imagefiles
  1269. X    set rowfiles=( $rowfiles $rowfile )
  1270. Xendif
  1271. X
  1272. Xif ( $#rowfiles == 1 ) then
  1273. X    cat $rowfiles
  1274. Xelse
  1275. X    if ( $colors =~ n* ) then
  1276. X    pnmcat $back -tb $rowfiles
  1277. X    else
  1278. X    pnmcat $back -tb $rowfiles | ppmquant -quiet $colors
  1279. X    endif
  1280. Xendif
  1281. Xrm -f $rowfiles
  1282. Xrm -f /tmp/img*
  1283. X
  1284. Xexit 0
  1285. X
  1286. Xusage:
  1287. X    echo "Usage: $0 [-m W] [-s S] [-a A] [-c N|n] [-f F] [-b|-w] <overview.pcd>"
  1288. X    echo " with"
  1289. X    echo "    W = maximum width of the result image    (default: $maxwidth)"
  1290. X    echo "    S = maximum size of each of the images    (default: $size)"
  1291. X    echo "    A = maximum number of images across    (default: $across)"
  1292. X    echo "    N = maximum number of colors or noquant    (default: $colors)"
  1293. X    echo -n "    F = font to be used for annotation      (default: "
  1294. X    if ( "$font" == " " ) then
  1295. X    echo "internal font)"
  1296. X    else
  1297. X    echo "$font)"
  1298. X    endif
  1299. X    echo "    -b/-w = black/white background color    (default: $back)"
  1300. X    echo " "
  1301. X    echo " e.g.: $0 -m 768 -s 96 -f smallfont.pbm overview.pcd > overview.ppm"
  1302. X    echo " or  : $0 /cdrom/photo_cd/overview.pcd | cjpeg > overview.jpg"
  1303. Xexit 1
  1304. X
  1305. X
  1306. END_OF_FILE
  1307.   if test 4832 -ne `wc -c <'hpcdtoppm.0.5.pl1/pcdindex'`; then
  1308.     echo shar: \"'hpcdtoppm.0.5.pl1/pcdindex'\" unpacked with wrong size!
  1309.   fi
  1310.   chmod +x 'hpcdtoppm.0.5.pl1/pcdindex'
  1311.   # end of 'hpcdtoppm.0.5.pl1/pcdindex'
  1312. fi
  1313. if test -f 'hpcdtoppm.0.5.pl1/postscr.c' -a "${1}" != "-c" ; then 
  1314.   echo shar: Will not clobber existing file \"'hpcdtoppm.0.5.pl1/postscr.c'\"
  1315. else
  1316.   echo shar: Extracting \"'hpcdtoppm.0.5.pl1/postscr.c'\" \(10071 characters\)
  1317.   sed "s/^X//" >'hpcdtoppm.0.5.pl1/postscr.c' <<'END_OF_FILE'
  1318. X/* hpcdtoppm (Hadmut's pcdtoppm) v0.5pl1
  1319. X*  Copyright (c) 1992, 1993 by Hadmut Danisch (danisch@ira.uka.de).
  1320. X*  Permission to use and distribute this software and its
  1321. X*  documentation for noncommercial use and without fee is hereby granted,
  1322. X*  provided that the above copyright notice appear in all copies and that
  1323. X*  both that copyright notice and this permission notice appear in
  1324. X*  supporting documentation. It is not allowed to sell this software in 
  1325. X*  any way. This software is not public domain.
  1326. X*/
  1327. X
  1328. X#include "hpcdtoppm.h"
  1329. X#define DITH_NEUTR 128
  1330. X
  1331. XFLTPT PAPER_LEFT    =DEF_PAPER_LEFT;
  1332. XFLTPT PAPER_BOTTOM  =DEF_PAPER_BOTTOM;
  1333. XFLTPT PAPER_WIDTH   =DEF_PAPER_WIDTH;
  1334. XFLTPT PAPER_HEIGHT  =DEF_PAPER_HEIGHT;
  1335. XFLTPT PRINTER_XDPI  =DEF_DPI;
  1336. XFLTPT PRINTER_YDPI  =DEF_DPI;
  1337. XFLTPT PRINTER_FAK   =1.0;
  1338. XsINT  PSIZE_SET=0,DPI_SET=0,FAK_SET=0;
  1339. X
  1340. X
  1341. Xstatic char pshdr[]="%%Creator: hpcdtoppm v0.5pl1\n";
  1342. Xstatic char hex[]="0123456789ABCDEF";
  1343. X#define HEX(x) {fputc(hex[((x)>>4)&0xf],fout);fputc(hex[(x)&0xf],fout);}
  1344. X
  1345. X
  1346. X/* find an appropriate scaling coefficient and generate a ps header
  1347. X * including a BoundingBox comment and a translate/scale sequence to 
  1348. X * fit the pixw*pixh image into a square on paper with PS user coordinates 
  1349. X * x,y,w,h 
  1350. X */
  1351. Xstatic void size_dependant(FILE *fout,sINT pixw,sINT pixh,
  1352. X                           FLTPT x,FLTPT y,FLTPT w,FLTPT h)
  1353. X{ FLTPT scale=(FLTPT)w/pixw,scaley=(FLTPT)h/pixh;
  1354. X
  1355. X  if(scale>scaley) scale=scaley;
  1356. X  x+=w/2.0;y+=h/2.0;
  1357. X  fprintf(fout,"%%%%BoundingBox: %.8g %.8g %.8g %.8g\n",
  1358. X     x-scale*pixw/2.0,y-scale*pixh/2.0,
  1359. X     x+scale*pixw/2.0,y+scale*pixh/2.0);
  1360. X  fprintf(fout,"%s",pshdr);
  1361. X  fputs("%%Pages: 1 1\n",fout);
  1362. X
  1363. X  if(pcdname) fprintf(fout,"%%%%Title: %s\n",pcdname);
  1364. X  fputs("%%EndComments\n\n",fout);
  1365. X
  1366. X  fprintf(fout,"%f %f translate\n",x-scale*pixw/2.0,y-scale*pixh/2.0);
  1367. X  fprintf(fout,"%f %f scale\n",scale*pixw,scale*pixh);
  1368. X}
  1369. X
  1370. X
  1371. X
  1372. Xstatic void end_postscript(FILE *fout)
  1373. X {
  1374. X  fputs("%%EOF\n\n",fout);
  1375. X }
  1376. X
  1377. X
  1378. X
  1379. X
  1380. Xstatic void sub_psgrey(FILE *fout,dim w,dim h, uBYTE *ptr,sdim zeil,sdim pix)
  1381. X{ dim x,y;
  1382. X  register uBYTE *p;
  1383. X  sINT c;
  1384. X
  1385. X  size_dependant(fout,w,h,PAPER_LEFT,PAPER_BOTTOM,PAPER_WIDTH,PAPER_HEIGHT);
  1386. X  fprintf(fout,"%ld string\n",w);
  1387. X  fprintf(fout,"%ld %ld 8\n",w,h);    /* always 8 bit per channel */
  1388. X  fprintf(fout,"[%ld 0 0 %ld 0 %ld]\n",w,-h,h);
  1389. X  fputs("{currentfile 1 index readhexstring pop} image\n",fout);
  1390. X  
  1391. X  c=0;
  1392. X  for(y=0;y<h;y++,ptr+=zeil)
  1393. X    for(p=ptr,x=0;x<w;x++,p+=pix)
  1394. X      {HEX(*p);
  1395. X       if(!(++c % 36)) fputs("\n",fout);
  1396. X      }
  1397. X
  1398. X  fputs("\npop\n\n",fout);
  1399. X}
  1400. X
  1401. X
  1402. X
  1403. X
  1404. X
  1405. X
  1406. X
  1407. Xvoid write_epsgrey(FILE *fout,dim w,dim h, uBYTE *ptr,sdim zeil,sdim pix)
  1408. X{ 
  1409. X  fputs("%!PS-Adobe-2.0 EPSF-2.0\n",fout);
  1410. X  sub_psgrey(fout,w,h, ptr,zeil,pix);
  1411. X  end_postscript(fout);
  1412. X}
  1413. X
  1414. Xvoid write_psgrey(FILE *fout,dim w,dim h, uBYTE *ptr,sdim zeil,sdim pix)
  1415. X{ 
  1416. X  fputs("%!PS-Adobe-2.0\n",fout);
  1417. X  sub_psgrey(fout,w,h, ptr,zeil,pix);
  1418. X  fputs("showpage\n",fout);
  1419. X  end_postscript(fout);
  1420. X}
  1421. X
  1422. X
  1423. X
  1424. X
  1425. X
  1426. X
  1427. X
  1428. X
  1429. X
  1430. X
  1431. X
  1432. Xstatic void sub_psrgb(FILE *fout,dim w,dim h, 
  1433. X                      uBYTE *rptr,sdim rzeil,sdim rpix,  
  1434. X              uBYTE *gptr,sdim gzeil,sdim gpix,  
  1435. X              uBYTE *bptr,sdim bzeil,sdim bpix) 
  1436. X{ dim x,y;
  1437. X  register uBYTE *pr,*pg,*pb;
  1438. X  sINT c;
  1439. X
  1440. X  size_dependant(fout,w,h,PAPER_LEFT,PAPER_BOTTOM,PAPER_WIDTH,PAPER_HEIGHT);
  1441. X  fprintf(fout,"%ld string\n",w*3);
  1442. X  fprintf(fout,"%ld %ld 8\n",w,h);    /* always 8 bit per channel */
  1443. X  fprintf(fout,"[%ld 0 0 %ld 0 %ld]\n",w,-h,h);
  1444. X  fputs("{currentfile 1 index readhexstring pop} false 3 colorimage\n",fout);
  1445. X  
  1446. X  c=0; 
  1447. X  for(y=0;y<h;y++,rptr+=rzeil,gptr+=gzeil,bptr+=bzeil)
  1448. X    for(pr=rptr,pg=gptr,pb=bptr,x=0;x<w;x++,pr+=rpix,pg+=gpix,pb+=bpix)
  1449. X      {HEX(*pr);HEX(*pg);HEX(*pb);
  1450. X       if(!(++c % 12)) fputs("\n",fout);
  1451. X      }
  1452. X
  1453. X  fputs("\npop\n\n",fout);
  1454. X}
  1455. X
  1456. X
  1457. Xvoid write_epsrgb(FILE *fout,dim w,dim h, 
  1458. X                      uBYTE *rptr,sdim rzeil,sdim rpix,  
  1459. X              uBYTE *gptr,sdim gzeil,sdim gpix,  
  1460. X              uBYTE *bptr,sdim bzeil,sdim bpix) 
  1461. X{ 
  1462. X  fputs("%!PS-Adobe-2.0 EPSF-2.0\n",fout);
  1463. X  sub_psrgb(fout,w,h, rptr,rzeil,rpix,gptr,gzeil,gpix,bptr,bzeil,bpix);
  1464. X  end_postscript(fout);
  1465. X}
  1466. X
  1467. X
  1468. X
  1469. Xvoid write_psrgb(FILE *fout,dim w,dim h, 
  1470. X                      uBYTE *rptr,sdim rzeil,sdim rpix,  
  1471. X              uBYTE *gptr,sdim gzeil,sdim gpix,  
  1472. X              uBYTE *bptr,sdim bzeil,sdim bpix) 
  1473. X{ 
  1474. X  fputs("%!PS-Adobe-2.0\n",fout);
  1475. X  sub_psrgb(fout,w,h, rptr,rzeil,rpix,gptr,gzeil,gpix,bptr,bzeil,bpix);
  1476. X  fputs("showpage\n",fout);
  1477. X  end_postscript(fout);
  1478. X}
  1479. X
  1480. X
  1481. X
  1482. X
  1483. X
  1484. X
  1485. X
  1486. X
  1487. X
  1488. Xtypedef sINT dt;
  1489. Xextern sINT dithtab[];
  1490. X#define DS 4
  1491. X#define DA (1<<(DS-1))
  1492. X#define DT 127
  1493. X
  1494. Xstatic void fakcopy(dim worig,dim horig, uBYTE *ptr1,sdim zeil,sdim pix,
  1495. X                    sdim wx,sINT zn,dt *dest)
  1496. X {FLTPT owf,ohf,wbruch,hbruch,m1,m2,ha,hb;
  1497. X  dim   owd,ohd,x;
  1498. X  uBYTE *ptr2;
  1499. X  sINT  md;
  1500. X  
  1501. X  ohf=zn/PRINTER_FAK;
  1502. X  ohd=(dim)ohf;
  1503. X  hbruch=ohf-(FLTPT)ohd;
  1504. X  if(ohd>=horig) error(E_INTERN);
  1505. X
  1506. X  ptr1+=zeil*ohd;
  1507. X  ptr2= (ohd < horig - 1) ? ptr1+zeil : ptr1;
  1508. X
  1509. X  dest[-1]=DITH_NEUTR;
  1510. X
  1511. X  for(x=0;x<wx;x++)
  1512. X   {owf=x/PRINTER_FAK;
  1513. X    owd=(dim)owf;
  1514. X    wbruch=owf-(FLTPT)owd;
  1515. X    if(owd>=worig) error(E_INTERN);
  1516. X
  1517. X    if(owd<worig-1)
  1518. X     {ha=(FLTPT)ptr1[owd*pix];
  1519. X      hb=(FLTPT)ptr1[(owd+1)*pix];
  1520. X      m1=ha+wbruch*(hb-ha);
  1521. X
  1522. X      ha=(FLTPT)ptr2[owd*pix];
  1523. X      hb=(FLTPT)ptr2[(owd+1)*pix];
  1524. X      m2=ha+wbruch*(hb-ha);
  1525. X     }
  1526. X    else
  1527. X     { m1=(FLTPT)ptr1[owd*pix];
  1528. X       m2=(FLTPT)ptr2[owd*pix];
  1529. X     }
  1530. X    md=(sINT)(m1+hbruch*(m2-m1));
  1531. X    if(md<0 || md>255) {fprintf(stderr,"md %d\n",md); error(E_INTERN);}
  1532. X    *(dest++)=dithtab[md];
  1533. X
  1534. X   }
  1535. X  
  1536. X  dest[0]=DITH_NEUTR;
  1537. X }
  1538. X
  1539. Xstatic void sub_psdith(FILE *fout,dim worig,dim horig, uBYTE *ptr,sdim zeil,sdim pix)
  1540. X{ register uBYTE *p;
  1541. X  sINT c,i,ii,j,reg,bit;
  1542. X  dt new,diff;
  1543. X  dt *dP1,*dP2,*akt,*nex,*help,*rrun;
  1544. X  dim ww=0,wl=0,wr=0,hh=0,ho=0,hu=0,wx=0,hx=0;
  1545. X  int ccase;
  1546. X  FLTPT PW=0.0,PH=0.0;
  1547. X
  1548. X#define copy(n,d) {if(FAK_SET) fakcopy(worig,horig,ptr,zeil,pix,wx,n,d); \
  1549. X                   else{p=ptr+((n)*zeil); rrun=d;\
  1550. X                        for(ii=0;ii<wx;ii++,p+=pix,rrun++) *rrun = dithtab[*p]; \
  1551. X                        d[-1]=d[wx]=DITH_NEUTR; }}
  1552. X
  1553. X
  1554. X#define pr(x) { reg= (reg<<1) | x; bit++;    \
  1555. X     if(bit==8) {HEX(reg);   \
  1556. X                 if(!(++c % 36)) fputs("\n",fout);\
  1557. X                 bit=reg=0;}}
  1558. X
  1559. X#define flush { while(bit) pr(1); }
  1560. X#define fill pr(1)
  1561. X
  1562. X
  1563. X
  1564. X#define MakeFit(wi,he) {  ww=(wi+7) & (~7);   wl=(ww-wi)/2;  wr=ww-wi-wl; \
  1565. X                          hh=(he+7) & (~7);   ho=(hh-he)/2;  hu=hh-he-ho; }
  1566. X
  1567. X
  1568. X  
  1569. X  ccase=( FAK_SET   ? 4 : 0 ) |
  1570. X        ( DPI_SET   ? 2 : 0 ) |
  1571. X        ( PSIZE_SET ? 1 : 0 ) ;
  1572. X
  1573. X 
  1574. X  switch (ccase)
  1575. X   {case 0: /*  no option or -dpi option */
  1576. X    case 2: hx=horig;
  1577. X            wx=worig;
  1578. X            MakeFit(wx,hx);
  1579. X            PW=ww*72.0/PRINTER_XDPI;
  1580. X            PH=hh*72.0/PRINTER_YDPI;
  1581. X            break;
  1582. X
  1583. X    case 1: /* paper size set with -pw and/or -ph */
  1584. X            hx=horig;
  1585. X            wx=worig;
  1586. X            MakeFit(wx,hx);
  1587. X            PW=PAPER_WIDTH;
  1588. X            PH=PAPER_HEIGHT;
  1589. X            break;
  1590. X
  1591. X    case 6: /* -fak option (and perhaps -dpi) */
  1592. X    case 4: hx=PRINTER_FAK*horig+0.5;
  1593. X            wx=PRINTER_FAK*worig+0.5;
  1594. X            MakeFit(wx,hx);
  1595. X            PW=ww*72.0/PRINTER_XDPI;
  1596. X            PH=hh*72.0/PRINTER_YDPI; 
  1597. X            break;
  1598. X
  1599. X    case 5: /* -fak and papersize */
  1600. X            hx=PRINTER_FAK*horig+0.5;
  1601. X            wx=PRINTER_FAK*worig+0.5;
  1602. X            MakeFit(wx,hx);
  1603. X            PW=PAPER_WIDTH;
  1604. X            PH=PAPER_HEIGHT;
  1605. X            break;
  1606. X
  1607. X    case 3: /* papersize and dpi set, probably the most important case */
  1608. X            PW=PAPER_WIDTH;
  1609. X            PH=PAPER_HEIGHT;
  1610. X
  1611. X            FAK_SET=1;
  1612. X            {FLTPT fw,fh;
  1613. X             fw=PW/72.0*PRINTER_XDPI/worig;
  1614. X             fh=PH/72.0*PRINTER_YDPI/horig;
  1615. X             PRINTER_FAK=MIN(fw,fh);
  1616. X            }
  1617. X            hx=PRINTER_FAK*horig+0.5;
  1618. X            wx=PRINTER_FAK*worig+0.5;
  1619. X            MakeFit(wx,hx);
  1620. X            PW=ww*72.0/PRINTER_XDPI;
  1621. X            PH=hh*72.0/PRINTER_YDPI; 
  1622. X            break;
  1623. X
  1624. X
  1625. X    case 7: /* size, dpi and factor set, this case should have been
  1626. X               cought earlier... */
  1627. X    default: error(E_INTERN);
  1628. X   };
  1629. X
  1630. X  if(FAK_SET && (PRINTER_FAK<=0.0  || PRINTER_FAK >=1000.0)) error(E_PRPAR);
  1631. X  if(PW<=0.0 || PH<=0.0) error(E_PRPAR);
  1632. X
  1633. X  if(wx < 4 || hx < 4) error(E_PRPAR);
  1634. X
  1635. X
  1636. X  if (!(dP1=(dt *)malloc((wx+2)*sizeof(dt)))) error(E_MEM);
  1637. X  if (!(dP2=(dt *)malloc((wx+2)*sizeof(dt)))) error(E_MEM);
  1638. X
  1639. X
  1640. X
  1641. X  size_dependant(fout,ww,hh,PAPER_LEFT,PAPER_BOTTOM,PW,PH);
  1642. X
  1643. X  fprintf(fout,"%ld string\n",ww);
  1644. X  fprintf(fout,"%ld %ld 1\n",ww,hh);    /* always 8 bit per channel */
  1645. X  fprintf(fout,"[%ld 0 0 %ld 0 %ld]\n",ww,-hh,hh);
  1646. X  fputs("{currentfile 1 index readhexstring pop} image\n",fout);
  1647. X  
  1648. X  c=bit=reg=0;
  1649. X  akt=dP1+1;
  1650. X  nex=dP2+1;
  1651. X
  1652. X  for(i=0;i<ho;i++)
  1653. X    for(j=0;j<ww;j++)
  1654. X      fill;
  1655. X
  1656. X  copy(0,nex);
  1657. X  for(i=0;i<hx;i++)
  1658. X   {help=akt; akt=nex; nex=help;
  1659. X    if(i<hx-1) copy(i+1,nex);
  1660. X
  1661. X    if(i&1)
  1662. X      for(j=0;j<wx;j++)
  1663. X       { new=akt[j]>DT ? 255 : 0;
  1664. X         diff = akt[j]-new;
  1665. X         akt[j]=new;
  1666. X         akt[j+1]+=(diff*7 + DA)>>DS;
  1667. X         nex[j+1]+=(diff   + DA)>>DS;
  1668. X         nex[j  ]+=(diff*5 + DA)>>DS;
  1669. X         nex[j-1]+=(diff*3 + DA)>>DS;
  1670. X       }
  1671. X    else
  1672. X      for(j=wx-1;j>=0;j--)
  1673. X       { new=akt[j]>DT ? 255 : 0;
  1674. X         diff = akt[j]-new;
  1675. X         akt[j]=new;
  1676. X         akt[j-1]+=(diff*7 + DA)>>DS;
  1677. X         nex[j-1]+=(diff   + DA)>>DS;
  1678. X         nex[j  ]+=(diff*5 + DA)>>DS;
  1679. X         nex[j+1]+=(diff*3 + DA)>>DS;
  1680. X       }
  1681. X
  1682. X
  1683. X    for(j=0;j<wl;j++) fill;
  1684. X
  1685. X    for(j=0;j<wx;j++)
  1686. X     {if (akt[j]>DT) { pr(1); }
  1687. X      else           { pr(0); }
  1688. X     }
  1689. X
  1690. X    for(j=0;j<wr;j++) fill;
  1691. X
  1692. X    flush;
  1693. X   }
  1694. X
  1695. X  for(i=0;i<hu;i++)
  1696. X    for(j=0;j<ww;j++)
  1697. X      fill;
  1698. X  flush;
  1699. X
  1700. X  fputs("\npop\n\n",fout);
  1701. X  free(dP1);
  1702. X  free(dP2);
  1703. X}
  1704. X
  1705. X
  1706. Xvoid write_epsdith(FILE *fout,dim w,dim h, uBYTE *ptr,sdim zeil,sdim pix)
  1707. X{ 
  1708. X  fputs("%!PS-Adobe-2.0 EPSF-2.0\n",fout);
  1709. X  sub_psdith(fout,w,h, ptr,zeil,pix);
  1710. X  end_postscript(fout);
  1711. X}
  1712. X
  1713. Xvoid write_psdith(FILE *fout,dim w,dim h, uBYTE *ptr,sdim zeil,sdim pix)
  1714. X{ 
  1715. X  fputs("%!PS-Adobe-2.0\n",fout);
  1716. X  sub_psdith(fout,w,h, ptr,zeil,pix);
  1717. X  fputs("showpage\n",fout);
  1718. X  end_postscript(fout);
  1719. X}
  1720. X
  1721. X
  1722. X
  1723. END_OF_FILE
  1724.   if test 10071 -ne `wc -c <'hpcdtoppm.0.5.pl1/postscr.c'`; then
  1725.     echo shar: \"'hpcdtoppm.0.5.pl1/postscr.c'\" unpacked with wrong size!
  1726.   fi
  1727.   # end of 'hpcdtoppm.0.5.pl1/postscr.c'
  1728. fi
  1729. echo shar: End of archive 2 \(of 3\).
  1730. cp /dev/null ark2isdone
  1731. MISSING=""
  1732. for I in 1 2 3 ; do
  1733.     if test ! -f ark${I}isdone ; then
  1734.     MISSING="${MISSING} ${I}"
  1735.     fi
  1736. done
  1737. if test "${MISSING}" = "" ; then
  1738.     echo You have unpacked all 3 archives.
  1739.     rm -f ark[1-9]isdone
  1740. else
  1741.     echo You still must unpack the following archives:
  1742.     echo "        " ${MISSING}
  1743. fi
  1744. exit 0
  1745. exit 0 # Just in case...
  1746.