Difference between revisions of "Teletext"

Revision as of 18:20, 7 March 2020

Workshop Teletext

Talk et Workshop 6 Mars 2020.

Enregistrement: https://www.youtube.com/watch?v=YZfDDqLUwzk

Workgroup

1. Faire des pages, essayer de créer un service (Télétexte Fixme?) => etc
2. Brainstorm contenu et intérêt d’un système minimaliste. Quel contenu pour quelle utilisations ? Ecrire idées/concept
3. Transmission , radio ou autre. Essayer de transmettre une page par un moyen autre. => MPB, Francois, Mathias
4. Brainstorm transmission, réfléchir à des moyens de transmission et écrire idées/concept =>Sasha
5. Recevoir/afficher. Réfléchir à des moyens minimaux d’affichage (badge CCC, vintage computer..) et tenter de l’afficher
6. Brainstorm Concept crypto à réfléchir ou élaborer. Ecrire idées/concept

Ressources

Editeurs:

• http://edit.tf/
• https://zxnet.co.uk/teletext/editor

Generateur teletext:

• VBIT2: https://github.com/peterkvt80/vbit2/wiki

Specification Teletext:

• ETSI 300 799

Repo pages Teefax

• http://teastop.plus.com/svn/teletext/

Specification format fichier TTI (editeur)

• TTI format

Repo pour les pages FIXME

• https://git.fixme.ch/FIXME/teletext

Code for image conversion

Done by Nico D. in Perl.

Image must first be processed in Gimp to resize it to 80 pixel width, colour converted to 1 bit black&white, floyd-steinberg.

#!/usr/bin/perl

use GD;

open(F,">/tmp/test3.tti");

open (IM,"mc80.png") || die;
$im = newFromPng GD::Image('IM');
close IM;

print F "DE,Read back page40600
PN,40600
CT,15
SC,0001
PS,8040
MS,40600
";

$xbase = 0;
$ybase = 0;

$y = $ybase;

for($i=0;$i<25;$i++) {
  print F "OL,$i,".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;

     $t+=32;

     if($t>=64) { $t+=32; }
     print F chr($t);
     $x += 2;
  }
  $y += 3;

  print F "\n";
}
print F "FL,407,408,410,405,00F,400";