#!/usr/bin/php

<?php

/*

* text2wav

* Copyright (C) 2015 by EPTO

* Questo file è parte del progetto "Messaggio Spettrale Fantasma".

*

* This is free software; you can redistribute it and/or modify

* it under the terms of the GNU General Public License as published by

* the Free Software Foundation; either version 3 of the License, or

* (at your option) any later version.

*

* This source code is distributed in the hope that it will be useful,

* but WITHOUT ANY WARRANTY; without even the implied warranty of

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

* GNU General Public License for more details.

*

* You should have received a copy of the GNU General Public License

* along with this source code; if not, write to the Free Software

* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

*/

/*

* Questo file è codificato in UTF-8 senza BOM.

*

* Meglio zittire i notice, non dovrebbero esserci, ma parliamo pur sempre di PHP!

* Visto che negli ultimi anni ne hanno inventate di nuove ad ongi versione... non si sa mai!

*/

$CP437 = array(0=>0,1=>1,2=>2,3=>3,4=>4,5=>5,6=>6,7=>7,8=>8,9=>9,10=>10,11=>11,12=>12,13=>13,14=>14,15=>15,16=>16,17=>17,18=>18,19=>19,20=>20,21=>21,22=>22,23=>23,24=>24,25=>25,26=>26,27=>27,28=>28,29=>29,30=>30,31=>31,32=>32,33=>33,34=>34,35=>35,36=>36,37=>37,38=>38,39=>39,40=>40,41=>41,42=>42,43=>43,44=>44,45=>45,46=>46,47=>47,48=>48,49=>49,50=>50,51=>51,52=>52,53=>53,54=>54,55=>55,56=>56,57=>57,58=>58,59=>59,60=>60,61=>61,62=>62,63=>63,64=>64,65=>65,66=>66,67=>67,68=>68,69=>69,70=>70,71=>71,72=>72,73=>73,74=>74,75=>75,76=>76,77=>77,78=>78,79=>79,80=>80,81=>81,82=>82,83=>83,84=>84,85=>85,86=>86,87=>87,88=>88,89=>89,90=>90,91=>91,92=>92,93=>93,94=>94,95=>95,96=>96,97=>97,98=>98,99=>99,100=>100,101=>101,102=>102,103=>103,104=>104,105=>105,106=>106,107=>107,108=>108,109=>109,110=>110,111=>111,112=>112,113=>113,114=>114,115=>115,116=>116,117=>117,118=>118,119=>119,120=>120,121=>121,122=>122,123=>123,124=>124,125=>125,126=>126,127=>127,128=>199,129=>252,130=>233,131=>226,132=>228,133=>224,134=>229,135=>231,136=>234,137=>235,138=>232,139=>239,140=>238,141=>236,142=>196,143=>197,144=>201,145=>230,146=>198,147=>244,148=>246,149=>242,150=>251,151=>249,152=>255,153=>214,154=>220,155=>162,156=>163,157=>165,158=>8359,159=>402,160=>225,161=>237,162=>243,163=>250,164=>241,165=>209,166=>170,167=>186,168=>191,169=>8976,170=>172,171=>189,172=>188,173=>161,174=>171,175=>187,176=>9617,177=>9618,178=>9619,179=>9474,180=>9508,181=>9569,182=>9570,183=>9558,184=>9557,185=>9571,186=>9553,187=>9559,188=>9565,189=>9564,190=>9563,191=>9488,192=>9492,193=>9524,194=>9516,195=>9500,196=>9472,197=>9532,198=>9566,199=>9567,200=>9562,201=>9556,202=>9577,203=>9574,204=>9568,205=>9552,206=>9580,207=>9575,208=>9576,209=>9572,210=>9573,211=>9561,212=>9560,213=>9554,214=>9555,215=>9579,216=>9578,217=>9496,218=>9484,219=>9608,220=>9604,221=>9612,222=>9616,223=>9600,224=>945,225=>223,226=>915,227=>960,228=>931,229=>963,230=>181,231=>964,232=>934,233=>920,234=>937,235=>948,236=>8734,237=>966,238=>949,239=>8745,240=>8801,241=>177,242=>8805,243=>8804,244=>8992,245=>8993,246=>247,247=>8776,248=>176,249=>8729,250=>183,251=>8730,252=>8319,253=>178,254=>9632,255=>160);

