home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / BBS_UTIL / BGFAX121.ZIP / SOURCE.ZIP / FAXTREE.PAS < prev    next >
Pascal/Delphi Source File  |  1994-03-23  |  6KB  |  92 lines
  1. { this file is used for DECODING fax images }
  2.  
  3. const
  4.     { byte[2] == -9->undefined, -1 ->eol, -2 ->fill }
  5.   whiteh : array[0..213] of array[0..2] of integer = (
  6.     (26,1,-9),(2,15,-9),(3,8,-9),(4,5,-9),(0,0,3),(6,7,-9),(0,0,128), {0..6}
  7.     (0,0,8),(9,14,-9),(10,11,-9),(0,0,9),(12,13,-9),(0,0,16),(0,0,17), {7..13}
  8.     (0,0,4),(16,23,-9),(17,18,-9),(0,0,5),(19,22,-9),(20,21,-9), {14..19}
  9.     (0,0,14),(0,0,15),(0,0,64),(24,25,-9),(0,0,6),(0,0,7),(27,65,-9), {20..26}
  10.     (142,28,-9),(29,50,-9),(30,37,-9),(31,32,-9),(0,0,12),(33,36,-9), {27..32}
  11.     (34,35,-9),(0,0,53),(0,0,54),(0,0,26),(38,45,-9),(39,42,-9), {33..38}
  12.     (40,41,-9),(0,0,39),(0,0,40),(43,44,-9),(0,0,41),(0,0,42), {39..44}
  13.     (46,49,-9),(47,48,-9),(0,0,43),(0,0,44),(0,0,21),(51,64,-9), {45..50}
  14.     (52,57,-9),(53,55,-9),(0,0,28),(0,0,61),(54,56,-9),(0,0,62), {51..56}
  15.     (58,61,-9),(59,60,-9),(0,0,63),(0,0,0),(62,63,-9),(0,0,320), {57..62}
  16.     (0,0,384),(0,0,10),(66,105,-9),(67,84,-9),(68,69,-9),(0,0,11), {63..68}
  17.     (70,75,-9),(71,72,-9),(0,0,27),(73,74,-9),(0,0,59),(0,0,60), {69..74}
  18.     (76,83,-9),(77,80,-9),(78,79,-9),(0,0,1472),(0,0,1536), {75..79}
  19.     (81,82,-9),(0,0,1600),(0,0,1728),(0,0,18),(85,96,-9),(86,91,-9), {80..85}
  20.     (87,88,-9),(0,0,24),(89,90,-9),(0,0,49),(0,0,50),(92,95,-9), {86..91}
  21.     (93,94,-9),(0,0,51),(0,0,52),(0,0,25),(97,104,-9),(98,101,-9), {92..97}
  22.     (99,100,-9),(0,0,55),(0,0,56),(102,103,-9),(0,0,57),(0,0,58), {98..103}
  23.     (0,0,192),(106,141,-9),(107,118,-9),(108,109,-9),(0,0,1664), {104..108}
  24.     (110,113,-9),(111,112,-9),(0,0,448),(0,0,512),(114,117,-9), {109..113}
  25.     (115,116,-9),(0,0,704),(0,0,768),(0,0,640),(119,132,-9), {114..118}
  26.     (120,125,-9),(121,122,-9),(0,0,576),(123,124,-9),(0,0,832), {119..123}
  27.     (0,0,896),(126,129,-9),(127,128,-9),(0,0,960),(0,0,1024), {124..128}
  28.     (130,131,-9),(0,0,1088),(0,0,1152),(133,140,-9),(134,137,-9), {129..133}
  29.     (135,136,-9),(0,0,1216),(0,0,1280),(138,139,-9),(0,0,1344), {134..138}
  30.     (0,0,1408),(0,0,256),(0,0,2),(143,193,-9),(144,186,-9), {139..143}
  31.     (145,181,-9),(146,178,-9),(147,153,-9),(148,0,-9),(149,0,-9), {144..148}
  32.     (150,0,-9),(151,152,-9),(0,0,-2),(0,0,-1),(154,167,-9), {149..153}
  33.     (155,160,-9),(156,157,-9),(0,0,1792),(158,159,-9),(0,0,1984), {154..158}
  34.     (0,0,2048),(161,164,-9),(162,163,-9),(0,0,2112),(0,0,2176), {159..163}
  35.     (165,166,-9),(0,0,2240),(0,0,2304),(168,171,-9),(169,170,-9), {164..168}
  36.     (0,0,1856),(0,0,1920),(172,175,-9),(173,174,-9),(0,0,2368), {169..173}
  37.     (0,0,2432),(176,177,-9),(0,0,2496),(0,0,2560),(179,180,-9), {174..178}
  38.     (0,0,29),(0,0,30),(182,185,-9),(183,184,-9),(0,0,45),(0,0,46), {179..184}
  39.     (0,0,22),(187,192,-9),(188,189,-9),(0,0,23),(190,191,-9), {185..189}
  40.     (0,0,47),(0,0,48),(0,0,13),(194,207,-9),(195,200,-9), {190..194}
  41.     (196,197,-9),(0,0,20),(198,199,-9),(0,0,33),(0,0,34), {195..199}
  42.     (201,204,-9),(202,203,-9),(0,0,35),(0,0,36),(205,206,-9), {200..204}
  43.     (0,0,37),(0,0,38),(208,213,-9),(209,210,-9),(0,0,19), {205..209}
  44.     (211,212,-9),(0,0,31),(0,0,32),(0,0,1));
  45.   blackh : array[0..213] of array[0..2] of integer = (
  46.     (4,1,-9),(2,3,-9),(0,0,3),(0,0,2),(8,5,-9),(6,7,-9),(0,0,1),(0,0,4), {0..7}
  47.     (12,9,-9),(10,11,-9),(0,0,6),(0,0,5),(18,13,-9),(14,17,-9),(15,16,-9), {8..14}
  48.     (0,0,9),(0,0,8),(0,0,7),(61,19,-9),(20,23,-9),(21,22,-9),(0,0,10), {15..21}
  49.     (0,0,11),(24,60,-9),(213,39,-9),(0,0,15),(27,34,-9),(28,31,-9), {22..27}
  50.     (29,30,-9),(0,0,128),(0,0,192),(32,33,-9),(0,0,26),(0,0,27), {28..33}
  51.     (35,38,-9),(36,37,-9),(0,0,28),(0,0,29),(0,0,19),(40,53,-9), {34..39}
  52.     (41,46,-9),(42,43,-9),(0,0,20),(44,45,-9),(0,0,34),(0,0,35), {40..45}
  53.     (47,50,-9),(48,49,-9),(0,0,36),(0,0,37),(51,52,-9),(0,0,38), {46..51}
  54.     (0,0,39),(54,59,-9),(55,57,-9),(0,0,21),(0,0,42),(56,58,-9), {52..57}
  55.     (0,0,43),(0,0,0),(0,0,12),(113,62,-9),(63,88,-9),(64,65,-9), {58..63}
  56.     (0,0,13),(66,79,-9),(67,72,-9),(68,69,-9),(0,0,23),(70,71,-9), {64..69}
  57.     (0,0,50),(0,0,51),(73,76,-9),(74,75,-9),(0,0,44),(0,0,45), {70..75}
  58.     (77,78,-9),(0,0,46),(0,0,47),(80,87,-9),(81,84,-9),(82,83,-9), {76..81}
  59.     (0,0,57),(0,0,58),(85,86,-9),(0,0,61),(0,0,256),(0,0,16), {82..87}
  60.     (89,112,-9),(90,99,-9),(91,92,-9),(0,0,17),(93,96,-9),(94,95,-9), {88..93}
  61.     (0,0,48),(0,0,49),(97,98,-9),(0,0,62),(0,0,63),(100,107,-9), {94..99}
  62.     (101,104,-9),(102,103,-9),(0,0,30),(0,0,31),(105,106,-9), {100..104}
  63.     (0,0,32),(0,0,33),(108,111,-9),(109,110,-9),(0,0,40),(0,0,41), {105..110}
  64.     (0,0,22),(0,0,14),(181,147,-9),(115,128,-9),(116,117,-9), {111..115}
  65.     (0,0,18),(118,123,-9),(119,120,-9),(0,0,52),(121,122,-9), {116..120}
  66.     (0,0,640),(0,0,704),(124,127,-9),(125,126,-9),(0,0,768), {121..125}
  67.     (0,0,832),(0,0,55),(129,140,-9),(130,135,-9),(131,132,-9), {126..130}
  68.     (0,0,56),(133,134,-9),(0,0,1280),(0,0,1344),(136,139,-9), {131..135}
  69.     (137,138,-9),(0,0,1408),(0,0,1472),(0,0,59),(141,146,-9), {136..140}
  70.     (142,143,-9),(0,0,60),(144,145,-9),(0,0,1536),(0,0,1600), {141..145}
  71.     (0,0,24),(114,148,-9),(149,166,-9),(150,157,-9),(151,152,-9), {146..150}
  72.     (0,0,25),(153,156,-9),(154,155,-9),(0,0,1664),(0,0,1728), {151..155}
  73.     (0,0,320),(158,161,-9),(159,160,-9),(0,0,384),(0,0,448), {156..160}
  74.     (162,165,-9),(163,164,-9),(0,0,512),(0,0,576),(0,0,53), {161..165}
  75.     (167,180,-9),(168,173,-9),(169,170,-9),(0,0,54),(171,172,-9), {166..170}
  76.     (0,0,896),(0,0,960),(174,177,-9),(175,176,-9),(0,0,1024), {171..175}
  77.     (0,0,1088),(178,179,-9),(0,0,1152),(0,0,1216),(0,0,64), {176..180}
  78.     (182,187,-9),(183,0,-9),(184,0,-9),(212,0,-9),(0,0,-2), {181..185}
  79.     (0,0,-1),(188,201,-9),(189,194,-9),(190,191,-9),(0,0,1792), {186..190}
  80.     (192,193,-9),(0,0,1984),(0,0,2048),(195,198,-9),(196,197,-9), {191..195}
  81.     (0,0,2112),(0,0,2176),(199,200,-9),(0,0,2240),(0,0,2304), {196..200}
  82.     (202,205,-9),(203,204,-9),(0,0,1856),(0,0,1920),(206,209,-9), {201..205}
  83.     (207,208,-9),(0,0,2368),(0,0,2432),(210,211,-9),(0,0,2496), {206..210}
  84.     (0,0,2560),(185,186,-9),(25,26,-9));
  85.   twodr : array[0..25] of array[0..2] of integer = (
  86.     (2,1,-9),(0,0,0),(6,3,-9),(4,5,-9),(0,0,-1),(0,0,1),(8,17,-9), {0..6}
  87.     (0,0,8999),(10,9,-9),(0,0,8998),(14,11,-9),(12,13,-9),(0,0,-2), {7..12}
  88.     (0,0,2),(18,15,-9),(16,17,-9),(0,0,-3),(0,0,3),(19,0,-9), {13..18}
  89.     (20,0,-9),(21,0,-9),(22,0,-9),(23,0,-9),(24,25,-9),(0,0,9002), {19..24}
  90.     (0,0,9003));
  91.  
  92.