program braille(input,output);

uses crt,graph;

var

grd,grm,errc,i,j,k,l,m,n,x,y,r,rell,cont,h:integer;

pal:string[30];

enteros:string[10];

enteros2:string[12];

circulito:string;

dec:char;

{creacion de esferita base}

procedure circ;

begin

circle(x,y,r);

floodfill(x,y,rell);

end;

{creacion de letras y simbolos braille}

procedure aa;

begin

circ;

x:=x+4*r;

end;

procedure bb;

begin

circ;

y:=y+4*r;

circ;

x:=x+4*r

end;

procedure cc;

begin

circ;

x:=x+4*r;

circ;

end;

procedure dd;

begin

circ;

x:=x+4*r;

circ;

y:=y+4*r;

circ;

end;

procedure ee;

begin

circ;

y:=y+4*r;

x:=x+4*r;

circ;

end;

procedure ff;

begin

circ;

y:=y+4*r;

circ;

y:=y-4*r;

x:=x+4*r;

circ;

end;

procedure gg;

begin

circ;

y:=y+4*r;

circ;

x:=x+4*r;

circ;

y:=y-4*r;

circ;

end;

procedure hh;

begin

circ;

y:=y+4*r;

circ;

x:=x+4*r;

circ;

end;

procedure ii;

begin

y:=y+4*r;

circ;

y:=y-4*r;

x:=x+4*r;

circ;

end;

procedure jj;

begin

y:=y+4*r;

circ;

x:=x+4*r;

circ;

y:=y-4*r;

circ;

end;

procedure kk;

begin

circ;

y:=y+8*r;

circ;

x:=x+4*r

end;

procedure ll;

begin

circ;

y:=y+4*r;

circ;

y:=y+4*r;

circ;

x:=x+4*r;

end;

procedure mm;

begin

circ;

y:=y+8*r;

circ;

y:=y-8*r;

x:=x+4*r;

circ;

end;

procedure nn;

begin

circ;

x:=x+4*r;

circ;

y:=y+4*r;

circ;

x:=x-4*r;

y:=y+4*r;

circ;

x:=x+4*r;

end;

procedure enie;

begin

circ;

y:=y+4*r;

circ;

y:=y-4*r;

x:=x+4*r;

circ;

y:=y+4*r;

circ;

y:=y+4*r;

circ;

end;

procedure oo;

begin

circ;

y:=y+8*r;

circ;

y:=y-4*r;

x:=x+4*r;

circ;

end;

procedure pp;

begin

circ;

y:=y+4*r;

circ;

y:=y+4*r;

circ;

y:=y-8*r;

x:=x+4*r;

circ;

end;

procedure qq;

begin

circ;

y:=y+4*r;

circ;

y:=y+4*r;

circ;

y:=y-8*r;

x:=x+4*r;

circ;

y:=y+4*r;

circ;

end;

procedure rr;

begin

circ;

y:=y+4*r;

circ;

y:=y+4*r;

circ;

y:=y-4*r;

x:=x+4*r;

circ;

end;

procedure ss;

begin

y:=y+4*r;

circ;

y:=y+4*r;

circ;

y:=y-8*r;

x:=x+4*r;

circ;

end;

procedure tt;

begin

y:=y+4*r;

circ;

y:=y+4*r;

circ;

y:=y-4*r;

x:=x+4*r;

circ;

y:=y-4*r;

circ;

end;

procedure uu;

begin

circ;

y:=y+8*r;

circ;

x:=x+4*r;

circ

end;

procedure vv;

begin

circ;

y:=y+4*r;

circ;

y:=y+4*r;

circ;

x:=x+4*r;

circ;

end;

procedure ww;

begin

y:=y+4*r;

circ;

x:=x+4*r;

y:=y-4*r;

circ;

y:=y+4*r;

circ;

y:=y+4*r;

circ;

end;

procedure xx;

begin

circ;

x:=x+4*r;

circ;

y:=y+8*r;

x:=x-4*r;

circ;

x:=x+4*r;

circ;

end;

procedure yy;

begin

circ;