$CP437 = array_flip($CP437);

error_reporting(E_ALL & ~E_DEPRECATED & ~E_STRICT & ~E_USER_WARNING &~E_NOTICE);

/*

* Ora PHP può funzionare in modo sufficentemente antanico.

*

* L'operazione di conversione è svolta in diversi passaggi:

* 1° Caricare un font 8x8 oppure 8x16.

* 2° Convertire la stringa in un'immagine bitmap monocromatica (userò un array).

* 3° Creare degli oscillatori, uno per riga orizzontale, su diverse frequenze.

* L'asse Y è ribaltato, l'asse X dei caratteri pure (altrimenti era troppo facile no?)

*

* 4° Accendere e spegnere gli oscillatori analizzando l'immagine da sinistra a destra.

*/

/////////////// Sezione per formato wave.

function WaveChunk($name,$data) { // Crea un elemento RIFF.

return str_pad($name,4,' ',STR_PAD_RIGHT).pack('V',strlen($data)).$data;

}

function WaveHeader(&$f,$sampleRate) { // Inizializza e finalizza un file wave.

}

////////////// Sezione font e caratteri.

/*

* Il tag delle informazioni sui font è un sistema prodotto nel 1992

* per salvare informazioni sui font bitmap.

* Parte del supporto è stato rimosso (font più o meno larghi di 8 pixel).

* */

$FONTINFOSTRUCT = array( // Struttura costante per le informazioni sui caratteri.

// Nome Len

1 => array('charset' ,0 ) ,

2 => array('height' ,1 ) ,

3 => array('max' ,2 ) ,

4 => array('info' ,0 ) ,

5 => array('ver' ,1 ) ,

6 => array('name' ,0 ) ,

7 => array('map' ,0 ) ,

8 => array('mode' ,1 ) ,

9 => array('width' ,1 ) )

;

function charBmp(&$font,$ch) { // Da carattere a relativa bitmap (Array MxN).

}

function addBmp(&$org,$map,$FW) { // Aggiunge alla bitmap finale la bitmap di un carattere.

}

function data2Map($raw) { // Esporta un array nome => valore

}

function getFontInfo(&$font) { // Legge il tag delle informazioni sui caratteri.

}

function loadFont($file) { // Carica un font

}

function encode($text,$fontEnc,$enc) {

}

/////////// Sezione oscillatori.

function createFreq($f,$sampleRate) { // Inizializza un oscillatore.

}

function addFreqMode(&$freq,$amp,$f,$sampleRate) {

}

function oscillator(&$freq) { // Implementa l'oscillatore.

}

////////// Altre funzioni.

function valu($x) { // Legge/verifica un valore in ingresso.

}

function parser($txt,$Sx='\\(',$Dx=')') { // Parsa una stringa in token

}

// Uso getopt, non è il metodo migliore. Usare con cura!

$par = getopt("f:t:r:b:s:p:ho:elR:bNOWc:PBL:",array('file:','freq:','bw:','info:','no'));

// Guida con -h -? oppure senza argomenti.

