COMPRESSIONS

<h1>COMPRESSIONS</h1>
Modern Pascal added 5 different native compression algorithms. These are not commercial programs, instead, they are individual compression theories. Some are extremely fast but do not produce the smallest result. While others produce extremely small results, but take a little longer to do so. Our .wet (Wet) compression script using the LH6 compression algorithm that I have tweaked to produce the best compression over 99.9% of the time - however, it is not written in assembly, so it is not the fastest. All of our compression algorithms are lossless - so they are perfect for data, which is our primary application focus.<br><br>For a benchmark test, the 5 supported compression theories were tasked with compressing the full Mac Beth play in plain ASCII HTML formatted text (just shy of 200,000 bytes. Here are the results:<div><ul><li>LH6 -&nbsp;72.34% smaller in 230ms (next to slowest, best compression)<br></li><li>LZW -&nbsp;69.56% smaller in 266ms (slowest, next to best compression)</li><li>LZ -&nbsp;60.15% smaller in 226ms (middle speed, middle compression)</li><li>BH - 33.87% smaller in 150ms (next to fastest, worst compression)</li><li>SYN -&nbsp;59.96% smaller in 143ms (fastest, middle compression)</li></ul><div>The next test, a Linux btmp file (29,915,136 bytes) - this task is how well the algorithms handle a large file that has very minimal plain ASCII bytes.</div><div><ul><li>LH6 - 95.04% [148k] smaller in 84,224ms</li><li>BH -&nbsp;79.63% [609k] smaller in 898ms</li><li>LZ -&nbsp;94.14% [175k] smaller in 74 minutes and 33,710ms<br></li><li>SYN -&nbsp;95.02% [149k] smaller in 526ms</li></ul></div>
<h2>Globals</h2>
<pre></pre>
<h2>Functions</h2>
<pre></pre>
<h2>Procedures</h2>
<pre>LH6Compress(InSource:String;Var OutData:String)
LH6Decompress(InSource:String;Var OutData:String)
BHCompress(InSource:String;Var OutData:String)
BHDecompress(InSource:String;Var OutData:String)
LZCompress(InSource:String;Var OutData:String)
LZDecompress(InSource:String;Var OutData:String)
LZWCompress(InSource:String;Var OutData:String)
LZWDecompress(InSource:String;Var OutData:String)
SynCompress(InSource:String;Var OutData:String)
SynDecompress(InSource:String;Var OutData:String)
</pre>
</div>