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