if ($par===false or isset($par['h']) or @$argv[1]=='-?' or count($argv)<2) {

echo "Trasmette una stringa di testo come messaggio spettrale.\n\n";

echo "text2wav -f <font> { -t \"text\" | --file <textFile> } -o <outFile>\n";

echo " [ -r <sampleRate> ] [ -b <baseFreq> ] [ -R <repeat> ] [ -e ] [ -l ]\n";

echo " [ -s <stepFreq> ] [ -p <pixelFreq> ] \n\n";

echo "text2wav -f <font> --dump-font\n\n";

echo " -f\tImposta il font (può essere omesso con --freq se preimpostato).\n";

echo " -t\tSpecifica il testo da trasmettere.\n";

echo " -o\tImposta il file wave di uscita.\n";

echo " -r\tImposta la frequenza di campionamento (default 44100).\n";

echo " -b\tImposta la puù bassa frequenza di partenza.\n";

echo " -R\tRipete il messaggio n volte.\n";

echo " -s\tImposta la distanza in hertz delle frequenze.\n";

echo " -p\tImposta la lunghezza (hertz o secondi) dei pixel.\n";

echo " -e\tInterpreta i backslash: \xNN \\t \\r \\n \\0 \\n \\\\\n";

echo " \tQuesta opzione interpreta anche i simboli con il nome:\n";

echo " \tEsempio simbolo: \\(quadrato)\n";

echo " \tEsempio unicode: \\(#00DB)\n";

echo " \t(Usare font-edit per vedere la lista dei simboli).\n\n";

echo " -l\tImposta l'unità di misura in secondi per -p\n";

echo " -N\tConverte CR, LF e TAB in semplici spazi ed elimina gli spazi mutipli.\n";

echo " -O\tInvia l'output sullo standrard output.\n";

echo " -P\tUsa il protocollo con \$START e \$STOP\n";

echo " -c\tImposta il charset per la conversione:\n";

echo " -W\tCrea un file RAW.\n";

echo " -B\tNon usa il buffer di uscita (invia una word PCM alla volta).\n";

echo " -bw\tImposta il limite controllato su una banda precisa: -bw <da-a>\n";

echo " -L\tImposta la distanza minima dei canali in herts. (default 200)\n";

echo " --no\tNon controlla se i canali sono sovrapposti.\n";

echo "\nAltri comandi:\n";

echo " --file\tPrende il testo da un file binario.\n";

echo " --freq\tUsa un file con dentro le frequenze.\n";

echo " --info\tVisualizza le informazioni sul file frequenze e i calcoli.\n\n";

exit;

}

if (@$par['info']) $par['freq']=$par['info'];

if (!isset($par['B'])) $par['B']=true; else $par['B']=false;

if (!@$par['o'] and !isset($par['O'])) die("Manca -o\n");

if (@$par['file']) {

$text = @file_get_contents($par['file']) or die("\nErrore nel file di testo!\n");

} else {

if (!@$par['t']) die("Manca -t\n");

$text=$par['t'];

}

// Parametri di default.

$sampleRate=44100; // Frequenza di campionamento.

$baseFreq=500; // Frequenza più bassa (da dove si inizia).

$stepFreq=500; // Distanza dei canali in hertz.

$pixelFreq=200; // Lunghezza di un pixel in hertz (il clock).

$minOverlap=150; // Minima distanza delle frequenze in HZ.

$freq=array(); // Questo conterrà gli oscillatori.

$correggiFont=true;

$maxBandWidth=false;

$listChannels=false;

if (isset($par['freq'])) { // Legge il file frequenze e parametri --freq

$lst=@file($par['freq']) or die("Errore sul file `{$par['freq']}`\n");

if (strpos($lst[0],'@Text2Wave.Freq')===false) die("Tipo di file non riconosciuto.\nDeve iniziare con: @Text2Wave.Freq\n");

$t0=' baseFreq stepFreq pixelFreq sampleRate minOverlap ';

$listChannels=true;

foreach($lst as $numl => $li) {

$li=trim($li,"\t\r\n ");

list($li)=explode(';',$li,2);

if ($li=='') continue;

if ($li[0]!='@') continue;

$li=substr($li,1);

list($a,$b)=explode('=',$li.'=');

$a=trim($a);

$b=trim($b);

if ($a=='Text2Wave.Freq') continue;

if ($a=='info') {

if (@$par['info']) {

list($a,$b)=explode('=',$li,2);

echo 'Info: '.trim($b,"\t ")."\n";

}

continue;

}

if ($a=='font') {

$c=false;

$b = array(

$b,

pathinfo($par['freq'],PATHINFO_DIRNAME)."/$b",

pathinfo($par['freq'],PATHINFO_DIRNAME)."/fonts/$b",

"fonts/$b")

;

foreach($b as $a) {

if (file_exists($a) and is_file($a)) {

$c=$a;

break;

}

}

if ($c===false) die("Font preimpostato non trovato `{$b[0]}`\n");

if (!isset($par['f'])) $par['f']=$c;

$correggiFont=false;

if (@$par['info']) echo "Font preimpostato: $c\n";

continue;

}

if ($a=='start') {

$text=$b.$text;

continue;

}

if ($a=='end') {

$text.=$b;

continue;

}

if ($a=='startEsc') {

$text=stripcslashes($b).$text;

continue;

}

if ($a=='endEsc') {

$text.=stripcslashes($b);

continue;

}

if ($a=='bandWidth') {

list($a,$b)=explode('-',$b,2);

$a=trim($a,"\t ");

$b=trim($b,"\t ");

if ($a=='' or $b=='') die("Errore parser: bandWidth Linea ".($numl+1)." $li\n");

$maxBandWidth = array(

valu($a),

valu($b))

;

$baseFreq = $maxBandWidth[0];

if (@$par['info']) echo "Banda controllata da: $a a $b\n";

continue;

}

if ($a=='noList') {

$listChannels=false;

continue;

}

if ($a=='longMode') {

$pixelFreq = 1 / $pixelFreq;

if (@$par['info']) echo "Modalità longMode attivata.\n";

continue;

}

if (

$a=='' or

$b=='' or

strpos($a,' ')!==false or

strpos($t0," $a ")===false

) die("Errore parser: Linea ".($numl+1)." $li\n");

$$a=valu($b);

}

}

