From 800f3222ca5a43f1fd21d98944a9b5c4701a9981 Mon Sep 17 00:00:00 2001 From: KubaPro010 Date: Mon, 10 Mar 2025 16:50:29 +0100 Subject: [PATCH] first commit --- .gitignore | 54 ++ .vscode/.server-controller-port.log | 5 + .vscode/settings.json | 8 + LICENSE | 674 ++++++++++++++++++++++++ README.md | 125 +++++ doc/command_list.md | 25 + doc/mpxgen.jpg | Bin 0 -> 87195 bytes src/CMakeLists.txt | 82 +++ src/ascii_cmd.c | 395 ++++++++++++++ src/ascii_cmd.h | 23 + src/common.h | 33 ++ src/control_pipe.c | 84 +++ src/control_pipe.h | 25 + src/fm_mpx.c | 178 +++++++ src/fm_mpx.h | 45 ++ src/lib.c | 519 +++++++++++++++++++ src/lib.h | 34 ++ src/make-station-logo.sh | 15 + src/minirds.c | 354 +++++++++++++ src/modulator.c | 202 ++++++++ src/modulator.h | 43 ++ src/osc.c | 108 ++++ src/osc.h | 50 ++ src/rds.c | 778 ++++++++++++++++++++++++++++ src/rds.h | 336 ++++++++++++ src/rds2.c | 452 ++++++++++++++++ src/rds2.h | 71 +++ src/rds2_image_data.c | 181 +++++++ src/resampler.c | 52 ++ src/resampler.h | 25 + src/station_logo.jpg | Bin 0 -> 2132 bytes src/supported_cmds.txt | 27 + src/todo.txt | 26 + src/uecp_rds_todo.txt | 21 + src/waveforms.c | 7 + src/waveforms.h | 7 + 36 files changed, 5064 insertions(+) create mode 100644 .gitignore create mode 100644 .vscode/.server-controller-port.log create mode 100644 .vscode/settings.json create mode 100644 LICENSE create mode 100644 README.md create mode 100644 doc/command_list.md create mode 100644 doc/mpxgen.jpg create mode 100644 src/CMakeLists.txt create mode 100644 src/ascii_cmd.c create mode 100644 src/ascii_cmd.h create mode 100644 src/common.h create mode 100644 src/control_pipe.c create mode 100644 src/control_pipe.h create mode 100644 src/fm_mpx.c create mode 100644 src/fm_mpx.h create mode 100644 src/lib.c create mode 100644 src/lib.h create mode 100755 src/make-station-logo.sh create mode 100644 src/minirds.c create mode 100644 src/modulator.c create mode 100644 src/modulator.h create mode 100644 src/osc.c create mode 100644 src/osc.h create mode 100644 src/rds.c create mode 100644 src/rds.h create mode 100644 src/rds2.c create mode 100644 src/rds2.h create mode 100644 src/rds2_image_data.c create mode 100644 src/resampler.c create mode 100644 src/resampler.h create mode 100644 src/station_logo.jpg create mode 100644 src/supported_cmds.txt create mode 100644 src/todo.txt create mode 100644 src/uecp_rds_todo.txt create mode 100644 src/waveforms.c create mode 100644 src/waveforms.h diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..a4930d7 --- /dev/null +++ b/.gitignore @@ -0,0 +1,54 @@ +# Prerequisites +*.d + +# Object files +*.o +*.ko +*.obj +*.elf + +# Linker output +*.ilk +*.map +*.exp + +# Precompiled Headers +*.gch +*.pch + +# Libraries +*.lib +*.a +*.la +*.lo + +# Shared objects (inc. Windows DLLs) +*.dll +*.so +*.so.* +*.dylib + +# Executables +*.exe +*.out +*.app +*.i*86 +*.x86_64 +*.hex + +# Debug files +*.dSYM/ +*.su +*.idb +*.pdb + +# Kernel Module Compile Results +*.mod* +*.cmd +.tmp_versions/ +modules.order +Module.symvers +Mkfile.old +dkms.conf + +build/ \ No newline at end of file diff --git a/.vscode/.server-controller-port.log b/.vscode/.server-controller-port.log new file mode 100644 index 0000000..273ba2c --- /dev/null +++ b/.vscode/.server-controller-port.log @@ -0,0 +1,5 @@ +{ + "port": 13452, + "time": 1728395259887, + "version": "0.0.3" +} \ No newline at end of file diff --git a/.vscode/settings.json b/.vscode/settings.json new file mode 100644 index 0000000..532b052 --- /dev/null +++ b/.vscode/settings.json @@ -0,0 +1,8 @@ +{ + "C_Cpp.errorSquiggles": "disabled", + "files.associations": { + "ascii_cmd.h": "c", + "time.h": "c", + "rds.h": "c" + } +} \ No newline at end of file diff --git a/LICENSE b/LICENSE new file mode 100644 index 0000000..f288702 --- /dev/null +++ b/LICENSE @@ -0,0 +1,674 @@ + GNU GENERAL PUBLIC LICENSE + Version 3, 29 June 2007 + + Copyright (C) 2007 Free Software Foundation, Inc. + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The GNU General Public License is a free, copyleft license for +software and other kinds of works. + + The licenses for most software and other practical works are designed +to take away your freedom to share and change the works. By contrast, +the GNU General Public License is intended to guarantee your freedom to +share and change all versions of a program--to make sure it remains free +software for all its users. We, the Free Software Foundation, use the +GNU General Public License for most of our software; it applies also to +any other work released this way by its authors. You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +them if you wish), that you receive source code or can get it if you +want it, that you can change the software or use pieces of it in new +free programs, and that you know you can do these things. + + To protect your rights, we need to prevent others from denying you +these rights or asking you to surrender the rights. Therefore, you have +certain responsibilities if you distribute copies of the software, or if +you modify it: responsibilities to respect the freedom of others. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must pass on to the recipients the same +freedoms that you received. You must make sure that they, too, receive +or can get the source code. And you must show them these terms so they +know their rights. + + Developers that use the GNU GPL protect your rights with two steps: +(1) assert copyright on the software, and (2) offer you this License +giving you legal permission to copy, distribute and/or modify it. + + For the developers' and authors' protection, the GPL clearly explains +that there is no warranty for this free software. For both users' and +authors' sake, the GPL requires that modified versions be marked as +changed, so that their problems will not be attributed erroneously to +authors of previous versions. + + Some devices are designed to deny users access to install or run +modified versions of the software inside them, although the manufacturer +can do so. This is fundamentally incompatible with the aim of +protecting users' freedom to change the software. The systematic +pattern of such abuse occurs in the area of products for individuals to +use, which is precisely where it is most unacceptable. Therefore, we +have designed this version of the GPL to prohibit the practice for those +products. If such problems arise substantially in other domains, we +stand ready to extend this provision to those domains in future versions +of the GPL, as needed to protect the freedom of users. + + Finally, every program is threatened constantly by software patents. +States should not allow patents to restrict development and use of +software on general-purpose computers, but in those that do, we wish to +avoid the special danger that patents applied to a free program could +make it effectively proprietary. To prevent this, the GPL assures that +patents cannot be used to render the program non-free. + + The precise terms and conditions for copying, distribution and +modification follow. + + TERMS AND CONDITIONS + + 0. Definitions. + + "This License" refers to version 3 of the GNU General Public License. + + "Copyright" also means copyright-like laws that apply to other kinds of +works, such as semiconductor masks. + + "The Program" refers to any copyrightable work licensed under this +License. Each licensee is addressed as "you". "Licensees" and +"recipients" may be individuals or organizations. + + To "modify" a work means to copy from or adapt all or part of the work +in a fashion requiring copyright permission, other than the making of an +exact copy. The resulting work is called a "modified version" of the +earlier work or a work "based on" the earlier work. + + A "covered work" means either the unmodified Program or a work based +on the Program. + + To "propagate" a work means to do anything with it that, without +permission, would make you directly or secondarily liable for +infringement under applicable copyright law, except executing it on a +computer or modifying a private copy. Propagation includes copying, +distribution (with or without modification), making available to the +public, and in some countries other activities as well. + + To "convey" a work means any kind of propagation that enables other +parties to make or receive copies. Mere interaction with a user through +a computer network, with no transfer of a copy, is not conveying. + + An interactive user interface displays "Appropriate Legal Notices" +to the extent that it includes a convenient and prominently visible +feature that (1) displays an appropriate copyright notice, and (2) +tells the user that there is no warranty for the work (except to the +extent that warranties are provided), that licensees may convey the +work under this License, and how to view a copy of this License. If +the interface presents a list of user commands or options, such as a +menu, a prominent item in the list meets this criterion. + + 1. Source Code. + + The "source code" for a work means the preferred form of the work +for making modifications to it. "Object code" means any non-source +form of a work. + + A "Standard Interface" means an interface that either is an official +standard defined by a recognized standards body, or, in the case of +interfaces specified for a particular programming language, one that +is widely used among developers working in that language. + + The "System Libraries" of an executable work include anything, other +than the work as a whole, that (a) is included in the normal form of +packaging a Major Component, but which is not part of that Major +Component, and (b) serves only to enable use of the work with that +Major Component, or to implement a Standard Interface for which an +implementation is available to the public in source code form. A +"Major Component", in this context, means a major essential component +(kernel, window system, and so on) of the specific operating system +(if any) on which the executable work runs, or a compiler used to +produce the work, or an object code interpreter used to run it. + + The "Corresponding Source" for a work in object code form means all +the source code needed to generate, install, and (for an executable +work) run the object code and to modify the work, including scripts to +control those activities. However, it does not include the work's +System Libraries, or general-purpose tools or generally available free +programs which are used unmodified in performing those activities but +which are not part of the work. For example, Corresponding Source +includes interface definition files associated with source files for +the work, and the source code for shared libraries and dynamically +linked subprograms that the work is specifically designed to require, +such as by intimate data communication or control flow between those +subprograms and other parts of the work. + + The Corresponding Source need not include anything that users +can regenerate automatically from other parts of the Corresponding +Source. + + The Corresponding Source for a work in source code form is that +same work. + + 2. Basic Permissions. + + All rights granted under this License are granted for the term of +copyright on the Program, and are irrevocable provided the stated +conditions are met. This License explicitly affirms your unlimited +permission to run the unmodified Program. The output from running a +covered work is covered by this License only if the output, given its +content, constitutes a covered work. This License acknowledges your +rights of fair use or other equivalent, as provided by copyright law. + + You may make, run and propagate covered works that you do not +convey, without conditions so long as your license otherwise remains +in force. You may convey covered works to others for the sole purpose +of having them make modifications exclusively for you, or provide you +with facilities for running those works, provided that you comply with +the terms of this License in conveying all material for which you do +not control copyright. Those thus making or running the covered works +for you must do so exclusively on your behalf, under your direction +and control, on terms that prohibit them from making any copies of +your copyrighted material outside their relationship with you. + + Conveying under any other circumstances is permitted solely under +the conditions stated below. Sublicensing is not allowed; section 10 +makes it unnecessary. + + 3. Protecting Users' Legal Rights From Anti-Circumvention Law. + + No covered work shall be deemed part of an effective technological +measure under any applicable law fulfilling obligations under article +11 of the WIPO copyright treaty adopted on 20 December 1996, or +similar laws prohibiting or restricting circumvention of such +measures. + + When you convey a covered work, you waive any legal power to forbid +circumvention of technological measures to the extent such circumvention +is effected by exercising rights under this License with respect to +the covered work, and you disclaim any intention to limit operation or +modification of the work as a means of enforcing, against the work's +users, your or third parties' legal rights to forbid circumvention of +technological measures. + + 4. Conveying Verbatim Copies. + + You may convey verbatim copies of the Program's source code as you +receive it, in any medium, provided that you conspicuously and +appropriately publish on each copy an appropriate copyright notice; +keep intact all notices stating that this License and any +non-permissive terms added in accord with section 7 apply to the code; +keep intact all notices of the absence of any warranty; and give all +recipients a copy of this License along with the Program. + + You may charge any price or no price for each copy that you convey, +and you may offer support or warranty protection for a fee. + + 5. Conveying Modified Source Versions. + + You may convey a work based on the Program, or the modifications to +produce it from the Program, in the form of source code under the +terms of section 4, provided that you also meet all of these conditions: + + a) The work must carry prominent notices stating that you modified + it, and giving a relevant date. + + b) The work must carry prominent notices stating that it is + released under this License and any conditions added under section + 7. This requirement modifies the requirement in section 4 to + "keep intact all notices". + + c) You must license the entire work, as a whole, under this + License to anyone who comes into possession of a copy. This + License will therefore apply, along with any applicable section 7 + additional terms, to the whole of the work, and all its parts, + regardless of how they are packaged. This License gives no + permission to license the work in any other way, but it does not + invalidate such permission if you have separately received it. + + d) If the work has interactive user interfaces, each must display + Appropriate Legal Notices; however, if the Program has interactive + interfaces that do not display Appropriate Legal Notices, your + work need not make them do so. + + A compilation of a covered work with other separate and independent +works, which are not by their nature extensions of the covered work, +and which are not combined with it such as to form a larger program, +in or on a volume of a storage or distribution medium, is called an +"aggregate" if the compilation and its resulting copyright are not +used to limit the access or legal rights of the compilation's users +beyond what the individual works permit. Inclusion of a covered work +in an aggregate does not cause this License to apply to the other +parts of the aggregate. + + 6. Conveying Non-Source Forms. + + You may convey a covered work in object code form under the terms +of sections 4 and 5, provided that you also convey the +machine-readable Corresponding Source under the terms of this License, +in one of these ways: + + a) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by the + Corresponding Source fixed on a durable physical medium + customarily used for software interchange. + + b) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by a + written offer, valid for at least three years and valid for as + long as you offer spare parts or customer support for that product + model, to give anyone who possesses the object code either (1) a + copy of the Corresponding Source for all the software in the + product that is covered by this License, on a durable physical + medium customarily used for software interchange, for a price no + more than your reasonable cost of physically performing this + conveying of source, or (2) access to copy the + Corresponding Source from a network server at no charge. + + c) Convey individual copies of the object code with a copy of the + written offer to provide the Corresponding Source. This + alternative is allowed only occasionally and noncommercially, and + only if you received the object code with such an offer, in accord + with subsection 6b. + + d) Convey the object code by offering access from a designated + place (gratis or for a charge), and offer equivalent access to the + Corresponding Source in the same way through the same place at no + further charge. You need not require recipients to copy the + Corresponding Source along with the object code. If the place to + copy the object code is a network server, the Corresponding Source + may be on a different server (operated by you or a third party) + that supports equivalent copying facilities, provided you maintain + clear directions next to the object code saying where to find the + Corresponding Source. Regardless of what server hosts the + Corresponding Source, you remain obligated to ensure that it is + available for as long as needed to satisfy these requirements. + + e) Convey the object code using peer-to-peer transmission, provided + you inform other peers where the object code and Corresponding + Source of the work are being offered to the general public at no + charge under subsection 6d. + + A separable portion of the object code, whose source code is excluded +from the Corresponding Source as a System Library, need not be +included in conveying the object code work. + + A "User Product" is either (1) a "consumer product", which means any +tangible personal property which is normally used for personal, family, +or household purposes, or (2) anything designed or sold for incorporation +into a dwelling. In determining whether a product is a consumer product, +doubtful cases shall be resolved in favor of coverage. For a particular +product received by a particular user, "normally used" refers to a +typical or common use of that class of product, regardless of the status +of the particular user or of the way in which the particular user +actually uses, or expects or is expected to use, the product. A product +is a consumer product regardless of whether the product has substantial +commercial, industrial or non-consumer uses, unless such uses represent +the only significant mode of use of the product. + + "Installation Information" for a User Product means any methods, +procedures, authorization keys, or other information required to install +and execute modified versions of a covered work in that User Product from +a modified version of its Corresponding Source. The information must +suffice to ensure that the continued functioning of the modified object +code is in no case prevented or interfered with solely because +modification has been made. + + If you convey an object code work under this section in, or with, or +specifically for use in, a User Product, and the conveying occurs as +part of a transaction in which the right of possession and use of the +User Product is transferred to the recipient in perpetuity or for a +fixed term (regardless of how the transaction is characterized), the +Corresponding Source conveyed under this section must be accompanied +by the Installation Information. But this requirement does not apply +if neither you nor any third party retains the ability to install +modified object code on the User Product (for example, the work has +been installed in ROM). + + The requirement to provide Installation Information does not include a +requirement to continue to provide support service, warranty, or updates +for a work that has been modified or installed by the recipient, or for +the User Product in which it has been modified or installed. Access to a +network may be denied when the modification itself materially and +adversely affects the operation of the network or violates the rules and +protocols for communication across the network. + + Corresponding Source conveyed, and Installation Information provided, +in accord with this section must be in a format that is publicly +documented (and with an implementation available to the public in +source code form), and must require no special password or key for +unpacking, reading or copying. + + 7. Additional Terms. + + "Additional permissions" are terms that supplement the terms of this +License by making exceptions from one or more of its conditions. +Additional permissions that are applicable to the entire Program shall +be treated as though they were included in this License, to the extent +that they are valid under applicable law. If additional permissions +apply only to part of the Program, that part may be used separately +under those permissions, but the entire Program remains governed by +this License without regard to the additional permissions. + + When you convey a copy of a covered work, you may at your option +remove any additional permissions from that copy, or from any part of +it. (Additional permissions may be written to require their own +removal in certain cases when you modify the work.) You may place +additional permissions on material, added by you to a covered work, +for which you have or can give appropriate copyright permission. + + Notwithstanding any other provision of this License, for material you +add to a covered work, you may (if authorized by the copyright holders of +that material) supplement the terms of this License with terms: + + a) Disclaiming warranty or limiting liability differently from the + terms of sections 15 and 16 of this License; or + + b) Requiring preservation of specified reasonable legal notices or + author attributions in that material or in the Appropriate Legal + Notices displayed by works containing it; or + + c) Prohibiting misrepresentation of the origin of that material, or + requiring that modified versions of such material be marked in + reasonable ways as different from the original version; or + + d) Limiting the use for publicity purposes of names of licensors or + authors of the material; or + + e) Declining to grant rights under trademark law for use of some + trade names, trademarks, or service marks; or + + f) Requiring indemnification of licensors and authors of that + material by anyone who conveys the material (or modified versions of + it) with contractual assumptions of liability to the recipient, for + any liability that these contractual assumptions directly impose on + those licensors and authors. + + All other non-permissive additional terms are considered "further +restrictions" within the meaning of section 10. If the Program as you +received it, or any part of it, contains a notice stating that it is +governed by this License along with a term that is a further +restriction, you may remove that term. If a license document contains +a further restriction but permits relicensing or conveying under this +License, you may add to a covered work material governed by the terms +of that license document, provided that the further restriction does +not survive such relicensing or conveying. + + If you add terms to a covered work in accord with this section, you +must place, in the relevant source files, a statement of the +additional terms that apply to those files, or a notice indicating +where to find the applicable terms. + + Additional terms, permissive or non-permissive, may be stated in the +form of a separately written license, or stated as exceptions; +the above requirements apply either way. + + 8. Termination. + + You may not propagate or modify a covered work except as expressly +provided under this License. Any attempt otherwise to propagate or +modify it is void, and will automatically terminate your rights under +this License (including any patent licenses granted under the third +paragraph of section 11). + + However, if you cease all violation of this License, then your +license from a particular copyright holder is reinstated (a) +provisionally, unless and until the copyright holder explicitly and +finally terminates your license, and (b) permanently, if the copyright +holder fails to notify you of the violation by some reasonable means +prior to 60 days after the cessation. + + Moreover, your license from a particular copyright holder is +reinstated permanently if the copyright holder notifies you of the +violation by some reasonable means, this is the first time you have +received notice of violation of this License (for any work) from that +copyright holder, and you cure the violation prior to 30 days after +your receipt of the notice. + + Termination of your rights under this section does not terminate the +licenses of parties who have received copies or rights from you under +this License. If your rights have been terminated and not permanently +reinstated, you do not qualify to receive new licenses for the same +material under section 10. + + 9. Acceptance Not Required for Having Copies. + + You are not required to accept this License in order to receive or +run a copy of the Program. Ancillary propagation of a covered work +occurring solely as a consequence of using peer-to-peer transmission +to receive a copy likewise does not require acceptance. However, +nothing other than this License grants you permission to propagate or +modify any covered work. These actions infringe copyright if you do +not accept this License. Therefore, by modifying or propagating a +covered work, you indicate your acceptance of this License to do so. + + 10. Automatic Licensing of Downstream Recipients. + + Each time you convey a covered work, the recipient automatically +receives a license from the original licensors, to run, modify and +propagate that work, subject to this License. You are not responsible +for enforcing compliance by third parties with this License. + + An "entity transaction" is a transaction transferring control of an +organization, or substantially all assets of one, or subdividing an +organization, or merging organizations. If propagation of a covered +work results from an entity transaction, each party to that +transaction who receives a copy of the work also receives whatever +licenses to the work the party's predecessor in interest had or could +give under the previous paragraph, plus a right to possession of the +Corresponding Source of the work from the predecessor in interest, if +the predecessor has it or can get it with reasonable efforts. + + You may not impose any further restrictions on the exercise of the +rights granted or affirmed under this License. For example, you may +not impose a license fee, royalty, or other charge for exercise of +rights granted under this License, and you may not initiate litigation +(including a cross-claim or counterclaim in a lawsuit) alleging that +any patent claim is infringed by making, using, selling, offering for +sale, or importing the Program or any portion of it. + + 11. Patents. + + A "contributor" is a copyright holder who authorizes use under this +License of the Program or a work on which the Program is based. The +work thus licensed is called the contributor's "contributor version". + + A contributor's "essential patent claims" are all patent claims +owned or controlled by the contributor, whether already acquired or +hereafter acquired, that would be infringed by some manner, permitted +by this License, of making, using, or selling its contributor version, +but do not include claims that would be infringed only as a +consequence of further modification of the contributor version. For +purposes of this definition, "control" includes the right to grant +patent sublicenses in a manner consistent with the requirements of +this License. + + Each contributor grants you a non-exclusive, worldwide, royalty-free +patent license under the contributor's essential patent claims, to +make, use, sell, offer for sale, import and otherwise run, modify and +propagate the contents of its contributor version. + + In the following three paragraphs, a "patent license" is any express +agreement or commitment, however denominated, not to enforce a patent +(such as an express permission to practice a patent or covenant not to +sue for patent infringement). To "grant" such a patent license to a +party means to make such an agreement or commitment not to enforce a +patent against the party. + + If you convey a covered work, knowingly relying on a patent license, +and the Corresponding Source of the work is not available for anyone +to copy, free of charge and under the terms of this License, through a +publicly available network server or other readily accessible means, +then you must either (1) cause the Corresponding Source to be so +available, or (2) arrange to deprive yourself of the benefit of the +patent license for this particular work, or (3) arrange, in a manner +consistent with the requirements of this License, to extend the patent +license to downstream recipients. "Knowingly relying" means you have +actual knowledge that, but for the patent license, your conveying the +covered work in a country, or your recipient's use of the covered work +in a country, would infringe one or more identifiable patents in that +country that you have reason to believe are valid. + + If, pursuant to or in connection with a single transaction or +arrangement, you convey, or propagate by procuring conveyance of, a +covered work, and grant a patent license to some of the parties +receiving the covered work authorizing them to use, propagate, modify +or convey a specific copy of the covered work, then the patent license +you grant is automatically extended to all recipients of the covered +work and works based on it. + + A patent license is "discriminatory" if it does not include within +the scope of its coverage, prohibits the exercise of, or is +conditioned on the non-exercise of one or more of the rights that are +specifically granted under this License. You may not convey a covered +work if you are a party to an arrangement with a third party that is +in the business of distributing software, under which you make payment +to the third party based on the extent of your activity of conveying +the work, and under which the third party grants, to any of the +parties who would receive the covered work from you, a discriminatory +patent license (a) in connection with copies of the covered work +conveyed by you (or copies made from those copies), or (b) primarily +for and in connection with specific products or compilations that +contain the covered work, unless you entered into that arrangement, +or that patent license was granted, prior to 28 March 2007. + + Nothing in this License shall be construed as excluding or limiting +any implied license or other defenses to infringement that may +otherwise be available to you under applicable patent law. + + 12. No Surrender of Others' Freedom. + + If conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot convey a +covered work so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you may +not convey it at all. For example, if you agree to terms that obligate you +to collect a royalty for further conveying from those to whom you convey +the Program, the only way you could satisfy both those terms and this +License would be to refrain entirely from conveying the Program. + + 13. Use with the GNU Affero General Public License. + + Notwithstanding any other provision of this License, you have +permission to link or combine any covered work with a work licensed +under version 3 of the GNU Affero General Public License into a single +combined work, and to convey the resulting work. The terms of this +License will continue to apply to the part which is the covered work, +but the special requirements of the GNU Affero General Public License, +section 13, concerning interaction through a network will apply to the +combination as such. + + 14. Revised Versions of this License. + + The Free Software Foundation may publish revised and/or new versions of +the GNU General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + + Each version is given a distinguishing version number. If the +Program specifies that a certain numbered version of the GNU General +Public License "or any later version" applies to it, you have the +option of following the terms and conditions either of that numbered +version or of any later version published by the Free Software +Foundation. If the Program does not specify a version number of the +GNU General Public License, you may choose any version ever published +by the Free Software Foundation. + + If the Program specifies that a proxy can decide which future +versions of the GNU General Public License can be used, that proxy's +public statement of acceptance of a version permanently authorizes you +to choose that version for the Program. + + Later license versions may give you additional or different +permissions. However, no additional obligations are imposed on any +author or copyright holder as a result of your choosing to follow a +later version. + + 15. Disclaimer of Warranty. + + THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY +APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT +HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY +OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, +THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM +IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF +ALL NECESSARY SERVICING, REPAIR OR CORRECTION. + + 16. Limitation of Liability. + + IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS +THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY +GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE +USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF +DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD +PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), +EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF +SUCH DAMAGES. + + 17. Interpretation of Sections 15 and 16. + + If the disclaimer of warranty and limitation of liability provided +above cannot be given local legal effect according to their terms, +reviewing courts shall apply local law that most closely approximates +an absolute waiver of all civil liability in connection with the +Program, unless a warranty or assumption of liability accompanies a +copy of the Program in return for a fee. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +state the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + + Copyright (C) + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + This program 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 General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . + +Also add information on how to contact you by electronic and paper mail. + + If the program does terminal interaction, make it output a short +notice like this when it starts in an interactive mode: + + Copyright (C) + This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, your program's commands +might be different; for a GUI interface, you would use an "about box". + + You should also get your employer (if you work as a programmer) or school, +if any, to sign a "copyright disclaimer" for the program, if necessary. +For more information on this, and how to apply and follow the GNU GPL, see +. + + The GNU General Public License does not permit incorporating your program +into proprietary programs. If your program is a subroutine library, you +may consider it more useful to permit linking proprietary applications with +the library. If this is what you want to do, use the GNU Lesser General +Public License instead of this License. But first, please read +. diff --git a/README.md b/README.md new file mode 100644 index 0000000..ee8ca42 --- /dev/null +++ b/README.md @@ -0,0 +1,125 @@ +# MiniRDS + +This program is designed for generating a realtime RDS signal. It is capable of RDS2 using up to 3 additional subcarriers. + +This is based on the RDS encoder from [Mpxgen](https://github.com/Anthony96922/mpxgen), which is currently not maintained. + +Note that some missing groups were added from [librds](https://flerken.zapto.org:1115/kuba/librds), [my](https://flerken.zapto.org:1115/kuba) other project + +#### Features +- Low resource requirements +- Support for basic RDS data fields: PS, RT, PTY and AF +- RDS items can be updated through control pipe +- RT+ support +- RDS2 support (including station logo transmission) + +#### To do +- Threading + +#### Planned features +- UECP +- Configuration file + +## What are the changes from normal MiniRDS? +- CMake +- better arguments +- Option to disable ODA +- Better Group Sequence (original had 0A 2A but here it is 0A 0A 0A 0A 2A 2A 2A 2A (2A) so PS appear instantly and RT is fast) +- Added LIC and PIN +- Most commands are compatible with the ASCII format that pira.cz uses +- Custom groups (use `G=BBBBCCCCDDDD` or `CG AAAA BBBB CCCC DDDD`) +- Mono! mono? Mono! Not stereo! why? because the 2 channels were exactly the same in the first place so there was no point in having a 2nd one + +## Build +For Debian-like distros: `sudo apt-get install libao-dev libsamplerate0-dev` to install deps. + +Note that MiniRDS requires CMake to compile (install with `sudo apt install cmake`) + +Once those are installed, run +```sh +git clone https://flerken.zapto.org:1115/kuba/minirds +cd minirds/src +mkdir build +cd build +cmake .. +make +sudo make install +``` + +## How to use +Simply run: +``` +minirds +``` +to confirm proper operation. + +Please see `-h` for more options. + +### Stereo Tool integration +The following setup allows MiniRDS to be used alongside Stereo Tool audio processor. +``` +.-------------. +| Stereo Tool |--(FM MPX w/o RDS)-----. +'-------------' | + v + .-----------------------. + | ALSA dmixer | + | slave: MPX sound card |--------(to sound card)--------> + | 192 kHz | + '-----------------------' + ^ +.---------. | +| MiniRDS |--(RDS output)-------------' +'---------' +``` + +First, add the following contents to ~/.asoundrc: +``` +# ST MPX output +pcm.mpxmix { + type dmix + ipc_key 1001 + slave { + pcm "digital-out" # change to your actual sound card + rate 192000 + } +} +``` + +Next, add the collowing contents to ~/.ao: +``` +dev=mpxmix +``` + +Then set the Stereo Tool MPX output to use the ALSA "mpxmix" output. Finally run minirds. *Adjust volumes accordingly.* + +Note that this setup is not optimal. Hans plans to add RDS2 passthough to the ST external RDS input. [Stereo Tool forum post](https://forums.stereotool.com/viewtopic.php?f=14&t=33793&start=150) + +If you need to you also can run MiniRDS on a ST transmitter modulated as mono audio, which does work however on some TXs the RDS signal may not be great due to harmonics of ST Pilot Tone + +### Changing PS, RT, TA and PTY at run-time +You can control PS, RT, TA (Traffic Announcement flag), PTY (Program Type) and many other items at run-time using a named pipe (FIFO). For this run MiniRDS with the `--ctl` argument. + +Scripts can be written to obtain and send "now playing" text data to MiniRDS for dynamic RDS. + +See the [command list](doc/command_list.md) for a complete list of valid commands. + +### RDS2 +MiniRDS has a working implementation of the RFT protocol in RDS2. Please edit the Makefile accordingly and rebuild for RDS2 capabilities. You may use your own image by using the provided "make-station-logo.sh" script. Valid formats are PNG or JPG and should be about 3kB or less. Larger images take considerably longer to receive. + +## References +- [EN 50067, Specification of the radio data system (RDS) for VHF/FM sound broadcasting in the frequency range 87.5 to 108.0 MHz](http://www.interactive-radio-system.com/docs/EN50067_RDS_Standard.pdf) +- [IEC 62106-2, Radio data system (RDS) – Part 2: Message format: coding and definitions of RDS features](http://downloads.dxing.si/download.php?file=ISO%20Stamdards/RDS/latest%20(includes%20RDS2)/iec-62106-2-2021.pdf) +- [IEC 62106-3, Radio data system (RDS) – Part 3: Usage and registration of Open Data Applications (ODAs)](http://downloads.dxing.si/download.php?file=ISO%20Stamdards/RDS/latest%20(includes%20RDS2)/iec-62106-3-2018.pdf) +- [IEC 62106-4, Radio data system (RDS) – Part 4: Registered code tables](http://downloads.dxing.si/download.php?file=ISO%20Stamdards/RDS/latest%20(includes%20RDS2)/iec-62106-4-2018.pdf) +- [IEC 62106-6, Radio data system (RDS) – Part 6: Compilation of technical specifications for Open Data Applications in the +public domain](http://downloads.dxing.si/download.php?file=ISO%20Stamdards/RDS/latest%20(includes%20RDS2)/iec-62106-6-2018.pdf) +- [P232 RDS Encoder +Technical Manual](https://pira.cz/rds/p232man.pdf) +- [PIRA32 RDS Encoder +Technical Manual](https://pira.cz/rds/manual.pdf) + +## Credits +Note that this is a fork of [Anthony96922](https://github.com/Anthony96922)'s [MiniRDS](https://github.com/Anthony96922/MiniRDS) + +The RDS waveform generator was adapted from [PiFmRds](https://github.com/ChristopheJacquet/PiFmRds) diff --git a/doc/command_list.md b/doc/command_list.md new file mode 100644 index 0000000..9db68ba --- /dev/null +++ b/doc/command_list.md @@ -0,0 +1,25 @@ +## MiniRDS command list + +Most commands are in the ASCII format, for RT you can use `TEXT` or `RT1`, however some comamnds werent yet transitioned to the new command syntax, and here they are: + +### Commands + +#### `MPX` +Set volumes in percent modulation for individual MPX subcarrier signals. + +`MPX 0,9,9,9,9` + +Carriers: (first to last) +Pilot tone +RDS 1 +RDS 2 (67 khz) +RDS 2 (71 khz) +RDS 2 (76 khz) + +#### `VOL` +Set the output volume in percent. + +`VOL 100` + +## Other +See src/supported_cmds.txt \ No newline at end of file diff --git a/doc/mpxgen.jpg b/doc/mpxgen.jpg new file mode 100644 index 0000000000000000000000000000000000000000..fe6a04d5032f20d3b20e54a7ceef5f393f36fa9a GIT binary patch literal 87195 zcmex=Bm<7<_#hv=|r|I2f21g&3F_7#J8C z7#SGaGZ|RGYz7831`uGGz|6qJz`!8Fz`zhQfd$Skm^2a0W;QTjV3;%s!3JqEGB7f< zGBC9=GE^`$vNAHWGB#qsCI)g3Xl~0)0b01APV? z`-+0ZIxItAErKH&^LETbb zUanVete0Puu5V~*X{m2uq;F)TTa=QfTU?n}l31aeSF8**z$LXfxhS)sBr`ux0c2oe zQhsTPtx{=eW{Oo>Vw!1EN{Xp&QlfE+uAyN{qHbb}v7v5?v2lvIsiB2YnqiU>)cT6t z0=V^9gF?y9rXsh%%DE^tu_V;OKfoZ!!O+bV!OW<{z$D1X zEXer(2!lKW10yR~o)MJnK$wwn#iR?;+B1Vl97jh^&Z9FI%bn%0VaZ*teCzqJGgrtbvx}>nyN9P&a7buactm7Wa!P7idPZheaY<=ec|~Pab4zPmdq-#2q{&mJPMbbs z=B!1Fmn>bje8tLDn>KIRx^4T8ox2VlK63Qf@e?OcUAlbb>b2`PZr*zM=<$=M&z`?{ z`Re1R&tJZN`~KtSFOa_&8JHp70%cr~w;0g;CCI?U$i%|J%)$=x7b8=tD+&B zkYgZwVxh2-Q6qC(E1epaH>>0kC^?UO6(__UwM-q4Uta|wAT)E4pggv?6-On6s`tY>Uz4poTO{=B~ zZVWs3<5%7j;jQ~C8=JyyUE^oH+_uoZI%(yJ*A0?)J8MK^(z!RLoJrAQZajY?y6o0X&Xf7G3(sl)%h7cFY#phpYjSn@&-m?g&wroJDK1s`a#4Qm z)mgQs7uP*)=hqCGu9;0pK&4_8Y%--;DrX^U3N*oQyICbjy*)Es+(;Pe_E^g<& zVG;9lIXk<|M)k(98$W$kE9Ysq^Q~H`v>}X7#@J($PPCup&u!ZoWRDyD7ToOpx%snr z0OP%`Q)dnoaIa?Y_!+YCSP|p8RfXTD1jl{a5_IkD*3bUApyD6 zlK9-Nhn~FuM@4{v<6$_@`A)|C_qi%ur>BOTTEWe;(pu%`)R+@x+rqWyr2Z%}o0`P- zN2mV7#0b`@DngYVD-SX`ZfSqQ8gN5Lf^qNkC+b`hjehY0nKzRz32uMi)FZu+L3YX8 zpJjh`2ec}rgs*pNQ`2;R^?8%uS@&IGx4vKY-@Wwx+OPi^+Ws?G&w6u;CADeyq6Mr| zHUu#W$(}f#C(;_ba1-aLiIXH=cYHr2VdO3su+K5m=1`2*w-QL1?dKr0Hqa)9jJSQyoHGPcr(I?YMtkvCZ>w zVQ#a$*=g>MExB$>VrE}F7WHb&rg!Ue|LmEydH1eO*K6Ni`q%a+S20w6H(%%`hTJ79 z5>}p+eCQ<8KVvgPyF#et+)$g%BAJ^^k3CZ{dwN)|i+hD6Z|m>VlRQG#{LZcSuI=3w zuX~`>w{L+#fQOEXykX(-cUMI=hDioJ-JESzy64lDP0A;d|6aSAEcI~W$-GlCYFzKs zpBy-lbE!>iPx`4BS8jSwbvtWv>1L&E{-XPi=9_&>|6JSO{d?_|D?XwJZgJl0S~cG= zg+tUW@|?IrYijP3jmIKg4FhkSROvRny`A%E%@2Wh7J&`-two%em<(Hk=cF88A641> zy=z9|mX4j4jGQMYEQ>f6S+t~~^1SG_>E1fpS{_^{5B1MwVh|9q4xM6=8J`4!!>1Dt>?_=ockm>)q8SoQq&(THJcUb$_CDfVS3_o~jM02a|iYg+J4Keb4!* zkMg8|jYoRk_i?pMyS4YS z>3>bX{1MOXy63{qrXX@?$ve&M8EHIaD^+-p@cxUuWw86acHl9m1%L0U=FeCes=8f1 zB&NY5fI)ql#_SE*uk^Y8ost)|314*cbyaLn(9L)kl?I*8J#K!%XDrU2S-oSmXp(Gb zpKFQpH}xN<*sb)>t#T=HHxgQNCccPqJCB9KsoUE>5uKQknv$6W)I63i^Rp@3LQLBm5bspOIYMc`CjWg<5x@6k5OzW@i zCzeWVi^vZ++N{aDlkpDUGlr(R7m_xDa~K@gD=?mV7NQnv$^G2!4&!Hr-J;HUD*5)6 zJC#kp3I6T=XPnFaTe5lGRl%kiijJYT=N`~dnOEGfK=#0#tCPPO{y3|g_wV3NmL~%J zB3Vl&?pRmeSK#KP9%{)j>shvnBk9)Ag|YvddR(!=JhTIyqs<{)f?w zdH)%r7XN2Bd9#lFWFW`QvM1_XI}WYnh+$CSTEG;dZ1B@x^5=}nfqS=Pg-%v-I3?Qk zK;ZP2%?4qrl?s!Xg$@W5WxuZfk?h}-+4N6#w{lTCU>c8{%^24_(!+3p_pPUHvHY)~$@MRryb^ z2gJBf^nQ4DgZ0{tCbebHU)4;tVVoM|-tp(B>lFTd0SiAJWSKu9wVPGJbDsCZK*oFg zr%vrI+P%T7iCgdDA3u?|caAVroUdQ`&OUj4@6o&M?PgjJlcuKWyxZ+$EK+pwn1$?8 zWraM6$CE$mzj^%8{NSyaUFY^MHC@^}MO*b^rg$++Z`?$DAnTV5vL zRZ%YX(3^X1f}yFjm&wcU6eZr#=Sv+Su81MlG2;MKNy9 zlD9Y2Zs%RQSU3IWr@(^c)eqhzMNXZqFjd`h!m)^^GZE|lGq|dxT#7N6$kZ979<(53 zqucMdpZ+Z6JF`3SY2dU&8`U#*)`(dwo6I5_;;*yw*s~kYD<5uRl&*NNA^c}mlDN%I z>tL<}f9~tCG(0I1j4m%bomv;88T{o-exO^K=h2(d*|%)<-Y@odP22U=*81)9jk(@U z+$S7Q${4cig&5~0)w$KaTF!hremai`bJU}U0&PiW)<50$yys!@_dg4FZ06Bg)Z4r= zudG$S%_SoIt@NA)Keu_D^1F1#xpGF(oehj`mp?sVy6trC)wTl$4!?_7dOIy6rZgEH zNIX{LtQRiHdeC>#THB=id(*CK`DbtW&#>0!Sil~EQ=(TNSKQpz(6M{EiqJdr1SSTF z)Vn>~szW72DjST2CJFvq8|pRZUBtI13+$~{DDErjGO`r;-M(#$MRkkAgN>^Fr`B~i z_2h>J{QjQ9y<=B8L)r?vh0CXTihWV&QE5;=^=g%vL+E#nAg@k-28Oa^1?KyHbMBf- zxGh=mZPK#)dzbFY`13w(>nG-gwOtFF4P#HL2Z+o)P~c^la3hAnEpS7XnCQ$ynob8p zd>k?+-aPrRsd%Hs9fo5MZq}XfI6CRyO|J#JJ16#C$$g+G9bv>c>1^*hXNK+_nk*r0 zudbOf+&T0lPcgP@`3I{h#|kGz&yhViUDbnSY1>Lsxs0=SWA(zeh2Ohnx_RGRv1_t( z*XQy&GqD7fA@#54^5v{2@;_CT{+dMsD8=g#B zEYUOh;Hv$%4B9$smxdOIzn|`V^V9tdKIsXfZ4x}~hZYHK>8;ND_%pMVdDo=lSrgVZ zOk&oHSr_u>mFy>X?d_~916QrNHQl!|_VK!3x|74Ump?DnE!GeH&%hH=w2IR;f2Oeg zZpLj3rYpw04VId_Bh>QHoFcPJmB|(9#~wsjJ)9wSFra189ARlbuD7h4+}=%HG(&b_ zN>KQ-&w|r4ZW%PVy;`-VM@6URkjxtihAGRqUzbf#nO>a|$vyXYp5+9s$%Lh1|NO6sI4h%!G@b+k7;$?A8Mi!tyspKp5E ze;)klEqmIr6nVWzbus#Pk9jIjkMR>pt*;a|<7$fBP(FG3?;Zb?M4cu@%tXk%`GPjeO+T?d~J5>`V9_yYd@#l_C_GiPof*r}98kVb8F&^ldOwZM&{@n{98=MASnt56+G63hLpx)a$L-b1e-vGO(mQOv>)QE= zA?v*+?TvJsH$CQ4m*2I#vtOfcSIgOa+8KICS;_FueS=VG2RFtIW$#o&49N}{N(qCZ$U!WqyG$%7UlQ$&#>z>TyRlbOu}EA8W(i1?LJv4CC|XKhQtY zp62pl-USJYWRKmcE^&*WY2gpik7^qC^nbXNE(;QDnV&dC!NNkx zQ8G=zcq5D8+~v$NSM8Ke$dsJj^f!0WvB0p4+IRhHL;uRn;{WZ;a&5*e%`bJ=tg?3R zwYRPL^6}X8x-%WOi-os5?9_S_vB8P`>`n$tl|@Z_5|5^=Rq?4A!*rHjPV*v|&7o->8x z?59?V8xah4LD3Sb9>?zaS?de@us$l_AYnjjtyK3H~bWEH|&4rdgln=!E@&MNsZf@Kc~p7 z=3$D|4*nfKTtF0IBz1_NgzW3j|-(yYk z8dq7Yq&QT-8^x3PD1I;M=KK_zs(L=?8SGzRGq`sT045SUw__< z9p_HQzP!6-%cWcUf7Iqa`N?tpdvJcFxuL4rrhOt>^Ef6~y$#fsT@fR|c`&C-vc-G~ z*NKJRnn{OQqkP)(bv{o%oL(Toy<4WLC!VJ!cVEywxvL&G)zwbbJUuBr{Z!{g&)D0? z92kVwHibMr`{DG_kCl_$7rwe=aQD;Fmj4XOZ*@Y{rx{OruB_6(`^uA4e~VLhmds0S z$^EqTbm#KZo1#Bk*H5m>(O+|E-&TeB(dW!>UwglO`JKwohXg|=-6&d;n{dWm-l(TUGH^WFa$O7}Zm zQ#KUde0Jl`B!&~cF8u;OLs(qTJqn#7aCp+{2mB(g(poRBzy0hX$|5c_xs91U$5SXb zEXk?Cn^l!TLfYT#bZ&b8p;MkOfB%Y#eYf}BN$a2Qvu}jH+#Bn$HfX<1e70@W<>>tT zxqOWN6P0t_CptaQVpE->QxT)|AzWwS4@CzXnWyiS&aB^cJ9#6cOl5^oE|>S>HSB&hzS<`7U~2rH^T&L$1shuw zomLCn4B!?m*ezYP?M@q?Xrqk=Pq^i}zUPPTDQ=zke7f&m4`s>p-zvvXdi<<6&NvdV zLF?7?%X}e88}sHlYPF?lDD!U(;ny`NXIGdMW0A-CIG=f)^~&qZBkP{6wc0R!uQ}&R zy|Trr6?coZOE1=yEt&h~%9a%|>M80Y&Zwz2saO?sbhyCt^^1Rr? zHX19h%B2{&xh0crofDy_C!0AONa~P0=fv~4F!t%v^%<+zec!!#-~G~em-bD+ zuvBeVz5lfT4A*CAavZYIS-0w-aNU*LbB{1L9hty2ak>QW7FL#|Wn}{WIyLXL)?_73 z=HqUvU=Z+&V7q&$@pH+uO!GZiF+w*Sm zckbEB^7&cQnzE@HNBzv_B=9{64)VPht)4b*`_`>dCHG60t-5CNEd2hdTi?Ij|Ml5W zE-AX~O`ehKhILN8jXxPawH!0s)vrJCoX4^$3T^Sm)2uf{@HBB1H|`PKy+C6&gJn*0 zns>wm7L+jWgL+9+D2-8$p#spoN;e@DkUrss+qc1o_y6Pa4HnWL2IPH|1RuWZJcrggtsV&S7H z(-p%!15zZetXiF`(aid-_o34qqxmyuFdaybtz4|Gv062?^nP9XvTs+dfAW3v&D{65 zJpPG7@H~lAj5iKzbKLW{E>xL)Wh%!R4{5uE1w9fS=@X`XGJM7$TxF>hy3;jBW`g^f z@H`KnIf7vdccr}4d&C3QFi6~3^OSR<|9$lg?IxzVN2h)=yOe+T#QEL>6CA^H8W=Pf ze(vP*m%bw4c5&*{Wp|dWd7qk|eLp+uTYURsCC{5CZ!TArU*5j#zR|H1pN8KaNo@Ra zk>-UbWgf_AZJNAA!$Ypq{> z|NYmM^Q7+M{kN*V{AbXAb>g?mo!UhPKYO-u3pHDptY&x zewOE_pSS)la;t3HBZ;ZS6Uv4B6=bBcH$LvYptOzgnZc@Z#p8;6vZ0<5x7JARJmDC8 zRM2S6&cm%LrR5rtQ)Hipthl|s?VRW)26fRNi@Um}&hEMzxqA2QRX=0vXI}T4-PIGd zb<*x=vq@1U_ut30Z~4RfL3DY4o#Kyb$14J7)72L8d|EWs&|}4ilPX1vpP%W^=aI0M z>oH>Hulu`lf2!M$>XLgpAC9g)d%SfkyJLB}NT$+DBa7P;#Edsxy?shDK*BKTjPb6? z-xMxh`~E1lWs^c-uGx$GmU1D1Vmv=|o1!$`*hE(A8AOZzTL0VGcJ1;*`cil9IE!?P zwU#7@IXpPEiYJ}NK)NDE_`;l?1i>Hj5*3{@KKy5pdm8D-`P<9%u9WEtOI4|^Eeq4d z(@$!j^m-kA?A>qq?vL$K&n(qtQg)UJ`BivLSs8rf;kRDTq-+hX{_^u2$39*<8Cz;U z+t&YK-DaMG``p>TbB+F-S6zE#+IO~F&KZnT6X&O0J7|&WRwOZD`O?D4KNO#BpE#|Y zJzJ95qj2ucduN_(GU`1i8Cf`YPh^MsyRew$$qLoF)Q6pi^IlGjtNy#R=KF8uow?msjZZggKQ5Hi5ubK2V0T2hY8!|A zmV}QMZ(O89AMBk|IlExf%Ua#^wOe28l3(n_Wf* zl-(|@sIesP_J$P)^8~AEb_TG0SYo^~W9etrsVCwm7|U3)C+nonJi)R|x%~5&YRCQvVN^x6~TZK-Ze{Ldij++MWDEx-TBtu`q>zd%o~C6mK?*Q|TK zc;9Y&_h)H8=W(kacx3qF7puyQ7-4IwdEFt`vu59v>Dqy>pn6^;3&QP5E*~0n5zT7K6J}b&H5oQy(p6T21|E;U&>|Dr(y+jnnSy{@jh-dgZTu+p46E zm2#1tM?r!&o^aSg+ z-j1KQ&G2|}ZT1Gkj#CV7518lfSK`@dq|N`3UFY~d|1X)p%`-OKsFDA0r`rB{q-4Cp z+@}XwCOj^@cW}OHz*#Ou$t6b_2b1-vB}*%L3^z_?W^>DE#G(T zRn7KJ8_%wXYgY4i9y~v7YfhQmweHgP{|s#DyFTO} zS&`Ou+y8Fvlk+0`YK)G(TU^o?!WtUj-I8(2t7X%ZjlT~6lb-%CYQntG({@+t@A51= z9;jq=a)aWX-aUz*!nZ4gKfC_+V_|OU$Kaq^D~$yPHzSrFXj57g`E=U*!bE|)dqWk| zlh(wRB^NE17k=^U?UNNNwRhgy-7NHOr+t~trY9O9hmJ9Z#vORJVfjOM{=#dKO^@b; zTK$OH@k`|O)x(Lei!SwgP3U>@ST0;;zPY)+`K?ds^1u2I|A}_yotN}ss>Y*@H>yNe zS8H8vDxPcMc`C3uu;|*I^I?#&_li1m(H6ZMDncStdfVP4wCZrO zs}%Z8{`UBXQ-jGQ-;EoapG=%Q$>G)kgA+e@m9We^@{ikYd6kmn(a^k%d7ubLVBTs}cz z=Z^j|3FCtb{VY99P68e_3F+J3@%ilkaQi<4JG1ETOvMOoK{3Bao-a-<`8cV7&%)xM z=${Wis{VZrY>MBy*(c25RN%g6|61z#c@8uj^)o(c!+TOFWBUw_jP7HfPH=4&Imr4^ zNsqzaQ03jpAijHUQ|tO=RK3=$I4wD2<1fO&AgZ^9W z-0>2zYZnWN!Dw_QdFEat;qd&>$tY|R1R;g_jPXKpZQ)NmFnDU z_AT&)60eL;fY8n2%XLhvT6x~jo4tcCp84zIf1IyB{Pw+GT79=Xc4O10N7qQ%4b7$;L^+d+$?)5yTl=4Z`Q5GTU)S!{ z?mts{#PF5j7Jl`!`s#Uqm_M~j#s`UpGqZXyw6U(%%4d63_F8I*icas|=(76;ixVRq z6;;9njTO0mHw1Av$EqLPactq^{rop$n{AgKTba#s(Q3nekxME*EkAp_CY<3vwbcL2 zV#daQZSVgxq~33?s3$buYNYp?d}81{|wW1cS@XRxqhl} zc}GM%|Hc_IYNlRGWs-xwP2AM0m$@o)%ccCOH~;v*zw)zA>Cu|)ZSy#vajjP~+q_uv za@VBhuAZIC->aWq@4eS7{d3qov1=-gpI$34HvRh|*X5zoqZp>=5qf)@kHHBAnQs@r zMr?ehk+19G#hE`fa5~HSyC;7hOnExB=*U#1eRF=Se(?G{TO>1Ro}?u6g7%O1B$&ldeI zSymfvxX@Y9`9|pCu2!opv%0pcMyzywcWrg-{xiR-gqOxm(GH&bGGw{bgzQj_Q(A#p zccuPpzwq$7`;}8V6IXp$bFnjKq0{Y68{ayqXfey~NMJly#>N&|l6_B9l&SVR&zt`Y z+6jLat1!=9tX{5F)^wBY*xWUDeG8Hdk4yDvvy?{i`BXQ=Fi!BC@O;r!NyQ>-j+@Wr z(u$6HwI-D(HW{)k7Vz2-WH^U;N8#m*N0K&1WV+8Y3EiE&ch=?5)XUf2mvm)mnpc0j zeDT}e^2?tsre4mMuK3w@D7;QZtH-`yLeX2`i7_inBxy(?4zwmES&Ryc8G`{jQZHtXZiocIzc~`@;!S zT@&{-2AnoX~}d% zh_=kvC{dntBZ$xA_8h*eLMaiBtfJmMi#Dp5-96~`j7RXM*Yt$rXSjB99jQGV!*%#r z&vKPjSHCZp)vXI%5*$~3d+)l7UtV$UHv95o&zg7t8T@Ci*75pi{4PD5_fw~2*=qU8 zD+3yO7fgN3Vwm=){}ob%{H* z(@3S9XQuOZ*2w9)+c{40Nqos$6}6ZBA=|WH%lmCqGYjQ%+dE1MH>dx)U}_zjz{csj zBFe|==|rzj9Oq~D%{uh-#u;BvwGCfZUGv>rU+Ne1J$%=^yI-&Ui%3daadD;jH-)FG zHeHM@{kNue;^X|A%a7b=|FWOE#`DAPm@IDT$hfyL_M2kM2WZ?MIDXR;le=o_6ljy$9}+_vIrQX1K*zoUUnj^6qE&yYQ>!|70$g z$}^l?{;F)FZ|>h7#=gKQPSci4$OthqKec%LdHu8Xk8^)j6hBhizwE__sax8frFjJ2 zG+XI2vFQ~z`<*qOii}U2HAVmIJ{-|eabD)M+VLyv+mEG|uJ-1gnfUay<-@rybEPiC zY@8HS_@q22Y;*ql$3NYa+B+j+%D9ccZOMMR7G_NX>;AD z`~EK)>n#6B-r6Kv?#|_LSWsB)*?Go}-#=vf9<$3_S^aVSgDWkMqc3@~vv5qFKSd@* z-L~(|+vf~l*FQ76f23;7X_0+7CpYX`q%ER7xqnWl$b<(1#fr9E{d=_i>;Z*4t zvwU(n_pq~QFS8JL?z;oRlD99UUtIYm?~vN%M>5shCT)qmd@*OW-tD#0pWMzLl3Beh zedh7l`dh(e7jOTFi`SliS>ngZ52+`E*S@INJjiqHa3-_OJ7u~3&dn!}+SG*quy|bb z>X)>J_Nkvdi*5L3D$IG1F8Mb8bnf?F)9UO^-Q|Uw3`LT&&#k!4z;oYtqn}4&PwqKJ zEpxMjAKftQmHIaa70E%e#+E)e3Fh2CQmprr!eT3abVMO{jZZ{7OIwJc-~bN z`x1KHH|}l5nqU5ZoP74?&U)4z`)|Yk-G9%&dhfn=|MLDHQT42M*kYrd6dN>dCo;C# zx5)YNy}eU-#C1z|Fl}ix--(QOj%!l4Si$zn*-rYNSclX|Nv(&jnZ+C|72sm+MN2YLM@|?E^4>GJwZhhEk z6tkxF%*LnlEvCwDKIiq0MJ#d7q@{ff=hzvpvdnBeq&0V$Yna>5Pc5t*$}9#s0-V}C zOcuX4-PpbNgu|MnHw`?FmsnTmN!XtWdBWTywB%8zQ()1&PFJ(b<(GZUearo8^KV@8 zp2Y9AxIArb^_E?^DS!Hx+DZL8w@>xQ^benp%(K0eQtqqw@lEmu!D5@Rj|=BLm5hGB zWRi`v*-E}iGx_eMzpcN?|5(0d%j)tUxgW*O9rxdRiFw(~67i-I#1~r}*UJ9+T=2-3 ziq~DA-}7(OT51uzK1j06m|tai>-u&-p=X}!s*0aXH@aSSefl%|+X0VqUYkF(y0qFc zX!GGm1(&B<-kOs6`R>t|7FVVlm2H{Uo4NjVh@Hw0lY`!I6}ij?PV#SFPP3k$!NN01 zWO9FT6RS_@`evb&t;gGzFr+-qmCq~dpDoF(E^*@E!D9~VpBeFYR;?~n+gz2RGQ~b~ z*WYJvrgCm=ldv4O zzqzHuzf~+*5+xq7=C)*st7QCTc`MAn#<(6tt*t) z9cZ}c<#F;S6K6!bMVJmBQwwXvC#}a{^3JIHUg;NqoGkY3>B_P#FIJadyH;DO{7am`QrG>#k3btfEXvOKAhY zj?)P_3<6G*_^zhK)OddM_6V%;T;iqpHKcUfz87ZT+6VnSVFf znf$T3uw||Dfq%l6N>0zdeM5E2p55EKRDYY~Eq-UwJJqmhmE`dm&upIAbp0v5q86z) z)2ESVMo!&Zhk)nYod!20Q*Up1tMXPwcFW!1Bjul$9{qas%=O?MWk&ZrE}c~15HmFC zwK*bc?GdQSGL@MnX{W4I*v>08r`t2-LhsatX^2175_Jn#3VQJ7FynUXjkEr>J$NV3 z&-2vi@S4yZpO>!HF|Og7ep^GPO>ExPlCW)a`RnrPx`|U#OFqq!l~J|Yy85?$*Vd}O zrBRzQi~WKo=Z9a6R9zJ29w6#vG@-$2D&ND7TLLM@%1@^@+&7- z-953s!mIhJ*M=lchUV)w!ds6kbp6UWrfadk(sQNuU6o6*`#j&LKP}$7Z2hk7?&-Db zf0cZ-b$@7o_-**3`Q0Yx*j;15ip)th}LP|)4;lN499#n4IeD7p3@0r;Jo*gDj zyJp+`K^ zJhV@_;6H=Nd0}Vmr>o;R11}y4eCky&C-rn)czx-PKi*3x-}hf|YV)1VmKCi{M~jn&j{D`^DSG#-3|_rln0QYmH8t#4N9`H;Ey{z~c0ZgSxF8 z9{E#(D!;OKo}cwJ&{>qPYj@F(VEI!XDy_9UwLEkiievAdy<+IDv&nK!LyzZio_A4^ z5;E%;65f>mIbQC@w6iDsT9P6pMbJu|L`F0$#-RLD(He`>)O!m8!(^_QtN(@Ssp z)x^_&p4%2L@^!uWV&460?HfgA-@8_}>1XNw=r4bHx@-MIyQRIK%xyWzs1dHR?s1cB z`?+JzJ3A&nvstlvQ+CyY9A>4TJ9I=t-sDd$I;+yq7Q8#{o7Rqi2p-|B*2+7S1Q;TP zB{~=uG>Fb-NZi2bU|_aFU18FBBa_~^2TD&2?u0NUhtFWWb&9WC>%n%#h-8a{E5n!S zSHIeFyL#E>+s~!AKg~MB+3nn` z)*|t=Z;aWU7Z(4!xPRNmtv#LkdT-YT{5dN6bcU;7PM)gd({L5{2@c%SlN|p|t55U4 zIsMRm78`}_O&st4_^-Tqym<9%p>;py1vvMe&pX#}l*M(%BBce%pLg89{5f7|kK=(4 zdffaSYu#sy&j|gsExxTMbZPkatWtHAtBd_->FPdRQW8Gtr=R*GA9MahMXTxa)OJ5P z9ONH)GBPeY%5eXl_cwLVKcD<4{P6An3~h1BS8a?}tSQQ}s`+jfp2t!b?8(!&x=`TO zlKveRrvE&^VP4tgD*DQPtKEuxJKc(HA13{)TfgGW&%!PJTRa=qq=YbNu~=C0{7m7A z2#gOt{Ns#Y;^YU0SCf_oi?%P1%XfKiDxS70+BNm^x#OGL=d8N0IH;iC=H=x%lO}t5 z1-2}iRJCMj?QgqVUoT{S=M@q5xa~e=%|^3mYk~JV<2wD5(#8wR zPOUi1TBA5I{_HTABV!xZRTi%zqj%wKo63`UvfLX|bU)7%J^lQdw3F1W zE{i20=TF_V&_w90Mec12& z$@eyAzMAay>&>5i=`Ys*5q|Ic`A_1?`wTT}?T%%9dSw^6WTKO{8RwndA3`2K)&9DE z>;9ax8JYGhdt7FBRKL{85#|Yyb`@}MLm4)VgN%@r0Vn6fuwj_~v>IKqQ zuQZ=}u<|_HzP$eoP2ClO?@H$LR-C(bOX-@qyWhSUieY`6)51H?bbsGh5Gv##urtO$ zx9dTD!hX5qODc8;epq_uxAN78MhDiai7sLF2IMlEZA);KFWV={ITC(yxgC)_vo?Q zQ!l;wdoI=HT@jf(x%zmlzqLWDAMZ!6Y3e^p40o)!w!5sm%_#2N)^Bld<1$Sz{L6SB zB*^lrAXa4R?dB~EL9RKEbyhu?++a0%?oPSHT!C5NjFyI&Tr_y{?jE1FQPUa*3+|oM z%T+N{Zg-d+s69g&#!--E*(2}$@AGXmzz?&H`E-Q7-E>XCQkTN z`mlSFbG?)O=J|)C^V{tCN_uVAUgC9ocTM`N%UjlIm5J`3?*20$ zbgT8ZFZG7{&;9N7bxzQ-No84r)6H&Kzj|Bz^Y_u5SL^d!^6Y zZJED?;IS9mCb(sPX+C6DfAb#a1>FFa=v<-GPoMv*4eeBU@a|qE`#j5&PyRF5*Ymx5 zzbF1s>W67V=&ZuzITFq`ENezuae*ojyF<{m<@~ z8yCDVTjgM2X|HkOv4ySO){k*oPqtX(a~_PbZmT)hU7A&2FBrAd;_6zJb<_8YP1-ln zdsWU)eSuA@EX9~xH(Bw<=`D?#e)Zgvzf)4p{@%WO_Wi2c8~?ohcj;G8)cRxfvN0Y@ zJFlxZSfoyzs{1(NK!<_7{tVGdYmd7p&at1r?9g`ej=PJqUsNt@8`Bem8^L89Hx{eRtN3^L;jg?l|0w}it8MtWc+G1QohDV4+ z%HdU#VX>YWD<5hcx)*nf+y6)X52-r-&C@=|Tv{ynUbmE8SM7;Wx|!yGEG$}i>ir&N4)>2M ze|@u`SARP=pf>$cc)v=_#!dVBj^zFt7S^9-&AaEfn4B$ocXPqL z1qW`s><*sb)N%9RiIWfhGZa|!)a+^edi>a1m)CZ-AA2uLcJBMgw%lUkzSkl(vvs$Ac@*$)&$ZM~%?cWmr*qjodsM(_U2t?0;|bHhi4XsB zh5RViKfUUxIS-%U>eY7X?Mo$htpE7g`rfyD-|e$cY+`6Xy~Qb$o85#e2M`p`hmQk;&=N zGhEwzjv1|rin0m>Zy?u2)t!w1@qu1`6|NO4ijGLlY^3_lKt~u)T zr1zDwV%s(CrsYcu>lChr2kftH|88ikx+V4SG<6P@UYRCtA+rYwMGk?jk~-?wH*+_ubPM4X@7}!}v3+`(^ojIRj68q=xm#oG8rn5X!=8W~1Y+J}$o3`@vsdB%U+Q+nB z=015-7yOt_{na1&p4MBXuP!W2|NH8~W&i4ETYJ~!8UGoYnqSqYevq4+surc|9ME^? zh;-h620hJmONGx{6VI7F5PkCC`XiAEZkMO>xm`PPcl%TRISt_w3Mppg1#AW(&%d7j z$7Q&B``m}IqA{E6m&KVxm$MowxyaFTUiyL#hc_I{dl{hkHa zMIWUY?g@Njuajl2dFQN}xsMF)JfZtJ zndS3e{~Cqsx;CB<7UgV2JTNyPfb{} zMCR#C>!cK;b-jN4Kbi`dFmi2i>0o1w;0PWc1NJo%lwKIfH`r}P;eY3Y?%&}&}v zMnu4Tg2mrke^zY$^Y+W+Q>&7TI?}E@)U?^RCL_$#Rx$W~aM)FgvyrxQf9Ls4!2{xh_jtvvf@w(splJ3p4c{rMoXM*pK@=?}%pZ|u~zxuvDXZ$4hg zENF4ZAyK9A@eT8YRcG9sX8k$;QA%vn#6D-2H>b)4*7Yd|n2G+pt>N+MbL)*YXUrb| z692o;PWJYXRzEcha_dHPh`=cYKb>{h8DhsTy?TZQ=xOsejcq0TXY# zeS7MyY*D*#2JdRcTZbi*)=3DoHYhNJe8_%X!*%}gyn<-~bLMQ6tk+}Pw(4y__RW*8 z*4OYej2KzX#R6DUkBrxMOcqT5WgZ z9<8q|tha6?oIIg0S$mSh31;nhhZ>U)dTSr|i)O@0UCx#5TU<3!XqlV;rbL%FzeD?i zl+O9xa}wY`qkU|TNw>;d0jG0@TX@fSsGbv6?K?PuX`=;a?@`yf>;Deev)G-_*FR!g zc3v-#t@pW8=hM|4PlRqCV-uWfF)4q~3pazsrM2ff@5H*d7Wt&v6?d(b^6TT8GyQnn zlBi{ud}E#de5zh5t(%*_;8D)EKF29ZAHPZkx0*{C{HxluCG)86?V@{s^}e~ks6TX` zDYKr}hIeU3*hUqB8xgMG+7cF2b~P?lSrH>xXwPYKjv57v0idr^(w$Kd)bjQ z3-1+QT@@W6;^Bs0dS4>Zzo}2f8eea$flRQ=GXIB~9y%hPd+wbp9 z_H1q5Ju>po*E3n9OU_B(vCrttlsW2g1&7Wp{->u@6g=1ac}>`k)iE8bkG_3z^1g4HX1*wQ$666)u^D|c2h1$Q`roq5?L0)Hq>-tBs=$=)~9`ct<(e|K-%{eN=*89vlZOgYpow4tbHf9W}IqfdvW zJ5EjIZm4*^NcQR%|2I1qdawMG^ua|Vc@oRjMLQ=(7an$Ly;6Lb;oRCb%VTa2s%pOL zPb*tdP}FriYfZ{Z#*)kT+#+CnQQ zT{HNz+Gw-e+O`^Y>9QX2^UwF>_e|q%{?RO~dHd$m8K*UuragB(rWtqc?WvQ?=B>QF zzx7DzHEH!T+19H5>~XQ?0c988XGcHJTmJ4pL;pL!nGa<19!!?How1$A>(3hdg2VlL z``GRk_xTxi{fnqGi|c+b@=9uhifeJPo@~tGiO*6}60gquUi0MCPU|^|+ZF!JvCoJN zHK}jer?ERd)N%P+m5JXAZnvxOJP?qUZnG}`7r!T6r)uLK&$(VImp!>xNKX)-uy|iU zk7&Zv*%OXN2s~&0pugy@_~|)m#;sR27A|-$x+lxh%j@<|wW;s_r9YM94ywO7bDrw^ zXxY=^o4;!w-FEwB<=%PUZGO8>ojU2}vh@3ZB2)Rec|OFshdp79dC+=}PkXV#fpwvE z0qu&NJPW=5{JiyWI&+&fhgL-M?e@!0CtZ4^_H@dLX5P~l384jtCmh_s{%g;s4ZnA? zZ<^&+@gywO@bt7BZU;^&TT9Ga+Q?@<`9P9mK;^%K$ATxVS^93rxl5P5_oXiKx>o=6 zb^h(Rz17**e|@zKsJpBYK5?G=l<9hl89u$?2x5DF?CfoaJBEFX>(*IJXk~8YTFB{| zr*h0Y-!M)oYT;^cmofkYUeS|pRQ&4PaJbD zd)#RWl$kxlpi=3Da3!Coq)noOs)NeaM_2bw>b*QAXVKR3vMBwjTP|iV-mRwh>ihn= zd!{d(zV=joX-*^C=VzLs8up!zH;y(l8PuGaR8aMGv15Shj!CIXhELz-FiWIadnO)K z?3WBX!LC}?^)&w6&fQvbEJ_rQ9W~_SX8mlzusNYvp`eKCEt_L(8S5H@sMThYb!kol z#zsPd-!`bT9(Yj1u6x-$Y|>IEli--IN_Xb2xs>a9>h8DgwI$nHW$x`%*l|TQAmRw; zrz^cj8hTzCc^qUdm&rTEaquAfx{J!UmpZUL;M$$Tz0)~gVcVl0yc3U~D*OBJ;K9d{ zSMySx#6msYF78sR-LpVr@w387%!cPxWQwwPZR415WYvwI-Y1Ob&wZkvta$Fys&b`O zT2r6!q^?Y!uP4>3S~6XG@0TpY=$F_2Gt_klsed;w+4JrG)Bg;7y`ru2-z`Ym_~+r~ zhNB&6%2j_>Pvt&-zOO>&WHPgRG0W`6(usT#f0jRC$dxSp8m7+9^6k{r$Y%X%93I~p zE-t$e$)KEZIMK*^&Xb0SsSIgbzF6@5YF)Z$M&qof${YqhEgNF^_g{_pv!HR#2J4gS z=dBIAyfiE*>rU_f4=a9OFMqW=^LlaDp0$!@m!Ed$>djJ{_x9y&|A~K9>P|^TT()Dc zP&4ffe10)ky|llO^_joH_OqXBZl6w`z-e*d(SFVS4;Do=T=}PT_eS&djhovnS-PSW zR{4pq6JYh3yNcuPB)3<87yj^Hwyyuf{lj8eiwyG@-CP;4<7e1S!>KY1ww*G3SAUrP zPXEzb>fc?bkRTMOvZ7_%wMP~;^THfFb3djRIDeX|@ZJ8{J>HOcsgJe`q-hoxB^B;y z`Oh$Q*SDv+ueaR&y?@Ui5v;z1smR zxq~we%#)dUPiXIGXnv|Nsp_UV$H@SLBMd#qn>qyRGG=n;-QKg)`OCS#cS0ZeOfUAH z(X@MCj8R^gb&OcdBO_T)35i#H=3IBSRIYp5({b*VozsCi@8SZNuuN{AyWojN%v*+p z@b7JUGN-1-rLNbS9^a{+{dVuS+l$}+W!rlFwCi{K`RngKpS{-C%7k%dncIrx33-cI zTF-gcv`kfbGS5$9qVI(TebJTbMF-C_a_e1U$jMb<^1I}%chB&c5Q9A$b(^1b`90`m`Zk{$@LgLOd zi_8j|u3WZh@9na!Z+>r^uru%7maX67X8+8H+da)%I#N$frd3mF-7|HaGqUdI3Z64= zXi$`NzumHq`Aqh=TPseTS3FpDYt@pSZj&<;c1Yv}?33)f^Ep~hb)MwYh>2!zY?@|s zPo8_cNK`hOVTA?vhR<`(FFdeqf@j6WU8|LaQbV+o8Qvwml}r+Ib4!ryKe=U|$J!4U zBXYElSe(4R>bh3mwQ?^_)#`iS%lCfyIct0BqW7Oa|J(J(IBv4oYsusHdsgeQIjw2V zv^MuzbA+j}L(O9I4)wF_?V&cmJ7Z&)y1wXIVVA`5v)lL6sy;i{C!6IMPMdaGc1)R| zFh${~*S>Fj_bm!q`1f#55S}}6j*wxoYiM@n6Q49srOumfZUGNJ9o;J^5tD6Q1i13-#I}J~l1nvirRA<7c}ELT2j8%sm2*>#f&r@pbyOed*7V zswH1;mR_%x@XNcDxw}4Yf8(#){~1^gUb1;F_2YQh4bRJetW%R!cHR;5-o0&x8;48a z)Rt5?4#}S$KWD#LfBSi~ul_^Vy~}4Mo8MX%&L9-V(Rt9xE`Lr>LSERh`?J~hIRE2p zU)W(|{*nENv}kb9)i1YMULBchcJ%JPnzy%(2Lw(HRnC7edF<@$_z!`1i>!U+4@v24 zV%Tn=Ta}HZ#O5PMpoN_G~?0p;G1fOY;0~npfKRB1|6beHXv_VRBGm zcu?G%Ia{LQzHj`&rlxQ7(VgG(_o>$Pm;Rk=S-yJLYn6Go*Y@wOBOom+yZDmiIp<&C~r6Sp6_EFZA6X>6Lp|xt=zuDt)x|=mf^8 z9*)1ChFabb=*hhuGyjiB_rtaOJ8Za@{J6zkmh0|5Dc8(%%3GyN4}DH?s_;k(GuwI| z`n+xD4`#vmhMLSXMKLK)dGwNdj|B9a?^@2|>Ke_fZMHqn?%P_of9>YnVXF`SQ%K%) zYtz%EeMiC0Mr%ea7&j@Z1?BM(?a_aj@xBEL}m&hcf z%+v0>oapgBX{zXzLo1bW~JUv!mf1yX^@z=6}EflU$O1oTi=VW-D~=%{AWh~p-oeScAdQ1T;wK@dd$%%kG=5D0ijCi zinGPDmLA#c;iD5~UFUvk%^ripInw2M0V0iC=6tZ=DSc-uva#_HNBkL8`Rq;GB%Z%# z#Vnr95-hY5B86D8x{IYbRr5k%i^Yc71+v-_wE?QG!3D zH{V^Cy>6DZ-mJB92i40{{tCU`_MhSUvugeWZ>1gwe*E6><)fK)Z1Xt7<#lfD zozxm6d1{@!ikbiE!-)>-Un|GYcv;7Lb=~wVXRFa2j|{V_T4k@1^uZrSM7qNo2^eR;5Z`S!Hkck}-o_>;NM{GZ`< zJ(YrcrC;xSu<8EH5$B%bw8l#;+HyxfZsTi5$0X zN4lTC{_FnBN`dM31b9y|C?2%l&U}Jp^~W6(cK4q-y@P-6(tK%^YKC(WmCf&(?rgW- zuqM)9Lic<4`oPd*51%#NaFA!2e&=ZM7XG_R=}Q`z+t{-c($?SF6Xe05cv@nj*)-`X zyH_RzsJ)ZWGV(rl^xn>(^FQ`_dIfyyy6%1RW@Oe^ukRPv3fr}17M;Bvx;$=WeBSpf ze^>u)`tmvZ!=-4}qe-0r=Z%KO#+O=HHa`a`@*0Tz3b3#@bg9?{&;)A(tV znZx5ki(_tfOn>*4KDoM2{YF%jzv!8&xLzJ(j++rj3%-lzo4B*gSekL`PT%4lqYY`t zKON_Okey~{{7kZC!Brilqaj6CRn6vPuHN!{t##>ze+duYn0(fk_^h?cXr(`I$B}cv znLCc(bP}0f7n?VIUZ=cKjrhluf5IQXHLlaS9DO{yp3Cp!6voGCPu}wHSoSUH2M5Qg zwg;Q*U9Ls7?%VtDwf2n&@BI2yk=^ZDVHt%XFZ@ZN?SNDl>;N=UqJ#$r7ZC6bC8DV5B z#F2ZnQgN}yO_r(g3qBrhfAz?I)8;$6;z1Q&r}~s9nNP|5tm))?>-Xo#pQ=kI*E>GW z=estShpoDOspe_cz@Q^ub5ibTUfCR6v+7&VqPe#=?f1U%C*kk9JtF&ff6RW&t99*` zcdX^s)P37>+&U7ku#~HxzOSJ(FXf=yQS~~rRt=Aj^(}S6^N-F`zieX7oj&bR^wb`X zjS6x(U47*q5;=#Pjy5>OJlHID{N?&TBH0JcithcWKN9v^>V0Tau9|C*nA5e7F)_{> zxobZuZ}XJiaGUSgEynh5Oh4?G-m-n(Tbi+;dbY$h)*_LAe`n6m)aeROVmN=m=GdFV z1%bb&iT5QoeAv{Mp0)XSZDgXx#qi>lU9G0>xBR|O_Mbj;-}X(h{%cSFSS1n9|KaCT zzpSa53CVo1l}|f816xYN_q^J1e^K7Ah`(|_{6G9>@c)tdpjO{?Q)g1eTcv4VKZ*7% zWqWTtcY&MnffJ8qUF(ACZpBMH``F*7@?qP|y2};ShZnA0(r5mk!EMKt=JxUlEIB`| zc?u^m@K53himdzecS(JQJb#VthqmR*Us~K;pE!Nv zqaVvk{qojko_#1`0dFKVujZIp^~Ht?R>z z4p(R8hU66mtqj%b`m-`>uK6Xys;$W{&fm=T{de=n)rT5Odb@6W>t0&P&hhP&(_UsC z^WaH6l?NYo#^2+Yzo$3#L2uR18;hbc%Y!Bvwde$xJ5Q)kR+f0)cw+t0_#4eW)1E*2 z+k5BLi)mp&d#XQnva}g-o=SP3v@T?Y3R9&@_^bPG_1FGqNUah6c=yn$i}QcDuTKth z{@gZ8nd`yh_hN-x`X5<*HT@i?pQ!b0pW=seOjDmrcys!D?>KmF_ncj(TOK{xv-Ntu z`cbK%qaUyHCM8Iy=?LQI5~6|6XGF1g`{{d}aP;W?u@Yr%7*Hnt68XqI1PsLR_s{ zEdt35^=oo?wzSUJZLYBDf#77TO{+wUH=O;vktIdh?5bijkAX#kxn6Vu#{sE->kq4} zytHiYVy`P#zh!Bve2HDVZhfr&%D;wgHd8cR_1oqsr{-@K*_BZ%`dc?MAhyQu!;g$< z?!I37`rq|@oFcnU?%4LswNmxw{iID(^~4MRHQK~lZ2SP8|S1R-XSt)t(I}2cYS8Zl3Bl3?)&~T=3l{|*fLYu{NTBh zd5h~S3j}uZiFtQQR?_Rq1>D)8ZKBKjgoK{}1R`)*S zTC^pSCv?%E@_V$CwSA*vcPlI5h3}%~e-E zRLpS=yRKWse{;pDPg7?1zMH)F?&Yw(fBHJS=bf}~{q|z*-|XBoe}e;Jwf(v*nha;z z8$QnM+$m+dDZgib*)NkZV+>3wUon4_3J0D zeV-JbJw0~U%e>X^Uq8!?c9VPR5E{Fq*J<6Qq7%%langmiZrbo3^$ZJR|E2qP!j}1O z_P1E6ure7RXX#<%NdBgsdmz`AXI|nlPsR!v-Q{0nu^+m52Wmd{h zt^W`Z8*s12=kk{ihilhOHBK!$v*=Okp@}{9r}sJ7ye&)a`_C{ZSCU&JgmLP2<~EBk z1u>tLgxn-&`6=5x9)#bj-?na@{ywuGEu12Mr`@`Ams!kGn(wQhT~5szr`;OoBH2Rb z_slhx-alJgyHkXzyTK#K%xGsC!-Jwz2YMLlKK>0pT%&yYhk5&kPchq0Z}_~~|Iy0d z*Dr_c{8qOs=ilpQjoSFOqO6!zdKOx|FYnFDf4=T}n$zu>s=b`g>luuuwboY^)ur0S zRNlGsIBUWQHpkEFMc!v0>y!|f*gw7EXNXNg3e%a}(~IUVW?o^NeOc;OqWZL@q5mFj znzW-R#@L|X{nKsUZ*FnA@z~{befnGFdu#3KTy}Y_ob=dJA`kvEh#7c^2CS0U_(Xu? zZ?;CwjlPmAJ2lNFUpjlr>hGn!@0aeD54yiQZ+dk8uK2=hFL*9w9xQN7mWW#;(C}cT z@}h}b-u!HO-gZK<-pM}UdN7Iuqq zee;&vn&G~i)3rh$@qE}|y{K-|>f(!&PuEPGmbbK@`$ZkYb^RLsN4?UKn@hKweK%;{ z&swZ}Oiy{jJD$+VB?${_54^K>OkLmoIA`6w`ibc?bEc^3gi2j(&Mo>K;d*Lv=Ca$* z1M_Y#d-HYYW_&JU)PIO=pT{N zIi>3B?zyLv^Pu#y#wIz>C+27PeI9&e2>-PCW46om!*NPiwnTSalU(!F`?hCNV!NDA z&#JO@Z*PBWoBZV7j{|vS{~3br^Y01HeDt2>#jRQXGMDaTUeG<^>C&Yt_%n}<&uiKf zF^0$M)%J7L=dEwMf5Tohe_d{JSbN;==CGb6u4k(M{K!j6<=G)uq7<;=!On@DmO9cu zU%z-g!(a9MW}kMcrLG}!o=f;{Wew-M6Wo=#WUi(8()Xv=ezzC-&@33Qd)Bz8U1%xi zrP(Vb{9awv@V*(ksch5qUBBW>Z~nRe+v1Pjm3^ueul+8*$=!bYWU;Wn^@@oKttoD) zpAJl%+824VB`*Bb8E4~F{V!J^s*}4^CtqQ9*sIB6?V2yWW~MWnbTU{Bc%L_{Vrsp$ zip{LSw)lhm8`ck5^6WqS9v_ohyLQw4tRU?hljKXv+O+GnD<`Q~Z+H8YC;9MLM8ob{ z?{B+*d|g_heBf7m`eow8=;=J{V(-0YBpUgoDAsIA!rUY2E7)bO*=au8+21jz zxc%Xsb;c{FClm@Cb_=;P*J`Th)T+-}FIQ#z#ik-Q!aN( z>vdi(sq=P;>H8#huU3%B!B*X&_xklT9i-o2Q6 zzQv|b_T_BXS1dniJ@e*Epa(T0&Ve-Mu&<&mpPgt3o zq-BbVYNGXrX#KXi@L0(5crp&GkNeS3B<7rq18Xf~Q|R z^})ozL}8&ewphrKe_!=Ol(U+DwYPF=+u)vbA|? zLGk6Mw#v$tU9$INj8`ptB6)Y~m7csX)rkjGp0KHyUG92nqrYRz8qZfp#C6IR1{~bL z5!j}6&fGX*Q}HD24O3KBT*?>PrIomSiey^Sf^~d{n-(PcG0F676#X*e^>J~F?WL(A zm*QS!mj0;vTArVL$@kOGd-uZ2uKxV~a>Mt^i0#t_ZfhGHlVCdCC;83eHZzks)9D7T zcek>?JpRYIcagt-@7B3~E&&sw8Mkw9*SXEpz2$iUJ9ACO9UeWS?9Xm@eS8)OoO<~* zm#0Eil39L==G~pnD|+n`cgUWJs5?}D&}>V%x4cO9q?NaI4{U9CE6EsUHd%L$&?VkG zjJ-<|*b?d$J~r*&_(12K;8U-y62V2@_a_zmPmN!{bA8F|=p{A&9TM&Ct;Lo1&P8Mf z$K@^85sJ;b{qowGU$4KNy*A(dhw?fPMzx1Ns*DU95^mn|ui;}q7K9DiH^Y)I%zsCI!7D%0r{-e8jL+j(udh4&=lsz@AO-bUbJ=n&1xNz3aC2M*Ub=-t^tp0RI z(r7`h&MBsMr$m!`rdp`4__uhqM#$lS)g^aQMYC7GTlcj}cl*z+$zT1aFQ0ZSY_5{@ zks3q6w|C0=_%4*Iv9SpjnTwvD*xVzv|B-g*oV8o>_NOz>a_(7e*|AcAcgZGk1&f#j z!_#@vYa(y%ofYG&q*0d8A(5w^^|m8damwT^YytcdmUWIxMJL~jYg9Os6g)vm^g}nM{vp4PC6`P%1H8WP@*2&nVwby;$-}<}dh3AsY zixT1isR8A?CY<^``?RvK{!E$FjXNsq>ltcp)INE0y3M+B!jha2rqC(+rx;X@bssJW z-FPBY=Gm5`J6arNs;4kGbh7>3$@MQ;Q}D?X9@hFP?*jazma9(oWEQw#7tQqJAVbO& zmEBECR^GaCn&;!><2)O=_J&*9%B&SF`x!i~vu66sI~Prt|1_<4-~O!fQG2bMb(4pu z#Lq^DoIJ&Yx9o!3;vXH%>vCYZzT!-KPEPB@AaxGAfHjeawR`8Q@A%otvq^)cN&DOz z(OEx}QUY49tk!!!J2UO1+wJW-hgmz1U41O6eo?vDYE9OY92UmS3~yaeT1dAY+I`Oc z`D%?Ao@+ms%zdFZ<>A_?*Hv}~z4#iPz3$}gVDWw5cVCQ;Ex(xa?M>9pXSd#z2ORwn z8|#?X3!Tu=>?LzFe2>1& zTkXAd{lcfuL~Z-{MZ^9xuySqMza;^ylFIK!@xS2g~<^!f3 zUmkC*H=4giZll@ikLpLnCpAfyO7EB^d$6a@=eFn1jz{i2J8#c<|J73d()!-~>)s#O zb{DXl-7;Cg;P1#7z#yT!+v35KUn!6FPp|I?R}T3YwzYi6<~#AR9-Et`HSU|7pDJzO zl*h7}O~RqdT>kWb2Ddxvc7;bJr+P$I`=@jDTHjh5uK6qW=(ekOr_J8{$(}>w^VRc( zo1(59z1%eU?w{bQ-FsucyfsRY`0Mcv92jq2n*Fxxys! zkhRkp1Froy?^iu67m%n~WYdzw@tINa+loh9xAt09Je(AC%0>B!wDBj+Fjcolbs;AU zC*2O1#~iM?e4oD3J9Fnw&8j7O5uL`LnbtN$q1=$<@j zcX(O^D~B`B!}}R5oAZ3uML!kgo16JfJH71DqvF%7z84R$F=+3o``G8N=ESZ=An z)3ZJ6X{mwA6}_iFZ-%ssPJp*&z$fMe{PvCYOa@yPNmzvU|1fuTsBL-`}p=^<{tk z%nQdj6;{OVR7==ov{EwU=O>$G)}BQR&t3d9<&FePpPP}y5fy=C3w6oxQ`?R*`aOC4 zRCyBHnJe2aYKyuBt#NZ#49+aFEKi7R3`;-u$U)le4%^PubeUVNJB8ldG@A6gF_Nj( zMr(c0#?w0^8km|alh`{g-Lz^>-ZChPvYYk&_153!smu0UHEG#v>;FRjALrG@^=W@t zH|)N3>es%FtL|?$>ODVu{-(wI82Nn4R_#1#uVE)Bw78ddq zCwF|jFY(y)XY79lR>|v&_WoFDx_r*^H)Yc{{B$q;d+VUFXOl>iIAcetVl;a;6Q~38 zAx0~0pZ)WQ8}~vUcAQZ^``&xnp9`MWFEdVR=RP@qXh+N z==;xbD9-4^^R6vF-EWonW_w?0IsDZ1x9Jg~6EO;RPKinvEmA+{_|rjY|LT0sA8p5v z?&H5`xGtYw z&6|3q{lX@@&zgtqx%}>$hw7Gn(`489JrDS(FmcKw|0!)jkrGx-1}B?i?An&yGdkyV zb$sxpJr@8oaKeiWNG{?mW`@mQ;Fsjge}>`2Li)V6Pm z1)U5>3M&i6wU#n4XEJ=8{88oFB**0*yHCuj3{A1GZJd}_&hyy1tYN_?L-oM;8-KKC zUOrcmuXW^5;nQP@FV4lR+!tA-pRxV7aZtJM>&pv&uZ!>M)8}kG8k`ldzI|z^$-ABD z9H+~!*ZUtxeR_Rv(K9tR)3jFs)B4YznEph!slLqeAOow7)XmGf%3E4fHGiMH@aNBN zqi4Qdty6jw?ILdC)6j6SAX;AIFoQ>0!JY?`IPdW9?%a|rB{KU-VE>lPUs2{4t@nPvdb@PJ zfBMp^m%JBUT>koU^!@cA`+ogrXexav_-g-_W$h(NZru(a?st@?9SG>ux#+mev7I5Y z`My_(?8-SpM^H-TpwE=Y}#_|+Xjueb*VFp8s1%mzKV|<1 zZ(f<$8m}MSYsHdE&hur4sTgfqWVdjIr@hRBN!xO&c#7vtKK?@fkBE4LRr-OG3gOo8 zzgBxV1Rae>kEF;j-Bg*%tmCw41AE@3@NaEW zvz9ycD1SIKM`_Zg?OMIpUVf>*yY9VP-Boq5_wP$y?AEuBKfG;!(aH3*-J4=|&uQM{ z#wD{M!I}5Kgqa#U1Nau*yRZTfue`Gv4KnU_{t-gGl8np_^`8vFO8 zwY*nF`nTmDpEucv@;8@gtbM#~dzZ)C_w)HHSX=E};XaCy5Avnw5cU(ful^hbTq2i_KO zDV~6=-X%vqXH8^{zHjAGe&U&%%5L$Z@PeOC4-&Zk`23js;H>fCeI_5(+Y%?{ExcGN zeLG^E&6XpJ?s@7?(+n_bow|6IJBy51Z(mW7o&DiEzgsrv95$a9Kiwip|fCGQF{ugo~(S8f>7^EP&Y+??|N47_y~Kl%?<&Q)%khW>uyUt_vyaY zR0X3R#)*fn`a0RNdmeel((Bc%&|Yk3u)?eD7++axGtZY8L+*toptTy)rCt3<%1y_c5Hc~^8Q<%q|^a^|P~vlJqB`t$v%|2VzTMzj3kU8X;` zZr?q1sdlYTl1p!#|I{#pMswxkyU!R2h3@66t7{J1Ht(8s?;_QrjYnEPebPG~Z(6uR z^f=GyL+L6EiFDW8*-mW%X3M9YDM}`yd?&o!aWat5Ac0;d-BD5@7=b!&)5{RZXTb6#)A*1Ik~zD7p!!?>9%M} zmfFH}`R;pu*Y~ZCj?O<~FKjAX^d;^d=T`5Pi9OOUyKUBMy2f70y%l29V92p?5!<14 z2JC7z{^bRW&vfY*v&y=Ja>sRj6tGhN&`^Ve|GxsR{ zs@*m-zg)z7MXa{Uq&sVbbXt`ew=FuAto3%e07(-ML&7>2m&W z)d?qywevZYC*BRb${AVK*QT^)NvGJZ{kQ%zJeb~CCvx*gWR33flgYNX?;KZFxnyN@ zltKEQrCMs(=}Bf{Y^77JD>)pPe*Hx-Z zo1QckS^MNagVnKTdzAYgz2OV(IDA-i-oxOzTB{~azxq^U)rwP#w`)J$G9~BD-Md@T z4@3(ZetKJRWzv$T$tfC*=8Mfl#BVL^Ojq4}sK@Cf&+iro8J;aE*6)}VZ*!REOE}5) z6&S5Co}6+dHu&_zLw1bkVmI!w)al}TFfXa$X2Q|~@|vQ1HjA`3?^(zw8DZuv^nC6q z(f(=vXHP2URUUt_a(UU3E0=$i-Tu9A+O>Drs_xfcto#|eWs}$KmnFOE56j*C;Qnau z`$PHydb=~zWgmoSYn^XNn!|hhL|MG9Gw*_Q4$hwkO}|Z>{K&teqbH8>h>2Q9^=C=ZJkQapA{E5P9BiZek${z_dpY)1^=E<>-#^{-?zqbPX8wq z8`-`1@ju&LPXu@To%2rXaY2$fL&5Sn*UxXPyR%;;_mB&3ON-WO>mG)uWzVfG^}nBL z+@WVweAMdkx7RL1$N< znlvROXtmcXaldQ1=8G?V%e!qW_&oUJp6FhW{|txDu}_}$a$m^W#aC$3n%>|5p4)6Xc{0aQXek3>dYix1I{NOU785i#xM(KTZyEO?SibvPM2 z4lut8{LjGh>ci{g^se=nC8TR+SRS*u^U+Y}w%fO3(JR$g{HT90{q6L}{p>IMm#b`w zahKL|&MhiZI_NRYfwQpfN#jn*0QOWF&0nnc`Sl$f$7_2x{_HE$NLrk!ygvBANt;r? z<)S~;MH6kJR?beUTi&zWt*hu;;c~4kqoU0{>(whwcGkX(z3;vGbIpGS=0~+ThxUBR zIjpyI`nG9OGOLUO%Py_ovNR~>@2$D>=Iq&}d~s|35B0a(TC>eoF05Gf>2b(r&f;v* zhrPLbUYCDfq?6cZ<`n6X}t-DkJ3?L9}$XE8l6 z$&pezu;$E}+Y*UI`z_Whe4PLG`bX{~QnttD=k_Yz^`BkNKlK@lx}syiZK=?^J5z2q z7_GgwkN@hQ^1?^4aj(8T%HF;E_v%K~)8`c`)l?>Z62Euy`w5+nBWi{XAzZH>zT zDQXdFoQjTzo47U}OxU5vQ=}H*#uy~B+dz-`Ezg08pEhl~!+XHsr<0ftpMBinpf;(g zI;IlUS|*x@L>`JS(Y)N%<@NT9udQj``>?uRcU~!xmlu~z(YVyLlw;`_zz-rZ#lZyTGI88G#1bMQSC(H2zXu`Vi>@BZ8V6~5b?_r@-|`AkdZ&w^E{ zonfKRCr@yYxErgoE+}kDt6Xqeux0S)riB-3j#qG*tuqqg-N7OlGsR9Va$VfLhl0*N zE0l7KJp|i0JCs)hPbinswAA?>K0lwG$6wdo>CY;`Z);7KEV}hQdH2oyy4%`w#rnFU zf2wcm-uG{x%k?>-php;hQR(6u8|MD~9mAOWIvN!94GDdS3X2$v)i& zH{6-8$+i8owzl(h-5r~ay;e1LCifm;`+Fnoj`Z@F)G2PWzOC}SrB`#k>ZaQFt?xf? zch8o%=3kw;|77Ohm|xEy)W0o$^uAp`G3C1P{TCNk_C;sjNzqDeQhWCEn-;^W*E^HL zG)}Rfo%`|qW9dJ!AAOhY)m?SlIahp&vhE~~$!Bevj%XJ#GqLLg7mKOhXZz2PDlcB+ zG*Lgd(9+((3)p_bUwfOhxh$UK4|&% z7mF?YJ74zFB9VkM%k-x|<$7d(%r3@QK%({JpIZ`jTrsYlN1xUmO{=I9U6m{=b|slp zziz3=;aOZuXYbwnWY!-4`G+r_NS&2bXrkOwIY;BuqpYCq+j=!k^D`c1#~xnwY*W_n z`7Y7_ZdN^S+b8#Op3sM9Gi6)8l_j0ZJ~p)@Q%t0Fd8Faa?K||hh2}QiF8BK3f2>~Y ztGsCZ-K<@AuU=bTuhN&S=4_(5_ehWK69ut#~_6N2AVz$>Ej1b>sSTd$S*={9^t4cG?m>-S;~8Jmy_` zeuigL!_$RH;u)+nrdWhbTv#c?^zL3&stmWG<(cx z|8$e*>Ysk@(d{3FkAMA;VGZkupAYvvudXjZoq=RUmM@iT#0 z?WN(TcYG0sC+_~LnkGI^@bqKzQ0ryiy25ss|DHN;z4sTpSyHxP->$uW7k@pMYgb(N z-+3y9+8$3<=sCnsJpVpoVSvbkx$D?8KK07>b6%cPRPvR}7@2LF_)mpi z;X5*^f@$aKYionn{N1u%`;+%WU(=L#leW$J&k!xNcYWRJ-1*V}8RA#`bk|zZYb^Nm z-y4BX9+9C_Z6>Iw^f9oQpIJUF_4teMH*!Py1jjyx1O``r=E8S4u9=`F#ZmYFqJM%BQ>%nRUF9P^<#vq^e^z|7 zjk>bIqU+1be=p;fEP0z3dh2@kt}wsX(W;;3L`Ewwo$4p~XR!=#)sz>f^k-W7p7i3h zs6KVh{L-nDuWHWz_O81c{+~f~-Q%X0cBd253*P3k1Zm6P6H=a#BbTM%Ah@Z_aDtf5 zPt%W6_Ni=>p5bz;^6&yKgCnbUm+2U--FvvW?HtGYMgJKx>TmvwZ;jK~c_}~t@vcA> zqiBzbyXN+!rs)6PKjlxWq`)@8&?^je@w3HU+Rw`+=l62vE)exS{VCT-<6iirB|mG_ zoVKgHO-|tiblolY)Gs_x@bJJ9k^#omUg%PYa!GFgT*AVPDx)w%|_aea7uf<|2FtRzJ9Q zwRM5DTH1~CLO%mV3uYTEu$m)rwOyfS(y5)#c_Y8wQV~3*J}KVv=B+f(a;1i{6hmd5 z17^|cP0MW_OBcqtE0#zbOk|wDOF++T`KjfSit#!(!W5oAKU*uORuK5DqAp!jHY!Sc z_sg^UcE2oNyWKYMxaYio5jwhyr)9pAP1@GQG0lBm~RYnUWpIeSi?)DpRby3GiA2#!QjGe z6T@pxdHu@V_-T%JaL3Ak<^R?ve%Si@xBtD`q?&btSyspNrwQ%;lD(+>^7$qI8JdbJ zp1d!;p5r~?%o5jvj^)oD9NEke_%HURo=w!sc)ZUGi%1p)i-nPv$F#N z4s}UBsSH>z9hjo9Xe!Hu;)(Ia{693#x8BILim8riaZR1-uRSTE=_l(Z_GvvwCbn9h zO?)+9?oaM-uhkXq2coo{m-tBOM*V!dj(6)8pWW`aybrB8Z(K9cd236vktnxh)}O_i zkJgJDNX&S&qn*>4cj|>%)0DR9P0iVsgru7p~f7Y{E+_^m1 z=1}SsqZg-V3x{3}oT8ao>3FPY&)1lhOXi&mjGEt>|1f*CuVeSQeKAEsM|S@7Vlvyv zwR=j!rnd|{OjTVkbr*eF5@h&kHCygX-n}#O?(Pt7Whp3YKF65g|APIv|4q(+q7}L| z!IkUIuDo|=j(`5QknJJ!T!WaDjKzB;-dNw*#&PIV;fKhWPpiyVChjb2__HH4fs=uS z`^p4q6`p7N>rYiI<~;I4`8vysc2a-*KJ4$@I^)c)yqPwq%b&hCS~>6TgT9BM0-I;dm?>Kjp(ndZoc*xJ z>{FRRMhg}-ONQlj+3(=^S>dW$)WE6`e(^uU=IIA!|7Yl{Q{8h(_x-V%*-IUHzK1K_ zIH|RzfBVV9Ml2KFrdgkRV05bG*~as)9%MY(*|OPd-)X&ytO-Z1^dIH$)0(|?%6k1u zjTi5}`^HM9Z8{WuAZdBeq&CUG`P(PgYz+AsHG9`~z5crAFODDKzcuaiqqBSB`RxQ> zPPgiPwq8WDykgpAiM5L92~w3yJKS=wXHO5cKKHDWKWKPZ%72O9q_?h$d-m>mz;I@bNZCW?gl&9$j{gb| zUq8Re#zyN$?DWfLjOKVx^}4aseod10qx{U{!u;v{$!~6F%{ApXcGmCHGkep;I;V9H zUZ~-o{-CfjwOnhfw%6+7sb!CrJlFK&-LYiqou#U4qPqI_%f71r;D5jSl8d0c8>iHX zNV!P)qNxW38zn<@y4z%Lth{5ev`+rx_XGbK#A=MLot@rk@^a19WfK<}x!emq5^(C} zGl#cQ!rT)MEEZ>MHn2Ag{vBHWpMjP2gH+qiW#{fNL}@&o7})3Zo@b*KvqFe^Hsfx~ z_2>5AivHG<-!nbnz_o2=*Cw1)zO}?_z1GTf?Y&QWJSH1xEOiWUn%q}Z@BiUHLuZZG zkz~8|^Pd(jY*{Jom)F0k@L$>%->ti%w(VMbe&xe8hkFbort^H(J(Rd%mFB7~tA4+# ziqhgL6@9#gBKcRqVSL+Qji_T5Q*;rH`$hrzEJ{Tg5bI**A8URQHp|m({5K zoo|!;(K)!!p6^BY_6d%bkza-O`SvbmEqAGmS#{z8@4}EX5p#CcUR!TI;W$rbK@9&C zbDo_&c{)d@I!@5A-_2#7Qz>A;Jvn}f{igp6Z|5$mvH7redRvY6B3IMBO*&?`rgpea z&zgE9Twojj4D-#_I{iC^Rm?c$mlV3C9+AxR?pQw|;hweF-=pGcOSz98pJnLjwaB-| zJoeU+BWV#ivR*smge=a4%{w(^l~&f<)!Xj*jGNOFnEj3*`opy~A&-#FdACq?WvLzg53QW1aW9?DMz$r=9xuU1$HHx9LBO zANg}-&GK7Wy8P}f)8042Kg$JT6ouU8B?L*T_%7VO>fNC>X7#F7ld_lYa@zQ_$#p`Z z{4A!GT-~QuNCr=TI_1Ge<)-Cw`#&Z>l0AMTUg}ky`mXIw_o7dp?Bh=ExMq_Zz~Z9! zfuTHU2D`Oq?#|C^*vrDDuQrR`k&S2-WV!q7x&AI6R-Q9v8*evp{+o30(Z{J9Ed1A9 z3d!CjI5jF@@}!Qd|~9V zw6x2&#ezZh%t@gp@8pW9j-}_PJ>8e4xUq?GX`}0$<_g{I+3e0c?`Q_C;_2d<(c^Kn z?+x=o%iL?_Hih%N6vBuC=hv}?$;)nOPWl|UfAeLX zt5@WW-u-(eo#CL^<~hrSr8QNHQ-wjJ`0t&cKSM2+mv8HizP~8y{iSE2siK_4`yy`M zeVe;=zyFWo@BRn>Gi?2SsGsSN%!i&b@sIakO}i(%smaz*#dVtI+qW%2or|@ils2uO zb~x$5(;W;Ge|-P={n69yNA2aZ<PKc#(_O>I^zV!yoq@Mg?ne{^Mus; zKZ?Jh{;0m~k64Z4x8Js2^_!O-e)+3L*kpp!#m=;RE9cJ=|LPo={Mdaa|2(_4!tB$v zN3W}`tn98uo{RBHKhm>)(h8?-q28&77Ogm17yIxz-v?ct=a%P;axTB#@#@B^2}eSL zYObVO-o1QF-&c6*np;&%7k=8KKkbQ0cJjxYz8;SZExNvnDQ({xnlfv?&B|r_BtF}& znSF8FcUiuj%a6&p7fFas^h{J{v0-3)5bA!0@0v6x%LI{4^DoEW?Ed!6j^Vpf3~m8^!HM%iELG#={7 zJj&TuS(h@+Xue6-v0ELsF|+5D`m*HmmMw*o zwl3$)c=Z07k>9=L_vN>nAJymj6Z>)9^c59xDSJ0@d{tu4u|J9RnG`^4I7Zof^h#HH@P zHBD1?A>UGI}G6yz{dF$K}jBZ%&*k zI^EMyU~%{Q9Oj9aCeAvl!kVWWz;uM?bN?KppOs3^8@JUQ3Rd%bqURPKdcjoMa#{PN zgN7=-`x%=2uEc2kbX4?nVA;mzsBUUwT3D?2QpH7ocUU(OZ38Eqf0TUYk$_R>FlziyxYQ~AAN{wFcs4Lfd# z`t-3+TXSSmrv#&;9&^p{v~bd;$8bd9S0!Q_q{#}OtyoYZdt*cn>&m4Q~*XuX;rg?qe?f3S} z-e0R8)i@n4_?H{IyIO}&t^Dn2-+glff6rdID)X1HUct6+(f;gDxdkOH-x&B=JYMf- zKg+(OTqx_G(Z{g0BFmhs*JTU$9-M8L`t`_!shW!V-|zG8e;Q=xzbpKg{g0(}CjIUI zw69E;ep90B_Ox8Uvh7lOfM1pPp|1ze+obKE!@W|mGL`34Y8i@?7NPnO3fI zd*gw-pEYi7@0oVsj%VKL!%`__QYBHXN9^~{vrI{wr2D(Mtz%l}acw0nkEIP-kxx=} z+w8AbRIJ&~`gPXCZCbmxh)y?=nfo|zmwx5zy}RWvXZbC8d*;p3Pxr6?nRe|>LDk-i z-UnrOx3pP0ElGIJ!TnS~G>Ac~Yme50?L3BIf1H``9?!ITd+bVB+M&l9JGdr3mE6=L zv3Uc_0`Bj#Hm~#YuSw@D5PdgORJFIs(n#;J)T)kSsp(;zMyn+yVsb@aM6H`L-OBr@ zNTN-v=XI_{&N_I``fKpYU%=I)3wWPhrxwD0HN znOl}z`X}(CPPAv0r^sej?*3_>20KpNsdKRV7V-7u(Ymy{d$T6&{INDW{nMtGRi-m< zJ&ehlmp$o6{GLrYr#^_RdU&OW>!0ZZsZD40#Gl(3b7`)X(a}@-i=viH3BDW|?SJN9 z*n?B+4L+8e9q}yI3f;Ks-CI>(r>3&{(tYlS1XuOsIs~{sJ@K^TK!IC`MqI%SjQHE^`Ny`}c$+HJc}tUtz~z}r1x;R*FKGQ1l% zD5P7etmL|#dywnSxrJs5_fKu+-6V8`N#em&H%pa`jGOGT$$_#Cur0`K+mrT;>1lv!J=g_kt) z8GdTsU69~bm-fm2hsL@!cIO|;%9shRd-v|1jsBU74hcPT&#c`VmRZh|AnrWR&2Gcr z30q1o+X=k%>k9H-erEaaGaFajaY)*4_ugPC!@HcXKl=~He+ck(e_JnDVr$`5v)fke zS$aU-Yk!-1V~qr9HJMUtM~k><`%`xm<07~BTFz74ml3eGcUJA*DXFJ7Z`z%yZEF&K z+ycF{*Z%u5_5FsoWmCU~ zUEa6)&whR7GhbG}%+b4)nOfSV?)$1TcX7r~`wHd+vrp2K7=IRi4&UloHeFHHe}+6? z&pJmfHxKrdZY8s~CpdfB75*Ibny>WHbL1UP;beI_M! z+-_xd(~H1;5A2ms&oTPg{B*VOcL~{5mJAc)WicThUCFXYJ+u@i@j_@w7> z$q8`eJTQn^-7#a1f$r03s=EY=%u*)pw06{UO_`i5#yNM5^9qgflnIg3-{syu<>8^S z!DgbdS#;J)?x(Ah3lwB_NbfSx?VrxuQyO6PqvrgqmoI)s=YHGtdilxwxl&0zDQmX8 zKC}B}_Od;5xA=eBF1uE->sIB=j{fX~KE4=Z7FX#_mA5CJb5wPZT(5H}d6I9MWx>Lz zm~Ef@M1&U1QAjwmX2G%6DRT<$x^Mom(DAZL%xbp3XX=gEf~4hDyeg7z27cdkCSt>h z&b!u zZc#~_IUCjX&)*aOc>2Ut!&9Gr^+`@k_?a(hR}~^VIqTfVQu*D|_t*BHt_gf}{P4|? z4HZ#+mVJp?Au_T{y@WQc4%E$6+0u7y%H*gy_mB1q|0sX({%~w`V4rrj$mYw-x(?lv zxX3tBQClJ;USCpy&o8ngpy+`7bGi4A^p>xw35pl-E?2qiy~efl*~Ws{N$xM@E_8IP z5;Zu|%3NlA{J#D6^T)zJ@@=hsaMvtT*yG}(!pcIKb1U)|S2{bbXwO*{p}c9=G+vpU zxgq9H^P1JCSC}bpn0RH|r&9$-PaZPrQU2Muxcf+%R88Q^TTgVp3%M-G-5VBhvS>jrUyEG9f;rDs(qH=jP+#Boc56T9 zD?2G6LEF~DJ6hY!dVhx=$O|r7S7|fPS?cTk+xZWF{aF4m_uX2lQ=eZ5?)?~&cKEnd zv)R`$hK?(o0dpE&Fa)g$_{TWqnP`Rj(VMAXQ-kJ73wO^G+N#yNRO9NTUd^>Z^)f1R zZ{7NSkgA9KGVGC7ymR=YxVcfPd9w}z;RM~ z`l{=D@7(rfnY8YJ$jq1?4+d+;$3=~2@|Iqm@$P5Wlgaa$KQjGY9aQ<9W4q6B=|fLX zr~GVk`*bXVp}5IiMkf4wJ^$5SAD87Sb808uPJ1_Z&DP$pS7UYWZMR>kf0kp%>m^a! zzSYgYHZQ8Ys&+@W+vTYTS#CFfW@WMD2gb?@l-9QKG&M>knR^hjWjns`nY+lyOn3J>((U7u9>(;+TQkWZY; zFIr)fP}wSh7YpQ#3w}0oINDnL(|SHNu4-z^m!j3S!ME@2y|%07_g(dr)0;L$S?kVv zz5Hoyz1?@6oCT9yX0gQ{yr{&wguiW)g6Bb&?YxSAU#%86{4|KQ-p79P^!Dq{KMWt- z7HX}TD|L0lasAK7RKn8U9amSVniKwc`h&G5vDv$F=TAHPt^0-&!`IV<>o5)NmzECfy{`&UM_?PN4ul8}b zZ+a0rDYTgL>a41r$F!y-ZFzHNSJunpiz3leo0coAv$Sh|7~Y%gHuZ#S2zv%& zUjI&h^t_8}PmkO3GM27O24P)6jYi;W=m?Hangc8{)HUFqLl^b`5!*IHD`l~ zy0!by#gdk`*S2rYkJ}qmzoy`?e&VF3Q!1mrRp{8%?7bBjy>C}mq4}(>N6(%<);dYK zr9Cr8Ct>nV2g{@f9&TI@iX09cJ^60Fud|4Qy~d?U?~dMF)XP^_as6*hM9|^lJn4>u zY|na^XrD-%ut7kGgXL|)i&I7-nylv5n$Mppb48>izgo3CV6H=|kN)>Vb2c?A{b%62 z#KAbj;OVZ%roTc|ok~NcvOX*oc{cU#{ausFUZ>2DHm^IrWy;(wRX^(%Z?%~9P1}2R zMA!N$YEvFYDCNm)PUrc}@Kn4lr)*`7b%FAp(&2vy$z4oh~uXtqv!Fc zYhvBs#I}TIlpPbie&$HWezO$mPK&&5MQOyBdy$CDVl;qgifA)cnt0&#YQ>u=8g5sr4NEa{hewOL6*<;t43Z{y#4oMzpp znjXNV%$B1k+r9q1-+>46$9<)YjP$!DcKB+pgVeXKud zT_S06zU5cz+6Ou zqPKh2yehVfjyiWC+`qKea^}zNT|cI_J=BTU->r3dsi$Y=l2xvzFRs4p$^W5Y`=_jq zaq}kYZjXl#xz6lavLbQ@V-t(wWS0I}4$gXf^_-9He3v)2J6^OrBPR7u1A}SWr&8^NyGa6qtW`94pZx~=~i4w{$< z-2X7|wZ72PuhP~TPvTBY+x^Xur|7^=dqa!6^CD*bnZB)TmaC3kg4r&y{%1}Lc>XLs z!8>PK?13J+nd|TTXZWFR-@boyop{!+*@u#9qoa1t=ABl%!EJ-WIrck(5BipFo-=2b zP2rjJh7bQ4%(nbg@0=&iFE;DqsU_(uTVpj}y?MX9SYE_1KKP+cvH!HtsaCe7&sVal z>@vIl`dJj{5{<0F%=_HA4|P_mTwk8`peR7^a`SQaY=)xcGIJRF4{X~pFPw3PVf~a= zmD)dlpGw%A+@Z}R{%$1$lmA=&KO)N`KW*vfducHL-bw8}GY(5MMvBgy@?6rXOjF*_ z{ao4SAFB&K-dr-t_i1ZtM1a7;d+r4dOkUI3dslCsBYMa3=nvMGCl7pNJ>!axKGO2D zx%RAP&xXtEUcP?vPEI26F`wY+_0qfMUE6x^{jIRs*JDH1=AT~JxF&m2)W&W7XT%My zrzibqC=F9fi`Q9gSkoXf)4nG`$U`(YC4KYsz_~FSSym=Ceby2X@$mbwQ%AhPlB<#{ zTQTEMwNR z;GXlY$E^5ul$?B}oaK^f?uT};s@#eSm!9b3b@9w6<%c2b?o8nl-D$lkPkEO0&N5A{ z$vgSAR#+sQS~D*p=5gWS7M|sjhZzoESkAF(Mwd`v!KO=|rsXNub4|9sU%g9a>YH0- zee2_WE!A$3huG_F)8 z%4`g)UAvw4S;0{*-qXJiH8xskdD`WxWL|643l({F)V}@aU za^vMOGuJCPm~%=CRrWB-Sn4b(IIP9MBhFKiv?tuLYTaawo@Yj93?xH0a2^&7@O-=b zSc-K`F9W!&C$JTg_?=X7ep zTODVf*C-Q8~<|9t;qb=#c%HpfG2F0Je>ociu- z`MkdHebYYg-81p$`R2~^x@SHL?Kh1n+We{2;%@zepx^WFp0RynR`$tXX-9Z&W0-@K z^W2MDe0zA-_@$=w79Y5=s^aOjchxs=pH=>r{r>6xyHB@2e|c2RH7k-!lEy9L+n&93tvhYb|M5 zKC$uq%75+qAI!2BO!+8(I5+>`_Tb9tal%)fqgGCo_|K4@<^9}cMZ?^cGMz>;B`Q7h z?l;vc74`rXEs>~R=<42fuc&2EibHb{o1Fc~Ui7M7jqP#84&t+u#MC4yc|Kn18 z!1zeMt*X3RH@D{XdHy(0mUAl>tX+Cb^Rw)Z!lzrZ*sVoQPBNTi&n6`HDQ_v)#}k{3 zwd_8<*~7bWx~gN^o$^0R-6ZCGu&R-Lv}=$1K?xo=rNt||56821%${64)vL%$XzJao zFF(Dmo4fA3ceC-%=Q765!clnqmBy4z3^PQr(1&G`2K0t^K+g{&z#|5baYdAp2g8RpZ^R89ZaLE|1)&& zdc+yvovS-$u9aDg=9ko=R7_%5?2FmY+M-AY@_siKH_QjDeny87{`(Dx9r z<+7On4C%M;#Pm-Q^=vYFvhlRGk;g)YpH9awh{fKQUy{VpU9(>2u)U#j_DWWdBNI0S zZ;bd}4N+!$F=^4YEg?mLv!_{|SF2W)$+n z*&=gkjd4?1=C(Weci&d$eh#+_K61uq!yWPYo?h1v`AvPlf7{b#U(2rFyL5f$H}|)p ztL&zJus?3>ayxCuW!@=~wF`T{o-u0?iu90+S-)E{hsojD{(1JY@yj~-Cl!CYz2i{y zp1g%m`;+rhRaP)5>|`!1p2`^M{rG$Hx7%0l9e-%Lb(2Sz{vO9=N3|??RNGW`?EG{- zhINv~oagc-$&(oWRqn|zEL>gDR(nR}x83XNjEdAo=Z4#rvFF~fd4zFqE{NGL=YH|H z-t&j=b0ghMRwWx+teU=S%1+ypna{Bbz<(aDXsBZ zcNh0Mb|@{MuF2IadF;S{291}KxL0$WYTfuS*7&!!S8rPE_3thx4Y?&gEw<*mz3GGW z(@qtgqMJnwJVl8gc?_JF#8uAp|5DPYBV#x@|1RIg9jyLb|03hMK*(dnstr)~{Kwr~R$jdeN7^_1CxhQ-9-MRpc#ByH&Qn zT6Uw}zT^{qtNi6F{~Qz4J7kxtoM;hm%qz2T^1FEc3$KJ;zEO>R_UxRE2h+QhS*9-) zd16K0GQVrRBRQSfM!oBeVqe92H|CCy8vlf+9W)XNa$fZL(39kz&+`L+C}-`Owmp&M z0LQtNsX~jz?#^7!uH_bD@aa_lcrD|Jb#h|H{!kn&T~mJ+#9H_G zg`w{BR+ASVTHAj4NU%I^-5z*8@%=mhy>;w0#e2Gge=L36{pZ-l*zE1+DkHx6Ae_$hef&-qRU8?!Tt(g!9?=i*W`DBNCnW>(y6 zgDW|Y!^7JmnNG}2;ohfqGIoi9y1kFwM0{EmA#g%*;TYw?04ku`TPDeFnw8a$xfo8>}q(@ z(wPMY&ba}C1zhVa0=F|a_6RrlKmO0~c4_^$`#t{@GbMeZN|#REH0kJLk6HW%ouYjQ zYOdQKIwH=}AYfW|^M@I8@`JldYKLZ&tS&gf!!sjf+KJqSiE;!LKUA4FWlS(rSE+?+PV ztb3O|=fk(A@7FgjIpd@tyjx@n(^^f1n#E63ScK=UaB$o)^>*BB)y10WcUU4rIvN&p z)ukx3B%N_Tbw`Nf_u;3)N}2EI<42QV>(`N=1kEO2(PD^DaxM`UNDcu6=l3^m0Y0nwZ{Y!&~Q$xOwt) z7|y-ezkBELySJ~|G+14W?@IP8HMhPe$gN3CGtkDiR|xB zeS5p!H|VzO->NzCeI`4Wc4=Qt`Dy2>W40n`!Mh%hi+xKHn5Qb2-S?>B6E$Vqo)rEh zVey&7Nx|g`n<{5_ttya~P$@ZEUZ=9re3tJoCG|N<#d#t;oQZ-h>{>Tj^e#88J*iU{ zS2Nuq^37K1%-EPIvrHy-yE$)~ueqJUdF9Ve)#TqNf(v+ee0i|SCeA;ud)3aBpWO`e zV?$D9^|ow%d_DT@mFc@pZcUx{DeTSKt=DGRU-@D$xmjV2RW>b|seo^Fr)=HvvvQ!n~yoOR~y1MH&@!IzMk?T4`~kU@=3BvSp2&R_Wh) z-X_!cnoYO8y}8))Xy($lDOa~u$K>8y`k!If{5xlFJWQ65FV44l!h1>}kEK;P>3PrM zTuU2WvxqpOQ|_!~!pAO2C?47@&hlhZ-G}o|?4m0+uC%^h=cwpu?e<7y-Lu{b7QM&Y zi&_~Te9@UCZ?mB+rFib`6s-djoZcRLuu5dojL;m`J4@c3?^s=Z@AIa+%SGO9ox5(` zv~|C~Rb`#iKeA~}R8Gc`)F-Np={I+uEep%nvfS|8LP7C#O4H60&-bWj<>jl)oTz%M zfH@#PONiUu?Axs88%~@-DXi<8V!Z zSA_fN%a8s!fkFNT8z;sEm`~M^SDyM=%J9>i?YHH(o#}Om-{$AyqoyIpY7$Y)HQ`sw_pCMDe}1yBClfowEPx> zUi7oHe`*%T7??j^{&wQWZvDPLdAsVSmz`gdVV7fgwDGCWtJsvur|*?NVQQEx@Z8#) zA^XR1oyA=rwfk2++E_UKTbZ=rd5x_V!G{x{^FjOwGH8{U;BWJXoO-+L*9#yKw_K%5R&tSbT^=63dJ@8V*C-M3jg<91lAKRuUC z(QIwj)3{LK#T&GCpL%NG_4d}0p1EgF1b*HZBKmLhhx?|L?L5I}meywmbGy%bA08wU zlK$RSS94|Mt8MnR5AT$0mYJ-5^wm9OcDE%{x8@c4-n(1+pP}8leOtvfgYFhit~?dD z*Prw_!jevZR&$V)*L>=D)NkT^J)?((3dvg!ix+Nwdf3o1;p_z2Z89lSld{Vm-A&6h zPxV*+sKUBKDO=9Ee?JwD4O`Q)rdUq}vVW?(meZ z`_Hg;+2YzeTkqzryZd$bv#N}ByXC&^?RWnnzhtieBmWlNB>%go*SvgVzVcY&#IzF} zvEIA&x!BBQgyPxuFSTsA{72Ow@agf~rN-_(DI9M%8E}^zV~=@vtSY6B>EDSc>8yB( z8tZ2+mny}TUOrA^Pg2OS2r``TcE_Ka0Xt>hvVWidNcH}=_`~akVwnVvF1ovF&fCM4 zER6Gg=IwY;P_h0A{}R#4FSHi=5D#}{xAJ=;Kx~C-~GvaG&i+#!oKBo$&6la3JX5|tT%39*)`QN zXt8v+kZ;ZTf=OBC9haK=KK|LXgZ(t$Zb^|=1~C?v8^;%%v%0>y#_P(G9ap}Fum-=C z>V0}JKw|fa@BGRqBu=U&-8uf0rQAB8X6wP1WAqRHC_6*V z@{H&D4gTNE`BbMrx#4ytWaYz*OG_8;*U7xx)a8Bm-LK{O6aR9ycK1p1a=cjRCLZ>w z>-yQ(-^JeQCU;#waZhH^M%^7XZ=ZhR(6hX=yWlv(!pD;9O?UM2-r2O_gwduc{~m35 z=e6k1>Q)}_vhz9z*2~S+sw|wQGe`4;dfwkZtOsvSbG1Cl`b%K3YP+Or)0SrzKPP$4 z&hrbep8GIDIc0O+Ic~udss-iYd#7J}I<<1=?sKc$fBxM?>uGSI_g*g+#_Ah>aW4@bJ_<{4>$_;W4 z)pw;onP%*-vc~_cGLytq>6!Dn%v*Fq>dpSK+*SFc=WKRWckUuhsqn%rt5dXdgP6si z7d~L%tq-!_yl>X5@I(5n(MnT~wI^#nV2blDnXr*T>z&T=G6w0+gYp&i`hPVFjTcXN zXwZ2#saV4=@IS-)l51-#ckLD3v#w6@ah~e&_778pvu`IWetzN?wR>&ebmvd=|8c3W z+&hDO-_R35mQa=`1OguS3 zz#~-o_k!HGhI#Q>OouaArdrxG{<3cq`M3DMPFA&@@mCfGZkc~H?9%n@WpkqQ?uB3Z zeUE3sih^U_+}6h#+xA|M3~HJEHTV5biIe#o@3<{=`Z&2!uvk*w&^n+kW}i)E|3K{#^Y*EIyy{*^I zemdrN?d#^fZ-4zu`p6SXBKUg*-{gD_Z*Pu^w|_{G>SL zLbDqzK5d#Iy$6K1uj%bwBF6YZ)Jb5cOq1td@xOcaIOW-?y!Pr_{$`<=rMznAtydcv zj6^gurQh|;X)4d>AZQ9t@?O+S^|Tl z(84Cx2BjAZzh?qV`e+aG!`d}>bY(>3wtx^v$wPL(*i?)Ode{dd2bWoFIW7q)kj z!lg&|(_(t`XG>@-sMLMB;`hP2+%p_9PoA);uXS8|48o`Fh3EmA#*t+{`0dWm50XDz%LL>S-==ckZ`MRd@G?9J@NH`hL9czVLms zzghNk@BHl?bs}VC!RsfJrBZfAI=V1MO0@AR^)-exgwLCQq~}9~Ti1P)GfO;n@NZf1 zAVE8~^cHjb@0M*LbNY;3cSdL5=;k=~>45C)C?kI5XSe4`SW53mJ7%G_%U{^-lPg2a z<7XA0ID#aP%w*2w{`A=1nx~1)t$3fB_?Z>HH=W`>h51^#YM+d|8@4)qy|3$&HCwms z6`TDve&y^X>bLS|va8u_)HxLV$zVcCTi%+9`@ULQpGj%ejrF=Uz2JRQ$RuTU-cMRB z%%|D&s+#1>ik4`K_C7qs6#MU$p+)S@FYz<-p6obKEO+N^(b4`hWy#CBgjBj!T0R?{ zS+~?*;o-Rh2lroPFxPsrljrt1OT*36x6Sf(pQfq(`}+5gCD*R)_dE1&{onFW+`A)A z9XXvk@pXOj2R5F-|ylM}qw%htDlWB={dDTF(YC3?9&0~p5%yUMQ%^+e%Ps%{i$B;Vt%kwG;*FT3p>YmaQ=edKsGv(=h#alKlvQ71; zjaF}HWhv}q{MY!O;lU!SMK^1-FTVM6jqQDCrJTVDZufkF`x9^q%}H)}WN+?tzLybiiK_?|sxw(R{BqlvpElN$=MrK2;&1oy?bKVywOtpEGYlct3N zs|2^R@N7I`leB+@Y-z`lLn3!q9`Z80TWq@Cs_eeYv|qX=>95Q(t+%iLUKO4Gyx#tY zgp{Au-*k!e-kUQ|vMZjM-EkwJ;7nlym%!l$*1GP02jvCyZNxwRcDnrUMzGt*)-Au( z7IU-r)?MAD-D`O=X~EPf-W(P;KTqKE)BgPU@Q2msD>Y8sFx=!bU7Am1g)+-LgSE%c z6cxwqd~mny^I;cmXgx@Q|>>* zS>68(P1}B)yX^dFp4t4^O_!rYe_q#J(On}_F~L)2qS1+vRg;!9mGjvz*KgmayzS%k zCL8ld(&dqg*Gi(b&+R_&`EB5nFq=Q8j;!u^tlZf3r~k+P4~KZUzis_cHZhs~m)zdR zvci!Ee3lrVt`|MCDkNXUEx9g~=_ntkbjXH(8XvqnR)6?r+_fWL;3<3C(w?J-_+nNG zA3Ridb<3}lPDa)HOI531|L||0x#ZK=Ba&u{C%vXx-B@vSx5cUUcduUjXLx)2ZTafh z{|s?&F4>wNny~86#2YVO_kVK{%d$AY z_VTml!DA^?PQ{ipv~nJlJpSeR; zm9?aD%9@??AEw^_b>;8H=(W?=-JnmmI<6E zRUXe_o`3oMjRi03q(98>ES>#&My~FoSrYReMKY-bx~;VgI_GiVvp8$SI*!2a9`duj zb5tw@^GcIDPKmlcNIg)nY6gqU+#Ngx61ru-$~*SB<}Nnt&0KLdd+C|iHrpm_OHO0y zY2oTuHrF||a7Lnsgv#}g%Y_rfDyN>;o9gN{H`D!A-0QoW-enj3+JV`c__Et={@J-x_wVWLA;EpLS4@B2dBNWck1VCbE|t*JU|qNk`#y*p`lIrCB3Xix9o!r4V^*bpch|0|hkN*Enro=Y z9-Q8M-fr?brz4y0ZcfMz2~w)#Hj|KDob*P|$U)WP^%>)ciq3AP>6#1yp@q{}!<#lX zRK)LEpmF2IIR>?T^QQ7eO?l-k>uRx8#oB z^`HA8U$*RLzY%fAxisHq;+_iUJ!+Q<91k$m9Jfmg*NJf7@agETNRuCrgXQPU?l`qD zHB5RNYwqj{RyVdUX*V8rGVuKT&>SDJ&tv^5L%st~H>wFN^O&&8s4bJ@o=1wxx~Hd> z?wh+lE!4Z#anFNIY+O$RZyK=unXu$-@Tbi}1>O_<%-1?Ct+c#$X64!Csb^2zUAKPi zFYDdeOZPcty}G!4y7$X<{q@oR8RjRhd{HL8VU^dbCL4YuO}EE8nAT6&DbdrK!(%cp zS?kYj_v{Z+hi?0Pyf&?ryX7~>)!eko6h$G82cM01znhv;)}MG>N4n51VZGSSOJCm} z&M~)ex;>L4^_+yLT=YW@)h1Tu0)?J;q8k_9`_b&Xx6P%i;MKikASGeOJ9a8 zuUH#yQ>nMta_V0GmwnH}HpO$Cug%vfzO6RtlDkg+POdd9?@qit@LX=Lb@=DQkFu{{ z*}B*7yTa0Q3#*>=9)4nOv@(g|UQuYLYTJeKyyx?m?cx3HS+Uvm!?eW@PtUjeb?V)r zN7pp&2;|m0Ny%J1v2!v{>Yak41&k5bO+T9+-8gsWwOcmj_%96*j-dKM|NjwdHSxrx5o1hmP&>Ocu)A3(!INBXB)ya#>n5C|867C(!)*0zc(;&EZEiH zdGMHBz;T9@b>&~OU%%&%bzJ%KvQBu1^FhUfn#~grCumPgzVgm#)q%#z@e7lme3Y>9 zlM>pz-Yewt-bHs7O^zBzt>z0;nd|b@2PW{w81M%EV>3+3XXt%75L~d7YnKEO#x>X;+G6e$Imzj)s2Q zd^GvvTN~F%Rf$NykG)n^x6CKs^YikAGsVvoafE~(dpIR{i_qeXd+a&~8Vrsw@f8&we|NpjW!ra$eW|X#2a5`NJQBq? zwRUP4h+f@%k}=FS>6zQ?6FYhzN{8-CJhc0mnfCJcj=pPDctYO&EN+fpcAi_a*l(Fy z_w1|ZZ>hgGne;n0_U)hDx1GOqoPD?G{q5MC%Wq#?ub;K&SAWY}^_`hK@7^kl>FV9> z;MRKR#o!@*l6}+rF`*Or{F(A9l=`E;NZqsY-dyMk2?hMSiC>O7a*Q}7mIyo{4?YS^P6N?wHL{`uoUjMwG=YKd*UaJu#0@YWsU;R=nJLZP(i1@@Sn1&| zsz31c>+Mge^TlqRd35`%k1IEimr8)l6qYYLPw_E5ge%Q@1-DBcnMQ8u* zMepoiU5wy)xGzS-UeBC=_TKEcj*IhB~nN)M<-sh^% zcB_3&uC$k`-0M8Prsn(o_n%(`xAB}<%z8ap=xKCsYxFbM(9i>aZ}3hEnYYBiq$T~l zI=l3@4UApA>tX~B%;B_iJKIZYF?Jb<_3=f{aYYU1obmLibyCPu8)3Sv+M$xR7 zqFblNXgWEhs7x|)3^-M=#DKr4_p{d2oVj-@UkjdA+j7nN_WJ0myBX8&MX}qb)~&t2 z{PFc)Z=dWl+?Kuiw8z^8Jj&a9Wz80E%&BQ}C^w7XJ^qwk{i&93_3<|kex)D&&mj7; z>e;@hxsPY&ExoT%@#g^7ih#gpk)qyu&nK+b|3+WjwJ=-GQsY_T`CmRNz*|am|+LOg$ za;Ns}oKzH)_3l&5s&jtdKfO6)D3aK*Fse5$KfPnQR&Y=3lE*}XPxor2Gr|%=R zRknp?MhDrJdsv-Pseat^b5)pcZ-d#X8Aci0+mrls{pI|do4>8Nut)LX zY<|v)H9y_%dU5y9&iM4rO*NA{S1HJ=^_E>h)w`HFSKV)0wS;$l5|Zp@-X|CPZMC~V zfkU{gXgQBcOS;;U-)ZY*mgr1RJuGgduf?HKb5{QR;g*MOd~OWKPk*}OesD&d>cPM6 zMr-{FmfL4?y8gcMJY(6FdA+9DYt5pTuY6R<<~Z%6UcAnJgekC*F!G5-`>CNdY_5D;SRf^PdhF>vPq)on3-qnhj$IRIx5TzCF;$$KW{(e z6&-OT@gVoJj+x$8>zG!poLE+{R8q{rft`1fquuQM)%ScQwqN;o(Zsc1S2Fd}DaAv4 z@rv7JpBH?#kYETldCwJ*`D@Ls7V8NyPxtJYvV?J-!GV0e72V%MFNR*(EXh~oTfN7& zec|CsS)W;-Cbg<<_^SBcY3bcJ|HRhJy}E1N?eeFRsXEJQLiD15$- zP*-u4+P&#j@f*H(d~T_~H+RNy!$Xk;PU>fteWTM))j4f88}0>$3kvUbX4t=nf%k!jg~fxAUiKN1i&Z_Xy^J;F zHFDBDJOe2bUz-RVr-VoaV{Zc4*5c zi`df}@>OR2@$cDT%{}v@tDfrFj{%3D?krlWvF+#c&`SXY%l&4B=bqAET($kw+v1P^ zv>x*4X?JY66Flp&vb*kSjld}xN4@8Tt~h^dU3uCRnVpqEyC-j3z5a;Rv&Pc;s?P;U znJIdwmd+5Lx_$EQ2KnbK)3h6Qm%US(@hhX3bx$&<)EkZfqxaTr&u*Eoi^w}|=63nu z!Si1PAJpH}e{imO$?@#kr4g^o-FXYkSDqKWv&pj|^1x&zgBY=pUI&)B3qHqo{+(IJ zw(&@v;D-;V^VHvb`>8Vb$WylmN4HHp@m#KHp88A1i4R`Y2LHAQ?tZ}}p_{Kr7c(%R$a(lEaJ`eioX53Xo`v-yMiiVuCApOb%>Cop+1Y&JZg zZo$6Zp<>O;zbZvu;a#Ubmn@t1W#yLjdF#SnmTs=itrq;xAb4DCGW$8tKYTsiS}7{Y(tT24LirnI9WVYV6370y^)_!=AG6l~(Dw2VYxiiV-0Au~ zy=wH;EW0H~&?sKdk+SC$IjY=tYmP6Gs9WzxNehXQ;jS!dse zWB27(Tk^X8?}4$Q-)B{2eEF;MpJC2?h9A~Jn?LeSUHfR^@7S+PRHv7{D{riMp zS=pYclfSG}qMOJ*KY3-OXmodV#}pHtO@?V&eWFd1PFXUP$(b&w$^XcH;PveH?ehhf zii??jTQiGo-5Lphp+!d}l6#LA^1PoUDPa+kkbL*kobn?EAKUpGrv*!GdHq29cZ?gi zpzo#CL6b`+uXQq<@-TR++oh(OlUa{0< za59Q><2qc%#(7X8=Ffdi#Z5M!JS2Dw)N~hm%dJ1bv*YIh8-W{vO$#hf7yi{gT$0*w z;?o+Q^^%DnETW9Mz4SgT^?P-z`nuoiz4x}KzrUF#{wjh;PU@tUM3u>{sHG=arQ_GG z&CTD|T;g56<7&=ZCfV=Pw@q8cR5|f_{h?j+=01#X zzoq@k+%W2P<}cY*Hj{R_EI69gwIE;1T!?AKiGyzpyZ&XG$U6Vlj=F5>(p{VxKCOI1 zn}nn4n$uQHvSnMMFRWvTeYoN0sjgqMkI2i|sr^aaz461jNu``h6I`>!<}dr%r=l~P zGqw9kgs{at_h6|N6E?Ev+3_Fc<6nKu@RY``35OpVn5K6e4PU7pyj=Xv_vmd`O;f%^ zy_P-S{`j5H>Z95^%|{M%w;a5-I$GSkuFfw)^~Bu8o2K5*boag2KB?|<)y|LQ{eRq7 zM0kr{oqP7l{`4u9g8h0v6V{z?M$=w{<9E;h8;S=YK#dUMYth64=x?41?o56zKpIsD;? zoUu5Ms8mJewL=dtx7^i>sNOVZ;hDWx?o3IVT^sl;{G)yACUt+EmW>jvtu30x7nZ$p z`p}b@mn(X8?b7Sf^Uodm7No7Ebwc!(i+WCLXS$PQv_wKxPfB6m4AE2fUx=GeH#+^K zy-l4pC~4`;mOh4hhfd^%> z#VqqT>_4zA;r@+J+WJo0uX8vk^ynQA5?QG%(|o0Q@~p#uRd%@Z{aoCBR_}7m{qW{% z-~ThrUv<8;_S#;b>pge$?rr(F`rm_nr_a7$|F!t%^{p3fNoP!Ov`No8mHg>Oo8IE0 z32u>7gg2M-?F>6{Oj51mlglBKPcs`%f1J=7k|3iI%5%G!uke1^t$&^SAGX%9H@05Z zb3A_Lc)+gQ19`VB3+FC)P_u`DJ+Nza;cwPITyv8@n^ZSkoU?e@;)*qE*6t8;S=G{} z&e#}a#F2V{Pu}C7;8efNOJ~>IntDx&@3!sUUB0;`x2tA3AM+F0{^!{0cl*|>KmC_? zI)3iWKi51T#(HV5QAs)ctx>Tw_Gaj*C;P4`x;<{YSh=?do#TAaligw~ zxJ@A9Q)ruK*zGOT4yDgwl~iY6VOn(P&TaRnKfRh?Grv!c~8s&e-!M%Qgd<=b29)Y{=2G_g&l7^XlxY$&;S^_Rh|Fs;_Gv z_4;P*cC*g!+y7YIIVG=hKckFAQl>|1pJSP{fzjf90?QbWh0BD$TmDD5-^17ZVcObN zn^fGxKC)hnU266-Y{OwDMTL*slWW!#_sla2+s|JnIx*CoFU0T!OFq}SMQ#Cyzt`(M z?2(^gV0rx3e+It&S!dH9?mrwI&-f$iV$RaAJ(HrJd(J&Fy?8UHz`I+s1v@52Ok>Go zfA+K9;-k6Bv5)RNVJ9~T)?Jqj>ze$`%jCt;yW3ONtk3&xKmXXrdA>d8H)YK%;|pk6 z9lrRy)uc_m8YeCHD&3it8KoKf`qQuae_YOwen!Or|Vg?b@s|-O`M{$tUFZ$ zFL?0zcu72woe@-?CtWY}=;AxxJKxQvlZ~cjDwpx4Ojf<)xrKMl?VIgEM^?)lJh{HL z;`1ZE-H)Vq_qxYi(Ods+*|Zq9OYdFNW_C+Fy8G#!@A7xaIkgU4{C(b!I6F!r!i{`F z&-9&J$9P-em3lpGn3H!+@5?IV&9-Pp!D~yHnn}?LcbK z;V)bv8%v%`O>B`_^j`X;?$(#r?*4vvzHG7I>Gxr^)9dx-E48<8v0m|PnrC9h;@lI= zla_4c-NV^WCGC z?Gq%EEmV`rrm!U)e&TSpHRcQN!SfCUFaCrVoV&OsP&1AFY1yk)Zg+avINTyyC305Y zZQwd``S>F(t8;VBrcRym&YK`SI zPO*rbEtaNg(~Nk0pWci;vg4I%LNv=dE-|;CeV5}K%i^rAmAvddJN5jHRM)>(E?T=i zJ?)_Y5!nNjF<;`fcMiluaAPiu=sm*o_SydF{u2A=uem>G{aI~8g|<^0 z%enWYDjE0oc>dw)SY7?pq#EOshBM6~XE;lGg=B}GNk1#OY|dh@xmH=8 zua=6ZU70rP*PJ(JjgL*}IGkp@MQf_A&gvcc`jg(gIcUxlqIvtfgGg9Q*VBpTeu{t3 z2sm=d@b>2-@d*pdJ{$}$nrC#-G5%t~+EZIvV(;ERy0~V$-`VWF|MD09%6)tD*Lr_@ z{iBP&yj;6hxlr0@ouZC1%f?q~r53ewl|LQKU1L6fdfu-lkECt)btY*w1h8f*KYi=_c3$+?B*x4Z}e18IJD|^-TB_z5l#0i+suU<`&a&F=u~@@ zamp(ud(!EN$Mk;0RQr8-9JuxOlwWJV?)`dEo?(y6;qCI@c-+peJ~!WOdimYj<6rL^ z^aWHp3FsVt78bZyQu)-nN4vMXPd%L2cgXm2NLH_;wBWb)gdcowTHKXIxI`AzPnWKH zEz@u?`=`~Wzsv12_^l-EALdq^udYn&|F*bD{FH*=W)`L+k7fNbo4+mlyD;wG&*(?z zyQ4D$xML5*&-6+8*>>kd#IZ7Qorv`;*R6g@7m7Y*Jtk@X?s0jInWcKA#*4kPU%g*H zZ?D|yBU+rtZg5?%T3Ka$_rM7OD4$A zX!`d-@6Ovq$iAJdOH2l^X@6#717$|Oi!2W_;hF6?F9L!uD5qvOFA#R zF1@lO{?_Dgt+Nit%!}`?Gnf`}Mq1AMOOeg%71tcfot)X&84MKNm~sys3;Lz-QAG1x z(4#kVR~0Yji(mbCR^FDCN3C~hKP(k4|9pAh#K%88V-r?K{kEET-|yVtU;nD=1BG&Q zdtXn}Zq-=3b;%(MYqx7ZXH1Zs&fy``;A5V3JpW9DfVs6!%Br0)CJQ#I2%fmd`8dz` z9s$Xl8 zHZMQD>zmih@At#&Z8JaKwcIY=v}*19n!*N741;pFMrl_`CHSEZ?;^jKXl=v zMp^cfbkAJDuAd9u>P%Zz*5t=lU|k}5-u1V4P35FlXUvc4izdF4v54L=!9u@iiG_!F zLF&Wi6!VYFVf(sloP&b0yEau6x!yg_-&=Ejl5fV#`qHnjw|3WLd(RU5HPyd*W~`TX zXnNV??eRaCY&}hlV8%N%ry!}V= zn4Du@grWANGws#|_OpGRzs>ydJ%44SO}xmT5YB^I-vdrd>Ih6qn#JBR$*L-MjYshff#hUpjh8;Ao_rS)$zC z!>1YdEY-Qm`;5t;NIX+7;y;5JZ>5q&y5dRgt;`xXTzU@6Jz4jNGw@U^Mey zx7Z)M-FEp_ey5$<#HFoKZsvh)Wh@O59ggZOmyZATuc?)qIw$#2d#9Psng;PrNnvVE zjWcdeOE5RTr*3JzIaq$ty?SvC_s&n+D+lqW=ufZ{IC-J>K(T+2n&) zUv7DL?b^Tn#=mqjuJ;?LrF@pOFI%Ft{8U}qr)cTJH7CDIGBEVd*yAQ|ebsF4?hR(U zR%yzJCNUK^6m+fnVZE#WK(+rZ_s4TKTc7->eMBeBQqb+Uq13u-5`x@;5*B$2jSqeP zq;~Vm{afabYrk$jT>eo$ex9ZJEVW49iD$Cbw%+~ba9BEgf};h?q*ZiNQk<#_2 z78uXhNok8&JT1sW#!&aVwbv|Xj`JG5BFvXFk|%`Z-oDTtaK>2S_6Zds&OgetzqS3i zo~NVQ{K&jx;e_*wX?@uxcj}H7o1bId5iXac{kGt+7MtPGj9dRM?w5Y25 zGKpFF*n(9b{Gv-b`y>*0&)mqF`sAN@+`kLKe6FEg$aa^-GyW+e z)^)x+0v04_J@(w6Vc)BFn(;^PBSo1Yj}>ASf!k&m+{hGSo%mCo^=1c4L*Y^PKi>Ds zB@ShG6y3Jip6)L4_r{K8``dTtFHf2-8RYe!A$WCd(D%p7?xnxucHcO);eo)#eqE*q zQ$sCSjg@nb`Rg{hF|geHq_{Kb%qqU;uD70-U0N5;)g@Dz!1Q~@gGtWQ4y-?<>;J9! z$Avca_>Osscj|n$TzlW@c5eau_5_a1rl{ow`cOv(^7pAKMfz4=famnloiq-Eomwo-6jQd|$Tf=BxY3;>V`k zS^L#%_R?~T?b)w$>w~}N=1fdU=<;d_3VHD9;zsE^1~Cjb{xeLQU!GSKdMM`R%1>8v zWj32RYxJ~A`*WNroK*aDgG%q3qa5;`6KhI;?A4vRedgo;3x-z3Uj6gF@C)L==ZC6!4>}*jxfrd3(uV{==Stv{_HazVGeie5*~c2^)1wA z_`G_jo#N^L3}s8}?=oj-SM|E1qX8)8=N>p zC!9F2`jNwpQU)OoiDP#U?o{<$bvrplqBE5zSgXq|w0q72HR)#&pKdoElwk14{G50^&o?d#^;;6a5$h`H_bZ^bRx%%(5SAA2D zilj{aaJ4Kx%XZQ4Z}s)T-^`**w9JonpBD0ZtCAqQyYKNH(IEdR>=rN2hV@-jI$Gvd zF7eNYB~6-9uTYS&nXOD`VR-M-qLn z3{M!C_3JGEL~q;Ied6P@o$~XA_OzxnTW>pgN|@2G_Ueg_1s0NQTiTl>Pi>K_oc@~A zH)@``t6ZdMecIfwm!ECBvi-=FAm4|tUj072EA~IbnZMPOZe25tRO&9f&e+o}_joV& zV$mmR67OzBPBoijT)-T4&r*c7)z5kEN{(9wUhKzbRsF0E$$fj-Lj6;fe(!$<(OLIQ z@}*w&u$&f)vKA|rd&zcf!YxU8g@nz9Nfv6$`XBcnt@fUf`zLdy`(A_BPcqN+&Pd8V z)1Pu8Ml5NQ=)IjkBf{)IvK3F&i+{U^Idiu;Pw?&OzvpHDlP;3+b=`7JY|*WIU#gbf zk2Sko{5ASSlg9nhC5qQ8?oSIT?pbkKQHPPyD8$T?XZ6v5Y1f!Hta9Hv!#d{%pOe`= zo2j}}ZI^^vyPvvY`De|ZAMZbA=G~Svy&`>P$BjeYv3h}95*ikHvvc-`+$wCmz!()& zQ~YDow@Y~+_pLf)@igPg@q|DFKc?f~Y`YdSuyAi-Y%q+fKO%ijbA{*g2==#TUKY!< zcdX54y?WPld!lz|rh5MBE1zpF-uEuOe*S~K-_p(7+_=A$grx?YTfuSY{VP#t4F!I~ z8LTI{me1*AQTVfJ;bQCZjsyKqey=@vN>OG@_TF~io6q*^2R{x!D!Hu7(k8a*MEGgt zH?xx7`Is?_Ze-m!k5i@3phDvI<{x`MDwb*-_!#@o%)`tiOjnX)(o{CHtr|BD{61CO zR~&iu!*uhdqGxA6NV#erxG%=<;isk9?ztyiu+S7b=`is{ltMZNUZ;8yXJppw@&Ee`reJLlb>c=6xH z%UA!#Eqir(mTm67z4K@7_vOE6(#q|@G=Ivv$2}Xu?)Q9X5IOL)ocBcWo&@vKg@1fM zwzsYc_PEv8f z?A|U}WU*KI;+?H|KmAekz{$g(6<-~!bG@s^^h;dko#m6n!{1td%vm}s zUidCkJQu@MCjtIb5$C!dSO)MtdBW4Ca{bBvKf3EX=Eb%=KJq=uU29#~ZNJdc`x1;3 zbB^RNlpWA2d)||fylUf*_Q&3*zcoESBEIR6;=Fi`?o!{6Z5m}uv za{NJ`T|KIn4?lTEnX23=@Sgk0%luw{`J%mR)-K!rAhalJlIK&C{CBTjUfOzh-ktqd z|MXv3`gg%T^#hGhKB_)uSLfR7)nONQt8iyOvqZe<&Fz)V?;f1|&%i7F(aZHno#GtB z^uI4ZdmMU`8n9NYDLIIxUHb~(PVS$z>PPaWwv;b;{awNNnU15vCP#@FRxP2M4hfu$ zA9wH>cdf1dXns5(Lny{|{khF;b2xpM&H0q1aYOygw;azW(^Q_GJUz|kx=4-0saIay zuV$*7ygD>1pLJ1@=dwpDBbU~OuDQ3?TG?G@+O4N1CjI6gR{XSoy1V-8>z%*q=5J{~ z%CSVpCa~_Di0rzvPfj?pv)C+XxRJo58Q>Q2_QdL1f|MtUi4ZbInHG_5t_Z)OB7Nc3X8eOq*~`VoCe zkKOSxJGAa43qFbL3-X^Xv5lp`Y=VJgT^MV{ij@!E`Ae=i%{pmc?5%^kx$4sOyqWK| zZFze`*LUCaBqfimP*f)CuXAaoSb(a{$^XD{FHScuf4#Yr2FZ? zYtJxqI^N7rmOOOt?ux^zt2UfqFypw}dUw)d*@+*QcRu_b;2Y+<(aUCQcD1Ewp#n3v z>TW&58%@^NeffC|EMvVw3$_%U60QB=wp7NtW$IFi)1j={_r0@!eNBAz^hWl1-syo0 zHMK2+mwO3q-+j&S%hx~tH4~3{Xq>spV49RbdAjKP6#K8u#Ut9{Tk z+ktcE&CZ)wa)bD1M6=IXHF4I@)BYdNcP*disJG?~l%C0_0^%7QQ9ew zOFw1D&HWa6)LJ`m?ylb_zuo#R@3M!@jQ^9_-Q9L+3@rzr-gLVp>YZG6e>#J~gRgR; zAM2JsIQ{L)mhcKwdBsJa`)9VeIUG4Q`*I<({uZ8wJqnhlpVFp2)))3)CGqs?vXqSP zMnA(&Npv1@woZ^_G7x9)`*Gg%!Yezq>xvhb?dtoT^XSDfncGnY95$P`xP355sA`z= z#U|WNy;aM1jhxa}t_|x?O1iH6bW#0+jdmWVUsFk?LMK+i&^Fs^0# zbfLAgb}I@W*yP=j7?z%J(|Vf0DO*vmRS$BRML&PtWAO0h$z3<&f-NmAKGz1B?@^gt z!%edvmBUnop-WNZ$Ef4Rd@c3nmgf#gkD!I zI`ENuQNVHGhl?7|Jw7e_UfBMO!`;t`yJWhaN*~#EaeGVc2Huy2J11Q`tMXIz({&-$ zT_<+9hAKv+FwU8Es=w7nH}K?thLqH@psn*HD?LkIrhl%!aq@u?d)lTPt&8=iS4H1G zrTw)^-}p%gD|1(HTIdOjNX-#>hKcAFVCM*%M zE0U=fkiM>G*thlQkHg=lfBetT|HXQ)a^#g|dpGUqIj$x6Y16xknJ$ILB9E~-HSJ90 zb9=z~!|U?Vs5hH^`m0(Cq?t|~tkhyuS-V30T~Er#+me*)^?Rac(+Wi910TAsUPZFbII(eFFAa#`Am zEy+s!G)Gr!W8GVipk+(NChgaLy6fVX^3PZ2EiP$G4`VfAPJb`Ll6U8D57Rp~Mh3=d z5)x-!976wWKD9E{-jG*m&#J=`su7LSJVI;MAK+;(pMQGItL{pzwNF;9O?@^scGWV+ zk_Bc=jTbwP-&J_fleE@u^Gc4C39)7$bg$T**se82yER{5yS0~TV$%+5k2}Bj_5apd ztKnK5VZAh0by05S-@2-K%fC&DuHQ9v>ZF)^p6`FjE^=kw$kn3~`|7WkSZGFfYf=Oc z^JYc6BLB0ql8-4Dyj8nYVaaiD+rob;);lazgt&Q@g-?#jiCX*X_N_B|{4-Uid%X!# zyQ4JmOeIfi(QbDIrs~O)=gu&-zUiZ_vg(kh*@jQL2aZp>$;INFR$#n2ulmxo_%LDb z+wRj&y*lT2JJM{=zIV4pWlm|XziV4^w>vu`ieQZeAp1VMHcebD95={-&0<~TT z!DDQ4pHJm=SsJcd_kIt9gu>_0^(qxhG9D`m`0FTWDJYpta|z|$UU2AxNAB^}LX~T$ z6pCerPx4$cY08u;?V{D0{~6eKUi|vy>fULS!tciBZr=X&$JFT#mr_-qY&~{%XZ}8S zpLeb&RRkE%y?J+PrMzj-WcQ0c6W3^6a+hxG5hxRI;9<1>Cc9<%lV=d`nb zr_0QqvHPCinlnc`xmjA>BIdR5x!WXsjM%mG$i}F7A8XiTbZJHf?ka>(_XcxBu-5!kjcNjpSN+& z#&2tdjvRWMq_#75R?yVBYu2a#-1c2HX<>D>+55bex2Htt zg(d2z!#Ymfc3_>c>B;8WXRj($`ut^PUA?U2$+A}Io#pKJVz$XOALkU$tF7nS>9)D+ z?_c*)X-z*rv%IsW*Z#h*4~UqdebjMn_@^(^7l-eDHUCk3+lS~|wS8t4ha1i;E-Bo# zK|*N#w2SY#A}^lWG%Z1*ptvt7GoELuXV}lV6&ij9A*@b?lXpr8PdvcD)f_VQVb>{- zZO13Pu+ip3HKDuOU1wcs;rv-|K`RyS1(mXmoBO~8>?QuwEuah@SOfu}#+MzR+?8k*A?5jN#8qlGg1E_n(@?`)Qi?(|sN(J&LJ{vsr2`rJl<1 zTW1&Q#v|JF=k=TkP8%)?S|0Qi&`ecnx}+DF8hY}ln3LJGv|tGxw+EF=ChIIRxh-}e z;P?}bJMYe{Ii~KA)L!vf`R{Epp7WEK-u-+UxijOE@9&G{7jx6D{d&7QJJwv|Z0y0O z)1STg^p11GVx0|BPKGJ0UXviZBY&#$&8xFdnyw6ew{Ds!-|o&kmz|C-k%&oDtt{K2 zBXd@2vk+Gsv+3*Y0_SDSS*A)jC1osB=xI50s_fr~H8Z&m?yHOG`Lp=2PrvSsV-Yhu zPh0$)y2R-XPs6s0GWD7n5n4iJQ(65lrW8J(TeZDAphs-Zo!y$+YpvX;pL+M=Tz=~3 zKNnxyNnQRP?I?7_=4DFo_WD!zs+Hz0sT2}Aw~A+zmGF%A^Pkhd`+qb0q5q$OqrCO; zN4wR$dv+~bI`hF)K~IkxT4u*SEz%aQOk5P^^y0jx-dW{$e{TJqTqi!iW1s%TH_KwT znXzeiubA<^GLa)R>Sm9oZ*I{En`UL)1zNgQd%_+?Uj!;kYv zgAXOXD7eR$n`C%0r4*0@)hS?9%n{QW3*{^9Wk(^|L4Bj(1p z{aKeCyAc-N2j z9K(|w?(S(YXWnfnYF}J;bHAkO$Ml}*hkupqOKV+PxzTUK9l_^5j&7bjMmnsC5q~aR zvdq2oGa>cq&7ZH=`zmFw^E`L4Q)T9&0AnLZJ-0u`<}*+0IkOcBH~C+$Fg>*Y#?DZl zV_Qu&?%eAoy5z~EsXA6$G7kG!T7LQ+dGEfA?X}0ruWSq+rXT((YV~7P&5k#Rv<2f{ z-|L#yzj@iMt3|G>*UH|``6#|^=5k(U zxApfw@4C2}E246Rm(lV-?^(ZAE)`ia_sjNN%e<|-?LFs&Jk+qRK6U-;`%8Dfyz77Q zpW$2b$Aur~AG#~`F1`2NgEm8@KZ~<$JWj3M+TpL;*#BO}NN~r*^V9#`p3i^0>z}mm zN@s4*;-wZd-b8Y09c<)%Iwg1g?+r&I9aIcemfiaBpW%o4^?s@B%s<+-MbF&a+HO}& zjXb)GJyc)eR!ZRW;%5vOP2vLV&F)`}?~pRF`p?i-TB}zOrM+6ZW2T>_(Mlhl)qf7i z=*!5pB<(-<=QMA0^PYf}THH7O#vA-PDi`utGVt3fFT<_t=31(*54n2n`Nwaie#<$2 z%zXQDf4W=6t%?;duB5gf-72-}w#o9hRxiF~yX>FVFR}f`m)$c(G$y6&&{|?rEq^L6 za)!!+)$EasjKNRCiX7L^*G=-&dla*=>8(+nM=wZ0(JS*|SwUVLT-9b|ppRBl_ zHeL12m-0H#{cog9YnMt1-!oq7=XbYqrE~m`Ompt%h3?ohF$ro_qVdfll9>-8GB3 z`1P|Ua{PVLIN^xRxiYQ-3K8&R*=e>3&Dc(?PId{o$IrV_wr){CZ;Vsf)KqZLjliJ-a+t zXjgaii@Dd{{F#6BkN?JpGBJ5qR$X1_rTMZ{Yh$k2uIlyIpOw~c<6HZ8`iJ5pe38o8 zGmh?4y}!lyxRz#G?1BeV^Stz)CeE3={O5`5PpztAW2`0@d@`E5*5s|4zXY4bg%+Nt zPdHXEZIom;{r&WJ&8yRyANIU#bL+^`w#hlQ(d^RiAj=4klVZw~{LOWhG(K(HsHv>@ zhv8%C%U#nnCh1R&b2#{I;|%Yo|2~EnEA$=`Vk_QKb2#I~<6ou;J1xROV{Gq)C7K6r zyKbU!X=&c|?m0`PvoD2tJpGW>zwx0&$kutv!d)x2+$=ser!?!`E9v{&{@Ogtxb^Sn z3CkS`w_}fFZsZRHmSQyK~%a=vWP!Kp#?(r{pbAFohgoAER`qU(1 zZ#N_`Z)R%fnX^{y#M#n<%f~#r%;fi!Of_FM-BUSE&S-hr86~^WhCAL;H#sgQyw!44 zy`J%N%6!Wu$~kq>`(E5$sI7jY<4)VZ*~gM(T{e82k*xVkO& z;1Y%>Vn2%|uYdSDfyr%Rq)X9G6}ySvwZ{f_h3bfml!?nS@P41cCvJmFoZWSI4p z1@cBE+^3#&JrBF1GokL2Wnj#vCB0h~v$S3@`u8&AotsY0qtK>_8!Xqm?CtOtdFc0J z+ol}D9;>fTZr@b9*y6+!Y}jrs;J2O?D068BOUDYEX|Apc&g9sB zO|B!SA|~bQt+kr+oG&-=%(s6fYqolwwH5abs%Eae`{(=i`uRWQ4nF*mwqt8Ehq+in z`}aaNy|rA7HW_K*tRXh-XS8mYC9GusmGyV7$>b$}R6oQ{R-g7UV;WaEoAakb`wj1j z{P~eCeN{g5=Tv{uKNo9k!*=bw^iX$)_sW~Mj=g$jV>5lix|=>1&+b&2S+hN%=k2rn z@RRFbML)dSaOscq!`mhnV!uKcG1MwIhA@9x@4%_TdWS=|FZ;*ym-by#ZT4#%*d0}I zCpB8--=V`!nyYWUp8IZl-fy)!&d1ZVr)!@!c;#6g6TLDwKPzO(?OKzfFYkB$EdS5I zDsffC{8ru+KILc$Zi$%6hR$o1k;z=KQ&uMyE zx>8Wz@5Lede|*9-HFxZ-oAaOHpyT?Z&yPq~hjaXANa^$}-uSIG!ZT>U_UcuNi9H){ zy>8x<`{&Llo^DBr;6Hxhc@=KAx_DA!a;NNitMkHJ^srfd$cMZs1vSi*9S^!*>3QwB z``DeUDwC_e_9XrOw(a=~8`ky^3xDP2Yw-aKEmi+qO@1p~x6c36t(nEQk1Snw!*Sww zH!pSVE$@OqDVEmHP|oFZd&V=nFy8gw>8Oxh(~tdUV7UEY#-eL)-^&-RSr)SWx9^#T zcm4V@d8DLNetCAS-lgjA<&P{~*4I`DV;Z=M%t zSJaeT%4=FERok|@vfzle^=ePiJ$g5^LO9h`EPER>WebXT)P_qY&y#N1{OY>zam`~Z zme-~S^{l+yKl!T4e}OOs~=-Yqwlh3)$^@k58sVXCz&20 zMJZ0_93OPtT>5k0Gxjglk37%LZ`+#P~6Dq>zErSof@45b2_~YrQ z-aXOl@4NM@&t7p(;%$K407mx zyF6FNdhLzy4*QmQ$hUI$ZRd~rEFb>-=y@->_j%irC3oL0^*p8Rw`u!7rt@=ZTy@Hw zOgjWFoLii|%1&8+SLS?e@o6!u+ipw}SX%JAa=N|u<)i0s=|5p~kr4aOpwV+Csb9z2 zt!t9{Ohq=gfWwRq3VEwu+n#;AG0|kxNo5wUbCKfGH*$i`)FmoEWjB1w@>n}|?~ahI z+dABC-fB?RyRX>cvnNHfTf*`g{xigU+|;zYL&1(E%ah}x@yXLXHOserlq_$%Wz18(X%&m+#_0Kz z>#lJgNJ&xMuscBiv}{q7PQ>1ZcTO8;g#64p#k3<;`!vra75&dM4vVVn<2;|nxBR!r zvoD$6YrjO-m#$v@YR$X1SNX$LcI`F$60f|_aAouoOVu-zbXxn~u;lB=@BVzulcUb* zl<~a67`25m{~7l59BC0#Y-wUY;&FTCsYfo6f}s)uDH@k#+5{)n>KvPwGLu(N<-O3R z6HdGK&pNGml7~%{W#Nr?JPX)t;yc$))fa8@xp-Qj$MC?!P(^L2scbGv9v7pze;@kY zEmWCxdbNK3$>n<`PMWP>6Lc{y(Cc-!ZqA-VUbpO3zu)%1aQnlZ`PoehPp_qhh4-A^ zr>-$cB=z=F1(%8L(?2~~m75xH+x5J#r;1tN5spaNPbnNCqV~oO7k5mN^fX+Nyq7U8 zz_9Jahcg@2OgiMOGbt}Jsj_I{oToP`mozYhF-1pLXTU_T(owoL7 z{JMK}%X}C8UG&BA_aSealv5JhWF+Qn`}*)ncrs7l5|xf~oQ4yu#hW6d(=IRx9taTZ zuJk&xyX7zb{4`;P3x1@ZHn)}H*-(mM4?#%$|r%3G&Y7H>Q# zQMY7s;xbDKmezy^Nn$lC^0izuc?u?&HSa##6}!+VtMKxqbqiVZJX9-}=4I~KtM@JI z+`IGXyOaKHd;PaQ*4ymb#h<(a4;s3aHyiYP=s9PsvWi)(jC;l*QB}XkM>TS`-HTr7 zCb)V_&weG7GhwD`Mq<7%&Pau2x7nM$*Urf@Tyreq&HcHT-rVA9*l#}T4qHTHj82|; zP0#ZT#U1Wzm)0+h)!~$0sj2Nz*y^t6v}KZ~(MArxBQ7`3nZG%3ex~G=!1d-Tlb%1z zefitftLomxJ6rwBOy%A>`R4CkfA`<=FUh~TGgdFDJ0B-BF`)gb)bG%P($VJM zH{F@8W5AhgY;b7RrwV&x^N#w1?xm^yhv$i3I=$&s*r%5Uf*Z;i+OzY5+zuTOooP0C zm+^$`H~lwHdrHY4>~F6sYV4>{U(l93RmkGfTV{{b)3h#aFcR=Qn0(%H{WWxsN1*vA)iZcoXvq^*dS>n1GY9Wj=+5-k<~en^U3X{k76sj>-1hTrCQd$k+Epyf;NnJ)MxH|P zDQ8>50z^I7RU1ri{OJ2|$J?l~LhI-*!-9mQ#b+mI8FH+Ay2bCd_~`_T#OA}lYTDFx z>}c84Z~SI;fmndqnwTSMt#g!xl<#bIE0Wo5IrZd!2Dc4<7COQ!L*t5{Zpu|JTbx>6 z{b_62)P1s7xBi>7Wmcx`+_jheLVjiJjPgId;KiF@|7{%qDyBB3>m+f!d($zAch&4E zE=MJJHWq{^-YPtCe@$HmW6MPET>&;*UDKyI_`Ot4D>^gbn8-Vy+B=^DzKi#(6nb^b zebbz%_3u+?!qR7%e1Z~gYfk>&Heo7bxg~QxbD{ifm1-yUOv%71&n*_##nV3hXQ&C+ zxa~Dn@}Jg=171Z_UU^0BjSky<>E-Q;n=iIrPT%nK)s~y3FH1jNx*N4WdE3RtzN3n4 z7JHVL^J?#!9y)PuIa>*1U+53^W%1gd`d`%l<2?G2>HX3BEXo&5Bmca0K3FyNTF2ru zY4!=;GoM_Zq0Mk=f11|f#zTCog>1h;9DVgS!>Z4?!&eHtnyZgh1#p`dpd~r$Ris@VnTM=ElUFOlLl5 zv@X=`<)7sqhu;Y9Jklqf|26iJtla%0QGDwc#V(k3J@j(E&Qdq#Oz#zOIulMg*v$E} zoZ;7l>z}_Ce)yEj{jL4O@@Bn-LUHo)FSRb_{(RzkbvxTlHipiJeGeB0ExenY^Dg&{ zJ=X{J?x$@hjqfZf&Z?}n`teKT{i@|sMk_;C?6tk_H{ZD0cHXxi`aGN0|8PFL>DK1S z(^yXn`_}7nO`Nh++S+2pwNUA6_xD8U^54JDdu!?Z_AT8m4-+ouBps_@vMyz3X>$Lq zbEnBF{K5CP-&eTTel$MnuIlvt|Eet5_%K2O!UZ;^pH#q+I_Q4{QI?Q z`f9f{+O>JO*grhaO89tRrf1^!*~^vo&&t2`IXt)eQGI88opW|nOGlUFlKjm&n^&;; zPO|&YV3rbZ;AX_(CVkE7=l;d}8#!F zk|I{GE7104Ns44y=-noH>*D&*;O3{sOa~_KoSmKCyU=O!u3vRG{b#+mRyuXRVrRaV zfz2ULz1hh%t5v!rg!n=h*t}_SdUMQG`ef>TDYbyf8`jS(>v^2Pu#^26&rVf8`wLdV zz3%V)rxvZ=es10S)bzDmdgo2tf7<^=>*f4eUta%>jt~B_a{0syDvo6vYgeq2*wJSZ zB6LVSlYwFKZY`rT_SNe0f&WhY3fcajL2S!ngPyfp_EjZU?K(8ydhxL*{3ae9<|GGYo)gMXMX!F}^v*hBqh-+1tDT=NPM3H8ckZA4#eFhACVt(U zJLjlu@0qX-ZkOz58^mY}J^d!I(SVh)_vQzI85d{&Wbd$C{p80jiHdurFRLwX-o3eF zU-t2PzjylfeahEOZ=d#9 zK1nzD$gI5|?Ja6IWr-Upy72gMTTNIKKkd^5r3c~H?~B`K^h^BlY}EHhOWxRT9 zsXUAm=i77~db_^w!{*lP4@;wd+?w(@TDE7c)TBj|pS6TO<*T+;dv5Y}?V8C|x9sQq z2s{w6PGouS@n^-$HqLBX%Id`F8L-rIr(Nc|=bE8gCT&SRnR<5Dr+U7MplGJ)*FP@M zYB?;kNFhnRQopr9rCZ>qV_EOD(BeLGxtD?)wJj$eJE-<|&A~(a8BZKqvUIlfjJY?1 zd|G^v)4J!=Gs9-1lFh~>kIAP>)TM78ew%xysGu;={ZY2%Own9}g_07&%0fFC z-lk_t7Q8vy(B&kaA<4Dl?_yz{!{U}<>z%?coiYn-@}KEieRg?u?3=r{vu@Sh?wEMT_hN$+~$o2yPNQ|IFlP+7|4^>(XI1dqgn#U77&RTB1@Ps(1+ z*>&c_j?BR2ZQoNhEsOPQSFSkzXxG+htM6{=y6(CStwgx0!uhBIGTjopoa(H}}l4T_TPW0jtF>G%n74z*gz?mNC@*%;iTn z8VYosStpz*s{V6!nwFWwks!BV)w%NwQk>kfI|I)I`@ec??YiWtWTe`pvb z*I)C$kzLBU$K_V1$`UEx9ibB@h3C#ulVqs#+7rCF)LOzobKd+}lYaEw4-8r+AYv`s zW~%j4F?GU54JkWO)jKQ>1;G{k^Ed8K+uv*W$MWjp>iW$m^DR?%Zq40z)}&}kNU}c`fG~3_$R%;<0TYZQr>knHul!JJF6f6c+T8? zW=F8qfd?Y#Jx3m_3R*0#U3@BLyXSuflSOOhe%ZV0&fm#DRD-)$F-aukI#>Yugl^o1dO>#!vLSw#P!QCO&4hrwa3r?tB<} zi$UiitILcdD|cQ@iL_Z3tl@iBqAYOZQlUhHzyp6aADq**&3oFjprh{7_9=^t-t%>y z`}Nw%llI!%^UL0U`p>}psV6LYdb+6L6s^S9-i9HnersgZ=5iVCiJCfhebD#tovt$y z|1;EoR@VA+X~zVf6nKb6TmNo=;BYI%y~*uvnOW6@k`;F!AtF-k;A@7ZY=95)gr<8xXu6=@C>r6lc18Z?#VO-_!((G*?Yiu@O zcD?0p`)za5N~T@yQx3)X?>bVj`m>O^*#kT0p74no_FMjSf4Kdyx3BZz54Yv(SMG3~ z7_miDdv~SZ?{6oTG{jDG4KgTC5oLcgztdi*#`mLm;J?cs-Bzj|5cV`NYuT}_!9$u! zu|X-d%c*sdV4H$v?U7l3v{fGX#3}d63neXj*mgL{cB{ns$a71grt2hUZ#|p6ZD;Vl z?f%n0$Sgkm=ep!0IqS}kuPk!dMFLVd-8;cb@xrKm&AHKdly-E?&A^3jmkPc>v!JQn_bSTCBrzC)myEA@py*m>I^+8 zeGRKsI!U#ctQSZx`B`u*cz-L$y5v_*8+mxl?Uc4n5lTqdI44)9vD4sG47SZChq< zT;}=g^wZs&Pm1d-c&q)X?!(Tc)t?@p4r~%GGmPfX`grQ3+}jybiSUh)0$PAa_=zyJhL-?=8i*em8S;nT&@4eTQyv0s=`}$ zk4d(lCcNRPd8cve%tAAXZ`&ed?^}Hin`gC5X~|Q^b(Qz0y63lMF59+g+pW7Vt9!lX z^%;4meBGZPyZy?;n&5}kr=M)wvAH+uX_R?Nio)5viJN_eR%#qrB;+)u;viQayR-Wt zGjp+BJ==|SR&{eb{XFF({j@B`vgFW|Ac^(o7MR_A+x2dG{N;;G`_HYpWbD8!6xyV% z^D0HBeB;AuiBkI>D5<#}5wkis(`25r`=(UZ?M8gFnK#C6Dx5Ien`34Jmv}mNT-UMW z#f>Xl=gFR%uN^pFb=iWuPu5;ln-qV#di7nErKfIX$M3G6o_~E^`}~Ryf3=kc+Y?@0 zG@5C!Zpp4U$_f2X+{%AW=YBRpNy}`4)qehnz5Du7lFp>oF(w%7-`m@5Cb&uX8H4cF zyL?7s3qFeVC}pf$yY{H#H z&HdeByK)nsjhiZaZpYT;?qJv2uYX2cyr=tg!G>jz^D5jtmn{9gb-hve-P@s0zWALI z{{D2izrMcFBB$9KTf=62nVdhzi!VlmEg(ioT4xsCc{EdJdfCZz zE|X0sYtsQDWgK0H@GaWi|F|Hf(0t`tP% zxEnv4^IXr%%P8}fVAPA*o3~8PdmEc`=I)%yVP#?URr$4BqF!#c5B$%NFjwo+v2))e z=AZPQoRge3t0E?8 z9lU!AZ(B}$Tp9e`<7`fphv=PS+;4N6oEtwg)XSU9@03&e5W4@ymbC$q4jw%ZJX3N_}dP_4F%wsIeo^d)mb?FaCRFabCLr;%EIRZartQ zPsV%3c{IF}0*3_6KOZhXa`n0ru>1D_Ls5-a2c=f&W^<|OsUKnra zG}t-e^rVi7nrSSL3!M$q^(U|?Kll@(GTVQa2H!U}gXB+LV)siH2A}izzT0F{BG2q4 zGBR(E-J9ea?lhD>5l^q%dVqFnizg4_7-u1+u7^<<-@veJr^l^OpT6lY3qDtj97 z{LDm&eD^!E%cg$%aH4FEf^Q4|%?}3i#7b0UY#vMT@rg{y73KK!sbsRJ%CwVTU!1=* zC0Rn_*hMcbty^kawk}RvGwEWy_f5Nd$qOP+d>2reucc)78`GvM6Iqq_7 z+`pLXYubj1Cysw)Zs*-_^68$GMeoZFe!A(?&V5?w=oP8r_$Y_4%q6$E>;CLo^wY)7 zsl760Wx1Hgoj)|`wnQFsSZ8x z=Gdc;5vMk;_2;)Zs=le%^RC&tD?#P)e6z~J5=BL}Uh_}A{ZF>8zWlQNru)51K7=31 zX4^62)?u5E3hDQDW-MtqH78Nd^U>6|i!72QBv@y>wcmaJ_B5$yZP%}f2l$J8YjaH~ zstodb@Wg1s&7Xx+9|&+L)EmBhbXr5D_fd4qyn7B8HUvm3&OOoj=(7sXS~(Ag$Zv~} zpH!?peyDz{de0t{`Ds#Dk8Id%QNMM*j`f+Nvn!`w&{7jwCHh(LN6@OH?T_{pKb)uD zS?r@%-nM9EQpRtMYduq!2ARBBFTOdbsV6Eo%6t8u{?k9cA3jl-rp`Pgu`uLA#T)q@ zPc1AjulKyt>&m&}_r-$gCW}>TrG0ZM|1-QbI`;V3K7)qV!&$p-G2Nb+%z86W&Q{?05oylS(GuCTi?4l`>g!Wv*7p%DpBv8+!8QM{l|HvwZjaNRA2r88|vSrnV_3t0bRt zG1T)~-752-uV-WPHH*Wmtc|Dh?(N#lIaMV+?9i%Xsj1A*xQ=#d_MSiebis~~i}fe0 zdfxJx+w3Hx>f#g11w!j$kI&p7v{TW8ZHhjkI~s{f5*oCXV9OdeLMQ+b^}MAikZ(FnOaXR z$yO;6xUaQq{q!C6tIE{puHEYRue&~NtxCpzE*s6f$0=>c?mppZQr@v5c*X%~{!9a@WFqE zwtEbha&+Il-74!RYpeL5!F{UD)>#$~NgGq=XsS#&V$^ur!bbkco~+Y`Kfgs!dpd*T z%1X;?bNxKrg62F`_u{nH{g*si_H8X-?71xIawek#)KE3DNk>_jo0{XyBWrX|ptXF6O9) z9y@ca(e2a0P2qK1pE#@?4^5o)`@z4%^^&``?whi-CpjtR+#kJ9A@4idEp%?&X=qaZ zbRcwsO8iFgV;PI5bn|NNIX^io_N2^>w9dO;^($2xX7c>@YE#gBwr}x2rEpH|{a?Fv z=6wIYQS+Yf>b=4K+jVbkyXJL#-;Tp=lYF23U|qC3VvWswzlp2WpKqIHZ=SbCUoNC~ z(Ja?HZclF|BdX&%G<+ zFR|!^m2QXnncM#+nmsuY>gJ?qU0|26bji=tMS&u6yY6XxXnA=^+wRoe**^*mu70ob zR4=~jQxrbHFwHZ2ZerH!z zcR1?Qd#21-^v=A>^^q#!K{1PRIxl)=%wN;@aZlo{+}}ktM^ltk(;lo+EBsYppY)%h zXTg@v1-F$p7ASX>@od}?su+887mLHWmlC&@mqn{Oi1xqn{TP1QdXGL&pXcxI0n3t0 zpEH-NGTg{@^gyK9n*?UAJ@Q>O>g}t~|J^?QtjWSRk9!u2u8zHvw07ydRr;YblR{Fo9HyxF za0c9tw7J-(mHn&xg6 zGX1*ebfxY|op%dcOl zs5`S*FXQN~>tT1d)G7YEb!+k~d9klk8E@P=YmzvHoonfnP}c;Pjk{U$=NiwrovHF? z`J*L$9`BNSD)$>Rc{g0rmbe)4b7zj-mmB7*8X`k)M(vyNck$Qh*XmSXZ_aZ!xa+m; zoaF2x?`_VP3@-Doy`DVdNe)wphP?GE=4rPMFr7NWuj!|%ySGhrrmRE$u5%I1a}xMp z%wt=u!_Sp6BhuCNusNlhy3|@_Yk7}M?%jRc_fJ3e zWuxeiWb>u1OM|v4trNYp)N6{W<*CqguClJ)+hx;p*OyIO{;K@wTbImw-kRXb{rQs< z4tl3F#9p-0^NX)qaZ6fpm$~SlJv9L{OKp=r6{>Wp?b~srdZ|RR%9`FSEBLqSiH5wD z(MbZXl*z27SP(>`zC^`7yuq1nmE`5KI@N?b8(W(MtN z`ceL1eeXZ@JLfAOzUR!EUiKn+?t9;reb>S#pX&X0v@EqXJ@>ql-$%En0_>ko3uJ%Z z&tl~HL62E>*7I|cRmc3Mx&{jdnZ#>7tNXR`)Z+5syPi9@%r5Xc^W#4QuaVUq%}I~6 zo(nB)UE6ci>fM~@A}@o!l`QlPnY71p&SJAmb+5~Q%-(+bp6sP}D&o_9^L`i}n5gX* z^LD2BV&|=8>!-`rcb@orR(ayr z{eO(&j~xgNKUlud+;#i+{uYT(cViS2j=06fs6EZusKcD=wOxLb|FM;ffe+4l+SUGN zuyRNYI`d#kz@*&JFw39=O0CiseD=BXK(+c%dYh}u0KdFk!%5SZT53jiQ zw=Dll#`Bv_@t=$it=s#a+E#{5_u->k{CDOX=gU|!mz#W^$Xa+!TtT-6Y< zc%%R9ybD|19WSK`t-0y>O=XkBRVTx=NHe$9JD0T{$x>?nK1Vb>h4FOwt?Tuh{EsQ> z&sA?SwY4e+OrX%Le#<}q-3G1GQvWmEhzghY*Pi%I2!`4fmbJA~%C@HKu z%B~i9AY)A*|5pERotoH5uE(29r>U6us%*Qk zB2??*`!ajAvUf&}yX#Lk81SZh|2F!Qm^O`je|y!Ltd|>8IP*()OjOL*Pd%5EaX;%_ z@=PIT6gj&(HRL3ZtaSD`?}aO);wi>?z_dyPMe=r6`5wu zt!a1lVg3A&ZQ+*}eXE38&vUoGcyT^Bd@QHkxE^k;$dF0+HFM$>}o;tide$~N<~ zSmczf+@UCxJITOM?amwZb9ygUNqiD#^`BwzFOONcG2CH8NafPG7dT^+COM_)9XXLF zo?_^tEU2<9yl7vPpz=GOK97qTd7_^ZG-i9}Rkoj=dXFJ=y2_TFE;pnZ7OE<N7#sA~&+I+{bJ8Act_Os#a*(Pz(GmVy( zTfhCR5;)J}5YyR1?<&%Lf9EY<9(^oKbN#yq8w>^et)fppYSZ+#nceU?N`1yN)1M7N zXCrUNo=I~xG*;SpV!FYeM%A(t)YA=mx}QGpHhU|(=63p{eNqMQQoXItY`&8x7ou@} zY1ll;t1(-%ytXOLjXY6+hey_@uc@uY~pAgH`j`8ce`P5-*nMjY`#l1I;oK5;f zHq_LKj!Eq=uhyl?P1_5Ii}%am{RPIEPOg^hRCb*+icsXsocps+bK*x};6Czgt4i!C~KO}S+d z@n`7`eVrd^1y#b0$HVvym$&u02AQUxo4u>|+Qe=B-giB7m;Qae%X^;Zsavu&DrBx{Q$(=3*huopQ=r+x6azdb>7OVf+rZ13-JN*+J;T>0`p;UC*xABY#Sk$se{ zRnv3j0`eQ`Ft~2@u%;!6@3dI=XU&O&P6SVB4*c}(HcM*#ZZFb-INLP?0QFQ{tLchq*(Fc?scjf)A>ZXJ@2W;N9GmK|#qfX%I<}Fk6_gEDkmnr?T_hVY4*z(`S6=ll# zG7}H3wp*>-aWSGkEy}k%Q>kfQV#K7yM$PUD<;>VgnemJ_Y&y>UNL7qjk?->(@#Fe~|1AElN&I;C=#9%d z`d@b6-{@QMp<(*u=vxtMx1>h0q+T+cao~`XTBVu!nS=ZLKK*ClwPlRs5SFJ zp(J0iH+z_1QOnafnJsHGW4#RL8~aBedug(+PJP;kwDiL>)~T%ZGhExee#+yFhq0QL zp>ysmwlbKiE>~_Uy}s0YSNVm%6ZTAr&YZsa&*C@V#EYKKd1hTHlaNv`)YuT-Gv~?m zPY*xdd;d1h;A-qrBmQl7&fN@6RG+W2N$k^|9juoMmWtQRPSoA9(e$r&#rK%)+kX^4 z+UuDb-dJN_ujI4#_h!)9K^Gr7{gw2ZntS|upZ$#d&g=GhA9)|w?EIX!q;{jV=rfN+ zLF>F2l(}AXK2>SFuDzql`d_bQY>uA2&5^K{M^_g5-|yS^-s;D#>;7fm?y6nBaQWaH zotMGq4UL=kY?O$xTXk)!RH?e^UF+-NzG`cxhvw@xMJzV{dC21W_YMb7iBpaSKhvLo zS{$G}`ONL6gJO2cQ73laeAW~tdZ)1=F|WYf;Ly8cq8{1}5qUh0&ogdKRK8j8ET-*- zpWszVvlEh$PaPa|n~tg8{4TvrOXaf8a@HkX(!DK<>~A$FI^Ny#Hge~^bN7uq?egb_ zZqoj3G}Xh&FV{b0(WS2G9{(Bab=TI$-n|qnI{lsOzSz>Z-T&mv>o0k{z0V?UcwAX< zvdoF!i(14F?bIrB6%vTNr{Y@RlG3%6CGgNW`LmL9x4B(Mm&3udr=9m!h@Va<@I1w`;`)(&VmtVa zesnv|%21pYx%SbnNGWEiU2o@~*4xlJHDvo7$HRgZ*grcX~!7MIxm?|k&) zEoI9Wl|^m6J@xg{)54Cw*A-m%@A?~d{&V*13)8-x)ziIoPjlYgnHSt`ye{tha?btq zr!(ibTOX6=3KV{yer~;urs|z}$>&?yJpSBFnJOXCvT=pa$(A6|CjlPL$}8-qUfbSd zqj%EG#&yZ6=rbGU+;uv|I9;##bWrzG{S!Nace&do_D*JUzg{8|scLm@(uU>JRHy%T zI+=98;F-gHlQs7OGhNCRr*`OW5lB8-ny8sBVe)q#zqr`_TZjE#z06)}T6VeHJGA82 zox-*47c~#+tIeuX&#t=n?f05@MHhd_opJu`(cio9W|^MIiJb{&rP^5Z4r*BUN#yhJ zCDt=ePgwL#cSUG(Yv{T1JqvHP)t5zy_A?8;EiLbyo?2@EVM0ayv-^+a`8P?L&Gg&8 z+$+4q;O!xmkGuXH&wesdF8p2ZsoaBWGmL(&F`a9b*l^*j$OVbW+u8?X4)H}UE!@k% ztf~Iq!M5(ceeeBEM`QOsZJWJ$a&(;7<+$$4$*En3wd+1j&Q$sNWY+iGRZ-DP-&g2Kf%@w^*%Hgddr zcUs1iBjC)r4wwFCY9fXT*O!}ZUvgM}uG+$siSPUMMZUE>ojA|7Q`?O}RnFZyMAJu6 zLD=Khx?bxI(SOz4g9^FgZgKi3s^uGA5E9Nishk>bTr^#ek2R$5=dZf2JkHz0+sZGU zbS-xNbo;d1>eo9$v#&0Fv0ScK*S6&C+FiVKgsR^yJPLaC_qr(4bbcM8#?n z_k6?R>)8_5uIyt7ci}F1a%%T2*BfSUxO$l0Bpoa`c<%A(wve9&_gYGIrA!59zqQkD zV_ejIwq;-BV+)U2krI+jYjhlLJek^CwB)M#l`k_TZZCZ{SLei{;9S-x#=erD)mY~o z`qXldpUH>8UB$qmfWW^?!6woO>KbIs$`;k#;CzrN8swbVLu@vNU; zw!f%+@T01DpY{^n38yBxt-3sIezu5f?`eTM+ag1lxQ+7_^)vTL@4R&4W>HM1gg}d@ z(5Dl-FU}0hbW1k;vu5Wx>3>mjw``q#Q|7tt-r^EJbM8B()X*N62mE>gj4Iow+z$BD zv8G%`Ci1JSV)uWBBgcIvyt%hySNHdTPq9mbp7btUq-wBaMViF#!|`j!WTzjOXxUAMRHU&BX>$fcQ=v)AvLbyauGwf_uH%DC6RI_{gR|J&=0!^OAN89UmO z)jZ;K}OZdy|vBySpITI%lmTmL^pc17VgrB}C{ z7C0TxTbcAOiO8%y3Y&sUwz(pLQJIAg~`O|1wS*QM%#zjbUDzb`H85e^F5 zR1|INlWZfave>U=N@-cpwq3>6xwU0cWmmTan_V(YZYB#U zy{qtAb7{Uo$L-S(yC17=-?i3VZuv6P!_g;;v!_iJQkhg*a9~Z*xfN%HoF#-(Paay5 z*CF}cFl&8c@1&l6Ydf!p%(eV%v0UWVMYHw0-lkqyzvki3oK;8n?$cPBUB2)4ZQr%8 z44fkCzD$(;&#))s&ql)}p|TE>X8mWZ6PKLwh}?6*voeH-H`sl40MCSb5_2qbd!+^U zJ{COo?nG;ZMSs;K?`cJKp*`9q;j^aAWZE!0?BWB}hxgR4ybbJTQQR=mD@N#yXr2Fi z4c4j)?ZKDz&cE9#YviUnsvQY<7a+u+`ibTtDDciv*G)$GpYM|isIEfKM#I$ znXiz0u04~-?dabt9ZNZwoP6tlIKE5%DfTE)eAXg^AZKZ&@*_>LlLX%UUKD9_oM(+o zYvhdei*2t?ZZ(X#Wu@iTny_oD!bv@^R@G-6#tSkI^}dr75!|Dgapu}em5n+ZlJwOS zPHI^`nX2L`^HimC?%{RLCys^j2(#_2cqX~4%g;0>?BZ13HP_bP-LxxHS7_7Al&B+# zk1iE2UmjPw==0V4@yC7n*z{R_S%P%Fx5c)Z@XWq;H&ThY%IVBa9${WHuFaF2wKl3P zJ>KwDO{Z6BO|Eoq;uKHul8n$4#pKg&msU01?mrP?srU6|+p9}=c`o0(eOM^XQ!2XE z!--w1;L`SK_xBw9bn%LCW7~~o%X8g*(=?_Z%Jg})#Ob`5^z%p=PoZUZtc=>ye&4?7 zc!RU>%;t`>Cxcd-z1=70tF~tEZMTzOx95tz?R;eL*6q{s)ROroq2FHXAAet07qX9a zXZ&5$Bl$Z%91Z85+?urXN^)`i>YkjSLx!8RcOCvAl)~AWl3+Q`KhVGmK}-*_#Oy^e)za#|K5|OA)zPSd4J#S@n&16-rL=*q98is znB9fW2`?_&WIr>SrX*~#Tlt2WLt~>PZ~U#uBXi%HuX@(C;Ogz|DO11IpT2nSsE#Xl zrd8SH%H=Qfe~8=M@@J~NDSSs+A(ho!CHrY>x+Hte(rZB?N>2?!yPvX2@;9zuw6k~N zG;vRF(a>A_;=b{nvafinKI4Je{VA3a6Ier{zI-v;w0`Qh*`5+^s)lQinu zTfHZ$V49q->C*Xbv-kd-x#F<_elb6IB3!Y|Ukv){Z**ojEgnLVGPtHBJLno5cd4h}H{`8y}utD-x*CwlL zjk`B*o1(F6i+ke}3*l80roDZ7R(aJ4pVZWN&Fv-i`UOch%^vRCXt>h6?9T*dlL-eU z+9p-hb5AG#wW>h{BzZNo&`;l+A{gK-KoMn|1~9LmupSql`WGte5yaP zY<=qDH@pA*XIL#^aBJU}8ygo$l-zxqD`Ycq(uz~U3Y$|etJrgx?BDZ6&_~)6YrUrCtd#noA+GJ&-w_(O7@0v}|yYu*8 zZC$(cKSOC?-qmXxx7~jC?)NK=>xv+arY7q6uGwx$I{KUGpMmfq$yMZW%tYUS#5mUAr7E6wN4HPkX1x7vS>xd)I(^Ew4wk!p+;@yYV8N%J z$13*%?{P2b-DdG?OBchPGP9?1PqQkQx%jmRPn6Efck4@>5!AJ8!JW`aTXjS4RI5yS ze{t*HFXE=w`TWtV|9rLC^CLU>?#@XQm}MDNvF#~Rr93VH5H z?4Ehxt8h!+o#M#{XU*}s7jvXR-f)Ryv%9j`k-noh4mh9a zl4KL}_+FwnZ#&OLKQW0s1!JpYNj)bG6+0&$nHQ7Z>iX&Gz5r%{(5~r%XMVpub!yX^ zgpG=OzJA)ai)n$lrozmPTjZFvRtB_o@h+Z|X80^-WBBgv8#3)@_x`%6va2$7{?4sG zul|bie4kr2FX*4}p4JpiX`_8-dkoG#op|8gV8nXKzjUddaHT zv}CXDnY(Wn`&GWwm07%W*SGht3Z{ict=)XA+*?V;d7Fp1uhKJWfJ7!bz0!&Q%io8qKT89PC2xC$5Dl#x$#eB z#AL387K*;Is|*Tw=IQAq7Svt1tut@0<>cK_FTS*9X}vtfKkH=H-2Jjvl0sUO!gegF=b4+j|~Y@_DL?^Ihs`vP-?;6S(PdznQ6m$H~cxM(HG*9MA-`!blq4^V20&Y*-_Ge+a(LC;y=PaUWYJCiAM6}-VZV;KW{=Cfj!-l^y!KfJX|?Iv|?>s_h3Z1(HAYZs2(l(Lw~ z+_T~K2J;iQJ9v60wuaoQSv>XL><=kPSFdFV&dm5w?7*w43KO+|i>(}G>e3ZkXg zbZ4H-xN_`M9?wHFy+?lK?{2N&ws1{h*k`b&GIU|kTDy>?T$6ehd#!Gov+|_MV%3UU zA9GFSO?vm;GHX?FP*>(k?f98--=kw+=FO^~`0M3|qUR6n4|{XhYiXQYCGhjt+%JW9 zviiu>vEO;CvhnCtl?A@dg^HQ=TlAmIKI?sY@nogV zy4S>P7ijHjIGovg^|)~Y8%Mz01$B;df0+8)uh;Rjwmj~&)#c7}t5E5ps!y+DU%Y#> z@7%?xJAW2ieORq_-Z0d#;?8lSm0|gFH6JHE7P+-0SzOvxcary&f9>brihfu-n}5wZ zX2vsVuJltzdt2vxd8wMY-jT=Wj20+7QP7ld%``Cc@O^SsZ&CMK!TT|WI(@S1 zq})O$H1VaRPd(GJ>!(|);Iw-T+FL4&f7zx^xNUk|`=$7srDmt}nYBMHO)O`hQ{-^y;U>GBqBWKp zH&W(r;XkyZ>F2GxOR_wb&p7Pv`grV3;RKHtM_LasPyX|9-Okkl?zi6y%t-v~xobjd zvfzY^D=hAO;!K^gA}z$z-13w`<5yodvm?fL&-`alwlo*#@3dO<_H*~#NfVwbY8_e0 zkX|hF@Jq$%#oG1RkFMQ&leu--^xdU7)1zXozdTl0x3oDv2L=Y|+)N=97mnJw9NoY8Y)DEEY=oh$Cg zTuD&!EajfKadt`Z9cyFbnlmTb^>&LHIBg5Ij^z_Q8ve)o9NW8_$Fz6-J##tt)t1tE zd+*)4zd)aPN1eXUd84qhf3|Ydu13xJnSJm1`~6+}H2#Qww3}JF?A5Jhvx`|)gg#0Q zOZmBB&FSwKo|@-boa())VIKZWy?dXs_lNkSRa@lwO}kg$=YMrL{l=0>?jDzlb=D>K zSRXsJ!fDB>nom8Re;={0?`zw;ic|Gw-Gw!dGbXED|18mPT=J)ft4zyJX~mh_--_g= z@0x5L6m#l3&u*Xd+Foa;^=E`JY)Sp8E9oQnbd%P4q1yXA6_ITZe}*g#mk*b1TF>!2 zMmEF$=D9_iTi%~n<#aE#SeKd|cirxAdj+%h!&{{*oTa;tKU{6Ge^v5wuYGdH-9e$s zzK1SOJMErcyMAT*ky&q_cWmvx8~5{DY|N=k{F=>EGw(j>TI5lB`V2P(<{Tv#Gm;dlv8DN z(6ZU1&B?VP;A-!_)JeLV<#!&Ral}n>idO&B!uCP@9bnf6;1wGOBeSDihcK= z&%M*rP~y*utD>n>!gA_9zvaLA_+kCS>z%FhJN7BOzIZzA^R#Zq)JZIpyptNA?%#Q@zo0!QYlD_Z z#S~_h&N+1(euN+U&%n0Fc=^%vrLShmPF-SnVB#7(m%tS_pDG;_s9C_UFo2a^ds0#1 zpLgrluQ>Uwx_;YPnd&3QjD&8+1)sD*mp^ zMYoBp-rbW{crCko`@&gerKYz^Cw5BQTe@lM&vdbh?4C!rHdV~|E$r5BvbRlauKJr7 zPQI=hpRTo3t`(K^zp3e)b$i$T10T&<5`WCgis*T6xY*V0;^Dy692fmw{?Te%9k*%n z?#nLqUdfNHAJ*iT`Zn)~fSdAk`*LN41pyE1C9akS zPX64u#|2&zfALsR_%SWWpC=% zdDlL@tnd2I(4jeXchU2Ruc_sg7q(8_ea!sw@7-VS%3oUfW9EnJ%m1iI=^0P5c_OL6 z+|$$hVB4kLJ8b0qc}@PRQ_j7%Qa-Uj@7bi(q<}RuZ%;V) zih;S1)4Y3+$HFK7?(8ekk?{Psx+7NdU+xOQZSTX}ON&177&Wvggl4~Zsj=Hm>4@XL zu%&Na?S3_NQfY3z-mSOU_CK0_7S(^UJziP&Y4*1B@ptprz0AKI{L6dq$MuJ!U#PZj zJYZmssxY69S!eB|w+V6X0ABJTflDJi| z$E-GJi(;T=P}Y)U4QtI~UO|)c!t&1FjWW6Jzw+Tc#^r}2mUbLYzj15I?X5Ywo7chw>6ivCIv9`?mWpNx0uy;-=AYQ z>~~9dYD*hB)x8K~y}mNd^0Df7y_k0%EKftdEn`o)edF11T>C zIstL+UR$Z(ffw}>uax{=nfop`P2BABvGY5lu5OrgdtZqA2B$Zx_p)?uGj2E{DLd=# z2ljW*f}T%ST5(e#wzH!%Ep75M>8Vph)!)6V?34{JI>s61ufwdsdLq<+a*|uwi8ayI zMjk5flvagWuKaYRX^Q&ZOOqyL#u;^c=k2qFdjmy-r_$>eicI+3Q;G1|Nx9 zwqE4@s=IsED;aM#GI6nPKmAtcOju?LL*tY?3&kg_j*DEAC2k&cVx#V%pjPcm22AE^WwH2*d<{y$Kb=J@)n_93s+Owq$x3Z zSO0w3yY68 z(%gi(H#YWFynlRq%G?jKqEr4f#-^O$+^zmzl0l*O#d7Iz(bw%c$1FKqC!AQX_o6XJ z``9Hzt^l^FBAfE`M4l`3{$AQ@KHb{9C7^F!(2A#l)4#VK6AOsY(oV@co&V(e`oEhV zz58$>Gyd-GOK)|523_5)zVyxHt5e@)?VQ}Zeb?PD_b=Vs+b@+}`E5@x&qq(51u}2% z&X}9pUUlq@q~lK|?uMuPN+;;uD!O(5oO#ZUnGzx=!w&i`BBZZ_QLIIVnmw~*)ri`;c85kA3N8fFIMW+tcdbEnVhy!y@UkjC|YkqqW}Gg+3n zZ*+;@S;%+cX{TL+0-tx-e}-F^pZZ?tN!7G2_O(@+cJ1ojwXt73ORk(e>h1Pz^RCS= z)-T##TNhjYDf8i;$P_1)k}@TQz>CSe&)ni%jU?WQu*yZ{god(MCN>8->D^M87t{Fh z&}NI$o*cJ?p8)Wh$&*n0k>%eauL%@a?j}8*V(x8MwD%j zXV^2zGPlTw?tKPpc=}Y8lXm3m&aX@lEr^`yej@fn=!w;lTb4|TlQIw6{QTavs82_; zeyiNxd~o<@?d-x`lY`0&%cg62etLD=GxB!G+a=W+Ti5To?Y(T}`jGXTuij3% z_&vVSKKs3>{vmy#8tac0(}RD< zK23k~PVnL92m}7DPwt#hWt6xyw`^na(~h*-C3VjfPA%BemCTTrd#a+%_NZI5L{81N z&`A%9=7gCGHXe57{`&K`*M#Luq@zwcx-OMVuPl09H)qw!;)G9s)Z$kE4QkO?kQBTnK+-Gh?f# z?cLJ1*3)zO(%Jse+WYRle{*}4-|c^M>sQO4m7Dx{zl^8Zf|QTbyY3uMR+%{cBj37X zmNsYJJLU6TKWT6DaHq}X1yT<*fI5aU1&tcZI8yAHSDfx=5?y^3hex-tnyZ z(H{|NxvgbRV+FhFjQK%F<}K^eZWg@!Z@+Qr=Kl=b{~0bNL|^@<^vAL57005F*LxQC zzKPkB`KUHm@ce{3n{+>f+065>&Gyrmskm}yT}}L>=56Qx1|5Rc?Y;7!;Zo$PyH)GYl(jzA7eD!E2FpCHk1CCKncJ_Mn(+uS zIviZr_h9Lab;VmY3pV+d+{*8%iM3l;Gr3~a;nLZ|2me`q+;AoTp`5`-kB)m*Guk^$6D7k!(t_q^-)=g! zq$gnl=M%2|_PsXATv?jp-8Q~L9Be|iUm;&5TEb0B7Wujvz{w_tnW_Q zyWz7<;3G|gYirD3S52cD@7)BhQMcm8Ksb~g2om;J-~ zg;%rh>3>XdI~VcC|B=Siz^v0s*-?``*5oD@gLNtVa9uH>BjWV^je)AOoNXX?UaCRI(2I($@4Eqz|tN3mU( zX1B9BuYSemB&k%!diK~O?waHCq9>mf35yz%lM-$$M~xku(HTzkT8duT;%*xy5qxj7H? zUY=tp4QD8j3~g7CTD_uT^-=EZ#O+6BeR{XY;dW`SL!NxroQE3=Pn@?f35*Nb-^u^$ z$A5+|Gi5{S%wO&Qb~$&C^ZMf^lhk&uQE9t%&*|mLd#h*4F`fI}@^JfZSIM+<&kPr; zOo{Q>r~5Hd%%{fpkbjp``YsN{*2>6{(eh-U7ejTQL()s{)d;1 z>vsK5{~2;$Rad5+m(M(IJ=>;uGN?=w-~abe{3P?f{|x2-rgUAur}0rIsq{pQo`rpSN`{d-tBOZN*3SseR-+D($uL*sg0!lzV;8 zD+E6w!ADtKWdUAUDXONo7~6Ntw;XpezZA!&bhPnZJ6UkkstQ9w~Gu6UpBss;(yF9wr1PX zn!rb@I@5KImhSb*Q)Fa$^dzOpljReqN}#LO{bSQt|7WvewRCV?Bz2TKW`(lax;FH$kn)U@=Y*sk>(Z&$tg)sXX3 zxOhhl^E`IT^GsdZebra~Gcf%*6}>+6=d5r!jgKbVzAuXx%-%G0K3B@st?XJhofbjY zSsD*KsN(lpGf(BC;Dz-OuWwz<-~9LSs(9hgcUbaj{`@)Nwf*~)x0W)2u8IB++yAx% z{CQNOJAe7BX3vlAoip>BE4pJ7CZ0GU9d?ByOkkO0ap9+lJ0A21PJWd&Z~CM2BKy_} z?(tr~iMuSJcg-uE1zYbV_FXP=i(rs=tir(WrLn5|k^SpC_Fr0*S6tf@_$a%&J7oJu zvE58I+kRh?jSlFHuibmv?x}Yx@7}4AoA@5B^79alvlsp`A=|9tBijy}*S(vQ!}kAu z^>@OyoA#INO7D0lZZh(Gm9c2&!aoxA*E|3Dc-Q}~v!CO)+38wo=U4T}t+8II(a|eI zQ}^wf7#1)=P=Q~Q$sw|%@N?>n=aZuXe{>(=FR$Gnb4~tqWti=)xvwj;YTm3$E8Zf* zC(hjHD*7z+$Mqk{{~4Cf-SD5`$^LJbWR;J^DfH>OxUb6=Y;7wGm^JrRYx>Tau~T#& zu$6{}DNhSvJi)Z#%X#67N!e>lQ$Mop)aWlesJ6E5p|R|;GPWIx#XC3mq!)fQ3G|W| zGrrdUZz|*0_QiktF7XRiG``i5{CYR_w5LGQt+}s-*rzvm&Y8sK$M_)S@ya!4osUR; zx_QTI*S&R{bb?o%*fsS*!AhB@A{Mg?xIDEO4^5ufrLoSVUa-FN-?I5hay?r!*JTH1 ze>kqUah12k)uxuo0lP~W*Q@9-Z8^elgvrgo?)E}$MK)x`lG_l{|uJA{CC-t+Xs$4D!S*AyW_N4@$(($%F`_#+ZG=8I(6l%ub*`4r&8%3n{q!t zjlJVO|9=0w6B>)A-)jGH|KAkVO<&?CPF{&UmO zyJrtx(KWU?UiC`)v-aHo3@@gg{akb3{OsrA`LpM3tvdJab&mR5b4jiz@>V`QQAZBT zo2T`e$@O$pt$MI%t}H>uXL*ZGC!KTa;&Qp?UQ5@J4HI;CPvzrO zJT#TnIh}>cic4c%`bYhbbrY>#=6>pbl6+ogsUn*vN2P#;-VyV6!S9(0?y|>RYn#Au zX?+BP^lzuT<&4c+wn$38Zk{~x!jp@x@t*a4@{>%W^<94oc)e3e(AF_3UArIp;K}RZz{LIlYJ4ZpZ2|Z z+UMu_6@7u%<>u5{ymS@a>U({u{V7HHzq{;L&R=y}>E*UfYx*{wuCO`DY%s}Z z_WFGf-qkg~7rsyx7T$jM>F%pRZka+BVjdT7>{`5W*PRz@Ji@KRbr{q$PCf{9b^ei6 zv)@A2. + */ + +#include "common.h" +#include "rds.h" +#include "fm_mpx.h" +#include "lib.h" +#include "ascii_cmd.h" + +#define CMD_MATCHES(a) (ustrcmp(cmd, (unsigned char *)a) == 0) + +void process_ascii_cmd(unsigned char *str) { + unsigned char *cmd, *arg; + uint16_t cmd_len = 0; + + cmd_len = _strnlen((const char*)str, CTL_BUFFER_SIZE); + + if (cmd_len > 3 && str[2] == ' ') { + cmd = str; + cmd[2] = 0; + arg = str + 3; + + if (CMD_MATCHES("CG")) { + /* this stays */ + uint16_t blocks[4]; + int count = sscanf((const char*)arg, "%hX %hX %hX %hX", + &blocks[0], &blocks[1], + &blocks[2], &blocks[3]); + if (count == 4) { + set_rds_cg(blocks); + } + return; + } + } + + if (cmd_len > 4 && str[3] == ' ') { + cmd = str; + cmd[3] = 0; + arg = str + 4; + + if (CMD_MATCHES("MPX")) { +#ifdef RDS2 + float gains[5]; + if (sscanf((char *)arg, "%f,%f,%f,%f,%f", + &gains[0], &gains[1], &gains[2], &gains[3], + &gains[4]) == 5) { + set_carrier_volume(0, gains[0]); + set_carrier_volume(1, gains[1]); + set_carrier_volume(2, gains[2]); + set_carrier_volume(3, gains[3]); + set_carrier_volume(4, gains[4]); + } +#else + float gains[2]; + if (sscanf((char *)arg, "%f,%f", + &gains[0], &gains[1]) == 2) + { + set_carrier_volume(0, gains[0]); + set_carrier_volume(1, gains[1]); + } +#endif + return; + } + if (CMD_MATCHES("VOL")) { + arg[4] = 0; + set_output_volume(strtof((char *)arg, NULL)); + return; + } + } + + if(cmd_len == 5) { + cmd = str; + if(CMD_MATCHES("AFCH=")) { + clear_rds_af(); + return; + } + } + if (cmd_len > 5 && str[4] == '=') { + /* compatibilty with existing (standarts)*/ + cmd = str; + cmd[4] = 0; + arg = str + 5; + if (CMD_MATCHES("TEXT")) { + arg[RT_LENGTH * 2] = 0; + set_rds_rt1(xlat(arg)); + return; + } + if (CMD_MATCHES("PTYN")) { + arg[PTYN_LENGTH] = 0; + set_rds_ptyn(xlat(arg)); + return; + } + if (CMD_MATCHES("AFCH")) { + if(arg[0] == 'A' || arg[0] == 'B') { + return; + } + clear_rds_af(); + uint8_t arg_count; + rds_af_t new_af; + uint8_t af[MAX_AFS], *af_iter; + arg_count = sscanf((char *)arg, + "%hhx,%hhx,%hhx,%hhx,%hhx," /* AF list */ + "%hhx,%hhx,%hhx,%hhx,%hhx," + "%hhx,%hhx,%hhx,%hhx,%hhx," + "%hhx,%hhx,%hhx,%hhx,%hhx," + "%hhx,%hhx,%hhx,%hhx,%hhx", + &af[0], &af[1], &af[2], &af[3], &af[4], + &af[5], &af[6], &af[7], &af[8], &af[9], + &af[10], &af[11], &af[12], &af[13], &af[14], + &af[15], &af[16], &af[17], &af[18], &af[19], + &af[20], &af[21], &af[22], &af[23], &af[24]); + + af_iter = af; + memset(&new_af, 0, sizeof(struct rds_af_t)); + while (arg_count-- != 0) { + uint8_t current_value = *af_iter; + float frequency = (875.0 + current_value) / 10.0; + add_rds_af(&new_af, frequency); + af_iter++; + } + set_rds_af(new_af); + return; + } + } + + if(cmd_len == 4) { + cmd = str; + if(CMD_MATCHES("TPS=")) { + set_rds_tpson(0); + return; + } + if(CMD_MATCHES("LPS=")) { + set_rds_lpson(0); + return; + } + } + if (cmd_len > 4 && str[3] == '=') { + cmd = str; + cmd[3] = 0; + arg = str + 4; + if (CMD_MATCHES("TPS")) { + arg[PS_LENGTH * 2] = 0; + set_rds_tps(xlat(arg)); + set_rds_tpson(1); + return; + } + if (CMD_MATCHES("RT1")) { + arg[RT_LENGTH * 2] = 0; + set_rds_rt1(xlat(arg)); + return; + } + if (CMD_MATCHES("PTY")) { + arg[2] = 0; + set_rds_pty(strtoul((char *)arg, NULL, 10)); + return; + } + if (CMD_MATCHES("ECC")) { + arg[2] = 0; + set_rds_ecc(strtoul((char *)arg, NULL, 16)); + return; + } + if (CMD_MATCHES("LIC")) { + arg[2] = 0; + set_rds_lic(strtoul((char *)arg, NULL, 16)); + return; + } + + #ifdef ODA_RTP + if (CMD_MATCHES("RTP")) { + char tag_names[2][32]; + uint8_t tags[6]; + if (sscanf((char *)arg, "%hhu,%hhu,%hhu,%hhu,%hhu,%hhu", + &tags[0], &tags[1], &tags[2], &tags[3], + &tags[4], &tags[5]) == 6) { + set_rds_rtplus_tags(tags); + } else if (sscanf((char *)arg, "%31[^,],%hhu,%hhu,%31[^,],%hhu,%hhu", + tag_names[0], &tags[1], &tags[2], + tag_names[1], &tags[4], &tags[5]) == 6) { + tags[0] = get_rtp_tag_id(tag_names[0]); + tags[3] = get_rtp_tag_id(tag_names[1]); + set_rds_rtplus_tags(tags); + } + return; + } + #endif + + if (CMD_MATCHES("LPS")) { + arg[LPS_LENGTH] = 0; + set_rds_lpson(1); + set_rds_lps(arg); + return; + } + + if (CMD_MATCHES("PIN")) { + uint8_t pin[3]; + if (sscanf((char *)arg, "%hhu,%hhu,%hhu", + &pin[0], &pin[1], &pin[2]) == 3) { + set_rds_pin(pin[0], pin[1], pin[2]); + } + return; + } + } + if(cmd_len == 3) { + cmd = str; + if(CMD_MATCHES("AF=")) { + clear_rds_af(); + return; + } + } + if (cmd_len > 3 && str[2] == '=') { + cmd = str; + cmd[2] = 0; + arg = str + 3; + + if (CMD_MATCHES("PS")) { + if(arg[0] == '\0') arg[0] = ' '; /* fix for strings that start with a space idk why but tps works fine with space started strings */ + arg[PS_LENGTH * 2] = 0; + set_rds_ps(xlat(arg)); + return; + } + if (CMD_MATCHES("CT")) { + set_rds_ct(arg[0]); + return; + } + if (CMD_MATCHES("DI")) { + arg[2] = 0; + set_rds_di(strtoul((char *)arg, NULL, 10)); + return; + } + if (CMD_MATCHES("TP")) { + set_rds_tp(arg[0]); + return; + } + if (CMD_MATCHES("TA")) { + set_rds_ta(arg[0]); + return; + } + if (CMD_MATCHES("MS")) { + set_rds_ms(arg[0]); + return; + } + if (CMD_MATCHES("PI")) { + arg[4] = 0; + set_rds_pi(strtoul((char *)arg, NULL, 16)); + return; + } + + if (CMD_MATCHES("AF")) { + if(arg[0] == 'A' || arg[0] == 'B') { + return; + } + clear_rds_af(); + uint8_t arg_count; + rds_af_t new_af; + float af[MAX_AFS], *af_iter; + arg_count = sscanf((char *)arg, + "%f,%f,%f,%f,%f," /* AF list */ + "%f,%f,%f,%f,%f," + "%f,%f,%f,%f,%f," + "%f,%f,%f,%f,%f," + "%f,%f,%f,%f,%f", + &af[0], &af[1], &af[2], &af[3], &af[4], + &af[5], &af[6], &af[7], &af[8], &af[9], + &af[10], &af[11], &af[12], &af[13], &af[14], + &af[15], &af[16], &af[17], &af[18], &af[19], + &af[20], &af[21], &af[22], &af[23], &af[24]); + af_iter = af; + memset(&new_af, 0, sizeof(struct rds_af_t)); + while (arg_count-- != 0) { + add_rds_af(&new_af, *af_iter++); + } + set_rds_af(new_af); + return; + } + } + + if (cmd_len > 2 && str[1] == '=') { + cmd = str; + cmd[1] = 0; + arg = str + 2; + if (CMD_MATCHES("G")) { + uint16_t blocks[4]; + if(cmd_len == 18){ + /* RDS2 Group*/ + /* do a ifdef rds2 here when implementing*/ + } else if(cmd_len == 14) { + /* RDS1 Group*/ + blocks[0] = get_rds_pi(); + int count = sscanf((char *)arg, "%4hx%4hx%4hx", &blocks[1], &blocks[2], &blocks[3]); + if(count == 3) { + set_rds_cg(blocks); + } + } + return; + } + } + if (cmd_len > 6 && str[5] == '=') { + cmd = str; + cmd[5] = 0; + arg = str + 6; + + if (CMD_MATCHES("PINEN")) { + arg[1] = 0; + set_rds_pin_enabled(strtoul((char *)arg, NULL, 10)); + return; + } + + if (CMD_MATCHES("RT1EN")) { + set_rds_rt1_enabled(arg[0]); + return; + } + } + + if (cmd_len > 6 && str[5] == '=') { + cmd = str; + cmd[5] = 0; + arg = str + 6; + if (CMD_MATCHES("LEVEL")) { + uint8_t val = strtoul((char *)arg, NULL, 10); + val /= 255; + val *= 15; /* max value*/ + #ifdef RDS2 + set_carrier_volume(1, val); + set_carrier_volume(2, val); + #else + set_carrier_volume(1, val); + #endif + return; + } + } + if (cmd_len > 7 && str[6] == '=') { + cmd = str; + cmd[6] = 0; + arg = str + 7; + + if (CMD_MATCHES("RDSGEN")) { + arg[1] = 0; + set_rdsgen(strtoul((char *)arg, NULL, 10)); + return; + } + + if (CMD_MATCHES("PTYNEN")) { + arg[1] = 0; + set_rds_ptyn_enabled(strtoul((char *)arg, NULL, 10)); + return; + } + + #ifdef ODA_RTP + if (CMD_MATCHES("RTPRUN")) { + arg[1] = 0; + set_rds_rtplus_flags(strtoul((char *)arg, NULL, 10)); + return; + } + #endif + } + if (cmd_len > 6 && str[5] == '=') { + cmd = str; + cmd[5] = 0; + arg = str + 6; + if (CMD_MATCHES("LEVEL")) { + uint8_t val = strtoul((char *)arg, NULL, 10); + val /= 255; + val *= 15; /* max value*/ + #ifdef RDS2 + set_carrier_volume(1, val); + set_carrier_volume(2, val); + #else + set_carrier_volume(1, val); + #endif + return; + } + + if (CMD_MATCHES("ECCEN")) { + set_rds_ecclic_toggle(arg[0]); + return; + } + } +} diff --git a/src/ascii_cmd.h b/src/ascii_cmd.h new file mode 100644 index 0000000..fbcf2a6 --- /dev/null +++ b/src/ascii_cmd.h @@ -0,0 +1,23 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#define CMD_BUFFER_SIZE 255 +#define CTL_BUFFER_SIZE (CMD_BUFFER_SIZE * 2) +#define READ_TIMEOUT_MS 100 + +extern void process_ascii_cmd(unsigned char *cmd); \ No newline at end of file diff --git a/src/common.h b/src/common.h new file mode 100644 index 0000000..f6ec959 --- /dev/null +++ b/src/common.h @@ -0,0 +1,33 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019-2021 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* common includes for mpxgen */ +#include +#include +#include +#include +#include +#include +#include + +/* workaround for missing pi definition */ +#ifndef M_PI +#define M_PI 3.14159265358979323846 +#endif + +#define M_2PI (M_PI * 2.0) \ No newline at end of file diff --git a/src/control_pipe.c b/src/control_pipe.c new file mode 100644 index 0000000..babfad5 --- /dev/null +++ b/src/control_pipe.c @@ -0,0 +1,84 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "common.h" +#include "ascii_cmd.h" +#include "control_pipe.h" + +static int fd; +static struct pollfd poller; + +/* + * Opens a file (pipe) to be used to control the RDS coder. + */ +int open_control_pipe(char *filename) { + fd = open(filename, O_RDONLY | O_NONBLOCK); + if (fd == -1) return -1; + + /* setup the poller */ + poller.fd = fd; + poller.events = POLLIN; + + return 0; +} + +/* + * Polls the control file (pipe), and if a command is received, + * calls process_ascii_cmd. + */ +void poll_control_pipe() { + static unsigned char pipe_buf[CTL_BUFFER_SIZE]; + static unsigned char cmd_buf[CMD_BUFFER_SIZE]; + struct timeval timeout; + int ret; + fd_set set; + char *token; + + FD_ZERO(&set); + FD_SET(fd, &set); + timeout.tv_sec = 0; + timeout.tv_usec = READ_TIMEOUT_MS * 1000; + + /* check for new commands */ + if (poll(&poller, 1, READ_TIMEOUT_MS) <= 0) return; + + /* return early if there are no new commands */ + if (poller.revents == 0) return; + + memset(pipe_buf, 0, CTL_BUFFER_SIZE); + + ret = select(fd + 1, &set, NULL, NULL, &timeout); + if (ret == -1 || ret == 0) { + return; + } else { + read(fd, pipe_buf, CTL_BUFFER_SIZE - 1); + } + + /* handle commands per line this is really good because if were sending text commands very quick after eachother then we can get a rt of for example 'Now its 12:00RT Now its 12:01' */ + token = strtok((char *)pipe_buf, "\n"); + while (token != NULL) { + memset(cmd_buf, 0, CMD_BUFFER_SIZE); + memcpy(cmd_buf, token, CMD_BUFFER_SIZE - 1); + token = strtok(NULL, "\n"); + + process_ascii_cmd(cmd_buf); + } +} +void close_control_pipe() { + if (fd > 0) close(fd); +} diff --git a/src/control_pipe.h b/src/control_pipe.h new file mode 100644 index 0000000..7f6b2d6 --- /dev/null +++ b/src/control_pipe.h @@ -0,0 +1,25 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include +#include +#include + +extern int open_control_pipe(char *filename); +extern void close_control_pipe(); +extern void poll_control_pipe(); \ No newline at end of file diff --git a/src/fm_mpx.c b/src/fm_mpx.c new file mode 100644 index 0000000..9395efb --- /dev/null +++ b/src/fm_mpx.c @@ -0,0 +1,178 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "common.h" + +#include "rds.h" +#ifdef RDS2 +#include "rds2.h" +#endif +#include "fm_mpx.h" +#include "osc.h" + +/* + * Local oscillator objects + * this is where the MPX waveforms are stored + * + */ +static struct osc_t osc_57k; +#ifdef RDS2 +static struct osc_t osc_67k; +static struct osc_t osc_71k; +static struct osc_t osc_76k; +#endif + +static float mpx_vol; + +static uint8_t rdsgen; + +void set_output_volume(float vol) { + if (vol > 100.0f) vol = 100.0f; + mpx_vol = vol / 100.0f; +} + +void set_rdsgen(uint8_t gen) { + #ifdef RDS2 + if (gen > 2) gen = 2; + #else + if (gen > 1) gen = 1; + #endif + rdsgen = gen; +} + +/* subcarrier volumes */ +static float volumes[MPX_SUBCARRIER_END] = { + 0.0f, /* pilot tone: 0% */ + 1.0f, /* RDS: 7.5% modulation */ +#ifdef RDS2 + /* RDS2 */ + 0.05f, //66.5 khz 5% + 0.05f, //71.25 khz 5% + 0.0f //76 khz 0% +#endif +}; + +void set_carrier_volume(uint8_t carrier, float new_volume) { + /* check for valid index */ + if (carrier >= MPX_SUBCARRIER_END) return; + + /* don't allow levels over 15% */ + if (new_volume >= 15.0f) new_volume = 15.0f; + + volumes[carrier] = new_volume / 100.0f; +} + +void fm_mpx_init(uint32_t sample_rate) { + /* initialize the subcarrier oscillators */ + osc_init(&osc_57k, sample_rate, 57000.0f); + rdsgen = 1; +#ifdef RDS2 + osc_init(&osc_67k, sample_rate, 66500.0f); + osc_init(&osc_71k, sample_rate, 71250.0f); + osc_init(&osc_76k, sample_rate, 76000.0f); + rdsgen = 2; +#endif +} + +void fm_rds_get_frames(float *outbuf, size_t num_frames) { + size_t j = 0; + float out; + + for (size_t i = 0; i < num_frames; i++) { + out = 0.0f; + + #ifdef RDS2 + out += osc_get_cos(&osc_57k) + * get_rds_sample(0, 0) + * volumes[MPX_SUBCARRIER_RDS_STREAM_0]; + #else + out += get_rds_sample(0) + * volumes[MPX_SUBCARRIER_RDS_STREAM_0]; + #endif +#ifdef RDS2 +#ifdef RDS2_QUADRATURE_CARRIER + /* RDS2 is quadrature phase */ + + /* 90 degree shift */ + if(rdsgen == 2 && volumes[MPX_SUBCARRIER_RDS2_STREAM_1] != 0) { + out += osc_get_sin(&osc_67k) + * get_rds_sample(1, 0) + * volumes[MPX_SUBCARRIER_RDS2_STREAM_1]; + } + + /* 180 degree shift */ + if(rdsgen == 2 && volumes[MPX_SUBCARRIER_RDS2_STREAM_2] != 0) { + out += -osc_get_cos(&osc_71k) + * get_rds_sample(2, 0) + * volumes[MPX_SUBCARRIER_RDS2_STREAM_2]; + } + + /* 270 degree shift */ + if(rdsgen == 2 && volumes[MPX_SUBCARRIER_RDS2_STREAM_3] != 0) { + out += -osc_get_sin(&osc_76k) + * get_rds_sample(3, 0) + * volumes[MPX_SUBCARRIER_RDS2_STREAM_3]; + } +#else + if(rdsgen == 2 && volumes[MPX_SUBCARRIER_RDS2_STREAM_1] != 0) { + out += osc_get_cos(&osc_67k) + * get_rds_sample(1, 0) + * volumes[MPX_SUBCARRIER_RDS2_STREAM_1]; + } + + if(rdsgen == 2 && volumes[MPX_SUBCARRIER_RDS2_STREAM_1] != 0) { + out += osc_get_cos(&osc_71k) + * get_rds_sample(2, 0) + * volumes[MPX_SUBCARRIER_RDS2_STREAM_2]; + } + + if(rdsgen == 2 && volumes[MPX_SUBCARRIER_RDS2_STREAM_3] != 0) { + out += osc_get_cos(&osc_76k) + * get_rds_sample(3, 0) + * volumes[MPX_SUBCARRIER_RDS2_STREAM_3]; + } +#endif +#endif + + /* update oscillator */ + osc_update_pos(&osc_57k); +#ifdef RDS2 + osc_update_pos(&osc_67k); + osc_update_pos(&osc_71k); + osc_update_pos(&osc_76k); +#endif + + /* declipper */ + out = fminf(+1.0f, out); + out = fmaxf(-1.0f, out); + + /* adjust volume and put into channel */ + if(rdsgen != 0) outbuf[j] = out * mpx_vol; + j++; + + } +} + +void fm_mpx_exit() { + osc_exit(&osc_57k); +#ifdef RDS2 + osc_exit(&osc_67k); + osc_exit(&osc_71k); + osc_exit(&osc_76k); +#endif +} diff --git a/src/fm_mpx.h b/src/fm_mpx.h new file mode 100644 index 0000000..2b6225c --- /dev/null +++ b/src/fm_mpx.h @@ -0,0 +1,45 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* MPX */ +#define NUM_MPX_FRAMES_IN 512 +#define NUM_MPX_FRAMES_OUT (NUM_MPX_FRAMES_IN * 2) +/* + * The sample rate at which the MPX generation runs at + */ +#define MPX_SAMPLE_RATE RDS_SAMPLE_RATE + +#define OUTPUT_SAMPLE_RATE 192000 + +enum mpx_subcarriers { + MPX_SUBCARRIER_ST_PILOT, + MPX_SUBCARRIER_RDS_STREAM_0, +#ifdef RDS2 + MPX_SUBCARRIER_RDS2_STREAM_1, + MPX_SUBCARRIER_RDS2_STREAM_2, + MPX_SUBCARRIER_RDS2_STREAM_3, +#endif + MPX_SUBCARRIER_END +}; + +extern void fm_mpx_init(uint32_t sample_rate); +extern void fm_rds_get_frames(float *outbuf, size_t num_frames); +extern void fm_mpx_exit(); +extern void set_output_volume(float vol); +extern void set_rdsgen(uint8_t gen); +extern void set_carrier_volume(uint8_t carrier, float new_volume); diff --git a/src/lib.c b/src/lib.c new file mode 100644 index 0000000..d50722e --- /dev/null +++ b/src/lib.c @@ -0,0 +1,519 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2021 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "common.h" +#include "rds.h" +#include + +/* + * Stuff common for both RDS and RDS2 + * + */ + +/* needed workaround implicit declaration (edit: do we need this? ) */ +extern int nanosleep(const struct timespec *req, struct timespec *rem); + +/* millisecond sleep */ +void msleep(unsigned long ms) { + struct timespec ts; + ts.tv_sec = ms / 1000ul; /* whole seconds */ + ts.tv_nsec = (ms % 1000ul) * 1000; /* remainder, in nanoseconds */ + nanosleep(&ts, NULL); +} + +/* just like strlen */ +size_t _strnlen(const char *s, size_t maxlen) { + size_t len = 0; + while (s[len] != 0 && len < maxlen) + len++; + return len; +} + +/* unsigned equivalent of strcmp */ +int ustrcmp(const unsigned char *s1, const unsigned char *s2) { + unsigned char c1, c2; + + do { + c1 = *s1++; + c2 = *s2++; + if (c1 == '\0') + return c1 - c2; + } while (c1 == c2); + + return c1 - c2; +} + +#ifdef ODA_RTP +static char *rtp_content_types[64] = { + /* dummy */ + "DUMMY_CLASS", + /* item */ + "ITEM.TITLE", + "ITEM.ALBUM", + "ITEM.TRACKNUMBER", + "ITEM.ARTIST", + "ITEM.COMPOSITION", + "ITEM.MOVEMENT", + "ITEM.CONDUCTOR", + "ITEM.COMPOSER", + "ITEM.BAND", + "ITEM.COMMENT", + "ITEM.GENRE", + /* info */ + "INFO.NEWS", + "INFO.NEWS.LOCAL", + "INFO.STOCKMARKET", + "INFO.SPORT", + "INFO.LOTTERY", + "INFO.HOROSCOPE", + "INFO.DAILY_DIVERSION", + "INFO.HEALTH", + "INFO.EVENT", + "INFO.SCENE", + "INFO.CINEMA", + "INFO.TV", + "INFO.DATE_TIME", + "INFO.WEATHER", + "INFO.TRAFFIC", + "INFO.ALARM", + "INFO.ADVERTISEMENT", + "INFO.URL", + "INFO.OTHER", + /* program */ + "STATIONNAME.SHORT", + "STATIONNAME.LONG", + "PROGRAMME.NOW", + "PROGRAMME.NEXT", + "PROGRAMME.PART", + "PROGRAMME.HOST", + "PROGRAMME.EDITORIAL_STAFF", + "PROGRAMME.FREQUENCY", + "PROGRAMME.HOMEPAGE", + "PROGRAMME.SUBCHANNEL", + /* interactivity */ + "PHONE.HOTLINE", + "PHONE.STUDIO", + "PHONE.OTHER", + "SMS.STUDIO", + "SMS.OTHER", + "EMAIL.HOTLINE", + "EMAIL.STUDIO", + "EMAIL.OTHER", + "MMS.OTHER", + "CHAT", + "CHAT.CENTRE", + "VOTE.QUESTION", + "VOTE.CENTRE", + /* rfu */ + "RFU_1", + "RFU_2", + /* private classes */ + "PRIVATE_1", + "PRIVATE_2", + "PRIVATE_3", + /* descriptor */ + "PLACE", + "APPOINTMENT", + "IDENTIFIER", + "PURCHASE", + "GET_DATA" +}; + +uint8_t get_rtp_tag_id(char *rtp_tag_name) { + uint8_t tag_id = 0; + for (uint8_t i = 0; i < 64; i++) { + if (strcmp(rtp_tag_name, rtp_content_types[i]) == 0) { + tag_id = i; + break; + } + } + return tag_id; +} + +char *get_rtp_tag_name(uint8_t rtp_tag) { + if (rtp_tag > 63) rtp_tag = 0; + return rtp_content_types[rtp_tag]; +} +#endif +static uint16_t offset_words[] = { + 0x0FC, /* A */ + 0x198, /* B */ + 0x168, /* C */ + 0x1B4, /* D */ + 0x350 /* C' */ +}; + +/* CRC-16 ITU-T/CCITT checkword calculation */ +/* wanna ask where is this used */ +uint16_t crc16(uint8_t *data, size_t len) { + uint16_t crc = 0xffff; + + for (size_t i = 0; i < len; i++) { + crc = (crc >> 8) | (crc << 8); + crc ^= data[i]; + crc ^= (crc & 0xff) >> 4; + crc ^= (crc << 8) << 4; + crc ^= ((crc & 0xff) << 4) << 1; + } + + return crc ^ 0xffff; +} + +/* Calculate the checkword for each block and emit the bits */ +#ifdef RDS2 +void add_checkwords(uint16_t *blocks, uint8_t *bits, bool rds2) +#else +void add_checkwords(uint16_t *blocks, uint8_t *bits) +#endif +{ + size_t i, j; + uint8_t bit, msb; + uint16_t block, block_crc, check, offset_word; + bool group_type_b = false; +#ifdef RDS2 + bool tunneling_type_b = false; +#endif + + /* if b11 is 1, then type B */ +#ifdef RDS2 + if (!rds2 && IS_TYPE_B(blocks)) +#else + if (IS_TYPE_B(blocks)) +#endif + group_type_b = true; + +#ifdef RDS2 + /* for when version B groups are coded in RDS2 */ + if (rds2 && IS_TUNNELING(blocks) && IS_TYPE_B(blocks)) + tunneling_type_b = true; +#endif + + for (i = 0; i < GROUP_LENGTH; i++) { +#ifdef RDS2 + /* + * If tunneling type B groups use offset + * word C' for block 3 + */ + if (rds2 && i == 2 && tunneling_type_b) { + offset_word = offset_words[4]; + } else +#endif + /* Group version B needs C' for block 3 */ + if (i == 2 && group_type_b) { + offset_word = offset_words[4]; + } else { + offset_word = offset_words[i]; + } + + block = blocks[i]; + + /* Classical CRC computation */ + block_crc = 0; + for (j = 0; j < BLOCK_SIZE; j++) { + bit = (block & (INT16_15 >> j)) != 0; + msb = (block_crc >> (POLY_DEG - 1)) & 1; + block_crc <<= 1; + if (msb ^ bit) block_crc ^= POLY; + *bits++ = bit; + } + check = block_crc ^ offset_word; + for (j = 0; j < POLY_DEG; j++) { + *bits++ = (check & ((1 << (POLY_DEG - 1)) >> j)) != 0; + } + } +} + +/* + * AF stuff + */ +uint8_t add_rds_af(struct rds_af_t *af_list, float freq) { + uint16_t af; + uint8_t entries_reqd = 1; /* default for FM */ + + /* + * check how many slots are required for the frequency + * + * LF/MF (AM) needs 2 entries: one for the + * AM follows code and the freq code itself + */ + if (freq < 87.6f || freq > 107.9f) { /* is LF/MF */ + entries_reqd = 2; + } + + /* check if the AF list is full */ + if (af_list->num_afs + entries_reqd > MAX_AFS) { + /* Too many AF entries */ + return 1; + } + + /* check if new frequency is valid */ + if (freq >= 87.6f && freq <= 107.9f) { /* FM */ + af = (uint16_t)(freq * 10.0f) - 875; + af_list->afs[af_list->num_entries] = af; + af_list->num_entries += 1; + } else if (freq >= 153.0f && freq <= 279.0f) { /* LF */ + af = (uint16_t)(freq - 153.0f) / 9 + 1; + af_list->afs[af_list->num_entries + 0] = AF_CODE_LFMF_FOLLOWS; + af_list->afs[af_list->num_entries + 1] = af; + af_list->num_entries += 2; + } else if (freq >= 531.0f && freq <= 1602.0f) { /* AM 9 kHz spacing */ + af = (uint16_t)(freq - 531.0f) / 9 + 16; + af_list->afs[af_list->num_entries + 0] = AF_CODE_LFMF_FOLLOWS; + af_list->afs[af_list->num_entries + 1] = af; + af_list->num_entries += 2; + } else { + return 1; + } + + af_list->num_afs++; + + return 0; +} + +char *show_af_list(struct rds_af_t af_list) { + float freq; + bool is_lfmf = false; + static char outstr[255]; + uint8_t outstrlen = 0; + + outstrlen += sprintf(outstr, "AF: %u,", af_list.num_afs); + + for (uint8_t i = 0; i < af_list.num_entries; i++) { + if (af_list.afs[i] == AF_CODE_LFMF_FOLLOWS) { + /* The next AF will be for LF/MF */ + is_lfmf = true; + continue; + } + + if (is_lfmf) { + if (af_list.afs[i] >= 1 && af_list.afs[i] <= 15) { /* LF */ + freq = 153.0f + ((float)(af_list.afs[i] - 1) * 9.0f); + outstrlen += sprintf(outstr + outstrlen, " (LF)%.0f", freq); + } else { /*if (af_list.afs[i] >= 16 && af_list.afs[i] <= 135) {*/ /* MF */ + freq = 531.0f + ((float)(af_list.afs[i] - 16) * 9.0f); + outstrlen += sprintf(outstr + outstrlen, " (MF)%.0f", freq); + } + is_lfmf = false; + continue; + } + + /* FM */ + freq = (float)((uint16_t)af_list.afs[i] + 875) / 10.0f; + outstrlen += sprintf(outstr + outstrlen, " %.1f", freq); + } + + return outstr; +} + +/* + * UTF-8 to RDS char set converter + * + * Translates certain chars into their RDS equivalents + * NOTE!! Only applies to PS, RT and PTYN. LPS uses UTF-8 (SCB = 1) + * + */ +#define XLATSTRLEN 255 +unsigned char *xlat(unsigned char *str) { + static unsigned char new_str[XLATSTRLEN]; + uint8_t i = 0; + + while (*str != 0 && i < XLATSTRLEN) { + switch (*str) { + case 0xc2: + str++; + switch (*str) { + case 0xa1: new_str[i] = 0x8e; break; /* INVERTED EXCLAMATION MARK */ + case 0xa3: new_str[i] = 0xaa; break; /* POUND SIGN */ + case 0xa7: new_str[i] = 0xbf; break; /* SECTION SIGN */ + case 0xa9: new_str[i] = 0xa2; break; /* COPYRIGHT SIGN */ + case 0xaa: new_str[i] = 0xa0; break; /* FEMININE ORDINAL INDICATOR */ + case 0xb0: new_str[i] = 0xbb; break; /* DEGREE SIGN */ + case 0xb1: new_str[i] = 0xb4; break; /* PLUS-MINUS SIGN */ + case 0xb2: new_str[i] = 0xb2; break; /* SUPERSCRIPT TWO */ + case 0xb3: new_str[i] = 0xb3; break; /* SUPERSCRIPT THREE */ + case 0xb5: new_str[i] = 0xb8; break; /* MIKRO SIGN */ + case 0xb9: new_str[i] = 0xb1; break; /* SUPERSCRIPT ONE */ + case 0xba: new_str[i] = 0xb0; break; /* MASCULINE ORDINAL INDICATOR */ + case 0xbc: new_str[i] = 0xbc; break; /* VULGAR FRACTION ONE QUARTER */ + case 0xbd: new_str[i] = 0xbd; break; /* VULGAR FRACTION ONE HALF */ + case 0xbe: new_str[i] = 0xbe; break; /* VULGAR FRACTION THREE QUARTERS */ + case 0xbf: new_str[i] = 0xb9; break; /* INVERTED QUESTION MARK */ + default: new_str[i] = ' '; break; + } + break; + + case 0xc3: + str++; + switch (*str) { + case 0x80: new_str[i] = 0xc1; break; /* LATIN CAPITAL LETTER A WITH GRAVE */ + case 0x81: new_str[i] = 0xc0; break; /* LATIN CAPITAL LETTER A WITH ACUTE */ + case 0x82: new_str[i] = 0xd0; break; /* LATIN CAPITAL LETTER A WITH CIRCUMFLEX */ + case 0x83: new_str[i] = 0xe0; break; /* LATIN CAPITAL LETTER A WITH TILDE */ + case 0x84: new_str[i] = 0xd1; break; /* LATIN CAPITAL LETTER A WITH DIAERESIS */ + case 0x85: new_str[i] = 0xe1; break; /* LATIN CAPITAL LETTER A WITH RING ABOVE */ + case 0x86: new_str[i] = 0xe2; break; /* LATIN CAPITAL LETTER AE */ + case 0x87: new_str[i] = 0x8b; break; /* LATIN CAPITAL LETTER C WITH CEDILLA */ + case 0x88: new_str[i] = 0xc3; break; /* LATIN CAPITAL LETTER E WITH GRAVE */ + case 0x89: new_str[i] = 0xc2; break; /* LATIN CAPITAL LETTER E WITH ACUTE */ + case 0x8a: new_str[i] = 0xd2; break; /* LATIN CAPITAL LETTER E WITH CIRCUMFLEX */ + case 0x8b: new_str[i] = 0xd3; break; /* LATIN CAPITAL LETTER E WITH DIAERESIS */ + case 0x8c: new_str[i] = 0xc5; break; /* LATIN CAPITAL LETTER I WITH GRAVE */ + case 0x8d: new_str[i] = 0xc4; break; /* LATIN CAPITAL LETTER I WITH ACUTE */ + case 0x8e: new_str[i] = 0xd4; break; /* LATIN CAPITAL LETTER I WITH CIRCUMFLEX */ + case 0x8f: new_str[i] = 0xd5; break; /* LATIN CAPITAL LETTER I WITH DIAERESIS */ + case 0x90: new_str[i] = 0xce; break; /* LATIN CAPITAL LETTER ETH */ + case 0x91: new_str[i] = 0x8a; break; /* LATIN CAPITAL LETTER N WITH TILDE */ + case 0x92: new_str[i] = 0xc7; break; /* LATIN CAPITAL LETTER O WITH GRAVE */ + case 0x93: new_str[i] = 0xc6; break; /* LATIN CAPITAL LETTER O WITH ACUTE */ + case 0x94: new_str[i] = 0xd6; break; /* LATIN CAPITAL LETTER O WITH CIRCUMFLEX */ + case 0x95: new_str[i] = 0xe6; break; /* LATIN CAPITAL LETTER O WITH TILDE */ + case 0x96: new_str[i] = 0xd7; break; /* LATIN CAPITAL LETTER O WITH DIAERESIS */ + case 0x98: new_str[i] = 0xe7; break; /* LATIN CAPITAL LETTER O WITH STROKE */ + case 0x99: new_str[i] = 0xc9; break; /* LATIN CAPITAL LETTER U WITH GRAVE */ + case 0x9a: new_str[i] = 0xc8; break; /* LATIN CAPITAL LETTER U WITH ACUTE */ + case 0x9b: new_str[i] = 0xd8; break; /* LATIN CAPITAL LETTER U WITH CIRCUMFLEX */ + case 0x9c: new_str[i] = 0xd9; break; /* LATIN CAPITAL LETTER U WITH DIAERESIS */ + case 0x9d: new_str[i] = 0xe5; break; /* LATIN CAPITAL LETTER Y WITH ACUTE */ + case 0x9e: new_str[i] = 0xe8; break; /* LATIN CAPITAL LETTER THORN */ + case 0xa0: new_str[i] = 0x81; break; /* LATIN SMALL LETTER A WITH GRAVE */ + case 0xa1: new_str[i] = 0x80; break; /* LATIN SMALL LETTER A WITH ACUTE */ + case 0xa2: new_str[i] = 0x90; break; /* LATIN SMALL LETTER A WITH CIRCUMFLEX */ + case 0xa3: new_str[i] = 0xf0; break; /* LATIN SMALL LETTER A WITH TILDE */ + case 0xa4: new_str[i] = 0x91; break; /* LATIN SMALL LETTER A WITH DIAERESIS */ + case 0xa5: new_str[i] = 0xf1; break; /* LATIN SMALL LETTER A WITH RING ABOVE */ + case 0xa6: new_str[i] = 0xf2; break; /* LATIN SMALL LETTER AE */ + case 0xa7: new_str[i] = 0x9b; break; /* LATIN SMALL LETTER C WITH CEDILLA */ + case 0xa8: new_str[i] = 0x83; break; /* LATIN SMALL LETTER E WITH GRAVE */ + case 0xa9: new_str[i] = 0x82; break; /* LATIN SMALL LETTER E WITH ACUTE */ + case 0xaa: new_str[i] = 0x92; break; /* LATIN SMALL LETTER E WITH CIRCUMFLEX */ + case 0xab: new_str[i] = 0x93; break; /* LATIN SMALL LETTER E WITH DIAERESIS */ + case 0xac: new_str[i] = 0x85; break; /* LATIN SMALL LETTER I WITH GRAVE */ + case 0xad: new_str[i] = 0x84; break; /* LATIN SMALL LETTER I WITH ACUTE */ + case 0xae: new_str[i] = 0x94; break; /* LATIN SMALL LETTER I WITH CIRCUMFLEX */ + case 0xaf: new_str[i] = 0x95; break; /* LATIN SMALL LETTER I WITH DIAERESIS */ + case 0xb0: new_str[i] = 0xef; break; /* LATIN SMALL LETTER ETH */ + case 0xb1: new_str[i] = 0x9a; break; /* LATIN SMALL LETTER N WITH TILDE */ + case 0xb2: new_str[i] = 0x87; break; /* LATIN SMALL LETTER O WITH GRAVE */ + case 0xb3: new_str[i] = 0x86; break; /* LATIN SMALL LETTER O WITH ACUTE */ + case 0xb4: new_str[i] = 0x96; break; /* LATIN SMALL LETTER O WITH CIRCUMFLEX */ + case 0xb5: new_str[i] = 0xf6; break; /* LATIN SMALL LETTER O WITH TILDE */ + case 0xb6: new_str[i] = 0x97; break; /* LATIN SMALL LETTER O WITH DIAERESIS */ + case 0xb7: new_str[i] = 0xba; break; /* DIVISION SIGN */ + case 0xb8: new_str[i] = 0xf7; break; /* LATIN SMALL LETTER O WITH STROKE */ + case 0xb9: new_str[i] = 0x89; break; /* LATIN SMALL LETTER U WITH GRAVE */ + case 0xba: new_str[i] = 0x88; break; /* LATIN SMALL LETTER U WITH ACUTE */ + case 0xbb: new_str[i] = 0x98; break; /* LATIN SMALL LETTER U WITH CIRCUMFLEX */ + case 0xbc: new_str[i] = 0x99; break; /* LATIN SMALL LETTER U WITH DIAERESIS */ + case 0xbd: new_str[i] = 0xf5; break; /* LATIN SMALL LETTER Y WITH ACUTE */ + case 0xbe: new_str[i] = 0xf8; break; /* LATIN SMALL LETTER THORN */ + default: new_str[i] = ' '; break; + } + break; + + case 0xc4: + str++; + switch (*str) { + case 0x87: new_str[i] = 0xfb; break; /* LATIN SMALL LETTER C WITH ACUTE */ + case 0x8c: new_str[i] = 0xcb; break; /* LATIN CAPITAL LETTER C WITH CARON */ + case 0x8d: new_str[i] = 0xdb; break; /* LATIN SMALL LETTER C WITH CARON */ + case 0x91: new_str[i] = 0xde; break; /* LATIN SMALL LETTER D WITH STROKE */ + case 0x9b: new_str[i] = 0xa5; break; /* LATIN SMALL LETTER E WITH CARON */ + case 0xb0: new_str[i] = 0xb5; break; /* LATIN CAPITAL LETTER I WITH DOT ABOVE */ + case 0xb1: new_str[i] = 0x9f; break; /* LATIN SMALL LETTER DOTLESS I */ + case 0xb2: new_str[i] = 0x8f; break; /* LATIN CAPITAL LIGATURE IJ */ + case 0xb3: new_str[i] = 0x9f; break; /* LATIN SMALL LIGATURE IJ */ + case 0xbf: new_str[i] = 0xcf; break; /* LATIN CAPITAL LETTER L WITH MIDDLE DOT */ + default: new_str[i] = ' '; break; + } + break; + + case 0xc5: + str++; + switch (*str) { + case 0x80: new_str[i] = 0xdf; break; /* LATIN SMALL LETTER L WITH MIDDLE DOT */ + case 0x84: new_str[i] = 0xb6; break; /* LATIN SMALL LETTER N WITH ACUTE */ + case 0x88: new_str[i] = 0xa6; break; /* LATIN SMALL LETTER N WITH CARON */ + case 0x8a: new_str[i] = 0xe9; break; /* LATIN CAPITAL LETTER ENG */ + case 0x8b: new_str[i] = 0xf9; break; /* LATIN SMALL LETTER ENG */ + case 0x91: new_str[i] = 0xa7; break; /* LATIN SMALL LETTER O WITH DOUBLE ACUTE */ + case 0x92: new_str[i] = 0xe3; break; /* LATIN CAPITAL LIGATURE OE */ + case 0x93: new_str[i] = 0xf3; break; /* LATIN SMALL LIGATURE OE */ + case 0x94: new_str[i] = 0xea; break; /* LATIN CAPITAL LETTER R WITH ACUTE */ + case 0x95: new_str[i] = 0xfa; break; /* LATIN SMALL LETTER R WITH ACUTE */ + case 0x98: new_str[i] = 0xca; break; /* LATIN CAPITAL LETTER R WITH CARON */ + case 0x99: new_str[i] = 0xda; break; /* LATIN SMALL LETTER R WITH CARON */ + case 0x9a: new_str[i] = 0xec; break; /* LATIN CAPITAL LETTER S WITH ACUTE */ + case 0x9b: new_str[i] = 0xfc; break; /* LATIN SMALL LETTER S WITH ACUTE */ + case 0x9e: new_str[i] = 0x8c; break; /* LATIN CAPITAL LETTER S WITH CEDILLA */ + case 0x9f: new_str[i] = 0x9c; break; /* LATIN SMALL LETTER S WITH CEDILLA */ + case 0xa0: new_str[i] = 0xcc; break; /* LATIN CAPITAL LETTER S WITH CARON */ + case 0xa1: new_str[i] = 0xdc; break; /* LATIN SMALL LETTER S WITH CARON */ + case 0xa6: new_str[i] = 0xee; break; /* LATIN CAPITAL LETTER T WITH STROKE */ + case 0xa7: new_str[i] = 0xfe; break; /* LATIN SMALL LETTER T WITH STROKE */ + case 0xb1: new_str[i] = 0xb7; break; /* LATIN SMALL LETTER U WITH DOUBLE ACUTE */ + case 0xb5: new_str[i] = 0xf4; break; /* LATIN SMALL LETTER W WITH CIRCUMFLEX */ + case 0xb7: new_str[i] = 0xe4; break; /* LATIN SMALL LETTER Y WITH CIRCUMFLEX */ + case 0xb9: new_str[i] = 0xed; break; /* LATIN CAPITAL LETTER Z WITH ACUTE */ + case 0xba: new_str[i] = 0xfd; break; /* LATIN SMALL LETTER Z WITH ACUTE */ + case 0xbd: new_str[i] = 0xcd; break; /* LATIN CAPITAL LETTER Z WITH CARON */ + case 0xbe: new_str[i] = 0xdd; break; /* LATIN SMALL LETTER Z WITH CARON */ + default: new_str[i] = ' '; break; + } + break; + + case 0xc7: + str++; + switch (*str) { + case 0xa6: new_str[i] = 0xa4; break; /* LATIN CAPITAL LETTER G WITH CARON */ + case 0xa7: new_str[i] = 0x9d; break; /* LATIN SMALL LETTER G WITH CARON */ + default: new_str[i] = ' '; break; + } + break; + + case 0xce: + str++; + switch (*str) { + case 0xb1: new_str[i] = 0xa1; break; /* GREEK SMALL LETTER ALPHA */ + case 0xb2: new_str[i] = 0x8d; break; /* GREEK SMALL LETTER BETA */ + default: new_str[i] = ' '; break; + } + break; + + case 0xcf: + str++; + switch (*str) { + case 0x80: new_str[i] = 0xa8; break; /* GREEK SMALL LETTER PI */ + default: new_str[i] = ' '; break; + } + break; + + default: /* 0-127 or unknown */ + switch (*str) { + case '$': new_str[i] = 0xab; break; /* DOLLAR SIGN */ + default: new_str[i] = *str; break; + } + break; + } + + i++; + str++; + } + + new_str[i] = 0; + return new_str; +} \ No newline at end of file diff --git a/src/lib.h b/src/lib.h new file mode 100644 index 0000000..dcc882e --- /dev/null +++ b/src/lib.h @@ -0,0 +1,34 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2021 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +extern void msleep(unsigned long ms); + +extern size_t _strnlen(const char *s, size_t maxlen); +extern int ustrcmp(const unsigned char *s1, const unsigned char *s2); + +extern uint8_t get_rtp_tag_id(char *rtp_tag_name); +extern char *get_rtp_tag_name(uint8_t rtp_tag); +#ifdef RDS2 +extern void add_checkwords(uint16_t *blocks, uint8_t *bits, bool rds2); +#else +extern void add_checkwords(uint16_t *blocks, uint8_t *bits); +#endif +extern uint8_t add_rds_af(struct rds_af_t *af_list, float freq); +extern char *show_af_list(struct rds_af_t af_list); +extern uint16_t crc16(uint8_t *data, size_t len); +extern unsigned char *xlat(unsigned char *str); \ No newline at end of file diff --git a/src/make-station-logo.sh b/src/make-station-logo.sh new file mode 100755 index 0000000..e808a39 --- /dev/null +++ b/src/make-station-logo.sh @@ -0,0 +1,15 @@ +#!/bin/bash + +# Create station logo data to build into the mpxgen executable for RDS2 + +if [ -z "$1" ]; then + echo "Usage: $0 " + exit +fi + +if [ -f "$1" ]; then + echo 'static const unsigned char station_logo[] = {' > rds2_image_data.c + xxd -i < "$1" >> rds2_image_data.c + echo '};' >> rds2_image_data.c + echo 'static const unsigned int station_logo_len = sizeof(station_logo);' >> rds2_image_data.c +fi diff --git a/src/minirds.c b/src/minirds.c new file mode 100644 index 0000000..a58512c --- /dev/null +++ b/src/minirds.c @@ -0,0 +1,354 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "common.h" +#include +#include +#include +#include + +#include "rds.h" +#include "fm_mpx.h" +#include "control_pipe.h" +#include "resampler.h" +#include "lib.h" +#include "ascii_cmd.h" + +static uint8_t stop_rds; + +static void stop() { + printf("Received an stopping signal\n"); + stop_rds = 1; +} + +static inline void float2char2channel( + float *inbuf, char *outbuf, size_t frames) { + uint16_t j = 0, k = 0; + + for (uint16_t i = 0; i < frames; i++) { + int16_t sample = lroundf(inbuf[j++] * 16383.5f); + + // Direct memory write is more efficient for byte conversion + outbuf[k++] = sample & 0xFF; + outbuf[k++] = (sample >> 8) & 0xFF; + } +} + +/* threads */ +static void *control_pipe_worker() { + while (!stop_rds) { + poll_control_pipe(); + msleep(READ_TIMEOUT_MS); + } + + close_control_pipe(); + pthread_exit(NULL); +} + +static void show_help(char *name) { + printf( + "This is MiniRDS, a lightweight RDS encoder.\n" + "Version %f\n" + "\n" + "Usage: %s [options]\n" + "\n" + " -i,--pi Program Identification code\n" + " [default: 3073]\n" + " -s,--ps Program Service name\n" + " [default: \"radio95\"]\n" + " -r,--rt1 Radio Text 1\n" + " [default: (nothing)]\n" + " -p,--pty Program Type\n" + " [default: 0]\n" + " -T,--tp Traffic Program\n" + " [default: 0]\n" + " -A,--af Alternative Frequency (FM/LF/MF)\n" + " (more than one AF may be passed)\n" + " -P,--ptyn Program Type Name\n" + " -l,--lps Long PS\n" + " -e,--ecc ECC code\n" + " -d,--di DI code\n" + " -C,--ctl FIFO control pipe\n" + #ifdef RDS2 + " -I,--img RDS2 Logo path\n" + #endif + " -h,--help Show this help text and exit\n" + " -v,--version Show version and exit\n" + "\n", + VERSION, + name + ); +} + +static void show_version() { + printf("MiniRDS version (radio95 Edit) %f\n", VERSION); +} + +int main(int argc, char **argv) { + int opt; + char control_pipe[51]; + struct rds_params_t rds_params = { + .ps = "radio95", + .rt1 = "", + .pi = 0x305F, + .ecc = 0xE2, + .lps = "radio95 - Radio Nowotomyskie" + }; + float volume = 100.0f; + + /* buffers */ + float *mpx_buffer; + float *out_buffer; + char *dev_out; + + int8_t r; + size_t frames; + + /* SRC */ + SRC_STATE *src_state; + SRC_DATA src_data; + + /* PASIMPLE */ + pa_simple *device; + pa_sample_spec format; + + /* pthread */ + pthread_attr_t attr; + pthread_t control_pipe_thread; + pthread_mutex_t control_pipe_mutex = PTHREAD_MUTEX_INITIALIZER; + pthread_cond_t control_pipe_cond; + + const char *short_opt = "R:i:s:r:p:T:A:P:l:e:L:d:C:" + #ifdef RDS2 + "I:" + #endif + "hv"; + + struct option long_opt[] = + { + {"rds", required_argument, NULL, 'R'}, + {"pi", required_argument, NULL, 'i'}, + {"ps", required_argument, NULL, 's'}, + {"rt1", required_argument, NULL, 'r'}, + {"pty", required_argument, NULL, 'p'}, + {"tp", required_argument, NULL, 'T'}, + {"af", required_argument, NULL, 'A'}, + {"ptyn", required_argument, NULL, 'P'}, + {"lps", required_argument, NULL, 'l'}, + {"ecc", required_argument, NULL, 'e'}, + {"lic", required_argument, NULL, 'L'}, + {"di", required_argument, NULL, 'd'}, + {"ctl", required_argument, NULL, 'C'}, + #ifdef RDS2 + {"img", required_argument, NULL, 'I'}, + #endif + + {"help", no_argument, NULL, 'h'}, + {"version", no_argument, NULL, 'v'}, + { 0, 0, 0, 0 } + }; + + memset(control_pipe, 0, 51); + +keep_parsing_opts: + + opt = getopt_long(argc, argv, short_opt, long_opt, NULL); + if (opt == -1) goto done_parsing_opts; + + switch (opt) { + case 'i': /* pi */ + rds_params.pi = strtoul(optarg, NULL, 16); + break; + + case 's': /* ps */ + memcpy(rds_params.ps, xlat((unsigned char *)optarg), PS_LENGTH); + break; + + case 'r': /* rt1 */ + memcpy(rds_params.rt1, xlat((unsigned char *)optarg), RT_LENGTH); + break; + + case 'p': /* pty */ + rds_params.pty = strtoul(optarg, NULL, 10); + break; + + case 'T': /* tp */ + rds_params.tp = strtoul(optarg, NULL, 10); + break; + + case 'A': /* af */ + if (add_rds_af(&rds_params.af, strtof(optarg, NULL)) == 1) return 1; + break; + + case 'P': /* ptyn */ + memcpy(rds_params.ptyn, xlat((unsigned char *)optarg), PTYN_LENGTH); + break; + + case 'l': /* lps */ + memcpy(rds_params.lps, (unsigned char *)optarg, LPS_LENGTH); + break; + + case 'e': /* ecc */ + rds_params.ecc = strtoul(optarg, NULL, 16); + break; + + case 'L': /* lic */ + rds_params.lic = strtoul(optarg, NULL, 16); + break; + + case 'C': /* ctl */ + memcpy(control_pipe, optarg, 50); + break; + + #ifdef RDS2 + case 'I': /* img */ + memcpy(rds_params.rds2_image_path, optarg, 50); + break; + #endif + + case 'v': /* version */ + show_version(); + return 0; + + case 'h': /* help */ + case '?': + default: + show_help(argv[0]); + return 1; + } + + goto keep_parsing_opts; + +done_parsing_opts: + + /* Initialize pthread stuff */ + pthread_mutex_init(&control_pipe_mutex, NULL); + pthread_cond_init(&control_pipe_cond, NULL); + pthread_attr_init(&attr); + + /* Setup buffers */ + mpx_buffer = malloc(NUM_MPX_FRAMES_IN * 2 * sizeof(float)); + out_buffer = malloc(NUM_MPX_FRAMES_OUT * 2 * sizeof(float)); + dev_out = malloc(NUM_MPX_FRAMES_OUT * 2 * sizeof(int16_t) * sizeof(char)); + + /* Gracefully stop the encoder on SIGINT or SIGTERM */ + signal(SIGINT, stop); + signal(SIGTERM, stop); + + /* Initialize the baseband generator */ + fm_mpx_init(MPX_SAMPLE_RATE); + set_output_volume(volume); + + /* Initialize the RDS modulator */ + init_rds_encoder(rds_params); + + /* PASIMPLE format */ + format.format = PA_SAMPLE_S16LE; + format.channels = 1; + format.rate = OUTPUT_SAMPLE_RATE; + + device = pa_simple_new( + NULL, // Default PulseAudio server + "MiniRDS", // Application name + PA_STREAM_PLAYBACK, // Direction (playback) + "RDS", // Default device + "RDS Generator", // Stream description + &format, // Sample format + NULL, // Default channel map + NULL, // Default buffering attributes + NULL // Error variable + ); + if (device == NULL) { + fprintf(stderr, "Error: cannot open sound device.\n"); + goto exit; + } + + /* SRC out (MPX -> output) */ + memset(&src_data, 0, sizeof(SRC_DATA)); + src_data.input_frames = NUM_MPX_FRAMES_IN; + src_data.output_frames = NUM_MPX_FRAMES_OUT; + src_data.src_ratio = + (double)OUTPUT_SAMPLE_RATE / (double)MPX_SAMPLE_RATE; + src_data.data_in = mpx_buffer; + src_data.data_out = out_buffer; + + r = resampler_init(&src_state, 1); + if (r < 0) { + fprintf(stderr, "Could not create output resampler.\n"); + goto exit; + } + + /* Initialize the control pipe reader */ + if (control_pipe[0]) { + if (open_control_pipe(control_pipe) == 0) { + fprintf(stderr, "Reading control commands on %s.\n", control_pipe); + /* Create control pipe polling worker */ + r = pthread_create(&control_pipe_thread, &attr, control_pipe_worker, NULL); + if (r < 0) { + fprintf(stderr, "Could not create control pipe thread.\n"); + control_pipe[0] = 0; + goto exit; + } else { + fprintf(stderr, "Created control pipe thread.\n"); + } + } else { + fprintf(stderr, "Failed to open control pipe: %s.\n", control_pipe); + control_pipe[0] = 0; + } + } + + for (;;) { + fm_rds_get_frames(mpx_buffer, NUM_MPX_FRAMES_IN); + + if (resample(src_state, src_data, &frames) < 0) break; + + float2char2channel(out_buffer, dev_out, frames); + + /* num_bytes = audio frames( * channels) * bytes per sample */ + if (pa_simple_write(device, dev_out, frames * sizeof(int16_t), NULL) != 0) { + fprintf(stderr, "Error: could not play audio.\n"); + break; + } + + if (stop_rds) { + fprintf(stderr, "Stopping the loop...\n"); + break; + } + } + + resampler_exit(src_state); + +exit: + if (control_pipe[0]) { + /* shut down threads */ + fprintf(stderr, "Waiting for pipe thread to shut down.\n"); + pthread_cond_signal(&control_pipe_cond); + pthread_join(control_pipe_thread, NULL); + } + + pthread_attr_destroy(&attr); + pa_simple_free(device); + fm_mpx_exit(); + exit_rds_encoder(); + + free(mpx_buffer); + free(out_buffer); + free(dev_out); + + return 0; +} diff --git a/src/modulator.c b/src/modulator.c new file mode 100644 index 0000000..e34d3ad --- /dev/null +++ b/src/modulator.c @@ -0,0 +1,202 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2021 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "common.h" +#include "rds.h" +#ifdef RDS2 +#include "rds2.h" +#endif +#include "fm_mpx.h" +#include "waveforms.h" +#include "modulator.h" + +static struct rds_t **rds_ctx; +static float **waveform; + +/* + * Create the RDS objects + * + */ +void init_rds_objects() { + rds_ctx = malloc(NUM_STREAMS * sizeof(struct rds_t)); + + for (uint8_t i = 0; i < NUM_STREAMS; i++) { + rds_ctx[i] = malloc(sizeof(struct rds_t)); + rds_ctx[i]->bit_buffer = malloc(BITS_PER_GROUP); + rds_ctx[i]->sample_buffer = + malloc(SAMPLE_BUFFER_SIZE * sizeof(float)); + +#ifdef RDS2_SYMBOL_SHIFTING + /* + * symbol shifting to reduce total power of aggregate carriers + * + * see: + * https://ietresearch.onlinelibrary.wiley.com/doi/pdf/10.1049/el.2019.0292 + * for more information + */ + switch (i) { + case 1: + /* time offset of 1/2 */ + rds_ctx[i]->symbol_shift = SAMPLES_PER_BIT / 2; + rds_ctx[i]->symbol_shift_buf = malloc( + rds_ctx[i]->symbol_shift * sizeof(float)); + memset(rds_ctx[i]->symbol_shift_buf, 0, + rds_ctx[i]->symbol_shift * sizeof(float)); + break; + case 2: + /* time offset of 1/4 */ + rds_ctx[i]->symbol_shift = SAMPLES_PER_BIT / 4; + rds_ctx[i]->symbol_shift_buf = malloc( + rds_ctx[i]->symbol_shift * sizeof(float)); + memset(rds_ctx[i]->symbol_shift_buf, 0, + rds_ctx[i]->symbol_shift * sizeof(float)); + break; + case 3: + /* time offset of 3/4 */ + rds_ctx[i]->symbol_shift = (SAMPLES_PER_BIT / 4) * 3; + rds_ctx[i]->symbol_shift_buf = malloc( + rds_ctx[i]->symbol_shift * sizeof(float)); + memset(rds_ctx[i]->symbol_shift_buf, 0, + rds_ctx[i]->symbol_shift * sizeof(float)); + break; + default: /* stream 0 */ + /* no time offset */ + rds_ctx[i]->symbol_shift = 0; + break; + } +#endif + rds_ctx[i]->symbol_shift_buf_idx = 0; + + } + + waveform = malloc(2 * sizeof(float)); + + for (uint8_t i = 0; i < 2; i++) { + waveform[i] = malloc(FILTER_SIZE * sizeof(float)); + for (uint16_t j = 0; j < FILTER_SIZE; j++) { + waveform[i][j] = i ? + +waveform_biphase[j] : -waveform_biphase[j]; + } + } +} + +void exit_rds_objects() { + for (uint8_t i = 0; i < NUM_STREAMS; i++) { + int has_symbol_shift = rds_ctx[i]->symbol_shift; + if (has_symbol_shift) { + free(rds_ctx[i]->symbol_shift_buf); + } + free(rds_ctx[i]->sample_buffer); + free(rds_ctx[i]->bit_buffer); + free(rds_ctx[i]); + } + free(rds_ctx); + + for (uint8_t i = 0; i < 2; i++) { + free(waveform[i]); + } + + free(waveform); +} + +/* Get an RDS sample. This generates the envelope of the waveform using + * pre-generated elementary waveform samples. + */ +#ifdef RDS2 +float get_rds_sample(uint8_t stream_num, uint8_t rds2tunneling) { +#else +float get_rds_sample(uint8_t stream_num) { +#endif + struct rds_t *rds; + uint16_t idx; + float *cur_waveform; + float sample; + + /* select context */ + rds = rds_ctx[stream_num]; + + if (rds->sample_count == SAMPLES_PER_BIT) { + if (rds->bit_pos == BITS_PER_GROUP) { +#ifdef RDS2 + if(!rds2tunneling) { + if (stream_num > 0) { + get_rds2_bits(stream_num, rds->bit_buffer); + } else { + get_rds_bits(rds->bit_buffer); + } + } else { + get_rds_bits(rds->bit_buffer); + } +#else + get_rds_bits(rds->bit_buffer); +#endif + rds->bit_pos = 0; + } + + /* do differential encoding */ + rds->cur_bit = rds->bit_buffer[rds->bit_pos++]; + rds->prev_output = rds->cur_output; + rds->cur_output = rds->prev_output ^ rds->cur_bit; + + idx = rds->in_sample_index; + cur_waveform = waveform[rds->cur_output]; + + uint16_t buffer_remaining = SAMPLE_BUFFER_SIZE - idx; + if (buffer_remaining >= FILTER_SIZE) { + // Process continuous chunk + for (uint16_t i = 0; i < FILTER_SIZE; i++) { + rds->sample_buffer[idx + i] += cur_waveform[i]; + } + idx += FILTER_SIZE; + } else { + // Process in two parts to handle wrapping + for (uint16_t i = 0; i < buffer_remaining; i++) { + rds->sample_buffer[idx + i] += cur_waveform[i]; + } + for (uint16_t i = 0; i < FILTER_SIZE - buffer_remaining; i++) { + rds->sample_buffer[i] += cur_waveform[buffer_remaining + i]; + } + idx = FILTER_SIZE - buffer_remaining; + } + rds->in_sample_index += SAMPLES_PER_BIT; + if (rds->in_sample_index == SAMPLE_BUFFER_SIZE) + rds->in_sample_index = 0; + + rds->sample_count = 0; + } + rds->sample_count++; + + if (rds->symbol_shift) { + rds->symbol_shift_buf[rds->symbol_shift_buf_idx++] = + rds->sample_buffer[rds->out_sample_index]; + + if (rds->symbol_shift_buf_idx == rds->symbol_shift) + rds->symbol_shift_buf_idx = 0; + + sample = rds->symbol_shift_buf[rds->symbol_shift_buf_idx]; + + goto done; + } + + sample = rds->sample_buffer[rds->out_sample_index]; +done: + rds->sample_buffer[rds->out_sample_index++] = 0; + if (rds->out_sample_index == SAMPLE_BUFFER_SIZE) + rds->out_sample_index = 0; + return sample; +} diff --git a/src/modulator.h b/src/modulator.h new file mode 100644 index 0000000..0ed8816 --- /dev/null +++ b/src/modulator.h @@ -0,0 +1,43 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2021 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifdef RDS2 +#define NUM_STREAMS 4 +#else +#define NUM_STREAMS 1 +#endif + +/* RDS signal context */ +typedef struct rds_t { + uint8_t *bit_buffer; /* BITS_PER_GROUP */ + uint8_t bit_pos; + float *sample_buffer; /* SAMPLE_BUFFER_SIZE */ + uint8_t prev_output; + uint8_t cur_output; + uint8_t cur_bit; + uint8_t sample_count; + uint16_t in_sample_index; + uint16_t out_sample_index; + uint8_t symbol_shift; + float *symbol_shift_buf; + uint8_t symbol_shift_buf_idx; +} rds_t; + +extern void init_rds_objects(); +extern void exit_rds_objects(); + diff --git a/src/osc.c b/src/osc.c new file mode 100644 index 0000000..647fd4a --- /dev/null +++ b/src/osc.c @@ -0,0 +1,108 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "common.h" +#include "osc.h" + +/* + * Code for MPX oscillator + * + * This uses lookup tables to speed up the waveform generation + * + */ + +/* + * DDS function generator + * + * Create wave constants for a given frequency + */ +static void create_wave(uint32_t rate, float freq, + float *sin_wave, float *cos_wave, uint16_t *max_phase) { + double sin_sample, cos_sample; + /* used to determine if we have completed a cycle */ + uint16_t periods = round((double)rate/freq); + const double w = M_2PI * freq / rate; + + /* First value of a sine wave is always 0 */ + *sin_wave++ = 0.0f; + *cos_wave++ = 1.0f; + + for(uint16_t i = 1; i < periods; i++) { + sin_sample = sin(w * i); + cos_sample = cos(w * i); + *sin_wave++ = (float)sin_sample; + *cos_wave++ = (float)cos_sample; + } + + *max_phase = periods; +} + +/* + * Oscillator object initialization + * + */ +void osc_init(struct osc_t *osc, uint32_t sample_rate, float freq) { + + /* sample rate for the objects */ + osc->sample_rate = sample_rate; + + /* waveform tables */ + osc->sin_wave = malloc(osc->sample_rate * sizeof(float)); + osc->cos_wave = malloc(osc->sample_rate * sizeof(float)); + + /* set current position to 0 */ + osc->cur = 0; + + /* create waveform data and load into lookup tables */ + create_wave(osc->sample_rate, freq, + osc->sin_wave, osc->cos_wave, + &osc->max); +} + +/* + * Get a single waveform sample + * + * Cosine is needed for SSB generation + * + */ +float osc_get_cos(struct osc_t *osc) { + return osc->cos_wave[osc->cur]; +} + +float osc_get_sin(struct osc_t *osc) { + return osc->sin_wave[osc->cur]; +} + +/* + * Shift the oscillator to the next position + * + */ +void osc_update_pos(struct osc_t *osc) { + if (++osc->cur == osc->max) osc->cur = 0; +} + +/* + * Unload waveform tables + * + */ +void osc_exit(struct osc_t *osc) { + free(osc->sin_wave); + free(osc->cos_wave); + osc->cur = 0; + osc->max = 0; +} diff --git a/src/osc.h b/src/osc.h new file mode 100644 index 0000000..f68565c --- /dev/null +++ b/src/osc.h @@ -0,0 +1,50 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* context for MPX oscillator */ +typedef struct osc_t { + /* the sample rate at which the oscillator operates */ + uint32_t sample_rate; + + /* + * frequency for this instance + * + */ + float freq; + + /* + * Arrays of carrier wave constants + * + */ + float *sin_wave_out_of_phase; + float *sin_wave; + float *cos_wave; + + /* + * Wave phase + * + */ + uint16_t cur; + uint16_t max; +} osc_t; + +extern void osc_init(struct osc_t *osc, uint32_t sample_rate, const float freq); +extern float osc_get_sin(struct osc_t *osc); +extern float osc_get_cos(struct osc_t *osc); +extern void osc_update_pos(struct osc_t *osc); +extern void osc_exit(struct osc_t *osc); diff --git a/src/rds.c b/src/rds.c new file mode 100644 index 0000000..94c8f6d --- /dev/null +++ b/src/rds.c @@ -0,0 +1,778 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "common.h" +#include "rds.h" +#include "modulator.h" +#ifdef RDS2 +#include "rds2.h" +#endif +#include "lib.h" +#include + +static struct rds_params_t rds_data; + +/* RDS data controls */ +static struct { + /* Slow Labeling Codes */ + uint8_t ecclic_enabled; + uint8_t ecc_or_lic; + /* Program Item Number */ + uint8_t pin_enabled; + + /* Program Service */ + uint8_t ps_update; + uint8_t tps_update; + + /* Radio Text*/ + uint8_t rt1_enabled; + uint8_t rt_update; + uint8_t rt_ab; + uint8_t rt_segments; + + /* PTYN */ + uint8_t ptyn_enabled; + uint8_t ptyn_update; + uint8_t ptyn_ab; + + /* Long PS */ + uint8_t lps_on; + uint8_t lps_update; + uint8_t lps_segments; + + uint8_t custom_group_in; + uint16_t custom_group[GROUP_LENGTH]; + + /* TODO: add UDG */ +} rds_state; + +#ifdef ODA +/* ODA */ +static struct rds_oda_t odas[MAX_ODAS]; +static struct { + uint8_t current; + uint8_t count; +} oda_state; +#endif + +#ifdef ODA_RTP +/* RT+ */ +static struct { + uint8_t group; + uint8_t enabled; + uint8_t running; + uint8_t toggle; + uint8_t type[2]; + uint8_t start[2]; + uint8_t len[2]; +} rtplus_cfg; +#endif + +#ifdef ODA +static void register_oda(uint8_t group, uint16_t aid, uint16_t scb) { + + if (oda_state.count >= MAX_ODAS) return; /* can't accept more ODAs */ + + odas[oda_state.count].group = group; + odas[oda_state.count].aid = aid; + odas[oda_state.count].scb = scb; + oda_state.count++; +} +#endif + +/* Get the next AF entry + */ +static uint16_t get_next_af() { + static uint8_t af_state; + uint16_t out; + + if (rds_data.af.num_afs) { + if (af_state == 0) { + out = (AF_CODE_NUM_AFS_BASE + rds_data.af.num_afs) << 8; + out |= rds_data.af.afs[0]; + af_state += 1; + } else { + out = rds_data.af.afs[af_state] << 8; + if (rds_data.af.afs[af_state + 1]) + out |= rds_data.af.afs[af_state + 1]; + else + out |= AF_CODE_FILLER; + af_state += 2; + } + if (af_state >= rds_data.af.num_entries) af_state = 0; + } else { + out = AF_CODE_NO_AF << 8 | AF_CODE_FILLER; + } + + return out; +} + +/* PS group (0A) */ +static void get_rds_ps_group(uint16_t *blocks) { + static unsigned char ps_text[PS_LENGTH]; + static unsigned char tps_text[PS_LENGTH]; + static uint8_t ps_csegment; + + if (ps_csegment == 0 && rds_state.ps_update) { + memcpy(ps_text, rds_data.ps, PS_LENGTH); + rds_state.ps_update = 0; /* rewind */ + } + if(ps_csegment == 0 && rds_state.tps_update) { + memcpy(tps_text, rds_data.tps, PS_LENGTH); + rds_state.tps_update = 0; /* rewind */ + } + + /* TA */ + blocks[1] |= rds_data.ta << 4; + + /* MS */ + blocks[1] |= rds_data.ms << 3; + + /* DI */ + blocks[1] |= ((rds_data.di >> (3 - ps_csegment)) & INT8_0) << 2; /* DI is a 4 bit number, we also have 4 segments, so we send a bit of the di number depending on the segment, so 0b0101 would be like: 0 1 0 1*/ + + /* PS segment address */ + blocks[1] |= ps_csegment; + + /* AF */ + blocks[2] = get_next_af(); + + /* PS */ + if(rds_data.ta && rds_data.traffic_ps_on) { + blocks[3] = tps_text[ps_csegment * 2] << 8 | tps_text[ps_csegment * 2 + 1]; + } else { + /* TODO: Add DPS */ + blocks[3] = ps_text[ps_csegment * 2] << 8 | ps_text[ps_csegment * 2 + 1]; + } + + ps_csegment++; + if (ps_csegment >= 4) ps_csegment = 0; +} + +/* RT group (2A) */ +static uint8_t get_rds_rt_group(uint16_t *blocks) { + static unsigned char rt_text[RT_LENGTH]; + static uint8_t rt_state; + + if (rds_state.rt_update) { + memcpy(rt_text, rds_data.rt1, RT_LENGTH); + rds_state.rt_ab ^= 1; + rds_state.rt_update = 0; + rt_state = 0; /* rewind when new RT arrives */ + } + + if(rt_text[0] == '\r' || !rds_state.rt1_enabled) { + /* RT strings lesser than 64 in size should have been ended with a \r if a return is on [0] then that means that our string is empty and thus we can not generate this group*/ + return 0; + } + + blocks[1] |= 2 << 12; + blocks[1] |= rds_state.rt_ab << 4; + blocks[1] |= rt_state; + blocks[2] = rt_text[rt_state * 4 ] << 8; + blocks[2] |= rt_text[rt_state * 4 + 1]; + blocks[3] = rt_text[rt_state * 4 + 2] << 8; + blocks[3] |= rt_text[rt_state * 4 + 3]; + + rt_state++; + if (rt_state >= rds_state.rt_segments) rt_state = 0; + return 1; +} + +/* ODA group (3A) + */ +#ifdef ODA +static void get_rds_oda_group(uint16_t *blocks) { + /* select ODA */ + struct rds_oda_t this_oda = odas[oda_state.current]; + + #ifdef ODA_RTP + if(this_oda.aid == ODA_AID_RTPLUS && rtplus_cfg.enabled == 0) { + return; + } + #endif + + blocks[1] |= 3 << 12; + + blocks[1] |= GET_GROUP_TYPE(this_oda.group) << 1; + blocks[1] |= GET_GROUP_VER(this_oda.group); + blocks[2] = this_oda.scb; + blocks[3] = this_oda.aid; + + oda_state.current++; + if (oda_state.current >= oda_state.count) oda_state.current = 0; +} +#endif + +static uint8_t get_rds_ct_group(uint16_t *blocks) { + static uint8_t latest_minutes; + struct tm *utc, *local_time; + time_t now; + uint8_t l; + uint32_t mjd; + int16_t offset; + + /* Check time */ + now = time(NULL); + utc = gmtime(&now); + + if (utc->tm_min != latest_minutes) { + /* Generate CT group */ + latest_minutes = utc->tm_min; + + l = utc->tm_mon <= 1 ? 1 : 0; + mjd = 14956 + utc->tm_mday + + (uint32_t)((utc->tm_year - l) * 365.25f) + + (uint32_t)((utc->tm_mon + (1+1) + l * 12) * 30.6001f); + + blocks[1] |= 4 << 12 | (mjd >> 15); + blocks[2] = (mjd << 1) | (utc->tm_hour >> 4); + blocks[3] = (utc->tm_hour & INT16_L4) << 12 | utc->tm_min << 6; + + /* get local time (for the offset) */ + local_time = localtime(&now); + + /* tm_gmtoff doesn't exist in POSIX but __tm_gmtoff does */ + offset = local_time->__tm_gmtoff / (30 * 60); /*__tm_gmtoff is time in seconds from utc, so utc + __tm_gmtoff = local time*/ + if (offset < 0) blocks[3] |= 1 << 5; /* if less than 0 then set the flag*/ + blocks[3] |= abs(offset); /* offset should be halfs of a hour, so offset 1 = 30 minutes, 2 = 1 hour*/ + + return 1; + } + + return 0; +} + +/* PTYN group (10A) */ +static void get_rds_ptyn_group(uint16_t *blocks) { + static unsigned char ptyn_text[PTYN_LENGTH]; + static uint8_t ptyn_state; + + if (ptyn_state == 0 && rds_state.ptyn_update) { + memcpy(ptyn_text, rds_data.ptyn, PTYN_LENGTH); + rds_state.ptyn_ab ^= 1; + rds_state.ptyn_update = 0; + } + + blocks[1] |= 10 << 12 | ptyn_state; + blocks[1] |= rds_state.ptyn_ab << 4; /* no one knew about ptyn's ab until i saw sdr++'s decoder, it had decoded ptyn but not show it? it also did decode the ab flag */ + blocks[2] = ptyn_text[ptyn_state * 4 + 0] << 8; + blocks[2] |= ptyn_text[ptyn_state * 4 + 1]; + blocks[3] = ptyn_text[ptyn_state * 4 + 2] << 8; + blocks[3] |= ptyn_text[ptyn_state * 4 + 3]; + + ptyn_state++; + if (ptyn_state == 2) ptyn_state = 0; +} + +/* Long PS group (15A) */ +static void get_rds_lps_group(uint16_t *blocks) { + static unsigned char lps_text[LPS_LENGTH]; + static uint8_t lps_state; + + if (lps_state == 0 && rds_state.lps_update) { + memcpy(lps_text, rds_data.lps, LPS_LENGTH); + rds_state.lps_update = 0; + } + + blocks[1] |= 15 << 12 | lps_state; + /* does lps have an ab? */ + blocks[2] = lps_text[lps_state * 4 ] << 8; + blocks[2] |= lps_text[lps_state * 4 + 1]; + blocks[3] = lps_text[lps_state * 4 + 2] << 8; + blocks[3] |= lps_text[lps_state * 4 + 3]; + + lps_state++; + if (lps_state == rds_state.lps_segments) lps_state = 0; +} + +static void get_rds_ecc_group(uint16_t *blocks) { + blocks[1] |= 1 << 12; + if(rds_state.ecclic_enabled) { + blocks[2] = rds_data.ecc; + } + + if(rds_state.pin_enabled) { + blocks[3] = rds_data.pin_day << 11; /* first 5 bits */ + blocks[3] |= rds_data.pin_hour << 6; /* 5-10 bits from start */ + blocks[3] |= rds_data.pin_minute; /* 10-16 bits from start */ + } +} + +static void get_rds_lic_group(uint16_t *blocks) { + blocks[1] |= 1 << 12; + if(rds_state.ecclic_enabled) { + blocks[2] = 0x3000; /* 0b0011000000000000 first 1 bit is the linkage actuator, the 3 after are variant codes which is 3 in this case after theres space for data */ + blocks[2] |= rds_data.lic; + } + + if(rds_state.pin_enabled) { + /* pin is also in lic as it also is a 1a group*/ + blocks[3] = rds_data.pin_day << 11; + blocks[3] |= rds_data.pin_hour << 6; + blocks[3] |= rds_data.pin_minute; + } +} + +/* RT+ */ +#ifdef ODA_RTP +static void init_rtplus(uint8_t group) { + register_oda(group, ODA_AID_RTPLUS, 0); + rtplus_cfg.group = group; + rtplus_cfg.enabled = 1; +} +#endif + +#ifdef ODA_RTP +/* RT+ group */ +static void get_rds_rtplus_group(uint16_t *blocks) { + /* RT+ block format */ + blocks[1] |= GET_GROUP_TYPE(rtplus_cfg.group) << 12; + blocks[1] |= GET_GROUP_VER(rtplus_cfg.group) << 11; + blocks[1] |= rtplus_cfg.toggle << 4 | rtplus_cfg.running << 3; + blocks[1] |= (rtplus_cfg.type[0] & INT8_U5) >> 3; + + blocks[2] = (rtplus_cfg.type[0] & INT8_L3) << 13; + blocks[2] |= (rtplus_cfg.start[0] & INT8_L6) << 7; + blocks[2] |= (rtplus_cfg.len[0] & INT8_L6) << 1; + blocks[2] |= (rtplus_cfg.type[1] & INT8_U3) >> 5; + + blocks[3] = (rtplus_cfg.type[1] & INT8_L5) << 11; + blocks[3] |= (rtplus_cfg.start[1] & INT8_L6) << 5; + blocks[3] |= rtplus_cfg.len[1] & INT8_L5; +} +#endif + +/* Lower priority groups are placed in a subsequence + */ +static uint8_t get_rds_other_groups(uint16_t *blocks) { + static uint8_t group_counter[GROUP_15B]; + + /* Type 1A groups */ + if (rds_data.ecc || rds_data.lic) { + if (++group_counter[GROUP_1A] >= 22) { + group_counter[GROUP_1A] = 0; + if(rds_data.ecc && rds_data.lic) { + if(rds_state.ecc_or_lic == 0) { + get_rds_ecc_group(blocks); + } else { + get_rds_lic_group(blocks); + } + rds_state.ecc_or_lic ^= 1; + } else if(rds_data.ecc) { + get_rds_ecc_group(blocks); + } else if(rds_data.ecc) { + get_rds_lic_group(blocks); + } + return 1; + } + } + + /* Type 3A groups */ + #ifdef ODA + if (oda_state.count) { + if (++group_counter[GROUP_3A] >= 25) { + group_counter[GROUP_3A] = 0; + get_rds_oda_group(blocks); + return 1; + } + } + #endif + + /* Type 10A groups */ + if (rds_state.ptyn_enabled && rds_data.ptyn[0]) { + if (++group_counter[GROUP_10A] >= 13) { + group_counter[GROUP_10A] = 0; + /* Do not generate a 10A group if PTYN is off */ + get_rds_ptyn_group(blocks); + return 1; + } + } + + /* RT+ groups */ + #ifdef ODA_RTP + if (++group_counter[rtplus_cfg.group] >= 30) { + group_counter[rtplus_cfg.group] = 0; + if(rtplus_cfg.enabled == 0) { + return 0; + } + get_rds_rtplus_group(blocks); + return 1; + } + #endif + + return 0; +} + +/* + * Codes a group once every 3 groups + * Ex: 0A, 2A, 0A, 12A, 2A, 0A, 2A, 12A, etc + */ +static uint8_t get_rds_long_text_groups(uint16_t *blocks) { + static uint8_t group_selector = 0; + static uint8_t group_slot_counter = 0; + + /* exit early until the 4th call */ + if (++group_slot_counter < 4) + return 0; + + /* reset the slot counter */ + group_slot_counter = 0; + + /* 3:1 ratio */ + switch (group_selector) { + case 0: + case 1: + case 2: + case 3: /* Long PS */ + if (rds_data.lps[0] && rds_state.lps_on) { + get_rds_lps_group(blocks); + goto group_coded; + } + break; + } + + /* if no group was coded */ + if (++group_selector >= 8) group_selector = 0; + return 0; + +group_coded: + if (++group_selector >= 8) group_selector = 0; + return 1; +} + +/* Get a custom group if there is one*/ +static uint8_t get_rds_custom_groups(uint16_t *blocks) { + if(rds_state.custom_group_in) { + rds_state.custom_group_in = 0; + blocks[0] = rds_state.custom_group[0]; + blocks[1] = rds_state.custom_group[1]; + blocks[2] = rds_state.custom_group[2]; + blocks[3] = rds_state.custom_group[3]; + return 1; + } + return 0; +} + +/* Creates an RDS group. + * This generates sequences of the form 0A, 2A, 0A, 2A, 0A, 2A, etc. + */ +static void get_rds_group(uint16_t *blocks) { + static uint8_t state; + + /* Basic block data */ + blocks[0] = rds_data.pi; + blocks[1] = rds_data.tp << 10; + blocks[1] |= rds_data.pty << 5; + blocks[2] = 0; + blocks[3] = 0; + + /* Generate block content */ + + /* CT (clock time) has priority over other group types */ + if (rds_data.ct && get_rds_ct_group(blocks)) { + goto group_coded; + } + + /* Next to top priority, if want top then just disable CT i guess */ + if(get_rds_custom_groups(blocks)) { + goto group_coded; + } + + /* Longer text groups get medium priority */ + if (get_rds_long_text_groups(blocks)) { + goto group_coded; + } + + /* Other groups */ + if (get_rds_other_groups(blocks)) { + goto group_coded; + } + + /* Standard group sequence + This group sequence is way better than the offcial one, official goes like: 0A 2A which is shitty here it is 0A 0A 0A 0A 2A 2A 2A 2A (2A) so we're in sequence and for example immiedietly get PS and quite fast get RT */ + if(state < 6) { + /* 0A */ + get_rds_ps_group(blocks); + state++; + } else if(state >= 6) { + /* 2A */ + if(!get_rds_rt_group(blocks)) { /* try to generate 2A if can't generate 2A than that means our text is empty so we generate PS instead of wasting groups on nothing*/ + get_rds_ps_group(blocks); + } + state++; + } + if (state >= 12) state = 0; + +group_coded: + /* for version B groups. good for custom groups */ + if (IS_TYPE_B(blocks)) { + blocks[2] = rds_data.pi; + } +} + +void get_rds_bits(uint8_t *bits) { + static uint16_t out_blocks[GROUP_LENGTH]; + get_rds_group(out_blocks); +#ifdef RDS2 + add_checkwords(out_blocks, bits, false); +#else + add_checkwords(out_blocks, bits); +#endif +} + +void init_rds_encoder(struct rds_params_t rds_params) { + + /* AF */ + if (rds_params.af.num_afs) { + set_rds_af(rds_params.af); + fprintf(stderr, show_af_list(rds_params.af)); + } + + set_rds_pi(rds_params.pi); + set_rds_ps(rds_params.ps); + rds_state.rt_ab = 1; + set_rds_rt1_enabled(1); + set_rds_rt1(rds_params.rt1); + set_rds_pty(rds_params.pty); + rds_state.ptyn_ab = 1; + set_rds_ptyn(rds_params.ptyn); + set_rds_lps(rds_params.lps); + set_rds_lpson(1); + set_rds_tp(rds_params.tp); + set_rds_ecc(rds_params.ecc); + set_rds_lic(rds_params.lic); + set_rds_ecclic_toggle(1); + set_rds_pin_enabled(1); + set_rds_ct(1); + set_rds_ms(1); + set_rds_di(DI_STEREO | DI_DPTY); + + /* Assign the RT+ AID to group 11A */ + #ifdef ODA_RTP + init_rtplus(GROUP_11A); + #endif + + /* initialize modulator objects */ + init_rds_objects(); +#ifdef RDS2 + init_rds2_encoder(rds_params.rds2_image_path); +#endif +} + +void exit_rds_encoder() { + exit_rds_objects(); +#ifdef RDS2 + exit_rds2_encoder(); +#endif +} + +void set_rds_pi(uint16_t pi_code) { + rds_data.pi = pi_code; +} + +void set_rds_ecc(uint8_t ecc) { + rds_data.ecc = ecc; /* ecc is 8 bits, so a byte */ +} + +void set_rds_lic(uint8_t lic) { + rds_data.lic = lic & INT16_L12; /* lic is 12 bits according to the docs, but the values can be less, for example english is 0x09 */ +} + +void set_rds_ecclic_toggle(uint8_t toggle) { + rds_state.ecclic_enabled = toggle & INT8_0; +} + +void set_rds_pin_enabled(uint8_t enabled) { + rds_state.pin_enabled = enabled & INT8_0; +} + +void set_rds_pin(uint8_t day, uint8_t hour, uint8_t minute) { + rds_data.pin_day = (day & INT8_L5); + rds_data.pin_hour = (hour & INT8_L5); + rds_data.pin_minute = (minute & INT8_L6); +} + +void set_rds_rt1_enabled(uint8_t rt1en) { + rds_state.rt1_enabled = rt1en & INT8_0; +} +void set_rds_rt1(unsigned char *rt1) { + uint8_t i = 0, len = 0; + + rds_state.rt_update = 1; + memset(rds_data.rt1, ' ', RT_LENGTH); + while (*rt1 != 0 && len < RT_LENGTH) + rds_data.rt1[len++] = *rt1++; + + if (len < RT_LENGTH) { + rds_state.rt_segments = 0; + + /* Terminate RT with '\r' (carriage return) if RT + * is < 64 characters long + */ + rds_data.rt1[len++] = '\r'; + + /* find out how many segments are needed */ + while (i < len) { + i += 4; + rds_state.rt_segments++; + } + } else { + /* Default to 16 if RT is 64 characters long */ + rds_state.rt_segments = 16; + } +} + +void set_rds_ps(unsigned char *ps) { + uint8_t len = 0; + + rds_state.ps_update = 1; + memset(rds_data.ps, ' ', PS_LENGTH); + while (*ps != 0 && len < PS_LENGTH) + rds_data.ps[len++] = *ps++; +} +void set_rds_tpson(uint8_t tpson) { + rds_data.traffic_ps_on = tpson & INT8_0; +} +void set_rds_tps(unsigned char *tps) { + uint8_t len = 0; + + rds_state.tps_update = 1; + memset(rds_data.tps, ' ', PS_LENGTH); + while (*tps != 0 && len < PS_LENGTH) + rds_data.tps[len++] = *tps++; +} + +void set_rds_lpson(uint8_t lpson) { + rds_state.lps_on = lpson & INT8_0; +} + +void set_rds_lps(unsigned char *lps) { + uint8_t i = 0, len = 0; + + if (!lps[0]) { + memset(rds_data.lps, 0, LPS_LENGTH); + return; + } + rds_state.lps_update = 1; + memset(rds_data.lps, '\r', LPS_LENGTH); + while (*lps != 0 && len < LPS_LENGTH) + rds_data.lps[len++] = *lps++; + + if (len < LPS_LENGTH) { + rds_state.lps_segments = 0; + + /* increment to allow adding an '\r' in all cases */ + len++; + + /* find out how many segments are needed */ + while (i < len) { + i += 4; + rds_state.lps_segments++; + } + } else { + /* default to 8 if LPS is 32 characters long */ + rds_state.lps_segments = 8; + } +} + +#ifdef ODA_RTP +void set_rds_rtplus_flags(uint8_t flags) { + if(flags == 2) { + rtplus_cfg.enabled = 0; + } else { + rtplus_cfg.enabled = 1; + } + rtplus_cfg.running = flags & INT8_0; +} + +void set_rds_rtplus_tags(uint8_t *tags) { + rtplus_cfg.type[0] = tags[0] & INT8_L6; + rtplus_cfg.start[0] = tags[1] & INT8_L6; + rtplus_cfg.len[0] = tags[2] & INT8_L6; + rtplus_cfg.type[1] = tags[3] & INT8_L6; + rtplus_cfg.start[1] = tags[4] & INT8_L6; + rtplus_cfg.len[1] = tags[5] & INT8_L5; + + rtplus_cfg.toggle ^= 1; + rtplus_cfg.running = 1; +} +#endif + +void set_rds_af(struct rds_af_t new_af_list) { + memcpy(&rds_data.af, &new_af_list, sizeof(struct rds_af_t)); +} + +void clear_rds_af() { + memset(&rds_data.af, 0, sizeof(struct rds_af_t)); +} + +void set_rds_pty(uint8_t pty) { + rds_data.pty = pty & INT8_L5; +} + +void set_rds_ptyn_enabled(uint8_t enabled) { + rds_state.ptyn_enabled = enabled & INT8_0; +} + +void set_rds_ptyn(unsigned char *ptyn) { + uint8_t len = 0; + + if (!ptyn[0]) { + memset(rds_data.ptyn, 0, PTYN_LENGTH); + return; + } + + rds_state.ptyn_update = 1; + memset(rds_data.ptyn, ' ', PTYN_LENGTH); + while (*ptyn != 0 && len < PTYN_LENGTH) + rds_data.ptyn[len++] = *ptyn++; +} + +void set_rds_ta(uint8_t ta) { + rds_data.ta = ta & INT8_0; +} + +void set_rds_tp(uint8_t tp) { + rds_data.tp = tp & INT8_0; +} + +void set_rds_ms(uint8_t ms) { + rds_data.ms = ms & INT8_0; +} + +void set_rds_di(uint8_t di) { + rds_data.di = di & INT8_L4; +} + +void set_rds_ct(uint8_t ct) { + rds_data.ct = ct & INT8_0; +} + +uint16_t get_rds_pi() { + /* this is for custom groups, specifically 'G=' */ + return rds_data.pi; +} + +void set_rds_cg(uint16_t* blocks) { + rds_state.custom_group[0] = blocks[0]; + rds_state.custom_group[1] = blocks[1]; + rds_state.custom_group[2] = blocks[2]; + rds_state.custom_group[3] = blocks[3]; + rds_state.custom_group_in = 1; +} diff --git a/src/rds.h b/src/rds.h new file mode 100644 index 0000000..937450d --- /dev/null +++ b/src/rds.h @@ -0,0 +1,336 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifndef RDS_H +#define RDS_H + +/* The RDS error-detection code generator polynomial is + * x^10 + x^8 + x^7 + x^5 + x^4 + x^3 + x^0 + */ +#define POLY 0x1B9 +#define POLY_DEG 10 +#define BLOCK_SIZE 16 + +#define GROUP_LENGTH 4 +#define BITS_PER_GROUP (GROUP_LENGTH * (BLOCK_SIZE + POLY_DEG)) +#define RDS_SAMPLE_RATE 190000 +#define SAMPLES_PER_BIT 160 +#define FILTER_SIZE 1120 +#define SAMPLE_BUFFER_SIZE (SAMPLES_PER_BIT + FILTER_SIZE) + +/* Text items + * + */ +#define RT_LENGTH 64 +#define PS_LENGTH 8 +#define PTYN_LENGTH 8 +#define LPS_LENGTH 32 + +/* AF list size + * + */ +#define MAX_AFS 25 + +typedef struct rds_af_t { + uint8_t num_entries; + uint8_t num_afs; + uint8_t afs[MAX_AFS]; +} rds_af_t; + +/* AF codes */ +#define AF_CODE_FILLER 205 +#define AF_CODE_NO_AF 224 +#define AF_CODE_NUM_AFS_BASE AF_CODE_NO_AF +#define AF_CODE_LFMF_FOLLOWS 250 + +typedef struct rds_params_t { + uint16_t pi; /*Program Identification*/ + uint16_t lic; /* Language Identification code. lic should have 12 bits, 16 is the closest */ + uint8_t ecc; /* Extended Country Code*/ + uint8_t ta; /* Traffic Annoucement*/ + uint8_t pty; /* Program Type */ + uint8_t tp; /* Traffic Program */ + uint8_t ms; /* Music/Speech */ + uint8_t di; /* Decoder ID */ + + /* Program Service */ + unsigned char ps[PS_LENGTH]; + /* Traffic PS */ + uint8_t traffic_ps_on; + unsigned char tps[PS_LENGTH]; + + /* Radio Text */ + unsigned char rt1[RT_LENGTH]; + + /* Program Type Name */ + unsigned char ptyn[PTYN_LENGTH]; + + /* Alternative Frequencies */ + struct rds_af_t af; + + /* Clock-time */ + uint8_t ct; + + /* Long PS */ + unsigned char lps[LPS_LENGTH]; + + /* Program Item Number */ + uint8_t pin_day; + uint8_t pin_hour; + uint8_t pin_minute; + + #ifdef RDS2 + /* RDS2 image path*/ + char rds2_image_path[51]; + #endif +} rds_params_t; +/* Here, the first member of the struct must be a scalar to avoid a + warning on -Wmissing-braces with GCC < 4.8.3 + (bug: https://gcc.gnu.org/bugzilla/show_bug.cgi?id=53119) +*/ + +/* Group type + * + * 0-15 + */ +#define GROUP_TYPE_0 ( 0 << 4) +#define GROUP_TYPE_1 ( 1 << 4) +#define GROUP_TYPE_2 ( 2 << 4) +#define GROUP_TYPE_3 ( 3 << 4) +#define GROUP_TYPE_4 ( 4 << 4) +#define GROUP_TYPE_5 ( 5 << 4) +#define GROUP_TYPE_6 ( 6 << 4) +#define GROUP_TYPE_7 ( 7 << 4) +#define GROUP_TYPE_8 ( 8 << 4) +#define GROUP_TYPE_9 ( 9 << 4) +#define GROUP_TYPE_10 (10 << 4) +#define GROUP_TYPE_11 (11 << 4) +#define GROUP_TYPE_12 (12 << 4) +#define GROUP_TYPE_13 (13 << 4) +#define GROUP_TYPE_14 (14 << 4) +#define GROUP_TYPE_15 (15 << 4) + +/* Group versions + * + * The first 4 bits are the group number and the remaining 4 are + * the group version + */ +#define GROUP_VER_A 0 +#define GROUP_VER_B 1 + +/* Version A groups */ +#define GROUP_0A (GROUP_TYPE_0 | GROUP_VER_A) +#define GROUP_1A (GROUP_TYPE_1 | GROUP_VER_A) +#define GROUP_2A (GROUP_TYPE_2 | GROUP_VER_A) +#define GROUP_3A (GROUP_TYPE_3 | GROUP_VER_A) +#define GROUP_4A (GROUP_TYPE_4 | GROUP_VER_A) +#define GROUP_5A (GROUP_TYPE_5 | GROUP_VER_A) +#define GROUP_6A (GROUP_TYPE_6 | GROUP_VER_A) +#define GROUP_7A (GROUP_TYPE_7 | GROUP_VER_A) +#define GROUP_8A (GROUP_TYPE_8 | GROUP_VER_A) +#define GROUP_9A (GROUP_TYPE_9 | GROUP_VER_A) +#define GROUP_10A (GROUP_TYPE_10 | GROUP_VER_A) +#define GROUP_11A (GROUP_TYPE_11 | GROUP_VER_A) +#define GROUP_12A (GROUP_TYPE_12 | GROUP_VER_A) +#define GROUP_13A (GROUP_TYPE_13 | GROUP_VER_A) +#define GROUP_14A (GROUP_TYPE_14 | GROUP_VER_A) +#define GROUP_15A (GROUP_TYPE_15 | GROUP_VER_A) + +/* Version B groups */ +#define GROUP_0B (GROUP_TYPE_0 | GROUP_VER_B) +#define GROUP_1B (GROUP_TYPE_1 | GROUP_VER_B) +#define GROUP_2B (GROUP_TYPE_2 | GROUP_VER_B) +#define GROUP_3B (GROUP_TYPE_3 | GROUP_VER_B) +#define GROUP_4B (GROUP_TYPE_4 | GROUP_VER_B) +#define GROUP_5B (GROUP_TYPE_5 | GROUP_VER_B) +#define GROUP_6B (GROUP_TYPE_6 | GROUP_VER_B) +#define GROUP_7B (GROUP_TYPE_7 | GROUP_VER_B) +#define GROUP_8B (GROUP_TYPE_8 | GROUP_VER_B) +#define GROUP_9B (GROUP_TYPE_9 | GROUP_VER_B) +#define GROUP_10B (GROUP_TYPE_10 | GROUP_VER_B) +#define GROUP_11B (GROUP_TYPE_11 | GROUP_VER_B) +#define GROUP_12B (GROUP_TYPE_12 | GROUP_VER_B) +#define GROUP_13B (GROUP_TYPE_13 | GROUP_VER_B) +#define GROUP_14B (GROUP_TYPE_14 | GROUP_VER_B) +#define GROUP_15B (GROUP_TYPE_15 | GROUP_VER_B) + +#define GET_GROUP_TYPE(x) ((x >> 4) & 15) +#define GET_GROUP_VER(x) (x & 1) /* only check bit 0 */ + +#define DI_STEREO (1 << 0) /* 1 - Stereo */ +#define DI_AH (1 << 1) /* 2 - Artificial Head */ +#define DI_COMPRESSED (1 << 2) /* 4 - Compressed */ +#define DI_DPTY (1 << 3) /* 8 - Dynamic PTY */ + +/* Bit mask */ + +/* 8 bit */ +#define INT8_ALL 0xff +/* Lower */ +#define INT8_L1 0x01 +#define INT8_L2 0x03 +#define INT8_L3 0x07 +#define INT8_L4 0x0f +#define INT8_L5 0x1f +#define INT8_L6 0x3f +#define INT8_L7 0x7f +/* Upper */ +#define INT8_U7 0xfe +#define INT8_U6 0xfc +#define INT8_U5 0xf8 +#define INT8_U4 0xf0 +#define INT8_U3 0xe0 +#define INT8_U2 0xc0 +#define INT8_U1 0x80 +/* Single */ +#define INT8_0 0x01 +#define INT8_1 0x02 +#define INT8_2 0x04 +#define INT8_3 0x08 +#define INT8_4 0x10 +#define INT8_5 0x20 +#define INT8_6 0x40 +#define INT8_7 0x80 + +/* 16 bit */ +#define INT16_ALL 0xffff +/* Lower */ +#define INT16_L1 0x0001 +#define INT16_L2 0x0003 +#define INT16_L3 0x0007 +#define INT16_L4 0x000f +#define INT16_L5 0x001f +#define INT16_L6 0x003f +#define INT16_L7 0x007f +#define INT16_L8 0x00ff +#define INT16_L9 0x01ff +#define INT16_L10 0x03ff +#define INT16_L11 0x07ff +#define INT16_L12 0x0fff +#define INT16_L13 0x1fff +#define INT16_L14 0x3fff +#define INT16_L15 0x7fff +/* Upper */ +#define INT16_U15 0xfffe +#define INT16_U14 0xfffc +#define INT16_U13 0xfff8 +#define INT16_U12 0xfff0 +#define INT16_U11 0xffe0 +#define INT16_U10 0xffc0 +#define INT16_U9 0xff80 +#define INT16_U8 0xff00 +#define INT16_U7 0xfe00 +#define INT16_U6 0xfc00 +#define INT16_U5 0xf800 +#define INT16_U4 0xf000 +#define INT16_U3 0xe000 +#define INT16_U2 0xc000 +#define INT16_U1 0x8000 +/* Single */ +#define INT16_0 0x0001 +#define INT16_1 0x0002 +#define INT16_2 0x0004 +#define INT16_3 0x0008 +#define INT16_4 0x0010 +#define INT16_5 0x0020 +#define INT16_6 0x0040 +#define INT16_7 0x0080 +#define INT16_8 0x0100 +#define INT16_9 0x0200 +#define INT16_10 0x0400 +#define INT16_11 0x0800 +#define INT16_12 0x1000 +#define INT16_13 0x2000 +#define INT16_14 0x4000 +#define INT16_15 0x8000 + +/* 18 bit (for RDS2) */ +#define INT18_U2 0x30000 +#define INT18_L4 0x0000f + +#define IS_TYPE_B(a) (a[1] & INT16_11) +#ifdef RDS2 +#define IS_TUNNELING(a) (a[0] == 0x0000) +#endif + +#ifdef ODA +/* + * RDS ODA ID group + * + * This struct is for defining ODAs that will be transmitted + * + * Can signal version A or B data groups + */ +typedef struct rds_oda_t { + uint8_t group; + uint16_t aid; + uint16_t scb; +} rds_oda_t; + +#define MAX_ODAS 8 + +/* + * ODA AID + * + * Extensive list: https://www.nrscstandards.org/committees/dsm/archive/rds-oda-aids.pdf + */ +#define ODA_AID_RTPLUS 0x4bd7 +#endif +/* RDS2 */ +#define ODA_AID_RFT 0xff7f +#define ODA_AID_RFTPLUS 0xff80 + +extern void init_rds_encoder(struct rds_params_t rds_params); +extern void exit_rds_encoder(); +extern void get_rds_bits(uint8_t *bits); +extern void set_rds_pi(uint16_t pi_code); +extern void set_rds_ecc(uint8_t ecc); +extern void set_rds_lic(uint8_t lic); +extern void set_rds_ecclic_toggle(uint8_t toggle); +extern void set_rds_pin_enabled(uint8_t enabled); +extern void set_rds_pin(uint8_t day, uint8_t hour, uint8_t minute); +extern void set_rds_rt1_enabled(uint8_t rt1en); +extern void set_rds_rt1(unsigned char *rt1); +extern void set_rds_ps(unsigned char *ps); +extern void set_rds_tpson(uint8_t tpson); +extern void set_rds_tps(unsigned char *ps); +extern void set_rds_lpson(uint8_t lpson); +extern void set_rds_lps(unsigned char *lps); +#ifdef ODA_RTP +extern void set_rds_rtplus_flags(uint8_t flags); +extern void set_rds_rtplus_tags(uint8_t *tags); +#endif +extern void set_rds_ta(uint8_t ta); +extern void set_rds_pty(uint8_t pty); +extern void set_rds_ptyn_enabled(uint8_t enabled); +extern void set_rds_ptyn(unsigned char *ptyn); +extern void set_rds_af(struct rds_af_t new_af_list); +extern void clear_rds_af(); +extern void set_rds_tp(uint8_t tp); +extern void set_rds_ms(uint8_t ms); +extern void set_rds_ct(uint8_t ct); +extern void set_rds_di(uint8_t di); +#ifdef RDS2 +extern float get_rds_sample(uint8_t stream_num, uint8_t rds2tunneling); +#else +extern float get_rds_sample(uint8_t stream_num); +#endif +extern uint16_t get_rds_pi(); +extern void set_rds_cg(uint16_t* blocks); + +#endif /* RDS_H */ diff --git a/src/rds2.c b/src/rds2.c new file mode 100644 index 0000000..8d4b6a5 --- /dev/null +++ b/src/rds2.c @@ -0,0 +1,452 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019-2020 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "common.h" +#include "rds.h" +#include "rds2.h" +#include "lib.h" + +/* + * RDS2-specific stuff + */ + + +/* RFT */ + +/* fallback station logo */ +#include "rds2_image_data.c" + +/* station logo */ +static struct rft_t station_logo_stream; + +static void init_rft(struct rft_t *rft, uint8_t file_id, + bool usecrc, uint8_t crc_mode, char *file_path) { + uint32_t seg_counter = 0; + uint32_t crc_chunk_counter = 0; + uint16_t crc_chunk_size = 0; + FILE *image_file_hdlr; + + rft->file_path = malloc(MAX_FILE_NAME_LEN + 1); + rft->file_path[MAX_FILE_NAME_LEN] = 0; + rft->file_data = malloc(MAX_IMAGE_LEN); + rft->crcs = malloc(MAX_CRC_CHUNK_ADDR * sizeof(uint16_t)); + + /* unused data must be padded with zeroes */ + memset(rft->file_data, 0, MAX_IMAGE_LEN); + + strncpy(rft->file_path, file_path, MAX_FILE_NAME_LEN); + + /* open file in binary mode */ + image_file_hdlr = fopen(file_path, "rb"); + if (image_file_hdlr != NULL) { + fseek(image_file_hdlr, 0, SEEK_END); + rft->file_len = ftell(image_file_hdlr); + rewind(image_file_hdlr); + + /* image cannot be larger than 163840 bytes */ + if (rft->file_len > MAX_IMAGE_LEN) { +#ifdef RDS2_DEBUG + fprintf(stderr, "W: Image too large!\n"); +#endif + rft->file_len = MAX_IMAGE_LEN; + } + + /* copy image data to local buffer */ + fread(rft->file_data, rft->file_len, 1, image_file_hdlr); + + fclose(image_file_hdlr); + } else { /* fallback in case file can't be read at startup */ + rft->file_len = station_logo_len; + + if (rft->file_len > MAX_IMAGE_LEN) { + rft->file_len = MAX_IMAGE_LEN; + } + + memcpy(rft->file_data, station_logo, rft->file_len); + } + + /* keep track of file lengths so we know when to toggle */ + rft->prev_file_len = rft->file_len; + rft->channel = 0; + rft->file_id = file_id; + rft->toggle = 0; + rft->num_segs = 0; + + /* determine how many segments we need */ + while (seg_counter < rft->file_len) { + seg_counter += 5; + rft->num_segs++; + } + + rft->use_crc = usecrc; + + /* if CRC is disabled exit early */ + if (!rft->use_crc) { + rft->crc_mode = 0; + rft->num_crc_chunks = 1; /* only 1 */ + rft->crcs[0] = 0x0000; + return; + } + + rft->crc_mode = crc_mode & 7; + + switch (rft->crc_mode) { + case RFT_CRC_MODE_ENTIRE_FILE: + /* no-op */ + break; + + case RFT_CRC_MODE_16_GROUPS: + crc_chunk_size = 16; + break; + + case RFT_CRC_MODE_32_GROUPS: + crc_chunk_size = 32; + break; + + case RFT_CRC_MODE_64_GROUPS: + crc_chunk_size = 64; + break; + + case RFT_CRC_MODE_128_GROUPS: + crc_chunk_size = 128; + break; + + case RFT_CRC_MODE_256_GROUPS: + crc_chunk_size = 256; + break; + + case RFT_CRC_MODE_RFU: /* reserved - use auto mode */ + case RFT_CRC_MODE_AUTO: + if (rft->file_len >= 81920) { + crc_chunk_size = 64; + rft->crc_mode = RFT_CRC_MODE_64_GROUPS; + } else if (rft->file_len > 40960) { + crc_chunk_size = 32; + rft->crc_mode = RFT_CRC_MODE_32_GROUPS; + } else { + crc_chunk_size = 16; + rft->crc_mode = RFT_CRC_MODE_16_GROUPS; + } + break; + } + + if (rft->crc_mode) { /* chunked modes */ + /* RFT packet size = chunk size * 5 data bytes per group */ + rft->pkt_size = crc_chunk_size * 5; + + /* the remainder (if file size is not a multiple of pkt_size) */ + rft->pkt_size_rem = rft->file_len % rft->pkt_size; + + /* calculate number of CRC chunks */ + while (crc_chunk_counter <= rft->file_len) { + crc_chunk_counter += rft->pkt_size; + rft->num_crc_chunks++; + } + + rft->crc_chunks = malloc(rft->pkt_size); + + /* calculate CRC's for chunks */ + for (uint16_t i = 0; i < rft->num_crc_chunks; i++) { + memset(rft->crc_chunks, 0, rft->pkt_size); + memcpy(rft->crc_chunks, + rft->file_data + i * rft->pkt_size, rft->pkt_size); + if ((i == rft->num_crc_chunks - 1) && rft->pkt_size_rem) { + /* last chunk may have less bytes */ + rft->crcs[i] = crc16(rft->crc_chunks, rft->pkt_size_rem); + } else { + rft->crcs[i] = crc16(rft->crc_chunks, rft->pkt_size); + } + } + + free(rft->crc_chunks); + } else { /* CRC of entire file */ + rft->num_crc_chunks = 1; /* only 1 */ + rft->crcs[0] = crc16(rft->file_data, rft->file_len); + } +} + +static void update_rft(struct rft_t *rft) { + uint32_t seg_counter = 0; + FILE *image_file_hdlr; + + /* open file in binary mode */ + image_file_hdlr = fopen(rft->file_path, "rb"); + if (image_file_hdlr == NULL) { + return; + } + + rft->prev_file_len = rft->file_len; + + /* update size field */ + fseek(image_file_hdlr, 0, SEEK_END); + rft->file_len = ftell(image_file_hdlr); + rewind(image_file_hdlr); + + /* file didn't change so return early */ + if (rft->file_len == rft->prev_file_len) { + fclose(image_file_hdlr); + return; + } + + /* image cannot be larger than 163840 bytes */ + if (rft->file_len > MAX_IMAGE_LEN) { +#ifdef RDS2_DEBUG + fprintf(stderr, "W: Image too large!\n"); +#endif + rft->file_len = MAX_IMAGE_LEN; + } + + /* copy image data to local buffer */ + fread(rft->file_data, rft->file_len, 1, image_file_hdlr); + + fclose(image_file_hdlr); + + rft->num_segs = 0; + + /* recalculate # of needed segments */ + while (seg_counter < rft->file_len) { + seg_counter += 5; + rft->num_segs++; + } + + if (rft->crc_mode) { + /* recalculate CRC's for chunks */ + for (uint16_t i = 0; i < rft->num_crc_chunks; i++) { + memset(rft->crc_chunks, 0, rft->pkt_size); + memcpy(rft->crc_chunks, + rft->file_data + i * rft->pkt_size, rft->pkt_size); + if ((i == rft->num_crc_chunks - 1) && rft->pkt_size_rem) { + /* last chunk may have less bytes */ + rft->crcs[i] = crc16(rft->crc_chunks, rft->pkt_size_rem); + } else { + rft->crcs[i] = crc16(rft->crc_chunks, rft->pkt_size); + } + } + + free(rft->crc_chunks); + } else { /* CRC of entire file */ + rft->num_crc_chunks = 1; /* only 1 */ + rft->crcs[0] = crc16(rft->file_data, rft->file_len); + } + + if (++rft->file_version == 8) { + rft->file_version = 0; + } +} + +static void exit_rft(struct rft_t *rft) { + free(rft->file_data); + free(rft->file_path); + free(rft->crcs); +} + +/* + * RFT variant 0 (file metadata) + * + * Carries: + * - Function Header + * - Pipe Number + * - ODA ID + * - Variant code (0) + * - CRC-16 Flag + * - File ID + * - File size (18 bits) + */ +static void get_rft_var_0_data_group(struct rft_t *rft, uint16_t *blocks) { + /* function header */ + blocks[0] = 1 << 15; + blocks[0] |= (rft->channel & INT8_L4); /* pipe number */ + + /* ODA ID */ + blocks[1] = ODA_AID_RFT; + + blocks[2] = (0 & INT18_L4) << 12; /* variant code */ + blocks[2] |= ((rft->use_crc ? 1 : 0) & INT8_L1) << 11; /* CRC */ + blocks[2] |= (rft->file_version & INT8_L3) << 8; /* file version */ + blocks[2] |= (rft->file_id & INT8_L6) << 2; /* file ID */ + blocks[2] |= (rft->file_len & INT18_U2) >> 16; + + blocks[3] = rft->file_len & INT16_ALL; +} + +/* + * RFT variant 1 (chunk to CRC mappings) + * + * Carries: + * - Function Header + * - Pipe Number + * - ODA ID + * - Variant Code (1) + * - CRC Mode + * - Chunk Address (9 bits) + * - CRC + */ +static void get_rft_var_1_data_group(struct rft_t *rft, uint16_t *blocks) { + /* function header */ + blocks[0] = 1 << 15; + blocks[0] |= (rft->channel & INT8_L4); /* pipe number */ + + /* ODA ID */ + blocks[1] = ODA_AID_RFT; + + blocks[2] = (1 & INT8_L4) << 12; /* variant code */ + blocks[2] |= (rft->crc_mode & INT8_L3) << 9; /* CRC mode */ + /* chunk address */ + blocks[2] |= rft->crc_chunk_addr & INT16_L9; + + /* CRC */ + blocks[3] = rft->crcs[rft->crc_chunk_addr]; + + if (++rft->crc_chunk_addr > rft->num_crc_chunks) { +#ifdef RDS2_DEBUG + fprintf(stderr, "File CRC sending complete\n"); +#endif + rft->crc_chunk_addr = 0; + } +} + +/* + * RFT variants 2-15 (custom variants) + * + * Carries: + * - Function Header + * - Pipe Number + * - Variant code + * - Variant data: + * - 2-7 carries file-related data + * - 8-15 ODA data that is not related + */ +#if 0 +static void get_rft_var_2_15_data_group(struct rft_t *rft, uint16_t *blocks) { + /* function header */ + blocks[0] = (2 << 6) << 8; + blocks[0] |= (rft->channel & INT8_L4); /* pipe number */ + + /* ODA ID */ + blocks[1] = ODA_AID_RFT; + + blocks[2] = (8 & INT8_L4) << 12; /* variant code */ + blocks[2] |= 0 & INT16_L12; + blocks[3] = 0 & INT16_ALL; +} +#endif + +/* + * RFT data group (for file data TXing) + * + * Carries: + * - Function Header + * - Pipe Number + * - Toggle Bit + * - Segment address (15 bits) + * - File data (5 bytes per group) + */ +static void get_rft_file_data_group(struct rft_t *rft, uint16_t *blocks) { + /* function header */ + blocks[0] = 2 << 12; + blocks[0] |= (rft->channel & INT8_L4) << 8; /* pipe number */ + + /* toggle bit */ + blocks[0] |= (rft->toggle & INT16_L1) << 7; + + /* segment address */ + blocks[0] |= ((rft->seg_addr_img & INT16_U8) >> 8) & INT16_L7; + blocks[1] = (rft->seg_addr_img & INT16_L8) << 8; + + /* image data */ + blocks[1] |= rft->file_data[rft->seg_addr_img * 5 + 0]; + blocks[2] = rft->file_data[rft->seg_addr_img * 5 + 1] << 8; + blocks[2] |= rft->file_data[rft->seg_addr_img * 5 + 2]; + blocks[3] = rft->file_data[rft->seg_addr_img * 5 + 3] << 8; + blocks[3] |= rft->file_data[rft->seg_addr_img * 5 + 4]; + + if (++rft->seg_addr_img > rft->num_segs) { +#ifdef RDS2_DEBUG + fprintf(stderr, "File sending complete\n"); +#endif + rft->seg_addr_img = 0; + rft->toggle ^= 1; + update_rft(rft); + } +} + +static void get_rft_stream(uint16_t *blocks) { + static uint8_t rft_state; + + switch (rft_state) { + case 0: + get_rft_var_0_data_group(&station_logo_stream, blocks); + break; + case 1: + get_rft_var_1_data_group(&station_logo_stream, blocks); + break; + case 2: + get_rft_var_0_data_group(&station_logo_stream, blocks); + break; + case 3: + get_rft_var_1_data_group(&station_logo_stream, blocks); + break; + + default: + get_rft_file_data_group(&station_logo_stream, blocks); + break; + } + + rft_state++; + if (rft_state == 50) rft_state = 0; +} + +/* + * RDS 2 group sequence + */ +static void get_rds2_group(uint8_t stream_num, uint16_t *blocks) { + + switch (stream_num) { + case 1: + case 2: + case 3: + default: + get_rft_stream(blocks); + break; + } + +#ifdef RDS2_DEBUG + fprintf(stderr, "Stream %u: %04x %04x %04x %04x\n", + stream_num, blocks[0], blocks[1], blocks[2], blocks[3]); +#endif +} + +void get_rds2_bits(uint8_t stream, uint8_t *bits) { + static uint16_t out_blocks[GROUP_LENGTH]; + get_rds2_group(stream, out_blocks); + add_checkwords(out_blocks, bits, true); +} + +void init_rds2_encoder(char *station_logo_path) { + /* create a new stream for the station logo */ + init_rft(&station_logo_stream, + 0 /* file ID */, + false /* don't use crc */, + RFT_CRC_MODE_AUTO, + station_logo_path + ); +} + +void exit_rds2_encoder() { + exit_rft(&station_logo_stream); +} diff --git a/src/rds2.h b/src/rds2.h new file mode 100644 index 0000000..17fdb1b --- /dev/null +++ b/src/rds2.h @@ -0,0 +1,71 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019-2020 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +typedef struct rds2_oda_t { + uint16_t aid; + uint8_t channel; +} rds2_oda_t; + +#define GET_RDS2_ODA_CHANNEL(x) (x & INT8_L5) + +#define MAX_FILE_NAME_LEN 64 /* does not include terminating null char */ +#define MAX_IMAGE_LEN 163840 +#define MAX_CRC_CHUNK_ADDR 511 + +/* RFT CRC mode */ +enum rft_crc_mode { + RFT_CRC_MODE_ENTIRE_FILE, /* over entire file (universal) */ + RFT_CRC_MODE_16_GROUPS, /* chunks of 16 groups (size <= 40,960) */ + RFT_CRC_MODE_32_GROUPS, /* chunks of 32 groups (40,960 < size <= 81,920) */ + RFT_CRC_MODE_64_GROUPS, /* chunks of 64 groups (size > 81,960) */ + RFT_CRC_MODE_128_GROUPS, /* chunks of 128 groups (size > 81,960) */ + RFT_CRC_MODE_256_GROUPS, /* chunks of 256 groups (size > 81,960) */ + RFT_CRC_MODE_RFU, /* reserved */ + RFT_CRC_MODE_AUTO /* automatic between 1-3 based on size */ +}; + +/* RDS2 File Transfer */ +typedef struct rft_t { + uint8_t channel; + + char *file_path; + unsigned char *file_data; + size_t file_len; + size_t prev_file_len; + uint8_t file_version; + uint8_t file_id; + uint8_t variant_code; + uint8_t toggle; + + uint16_t pkt_size; + uint16_t pkt_size_rem; + uint16_t seg_addr_img; + uint16_t num_segs; + + /* CRC chunk map */ + bool use_crc; + uint8_t crc_mode; + uint16_t crc_chunk_addr; + uint16_t num_crc_chunks; + uint8_t *crc_chunks; + uint16_t *crcs; +} rft_t; + +extern void get_rds2_bits(uint8_t stream_num, uint8_t *bits); +extern void init_rds2_encoder(char *station_logo_path); +extern void exit_rds2_encoder(); diff --git a/src/rds2_image_data.c b/src/rds2_image_data.c new file mode 100644 index 0000000..40b72c8 --- /dev/null +++ b/src/rds2_image_data.c @@ -0,0 +1,181 @@ +static const unsigned char station_logo[] = { + 0xff, 0xd8, 0xff, 0xe0, 0x00, 0x10, 0x4a, 0x46, 0x49, 0x46, 0x00, 0x01, + 0x01, 0x00, 0x00, 0x01, 0x00, 0x01, 0x00, 0x00, 0xff, 0xe2, 0x01, 0xd8, + 0x49, 0x43, 0x43, 0x5f, 0x50, 0x52, 0x4f, 0x46, 0x49, 0x4c, 0x45, 0x00, + 0x01, 0x01, 0x00, 0x00, 0x01, 0xc8, 0x00, 0x00, 0x00, 0x00, 0x04, 0x30, + 0x00, 0x00, 0x6d, 0x6e, 0x74, 0x72, 0x52, 0x47, 0x42, 0x20, 0x58, 0x59, + 0x5a, 0x20, 0x07, 0xe0, 0x00, 0x01, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x61, 0x63, 0x73, 0x70, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, + 0xf6, 0xd6, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0xd3, 0x2d, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x09, 0x64, 0x65, 0x73, 0x63, 0x00, 0x00, 0x00, 0xf0, 0x00, 0x00, + 0x00, 0x24, 0x72, 0x58, 0x59, 0x5a, 0x00, 0x00, 0x01, 0x14, 0x00, 0x00, + 0x00, 0x14, 0x67, 0x58, 0x59, 0x5a, 0x00, 0x00, 0x01, 0x28, 0x00, 0x00, + 0x00, 0x14, 0x62, 0x58, 0x59, 0x5a, 0x00, 0x00, 0x01, 0x3c, 0x00, 0x00, + 0x00, 0x14, 0x77, 0x74, 0x70, 0x74, 0x00, 0x00, 0x01, 0x50, 0x00, 0x00, + 0x00, 0x14, 0x72, 0x54, 0x52, 0x43, 0x00, 0x00, 0x01, 0x64, 0x00, 0x00, + 0x00, 0x28, 0x67, 0x54, 0x52, 0x43, 0x00, 0x00, 0x01, 0x64, 0x00, 0x00, + 0x00, 0x28, 0x62, 0x54, 0x52, 0x43, 0x00, 0x00, 0x01, 0x64, 0x00, 0x00, + 0x00, 0x28, 0x63, 0x70, 0x72, 0x74, 0x00, 0x00, 0x01, 0x8c, 0x00, 0x00, + 0x00, 0x3c, 0x6d, 0x6c, 0x75, 0x63, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x01, 0x00, 0x00, 0x00, 0x0c, 0x65, 0x6e, 0x55, 0x53, 0x00, 0x00, + 0x00, 0x08, 0x00, 0x00, 0x00, 0x1c, 0x00, 0x73, 0x00, 0x52, 0x00, 0x47, + 0x00, 0x42, 0x58, 0x59, 0x5a, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x6f, 0xa2, 0x00, 0x00, 0x38, 0xf5, 0x00, 0x00, 0x03, 0x90, 0x58, 0x59, + 0x5a, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x62, 0x99, 0x00, 0x00, + 0xb7, 0x85, 0x00, 0x00, 0x18, 0xda, 0x58, 0x59, 0x5a, 0x20, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x24, 0xa0, 0x00, 0x00, 0x0f, 0x84, 0x00, 0x00, + 0xb6, 0xcf, 0x58, 0x59, 0x5a, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0xf6, 0xd6, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0xd3, 0x2d, 0x70, 0x61, + 0x72, 0x61, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x02, + 0x66, 0x66, 0x00, 0x00, 0xf2, 0xa7, 0x00, 0x00, 0x0d, 0x59, 0x00, 0x00, + 0x13, 0xd0, 0x00, 0x00, 0x0a, 0x5b, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x6d, 0x6c, 0x75, 0x63, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x01, 0x00, 0x00, 0x00, 0x0c, 0x65, 0x6e, 0x55, 0x53, 0x00, 0x00, + 0x00, 0x20, 0x00, 0x00, 0x00, 0x1c, 0x00, 0x47, 0x00, 0x6f, 0x00, 0x6f, + 0x00, 0x67, 0x00, 0x6c, 0x00, 0x65, 0x00, 0x20, 0x00, 0x49, 0x00, 0x6e, + 0x00, 0x63, 0x00, 0x2e, 0x00, 0x20, 0x00, 0x32, 0x00, 0x30, 0x00, 0x31, + 0x00, 0x36, 0xff, 0xdb, 0x00, 0x43, 0x00, 0x1b, 0x12, 0x14, 0x17, 0x14, + 0x11, 0x1b, 0x17, 0x16, 0x17, 0x1e, 0x1c, 0x1b, 0x20, 0x28, 0x42, 0x2b, + 0x28, 0x25, 0x25, 0x28, 0x51, 0x3a, 0x3d, 0x30, 0x42, 0x60, 0x55, 0x65, + 0x64, 0x5f, 0x55, 0x5d, 0x5b, 0x6a, 0x78, 0x99, 0x81, 0x6a, 0x71, 0x90, + 0x73, 0x5b, 0x5d, 0x85, 0xb5, 0x86, 0x90, 0x9e, 0xa3, 0xab, 0xad, 0xab, + 0x67, 0x80, 0xbc, 0xc9, 0xba, 0xa6, 0xc7, 0x99, 0xa8, 0xab, 0xa4, 0xff, + 0xdb, 0x00, 0x43, 0x01, 0x1c, 0x1e, 0x1e, 0x28, 0x23, 0x28, 0x4e, 0x2b, + 0x2b, 0x4e, 0xa4, 0x6e, 0x5d, 0x6e, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, + 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, + 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, + 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, + 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xff, 0xc0, 0x00, 0x11, + 0x08, 0x00, 0xcd, 0x00, 0xcd, 0x03, 0x01, 0x22, 0x00, 0x02, 0x11, 0x01, + 0x03, 0x11, 0x01, 0xff, 0xc4, 0x00, 0x1a, 0x00, 0x01, 0x01, 0x01, 0x01, + 0x01, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x05, 0x04, 0x06, 0x02, 0x03, 0x01, 0xff, 0xc4, 0x00, 0x3c, 0x10, + 0x00, 0x01, 0x03, 0x03, 0x02, 0x02, 0x05, 0x09, 0x05, 0x08, 0x03, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x11, 0x12, + 0x21, 0x06, 0x31, 0x13, 0x22, 0x41, 0x91, 0xa1, 0x14, 0x32, 0x51, 0x61, + 0x71, 0x73, 0x81, 0xb1, 0xd1, 0x34, 0x36, 0x52, 0xc2, 0xe1, 0x16, 0x24, + 0x33, 0x35, 0x42, 0x44, 0x82, 0xc1, 0x54, 0xb2, 0xf0, 0xff, 0xc4, 0x00, + 0x14, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0xc4, 0x00, 0x14, 0x11, + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0xda, 0x00, 0x0c, 0x03, 0x01, 0x00, + 0x02, 0x11, 0x03, 0x11, 0x00, 0x3f, 0x00, 0xe6, 0x40, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x56, + 0xc7, 0x68, 0x65, 0xd1, 0x26, 0x57, 0xcc, 0xe8, 0xfa, 0x3d, 0x3c, 0x93, + 0x39, 0xce, 0x7e, 0x85, 0x2a, 0x7e, 0x14, 0x6a, 0xac, 0x8b, 0x51, 0x3b, + 0x91, 0x35, 0x2a, 0x31, 0x18, 0x89, 0x9c, 0x76, 0x2a, 0xfd, 0x00, 0xe6, + 0x01, 0x42, 0x9e, 0xd8, 0xda, 0xab, 0xa3, 0xa8, 0xa0, 0xaa, 0x8d, 0xcd, + 0x6a, 0xff, 0x00, 0x15, 0x76, 0xd4, 0x89, 0xcf, 0x09, 0xdb, 0xdb, 0xdc, + 0x5b, 0x4e, 0x13, 0xa7, 0xe8, 0xb0, 0xb5, 0x32, 0xf4, 0x9f, 0x8b, 0x09, + 0x8e, 0xef, 0xd4, 0x0e, 0x50, 0x1b, 0x6e, 0xb6, 0xc9, 0x6d, 0x93, 0xa4, + 0x72, 0x2a, 0x3d, 0x8e, 0x4c, 0xb1, 0xe8, 0x98, 0xcf, 0xea, 0x6d, 0xb2, + 0xd8, 0x16, 0xe1, 0x0f, 0x94, 0x4d, 0x22, 0xc7, 0x12, 0xae, 0x1a, 0x8d, + 0x4d, 0xdd, 0xe9, 0x5f, 0x56, 0xe0, 0x67, 0xb1, 0xdb, 0xa3, 0xb9, 0xd4, + 0xbe, 0x29, 0x1e, 0xe6, 0x23, 0x59, 0xab, 0x2d, 0xf6, 0xa1, 0xf9, 0x55, + 0x6f, 0x8e, 0x1b, 0xe3, 0x68, 0x1a, 0xf7, 0x2b, 0x16, 0x46, 0x33, 0x52, + 0xf3, 0xeb, 0x63, 0xea, 0x74, 0x76, 0xab, 0x2a, 0xdb, 0x2e, 0x2f, 0x92, + 0x39, 0x3a, 0x48, 0x5f, 0x1a, 0xa2, 0x2a, 0xf3, 0x6a, 0xe5, 0x36, 0x5f, + 0x49, 0x12, 0xee, 0xc5, 0x97, 0x8a, 0x56, 0x36, 0xbd, 0x58, 0xaf, 0x92, + 0x36, 0xa3, 0x9b, 0xcd, 0xb9, 0x46, 0xee, 0x80, 0x78, 0xbf, 0x5a, 0x62, + 0xb5, 0xf4, 0x1d, 0x14, 0x8f, 0x7f, 0x49, 0xab, 0x3a, 0xb1, 0xb6, 0x31, + 0xf5, 0x24, 0x96, 0xb8, 0x8a, 0x86, 0x5a, 0x3f, 0x27, 0xe9, 0x2b, 0x26, + 0xa9, 0xd7, 0xab, 0x1d, 0x22, 0xaa, 0xe9, 0xc6, 0x39, 0x6f, 0xeb, 0x3f, + 0x6d, 0x1c, 0x3d, 0x25, 0x74, 0x29, 0x51, 0x3c, 0x8b, 0x14, 0x4e, 0x5e, + 0xaa, 0x22, 0x65, 0xce, 0x4f, 0x4f, 0xa8, 0x08, 0x87, 0xa8, 0xa3, 0x7c, + 0xd2, 0xb2, 0x28, 0xd3, 0x53, 0xde, 0xa8, 0xd6, 0xa7, 0xa5, 0x54, 0xe9, + 0x6a, 0xb8, 0x4d, 0xbd, 0x1a, 0xad, 0x25, 0x43, 0xb5, 0xa2, 0x79, 0xb2, + 0x22, 0x6f, 0xf1, 0x4e, 0x44, 0xbb, 0x03, 0x7a, 0x2b, 0xf4, 0x0c, 0x95, + 0x34, 0xb9, 0xae, 0x73, 0x55, 0x1d, 0xd8, 0xba, 0x57, 0x6e, 0xf0, 0x2b, + 0xd3, 0x70, 0x9c, 0x29, 0x1f, 0xef, 0x35, 0x12, 0x39, 0xeb, 0xd9, 0x1e, + 0x11, 0x13, 0xbd, 0x17, 0x3e, 0x04, 0xbb, 0xcd, 0x8e, 0x4b, 0x6b, 0x52, + 0x68, 0xde, 0xb2, 0xc0, 0xab, 0x85, 0x5c, 0x61, 0x5a, 0xbe, 0xbf, 0xa9, + 0x53, 0x8a, 0x22, 0xaf, 0x92, 0x68, 0x3c, 0x99, 0xb2, 0xbe, 0x14, 0x4c, + 0xe2, 0x24, 0x55, 0xc3, 0xb3, 0xcd, 0x71, 0xf0, 0xc7, 0xc4, 0xd5, 0x77, + 0x47, 0xb7, 0x86, 0x5c, 0x95, 0x19, 0x59, 0x12, 0x38, 0xd1, 0xfb, 0xe5, + 0x75, 0x65, 0x3f, 0xd8, 0x11, 0x6c, 0x76, 0x58, 0x6e, 0x74, 0xf2, 0x49, + 0x24, 0xaf, 0x62, 0xb5, 0xfa, 0x51, 0x1b, 0x8f, 0x41, 0x4b, 0xf6, 0x4e, + 0x97, 0xfe, 0x44, 0xde, 0x07, 0xef, 0x07, 0x7d, 0x86, 0x7f, 0x7b, 0xfe, + 0x90, 0xf3, 0x51, 0x64, 0xb9, 0x4b, 0x2c, 0xf2, 0xb2, 0xe0, 0xac, 0xd4, + 0xf7, 0x39, 0x8c, 0xd6, 0xec, 0x22, 0x2a, 0xed, 0xbf, 0x67, 0x70, 0x10, + 0xef, 0x54, 0x0c, 0xb7, 0x56, 0x24, 0x11, 0xbd, 0xcf, 0x45, 0x62, 0x3b, + 0x2e, 0xe7, 0xda, 0x60, 0x3e, 0xf5, 0xac, 0xa8, 0x8a, 0xa5, 0xf1, 0xd5, + 0xab, 0xd6, 0x56, 0x6c, 0xba, 0x9d, 0x93, 0xe0, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x07, 0x4f, 0xc1, 0x9e, 0x6d, 0x5f, 0xb5, 0x9f, + 0x98, 0x97, 0x7a, 0xad, 0xa9, 0x75, 0xda, 0xa3, 0x13, 0x48, 0xd4, 0x63, + 0x95, 0x8d, 0x46, 0xb9, 0x51, 0x11, 0x39, 0x78, 0x95, 0x38, 0x33, 0xcd, + 0xab, 0xf6, 0xb3, 0xf3, 0x10, 0xee, 0xff, 0x00, 0xcd, 0x6a, 0xfd, 0xeb, + 0xbe, 0x60, 0x7d, 0x2d, 0x16, 0xea, 0x8b, 0x85, 0x4e, 0x20, 0x7f, 0x47, + 0xd1, 0xe1, 0xce, 0x93, 0xf0, 0xef, 0xb6, 0x3d, 0x7f, 0x42, 0xe3, 0x38, + 0x6a, 0x76, 0xd4, 0xa5, 0x42, 0x5c, 0xde, 0xb3, 0x22, 0xe7, 0x5a, 0xc7, + 0x95, 0xff, 0x00, 0xb1, 0x97, 0x84, 0x2a, 0x62, 0x8a, 0x6a, 0x88, 0x64, + 0x7a, 0x35, 0xf2, 0xa3, 0x74, 0x65, 0x71, 0x9c, 0x67, 0x6f, 0x6e, 0xe6, + 0x9a, 0xae, 0x1e, 0xa5, 0x8e, 0xa2, 0x4a, 0xba, 0x9a, 0xd7, 0x36, 0x15, + 0x72, 0xbd, 0xc8, 0xa9, 0xbe, 0xfb, 0xe3, 0x3f, 0xa0, 0x0e, 0x31, 0x6a, + 0x79, 0x35, 0x3b, 0xb1, 0xba, 0x3d, 0x53, 0x3f, 0x0f, 0xd0, 0xd8, 0xd7, + 0x2d, 0x3f, 0x0b, 0xb5, 0xd1, 0x75, 0x1c, 0x94, 0xc8, 0xa8, 0xa9, 0xb6, + 0x15, 0x53, 0x9f, 0x89, 0x97, 0x8c, 0x7e, 0xc7, 0x07, 0xbc, 0x5f, 0x91, + 0xf6, 0xb0, 0xd5, 0xc1, 0x5f, 0x6a, 0x4a, 0x39, 0x5c, 0x8b, 0x23, 0x18, + 0xb1, 0xbd, 0x8b, 0xb2, 0xab, 0x79, 0x22, 0xa7, 0xc3, 0x00, 0x4f, 0xe0, + 0xf9, 0xa4, 0x5a, 0xa9, 0xe2, 0x57, 0xaa, 0xb1, 0x59, 0xaf, 0x0a, 0xbd, + 0xb9, 0x4d, 0xfc, 0x4f, 0x8d, 0xc7, 0xef, 0x7b, 0x3d, 0xf4, 0x5f, 0x26, + 0x97, 0x6d, 0x96, 0xea, 0x2b, 0x6d, 0x53, 0xe2, 0x82, 0x47, 0x3e, 0x67, + 0xb3, 0x2a, 0x8f, 0x54, 0x55, 0x6b, 0x51, 0x7d, 0x49, 0xb7, 0x3f, 0x02, + 0x15, 0xc7, 0xef, 0x7b, 0x3d, 0xf4, 0x5f, 0x26, 0x81, 0xab, 0x8c, 0xff, + 0x00, 0xb3, 0xff, 0x00, 0x3f, 0xca, 0x6f, 0xb8, 0x48, 0xfa, 0x5e, 0x19, + 0x47, 0x40, 0xf5, 0x63, 0x9b, 0x14, 0x68, 0x8e, 0x45, 0xdd, 0x39, 0x27, + 0xc8, 0xc1, 0xc6, 0x7f, 0xd9, 0xff, 0x00, 0x9f, 0xe5, 0x36, 0x5a, 0xea, + 0xa9, 0x2e, 0xd6, 0x96, 0xd1, 0x4c, 0xa9, 0xad, 0x18, 0x8c, 0x7b, 0x35, + 0x61, 0x57, 0x1c, 0x95, 0x3b, 0x91, 0x40, 0xc5, 0xc2, 0x35, 0x53, 0x3e, + 0x79, 0xe1, 0x7c, 0x8e, 0x7b, 0x34, 0x23, 0x91, 0x1c, 0xaa, 0xb8, 0x5c, + 0xf6, 0x77, 0x93, 0x6f, 0xeb, 0xd0, 0xdf, 0xa7, 0x74, 0x5d, 0x47, 0x35, + 0xcd, 0x72, 0x2a, 0x6d, 0x85, 0xd2, 0x8b, 0x9e, 0xf3, 0xa6, 0xa5, 0xa3, + 0xa0, 0xb1, 0x43, 0x24, 0x8b, 0x2a, 0xb5, 0x1d, 0xcd, 0xf2, 0xb9, 0x32, + 0xb8, 0xec, 0x43, 0x8f, 0xb8, 0xd5, 0x2d, 0x6d, 0x74, 0xd5, 0x18, 0xc2, + 0x3d, 0xdb, 0x22, 0xf6, 0x27, 0x24, 0xf0, 0xc0, 0x1d, 0x1d, 0xa3, 0x88, + 0x27, 0xad, 0xa8, 0x8a, 0x95, 0xd4, 0xad, 0x73, 0xd7, 0xce, 0x91, 0x1d, + 0x84, 0x44, 0x4e, 0xdc, 0x63, 0xff, 0x00, 0x29, 0xe3, 0x8b, 0xeb, 0x34, + 0xc5, 0x15, 0x1b, 0x57, 0x77, 0x2f, 0x48, 0xff, 0x00, 0x67, 0x24, 0xf1, + 0xcf, 0x71, 0xeb, 0x84, 0xa8, 0xd2, 0x2a, 0x69, 0x2b, 0x5f, 0xb2, 0xc9, + 0xd5, 0x6a, 0xaf, 0x63, 0x53, 0x9a, 0xf7, 0xfc, 0x8e, 0x7a, 0xe7, 0x56, + 0xb5, 0xd5, 0xf3, 0x54, 0x7f, 0x4b, 0x9d, 0xd5, 0x4f, 0x43, 0x53, 0x64, + 0xf0, 0x03, 0x6d, 0x9a, 0xf0, 0xfb, 0x6c, 0x0f, 0x8d, 0xb4, 0xab, 0x32, + 0x39, 0xda, 0xb3, 0xab, 0x18, 0xdb, 0xd8, 0x6c, 0xb3, 0x5e, 0xab, 0x6a, + 0xef, 0x2c, 0x8e, 0x59, 0x11, 0x62, 0x97, 0x57, 0x53, 0x09, 0x86, 0xec, + 0xaa, 0x98, 0x3c, 0xf0, 0xad, 0xce, 0x1a, 0x74, 0x92, 0x92, 0x77, 0xb6, + 0x34, 0x7b, 0xb5, 0xb1, 0xce, 0xd9, 0x33, 0x8d, 0xd1, 0x57, 0xe0, 0x85, + 0x88, 0x6d, 0x14, 0x14, 0x55, 0x6f, 0xae, 0x6a, 0xab, 0x15, 0x32, 0xbd, + 0x67, 0x22, 0x31, 0x99, 0xe6, 0xa8, 0x04, 0x4e, 0x30, 0x6e, 0x2e, 0x31, + 0x3b, 0xd3, 0x12, 0x27, 0x8a, 0x90, 0x4a, 0x7c, 0x43, 0x5d, 0x1d, 0x7d, + 0xc5, 0x5f, 0x0e, 0xf1, 0xc6, 0xd4, 0x62, 0x3b, 0xf1, 0x73, 0x5c, 0xf8, + 0x93, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0xd9 +}; +static const unsigned int station_logo_len = sizeof(station_logo); diff --git a/src/resampler.c b/src/resampler.c new file mode 100644 index 0000000..668a7cd --- /dev/null +++ b/src/resampler.c @@ -0,0 +1,52 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include "common.h" +#include "resampler.h" + +int8_t resampler_init(SRC_STATE **src_state, uint8_t channels) { + int src_error; + + *src_state = src_new(CONVERTER_TYPE, channels, &src_error); + + if (*src_state == NULL) { + fprintf(stderr, "Error: src_new failed: %s\n", src_strerror(src_error)); + return -1; + } + + return 0; +} + +int8_t resample(SRC_STATE *src_state, SRC_DATA src_data, size_t *frames_generated) { + int src_error; + + src_error = src_process(src_state, &src_data); + + if (src_error) { + fprintf(stderr, "Error: src_process failed: %s\n", src_strerror(src_error)); + return -1; + } + + *frames_generated = src_data.output_frames_gen; + + return 0; +} + +void resampler_exit(SRC_STATE *src_state) { + src_delete(src_state); +} diff --git a/src/resampler.h b/src/resampler.h new file mode 100644 index 0000000..3be9c47 --- /dev/null +++ b/src/resampler.h @@ -0,0 +1,25 @@ +/* + * mpxgen - FM multiplex encoder with Stereo and RDS + * Copyright (C) 2019 Anthony96922 + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#include + +#define CONVERTER_TYPE SRC_SINC_MEDIUM_QUALITY + +extern int8_t resampler_init(SRC_STATE **src_state, uint8_t channels); +extern int8_t resample(SRC_STATE *src_state, SRC_DATA src_data, size_t *frames_generated); +extern void resampler_exit(SRC_STATE *src_state); diff --git a/src/station_logo.jpg b/src/station_logo.jpg new file mode 100644 index 0000000000000000000000000000000000000000..43d72e28152de9e9bad67d7aaa162eebbba42a5a GIT binary patch literal 2132 zcmex=3)=m5zjCKnfgXdIZ4f#KUVkm(EzmvwQd!6(d_l3JY1z`*cfiVEYE(!^9W?*1UVPIg;NJnBPA+eJS zia_dn7#J9Aa&t;Sc7fc($iTqBlbRPA%)r3F!N9;E!%)l+#Nf{01oA&f0Ruz+A_fMF zuM7;#6A)raGZ`4Rw=ytD+(L+{EMQ>ZZ((5Ab{-*y2$O=uqC~KHEDQ_`OlfHh44;-W zFz`k)FbH2@VBm@d%P}x8;BcD)*lq3%`3(6C=?pmxsSFAXo(y>m$qaf73JgXJ1`LJ_ zX8&(9I5S8KiHM5`N{fq$%gIP9XgFzWsH$oNTG<*nC4{D?#D~U4XI0E>%qpBv939)b zwQa(@#jDq@PH)(Aa@VrsGgqu$0y2bAMovycS;J3T+iyu;Y~B)*!T$pcf*cHI8O|~@ zDlsq#GBOJ?{y)MX#lQ#wFwZhDu(Gf*F@xl61Q-~ZnVFbaIaxWFA@Yn&%q*;eLW*pL z!b*-47m64KCKeVqZoFt>7If&Ln2NEflS|XVkWC-{A7KyyrEZ8W7zq*;1Vt}Q08IbC z#lXYN$iO7XEXZKb@XP@$IM4)R*zt_ii)!I#Ui`APnQVEku2ri}Bx_A~p!GykEklXU zIb~XZ8J;mZ&AV}H_2Lx^R`s6E`p+O*cBS(?=k42fqWy%Izu2(V=*#?W&c63o_yVN! zww=tKyrf9Ww$Eqdiy7x% z{kHIDXnvpc;|!_q+G1|TL7!hIzbYwPt#w;Zf0Ct@N4(S`tlay({(8^VRvWh&epQ*aqpK~-Uj3!E+RE#zWtCRFJZ72y z+CEptR<%Sk(573&FK(4m>N$V^6&&p=7S~+bq;Wa;-im9>mxjE|+TpubYOSjC)X%CMQaX`hJCBbCs@o6i=0IDX`6x%>9En5mMHLKYW)KP^qQ zzaf}Y7Lix-$x~&0($-&r(*2I!-~6WkbGgU&iqda&locgvn@ zZ8W3*)n^zis|3@a{ju*{r{>_a)ToioNP?^;4*K zzxeRn~Yx5#VPtm|f?MSD-I-1qyj{Q^G2tV&bsjk|1v?fEaR~b__-u%<)iRb8za|q?cM47 z$G`XZ`)b=S@oLj^r@hk74Sv+*ZkN7Ut3M<(JFwPsyFHUARK9U_&wqx^{~7F0(b?oeO5qHF4vwZ+%ZO_XhM@w=1!pF#6+_iK}* zqSE2z`X2uo(p5g5FMQpy;*wUTcKoK3SF_e92haNcr?2XH*w(9`L+ZWfUiEhlPWix` zJL|*m9RA)dtBovgZC)*L`$o>@xYb$jb^0O&lct9UbGE%%HN)n^+H+DRlO~mKGpXLX z@!U=0-izT6T03$@L_+h|Wvv!9+MBLqIP=*G7C(bLJwxluLh4-;ylR|dWowVd^L;#a TCCU0@amHjwYWJR#n literal 0 HcmV?d00001 diff --git a/src/supported_cmds.txt b/src/supported_cmds.txt new file mode 100644 index 0000000..4251376 --- /dev/null +++ b/src/supported_cmds.txt @@ -0,0 +1,27 @@ +AF - Mode A only +AFCH - Mode A only +DI +MS +PI +PS +TPS +PTY +PTYN +PTYNEN +TEXT | RT1 +RT1EN +TA +TP +CT +LEVEL - Not redecommended, if possible use `MPX` +RDSGEN +ECC +ECCEN +G +LIC +PIN +PINEN +RTP +RTPRUN + +(Magic RDS 3 'Program' page is fully supported.) \ No newline at end of file diff --git a/src/todo.txt b/src/todo.txt new file mode 100644 index 0000000..3accd87 --- /dev/null +++ b/src/todo.txt @@ -0,0 +1,26 @@ +Current TODO for RDS encoding: +- UECP Decoding +- Dynamic PS (may not be implemented) +- Bidirectionality + +ASCII commands to implement: +- Group sequence +- Short RT + +ASCII Group seqeunce: +0 - Four 0As (PS x 4) +1 - 1A (ECC/LIC, PIN) +2 - 2A (RT) +A - 10A (PTYN) +E - 14A 14B (EON, yet to implement) +X - UDG1 (yet to implement, max 8 groups per udg) +Y - UDG2 (yet to implement) +R - RT+ 3A 11A (do i switch between them like ecc lic?) +F - 15A (LPS) +Max 24 items in a sequence. + +Note that most of this is takes out of pira.cz's P164 RDS Encoder's manual: https://pira.cz/rds/p164man.pdf + +I plan for this's commands to be similiar to PIRA32's or P164's (both are made by pira.cz) + +In theory, now you can use the MiniRDS as a PIRA32 type device in Magic RDS 4 (but not everything is supported) \ No newline at end of file diff --git a/src/uecp_rds_todo.txt b/src/uecp_rds_todo.txt new file mode 100644 index 0000000..fcfc7d4 --- /dev/null +++ b/src/uecp_rds_todo.txt @@ -0,0 +1,21 @@ +This aims to have the around the same options as UECP should have, this is what is not yet implemented: +- PIN (low priority, how do i decode that?) +- EON AF (very low priority) +- Linkage information (very low priority) +- (ODA skipped) +- TDC (low priority) +- EWS (how do i even implement that? can someone give docs?) +- IH (low priority) +- (Paging skipped) +- (No CT time adjustments) +- RDS on/off (low priority) +- RDS phase (might be medium, 9.5 degree steps) +- (ARI skipped) + +Others: +- Encoder identification (site and encoder address) +- (PSN skipped) +- (EON skipped) +- Data set select +- Group sequence +- (other sequence related comamnds skipped) diff --git a/src/waveforms.c b/src/waveforms.c new file mode 100644 index 0000000..4c21fe6 --- /dev/null +++ b/src/waveforms.c @@ -0,0 +1,7 @@ + +/* This file was automatically generated by "generate_waveforms.py". + (C) 2014 Christophe Jacquet. + Released under the GNU GPL v3 license. + */ + +float waveform_biphase[1120] = {0.000187998621033, 0.000188435409401, 0.000187705188745, 0.000185799757689, 0.000182718086847, 0.000178466403438, 0.000173058232277, 0.000166514392427, 0.000158862949033, 0.000150139120151, 0.000140385138662, 0.000129650069598, 0.000117989583533, 0.000105465686927, 9.21464106041e-05, 7.81054578096e-05, 6.34218135435e-05, 4.81793171422e-05, 3.24662003054e-05, 1.63745930139e-05, -5.59926582713e-18, -1.65592493568e-05, -3.32025746409e-05, -4.98277382766e-05, -6.63314562638e-05, -8.26100222307e-05, -9.85599411374e-05, -0.000114078568866, -0.000129064753854, -0.000143419476872, -0.000157046485015, -0.000169852915966, -0.000181749908607, -0.000192653196087, -0.000202483677526, -0.000211167964614, -0.000218638899478, -0.000224836040328, -0.000229706111527, -0.000233203414943, -0.000235290199616, -0.000235936986992, -0.000235122849234, -0.000232835638346, -0.000229072164162, -0.000223838319489, -0.000217149151043, -0.000209028875099, -0.000199510837108, -0.00018863741487, -0.000176459865203, -0.000163038114344, -0.000148440492734, -0.000132743415113, -0.000116031007252, -9.83946809495e-05, -7.99326592792e-05, -6.07494543859e-05, -4.09553004503e-05, -2.06655447462e-05, 6.72575950178e-19, 2.09177384594e-05, 4.19610070206e-05, 6.30008156011e-05, 8.3906612757e-05, 0.000104547069707, 0.000124790878716, 0.000144507561146, 0.000163568280364, 0.000181846654599, 0.000199219564799, 0.000215567952505, 0.00023077760273, 0.000244739906911, 0.000257352601014, 0.000268520473994, 0.000278156041926, 0.000286180183249, 0.000292522730793, 0.000297123016414, 0.000299930364345, 0.000300904529591, 0.000300016078023, 0.000297246705103, 0.000292589490539, 0.000286049086491, 0.000277641837343, 0.000267395829448, 0.000255350869641, 0.000241558391745, 0.000226081290712, 0.000208993684496, 0.00019038060416, 0.000170337613192, 0.000148970357429, 0.000126394047439, 0.000102732875622, 7.81193707498e-05, 5.26936930394e-05, 2.66028732948e-05, -2.05785081829e-18, -2.69566413611e-05, -5.4104472151e-05, -8.12775626578e-05, -0.000108307607181, -0.000135024926622, -0.000161259492853, -0.000186841968914, -0.000211604758918, -0.00023538306142, -0.000258015919873, -0.000279347263764, -0.000299226933944, -0.000317511685736, -0.000334066163396, -0.000348763839633, -0.000361487913991, -0.000372132164077, -0.000380601743823, -0.000386813923198, -0.000390698764081, -0.000392199727315, -0.000391274206292, -0.000387893982838, -0.000382045601539, -0.000373730659108, -0.000362966005862, -0.000349783856863, -0.000334231810783, -0.000316372775096, -0.000296284796741, -0.000274060797945, -0.000249808217499, -0.000223648558302, -0.000195716842628, -0.00016616097708, -0.000135141029831, -0.000102828423276, -6.94050457864e-05, -3.50622867989e-05, -3.93902003755e-18, 3.55746001483e-05, 7.14481028032e-05, 0.000107402119877, 0.000143214553315, 0.000178660903527, 0.000213515611646, 0.000247553427962, 0.00028055079863, 0.000312287262509, 0.000342546849813, 0.000371119474143, 0.000397802309351, 0.00042240114268, 0.000444731695634, 0.000464620904093, 0.000481908149324, 0.000496446431683, 0.000508103479072, 0.000516762782428, 0.000522324550911, 0.000524706579771, 0.000523845024343, 0.000519695074047, 0.000512231520806, 0.000501449216827, 0.000487363417292, 0.000470010004115, 0.000449445587592, 0.000425747483445, 0.000399013563475, 0.000369361978772, 0.000336930755172, 0.000301877261419, 0.000264377551266, 0.000224625581504, 0.000182832308702, 0.000139224668214, 9.40444397454e-05, 4.75470045438e-05, 2.67464941501e-18, -4.83181218569e-05, -9.71196247998e-05, -0.000146109099966, -0.000194985150119, -0.000243442137623, -0.0002911719866, -0.000337866029302, -0.000383216886255, -0.000426920369408, -0.000468677397187, -0.000508195910102, -0.000545192775382, -0.000579395668975, -0.000610544923215, -0.000638395328454, -0.000662717877053, -0.000683301438277, -0.000699954352854, -0.000712505936276, -0.000720807880257, -0.00072473554221, -0.000724189113111, -0.000719094654655, -0.000709404997283, -0.000695100491294, -0.000676189604039, -0.00065270935699, -0.00062472559729, -0.000592333099347, -0.000555655492903, -0.000514845015038, -0.000470082084535, -0.000421574698084, -0.000369557648839, -0.000314291568925, -0.000256061798543, -0.00019517708541, -0.000131968119358, -6.67859079431e-05, 6.99424202006e-18, 6.80034349294e-05, 0.000136823662345, 0.000206047563827, 0.000275251932546, 0.000344005871564, 0.000411873282423, 0.000478415430762, 0.000543193575014, 0.000605771643609, 0.000665718945553, 0.0007226128988, 0.000776041760416, 0.000825607342286, 0.000870927695842, 0.000911639749213, 0.000947401880183, 0.000977896408367, 0.00100283199025, 0.00102194590096, 0.00103500618704, 0.00104181367492, 0.00104220382044, 0.00103604838531, 0.00102325692726, 0.0010037780914, 0.000977600691386, 0.000944754569738, 0.000905311228108, 0.000859384219154, 0.00080712929312, 0.000748744293455, 0.000684468797171, 0.000614583497076, 0.000539409324465, 0.000459306312352, 0.000374672200841, 0.000285940787799, 0.000193580029511, 9.80898975997e-05, -2.81612817926e-18, -0.000100133024654, -0.000201728328387, -0.000304183878642, -0.000406879672686, -0.000509181126504, -0.000610442621715, -0.000710011192782, -0.000807230335614, -0.000901443917571, -0.00099200016788, -0.00107825572658, -0.0011595797293, -0.0012353579046, -0.00130499665984, -0.00136792713138, -0.00142360917446, -0.00147153526783, -0.00151123430862, -0.00154227527245, -0.0015642707145, -0.00157688008759, -0.00157981285366, -0.00157283136592, -0.00155575349982, -0.00152845501183, -0.0014908716062, -0.0014430006912, -0.00138490280758, -0.00131670271373, -0.00123859011341, -0.00115082001382, -0.00105371270374, -0.00094765334301, -0.000833091157316, -0.000710538233702, -0.000580567914926, -0.000443812792769, -0.000300962302783, -0.000152759925319, -1.08075391688e-17, 0.000156475836799, 0.000315782579539, 0.000476996131903, 0.000639157919366, 0.000801279817067, 0.000962349371873, 0.00112133529534, 0.00127719320224, 0.0014288715673, 0.00157531787095, 0.00171548490315, 0.00184833719262, 0.00197285752753, 0.0020880535322, 0.00219296426326, 0.00228666678787, 0.00236828270556, 0.00243698457484, 0.00249200220532, 0.00253262877585, 0.00255822673909, 0.00256823347344, 0.0025621666435, 0.00253962923092, 0.00250031419857, 0.00244400875188, 0.00237059816278, 0.00228006912302, 0.00217251259565, 0.00204812613524, 0.00190721564993, 0.00175019658041, 0.00157759447394, 0.00139004493402, 0.00118829292943, 0.000973191449411, 0.000745699494981, 0.000506879399966, 0.000257893478548, 4.28986546964e-18, -0.000265451505175, -0.000537025599647, -0.000813206942365, -0.00109240692469, -0.00137297091995, -0.00165318612313, -0.00193128995337, -0.00220547898833, -0.00247391839576, -0.00273475182397, -0.0029861117094, -0.00322612995609, -0.00345294893875, -0.00366473277802, -0.0038596788335, -0.00403602935783, -0.00419208325236, -0.00432620786298, -0.0044368507526, -0.00452255138545, -0.00458195265653, -0.00461381219909, -0.00461701340185, -0.00459057606746, -0.00453366664374, -0.00444560795931, -0.0043258883961, -0.00417417043211, -0.0039902984891, -0.0037743060218, -0.00352642178717, -0.0032470752347, -0.00293690096159, -0.00259674217973, -0.00222765314504, -0.00183090050333, -0.00140796351109, -0.00096053309422, -0.000490509712144, 2.80760318181e-17, 0.000508687833159, 0.00103304986677, 0.00157039360263, 0.00211784637506, 0.0026723650363, 0.00323074690959, 0.00378964199625, 0.00434556641635, 0.00489491705639, 0.00543398739049, 0.00595898443533, 0.00646604679233, 0.00695126372433, 0.00741069520729, 0.00784039289175, 0.00823642190218, 0.00859488339689, 0.0089119378051, 0.00918382865254, 0.00940690688174, 0.00957765556817, 0.00969271492907, 0.00974890751747, 0.00974326349013, 0.00967304583503, 0.00953577544069, 0.0093292558875, 0.0090515978392, 0.00870124291095, 0.0082769868899, 0.00777800218333, 0.00720385936983, 0.00655454772969, 0.0058304946316, 0.00503258365518, 0.00416217133054, 0.0032211023798, 0.00221172334828, 0.001136894518, -2.18363298506e-17, -0.00119504409203, -0.00244378347914, -0.00374122165118, -0.00508181797652, -0.00645948805916, -0.00786760640705, -0.0092990114674, -0.0107460130761, -0.0122004023592, -0.0136534641156, -0.0150959916992, -0.0165183044107, -0.0179102673973, -0.0192613140492, -0.02056047087, -0.0217963847899, -0.0229573528769, -0.024031354392, -0.0250060851235, -0.0258689939248, -0.0266073213689, -0.0272081404229, -0.0276583990346, -0.0279449645156, -0.0280546695919, -0.0279743599869, -0.0276909433908, -0.0271914396627, -0.026463032102, -0.0254931196209, -0.0242693696396, -0.0227797715208, -0.0210126903553, -0.0189569209017, -0.0166017414832, -0.0139369676371, -0.0109530053113, -0.00764090339839, -0.0039924053987, -1.17010830861e-17, 0.00434302963605, 0.009042558091, 0.0141035716181, 0.0195301239882, 0.0253252944542, 0.0314911480331, 0.0380286982977, 0.0449378728637, 0.0522174817547, 0.0598651888146, 0.067877486333, 0.0762496730385, 0.0849758356043, 0.0940488338006, 0.103460289418, 0.11320057907, 0.123258830982, 0.133622925837, 0.144279501769, 0.155213963549, 0.16641049601, 0.177852081747, 0.189520523099, 0.201396468406, 0.213459442547, 0.225687881699, 0.238059172282, 0.250549694035, 0.263134867117, 0.275789203172, 0.288486360211, 0.30119920122, 0.313899856323, 0.326559788363, 0.339149861728, 0.351640414229, 0.36400133185, 0.376202126144, 0.388212014065, 0.4, 0.411534959756, 0.422785726255, 0.433721176669, 0.444310320731, 0.454522389941, 0.464326927382, 0.473693877874, 0.482593678145, 0.490997346756, 0.498876573455, 0.506203807678, 0.512952345895, 0.519096417498, 0.524611268941, 0.529473245843, 0.533659872759, 0.537149930339, 0.539923529601, 0.541962183058, 0.54324887242, 0.54376811264, 0.543506012053, 0.542450328394, 0.540590520458, 0.537917795219, 0.534425150218, 0.530107411034, 0.524961263692, 0.518985281867, 0.512179948747, 0.504547673468, 0.496092802009, 0.486821622492, 0.476742364829, 0.465865194681, 0.454202201712, 0.441767382155, 0.428576615693, 0.414647636713, 0.4, 0.384655040929, 0.368635830281, 0.351967123784, 0.334675306525, 0.316788332383, 0.298335658656, 0.279348176072, 0.259858134386, 0.239899063781, 0.21950569232, 0.198713859677, 0.177560427425, 0.156083186152, 0.13432075968, 0.112312506694, 0.0900984200763, 0.0677190242655, 0.0452152709518, 0.022628433439, 0.0, -0.022628433439, -0.0452152709518, -0.0677190242655, -0.0900984200763, -0.112312506694, -0.13432075968, -0.156083186152, -0.177560427425, -0.198713859677, -0.21950569232, -0.239899063781, -0.259858134386, -0.279348176072, -0.298335658656, -0.316788332383, -0.334675306525, -0.351967123784, -0.368635830281, -0.384655040929, -0.4, -0.414647636713, -0.428576615693, -0.441767382155, -0.454202201712, -0.465865194681, -0.476742364829, -0.486821622492, -0.496092802009, -0.504547673468, -0.512179948747, -0.518985281867, -0.524961263692, -0.530107411034, -0.534425150218, -0.537917795219, -0.540590520458, -0.542450328394, -0.543506012053, -0.54376811264, -0.54324887242, -0.541962183058, -0.539923529601, -0.537149930339, -0.533659872759, -0.529473245843, -0.524611268941, -0.519096417498, -0.512952345895, -0.506203807678, -0.498876573455, -0.490997346756, -0.482593678145, -0.473693877874, -0.464326927382, -0.454522389941, -0.444310320731, -0.433721176669, -0.422785726255, -0.411534959756, -0.4, -0.388212014065, -0.376202126144, -0.36400133185, -0.351640414229, -0.339149861728, -0.326559788363, -0.313899856323, -0.30119920122, -0.288486360211, -0.275789203172, -0.263134867117, -0.250549694035, -0.238059172282, -0.225687881699, -0.213459442547, -0.201396468406, -0.189520523099, -0.177852081747, -0.16641049601, -0.155213963549, -0.144279501769, -0.133622925837, -0.123258830982, -0.11320057907, -0.103460289418, -0.0940488338006, -0.0849758356043, -0.0762496730385, -0.067877486333, -0.0598651888146, -0.0522174817547, -0.0449378728637, -0.0380286982977, -0.0314911480331, -0.0253252944542, -0.0195301239882, -0.0141035716181, -0.009042558091, -0.00434302963605, 1.17010830861e-17, 0.0039924053987, 0.00764090339839, 0.0109530053113, 0.0139369676371, 0.0166017414832, 0.0189569209017, 0.0210126903553, 0.0227797715208, 0.0242693696396, 0.0254931196209, 0.026463032102, 0.0271914396627, 0.0276909433908, 0.0279743599869, 0.0280546695919, 0.0279449645156, 0.0276583990346, 0.0272081404229, 0.0266073213689, 0.0258689939248, 0.0250060851235, 0.024031354392, 0.0229573528769, 0.0217963847899, 0.02056047087, 0.0192613140492, 0.0179102673973, 0.0165183044107, 0.0150959916992, 0.0136534641156, 0.0122004023592, 0.0107460130761, 0.0092990114674, 0.00786760640705, 0.00645948805916, 0.00508181797652, 0.00374122165118, 0.00244378347914, 0.00119504409203, 2.18363298506e-17, -0.001136894518, -0.00221172334828, -0.0032211023798, -0.00416217133054, -0.00503258365518, -0.0058304946316, -0.00655454772969, -0.00720385936983, -0.00777800218333, -0.0082769868899, -0.00870124291095, -0.0090515978392, -0.0093292558875, -0.00953577544069, -0.00967304583503, -0.00974326349013, -0.00974890751747, -0.00969271492907, -0.00957765556817, -0.00940690688174, -0.00918382865254, -0.0089119378051, -0.00859488339689, -0.00823642190218, -0.00784039289175, -0.00741069520729, -0.00695126372433, -0.00646604679233, -0.00595898443533, -0.00543398739049, -0.00489491705639, -0.00434556641635, -0.00378964199625, -0.00323074690959, -0.0026723650363, -0.00211784637506, -0.00157039360263, -0.00103304986677, -0.000508687833159, -2.80760318181e-17, 0.000490509712144, 0.00096053309422, 0.00140796351109, 0.00183090050333, 0.00222765314504, 0.00259674217973, 0.00293690096159, 0.0032470752347, 0.00352642178717, 0.0037743060218, 0.0039902984891, 0.00417417043211, 0.0043258883961, 0.00444560795931, 0.00453366664374, 0.00459057606746, 0.00461701340185, 0.00461381219909, 0.00458195265653, 0.00452255138545, 0.0044368507526, 0.00432620786298, 0.00419208325236, 0.00403602935783, 0.0038596788335, 0.00366473277802, 0.00345294893875, 0.00322612995609, 0.0029861117094, 0.00273475182397, 0.00247391839576, 0.00220547898833, 0.00193128995337, 0.00165318612313, 0.00137297091995, 0.00109240692469, 0.000813206942365, 0.000537025599647, 0.000265451505175, -4.28986546964e-18, -0.000257893478548, -0.000506879399966, -0.000745699494981, -0.000973191449411, -0.00118829292943, -0.00139004493402, -0.00157759447394, -0.00175019658041, -0.00190721564993, -0.00204812613524, -0.00217251259565, -0.00228006912302, -0.00237059816278, -0.00244400875188, -0.00250031419857, -0.00253962923092, -0.0025621666435, -0.00256823347344, -0.00255822673909, -0.00253262877585, -0.00249200220532, -0.00243698457484, -0.00236828270556, -0.00228666678787, -0.00219296426326, -0.0020880535322, -0.00197285752753, -0.00184833719262, -0.00171548490315, -0.00157531787095, -0.0014288715673, -0.00127719320224, -0.00112133529534, -0.000962349371873, -0.000801279817067, -0.000639157919366, -0.000476996131903, -0.000315782579539, -0.000156475836799, 1.08075391688e-17, 0.000152759925319, 0.000300962302783, 0.000443812792769, 0.000580567914926, 0.000710538233702, 0.000833091157316, 0.00094765334301, 0.00105371270374, 0.00115082001382, 0.00123859011341, 0.00131670271373, 0.00138490280758, 0.0014430006912, 0.0014908716062, 0.00152845501183, 0.00155575349982, 0.00157283136592, 0.00157981285366, 0.00157688008759, 0.0015642707145, 0.00154227527245, 0.00151123430862, 0.00147153526783, 0.00142360917446, 0.00136792713138, 0.00130499665984, 0.0012353579046, 0.0011595797293, 0.00107825572658, 0.00099200016788, 0.000901443917571, 0.000807230335614, 0.000710011192782, 0.000610442621715, 0.000509181126504, 0.000406879672686, 0.000304183878642, 0.000201728328387, 0.000100133024654, 2.81612817926e-18, -9.80898975997e-05, -0.000193580029511, -0.000285940787799, -0.000374672200841, -0.000459306312352, -0.000539409324465, -0.000614583497076, -0.000684468797171, -0.000748744293455, -0.00080712929312, -0.000859384219154, -0.000905311228108, -0.000944754569738, -0.000977600691386, -0.0010037780914, -0.00102325692726, -0.00103604838531, -0.00104220382044, -0.00104181367492, -0.00103500618704, -0.00102194590096, -0.00100283199025, -0.000977896408367, -0.000947401880183, -0.000911639749213, -0.000870927695842, -0.000825607342286, -0.000776041760416, -0.0007226128988, -0.000665718945553, -0.000605771643609, -0.000543193575014, -0.000478415430762, -0.000411873282423, -0.000344005871564, -0.000275251932546, -0.000206047563827, -0.000136823662345, -6.80034349294e-05, -6.99424202006e-18, 6.67859079431e-05, 0.000131968119358, 0.00019517708541, 0.000256061798543, 0.000314291568925, 0.000369557648839, 0.000421574698084, 0.000470082084535, 0.000514845015038, 0.000555655492903, 0.000592333099347, 0.00062472559729, 0.00065270935699, 0.000676189604039, 0.000695100491294, 0.000709404997283, 0.000719094654655, 0.000724189113111, 0.00072473554221, 0.000720807880257, 0.000712505936276, 0.000699954352854, 0.000683301438277, 0.000662717877053, 0.000638395328454, 0.000610544923215, 0.000579395668975, 0.000545192775382, 0.000508195910102, 0.000468677397187, 0.000426920369408, 0.000383216886255, 0.000337866029302, 0.0002911719866, 0.000243442137623, 0.000194985150119, 0.000146109099966, 9.71196247998e-05, 4.83181218569e-05, -2.67464941501e-18, -4.75470045438e-05, -9.40444397454e-05, -0.000139224668214, -0.000182832308702, -0.000224625581504, -0.000264377551266, -0.000301877261419, -0.000336930755172, -0.000369361978772, -0.000399013563475, -0.000425747483445, -0.000449445587592, -0.000470010004115, -0.000487363417292, -0.000501449216827, -0.000512231520806, -0.000519695074047, -0.000523845024343, -0.000524706579771, -0.000522324550911, -0.000516762782428, -0.000508103479072, -0.000496446431683, -0.000481908149324, -0.000464620904093, -0.000444731695634, -0.00042240114268, -0.000397802309351, -0.000371119474143, -0.000342546849813, -0.000312287262509, -0.00028055079863, -0.000247553427962, -0.000213515611646, -0.000178660903527, -0.000143214553315, -0.000107402119877, -7.14481028032e-05, -3.55746001483e-05, 3.93902003755e-18, 3.50622867989e-05, 6.94050457864e-05, 0.000102828423276, 0.000135141029831, 0.00016616097708, 0.000195716842628, 0.000223648558302, 0.000249808217499, 0.000274060797945, 0.000296284796741, 0.000316372775096, 0.000334231810783, 0.000349783856863, 0.000362966005862, 0.000373730659108, 0.000382045601539, 0.000387893982838, 0.000391274206292, 0.000392199727315, 0.000390698764081, 0.000386813923198, 0.000380601743823, 0.000372132164077, 0.000361487913991, 0.000348763839633, 0.000334066163396, 0.000317511685736, 0.000299226933944, 0.000279347263764, 0.000258015919873, 0.00023538306142, 0.000211604758918, 0.000186841968914, 0.000161259492853, 0.000135024926622, 0.000108307607181, 8.12775626578e-05, 5.4104472151e-05, 2.69566413611e-05, 2.05785081829e-18, -2.66028732948e-05, -5.26936930394e-05, -7.81193707498e-05, -0.000102732875622, -0.000126394047439, -0.000148970357429, -0.000170337613192, -0.00019038060416, -0.000208993684496, -0.000226081290712, -0.000241558391745, -0.000255350869641, -0.000267395829448, -0.000277641837343, -0.000286049086491, -0.000292589490539, -0.000297246705103, -0.000300016078023, -0.000300904529591, -0.000299930364345, -0.000297123016414, -0.000292522730793, -0.000286180183249, -0.000278156041926, -0.000268520473994, -0.000257352601014, -0.000244739906911, -0.00023077760273, -0.000215567952505, -0.000199219564799, -0.000181846654599, -0.000163568280364, -0.000144507561146, -0.000124790878716, -0.000104547069707, -8.3906612757e-05, -6.30008156011e-05, -4.19610070206e-05, -2.09177384594e-05, -6.72575950178e-19, 2.06655447462e-05, 4.09553004503e-05, 6.07494543859e-05, 7.99326592792e-05, 9.83946809495e-05, 0.000116031007252, 0.000132743415113, 0.000148440492734, 0.000163038114344, 0.000176459865203, 0.00018863741487, 0.000199510837108, 0.000209028875099, 0.000217149151043, 0.000223838319489, 0.000229072164162, 0.000232835638346, 0.000235122849234, 0.000235936986992, 0.000235290199616, 0.000233203414943, 0.000229706111527, 0.000224836040328, 0.000218638899478, 0.000211167964614, 0.000202483677526, 0.000192653196087, 0.000181749908607, 0.000169852915966, 0.000157046485015, 0.000143419476872, 0.000129064753854, 0.000114078568866, 9.85599411374e-05, 8.26100222307e-05, 6.63314562638e-05, 4.98277382766e-05, 3.32025746409e-05, 1.65592493568e-05, 5.59926582713e-18, -1.63745930139e-05, -3.24662003054e-05, -4.81793171422e-05, -6.34218135435e-05, -7.81054578096e-05, -9.21464106041e-05, -0.000105465686927, -0.000117989583533, -0.000129650069598, -0.000140385138662, -0.000150139120151, -0.000158862949033, -0.000166514392427, -0.000173058232277, -0.000178466403438, -0.000182718086847, -0.000185799757689, -0.000187705188745, -0.000188435409401}; diff --git a/src/waveforms.h b/src/waveforms.h new file mode 100644 index 0000000..4ed6687 --- /dev/null +++ b/src/waveforms.h @@ -0,0 +1,7 @@ + +/* This file was automatically generated by "generate_waveforms.py". + (C) 2014 Christophe Jacquet. + Released under the GNU GPL v3 license. + */ + +extern float waveform_biphase[1120];