Texttobr.pl

%% Important: See instructions for using texttobr.pl.
use_module(library(pio)).
%% texttobr - converts file stream to list of 3D dimensions of each character
texttobr :-
phrase_from_file(string(String), 'file.txt'),
br(String),!.
string(String) --> list(String).
list([]) --> [].
list([L|Ls]) --> [L], list(Ls).
br([]) :-
!.
br([Code|Codes]) :-
char_code(Character,Code),
br(Character,_X,_Y,_Z),
brth(Character,_Brth),
%%write([Character,X,Y,Z]),
%%write(' '),
br(Codes).
brth(_,sweet).
br('A',1,1.5,0).
br('B',1,1.5,0).
br('C',1,1.5,0).
br('D',1,1.5,0).
br('E',1,1.5,0).
br('F',1,1.5,0).
br('G',1,1.5,0).
br('H',1,1.5,0).
br('I',1,1.5,0).
br('J',1,1.5,0).
br('K',1,1.5,0).
br('L',1,1.5,0).
br('M',1,1.5,0).
br('N',1,1.5,0).
br('O',1,1.5,0).
br('P',1,1.5,0).
br('Q',1,1.5,0).
br('R',1,1.5,0).
br('S',1,1.5,0).
br('T',1,1.5,0).
br('U',1,1.5,0).
br('V',1,1.5,0).
br('W',1,1.5,0).
br('X',1,1.5,0).
br('Y',1,1.5,0).
br('Z',1,1.5,0).
br('a',1,1,0).
br('b',1,1.5,0).
br('c',1,1,0).
br('d',1,1.5,0).
br('e',1,1,0).
br('f',1,2.5,0).
br('g',1,2,0).
br('h',1,1.5,0).
br('i',1,1.5,0).
br('j',1,2.5,0).
br('k',1,1.5,0).
br('l',1,1.5,0).
br('m',1,1,0).
br('n',1,1,0).
br('o',1,1,0).
br('p',1,2,0).
br('q',1,2,0).
br('r',1,1,0).
br('s',1,1,0).
br('t',1,1.5,0).
br('u',1,1,0).
br('v',1,1,0).
br('w',1,1,0).
br('x',1,1,0).
br('y',1,2,0).
br('z',1,1,0).
br('?',1,1.5,0).
br('-',1,1,0).
br(' ',1,1,0).
br(',',1,1,0).
br('(',1,1.5,0).
br(')',1,1.5,0).
br('|',1,2.5,0).
br('.',1,1,0).
br(':',1,1,0).
br('_',1,1,0).
br('\'',1,1.5,0).
br('[',1,1.5,0).
br(']',1,1.5,0).
br('<',1,1,0).
br('>',1,1,0).
br('0',1,1.5,0).
br('1',1,1.5,0).
br('2',1,1.5,0).
br('3',1,1.5,0).
br('4',1,1.5,0).
br('5',1,1.5,0).
br('6',1,1.5,0).
br('7',1,1.5,0).
br('8',1,1.5,0).
br('9',1,1.5,0).
br('{',1,1.5,0).
br('}',1,1.5,0).
br('\n',1,1,0).
br(_,1,1,0).