// Lettura dei parametri e verifiche varie.

if (!@$par['f']) die("Manca -f\n");

$font = loadFont($par['f']) or die("\nErrore nel file del font!\n");

$fontHeight= $font['height'];

$fontWidth = $font['width'] ? $font['width'] : 8;

if ($correggiFont and $fontHeight==16) { // Aggiustamento per font 8x16.

$stepFreq=400;

$baseFreq=400;

}

if (isset($par['r'])) $sampleRate = valu($par['r']);

if (isset($par['b'])) $baseFreq = valu($par['b']);

if (isset($par['s'])) $stepFreq = valu($par['s']);

if (isset($par['p'])) $pixelFreq = valu($par['p']);

if (isset($par['l'])) $pixelFreq = 1 / $pixelFreq;

if (isset($par['O'])) $par['W']=true;

if (isset($par['L'])) $minOverlap = valu($par['L']);

if (isset($par['bw'])) {

list($a,$b)=explode('-',$par['bw'],2);

if ($a=='' or $b=='') die("Errore sul parametro -bw <da-a>\n");

$maxBandWidth = array( valu($a) , valu($b) ) ;

}

if ($maxBandWidth and $maxBandWidth[1]<=$maxBandWidth[0]) die("Errore sul parametro -bw <da-a>\n");

if ($pixelFreq>$baseFreq) die("Parametri di frequenza non validi: pixel > base\n");

if ($baseFreq>($sampleRate/2)) die("Parametri di frequenza non validi: base > bandwidth\n");

if (($baseFreq + ($fontHeight*$stepFreq))>($sampleRate/2)) die("Parametri di frequenza non validi: siamo fuori banda.\n");

if (isset($par['N'])) { // Rimuove spazi, cr, lf, tab.

$text=str_replace(array("\t","\r","\n"),' ',$text);

while(strpos($text,' ')!=='') $text=str_replace(' ',' ',$text);

}

if (isset($par['O'])) $fout=STDOUT; else $fout=fopen($par['o'],'w') or die("\nErrore sul file di output!\n");

if (!isset($par['W'])) WaveHeader($fout,$sampleRate); // Inizializza il file come wave.

$map=array(); // Questo array contiene la bitmap finale.

//Conversione codifica caratteri.

$encIn = false;

$encOut= 'UTF-8';

if (isset($font['charset'])) $encOut=$font['charset'];

if (isset($par['c'])) $encIn=$par['c'];

// Start e stop.

if (isset($par['P'])) {

$par['e']=true;

$text='\\($START)'.$text.'\\($STOP)';

}

// Modalità speciali.

$fMod = isset($font['mode']) && $font['mode']&1 && isset($font['map']); // Rimappatura caratteri

$fBas = isset($font['mode']) && $font['mode']&2 && isset($font['map']); // Offset caratteri.

if ($fBas) $font['map']['_'] = "\xff\xff\x00\x00\x00\x00"; // Offset di sistema.

