160 lines
7.4 KiB
Plaintext
160 lines
7.4 KiB
Plaintext
#
|
|
# Copyright (C) 2010, 2011 DocArch <http://www.docarch.be>.
|
|
#
|
|
# This file is part of liblouis.
|
|
#
|
|
# liblouis is free software: you can redistribute it and/or modify it
|
|
# under the terms of the GNU Lesser General Public License as
|
|
# published by the Free Software Foundation, either version 2.1 of the
|
|
# License, or (at your option) any later version.
|
|
#
|
|
# liblouis is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
# Lesser General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU Lesser General Public
|
|
# License along with liblouis. If not, see
|
|
# <http://www.gnu.org/licenses/>.
|
|
#
|
|
#-------------------------------------------------------------------------------
|
|
#
|
|
# Flemish Braille Math Code (a.k.a. Woluwe code)
|
|
# Created and maintained by Bert Frees <bertfrees@gmail.com>
|
|
# See also: « Handleiding Braillesymbolen Wiskunde »
|
|
# (Gilbert Notaert, Marc Suij en Emmanuel Vandekerkhove, G.on Woluwe, 1984)
|
|
#
|
|
# ----------------------------------------------------------------------------------------------
|
|
|
|
include wiskunde-chardefs.cti
|
|
include nl-chardefs.uti
|
|
include braille-patterns.cti
|
|
include litdigits6Dots.uti
|
|
|
|
numsign 3456
|
|
capsletter 46
|
|
begcapsword 45
|
|
midnum , 2
|
|
midnum . 3
|
|
|
|
repeated \x0020 0
|
|
repeated \x00A0 a
|
|
|
|
class uppergreek \x0391\x0392\x0393\x0394\x0395\x0396\x0397\x0398\x0399\x039A\x039B\x039C\x039D\x039E\x039F\x03A0\x03A1\x03A3\x03A4\x03A5\x03A6\x03A7\x03A8\x03A9
|
|
class lowergreek \x03B1\x03B2\x03B3\x03B4\x03B5\x03B6\x03B7\x03B8\x03B9\x03BA\x03BB\x03BC\x03BD\x03BE\x03BF\x03C0\x03C1\x03C2\x03C3\x03C4\x03C5\x03C6\x03C7\x03C8\x03C9\x03D5
|
|
class operationkeyspace \x002B\x002D\x002E\x003D\x007E\x00B1\x00D7\x00F7\x2190\x2191\x2192\x2193\x2194\x21D0\x21D2\x21D4\x2209\x220C\x2212\x2217\x2223\x2224\x2226\x2243\x2248\x2260\x2261\x2284\x2285\x2288\x2289\x22C5
|
|
class operationkey \x002F\x003C\x2215\x2216\x2225\x2227\x2228\x2229\x222A\x2264\x2282\x2283\x2286\x2287\x22A5\x22D5
|
|
class operationnokey \x003E\x00AF\x0302\x0303\x0304\x2191\x2193\x2208\x220B\x2265
|
|
# class relation
|
|
class digitletter abcdefghij
|
|
swapcd dropped 0123456789 356,2,23,25,256,26,235,2356,236,35
|
|
swapdd upnum 245,1,12,14,145,15,124,1245,125,24 0,0,0,0,0,0,0,0,0,0
|
|
swapdd lownum 356,2,23,25,256,26,235,2356,236,35 0,0,0,0,0,0,0,0,0,0
|
|
|
|
exactdots @0
|
|
exactdots @123456
|
|
exactdots @1256
|
|
exactdots @1456
|
|
exactdots @23
|
|
exactdots @5
|
|
exactdots @56
|
|
|
|
# Overgang van functie naar letter
|
|
|
|
noback context "sin"["\es"]%uppergreek ?
|
|
noback context "cos"["\es"]%uppergreek ?
|
|
noback context "log"["\es"]%uppergreek ?
|
|
noback context "tan"["\es"]%uppergreek ?
|
|
noback context "tg"["\es"]%uppergreek ?
|
|
|
|
noback context "sin"["\es"]%lowergreek ?
|
|
noback context "cos"["\es"]%lowergreek ?
|
|
noback context "log"["\es"]%lowergreek ?
|
|
noback context "tan"["\es"]%lowergreek ?
|
|
noback context "tg"["\es"]%lowergreek ?
|
|
|
|
noback context "sin"["\es"]$l @6
|
|
noback context "cos"["\es"]$l @6
|
|
noback context "log"["\es"]$l @6
|
|
noback context "tan"["\es"]$l @6
|
|
noback context "tg"["\es"]$l @6
|
|
|
|
# Overgang tussen twee lettergedeeltes
|
|
|
|
noback context %uppergreek["\es"]$u @6
|
|
noback context %lowergreek["\es"]$u @6
|
|
noback context $l["\es"]%uppergreek ?
|
|
noback context $l["\es"]%lowergreek ?
|
|
noback context $l["\es"]$l ?
|
|
|
|
# Overgang tussen coefficient en lettergedeelte waarbij verwarring kan ontstaan
|
|
|
|
noback context $d["\es"]%digitletter @6
|
|
noback context $d[]%digitletter @6
|
|
|
|
# Niet-wiskundige tekst
|
|
|
|
noback context ["\et"]$p ?
|
|
noback context ["\et"] @0
|
|
|
|
# Wortelvormen
|
|
|
|
noback context ["\ev"] @146
|
|
|
|
# Lege exponenten en indices
|
|
|
|
noback context ["\ei\e⠌r\en\ex"] ?
|
|
noback context ["\ei\e⠌c\en\ex"] ?
|
|
noback context ["\ei\e⠌l\en\ex"] ?
|
|
noback context ["\ei\e_r\en\ex"] ?
|
|
noback context ["\ei\e_c\en\ex"] ?
|
|
noback context ["\ei\e_l\en\ex"] ?
|
|
noback context ["\en"] ?
|
|
|
|
# Gezakte cijfers, exponenten, indices & breuken
|
|
|
|
noback context "\ef\es"$d."\ed\es"[$d.]"\ex" %dropped # noemer van natuurlijke breuk in gezakte cijfers
|
|
noback context "\e⠌r\es"[$d.]"\ex" %dropped # natuurlijke exponenten en indices in gezakte cijfers
|
|
noback context "\e⠌c\es"[$d.]"\ex" %dropped
|
|
noback context "\e⠌l\es"[$d.]"\ex" %dropped
|
|
noback context "\e_r\es"[$d.]"\ex" %dropped
|
|
noback context "\e_c\es"[$d.]"\ex" %dropped
|
|
noback context "\e_l\es"[$d.]"\ex" %dropped
|
|
|
|
noback context ["\ei"]"\e⠌r\es"%operationkeyspace"\ex" ? # accenten, bewerkings- en relatietekens als index midden of rechts boven
|
|
noback context ["\ei"]"\e⠌r\es"%operationkey"\ex" ?
|
|
noback context ["\ei"]"\e⠌r\es"%operationnokey"\ex" ?
|
|
noback context ["\ei"]"\e⠌c\es"%operationkeyspace"\ex" ?
|
|
noback context ["\ei"]"\e⠌c\es"%operationkey"\ex" ?
|
|
noback context ["\ei"]"\e⠌c\es"%operationnokey"\ex" ?
|
|
|
|
noback context "\e⠌r\es"%operationkeyspace["\ex"] ? # verwijder sluiter
|
|
noback context "\e⠌r\es"%operationkey["\ex"] ?
|
|
noback context "\e⠌r\es"%operationnokey["\ex"] ?
|
|
noback context "\e⠌c\es"%operationkeyspace["\ex"] ?
|
|
noback context "\e⠌c\es"%operationkey["\ex"] ?
|
|
noback context "\e⠌c\es"%operationnokey["\ex"] ?
|
|
|
|
noback context "\es"[]%operationkeyspace @5 # sleutel voor bewerkingstekens
|
|
noback context "\es"[]%operationkey @5
|
|
|
|
noback context ["\ef"] @5@23 # begin van breuk
|
|
noback pass2 %upnum.[@1b-145-1b-234]%lownum. ? # verwijder breukstreep
|
|
noback pass3 [@1b-124-1b-234]%upnum.%lownum. @3456 # herstel cijferteken van teller
|
|
noback pass3 @1b-145 @1256 # breukstreep \ed
|
|
noback pass3 @1b-124 ? # \ef
|
|
noback pass3 @1b-234 ? # \es
|
|
|
|
noback pass3 @1b-24-1b-34-1235 @34 # \ei\e⠌r
|
|
noback pass3 @1b-24-1b-34-14 @456@34 # \ei\e⠌c
|
|
noback pass3 @1b-24-1b-34-123 @3456@34 # \ei\e⠌l
|
|
noback pass3 @1b-24-1b-456-1235 @16 # \ei\e_r
|
|
noback pass3 @1b-24-1b-456-14 @456@16 # \ei\e_c
|
|
noback pass3 @1b-24-1b-456-123 @3456@16 # \ei\e_l
|
|
noback pass3 @1b-24 ? # \ei
|
|
noback pass3 @1b-34-1235 @4 # \e⠌r
|
|
noback pass3 @1b-34-14 @45 # \e⠌c
|
|
|
|
noback pass3 %lownum.[@1b-1346] ? # verwijder sluiter na gezakte cijfers
|
|
noback pass4 @1b-1346 @156 # sluiter \ex
|