2022-05-08 10:47:53 +02:00
|
|
|
_____________________________________________________________________________
|
|
|
|
|
|
|
|
PASJPEG 1.1 May 29th, 1999
|
|
|
|
|
|
|
|
Based on the Independent JPEG Group's JPEG software release 6b
|
|
|
|
|
|
|
|
Copyright (C) 1996,1998,1999 by NOMSSI NZALI Jacques H. C.
|
|
|
|
[kn&n DES] See "Legal issues" for conditions of distribution and use.
|
|
|
|
_____________________________________________________________________________
|
|
|
|
|
|
|
|
|
|
|
|
Information in this file
|
|
|
|
========================
|
|
|
|
|
|
|
|
o Introduction
|
|
|
|
o Notes
|
|
|
|
o File list
|
|
|
|
o Translation
|
|
|
|
o Legal issues
|
|
|
|
o Archive Locations
|
|
|
|
|
|
|
|
Introduction
|
|
|
|
============
|
|
|
|
|
|
|
|
PASJPEG is a port of the sixth public release of the IJG C source (release
|
|
|
|
6b of 27-Mar-98) [3], that implements JPEG baseline, extended-sequential, and
|
|
|
|
progressive compression processes to Turbo Pascal 7.0 for DOS (TP). The code
|
|
|
|
has been tested under Delphi 3.0, it can be ported to other Pascal
|
|
|
|
environments, since many compilers try to be compatible to TP.
|
|
|
|
|
|
|
|
JPEG (pronounced "jay-peg") is a standardized familly of algorithms for
|
|
|
|
compression of continous tone still images. Most JPEG processes are lossy,
|
|
|
|
the output image is not exactly identical to the input image. However, on
|
|
|
|
typical photographic images, very good compression levels can be obtained
|
|
|
|
with no visible change, and remarkably high compression levels are possible
|
|
|
|
if you can tolerate a low-quality image [1],[2]. The Independent JPEG Group
|
|
|
|
(IJG) has created a free, portable C library for JPEG compression and
|
|
|
|
decompression of JPEG images.
|
|
|
|
|
|
|
|
The IJG documentation (system architecture, using the IJG JPEG library,
|
|
|
|
usage and file list) is a must read. The files DEMO.PAS, TEST.PAS, CJPEG.PAS,
|
|
|
|
DJPEG.PAS and EXAMPLE.PAS demonstrate the usage of the JPEG decompression
|
|
|
|
and compression library. The RDJPGCOM application shows how to parse a JFIF
|
|
|
|
file.
|
|
|
|
|
|
|
|
Notes:
|
|
|
|
======
|
|
|
|
|
|
|
|
* Please report any errors/problems you may find in code and in the
|
|
|
|
documentation (e.g. this README.TXT file).
|
|
|
|
|
|
|
|
* The sample applications (CJPEG, DJPEG) doesn't support all the options
|
|
|
|
of the original C code. WRJPGCOM is not ported.
|
|
|
|
|
|
|
|
* Environment variable JPEGMEM syntax changed;
|
|
|
|
|
|
|
|
* You can modify the jpeg.pas unit from the Delphi 3 distribution to
|
|
|
|
use PasJPEG.
|
|
|
|
|
|
|
|
Change log
|
|
|
|
==========
|
|
|
|
|
|
|
|
1. bugs fixed:
|
|
|
|
* in procedure read_gif_map(), unit RDCOLMAP.PAS (used by DJPEG sample
|
|
|
|
application). Davie Lee Reed <smatters@iquest.net>
|
|
|
|
* -dct int and -dct fast now bytewise equal to the IJG output.
|
|
|
|
* -dct float produced large files
|
|
|
|
|
|
|
|
2. Support for scripts
|
|
|
|
|
|
|
|
3. BASM version of JIDCTINT.PAS for Delphi 2 and 3.
|
|
|
|
|
|
|
|
4. images with integral sampling ratios were not decoded correctly.
|
|
|
|
Create a jpeg file with cjpeg and the option "-sample 4x1" and try to decode
|
|
|
|
it with any software that uses PasJpeg. Thanks to Jannie Gerber for reporting
|
|
|
|
this with a fix: In JDSAMPLE.PAS, procedure int_upsample(),
|
|
|
|
|
|
|
|
for h := pred(h_expand) downto 0 do
|
|
|
|
begin
|
|
|
|
outptr^ := invalue;
|
|
|
|
+=> inc(outptr); { this is the culprit that was left out!!! }
|
|
|
|
Dec(outcount);
|
|
|
|
end;
|
|
|
|
|
|
|
|
File list
|
|
|
|
=========
|
|
|
|
|
|
|
|
Here is a road map to the files in the PasJPEG distribution. The
|
|
|
|
distribution includes the JPEG library proper, plus two application
|
|
|
|
programs ("cjpeg" and "djpeg") which use the library to convert JPEG
|
|
|
|
files to and from some other popular image formats. A third application
|
|
|
|
"jpegtran" uses the library to do lossless conversion between different
|
|
|
|
variants of JPEG. There is also the stand-alone applications "rdjpgcom".
|
|
|
|
|
|
|
|
Documentation(see README for a guide to the documentation files):
|
|
|
|
|
|
|
|
readme.txt Introduction, Documentation
|
|
|
|
|
|
|
|
Additional files
|
|
|
|
|
|
|
|
demo.pas Demo program, uses example.pas
|
|
|
|
example.pas Sample code for calling JPEG library.
|
|
|
|
test.pas Sample application code for demo.pas
|
|
|
|
|
|
|
|
Configuration/installation files and programs (see install.doc for more info):
|
|
|
|
|
|
|
|
jconfig.inc Configuration declarations.
|
|
|
|
|
|
|
|
*.ijg script files
|
|
|
|
|
|
|
|
Pascal source code files:
|
|
|
|
|
|
|
|
jinclude.pas Central include file used by all IJG .c files to reference
|
|
|
|
system include files.
|
|
|
|
jpeglib.pas JPEG library's internal data structures, exported data
|
|
|
|
and function declarations.
|
|
|
|
jmorecfg.pas Additional configuration declarations; need not be changed
|
|
|
|
for a standard installation.
|
|
|
|
jdeferr.pas defines the error and message text.
|
|
|
|
jerror.pas Declares JPEG library's error and trace message codes.
|
|
|
|
jinclude.pas the place to specify system depedent input/output code.
|
|
|
|
jdct.pas Private declarations for forward & reverse DCT subsystems.
|
|
|
|
|
|
|
|
These files contain most of the functions intended to be called directly by
|
|
|
|
an application program:
|
|
|
|
|
|
|
|
jcapimin.pas Application program interface: core routines for compression.
|
|
|
|
jcapistd.pas Application program interface: standard compression.
|
|
|
|
jdapimin.pas Application program interface: core routines for decompression.
|
|
|
|
jdapistd.pas Application program interface: standard decompression.
|
|
|
|
jcomapi.pas Application program interface routines common to compression
|
|
|
|
and decompression.
|
|
|
|
jcparam.pas Compression parameter setting helper routines.
|
|
|
|
jctrans.pas API and library routines for transcoding compression.
|
|
|
|
jdtrans.pas API and library routines for transcoding decompression.
|
|
|
|
|
|
|
|
Compression side of the library:
|
|
|
|
|
|
|
|
jcinit.pas Initialization: determines which other modules to use.
|
|
|
|
jcmaster.pas Master control: setup and inter-pass sequencing logic.
|
|
|
|
jcmainct.pas Main buffer controller (preprocessor => JPEG compressor).
|
|
|
|
jcprepct.pas Preprocessor buffer controller.
|
|
|
|
jccoefct.pas Buffer controller for DCT coefficient buffer.
|
|
|
|
jccolor.pas Color space conversion.
|
|
|
|
jcsample.pas Downsampling.
|
|
|
|
jcdctmgr.pas DCT manager (DCT implementation selection & control).
|
|
|
|
jfdctint.pas Forward DCT using slow-but-accurate integer method.
|
|
|
|
jfdctfst.pas Forward DCT using faster, less accurate integer method.
|
|
|
|
jfdctflt.pas Forward DCT using floating-point arithmetic.
|
|
|
|
jchuff.pas Huffman entropy coding for sequential JPEG.
|
|
|
|
jcphuff.pas Huffman entropy coding for progressive JPEG.
|
|
|
|
jcmarker.pas JPEG marker writing.
|
|
|
|
jdatadst.pas Data destination manager for stdio output.
|
|
|
|
|
|
|
|
Decompression side of the library:
|
|
|
|
|
|
|
|
jdmaster.pas Master control: determines which other modules to use.
|
|
|
|
jdinput.pas Input controller: controls input processing modules.
|
|
|
|
jdmainct.pas Main buffer controller (JPEG decompressor => postprocessor).
|
|
|
|
jdcoefct.pas Buffer controller for DCT coefficient buffer.
|
|
|
|
jdpostct.pas Postprocessor buffer controller.
|
|
|
|
jdmarker.pas JPEG marker reading.
|
|
|
|
jdhuff.pas Huffman entropy decoding for sequential JPEG.
|
|
|
|
jdphuff.pas Huffman entropy decoding for progressive JPEG.
|
|
|
|
jddctmgr.pas IDCT manager (IDCT implementation selection & control).
|
|
|
|
jidctint.pas Inverse DCT using slow-but-accurate integer method.
|
|
|
|
jidctasm.pas BASM specific version of jidctint.pas for 32bit Delphi.
|
|
|
|
jidctfst.pas Inverse DCT using faster, less accurate integer method.
|
|
|
|
jidctflt.pas Inverse DCT using floating-point arithmetic.
|
|
|
|
jidctred.pas Inverse DCTs with reduced-size outputs.
|
|
|
|
jidct2d.pas How to for a direct 2D Inverse DCT - not used
|
|
|
|
jdsample.pas Upsampling.
|
|
|
|
jdcolor.pas Color space conversion.
|
|
|
|
jdmerge.pas Merged upsampling/color conversion (faster, lower quality).
|
|
|
|
jquant1.pas One-pass color quantization using a fixed-spacing colormap.
|
|
|
|
jquant2.pas Two-pass color quantization using a custom-generated colormap.
|
|
|
|
Also handles one-pass quantization to an externally given map.
|
|
|
|
jdatasrc.pas Data source manager for stdio input.
|
|
|
|
|
|
|
|
Support files for both compression and decompression:
|
|
|
|
|
|
|
|
jerror.pas Standard error handling routines (application replaceable).
|
|
|
|
jmemmgr.pas System-independent (more or less) memory management code.
|
|
|
|
jutils.pas Miscellaneous utility routines.
|
|
|
|
|
|
|
|
jmemmgr.pas relies on a system-dependent memory management module. The
|
|
|
|
PASJPEG distribution includes the following implementations of the system-
|
|
|
|
dependent module:
|
|
|
|
|
|
|
|
jmemnobs.pas "No backing store": assumes adequate virtual memory exists.
|
|
|
|
jmemdos.pas Custom implementation for MS-DOS (16-bit environment only):
|
|
|
|
can use extended and expanded memory as well as temporary
|
|
|
|
files.
|
|
|
|
jmemsys.pas A skeleton with all the declaration you need to create a
|
|
|
|
working system-dependent JPEG memory manager on unusual
|
|
|
|
systems.
|
|
|
|
|
|
|
|
Exactly one of the system-dependent units should be used in jmemmgr.pas.
|
|
|
|
|
|
|
|
jmemdosa.pas BASM 80x86 assembly code support for jmemdos.pas; used only
|
|
|
|
in MS-DOS-specific configurations of the JPEG library.
|
|
|
|
|
|
|
|
|
|
|
|
Applications using the library should use jmorecfg, jerror, jpeglib, and
|
|
|
|
include jconfig.inc.
|
|
|
|
|
|
|
|
CJPEG/DJPEG/JPEGTRAN
|
|
|
|
|
|
|
|
Pascal source code files:
|
|
|
|
|
|
|
|
cderror.pas Additional error and trace message codes for cjpeg/djpeg.
|
|
|
|
Not used, Those errors have been added to jdeferr.
|
|
|
|
cjpeg.pas Main program for cjpeg.
|
|
|
|
djpeg.pas Main program for djpeg.
|
|
|
|
jpegtran.pas Main program for jpegtran.
|
|
|
|
cdjpeg.pas Utility routines used by all three programs.
|
|
|
|
rdcolmap.pas Code to read a colormap file for djpeg's "-map" switch.
|
|
|
|
rdswitch.pas Code to process some of cjpeg's more complex switches.
|
|
|
|
Also used by jpegtran.
|
|
|
|
transupp.pas Support code for jpegtran: lossless image manipulations.
|
|
|
|
|
|
|
|
fcache.pas
|
|
|
|
rdswitch.pas Code to process some of cjpeg's more complex switches.
|
|
|
|
Also used by jpegtran.
|
|
|
|
|
|
|
|
Image file writer modules for djpeg:
|
|
|
|
|
|
|
|
wrbmp.pas BMP file output.
|
|
|
|
wrppm.pas PPM/PGM file output.
|
|
|
|
wrtarga.pas Targa file output.
|
|
|
|
|
|
|
|
Image file reader modules for cjpeg:
|
|
|
|
|
|
|
|
rdbmp.pas BMP file input.
|
|
|
|
rdppm.pas PPM/PGM file input.
|
|
|
|
rdtarga.pas Targa file input. - NOT READY YET
|
|
|
|
|
|
|
|
This program does not depend on the JPEG library
|
|
|
|
|
|
|
|
rdjpgcom.pas Stand-alone rdjpgcom application.
|
|
|
|
|
|
|
|
|
|
|
|
Translation
|
|
|
|
===========
|
|
|
|
|
|
|
|
TP is unit-centric, exported type definitions and routines are declared
|
|
|
|
in the "interface" part of the unit, "make" files are not needed.
|
|
|
|
Macros are not supported, they were either copied as needed or translated
|
|
|
|
to Pascal routines (procedure). The procedures will be replaced by code in
|
|
|
|
later releases.
|
|
|
|
Conditional defines that indicate whether to include various optional
|
|
|
|
functions are defined in the file JCONFIG.INC. This file is included first
|
|
|
|
in all source files.
|
|
|
|
|
|
|
|
The base type definitions are in the unit JMORECFG.PAS. The error handling
|
|
|
|
macros have been converted to procedures in JERROR.PAS. The error codes are
|
|
|
|
in JDEFERR.PAS. jpegint.h and jpeglib.h were merged into one large unit
|
|
|
|
JPEGLIB.PAS containing type definitions with global scope.
|
|
|
|
|
|
|
|
The translation of the header file is the most sophisticated work, a good
|
|
|
|
understanding of the syntax is required. Once the header files are done,
|
|
|
|
the translation turns into a lot of editing work. Each C source file was
|
|
|
|
converted to a unit by editing the syntax (separate variable definition
|
|
|
|
and usage, define labels, group variable definitions, expanding macros, etc).
|
|
|
|
|
|
|
|
The IJG source labels routines GLOBAL, METHODDEF and LOCAL. All globals
|
|
|
|
routines are in the interface section of the units. The "far" directive is
|
|
|
|
used for methods (METHODDEF).
|
|
|
|
|
|
|
|
Some C -> Pascal examples.
|
|
|
|
|
|
|
|
* "{" -> "begin" "->" -> "^." " = " -> " := " "<<" -> " shl "
|
|
|
|
"}" -> "end;" "!=" -> "<>" " == " -> " = " ">>" -> " shr "
|
|
|
|
"/*" -> "{" routine -> function "0x" -> "$"
|
|
|
|
"*/" -> "}" (void) procedure "NULL" -> "NIL"
|
|
|
|
|
|
|
|
* structs are records, Unions are variable records, pointers are always far,
|
|
|
|
the operators && and || (and/or) have not the same priority in both
|
|
|
|
languages, so parenthesis are important. The Pascal "case" doesn't have the
|
|
|
|
falltrough option of the C "switch" statement, my work around is to split
|
|
|
|
one "switch" statement into many case statements.
|
|
|
|
* The pointer type in C is not readily interchangeable. It is used to address
|
|
|
|
an array (Pascal pointer to an array) or in pointer arithmetic a pointer to
|
|
|
|
a single element. I've used the Inc() statement with type casting to
|
|
|
|
translate pointer arithmetic most of the time.
|
|
|
|
|
|
|
|
C example:
|
|
|
|
typedef JSAMPLE* JSAMPROW; /* ptr to one image row of pixel samples. */
|
|
|
|
|
|
|
|
Pascal
|
|
|
|
type
|
|
|
|
JSAMPLE_PTR = ^JSAMPLE; { ptr to a single pixel sample. }
|
|
|
|
jTSample = 0..(MaxInt div SIZEOF(JSAMPLE))-1;
|
|
|
|
JSAMPLE_ARRAY = Array[jTSample] of JSAMPLE; {far}
|
|
|
|
JSAMPROW = ^JSAMPLE_ARRAY; { ptr to one image row of pixel samples. }
|
|
|
|
|
|
|
|
The following code
|
|
|
|
|
|
|
|
JSAMPROW buffer0, buffer1; /* ptr to a JSAMPLE buffer. */
|
|
|
|
|
|
|
|
...
|
|
|
|
|
|
|
|
buffer1 = buffer0 + i;
|
|
|
|
|
|
|
|
can be translated to
|
|
|
|
|
|
|
|
var
|
|
|
|
buffer0, buffer1 : JSAMPROW;
|
|
|
|
|
|
|
|
...
|
|
|
|
|
|
|
|
buffer1 := buffer0;
|
|
|
|
Inc(JSAMPLE_PTR(buffer1), i);
|
|
|
|
|
|
|
|
or
|
|
|
|
|
|
|
|
buffer1 := JSAMPROW(@ buffer0^[i]);
|
|
|
|
|
|
|
|
Declaring the variables as JSAMPLE_PTR may reduce type casting in some
|
|
|
|
places. I use help pointers to handle negative array offsets.
|
|
|
|
|
|
|
|
While translating the type of function parameter from C to Pascal, one can
|
|
|
|
often use "var", "const", or "array of" parameters instead of pointers.
|
|
|
|
|
|
|
|
While translating for(;;)-loops with more than one induction variable to
|
|
|
|
Pascal "for to/downto do"-loops, the extra induction variables have to be
|
|
|
|
manually updated at the end of the loop and before "continue"-statements.
|
|
|
|
|
|
|
|
|
|
|
|
Legal issues
|
|
|
|
============
|
|
|
|
|
|
|
|
Copyright (C) 1996,1998 by Jacques Nomssi Nzali
|
|
|
|
|
|
|
|
This software is provided 'as-is', without any express or implied
|
|
|
|
warranty. In no event will the author be held liable for any damages
|
|
|
|
arising from the use of this software.
|
|
|
|
|
|
|
|
Permission is granted to anyone to use this software for any purpose,
|
|
|
|
including commercial applications, and to alter it and redistribute it
|
|
|
|
freely, subject to the following restrictions:
|
|
|
|
|
|
|
|
1. The origin of this software must not be misrepresented; you must not
|
|
|
|
claim that you wrote the original software. If you use this software
|
|
|
|
in a product, an acknowledgment in the product documentation would be
|
|
|
|
appreciated but is not required.
|
|
|
|
2. Altered source versions must be plainly marked as such, and must not be
|
|
|
|
misrepresented as being the original software.
|
|
|
|
3. This notice may not be removed or altered from any source distribution.
|
|
|
|
|
|
|
|
|
|
|
|
Archive Locations:
|
|
|
|
==================
|
|
|
|
|
|
|
|
[1] Thomas G. Lane, JPEG FAQ
|
|
|
|
|
|
|
|
in comp.graphics.misc and related newsgroups
|
|
|
|
|
|
|
|
[2] Wallace, Gregory K.: The JPEG Still Picture Compression Standard
|
|
|
|
|
|
|
|
ftp.uu.net, graphics/jpeg/wallace.ps.Z
|
|
|
|
|
|
|
|
[3] The Independent JPEG Group C library for JPEG encoding and decoding,
|
|
|
|
rev 6b.
|
|
|
|
|
|
|
|
ftp://ftp.uu.net/graphics/jpeg/
|
|
|
|
|
|
|
|
or SimTel in msdos/graphics/
|
|
|
|
|
|
|
|
[4] JPEG implementation, written by the PVRG group at Stanford,
|
|
|
|
ftp havefun.stanford.edu:/pub/jpeg/JPEGv1.2.tar.Z.
|
|
|
|
|
|
|
|
[5] PASJPEG.ZIP at NView ftp site
|
|
|
|
|
|
|
|
ftp://druckfix.physik.tu-chemnitz.de/pub/nv/
|
|
|
|
http://www.tu-chemnitz.de/~nomssi/pub/pasjpeg.zip
|
|
|
|
|
|
|
|
[6] The PasJPEG home page with links
|
|
|
|
|
|
|
|
http://www.tu-chemnitz.de/~nomssi/pasjpeg.html
|
2007-12-21 21:31:58 +01:00
|
|
|
_____________________________________________________________________________
|