if (isset($par['e'])) { // Elabora le sezioni \( ... )

$t0 = parser($text);

$text='';

foreach($t0 as $tok) {

if ($tok[0]) {

if (@$tok[1][0]=='#') { // \(#xxxx) Carattere unicode

$t0 = hexdec(substr($tok[1],1));

$text.=pack('n',$t0 & 0xFFFF);

continue;

}

if (

@$tok[1][0]!='$' and ( // Rimappatura interna

!isset($font['map']) or

!isset($font['map'][$tok[1]]

)

)

) die("Stringa non definita: `{$tok[1]}`\n");

$text.=$font['map'][$tok[1]];

} else {

$tok[1]=stripcslashes($tok[1]);

$text.=encode($tok[1],$encOut,$encIn);

}

}

} else $text= encode($text,$encOut,$encIn);

$text=unpack('n*',$text);

if ($fBas) { // Elabora la modalità offset con UFFFF

$j=count($text)+1;

$out=array(0);

$base=0;

$chDa=-1;

$chA=-1;

for ($i=0;$i<$j;$i++) {

$ch = $text[$i];

if ($ch==65535) {

$i++;

$base = $text[$i++];

$chA = $text[$i] & 0xFF;

$chDa = $text[$i] >> 8;

continue;

}

if ($base and $ch>=$chDa and $ch<=$chA) {

$ch = ($ch-$chDa+$base) & 0xFFFF;

}

$out[] = $ch;

}

$text=$out;

}

$j=count($text)+1; // Tipico ciclo for per convertire la stringa.

$FW = $font['width'] ? $font['width'] : 8;

for ($i=1;$i<$j;$i++) {

if ($fMod) {

$id = '@'.str_pad(dechex($text[$i]),4,'0',STR_PAD_LEFT);

if (isset($font['map'][$id])) {

$t0=unpack('n',$map[$id]);

$text[$i] = $t0[1];

}

}

addBmp($map,charBmp($font,$text[$i]),$FW); // Aggiungi ogni bitmap di ogni carattere alla bitmap finale.

}

$imgWidth=count($map); // Trova la larghezza della bitmap.

if (@$par['freq'] and $listChannels) { // Ricarica le frequenze se c'è listChannel attivato.

$lst = file($par['freq']) or die("Errore nel file delle frequenze.\n");

$frx = array();

foreach($lst as $num => $li) {

$li=str_replace("\t",' ',$li);

$li=trim($li,"\t\r\n ");

list($li)=explode(';',$li,2);

if ($li=='') continue;

if ($li[0]=='@') continue;

while(strpos($li,' ')!==false) $li=str_replace(' ',' ',$li);

$li=explode(' ',$li);

if (count($li)!=3) die("Errore del parser: `{$par['freq']}` line: ".($num+1)."\n");

$a=intval($li[0]);

$frx[$a]=$li;

}

ksort($frx);

$lst=null;

foreach($frx as $ff) {

$f = createFreq($ff[0],$sampleRate);

addFreqMode($f,$ff[1],$ff[2],$sampleRate);

$freq[]=$f;

}

if ($fontHeight>count($freq)) die("Troppo pochi canali di frequenze in questo file `{$par['freq']}`\n");

} else {

// Produzione dei vari oscillatori, uno per riga orizzontale.

for ($i = 0;$i<$fontHeight;$i++) {

$f = $baseFreq+($stepFreq*$i);

$freq[$i] = createFreq($f,$sampleRate);

}

}

// Verifica overlapping dei canali:

$test=array();

foreach($freq as $n => $f) {

$x = floor($f['f'] / $minOverlap);

if (!isset($test[$x])) $test[$x]=array();

$test[$x][] = array($n,$f['f']);

}

$overlap=false;

foreach($test as $f) {

if (count($f)>1) {

foreach($f as $a) {

$freq[$a[0]]['ovr']=true;

}

$overlap=true;

}

}

