Changes
/* Code for image conversion */
use GD;
open(F,">/tmp/test3out-teletext.tti");
open (IM,"mc80.png") || die;
close IM;
# first lines taken from an example
print F "DE,Read back page40600
PN,40600
";
# where to align the origin:
$xbase = 0;
$ybase = 0;
$y = $ybase;
for($il=01;$il<25;$il++) { print F "OL,$il,".chr(0x1b).chr(0x57);
$x = $xbase;
for($c=0; $c<40; $c++) {
$t =
$im->getPixel($x, $y) + | ($im->getPixel($x + 1, $y ) << 1) +| ($im->getPixel($x, $y + 1) << 2 ) + | ($im->getPixel($x + 1, $y + 1) << 3) +| ($im->getPixel($x, $y + 2) << 4 ) + | ($im->getPixel($x + 1, $y + 2) << 5);
$t^=63;
