function cifra($x,$y,$r,$c){
switch($c){
case 0: digit($x,$y,$r,true,true,true,false,true,true,true); break;
case 1: digit($x,$y,$r,false,false,true,false,false,true,false); break;
case 2: digit($x,$y,$r,true,false,true,true,true,false,true); break;
case 3: digit($x,$y,$r,true,false,true,true,false,true,true); break;
case 4: digit($x,$y,$r,false,true,true,true,false,true,false); break;
case 5: digit($x,$y,$r,true,true,false,true,false,true,true); break;
case 6: digit($x,$y,$r,true,true,false,true,true,true,true); break;
case 7: digit($x,$y,$r,true,false,true,false,false,true,false); break;
case 8: digit($x,$y,$r,true,true,true,true,true,true,true); break;
case 9: digit($x,$y,$r,true,true,true,true,false,true,true); break;
}
}
function int2digit($d, $r){
$s = "$d";
for($i=0;$i<strlen($s);$i++){
cifra($i*5*$r,0,$r,intval(substr($s,$i,1),10));
}
}