if (@$par['info']) { // Info:

echo "\nFrequenze:\n";

foreach($freq as $n=>$f) {

echo "Canale ".($n+1)." {$f['f']} Hz ";

if (isset($f['ovr'])) echo "Ov. "; else if ($overlap) echo "-- ";

if ($maxBandWidth) {

if ($f['f']<$maxBandWidth[0] or $f['f']>$maxBandWidth[1]) echo "Fuori banda\n"; else echo "Ok\n";

} else echo "\n";

}

if ($overlap) echo "Ov. = Frequenze quasi sovrapposte.\n";

echo "\nAltezza font: $fontHeight (canali richiesti)\n";

echo "Canali presenti: ".count($freq)."\n";

$x = ($imgWidth * ($maxRept?$maxRept:1) * ($sampleRate/$pixelFreq));

$x = intval($x / $sampleRate);

$x = str_pad(floor($x/3600),2,'0',STR_PAD_LEFT).':'.str_pad(floor($x/60) % 60,2,'0',STR_PAD_LEFT).':'.str_pad($x%60,2,'0',STR_PAD_LEFT);

echo "Lunghezza file: $x\n\n";

exit;

}

if ($overlap and !isset($par['no'])) die("Ci sono delle frequenze troppo vicine.\n");

if ($maxBandWidth) { //verifica bandwidth

foreach($freq as $n => $f) {

if ($f['f']<$maxBandWidth[0] or $f['f']>$maxBandWidth[1]) die("Fuori banda: Canale ".($n+1)." frequenza {$f['f']} Hz\n");

}

}

$pixXx = $sampleRate/$pixelFreq;

$sndWidth= $imgWidth*$pixXx;

$sndHeight=$fontHeight*256; // Valore PCM massimo di una riga verticale.

$fftChk=array_pad(array(),$fontHeight,0); // Questo array ci serve per fare un po di statistica fft.

$maxRept=1;

if (isset($par['R'])) $maxRept=abs(intval($par['R'])); // C'è la possibilità di ripetere la stringa.

$buffer='';

$bufWord=0;

for ($rept=0;$rept<$maxRept;$rept++) { // Per ogni ripetizione, tipicamente 1.

for ($x = 0 ;$x<$sndWidth;$x++) { // Da sinistra a destra.

$q=0; // Valore PCM corrente.

for ($y = 0;$y<$fontHeight;$y++) { // Si analizza la bitmap a righe verticali.

$bit = $map[$mapX][$y];

if (!$bit) $freq[$y]['al']=0; // Se il bit è a 0, si resetta l'oscillatore.

$peak1=oscillator($freq[$y]); // Questo produce l'output dal oscillatore della riga orizzontale.

$mapX = floor($x / $pixXx); // Trova la coordinata X.

$q+=($bit ? $peak1 : 0); // Somma, oppure no, l'onda se il bit dell'immagine bitmap è a 1.

if ($bit and !$fftChk[$y]) $fftChk[$y]=true; // Un po di statistica non guasta.

}

$q=intval(($q/$sndHeight)*20000); // Normalizza l'output ad un valore PCM decente.

// Scrive il valore PCM sul file wave.

if ($par['B']) {

$buffer.=pack('v',$q);

if ($bufWord++>4096) { // 8KB di buffer.

$bufWord=0;

fwrite($fout,$buffer);

$buffer='';

}

} else fwrite($fout, pack('v',$q));

}

}

if ($par['B'] and strlen($buffer)) { // Se usi il buffer, scrive anche gli ultimi dati.

fwrite($fout,$buffer);

$buffer=null;

}

if (!isset($par['W'])) WaveHeader($fout,$sampleRate); // Completa il file wave chiudendo RIFF/WAVE e data.

fclose($fout);

if (isset($par['O'])) exit;

// Analizza le statistiche e tira fuori: (vedi seguito)

$fmin=$sampleRate;

$fmax=1;

for($i = 0;$i<$fontHeight;$i++) {

$f = $freq[$i]['f'];

if ($fftChk[$i]) {

if ($f<$fmin) $fmin=$f;

if ($f>$fmax) $fmax=$f;

}

}

echo "Freq-Min: $fmin\n"; // Frequenza più bassa.

echo "Freq-Max: $fmax\n"; // Frequenza più altra.

echo "Snd-Width: $sndWidth\n"; // "Larghezza" file wave.

$x = intval($sndWidth/$sampleRate);

$x = str_pad(floor($x/3600),2,'0',STR_PAD_LEFT).':'.str_pad(floor($x/60) % 60,2,'0',STR_PAD_LEFT).':'.str_pad($x%60,2,'0',STR_PAD_LEFT);

echo "Snd-Len: $x\n"; // Lunghezza file wave.

?>