x:=x+4*r;

circ;

y:=y+4*r;

circ;

y:=y+4*r;

circ;

x:=x-4*r;

circ;

x:=x+4*r;

end;

procedure zz;

begin

circ;

y:=y+8*r;

circ;

x:=x+4*r;

circ;

y:=y-4*r;

circ;

end;

procedure aacent;

begin

circ;

y:=y+4*r;

circ;

y:=y+4*r;

circ;

x:=x+4*r;

circ;

y:=y-4*r;

circ;

end;

procedure eacent;

begin

y:=y+4*r;

circ;

y:=y+4*r;

circ;

x:=x+4*r;

circ;

y:=y-8*r;

circ;

end;

procedure iacent;

begin

y:=y+8*r;

circ;

y:=y-8*r;

x:=x+4*r;

circ;

end;

procedure oacent;

begin

y:=y+8*r;

circ;

x:=x+4*r;

circ;

y:=y-8*r;

circ;

end;

procedure uacent;

begin

y:=y+4*r;

circ;

y:=y+4*r;

circ;

x:=x+4*r;

circ;

y:=y-4*r;

circ;

y:=y-4*r;

circ;

end;

procedure udoblepunto;

begin

circ;

y:=y+4*r;

circ;

x:=x+4*r;

circ;

y:=y+4*r;

circ;

end;

procedure may;

begin

x:=x+4*r;

circ;

y:=y+8*r;

circ;

x:=x+6*r;

y:=y-8*r;

end;

procedure num;

begin

x:=x+4*r;

circ;

y:=y+4*r;

circ;

y:=y+4*r;

circ;

x:=x-4*r;

circ;

x:=x+4*r;

x:=x+6*r;

y:=y-8*r;

end;

procedure coma;

begin

y:=y+4*r;

circ;

x:=x+4*r;

end;

procedure ptocoma;

begin

y:=y+4*r;

circ;

y:=y+4*r;

circ;

x:=x+4*r;

end;

procedure dosptos;

begin

y:=y+4*r;

circ;

x:=x+4*r;

circ;

end;

procedure pto;

begin

y:=y+8*r;

circ;

x:=x+4*r;

end;

procedure guion;

begin

y:=y+8*r;

circ;

x:=x+4*r;

circ;

end;

procedure exclam;

begin

y:=y+4*r;

circ;

y:=y+4*r;

circ;

y:=y-4*r;

x:=x+4*r;

circ;

end;

procedure interr;

begin

y:=y+4*r;

circ;

y:=y+4*r;

x:=x+4*r;

circ;

end;

procedure comill;

begin

y:=y+4*r;

circ;

y:=y+4*r;

circ;

x:=x+4*r;

circ;

end;

procedure par1;

begin

circ;

y:=y+4*r;

circ;

y:=y+4*r;

x:=x+4*r;

circ;

end;

procedure par2;

begin

y:=y+8*r;

circ;

x:=x+4*r;

y:=y-4*r;

circ;

y:=y-4*r;

circ;

end;

procedure part;

begin

y:=y+4*r;

end;

procedure esp;

begin

x:=x+4*r;

end;

{inicio}

begin

clrscr;

{iniciacion de graph}

begin

grd:=detect;

initgraph(grd,grm,'c:\tp\bgi');

errc:=graphresult;

if errc=grok

then

writeln('ok')

else

writeln('error ',grapherrormsg(errc))

end;

delay(1000);

{presentaciones}

cont:=0;

r:=2;

rell:=7;

setcolor(7);

k:=0;

{presentacion 2 laboratorios de desarrollo}

begin

setcolor(red);

circle(100,175,69);

setcolor(blue);

circle(100,175,72);

rectangle(5,150,30,200);

rectangle(3,148,30,202);

rectangle(170,150,getmaxx-5,200);

rectangle(170,148,getmaxx-3,202);

circle(100,175,75);

setfillstyle(1,blue);

floodfill(0,0,blue);

floodfill(600,400,blue);

floodfill(172,170,blue);

floodfill(169,149,blue);

floodfill(169,201,blue);

