Keskustelu: Koodit: PHP: Diginumerot ja kirjaimet

<?php

// Alkuperäinen koodi osoitteessa https://www.ohjelmointiputka.net/koodit_nayta.php?tunnus=1289
// ja sen on kirjoittanut T.M.
//
// kiitos ideasta SysRq868
//
//
// Tämänkin koodin jalosti ttkor
// ttkor@quakenet
//


/*
Lamput jotka sytytetään:

-----0-----
I\    I    /I
I \   8   / I
5 13  I  9  1
I   \ I /   I
I    \I/    I
--6-   -7--
I    /I\    I
I   / I \   I
4 12  I  10 2
I /  11   \ I
I/    I    \I  14
-----3-----   o

*/



// Binäärinä eri numerot:
    $merkki[' '] = bindec('000000000000000');
    $merkki['.'] = bindec('000000000000001');
    $merkki[','] = bindec('000000000000001');
    $merkki['*'] = bindec('000000111111110');
    $merkki['#'] = bindec('110001110000000');
    $merkki['?'] = bindec('110000010001000');
    $merkki['+'] = bindec('000000111001000');
    $merkki['-'] = bindec('000000110000000');
    $merkki['_'] = bindec('000100000000000');
    $merkki['/'] = bindec('000000000100100');
   $merkki['\\'] = bindec('000000000010010');
    $merkki['<'] = bindec('000000000110000');
    $merkki['>'] = bindec('000000000000110');
    $merkki['('] = bindec('000000000110000');
    $merkki[')'] = bindec('000000000000110');
//    $merkki['@'] = bindec('111101010000100'); // pois ku on ruma ku mikä
    $merkki['0'] = bindec('111111000000000');
    $merkki['1'] = bindec('011000000000000');
    $merkki['2'] = bindec('110110110000000');
    $merkki['3'] = bindec('111100110000000');
    $merkki['4'] = bindec('011001110000000');
    $merkki['5'] = bindec('101101110000000');
    $merkki['6'] = bindec('101111110000000');
    $merkki['7'] = bindec('111000000000000');
    $merkki['8'] = bindec('111111110000000');
    $merkki['9'] = bindec('111101110000000');

// Sama kirjaimille
    $merkki['A'] = bindec('111011110000000');
    $merkki['B'] = bindec('001111110000000');
    $merkki['C'] = bindec('100111000000000');
    $merkki['D'] = bindec('011110110000000');
    $merkki['E'] = bindec('100111110000000');
    $merkki['F'] = bindec('100011100000000');
    $merkki['G'] = bindec('101111010000000');
    $merkki['H'] = bindec('011011110000000');
    $merkki['I'] = bindec('000000001001000');
    $merkki['J'] = bindec('011110000000000');
    $merkki['K'] = bindec('000011100110000');
    $merkki['L'] = bindec('000111000000000');
    $merkki['M'] = bindec('011011000100010');
    $merkki['N'] = bindec('011011000010010');
    $merkki['O'] = bindec('111111000000000');
    $merkki['P'] = bindec('110011110000000');
    $merkki['Q'] = bindec('111111000010000');
    $merkki['R'] = bindec('110011110010000');
    $merkki['S'] = bindec('101101110000000');
    $merkki['T'] = bindec('100000001001000');
    $merkki['U'] = bindec('011111000000000');
    $merkki['V'] = bindec('000011000100100');
    $merkki['W'] = bindec('011011000010100');
    $merkki['X'] = bindec('000000000110110');
    $merkki['Y'] = bindec('000000000101010');
    $merkki['Z'] = bindec('100100000100100');
    $merkki['Å'] = bindec('111011110100010');
    $merkki['Ä'] = bindec('111011110100010');
    $merkki['Ö'] = bindec('111111000100010');
    $merkki[''] = bindec('');



// Viivojen paikat
    $line =
    array( // 17x22px
      array( 2,  0,  12,  0),    //0
      array(14,  2,  14,  9),    //1
      array(14, 13,  14, 20),    //2
      array(12, 22,   2, 22),    //3
      array( 0, 20,   0, 13),    //4
      array( 0,  9,   0,  2),    //5
      array( 2, 11,   5, 11),    //6
      array( 9, 11,  12, 11),    //7
      array( 7,  2,   7,  9),    //8
      array(12,  2,   9,  8),    //9
      array(12, 19,   9, 13),    //10
      array( 7, 20,   7, 13),    //11
      array( 2, 19,   5, 13),    //12
      array( 2,  2,   5,  8),    //13
      array(16, 22,  17, 22)    //14
    );





function digi($image, $x, $y, $data, $vari){
    global $merkki, $line;
    $data = (string)$data;
    $k = 19; // Kuinka iso väli numeroille
    for($p = 0; $p < strlen($data); $p++, $x++){
        $binstr = sprintf("%015b", $merkki[$data[$p]]);
        for($u = 0; $u < 15; $u++){
            if($binstr[$u] != "0"){
                imageline(
                  $image,
                  $p*$k + $x+$line[$u][0],
                  $y+$line[$u][1],
                  $p*$k + $x+$line[$u][2],
                  $y+$line[$u][3],
                  $vari
                );
            }
        }
    }
}


header("Content-type: image/png");

$image = imagecreate(600, 200);        // Luodaan kuva
$mus = imagecolorallocate($image, 0, 0, 0);    // Annetaan väri
$vih = imagecolorallocate($image, 0, 255, 0);    // Annetaan toinenkin väri


digi($image, 10, 10, "0123456789", $vih);    // Arvaa, mitä näissä tapahtuu :P
digi($image, 10, 40, "ABCDEFGHIJKLMNOPQRSTUVWXYZ", $vih);
digi($image, 10, 70, "ÅÄÖ*#+-*/?\\<_>()@", $vih);

digi($image, 10, 130, "LÄHETÄ KOMMENTTIA", $vih);
digi($image, 10, 160, "eipäs ole osoite täällä näkyväs koods :P", $vih);


imagepng($image);    // Tulostetaan
imagedestroy($image);    // Poistetaan

// edit: koodia muokattu 9.4.2005
?>