Changeset 342 in Sophya for trunk/Poubelle/archTOI.old/compress.h

Timestamp:

Aug 2, 1999, 3:45:52 PM (26 years ago)

Author:

ansari

Message:

archtoi 2 aout 99

File:

• trunk/Poubelle/archTOI.old/compress.h (modified) (7 diffs)

trunk/Poubelle/archTOI.old/compress.h

@@ -6 +6 @@
 /************************************************************************/
 
-#ifndef int4
-#ifdef __alpha
-#define int4 int
-#else
-#define int4 long
-#endif
-#endif
 
 
@@ -24 +17 @@
 /*      pour    n = 72    en sortie     19 mots = 76 octets             */
 
-void compress_7_1(int4* in,int4*out,int n,int pasin);
+void compress_7_1(unsigned int4* in,unsigned int4*out,int n,int pasin);
 void decompress_7_1(int4* in,int4*out,int n);
 
@@ -36 +29 @@
 /*      pour    n = 72    en sortie     11 mots = 44 octets             */
 
-void compress_4_1(int4* in,int4*out,int n,int pasin);
+void compress_4_1(unsigned int4* in,unsigned int4*out,int n,int pasin);
 void decompress_4_1(int4* in,int4*out,int n);
 
@@ -49 +42 @@
 
 
-void compress_3_1(int4* in,int4*out,int n,int pasin);
+void compress_3_1(unsigned int4* in,unsigned int4*out,int n,int pasin);
 void decompress_3_1(int4* in,int4*out,int n);
 
@@ -70 +63 @@
 
 
-void compress_7_2(int4* in,int4*out,int n,int pasin);
+void compress_7_2(unsigned int4* in,unsigned int4*out,int n,int pasin);
 void decompress_7_2(int4* in,int4*out,int n);
 
@@ -85 +78 @@
 
 
-void compress_4_2(int4* in,int4*out,int n,int pasin);
+void compress_4_2(unsigned int4* in,unsigned int4*out,int n,int pasin);
 void decompress_4_2(int4* in,int4*out,int n);
 
@@ -96 +89 @@
 /************************************************************************/
 
-/*Les valeures de la table d'entree sont consideres comme toujopurs positives   */
-/* les ecarts sont calculés signés sur 32 bit avant d'etre tronconnés           */
+/*      tous les nombres sont des entiers unsigned long pour compress                           */
+/*Les valeures de la table d'entree sont consideres comme toujours positives et sur 21 bits     */
+/*  les valeurs de reference pour le calcul des ecarts sont augmentees de ecart_bit=0x10000000  */
+/*      LES ECARTS SONT DES ENTIERS POSITIFS (ecart_bit +  valeur courante - valeur precedente) */
 
-#define shif(ec,k,q)    {while(ec>q)if(k<kmax_){k++;q<<=1;}else ec=q;while(ec<-q)if(k<kmax_){k++;q<<=1;}else ec=-q;}
-#define recup(ec,sss,k) {ec=((R>>sss)&emak_);if(ec & sgbi_ ) ec|= sign_ ; ec<<=k;}
-#define arrondi(ec,k)   ((ec &  filtre[k]) +( (ec & test[k]) <<1 ) )    
+/*  pour tous les compresseurs  */
+#define kmax_   15              /*  valeur maximum de l'exposant        */
+#define ecart_bit       0x10000000
+#define shif(ec,k,q)    {while(ec>(q|ecart_bit))if(k<kmax_){k++;q<<=1;}else ec=(q|ecart_bit);while(ec<ecart_bit-q)if(k<kmax_){k++;q<<=1;}else ec=ecart_bit-q;}
+#define arrondi(ec,k)   ((ec &  filtre[k]) +( (ec & test[k]) <<1 ) ) /* resultat sur 28 bit  */ 
+#define new_val(val,ec,k)       ((val + arrondi(ec,k))&data_mask);
 
+/* pour les decompresseurs      */
+#define recup(ec,sss,k) {ec=((R>>sss)&ecart_mask);if(ec & sgbi_ ) ec|= sign_ ; ec<<=k;}
+