floodfill(28,170,blue);

setcolor(red);

circle(100,175,55);

setfillstyle(1,red);

line(52,132,132,222);

line(68,128,148,218);

floodfill(100,175,red);

line(70,224,150,134);

line(54,220,134,130);

floodfill(130,145,red);

floodfill(70,205,red);

floodfill(100,235,red);

setfillstyle(1,yellow);

floodfill(6,151,blue);

floodfill(600,151,blue);

setcolor(2);

setfillstyle(1,15);

settextstyle(10,0,7);

outtextxy(210,95,'X-LABS');

floodfill(280,170,2);

floodfill(230,170,2);

floodfill(345,170,2);

floodfill(415,170,2);

floodfill(475,170,2);

floodfill(540,170,2);

setcolor(0);

outtextxy(210,95,'X-LABS');

setcolor(7);

settextstyle(7,0,4);

outtextxy(192,225,'S O F T W A R E');

setcolor(7);

settextstyle(2,0,5);

outtextxy(50,430,' Laboratorios X Trencito-Valdivia-Chile');

settextstyle(6,0,3);

setcolor(0);

outtextxy(20,20,'developed by');

delay(3000);

end;

{presentacion 4 braille system}

begin

cleardevice;

setcolor(3);

setbkcolor(0);

settextstyle(1,0,2);

outtextxy(50,100,'microhard presents : ');

settextstyle(2,0,0);

outtextxy(154,100,'tm');

settextstyle(10,0,8);

setcolor(red);

outtextxy(70,120,'BR0ILER');

settextstyle(7,0,3);

cont:=1;

for cont:= 0 to 10 do

{repeat}

begin

setcolor((random(getmaxcolor))+2);

outtextxy(310,255,'r e "v i s i o n" 3 . 5');

setcolor(white);

outtextxy(150,300,'traductor espa¤ol - braille');

outtextxy(400,450,'now loading . . .');

delay(300);

setcolor(0);

outtextxy(400,450,'now loading . . .');

{cont:=cont+1;}

delay(300);

end;

{until cont=5;}

end;

repeat

begin

if (dec=('i')) or (dec=('I')) then

begin

dec:=('0');

cleardevice;

setcolor(white);

settextstyle(0,0,0);

begin

outtextxy(180,10,'I N T R U C C I O N E S ');

outtextxy(40,50, 'El siguiente programa fue dise¤ado para convertir palabras y ');

outtextxy(40,70, 'expresiones en espa¤ol a codigo BRAILLE. ');

outtextxy(40,90, 'El maximo de caracteres posibles de ingresar es 30. ');

outtextxy(40,110,'(Se incluye como caracteres letras, espacio, coma, puntos, etc.)');

outtextxy(40,130,'Si desea ingresar un n£mero debe usar "," si es un numero decimal');

outtextxy(40,150,'no entero (ejemplo: 3,5) y "/" si es una fracci¢n (ejemplo 4/2) ');

outtextxy(40,170,'en caso que despues de "/" se ingrese una letra (ej:5/a),el programa');

outtextxy(40,190,'omitira el "/" y lo tomara como 5 a, notese que 5/11 es distinto');

outtextxy(40,210,'de 5/1a, en este caso el programa lo tomara como 5/1 a ');

outtextxy(40,250,'nota: no se consideraran como caracteres validos #,$,%,&,ø,|,@, etc');

outtextxy(40,270,'en este caso se le asignara un espacio.');

setcolor(red);

outtextxy(300,400,'Presione cualquier tecla para continuar');

{ while not keypressed do}

dec:=readkey;

{ if (dec_2) <> (char(13)) then esp;

while (dec_2=char(13)) do }

end;

end;

{pantalla principal}

settextstyle(1,0,3);

cleardevice;

x:=10;

y:=190;

i:=0;

rell:=15;

begin

setcolor(7);

setfillstyle(1,rell);

outtextxy(230,10,'ingrese su frase');

settextstyle(0,0,0);

setcolor(3);

outtextxy(240,60,'maximo 30 caracteres');

settextstyle(1,0,3);

