function rectangle(x, y, width, height)
{
	move(x, y);
	line(x+width, y);
	line(x+width, y+height);
	line(x, y+height);
	line(x, y);
}

function segmentLine(x1, y1, x2, y2)
{
    move(x1, y1);
    line(x2, y2);
}

function segment7draw (x,y,w,h,values)
{
    var xw = x+w;
    var yh = y+h;
    var yh2 = y+h/2;

    if (values[0] === 1) //A
    {
        segmentLine(x, y, xw, y);
    }
    if (values[1] === 1) //B
    {
       segmentLine(xw, y, xw, yh2);
    }
    if (values[2] === 1) //C
    {
        segmentLine(xw, yh2, xw, yh);
    }
    if (values[3] === 1) //D
    {
        segmentLine(xw, yh, x, yh);
    }
    if (values[4] === 1) //E
    {
        segmentLine(x, yh, x, yh2);
    }
    if (values[6] === 1) //G
    {
        segmentLine(x, yh2, xw, yh2);
    }
    if (values[5] === 1) //F
    {
        segmentLine(x, yh2, x, y);
    }
}


function segment7write (x,y,w,string)
{
    var characterMap =
    {
        '0': [1, 1, 1, 1, 1, 1, 0],
        '1': [0, 1, 1, 0, 0, 0, 0],
        '2': [1, 1, 0, 1, 1, 0, 1],
        '3': [1, 1, 1, 1, 0, 0, 1],
        '4': [0, 1, 1, 0, 0, 1, 1],
        '5': [1, 0, 1, 1, 0, 1, 1],
        '6': [1, 0, 1, 1, 1, 1, 1],
        '7': [1, 1, 1, 0, 0, 0, 0],
        '8': [1, 1, 1, 1, 1, 1, 1],
        '9': [1, 1, 1, 1, 0, 1, 1],

        'A': [1, 1, 1, 0, 1, 1, 1],
        'B': [0, 0, 1, 1, 1, 1, 1],
        'C': [1, 0, 0, 1, 1, 1, 0],
        'D': [0, 1, 1, 1, 1, 0, 1],
        'E': [1, 0, 0, 1, 1, 1, 1],
        'F': [1, 0, 0, 0, 1, 1, 1],
        'G': [1, 1, 1, 1, 0, 1, 1],
        'H': [0, 1, 1, 0, 1, 1, 1],
        'I': [0, 0, 0, 0, 1, 1, 0],
        'J': [0, 1, 1, 1, 1, 0, 0],
        'K': [0, 1, 1, 0, 1, 1, 1],
        'L': [0, 0, 0, 1, 1, 1, 0],
        'M': [1, 0, 1, 0, 1, 0, 0],
        'N': [0, 0, 1, 0, 1, 0, 1],
        'O': [1, 1, 1, 1, 1, 1, 0],
        'P': [1, 1, 0, 0, 1, 1, 1],
        'Q': [1, 1, 1, 0, 0, 1, 1],
        'R': [0, 0, 0, 0, 1, 0, 1],
        'S': [1, 0, 1, 1, 0, 1, 1],
        'T': [0, 0, 0, 1, 1, 1, 1],
        'U': [0, 1, 1, 1, 1, 1, 0],
        'V': [0, 0, 1, 1, 1, 0, 0],
        'W': [0, 1, 0, 1, 0, 1, 0],
        'X': [0, 1, 1, 0, 1, 1, 1],
        'Y': [0, 1, 1, 1, 0, 1, 1],
        'Z': [1, 1, 0, 1, 1, 0, 1],
        ' ': [0, 0, 0, 0, 0, 0, 0],
        '_': [0, 0, 0, 1, 0, 0, 0],
        '-': [0, 0, 0, 0, 0, 0, 1],
        ',': [0, 0, 1, 0, 0, 0, 0]

    };

    for (var i = 0; i < string.length; i++)
    {
        segment7draw(x, y, w, 2*w, characterMap[string[i]]);
        x += 1.5*w;
    }
}

 
set("power", 20);
set("speed", 100);
segment7write(30, 5, 5, "SPEED");
segment7write(5, 30, 5, "P");
segment7write(5, 42, 5, "O");
segment7write(5, 54, 5, "W");
segment7write(5, 66, 5, "E");
segment7write(5, 78, 5, "R");
segment7write(12, 22, 1.5, "10");
segment7write(12, 35, 1.5, "20");
segment7write(12, 48, 1.5, "30");
segment7write(12, 61, 1.5, "40");
segment7write(12, 74, 1.5, "50");
segment7write(12, 87, 1.5, "60");
segment7write(12, 100, 1.5, "70");
segment7write(12, 113, 1.5, "80");
segment7write(12, 126, 1.5, "90");
segment7write(12, 139, 1.5, "100");
segment7write(19, 17, 1.5, "10");
set("speed", 10);
set("power", 10);
move(19, 22);
line(24, 22);
move(24, 22);
line(24, 32);
move(24, 32);
line(19, 22);
set("speed", 10);
set("power", 20);
move(19, 35);
line(24, 35);
move(24, 35);
line(24, 45);
move(24, 45);
line(19, 35);
set("speed", 10);
set("power", 30);
move(19, 48);
line(24, 48);
move(24, 48);
line(24, 58);
move(24, 58);
line(19, 48);
set("speed", 10);
set("power", 40);
move(19, 61);
line(24, 61);
move(24, 61);
line(24, 71);
move(24, 71);
line(19, 61);
set("speed", 10);
set("power", 50);
move(19, 74);
line(24, 74);
move(24, 74);
line(24, 84);
move(24, 84);
line(19, 74);
set("speed", 10);
set("power", 60);
move(19, 87);
line(24, 87);
move(24, 87);
line(24, 97);
move(24, 97);
line(19, 87);
set("speed", 10);
set("power", 70);
move(19, 100);
line(24, 100);
move(24, 100);
line(24, 110);
move(24, 110);
line(19, 100);
set("speed", 10);
set("power", 80);
move(19, 113);
line(24, 113);
move(24, 113);
line(24, 123);
move(24, 123);
line(19, 113);
set("speed", 10);
set("power", 90);
move(19, 126);
line(24, 126);
move(24, 126);
line(24, 136);
move(24, 136);
line(19, 126);
set("speed", 10);
set("power", 100);
move(19, 139);
line(24, 139);
move(24, 139);
line(24, 149);
move(24, 149);
line(19, 139);
segment7write(27, 17, 1.5, "20");
set("speed", 20);
set("power", 10);
move(27, 22);
line(32, 22);
move(32, 22);
line(32, 32);
move(32, 32);
line(27, 22);
set("speed", 20);
set("power", 20);
move(27, 35);
line(32, 35);
move(32, 35);
line(32, 45);
move(32, 45);
line(27, 35);
set("speed", 20);
set("power", 30);
move(27, 48);
line(32, 48);
move(32, 48);
line(32, 58);
move(32, 58);
line(27, 48);
set("speed", 20);
set("power", 40);
move(27, 61);
line(32, 61);
move(32, 61);
line(32, 71);
move(32, 71);
line(27, 61);
set("speed", 20);
set("power", 50);
move(27, 74);
line(32, 74);
move(32, 74);
line(32, 84);
move(32, 84);
line(27, 74);
set("speed", 20);
set("power", 60);
move(27, 87);
line(32, 87);
move(32, 87);
line(32, 97);
move(32, 97);
line(27, 87);
set("speed", 20);
set("power", 70);
move(27, 100);
line(32, 100);
move(32, 100);
line(32, 110);
move(32, 110);
line(27, 100);
set("speed", 20);
set("power", 80);
move(27, 113);
line(32, 113);
move(32, 113);
line(32, 123);
move(32, 123);
line(27, 113);
set("speed", 20);
set("power", 90);
move(27, 126);
line(32, 126);
move(32, 126);
line(32, 136);
move(32, 136);
line(27, 126);
set("speed", 20);
set("power", 100);
move(27, 139);
line(32, 139);
move(32, 139);
line(32, 149);
move(32, 149);
line(27, 139);
segment7write(35, 17, 1.5, "30");
set("speed", 30);
set("power", 10);
move(35, 22);
line(40, 22);
move(40, 22);
line(40, 32);
move(40, 32);
line(35, 22);
set("speed", 30);
set("power", 20);
move(35, 35);
line(40, 35);
move(40, 35);
line(40, 45);
move(40, 45);
line(35, 35);
set("speed", 30);
set("power", 30);
move(35, 48);
line(40, 48);
move(40, 48);
line(40, 58);
move(40, 58);
line(35, 48);
set("speed", 30);
set("power", 40);
move(35, 61);
line(40, 61);
move(40, 61);
line(40, 71);
move(40, 71);
line(35, 61);
set("speed", 30);
set("power", 50);
move(35, 74);
line(40, 74);
move(40, 74);
line(40, 84);
move(40, 84);
line(35, 74);
set("speed", 30);
set("power", 60);
move(35, 87);
line(40, 87);
move(40, 87);
line(40, 97);
move(40, 97);
line(35, 87);
set("speed", 30);
set("power", 70);
move(35, 100);
line(40, 100);
move(40, 100);
line(40, 110);
move(40, 110);
line(35, 100);
set("speed", 30);
set("power", 80);
move(35, 113);
line(40, 113);
move(40, 113);
line(40, 123);
move(40, 123);
line(35, 113);
set("speed", 30);
set("power", 90);
move(35, 126);
line(40, 126);
move(40, 126);
line(40, 136);
move(40, 136);
line(35, 126);
set("speed", 30);
set("power", 100);
move(35, 139);
line(40, 139);
move(40, 139);
line(40, 149);
move(40, 149);
line(35, 139);
segment7write(43, 17, 1.5, "40");
set("speed", 40);
set("power", 10);
move(43, 22);
line(48, 22);
move(48, 22);
line(48, 32);
move(48, 32);
line(43, 22);
set("speed", 40);
set("power", 20);
move(43, 35);
line(48, 35);
move(48, 35);
line(48, 45);
move(48, 45);
line(43, 35);
set("speed", 40);
set("power", 30);
move(43, 48);
line(48, 48);
move(48, 48);
line(48, 58);
move(48, 58);
line(43, 48);
set("speed", 40);
set("power", 40);
move(43, 61);
line(48, 61);
move(48, 61);
line(48, 71);
move(48, 71);
line(43, 61);
set("speed", 40);
set("power", 50);
move(43, 74);
line(48, 74);
move(48, 74);
line(48, 84);
move(48, 84);
line(43, 74);
set("speed", 40);
set("power", 60);
move(43, 87);
line(48, 87);
move(48, 87);
line(48, 97);
move(48, 97);
line(43, 87);
set("speed", 40);
set("power", 70);
move(43, 100);
line(48, 100);
move(48, 100);
line(48, 110);
move(48, 110);
line(43, 100);
set("speed", 40);
set("power", 80);
move(43, 113);
line(48, 113);
move(48, 113);
line(48, 123);
move(48, 123);
line(43, 113);
set("speed", 40);
set("power", 90);
move(43, 126);
line(48, 126);
move(48, 126);
line(48, 136);
move(48, 136);
line(43, 126);
set("speed", 40);
set("power", 100);
move(43, 139);
line(48, 139);
move(48, 139);
line(48, 149);
move(48, 149);
line(43, 139);
segment7write(51, 17, 1.5, "50");
set("speed", 50);
set("power", 10);
move(51, 22);
line(56, 22);
move(56, 22);
line(56, 32);
move(56, 32);
line(51, 22);
set("speed", 50);
set("power", 20);
move(51, 35);
line(56, 35);
move(56, 35);
line(56, 45);
move(56, 45);
line(51, 35);
set("speed", 50);
set("power", 30);
move(51, 48);
line(56, 48);
move(56, 48);
line(56, 58);
move(56, 58);
line(51, 48);
set("speed", 50);
set("power", 40);
move(51, 61);
line(56, 61);
move(56, 61);
line(56, 71);
move(56, 71);
line(51, 61);
set("speed", 50);
set("power", 50);
move(51, 74);
line(56, 74);
move(56, 74);
line(56, 84);
move(56, 84);
line(51, 74);
set("speed", 50);
set("power", 60);
move(51, 87);
line(56, 87);
move(56, 87);
line(56, 97);
move(56, 97);
line(51, 87);
set("speed", 50);
set("power", 70);
move(51, 100);
line(56, 100);
move(56, 100);
line(56, 110);
move(56, 110);
line(51, 100);
set("speed", 50);
set("power", 80);
move(51, 113);
line(56, 113);
move(56, 113);
line(56, 123);
move(56, 123);
line(51, 113);
set("speed", 50);
set("power", 90);
move(51, 126);
line(56, 126);
move(56, 126);
line(56, 136);
move(56, 136);
line(51, 126);
set("speed", 50);
set("power", 100);
move(51, 139);
line(56, 139);
move(56, 139);
line(56, 149);
move(56, 149);
line(51, 139);
segment7write(59, 17, 1.5, "60");
set("speed", 60);
set("power", 10);
move(59, 22);
line(64, 22);
move(64, 22);
line(64, 32);
move(64, 32);
line(59, 22);
set("speed", 60);
set("power", 20);
move(59, 35);
line(64, 35);
move(64, 35);
line(64, 45);
move(64, 45);
line(59, 35);
set("speed", 60);
set("power", 30);
move(59, 48);
line(64, 48);
move(64, 48);
line(64, 58);
move(64, 58);
line(59, 48);
set("speed", 60);
set("power", 40);
move(59, 61);
line(64, 61);
move(64, 61);
line(64, 71);
move(64, 71);
line(59, 61);
set("speed", 60);
set("power", 50);
move(59, 74);
line(64, 74);
move(64, 74);
line(64, 84);
move(64, 84);
line(59, 74);
set("speed", 60);
set("power", 60);
move(59, 87);
line(64, 87);
move(64, 87);
line(64, 97);
move(64, 97);
line(59, 87);
set("speed", 60);
set("power", 70);
move(59, 100);
line(64, 100);
move(64, 100);
line(64, 110);
move(64, 110);
line(59, 100);
set("speed", 60);
set("power", 80);
move(59, 113);
line(64, 113);
move(64, 113);
line(64, 123);
move(64, 123);
line(59, 113);
set("speed", 60);
set("power", 90);
move(59, 126);
line(64, 126);
move(64, 126);
line(64, 136);
move(64, 136);
line(59, 126);
set("speed", 60);
set("power", 100);
move(59, 139);
line(64, 139);
move(64, 139);
line(64, 149);
move(64, 149);
line(59, 139);
segment7write(67, 17, 1.5, "70");
set("speed", 70);
set("power", 10);
move(67, 22);
line(72, 22);
move(72, 22);
line(72, 32);
move(72, 32);
line(67, 22);
set("speed", 70);
set("power", 20);
move(67, 35);
line(72, 35);
move(72, 35);
line(72, 45);
move(72, 45);
line(67, 35);
set("speed", 70);
set("power", 30);
move(67, 48);
line(72, 48);
move(72, 48);
line(72, 58);
move(72, 58);
line(67, 48);
set("speed", 70);
set("power", 40);
move(67, 61);
line(72, 61);
move(72, 61);
line(72, 71);
move(72, 71);
line(67, 61);
set("speed", 70);
set("power", 50);
move(67, 74);
line(72, 74);
move(72, 74);
line(72, 84);
move(72, 84);
line(67, 74);
set("speed", 70);
set("power", 60);
move(67, 87);
line(72, 87);
move(72, 87);
line(72, 97);
move(72, 97);
line(67, 87);
set("speed", 70);
set("power", 70);
move(67, 100);
line(72, 100);
move(72, 100);
line(72, 110);
move(72, 110);
line(67, 100);
set("speed", 70);
set("power", 80);
move(67, 113);
line(72, 113);
move(72, 113);
line(72, 123);
move(72, 123);
line(67, 113);
set("speed", 70);
set("power", 90);
move(67, 126);
line(72, 126);
move(72, 126);
line(72, 136);
move(72, 136);
line(67, 126);
set("speed", 70);
set("power", 100);
move(67, 139);
line(72, 139);
move(72, 139);
line(72, 149);
move(72, 149);
line(67, 139);
segment7write(75, 17, 1.5, "80");
set("speed", 80);
set("power", 10);
move(75, 22);
line(80, 22);
move(80, 22);
line(80, 32);
move(80, 32);
line(75, 22);
set("speed", 80);
set("power", 20);
move(75, 35);
line(80, 35);
move(80, 35);
line(80, 45);
move(80, 45);
line(75, 35);
set("speed", 80);
set("power", 30);
move(75, 48);
line(80, 48);
move(80, 48);
line(80, 58);
move(80, 58);
line(75, 48);
set("speed", 80);
set("power", 40);
move(75, 61);
line(80, 61);
move(80, 61);
line(80, 71);
move(80, 71);
line(75, 61);
set("speed", 80);
set("power", 50);
move(75, 74);
line(80, 74);
move(80, 74);
line(80, 84);
move(80, 84);
line(75, 74);
set("speed", 80);
set("power", 60);
move(75, 87);
line(80, 87);
move(80, 87);
line(80, 97);
move(80, 97);
line(75, 87);
set("speed", 80);
set("power", 70);
move(75, 100);
line(80, 100);
move(80, 100);
line(80, 110);
move(80, 110);
line(75, 100);
set("speed", 80);
set("power", 80);
move(75, 113);
line(80, 113);
move(80, 113);
line(80, 123);
move(80, 123);
line(75, 113);
set("speed", 80);
set("power", 90);
move(75, 126);
line(80, 126);
move(80, 126);
line(80, 136);
move(80, 136);
line(75, 126);
set("speed", 80);
set("power", 100);
move(75, 139);
line(80, 139);
move(80, 139);
line(80, 149);
move(80, 149);
line(75, 139);
segment7write(83, 17, 1.5, "90");
set("speed", 90);
set("power", 10);
move(83, 22);
line(88, 22);
move(88, 22);
line(88, 32);
move(88, 32);
line(83, 22);
set("speed", 90);
set("power", 20);
move(83, 35);
line(88, 35);
move(88, 35);
line(88, 45);
move(88, 45);
line(83, 35);
set("speed", 90);
set("power", 30);
move(83, 48);
line(88, 48);
move(88, 48);
line(88, 58);
move(88, 58);
line(83, 48);
set("speed", 90);
set("power", 40);
move(83, 61);
line(88, 61);
move(88, 61);
line(88, 71);
move(88, 71);
line(83, 61);
set("speed", 90);
set("power", 50);
move(83, 74);
line(88, 74);
move(88, 74);
line(88, 84);
move(88, 84);
line(83, 74);
set("speed", 90);
set("power", 60);
move(83, 87);
line(88, 87);
move(88, 87);
line(88, 97);
move(88, 97);
line(83, 87);
set("speed", 90);
set("power", 70);
move(83, 100);
line(88, 100);
move(88, 100);
line(88, 110);
move(88, 110);
line(83, 100);
set("speed", 90);
set("power", 80);
move(83, 113);
line(88, 113);
move(88, 113);
line(88, 123);
move(88, 123);
line(83, 113);
set("speed", 90);
set("power", 90);
move(83, 126);
line(88, 126);
move(88, 126);
line(88, 136);
move(88, 136);
line(83, 126);
set("speed", 90);
set("power", 100);
move(83, 139);
line(88, 139);
move(88, 139);
line(88, 149);
move(88, 149);
line(83, 139);
segment7write(91, 17, 1.5, "100");
set("speed", 100);
set("power", 10);
move(91, 22);
line(96, 22);
move(96, 22);
line(96, 32);
move(96, 32);
line(91, 22);
set("speed", 100);
set("power", 20);
move(91, 35);
line(96, 35);
move(96, 35);
line(96, 45);
move(96, 45);
line(91, 35);
set("speed", 100);
set("power", 30);
move(91, 48);
line(96, 48);
move(96, 48);
line(96, 58);
move(96, 58);
line(91, 48);
set("speed", 100);
set("power", 40);
move(91, 61);
line(96, 61);
move(96, 61);
line(96, 71);
move(96, 71);
line(91, 61);
set("speed", 100);
set("power", 50);
move(91, 74);
line(96, 74);
move(96, 74);
line(96, 84);
move(96, 84);
line(91, 74);
set("speed", 100);
set("power", 60);
move(91, 87);
line(96, 87);
move(96, 87);
line(96, 97);
move(96, 97);
line(91, 87);
set("speed", 100);
set("power", 70);
move(91, 100);
line(96, 100);
move(96, 100);
line(96, 110);
move(96, 110);
line(91, 100);
set("speed", 100);
set("power", 80);
move(91, 113);
line(96, 113);
move(96, 113);
line(96, 123);
move(96, 123);
line(91, 113);
set("speed", 100);
set("power", 90);
move(91, 126);
line(96, 126);
move(96, 126);
line(96, 136);
move(96, 136);
line(91, 126);
set("speed", 100);
set("power", 100);
move(91, 139);
line(96, 139);
move(96, 139);
line(96, 149);
move(96, 149);
line(91, 139);
set("speed", 50);
set("power", 100);
move(0, 0);
line(101, 0);
line(101, 154);
line(0, 154);
line(0, 0);