{lectura de datos (letras)}

setcolor(rell);

k:=0;

rell:=1;

repeat

i:=i+1;

pal[i]:=readkey;

if pal[i]<>char(13) then

outtextxy(39*rell,90+k*35,pal[i]);

delay(100);

rell:=rell+1;

if (rell*40>600) then

begin

k:=k+1;

rell:=1;

end;

until (pal[i]=char(13)) or (i=30)

end;

rell:=15;

k:=0;

enteros:=('12345678900');

enteros2:=('1234567890,/,');

{radio de la esferita}

r:=3;

k:=0;

{traduccion a braille}

for j:=1 to i do

begin

if x>=610 then

begin

y:=190+(k+1)*100;

x:=10;

k:=k+1;

end;

l:=0;

{buscador de fracciones}

repeat

l:=l+1;

until (pal[l]=('/')) or (l=i);

if l<>i then;

{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{}

if pal[j]=('a') then aa;

if pal[j]=('b') then bb;

if pal[j]=('c') then cc;

if pal[j]=('d') then dd;

if pal[j]=('e') then ee;

if pal[j]=('f') then ff;

if pal[j]=('g') then gg;

if pal[j]=('h') then hh;

if pal[j]=('i') then ii;

if pal[j]=('j') then jj;

if pal[j]=('k') then kk;

if pal[j]=('l') then ll;

if pal[j]=('m') then mm;

if pal[j]=('n') then nn;

if pal[j]=('¤') then enie;

if pal[j]=('o') then oo;

if pal[j]=('p') then pp;

if pal[j]=('q') then qq;

if pal[j]=('r') then rr;

if pal[j]=('s') then ss;

if pal[j]=('t') then tt;

if pal[j]=('u') then uu;

if pal[j]=('v') then vv;

if pal[j]=('w') then ww;

if pal[j]=('x') then xx;

if pal[j]=('y') then yy;

if pal[j]=('z') then zz;

if pal[j]=(' ') then aacent;

if pal[j]=(' ') then eacent;

if pal[j]=('¡') then iacent;

if pal[j]=('¢') then oacent;

if pal[j]=('£') then uacent;

if pal[j]=('£') then udoblepunto;

if pal[j]=(',') then coma;

if pal[j]=('.') then pto;

if pal[j]=(';') then ptocoma;

if pal[j]=(':') then dosptos;

if pal[j]=('-') then guion;

if (pal[j]=('­')) or (pal[j]=('!')) then exclam;

if (pal[j]=('¨')) or (pal[j]=('?')) then interr;

if pal[j]=('"') then comill;

if pal[j]=('(') then par1;

if pal[j]=(')') then par2;

if pal[j]=('/') then part;

if (pal[j]=(' ')) or (pal[j]=('#')) or (pal[j]=('$')) or (pal[j]=('%')) or (pal[j]=('&')) then esp;

if (pal[j]=('@')) or (pal[j]=('_')) or (pal[j]=('*')) or (pal[j]=('[')) or (pal[j]=(']')) then esp;

if (pal[j]=('+')) or (pal[j]=('<')) or (pal[j]=('>')) or (pal[j]=('=')) or (pal[j]=('|')) then esp;

if (pal[j]=('ø')) or (pal[j]=('ª')) or (pal[j]=('~')) then esp;

if pal[j]=('A') then

begin

may;

aa;

end;

if pal[j]=('B') then

begin

may;

bb;

end;

if pal[j]=('C') then

begin

may;

cc;

end;

if pal[j]=('D') then

begin

may;

dd;

end;

if pal[j]=('E') then

begin

may;

ee;

end;

if pal[j]=('F') then

begin

may;

ff;

end;

if pal[j]=('G') then

begin

may;

gg;

end;

if pal[j]=('H') then

begin

may;

hh;

end;

if pal[j]=('I') then

begin

may;

ii;

end;

if pal[j]=('J') then

begin

may;

jj;

end;

if pal[j]=('K') then

begin

may;

kk;

end;

if pal[j]=('L') then

begin

may;

ll;

end;

if pal[j]=('M') then

begin

may;

mm;

end;

if pal[j]=('N') then

begin

may;

nn;

end;

if pal[j]=('¥') then

begin

may;

enie;

end;

if pal[j]=('O') then

begin

may;

oo;

end;

if pal[j]=('P') then

begin

may;

pp;

end;

if pal[j]=('Q') then

begin

may;

qq;

end;

if pal[j]=('R') then

begin

may;

rr;

end;

if pal[j]=('S') then

begin

may;

ss;

end;

if pal[j]=('T') then

begin

may;

tt;

end;

if pal[j]=('U') then

begin

may;

uu;

end;

if pal[j]=('V') then

begin

may;

vv;

end;

if pal[j]=('W') then

begin

may;

ww;

end;

if pal[j]=('X') then

begin

may;

xx;

end;

if pal[j]=('Y') then

begin

may;

yy;

end;

if pal[j]=('Z') then

begin

may;

zz;

end;

{fila de numeros}

m:=0;

repeat

m:=m+1;

until (m=11) or (pal[j]=enteros[m]);

if (m<>11) then

begin

m:=0;

n:=j;

repeat

n:=n+1;

m:=0;

repeat

m:=m+1;

until (m=13) or (pal[n]=enteros2[m]);

until (m=13);

end;

{{{{{{{{{{{{{}

m:=0;

repeat

m:=m+1;

until (m=11) or (pal[j]=enteros[m]) ;

h:=0;

repeat

h:=h+1;

until (h=11) or (pal[l+1]=enteros[h]) ;

if m<>11 then

begin

num;

for j:=j to n-1 do

begin

if (l<>i) and (h<>11) and (j<l) then part;

if pal[j]=('1') then

begin

aa;

end;

if pal[j]=('2') then

begin

bb;

end;

if pal[j]=('3') then

begin

cc;

end;

if pal[j]=('4') then

begin

dd;

end;

if pal[j]=('5') then

begin

ee;

end;

if pal[j]=('6') then

begin

ff;

end;

if pal[j]=('7') then

begin

gg;

end;

if pal[j]=('8') then

begin

hh;

end;

if pal[j]=('9') then

begin

ii;

end;

if pal[j]=('0') then

begin

jj;

end;

if pal[j]=(',') then coma;

if j<>n-1 then

begin

if x<626 then

begin

y:=190+k*100;

x:=x+6*r;

end;

if x>=626 then

begin

y:=190+(k+1)*100;

x:=10;

;

end;

end;

if j=n-1 then x:=x+6*r;

end;

end;

if x<626 then

begin

y:=190+k*100;

x:=x+6*r;

end

else if x>=610 then

begin

y:=190+(k+1)*100;

x:=10;

k:=k+1;

end;

end;

{instruccion continuar o no}

dec:='e';

repeat

outtextxy(10,450,'desea seguir ingresando? (s/n) instrucciones?(i)');

dec:=readkey ;

until (dec=('s')) or (dec=('S')) or (dec=('N')) or (dec=('n')) or (dec=('i')) or (dec=('I'))

{instruccion para salir}

end;

until (dec=('n')) or (dec=('N'));

{pantalla de despedida}

cleardevice;

setcolor(7);

outtextxy(170,200,'gracias por su preferencia');

setcolor(red);

settextstyle(2,0,4);

outtextxy(330,390,'a d v e r t e n c i a :');

settextstyle(0,0,0);

setcolor(15);

outtextxy(300,430,'cualquier reproduccion parcial o total');

outtextxy(300,450,' es un asqueroso plagio ');

delay(5000);

cleardevice;

settextstyle(3,0,3);

outtextxy(250,20,'DESARROLLO');

outtextxy(225,90,'PROGRAMADORES:');

outtextxy(135,140,'Cristian T Andres Nitrigual Perez');

outtextxy(115,230,'Andres Z Fernando Vargas Alvarado');

outtextxy(135,320,'Denis X Hardy Pacheco Bollmann');

outtextxy(225,430,'T H E E N D');

delay(6000);

cleardevice;

closegraph;

end.

{fin}